REVERSE.C
FILE INFORMATION
FILENAME(S): REVERSE.C
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-10-19 22:48:26
APPEARS ON: 1 disk(s)
FILE HASH
2e150331cb28e369ff618c7518bb6aa4896a130c427f72d6e4f53a2ec30635ae
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 83 C | REVERSE.C | PRG | Radd Maxx | 28 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 35 08 05 00 97 35 33 32 38 30 2C 30 3A 97 |..5....53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 97 35 34 32 38 34 2C 33 |53281,0:.54284,3|
00000020: 33 3A 97 35 34 32 38 36 2C 31 37 3A 97 35 34 32 |3:.54286,17:.542|
00000030: 38 38 2C 36 35 00 54 08 06 00 97 35 34 32 38 31 |88,65.T....54281|
00000040: 2C 35 35 3A 97 35 34 32 38 32 2C 31 30 3A 86 53 |,55:.54282,10:.S|
00000050: 28 31 35 29 00 95 08 0A 00 41 B2 BB 28 AB 31 AD |(15).....A..(.1.|
00000060: 54 49 29 3A 42 24 B2 22 20 20 20 20 20 20 20 20 |TI):B$." |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 56 B2 | ":V.|
00000080: 35 34 32 37 39 3A 81 49 B2 30 A4 31 35 3A 87 53 |54279:.I.0.15:.S|
00000090: 28 49 29 3A 82 00 BB 08 0F 00 99 C7 28 31 34 32 |(I):........(142|
000000A0: 29 22 93 11 54 48 45 20 47 41 4D 45 20 4F 46 20 |)"..THE GAME OF |
000000B0: 12 27 52 45 56 45 52 53 45 27 11 00 F1 08 14 00 |.'REVERSE'......|
000000C0: 99 22 49 4E 20 54 48 49 53 20 47 41 4D 45 2C 20 |."IN THIS GAME, |
000000D0: 43 2D 36 34 20 50 55 54 53 20 55 50 20 41 20 52 |C-64 PUTS UP A R|
000000E0: 41 4E 44 4F 4D 20 20 20 20 20 4C 49 4E 45 20 4F |ANDOM LINE O|
000000F0: 46 00 22 09 19 00 99 22 20 44 49 47 49 54 53 20 |F."...." DIGITS |
00000100: 46 52 4F 4D 20 31 20 54 4F 20 39 22 3A 99 22 59 |FROM 1 TO 9":."Y|
00000110: 4F 55 20 54 52 59 20 54 4F 20 50 55 54 20 54 48 |OU TRY TO PUT TH|
00000120: 45 4D 00 6D 09 1E 00 99 22 49 4E 20 4F 52 44 45 |EM.m...."IN ORDE|
00000130: 52 20 42 59 20 54 45 4C 4C 49 4E 47 20 49 54 20 |R BY TELLING IT |
00000140: 48 4F 57 20 4D 41 4E 59 20 54 4F 20 20 20 20 20 |HOW MANY TO |
00000150: 20 52 45 56 45 52 53 45 20 41 54 20 45 41 43 48 | REVERSE AT EACH|
00000160: 20 54 55 52 4E 2E 22 3A 8D 33 39 30 30 00 B5 09 | TURN.":.3900...|
00000170: 28 00 99 22 93 46 4F 52 20 45 58 41 4D 50 4C 45 |(..".FOR EXAMPLE|
00000180: 2C 22 3A 99 22 11 20 36 34 20 4D 41 59 20 53 54 |,":.". 64 MAY ST|
00000190: 41 52 54 20 57 49 54 48 3A 22 3A 99 22 11 20 9A |ART WITH:":.". .|
000001A0: 20 39 20 38 20 37 20 36 20 31 20 32 20 33 20 34 | 9 8 7 6 1 2 3 4|
000001B0: 20 35 05 11 22 00 E7 09 32 00 99 22 52 45 56 45 | 5.."...2.."REVE|
000001C0: 52 53 45 20 39 20 46 4F 52 3A 22 3A 99 22 11 9A |RSE 9 FOR:":."..|
000001D0: 20 20 35 20 34 20 33 20 32 20 31 96 20 36 20 37 | 5 4 3 2 1. 6 7|
000001E0: 20 38 20 39 05 11 22 00 2C 0A 37 00 99 22 46 49 | 8 9..".,.7.."FI|
000001F0: 4E 41 4C 4C 59 2C 20 52 45 56 45 52 53 45 20 35 |NALLY, REVERSE 5|
00000200: 22 3A 99 22 54 4F 20 57 49 4E 20 57 49 54 48 3A |":."TO WIN WITH:|
00000210: 22 3A 99 22 11 96 20 20 31 20 32 20 33 20 34 20 |":.".. 1 2 3 4 |
00000220: 35 20 36 20 37 20 38 20 39 05 11 22 00 62 0A 3C |5 6 7 8 9..".b.<|
00000230: 00 99 22 11 12 49 46 A0 59 4F 55 20 52 45 56 45 |.."..IF.YOU REVE|
00000240: 52 53 45 20 4F 4E 4C 59 20 31 2C 20 36 34 20 57 |RSE ONLY 1, 64 W|
00000250: 49 4C 4C 20 50 4C 41 59 20 46 4F 52 20 59 4F 55 |ILL PLAY FOR YOU|
00000260: 2E 22 00 A0 0A 50 00 8F 20 50 52 49 4E 54 22 44 |."...P.. PRINT"D|
00000270: 4F 20 59 4F 55 20 57 41 4E 54 20 54 48 45 22 3A |O YOU WANT THE":|
00000280: 50 52 49 4E 54 22 53 50 45 45 44 59 20 56 45 52 |PRINT"SPEEDY VER|
00000290: 53 49 4F 4E 3F 22 3A 47 4F 53 55 42 33 35 30 30 |SION?":GOSUB3500|
000002A0: 00 AA 0A 5A 00 8D 33 39 30 30 00 D5 0A 5F 00 81 |...Z..3900..._..|
000002B0: 49 B2 31 A4 39 3A 41 28 49 29 B2 49 3A 82 49 3A |I.1.9:A(I).I:.I:|
000002C0: 58 B2 30 3A 53 50 B2 30 3A 8B 43 24 B2 22 59 22 |X.0:SP.0:.C$."Y"|
000002D0: A7 53 50 B2 31 00 EA 0A 64 00 99 22 93 20 20 20 |.SP.1...d..". |
000002E0: 20 20 20 52 45 56 45 52 53 45 00 31 0B 78 00 81 | REVERSE.1.x..|
000002F0: 49 B2 31 A4 39 3A 4A B2 28 31 30 AB 49 29 AC BB |I.1.9:J.(10.I)..|
00000300: 28 31 29 3A 41 B2 41 28 49 29 3A 41 28 49 29 B2 |(1):A.A(I):A(I).|
00000310: 41 28 49 AA 4A 29 3A 41 28 49 AA 4A 29 B2 41 3A |A(I.J):A(I.J).A:|
00000320: 42 28 49 29 B2 41 28 49 29 3A 82 49 3A 4E B2 AB |B(I).A(I):.I:N..|
00000330: 31 00 4F 0B 82 00 4E B2 4E AA 31 3A 99 22 13 11 |1.O...N.N.1:."..|
00000340: 11 11 11 11 11 11 11 20 20 22 3B 3A 53 B2 30 00 |....... ";:S.0.|
00000350: 74 0B 87 00 81 49 B2 31 A4 39 3A 99 41 28 49 29 |t....I.1.9:.A(I)|
00000360: 22 9D 22 3B 3A 53 B2 53 AA 49 AC 41 28 49 29 3A |".";:S.S.I.A(I):|
00000370: 82 49 3A 99 00 97 0B 89 00 99 42 24 3A 99 42 24 |.I:.......B$:.B$|
00000380: 3A 99 42 24 3A 99 42 24 22 11 11 22 3A 8B 53 B3 |:.B$:.B$"..":.S.|
00000390: 32 38 35 89 32 30 30 00 B0 0B 8C 00 3A 97 56 2C |285.200.....:.V,|
000003A0: 30 3A 97 56 AA 31 2C 30 3A 97 56 AA 31 37 2C 30 |0:.V.1,0:.V.17,0|
000003B0: 00 F6 0B 91 00 58 B2 30 3A 99 58 24 22 54 48 41 |.....X.0:.X$"THA|
000003C0: 54 20 54 4F 4F 4B 22 4E 22 9D 20 4D 4F 56 45 53 |T TOOK"N". MOVES|
000003D0: 20 20 20 9D 22 3A 8B 4E B1 31 30 A7 99 22 9E 38 | .":.N.10..".8|
000003E0: 59 4F 55 20 43 4F 55 4C 44 20 44 4F 20 42 45 54 |YOU COULD DO BET|
000003F0: 54 45 52 29 05 22 00 24 0C 96 00 99 22 11 44 4F |TER).".$....".DO|
00000400: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 54 52 59 | YOU WANT TO TRY|
00000410: 20 54 48 45 20 53 41 4D 45 20 4F 4E 45 20 41 47 | THE SAME ONE AG|
00000420: 41 49 4E 3F 00 3B 0C A0 00 8D 33 35 30 30 3A 8B |AIN?.;....3500:.|
00000430: 43 24 B3 B1 22 59 22 89 31 30 30 00 74 0C AA 00 |C$.."Y".100.t...|
00000440: 81 49 B2 31 A4 39 3A 41 28 49 29 B2 42 28 49 29 |.I.1.9:A(I).B(I)|
00000450: 3A 82 3A 99 22 93 20 20 20 20 20 20 52 45 2D 52 |:.:.". RE-R|
00000460: 45 56 45 52 53 45 20 20 22 4E 3A 4E B2 AB 31 3A |EVERSE "N:N..1:|
00000470: 89 31 33 30 00 B1 0C C8 00 99 22 52 45 56 45 52 |.130......"REVER|
00000480: 53 45 20 48 4F 57 20 4D 41 4E 59 3F 20 20 20 20 |SE HOW MANY? |
00000490: 9D 9D 9D 22 3B 3A 97 56 2C 30 3A 97 56 AA 31 2C |...";:.V,0:.V.1,|
000004A0: 30 3A 97 56 AA 31 37 2C 30 3A 8B 58 89 32 30 30 |0:.V.17,0:.X.200|
000004B0: 30 00 CC 0C D2 00 8D 34 30 30 30 3A 43 B2 C5 28 |0......4000:C..(|
000004C0: 43 24 29 3A 8B 43 B2 30 89 32 31 30 00 F8 0C D7 |C$):.C.0.210....|
000004D0: 00 8B 43 B2 31 A7 58 B2 31 3A 3A 99 22 13 12 41 |..C.1.X.1::."..A|
000004E0: 49 44 45 44 11 11 11 11 11 11 11 11 11 11 11 11 |IDED............|
000004F0: 11 11 22 3A 89 32 30 30 00 33 0D DC 00 99 43 24 |..":.200.3....C$|
00000500: 3A 81 49 B2 31 A4 43 AD 32 3A 41 B2 41 28 49 29 |:.I.1.C.2:A.A(I)|
00000510: 3A 41 28 49 29 B2 41 28 43 AB 49 AA 31 29 3A 41 |:A(I).A(C.I.1):A|
00000520: 28 43 AB 49 AA 31 29 B2 41 3A 82 3A 8B 53 50 89 |(C.I.1).A:.:.SP.|
00000530: 31 33 30 00 4E 0D E6 00 4D B2 38 3A 8D 33 30 30 |130.N...M.8:.300|
00000540: 30 3A 99 C8 28 42 24 2C 32 AA 32 AC 43 29 00 60 |0:..(B$,2.2.C).`|
00000550: 0D F0 00 4D B2 39 AB 43 AD 32 3A 8D 33 30 30 30 |...M.9.C.2:.3000|
00000560: 00 8E 0D FA 00 8D 33 30 30 30 3A 81 49 B2 31 A4 |......3000:.I.1.|
00000570: 43 3A 99 C8 28 42 24 2C 32 AA 33 AC 43 AD 32 AB |C:..(B$,2.3.C.2.|
00000580: 49 29 41 28 49 29 3A 82 3A 8D 31 30 30 30 00 C0 |I)A(I):.:.1000..|
00000590: 0D 2C 01 8D 33 30 30 30 3A 81 49 B2 31 A4 43 3A |.,..3000:.I.1.C:|
000005A0: 99 C8 28 42 24 2C 31 AA 43 29 41 28 49 29 22 9D |..(B$,1.C)A(I)".|
000005B0: 22 C8 28 42 24 2C 43 29 3A 82 3A 8D 31 30 30 30 |".(B$,C):.:.1000|
000005C0: 00 F6 0D 90 01 8D 33 30 30 30 3A 81 49 B2 31 A4 |......3000:.I.1.|
000005D0: 43 3A 99 C8 28 42 24 2C 31 AA 43 AD 32 AA 49 29 |C:..(B$,1.C.2.I)|
000005E0: 41 28 49 29 22 9D 22 C8 28 42 24 2C 33 AC 43 AD |A(I)".".(B$,3.C.|
000005F0: 32 AB 49 29 3A 82 00 1E 0E F4 01 8D 31 30 30 30 |2.I):.......1000|
00000600: 3A 8D 33 30 30 30 3A 8B 43 B1 32 A7 81 49 B2 31 |:.3000:.C.2..I.1|
00000610: A4 28 43 AB 31 29 AD 32 3A 99 42 24 3A 82 00 27 |.(C.1).2:.B$:..'|
00000620: 0E FE 01 89 31 33 30 00 38 0E E8 03 81 54 B2 30 |....130.8....T.0|
00000630: A4 32 30 30 3A 82 3A 8E 00 51 0E D0 07 81 49 B2 |.200:.:..Q....I.|
00000640: 39 A4 32 A9 AB 31 3A 8B 41 28 49 29 B2 49 A7 82 |9.2..1:.A(I).I..|
00000650: 49 00 66 0E DA 07 59 B2 49 3A 8B 41 28 31 29 B2 |I.f...Y.I:.A(1).|
00000660: 59 89 32 35 30 30 00 90 0E DF 07 43 30 B2 30 3A |Y.2500.....C0.0:|
00000670: 81 49 B2 32 A4 59 3A 8B B6 28 41 28 49 29 AB 41 |.I.2.Y:..(A(I).A|
00000680: 28 49 AB 31 29 29 B2 31 A7 43 30 B2 43 30 AA 31 |(I.1)).1.C0.C0.1|
00000690: 00 A0 0E E1 07 82 49 3A 43 32 B2 30 3A 4A B2 32 |......I:C2.0:J.2|
000006A0: 00 B8 0E E4 07 81 49 B2 31 A4 39 3A 43 28 49 29 |......I.1.9:C(I)|
000006B0: B2 41 28 49 29 3A 82 49 00 E8 0E EE 07 81 49 B2 |.A(I):.I......I.|
000006C0: 31 A4 4A AD 32 3A 41 B2 43 28 49 29 3A 43 28 49 |1.J.2:A.C(I):C(I|
000006D0: 29 B2 43 28 4A AB 49 AA 31 29 3A 43 28 4A AB 49 |).C(J.I.1):C(J.I|
000006E0: AA 31 29 B2 41 3A 82 49 00 12 0F F8 07 43 31 B2 |.1).A:.I.....C1.|
000006F0: 30 3A 81 49 B2 32 A4 59 3A 8B B6 28 43 28 49 29 |0:.I.2.Y:..(C(I)|
00000700: AB 43 28 49 AB 31 29 29 B2 31 A7 43 31 B2 43 31 |.C(I.1)).1.C1.C1|
00000710: AA 31 00 31 0F 02 08 82 49 3A 8B 43 31 B1 43 30 |.1.1....I:.C1.C0|
00000720: A7 43 30 B2 43 31 3A 43 32 B2 4A 3A 89 32 30 37 |.C0.C1:C2.J:.207|
00000730: 30 00 46 0F 0C 08 4A B2 4A AA 31 3A 8B 4A B3 B2 |0.F...J.J.1:.J..|
00000740: 59 89 32 30 32 30 00 58 0F 16 08 49 B2 43 32 3A |Y.2020.X...I.C2:|
00000750: 8B 43 32 89 32 35 30 30 00 6F 0F 34 08 81 49 B2 |.C2.2500.o.4..I.|
00000760: 32 A4 59 3A 8B 41 28 49 29 B3 B1 59 A7 82 49 00 |2.Y:.A(I)..Y..I.|
00000770: 8C 0F C4 09 43 24 B2 C4 28 49 29 3A 43 B2 C5 28 |....C$..(I):C..(|
00000780: 43 24 29 3A 49 B2 30 3A 89 32 32 30 00 AC 0F B8 |C$):I.0:.220....|
00000790: 0B 99 C8 28 22 13 11 11 11 11 11 11 11 11 11 11 |...("...........|
000007A0: 11 11 11 11 11 22 2C 4D AA 31 29 3B 00 CD 0F C2 |.....",M.1);....|
000007B0: 0B 97 56 AA 31 37 2C 31 34 3A 97 56 2C 53 28 43 |..V.17,14:.V,S(C|
000007C0: 29 3A 97 56 AA 31 2C 53 28 43 29 3A 8E 00 E8 0F |):.V.1,S(C):....|
000007D0: AC 0D 8D 34 30 30 30 3A 8B 43 24 B2 22 59 22 B0 |...4000:.C$."Y".|
000007E0: 43 24 B2 22 4E 22 A7 8E 00 F2 0F B6 0D 89 33 35 |C$."N"........35|
000007F0: 30 30 00 11 10 3C 0F 99 22 11 12 20 48 49 54 20 |00...<..".. HIT |
00000800: 41 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |A KEY TO CONTINU|
00000810: 45 00 22 10 A0 0F A1 43 24 3A 8B 43 24 89 34 30 |E."....C$:.C$.40|
00000820: 30 30 00 36 10 AA 0F A1 43 24 3A 8B 43 24 B2 22 |00.6....C$:.C$."|
00000830: 22 89 34 30 31 30 00 3C 10 B4 0F 8E 00 76 10 28 |".4010.<.....v.(|
00000840: 23 83 33 34 2C 37 35 2C 33 38 2C 31 32 36 2C 34 |#.34,75,38,126,4|
00000850: 33 2C 35 32 2C 34 35 2C 31 39 38 2C 35 31 2C 39 |3,52,45,198,51,9|
00000860: 37 2C 35 37 2C 31 37 32 2C 36 34 2C 31 38 38 2C |7,57,172,64,188,|
00000870: 36 38 2C 31 34 39 00 00 00 |68,149... |
..5....53280,0:.53281,0:.54284,33:.54286
,17:.54288,65.T....54281,55:.54282,10:.S
(15).....A..(.1.TI):B$."
":V.54279:.I.0.15:.S(I):.......G(142
)"..THE GAME OF .'REVERSE'......."IN THI
S GAME, C-64 PUTS UP A RANDOM LINE O
F."...." DIGITS FROM 1 TO 9":."YOU TRY T
O PUT THEM.M...."IN ORDER BY TELLING IT
HOW MANY TO REVERSE AT EACH TURN.":
.3900...(..".FOR EXAMPLE,":.". 64 MAY ST
ART WITH:":.". . 9 8 7 6 1 2 3 4 5.."...
2.."REVERSE 9 FOR:":.".. 5 4 3 2 1. 6 7
8 9..".,.7.."FINALLY, REVERSE 5":."TO W
IN WITH:":.".. 1 2 3 4 5 6 7 8 9..".B.<
.."..IF YOU REVERSE ONLY 1, 64 WILL PLAY
FOR YOU.". .P.. PRINT"DO YOU WANT THE":
PRINT"SPEEDY VERSION?":GOSUB3500...Z..39
00.U._..I.1.9:A(I).I:.I:X.0:SP.0:.C$."Y"
.SP.1...D..". REVERSE.1.X..I.1.9:J.
(10.I)..(1):A.A(I):A(I).A(I.J):A(I.J).A:
B(I).A(I):.I:N..1.O...N.N.1:.".........
";:S.0.T....I.1.9:.A(I)".";:S.S.I.A(I):
.I:.......B$:.B$:.B$:.B$"..":.S.285.200.
....:.V,0:.V.1,0:.V.17,0.....X.0:.X$"THA
T TOOK"N". MOVES .":.N.10..".8YOU COUL
D DO BETTER).".$....".DO YOU WANT TO TRY
THE SAME ONE AGAIN?.;. ..3500:.C$.."Y".
100.T....I.1.9:A(I).B(I):.:.". RE-R
EVERSE "N:N..1:.130...H.."REVERSE HOW M
ANY? ...";:.V,0:.V.1,0:.V.17,0:.X.200
0.L.R..4000:C.E(C$):.C.0.210...W..C.1.X.
1::."..AIDED..............":.200.3....C$
:.I.1.C.2:A.A(I):A(I).A(C.I.1):A(C.I.1).
A:.:.SP.130.N...M.8:.3000:.H(B$,2.2.C).`
...M.9.C.2:.3000......3000:.I.1.C:.H(B$,
2.3.C.2.I)A(I):.:.1000...,..3000:.I.1.C:
.H(B$,1.C)A(I)"."H(B$,C):.:.1000......30
00:.I.1.C:.H(B$,1.C.2.I)A(I)"."H(B$,3.C.
2.I):.......1000:.3000:.C.2..I.1.(C.1).2
:.B$:..'....130.8....T.0.200:.:..Q.P..I.
9.2..1:.A(I).I..I.F.Z.Y.I:.A(1).Y.2500..
...C0.0:.I.2.Y:..(A(I).A(I.1)).1.C0.C0.1
. ....I:C2.0:J.2......I.1.9:C(I).A(I):.I
......I.1.J.2:A.C(I):C(I).C(J.I.1):C(J.I
.1).A:.I.....C1.0:.I.2.Y:..(C(I).C(I.1))
.1.C1.C1.1.1....I:.C1.C0.C0.C1:C2.J:.207
0.F...J.J.1:.J..Y.2020.X...I.C2:.C2.2500
.O.4..I.2.Y:.A(I)..Y..I...D.C$.D(I):C.E(
C$):I.0:.220......H("................",M
.1);.M.B..V.17,14:.V,S(C):.V.1,S(C):....
...4000:.C$."Y".C$."N"........3500...<..
".. HIT A KEY TO CONTINUE.". ..C$:.C$.40
00.6....C$:.C$."".4010.<.....V.(#.34,75,
38,126,43,52,45,198,51,97,57,172,64,188,
68,149...
> CLICK IMAGE PREVIEW FOR FULL MODAL