/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / HANOI / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 50 52 49 4e 54 | 22 93 05 22 3a 50 4f 4b |10 PRINT|"..":POK|
|00000010| 45 35 33 32 38 30 2c 38 | 3a 50 4f 4b 45 35 33 32 |E53280,8|:POKE532|
|00000020| 38 31 2c 30 0a 32 30 20 | 50 52 49 4e 54 54 41 42 |81,0.20 |PRINTTAB|
|00000030| 28 31 30 29 22 11 11 11 | 11 11 11 11 54 48 45 20 |(10)"...|....THE |
|00000040| 54 4f 57 45 52 53 20 4f | 46 20 48 41 4e 4f 49 22 |TOWERS O|F HANOI"|
|00000050| 3a 46 4f 52 52 3d 30 54 | 4f 32 33 34 35 3a 4e 45 |:FORR=0T|O2345:NE|
|00000060| 58 54 3a 50 52 49 4e 54 | 22 93 1c 00 0a 33 30 20 |XT:PRINT|"....30 |
|00000070| 50 4f 4b 45 35 33 32 38 | 30 2c 30 3a 50 4f 4b 45 |POKE5328|0,0:POKE|
|00000080| 35 33 32 38 31 2c 37 0a | 34 30 20 50 52 49 4e 54 |53281,7.|40 PRINT|
|00000090| 22 11 11 20 20 20 47 49 | 56 45 4e 20 54 48 52 45 |"..   GI|VEN THRE|
|000000a0| 45 20 50 4f 53 54 53 2e | 20 54 48 45 20 46 49 52 |E POSTS.| THE FIR|
|000000b0| 53 54 20 48 41 53 20 41 | 00 0a 35 30 20 50 52 49 |ST HAS A|..50 PRI|
|000000c0| 4e 54 22 53 54 41 43 4b | 20 4f 46 20 46 4c 41 54 |NT"STACK| OF FLAT|
|000000d0| 20 52 49 4e 47 53 20 4f | 52 20 48 4f 4c 45 44 20 | RINGS O|R HOLED |
|000000e0| 44 49 53 43 53 2e 20 54 | 48 45 00 0a 36 30 20 50 |DISCS. T|HE..60 P|
|000000f0| 52 49 4e 54 22 44 49 41 | 4d 45 54 45 52 20 4f 46 |RINT"DIA|METER OF|
|00000100| 20 45 41 43 48 20 49 53 | 20 4c 41 52 47 45 52 20 | EACH IS| LARGER |
|00000110| 54 48 41 4e 20 54 48 45 | 20 4f 4e 45 20 41 42 4f |THAN THE| ONE ABO|
|00000120| 56 45 2e 00 0a 37 30 20 | 50 52 49 4e 54 22 11 11 |VE...70 |PRINT"..|
|00000130| 11 20 20 20 50 52 4f 42 | 4c 45 4d 3a 00 0a 38 30 |.   PROB|LEM:..80|
|00000140| 20 50 52 49 4e 54 22 11 | 20 20 57 49 54 48 20 54 | PRINT".|  WITH T|
|00000150| 48 45 20 41 49 44 20 4f | 46 20 54 48 45 20 53 45 |HE AID O|F THE SE|
|00000160| 43 4f 4e 44 20 50 4f 53 | 54 2c 20 4d 4f 56 45 00 |COND POS|T, MOVE.|
|00000170| 0a 39 30 20 50 52 49 4e | 54 22 41 4c 4c 20 44 49 |.90 PRIN|T"ALL DI|
|00000180| 53 43 53 20 54 4f 20 54 | 48 45 20 54 48 49 52 44 |SCS TO T|HE THIRD|
|00000190| 20 57 49 54 48 4f 55 54 | 20 50 4c 41 43 49 4e 47 | WITHOUT| PLACING|
|000001a0| 00 0a 31 30 30 20 50 52 | 49 4e 54 22 41 4e 59 20 |..100 PR|INT"ANY |
|000001b0| 41 42 4f 56 45 20 41 20 | 53 4d 41 4c 4c 45 52 20 |ABOVE A |SMALLER |
|000001c0| 4f 4e 45 2e 22 3a 46 4f | 52 52 3d 30 54 4f 31 32 |ONE.":FO|RR=0TO12|
|000001d0| 31 38 31 3a 4e 45 58 54 | 0a 31 31 30 20 50 52 49 |181:NEXT|.110 PRI|
|000001e0| 4e 54 22 11 11 11 96 20 | 20 5b 54 48 45 20 43 4f |NT".... | [THE CO|
|000001f0| 4d 50 55 54 45 52 20 49 | 53 20 41 42 4f 55 54 20 |MPUTER I|S ABOUT |
|00000200| 54 4f 20 53 48 4f 57 20 | 4f 46 46 5d 22 3a 46 4f |TO SHOW |OFF]":FO|
|00000210| 52 52 3d 30 54 4f 33 34 | 35 36 3a 4e 45 58 54 3a |RR=0TO34|56:NEXT:|
|00000220| 50 52 49 4e 54 22 93 05 | 00 0a 31 32 30 20 50 4f |PRINT"..|..120 PO|
|00000230| 4b 45 35 33 32 38 30 2c | 38 3a 50 4f 4b 45 35 33 |KE53280,|8:POKE53|
|00000240| 32 38 31 2c 30 0a 32 30 | 30 20 4e 4d 3d 30 0a 32 |281,0.20|0 NM=0.2|
|00000250| 31 30 20 49 4e 50 55 54 | 22 93 11 11 11 20 20 48 |10 INPUT|"....  H|
|00000260| 4f 57 20 4d 41 4e 59 20 | 44 49 53 43 53 20 28 31 |OW MANY |DISCS (1|
|00000270| 20 54 4f 20 38 29 a0 22 | 3b 4e 24 0a 32 33 30 20 | TO 8)."|;N$.230 |
|00000280| 49 46 4c 45 4e 28 4e 24 | 29 3e 31 54 48 45 4e 32 |IFLEN(N$|)>1THEN2|
|00000290| 31 30 0a 32 34 30 20 4e | 3d 56 41 4c 28 4e 24 29 |10.240 N|=VAL(N$)|
|000002a0| 3a 49 46 4e 3c 31 4f 52 | 4e 3e 38 54 48 45 4e 32 |:IFN<1OR|N>8THEN2|
|000002b0| 31 30 0a 32 35 30 20 50 | 52 49 4e 54 22 11 20 46 |10.250 P|RINT". F|
|000002c0| 49 4e 45 20 21 22 3a 46 | 4f 52 52 3d 30 54 4f 31 |INE !":F|ORR=0TO1|
|000002d0| 31 31 31 3a 4e 45 58 54 | 3a 50 52 49 4e 54 22 93 |111:NEXT|:PRINT".|
|000002e0| 22 3a 50 4f 4b 45 35 33 | 32 38 30 2c 30 0a 33 31 |":POKE53|280,0.31|
|000002f0| 30 20 56 3d 35 33 32 34 | 38 3a 49 46 4e 3d 38 54 |0 V=5324|8:IFN=8T|
|00000300| 48 45 4e 33 32 30 0a 33 | 31 35 20 46 4f 52 53 3d |HEN320.3|15 FORS=|
|00000310| 4e 54 4f 38 3a 50 4f 4b | 45 56 2d 32 2b 32 2a 53 |NTO8:POK|EV-2+2*S|
|00000320| 2c 30 3a 50 4f 4b 45 56 | 2d 31 2b 32 2a 53 2c 30 |,0:POKEV|-1+2*S,0|
|00000330| 3a 4e 45 58 54 0a 33 32 | 30 20 46 4f 52 53 3d 31 |:NEXT.32|0 FORS=1|
|00000340| 54 4f 4e 3a 50 4f 4b 45 | 56 2b 32 31 2c 50 45 45 |TON:POKE|V+21,PEE|
|00000350| 4b 28 56 2b 32 31 29 4f | 52 32 5e 28 53 2d 31 29 |K(V+21)O|R2^(S-1)|
|00000360| 0a 33 33 30 20 50 4f 4b | 45 56 2b 32 33 2c 50 45 |.330 POK|EV+23,PE|
|00000370| 45 4b 28 56 2b 32 33 29 | 4f 52 32 5e 28 53 2d 31 |EK(V+23)|OR2^(S-1|
|00000380| 29 0a 33 34 30 20 50 4f | 4b 45 56 2b 32 39 2c 50 |).340 PO|KEV+29,P|
|00000390| 45 45 4b 28 56 2b 32 39 | 29 4f 52 32 5e 28 53 2d |EEK(V+29|)OR2^(S-|
|000003a0| 31 29 0a 33 35 30 20 50 | 4f 4b 45 56 2b 33 37 2b |1).350 P|OKEV+37+|
|000003b0| 32 2a 53 2c 53 2b 34 0a | 33 36 30 20 50 4f 4b 45 |2*S,S+4.|360 POKE|
|000003c0| 56 2d 32 2b 32 2a 53 2c | 35 30 0a 33 37 30 20 50 |V-2+2*S,|50.370 P|
|000003d0| 4f 4b 45 56 2d 31 2b 32 | 2a 53 2c 32 30 30 0a 33 |OKEV-1+2|*S,200.3|
|000003e0| 37 35 20 56 4c 3d 31 39 | 31 2b 53 0a 33 38 30 20 |75 VL=19|1+S.380 |
|000003f0| 50 4f 4b 45 32 30 33 39 | 2b 53 2c 56 4c 0a 33 38 |POKE2039|+S,VL.38|
|00000400| 35 20 46 4f 52 4b 3d 36 | 34 2a 56 4c 54 4f 36 34 |5 FORK=6|4*VLTO64|
|00000410| 2a 56 4c 2b 36 33 3a 50 | 4f 4b 45 4b 2c 30 3a 4e |*VL+63:P|OKEK,0:N|
|00000420| 45 58 54 0a 33 39 30 20 | 46 4f 52 4b 3d 36 34 2a |EXT.390 |FORK=64*|
|00000430| 56 4c 2b 36 2a 28 53 2d | 31 29 54 4f 36 34 2a 56 |VL+6*(S-|1)TO64*V|
|00000440| 4c 2b 36 2a 28 53 2d 31 | 29 2b 33 53 54 45 50 33 |L+6*(S-1|)+3STEP3|
|00000450| 0a 34 30 30 20 50 4f 4b | 45 4b 2c 32 5e 53 2d 31 |.400 POK|EK,2^S-1|
|00000460| 3a 50 4f 4b 45 4b 2b 31 | 2c 32 35 35 3a 50 4f 4b |:POKEK+1|,255:POK|
|00000470| 45 4b 2b 32 2c 32 35 35 | 2d 28 32 5e 28 38 2d 53 |EK+2,255|-(2^(8-S|
|00000480| 29 2d 31 29 0a 34 33 30 | 20 4e 45 58 54 4b 2c 53 |)-1).430| NEXTK,S|
|00000490| 0a 34 35 30 20 46 4f 52 | 4b 3d 31 54 4f 31 35 3a |.450 FOR|K=1TO15:|
|000004a0| 50 52 49 4e 54 43 48 52 | 24 28 31 37 29 3a 4e 45 |PRINTCHR|$(17):NE|
|000004b0| 58 54 0a 34 36 30 20 46 | 4f 52 4b 3d 31 54 4f 38 |XT.460 F|ORK=1TO8|
|000004c0| 3a 50 52 49 4e 54 54 41 | 42 28 36 29 43 48 52 24 |:PRINTTA|B(6)CHR$|
|000004d0| 28 39 38 29 3b 54 41 42 | 28 31 38 29 43 48 52 24 |(98);TAB|(18)CHR$|
|000004e0| 28 39 38 29 3b 54 41 42 | 28 33 30 29 43 48 52 24 |(98);TAB|(30)CHR$|
|000004f0| 28 39 38 29 0a 34 38 30 | 20 4e 45 58 54 3a 50 52 |(98).480| NEXT:PR|
|00000500| 49 4e 54 3a 50 52 49 4e | 54 54 41 42 28 36 29 22 |INT:PRIN|TTAB(6)"|
|00000510| 31 22 3b 54 41 42 28 31 | 38 29 22 32 22 3b 54 41 |1";TAB(1|8)"2";TA|
|00000520| 42 28 33 30 29 22 33 00 | 0a 34 39 30 20 50 52 49 |B(30)"3.|.490 PRI|
|00000530| 4e 54 43 48 52 24 28 31 | 39 29 0a 35 31 30 20 54 |NTCHR$(1|9).510 T|
|00000540| 28 31 29 3d 32 5e 4e 2d | 31 0a 35 32 30 20 4e 4d |(1)=2^N-|1.520 NM|
|00000550| 3d 4e 4d 2b 31 3a 53 3d | 30 0a 35 33 30 20 44 3d |=NM+1:S=|0.530 D=|
|00000560| 2d 28 28 4e 4d 41 4e 44 | 32 5e 53 29 3d 32 5e 53 |-((NMAND|2^S)=2^S|
|00000570| 29 2a 28 53 2b 31 29 3a | 53 3d 53 2b 31 3a 49 46 |)*(S+1):|S=S+1:IF|
|00000580| 44 3d 30 54 48 45 4e 35 | 33 30 0a 35 34 30 20 54 |D=0THEN5|30.540 T|
|00000590| 46 3d 30 09 0a          |                         |F=0..   |        |
+--------+-------------------------+-------------------------+--------+--------+