PILAS
FILE INFORMATION
FILENAME(S): PILAS
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-10-19 23:07:19
APPEARS ON: 1 disk(s)
FILE HASH
45615267b30bd33d47a2405c61a56a45de163bff9c85a574ae4fa13ea4423d25
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C252B | PILAS | PRG | Bugjam - Argentina | 1 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 00 00 9C 3A 50 4B B2 32 31 00 38 08 |.......:PK.21.8.|
00000010: 01 00 8F 20 48 41 4E 4F 49 20 43 4F 50 59 52 49 |... HANOI COPYRI|
00000020: 47 48 54 20 28 43 29 20 31 39 37 38 20 47 4C 45 |GHT (C) 1978 GLE|
00000030: 4E 20 46 49 53 48 45 52 00 57 08 02 00 8F 20 43 |N FISHER.W.... C|
00000040: 55 52 53 4F 52 20 23 35 2C 20 4E 4F 56 45 4D 42 |URSOR #5, NOVEMB|
00000050: 45 52 20 31 39 37 38 00 78 08 03 00 8F 20 42 4F |ER 1978.x.... BO|
00000060: 58 20 35 35 30 2C 20 47 4F 4C 45 54 41 2C 20 43 |X 550, GOLETA, C|
00000070: 41 2E 20 39 33 30 31 37 00 7E 08 04 00 3A 00 A1 |A. 93017.~...:..|
00000080: 08 50 00 97 20 35 33 32 38 30 2C 31 34 3A 97 20 |.P.. 53280,14:. |
00000090: 35 33 32 38 31 2C 37 3A 99 20 C7 28 31 34 34 29 |53281,7:. .(144)|
000000A0: 20 00 AC 08 5A 00 8D 36 32 30 30 30 00 C6 08 64 | ...Z..62000...d|
000000B0: 00 54 24 B2 22 92 20 92 A4 92 AF 92 B9 92 A2 12 |.T$.". .........|
000000C0: B8 12 B7 12 A3 22 00 E0 08 69 00 42 24 B2 22 12 |....."...i.B$.".|
000000D0: A4 12 AF 12 B9 12 A2 92 B8 92 B7 92 A3 92 20 22 |.............. "|
000000E0: 00 05 09 6E 00 86 54 50 24 28 38 29 2C 54 24 28 |...n..TP$(8),T$(|
000000F0: 38 29 2C 42 54 24 28 38 29 2C 42 24 28 38 29 20 |8),BT$(8),B$(8) |
00000100: 20 20 20 20 20 00 10 09 78 00 81 49 B2 31 A4 38 | ...x..I.1.8|
00000110: 00 4A 09 82 00 43 24 B2 CA 28 54 24 2C 32 AC 49 |.J...C$..(T$,2.I|
00000120: 2C 31 29 3A 43 24 B2 43 24 AA 43 24 AA 43 24 3A |,1):C$.C$.C$.C$:|
00000130: 43 24 B2 43 24 AA 43 24 AA 43 24 3A 43 24 B2 C8 |C$.C$.C$.C$:C$..|
00000140: 28 43 24 AA 43 24 2C 31 34 29 00 66 09 8C 00 54 |(C$.C$,14).f...T|
00000150: 50 24 28 49 29 B2 CA 28 54 24 2C 32 AC 49 AB 31 |P$(I)..(T$,2.I.1|
00000160: 2C 31 29 AA 43 24 00 A0 09 96 00 43 24 B2 CA 28 |,1).C$.....C$..(|
00000170: 42 24 2C 32 AC 49 2C 31 29 3A 43 24 B2 43 24 AA |B$,2.I,1):C$.C$.|
00000180: 43 24 AA 43 24 3A 43 24 B2 43 24 AA 43 24 AA 43 |C$.C$:C$.C$.C$.C|
00000190: 24 3A 43 24 B2 C8 28 43 24 AA 43 24 2C 31 34 29 |$:C$..(C$.C$,14)|
000001A0: 00 BC 09 A0 00 42 54 24 28 49 29 B2 CA 28 42 24 |.....BT$(I)..(B$|
000001B0: 2C 32 AC 49 AB 31 2C 31 29 AA 43 24 00 C3 09 AA |,2.I.1,1).C$....|
000001C0: 00 82 49 00 D7 09 C8 00 4C 24 B2 22 12 20 12 B4 |..I.....L$.". ..|
000001D0: 12 A1 92 AA 92 20 22 00 EB 09 D2 00 52 24 B2 22 |..... ".....R$."|
000001E0: 92 20 92 B4 92 A1 12 AA 12 20 22 00 FE 09 DC 00 |. ....... ".....|
000001F0: 86 4C 46 24 28 35 29 2C 52 54 24 28 35 29 00 36 |.LF$(5),RT$(5).6|
00000200: 0A E6 00 81 49 B2 31 A4 35 3A 4C 46 24 28 49 29 |....I.1.5:LF$(I)|
00000210: B2 CA 28 4C 24 2C 32 AC 49 AB 31 2C 32 29 3A 52 |..(L$,2.I.1,2):R|
00000220: 54 24 28 49 29 B2 CA 28 52 24 2C 32 AC 49 AB 31 |T$(I)..(R$,2.I.1|
00000230: 2C 32 29 3A 82 49 00 44 0A 2C 01 43 52 24 B2 C7 |,2):.I.D.,.CR$..|
00000240: 28 31 33 29 00 71 0A F4 01 99 22 11 48 4F 57 20 |(13).q....".HOW |
00000250: 4D 41 4E 59 20 44 49 53 4B 53 20 28 55 50 20 54 |MANY DISKS (UP T|
00000260: 4F 20 37 29 20 3F 20 22 3B 3A 8D 20 36 30 30 30 |O 7) ? ";:. 6000|
00000270: 30 00 81 0A FE 01 8B 49 4E 24 B2 22 22 A7 35 30 |0......IN$."".50|
00000280: 30 00 91 0A 08 02 81 49 B2 31 A4 C3 28 49 4E 24 |0......I.1..(IN$|
00000290: 29 00 B9 0A 12 02 3A 54 24 B2 CA 28 49 4E 24 2C |).....:T$..(IN$,|
000002A0: 49 2C 31 29 3A 8B 54 24 B1 B2 22 30 22 AF 54 24 |I,1):.T$.."0".T$|
000002B0: B3 B2 22 39 22 A7 35 35 30 00 D9 0A 1C 02 99 22 |.."9".550......"|
000002C0: 4E 4F 20 22 3B 54 24 3B 22 27 53 20 50 4C 45 41 |NO ";T$;"'S PLEA|
000002D0: 53 45 2E 22 3A 89 35 30 30 00 E0 0A 26 02 82 49 |SE.":.500...&..I|
000002E0: 00 16 0B 30 02 4E B2 C5 28 49 4E 24 29 3A 8B 4E |...0.N..(IN$):.N|
000002F0: B1 37 A7 99 22 49 20 43 41 4E 27 54 20 48 41 4E |.7.."I CAN'T HAN|
00000300: 44 4C 45 20 4D 4F 52 45 20 54 48 41 4E 20 37 2E |DLE MORE THAN 7.|
00000310: 22 3A 89 35 30 30 00 3C 0B 3A 02 8B 4E B3 32 A7 |":.500.<.:..N.2.|
00000320: 99 22 44 4F 4E 27 54 20 42 45 20 52 49 44 49 43 |."DON'T BE RIDIC|
00000330: 55 4C 4F 55 53 21 22 3A 89 35 30 30 00 5C 0B 84 |ULOUS!":.500.\..|
00000340: 03 44 4E 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.DN$."..........|
00000350: 11 11 11 11 11 11 11 11 11 11 11 22 00 75 0B 8E |...........".u..|
00000360: 03 52 54 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.RT$."..........|
00000370: 1D 1D 1D 1D 22 00 96 0B E8 03 81 49 B2 31 A4 33 |...."......I.1.3|
00000380: 3A 81 4A B2 30 A4 37 3A 50 28 49 2C 4A 29 B2 30 |:.J.0.7:P(I,J).0|
00000390: 3A 82 4A 3A 82 49 00 B1 0B 4C 04 99 22 93 22 3B |:.J:.I...L..".";|
000003A0: 44 4E 24 3B 22 12 22 3B 3A 50 28 31 2C 30 29 B2 |DN$;".";:P(1,0).|
000003B0: 4E 00 EC 0B 56 04 81 49 B2 31 A4 33 3A 99 22 20 |N...V..I.1.3:." |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 20 20 20 20 20 20 20 22 3B 3A 82 49 00 1C 0C 60 | ";:.I...`|
000003F0: 04 99 44 4E 24 3B 22 11 12 1D 1D 1D 1D 1D 1D 23 |..DN$;"........#|
00000400: 31 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 23 32 1D 1D |1...........#2..|
00000410: 1D 1D 1D 1D 1D 1D 1D 1D 1D 23 33 22 00 35 0C 7E |.........#3".5.~|
00000420: 04 99 44 4E 24 3B C8 28 22 91 91 91 91 91 91 91 |..DN$;.(".......|
00000430: 22 2C 4E 29 3B 00 40 0C 88 04 81 49 B2 31 A4 4E |",N);.@....I.1.N|
00000440: 00 6F 0C 92 04 99 C8 28 22 92 22 AA 52 54 24 2C |.o.....(".".RT$,|
00000450: 37 AB 49 AA 31 29 3B C8 28 22 12 CC 22 AA 42 54 |7.I.1);.("..".BT|
00000460: 24 28 31 29 2C 32 AC 49 AA 31 29 3B 22 BA 22 00 |$(1),2.I.1);".".|
00000470: 82 0C 9C 04 50 28 31 2C 4E AB 49 AA 31 29 B2 49 |....P(1,N.I.1).I|
00000480: AC 32 00 89 0C A6 04 82 49 00 92 0C 08 07 4D 56 |.2......I.....MV|
00000490: B2 30 00 9F 0C 6C 07 54 4D B2 54 49 AA 36 30 00 |.0...l.TM.TI.60.|
000004A0: AF 0C 76 07 8B 54 49 B3 54 4D A7 31 39 31 30 00 |..v..TI.TM.1910.|
000004B0: B9 0C 9E 07 8D 38 30 30 30 00 E9 0C D0 07 50 52 |.....8000.....PR|
000004C0: 24 B2 22 11 46 52 4F 4D 20 57 48 49 43 48 20 50 |$.".FROM WHICH P|
000004D0: 49 4C 45 3F 20 22 3A 8D 35 30 30 30 3A 8B 49 4E |ILE? ":.5000:.IN|
000004E0: 24 B2 22 22 A7 31 39 35 30 00 F6 0C DA 07 46 B2 |$."".1950.....F.|
000004F0: C5 28 49 4E 24 29 00 21 0D E4 07 8B 50 28 46 2C |.(IN$).!....P(F,|
00000500: 30 29 B3 31 A7 99 22 54 48 41 54 20 50 49 4C 45 |0).1.."THAT PILE|
00000510: 20 49 53 20 45 4D 50 54 59 2E 22 3A 89 31 39 30 | IS EMPTY.":.190|
00000520: 30 00 4E 0D 02 08 50 52 24 B2 22 54 4F 20 57 48 |0.N...PR$."TO WH|
00000530: 49 43 48 20 50 49 4C 45 3F 20 22 3A 8D 35 30 30 |ICH PILE? ":.500|
00000540: 30 3A 8B 49 4E 24 B2 22 22 A7 31 39 35 30 00 5B |0:.IN$."".1950.[|
00000550: 0D 0C 08 54 B2 C5 28 49 4E 24 29 00 85 0D 16 08 |...T..(IN$).....|
00000560: 8B 46 B2 54 A7 99 22 54 48 41 54 20 4D 4F 56 45 |.F.T.."THAT MOVE|
00000570: 20 44 4F 45 53 20 4E 4F 54 48 49 4E 47 2E 22 3A | DOES NOTHING.":|
00000580: 89 31 39 30 30 00 98 0D 20 08 8B 50 28 54 2C 30 |.1900... ..P(T,0|
00000590: 29 B2 30 A7 32 31 30 30 00 CC 0D 2A 08 8B 50 28 |).0.2100...*..P(|
000005A0: 46 2C 50 28 46 2C 30 29 29 B1 50 28 54 2C 50 28 |F,P(F,0)).P(T,P(|
000005B0: 54 2C 30 29 29 A7 99 22 49 54 20 57 4F 4E 27 54 |T,0)).."IT WON'T|
000005C0: 20 46 49 54 2E 22 3A 89 31 39 30 30 00 02 0E 34 | FIT.":.1900...4|
000005D0: 08 46 43 B2 50 28 46 2C 30 29 3A 46 57 B2 50 28 |.FC.P(F,0):FW.P(|
000005E0: 46 2C 46 43 29 3A 54 43 B2 50 28 54 2C 30 29 3A |F,FC):TC.P(T,0):|
000005F0: 54 57 B2 50 28 54 2C 54 43 29 3A 4D 56 B2 4D 56 |TW.P(T,TC):MV.MV|
00000600: AA 31 00 1A 0E 3E 08 58 B2 31 AA 31 33 AC 28 46 |.1...>.X.1.13.(F|
00000610: AB 31 29 AA 37 AB 46 57 AD 32 00 4E 0E 48 08 99 |.1).7.FW.2.N.H..|
00000620: 20 44 4E 24 3B C8 28 22 91 91 91 91 91 91 91 91 | DN$;.("........|
00000630: 91 22 2C 46 43 AA 31 29 3B C8 28 22 92 22 AA 52 |.",FC.1);.(".".R|
00000640: 54 24 AA 52 54 24 AA 52 54 24 2C 58 29 3B 00 70 |T$.RT$.RT$,X);.p|
00000650: 0E 4D 08 4C 46 24 B2 C8 28 22 11 9D 9D 9D 9D 9D |.M.LF$..("......|
00000660: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 2C 46 57 AA 31 29 |.........",FW.1)|
00000670: 00 A9 0E 52 08 81 49 B2 31 A4 20 38 3A 54 24 28 |...R..I.1. 8:T$(|
00000680: 49 29 B2 C8 28 54 50 24 28 49 29 2C 31 AA 46 57 |I)..(TP$(I),1.FW|
00000690: 29 3A 42 24 28 49 29 B2 C8 28 42 54 24 28 49 29 |):B$(I)..(BT$(I)|
000006A0: 2C 31 AA 46 57 29 3A 82 49 00 C0 0E 57 08 48 54 |,1.FW):.I...W.HT|
000006B0: B2 30 3A 4A B2 31 3A 8B 46 B1 54 A7 4A B2 AB 31 |.0:J.1:.F.T.J..1|
000006C0: 00 CD 0E 5C 08 81 49 B2 46 A4 54 A9 4A 00 E6 0E |...\..I.F.T.J...|
000006D0: 61 08 8B 50 28 49 2C 30 29 B1 48 54 A7 48 54 B2 |a..P(I,0).HT.HT.|
000006E0: 50 28 49 2C 30 29 00 ED 0E 66 08 82 49 00 0A 0F |P(I,0)...f..I...|
000006F0: 6B 08 8B 48 54 B2 50 28 54 2C 30 29 A7 48 54 B2 |k..HT.P(T,0).HT.|
00000700: 48 54 AA 31 3A 89 32 31 36 35 00 2B 0F 70 08 8B |HT.1:.2165.+.p..|
00000710: B6 28 46 AB 54 29 B1 31 A7 8B 48 54 B2 50 28 32 |.(F.T).1..HT.P(2|
00000720: 2C 30 29 A7 48 54 B2 48 54 AA 31 00 38 0F 75 08 |,0).HT.HT.1.8.u.|
00000730: 81 49 B2 46 43 A4 48 54 00 45 0F 7A 08 3A 81 20 |.I.FC.HT.E.z.:. |
00000740: 4A B2 31 A4 38 00 65 0F 7F 08 3A 99 54 24 28 4A |J.1.8.e...:.T$(J|
00000750: 29 3B 4C 46 24 3B 42 24 28 4A 29 3B 4C 46 24 3B |);LF$;B$(J);LF$;|
00000760: 22 91 91 22 3B 00 6D 0F 84 08 3A 82 4A 00 78 0F |"..";.m...:.J.x.|
00000770: 89 08 3A 99 22 91 22 3B 00 7F 0F 8E 08 82 49 00 |..:.".";......I.|
00000780: 89 0F 93 08 99 22 11 22 3B 00 BA 0F 98 08 4C 24 |.....".";.....L$|
00000790: B2 C8 28 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |..("............|
000007A0: 9D 9D 9D 9D 22 2C 31 AA 46 57 29 3A 52 24 B2 C8 |....",1.FW):R$..|
000007B0: 28 52 54 24 2C 46 57 AB 31 29 00 FA 0F 99 08 99 |(RT$,FW.1)......|
000007C0: 22 12 22 3B C8 28 22 20 20 20 20 20 20 20 20 20 |".";.(" |
000007D0: 20 20 20 20 20 20 20 22 2C 46 57 29 3B 22 92 22 | ",FW);"."|
000007E0: 3B C8 28 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |;.("............|
000007F0: 9D 9D 9D 9D 22 2C 46 57 29 3B 00 08 10 9D 08 8B |....",FW);......|
00000800: 46 B1 54 A7 32 32 35 30 00 1B 10 A2 08 81 49 B2 |F.T.2250......I.|
00000810: 46 AC 31 33 A4 54 AC 31 33 AB 31 00 27 10 A7 08 |F.13.T.13.1.'...|
00000820: 3A 81 4A B2 31 A4 35 00 41 10 AC 08 99 4C 46 24 |:.J.1.5.A....LF$|
00000830: 28 4A 29 3B 52 24 3B 52 54 24 28 4A 29 3B 4C 24 |(J);R$;RT$(J);L$|
00000840: 3B 00 48 10 B1 08 82 4A 00 52 10 B2 08 99 22 1D |;.H....J.R....".|
00000850: 22 3B 00 59 10 B6 08 82 49 00 63 10 BB 08 89 32 |";.Y....I.c....2|
00000860: 33 30 30 00 76 10 CA 08 81 49 B2 54 AC 31 33 A4 |300.v....I.T.13.|
00000870: 46 AC 31 33 AB 31 00 80 10 CF 08 99 22 9D 22 3B |F.13.1......".";|
00000880: 00 8F 10 D4 08 3A 81 4A B2 35 A4 31 A9 AB 31 00 |.....:.J.5.1..1.|
00000890: AB 10 D9 08 3A 3A 99 4C 46 24 28 4A 29 3B 52 24 |....::.LF$(J);R$|
000008A0: 3B 52 54 24 28 4A 29 3B 4C 24 3B 00 B3 10 DE 08 |;RT$(J);L$;.....|
000008B0: 3A 82 4A 00 BA 10 E3 08 82 49 00 CC 10 FC 08 81 |:.J......I......|
000008C0: 49 B2 48 54 AB 31 A4 54 43 A9 AB 31 00 DB 10 06 |I.HT.1.TC..1....|
000008D0: 09 3A 81 4A B2 38 A4 31 A9 AB 31 00 FB 10 10 09 |.:.J.8.1..1.....|
000008E0: 3A 99 54 24 28 4A 29 3B 4C 46 24 3B 42 24 28 4A |:.T$(J);LF$;B$(J|
000008F0: 29 3B 4C 46 24 3B 22 91 91 22 3B 00 03 11 1A 09 |);LF$;"..";.....|
00000900: 3A 82 4A 00 0E 11 24 09 3A 99 22 11 22 3B 00 15 |:.J...$.:.".";..|
00000910: 11 2E 09 82 49 00 32 11 6A 09 99 C8 28 22 12 CC |....I.2.j...("..|
00000920: 22 AA 42 54 24 28 31 29 2C 46 57 AA 31 29 3B 22 |".BT$(1),FW.1);"|
00000930: BA 22 00 46 11 C4 09 50 28 54 2C 30 29 B2 50 28 |.".F...P(T,0).P(|
00000940: 54 2C 30 29 AA 31 00 62 11 CE 09 50 28 54 2C 50 |T,0).1.b...P(T,P|
00000950: 28 54 2C 30 29 29 B2 50 28 46 2C 50 28 46 2C 30 |(T,0)).P(F,P(F,0|
00000960: 29 29 00 76 11 D8 09 50 28 46 2C 30 29 B2 50 28 |)).v...P(F,0).P(|
00000970: 46 2C 30 29 AB 31 00 94 11 28 0A 8B 50 28 32 2C |F,0).1...(..P(2,|
00000980: 30 29 B3 B1 4E AF 50 28 33 2C 30 29 B3 B1 4E A7 |0)..N.P(3,0)..N.|
00000990: 31 39 30 30 00 9E 11 8C 0A 8D 38 30 30 30 00 BF |1900......8000..|
000009A0: 11 96 0A 99 22 11 11 11 20 20 20 20 20 20 20 20 |...."... |
000009B0: AC A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 BB 22 00 |..............".|
000009C0: DF 11 A0 0A 99 22 20 20 20 20 20 20 20 20 12 A1 |....." ..|
000009D0: 59 4F 55 20 44 49 44 20 49 54 21 21 92 A1 22 00 |YOU DID IT!!..".|
000009E0: FF 11 AA 0A 99 22 20 20 20 20 20 20 20 20 BC 12 |....." ..|
000009F0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 92 BE 22 00 |..............".|
00000A00: 37 12 B4 0A 99 22 11 49 54 20 54 4F 4F 4B 20 59 |7....".IT TOOK Y|
00000A10: 4F 55 22 3B 4D 56 3B C8 28 22 4D 4F 56 45 53 22 |OU";MV;.("MOVES"|
00000A20: 2C 35 AA 28 4D 56 B2 31 29 29 3B 22 20 54 4F 20 |,5.(MV.1));" TO |
00000A30: 44 4F 20 49 54 2E 22 00 66 12 BE 0A 54 B2 32 AE |DO IT.".f...T.2.|
00000A40: 4E AB 31 3A 99 22 11 54 48 45 20 53 48 4F 52 54 |N.1:.".THE SHORT|
00000A50: 45 53 54 20 50 4F 53 53 49 42 4C 45 20 53 4F 4C |EST POSSIBLE SOL|
00000A60: 55 54 49 4F 4E 22 00 8C 12 C8 0A 99 22 4E 45 45 |UTION"......"NEE|
00000A70: 44 53 22 3B 54 3B C8 28 22 4D 4F 56 45 53 22 2C |DS";T;.("MOVES",|
00000A80: 35 AA 28 54 B2 31 29 29 3B 22 2E 22 00 A9 12 D2 |5.(T.1));"."....|
00000A90: 0A 99 22 11 50 4C 41 59 20 41 47 41 49 4E 3F 20 |..".PLAY AGAIN? |
00000AA0: 22 3B 3A 8D 36 30 30 30 30 00 BE 12 DC 0A 8B C8 |";:.60000.......|
00000AB0: 28 49 4E 24 2C 31 29 B3 B1 22 59 22 A7 80 00 C4 |(IN$,1).."Y"....|
00000AC0: 12 E6 0A 8A 00 CA 12 F0 0A 80 00 D4 12 88 13 99 |................|
00000AD0: 50 52 24 3B 00 E9 12 92 13 8D 36 30 30 30 30 3A |PR$;......60000:|
00000AE0: 8B 49 4E 24 B2 22 22 A7 8E 00 FD 12 97 13 8B C8 |.IN$."".........|
00000AF0: 28 49 4E 24 2C 31 29 B2 22 51 22 A7 80 00 10 13 |(IN$,1)."Q".....|
00000B00: 98 13 8B C3 28 49 4E 24 29 B1 31 A7 35 30 33 30 |....(IN$).1.5030|
00000B10: 00 29 13 9C 13 8B 49 4E 24 B1 B2 22 31 22 AF 49 |.)....IN$.."1".I|
00000B20: 4E 24 B3 B2 22 33 22 A7 8E 00 46 13 A6 13 99 22 |N$.."3"...F...."|
00000B30: 54 48 45 52 45 27 53 20 4E 4F 20 53 55 43 48 20 |THERE'S NO SUCH |
00000B40: 50 49 4C 45 2E 22 00 56 13 B0 13 81 49 B2 31 A4 |PILE.".V....I.1.|
00000B50: 35 30 30 3A 82 49 00 74 13 BA 13 99 22 91 20 20 |500:.I.t....". |
00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B70: 20 20 20 22 00 B7 13 C4 13 99 22 91 91 22 3B 50 | "......"..";P|
00000B80: 52 24 3B C8 28 22 20 20 20 20 20 20 20 20 20 20 |R$;.(" |
00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C | ",|
00000BB0: C3 28 49 4E 24 29 29 00 C7 13 CE 13 99 22 91 22 |.(IN$))......"."|
00000BC0: 3B 3A 89 35 30 30 30 00 D1 13 40 1F 99 22 13 22 |;:.5000...@.."."|
00000BD0: 3B 00 0A 14 4A 1F 81 49 B2 31 A4 34 3A 99 22 20 |;...J..I.1.4:." |
00000BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C00: 20 20 20 20 20 20 22 3A 82 49 00 14 14 54 1F 99 | ":.I...T..|
00000C10: 22 13 22 3B 00 1A 14 5E 1F 8E 00 23 14 28 23 99 |".";...^...#.(#.|
00000C20: 22 13 22 00 44 14 60 EA 49 4E 24 B2 22 20 22 3A |".".D.`.IN$." ":|
00000C30: 5A 54 B2 54 49 3A 5A 43 B2 32 3A 5A 44 24 B2 C7 |ZT.TI:ZC.2:ZD$..|
00000C40: 28 32 30 29 00 5B 14 6A EA A1 5A 24 3A 8B 20 5A |(20).[.j..Z$:. Z|
00000C50: 24 B3 B1 22 22 A7 36 30 30 37 30 00 8B 14 74 EA |$.."".60070...t.|
00000C60: 8B 5A 54 B3 B2 54 49 A7 99 CA 28 22 20 A6 22 2C |.ZT..TI...(" .",|
00000C70: 5A 43 2C 31 29 3B 22 9D 22 3B 3A 5A 43 B2 33 AB |ZC,1);".";:ZC.3.|
00000C80: 5A 43 3A 5A 54 B2 54 49 AA 31 35 00 96 14 7E EA |ZC:ZT.TI.15...~.|
00000C90: 89 36 30 30 31 30 00 C6 14 A6 EA 5A B2 C6 28 5A |.60010.....Z..(Z|
00000CA0: 24 29 3A 5A 4C B2 C3 28 49 4E 24 29 3A 8B 28 5A |$):ZL..(IN$):.(Z|
00000CB0: AF 31 32 37 29 B3 33 32 A7 99 22 20 9D 22 3B 3A |.127).32.." .";:|
00000CC0: 89 36 30 31 31 30 00 F6 14 B0 EA 8B 46 4C AF 28 |.60110......FL.(|
00000CD0: 5A AF 31 32 37 29 B1 36 34 AF 28 5A AF 31 32 37 |Z.127).64.(Z.127|
00000CE0: 29 B3 39 31 A7 5A 24 B2 C7 28 28 5A AA 31 32 38 |).91.Z$..((Z.128|
00000CF0: 29 AF 32 35 35 29 00 08 15 BA EA 8B 5A 4C B1 32 |).255)......ZL.2|
00000D00: 35 34 A7 36 30 30 31 30 00 23 15 C4 EA 49 4E 24 |54.60010.#...IN$|
00000D10: B2 49 4E 24 AA 5A 24 3A 99 5A 24 3B 5A 44 24 3B |.IN$.Z$:.Z$;ZD$;|
00000D20: 5A 24 3B 00 42 15 CE EA 8B 5A B2 31 33 A7 49 4E |Z$;.B....Z.13.IN|
00000D30: 24 B2 CA 28 49 4E 24 2C 32 29 3A 99 43 52 24 3B |$..(IN$,2):.CR$;|
00000D40: 3A 8E 00 6E 15 D8 EA 8B 5A B2 32 30 AF 5A 4C B1 |:..n....Z.20.ZL.|
00000D50: 31 A7 49 4E 24 B2 C8 28 49 4E 24 2C 5A 4C AB 31 |1.IN$..(IN$,ZL.1|
00000D60: 29 3A 99 22 9D 22 3B 3A 89 36 30 30 31 30 00 A1 |):.".";:.60010..|
00000D70: 15 E2 EA 8B 5A B2 31 34 31 A7 5A 24 B2 C7 28 AB |....Z.141.Z$..(.|
00000D80: 32 30 AC 28 5A 4C B1 31 29 29 3A 81 5A B2 32 A4 |20.(ZL.1)):.Z.2.|
00000D90: 5A 4C 3A 99 5A 24 3B 3A 82 5A 3A 89 36 30 30 30 |ZL:.Z$;:.Z:.6000|
00000DA0: 30 00 AC 15 EC EA 89 36 30 30 31 30 00 BD 15 28 |0......60010...(|
00000DB0: EB 8B 50 4E B2 30 A7 89 36 30 32 35 30 00 D9 15 |..PN.0..60250...|
00000DC0: 32 EB 99 22 11 50 52 45 53 53 20 12 52 45 54 55 |2..".PRESS .RETU|
00000DD0: 52 4E 92 20 54 4F 20 22 3B 00 F6 15 3C EB 8B 50 |RN. TO ";...<..P|
00000DE0: 4E B2 4C 50 A7 99 22 42 45 47 49 4E 3A 22 3B 3A |N.LP.."BEGIN:";:|
00000DF0: 89 36 30 32 34 30 00 08 16 46 EB 99 22 43 4F 4E |.60240...F.."CON|
00000E00: 54 49 4E 55 45 3A 22 3B 00 1D 16 50 EB A1 54 24 |TINUE:";...P..T$|
00000E10: 3A 8B 54 24 B2 22 22 A7 36 30 32 34 30 00 3F 16 |:.T$."".60240.?.|
00000E20: 5A EB 8B 50 4E B2 4C 50 A7 97 35 33 32 37 32 2C |Z..PN.LP..53272,|
00000E30: 50 4B 3A 9C 3A 99 22 93 22 3B 3A 89 31 30 30 00 |PK:.:.".";:.100.|
00000E40: 82 16 64 EB 50 4E B2 50 4E AA 31 3A 99 22 93 22 |..d.PN.PN.1:."."|
00000E50: 3B 50 47 24 3B 22 20 2D 20 43 D5 D2 D3 CF D2 20 |;PG$;" - C..... |
00000E60: 23 22 3B 4E 4D 24 3B 22 20 20 28 43 29 20 31 39 |#";NM$;" (C) 19|
00000E70: 37 38 20 20 20 20 50 C1 C7 C5 22 3B 50 4E 3B 22 |78 P...";PN;"|
00000E80: 11 22 00 88 16 6E EB 8E 00 A7 16 30 F2 50 47 24 |."...n.....0.PG$|
00000E90: B2 22 48 41 4E 4F 49 22 3A 4C 50 B2 31 3A 43 52 |."HANOI":LP.1:CR|
00000EA0: 24 B2 C7 28 31 33 29 00 B5 16 3A F2 97 35 33 32 |$..(13)...:..532|
00000EB0: 37 32 2C 32 33 00 E5 16 44 F2 99 22 93 11 11 11 |72,23...D.."....|
00000EC0: 43 55 52 53 4F 52 20 23 35 20 2D 20 48 41 4E 4F |CURSOR #5 - HANO|
00000ED0: 49 20 20 C3 CF D0 D9 D2 C9 C7 C8 D4 20 28 43 29 |I ......... (C)|
00000EE0: 20 31 39 37 38 00 0C 17 49 F2 99 22 11 C1 CE C9 | 1978...I.."....|
00000EF0: CD C1 D4 C5 C4 A0 D4 CF D7 C5 D2 D3 A0 CF C6 A0 |................|
00000F00: C8 C1 CE CF C9 A0 D0 D5 DA DA CC C5 00 2E 17 4E |...............N|
00000F10: F2 99 22 11 D7 C1 CE D4 A0 C4 C9 D2 C5 C3 D4 C9 |..".............|
00000F20: CF CE D3 3F 20 22 3B 3A 8D 36 30 30 30 30 00 47 |...? ";:.60000.G|
00000F30: 17 58 F2 8B C8 28 49 4E 24 2C 31 29 B2 22 59 22 |.X...(IN$,1)."Y"|
00000F40: A7 89 36 32 30 36 30 00 5F 17 62 F2 99 22 93 11 |..62060._.b.."..|
00000F50: 11 11 22 3A 97 35 33 32 37 32 2C 32 31 3A 8E 00 |..":.53272,21:..|
00000F60: 6A 17 6C F2 8D 36 30 32 30 30 00 95 17 76 F2 99 |j.l..60200...v..|
00000F70: 22 D4 C8 C5 A0 CF C2 CA C5 C3 D4 A0 CF C6 A0 D4 |"...............|
00000F80: C8 C9 D3 A0 D0 D5 DA DA CC C5 A0 C9 D3 A0 D4 CF |................|
00000F90: 20 CD CF D6 C5 00 C3 17 80 F2 99 22 C1 A0 D0 C9 | .........."....|
00000FA0: CC C5 A0 CF C6 A0 C4 C9 D3 CB D3 2E 20 C8 CF D7 |............ ...|
00000FB0: C5 D6 C5 D2 2C 20 C1 20 CC C1 D2 C7 C5 D2 A0 C4 |...., . ........|
00000FC0: C9 D3 CB 00 F1 17 8A F2 99 22 CD C1 D9 A0 CE C5 |........."......|
00000FD0: D6 C5 D2 A0 C2 C5 A0 D0 CC C1 C3 C5 C4 A0 CF CE |................|
00000FE0: A0 D4 CF D0 A0 CF C6 A0 C1 A0 D3 CD C1 CC CC C5 |................|
00000FF0: D2 00 FD 17 94 F2 99 22 C4 C9 D3 CB 2E 00 27 18 |......."......'.|
00001000: 9E F2 99 22 11 D4 C8 C5 A0 36 34 A0 D7 C9 CC CC |...".....64.....|
00001010: A0 C1 D3 CB A0 D9 CF D5 A0 C8 CF D7 A0 CD C1 CE |................|
00001020: D9 A0 C4 C9 D3 CB D3 00 50 18 A8 F2 99 22 D9 CF |........P...."..|
00001030: D5 A0 D7 C9 D3 C8 A0 D4 CF A0 D7 CF D2 CB A0 D7 |................|
00001040: C9 D4 C8 2E 20 28 C2 C5 C7 C9 CE CE C5 D2 D3 3A |.... (.........:|
00001050: 00 78 18 B2 F2 99 22 D4 D2 D9 A0 33 20 CF D2 20 |.x...."....3 .. |
00001060: 34 2E 2E 2E 29 2E 20 C9 D4 A0 D7 C9 CC CC A0 D4 |4...). .........|
00001070: C8 C5 CE A0 C4 D2 C1 D7 00 9F 18 BC F2 99 22 C1 |..............".|
00001080: A0 D0 C9 C3 D4 D5 D2 C5 A0 CF C6 A0 D4 C8 C5 A0 |................|
00001090: C4 C9 D3 CB D3 2C 20 C1 CE C4 A0 C1 D3 CB 3A 00 |....., .......:.|
000010A0: CA 18 C6 F2 99 22 27 C6 D2 CF CD A0 D7 C8 C9 C3 |....."'.........|
000010B0: C8 A0 D0 C9 CC C5 3F 27 2E 20 C5 CE D4 C5 D2 A0 |......?'. ......|
000010C0: D4 C8 C5 A0 CE D5 CD C2 C5 D2 00 F3 18 D0 F2 99 |................|
000010D0: 22 CF C6 A0 D4 C8 C5 A0 D0 C9 CC C5 A0 C6 D2 CF |"...............|
000010E0: CD A0 D7 C8 C9 C3 C8 A0 D9 CF D5 A0 D7 C1 CE D4 |................|
000010F0: A0 D4 CF 00 1C 19 DA F2 99 22 D4 C1 CB C5 A0 D4 |........."......|
00001100: C8 C5 A0 D4 CF D0 A0 C4 C9 D3 CB 2E 20 D4 C8 C5 |............ ...|
00001110: CE 2C 20 D9 CF D5 A0 C5 CE D4 C5 D2 00 43 19 E4 |., ..........C..|
00001120: F2 99 22 D4 C8 C5 A0 CE D5 CD C2 C5 D2 A0 CF C6 |..".............|
00001130: A0 D4 C8 C5 A0 D0 C9 CC C5 A0 D7 C8 C5 D2 C5 A0 |................|
00001140: D9 CF D5 00 62 19 EE F2 99 22 D7 C1 CE D4 A0 D4 |....b...."......|
00001150: CF A0 D0 CC C1 C3 C5 A0 D4 C8 C1 D4 A0 C4 C9 D3 |................|
00001160: CB 2E 00 8D 19 F8 F2 99 22 11 D2 C5 CD C5 CD C2 |........".......|
00001170: C5 D2 20 2D 20 D9 CF D5 A0 C1 CC D7 C1 D9 D3 A0 |.. - ...........|
00001180: CD CF D6 C5 A0 CF CE C5 A0 C4 C9 D3 CB 00 B9 19 |................|
00001190: 02 F3 99 22 C1 D4 A0 C1 A0 D4 C9 CD C5 21 20 28 |...".........! (|
000011A0: D4 C8 C5 20 36 34 A0 D7 CF CE 27 D4 A0 CC C5 D4 |... 64....'.....|
000011B0: A0 D9 CF D5 A0 CD C1 CB C5 00 CF 19 0C F3 99 22 |..............."|
000011C0: C9 CC CC C5 C7 C1 CC A0 CD CF D6 C5 D3 29 2E 00 |.............)..|
000011D0: DA 19 16 F3 8D 36 30 32 30 30 00 00 00 00 |.....60200.... |
.......:PK.21.8.... HANOI COPYRIGHT (C)
1978 GLEN FISHER.W.... CURSOR #5, NOVEMB
ER 1978.X.... BOX 550, GOLETA, CA. 93017
.~...:...P.. 53280,14:. 53281,7:. G(144)
...Z..62000.F.D.T$.". .............."..
.I.B$."............... "...N..TP$(8),T$(
8),BT$(8),B$(8) ...X..I.1.8.J...C$.
J(T$,2.I,1):C$.C$.C$.C$:C$.C$.C$.C$:C$.H
(C$.C$,14).F...TP$(I).J(T$,2.I.1,1).C$.
...C$.J(B$,2.I,1):C$.C$.C$.C$:C$.C$.C$.C
$:C$.H(C$.C$,14)... .BT$(I).J(B$,2.I.1,1
).C$.C....I.W.H.L$.". ....... "...R.R$."
. ....... "......LF$(5),RT$(5).6....I.1.
5:LF$(I).J(L$,2.I.1,2):RT$(I).J(R$,2.I.1
,2):.I.D.,.CR$.G(13).Q....".HOW MANY DIS
KS (UP TO 7) ? ";:. 60000......IN$."".50
0......I.1.C(IN$).....:T$.J(IN$,I,1):.T$
.."0".T$.."9".550.Y...."NO ";T$;"'S PLEA
SE.":.500...&..I...0.N.E(IN$):.N.7.."I C
AN'T HANDLE MORE THAN 7.":.500.<.:..N.2.
."DON'T BE RIDICULOUS!":.500.\...DN$."..
...................".U...RT$."..........
...."......I.1.3:.J.0.7:P(I,J).0:.J:.I..
.L..".";DN$;".";:P(1,0).N...V..I.1.3:."
"
;:.I...`..DN$;"........#1...........#2..
.........#3".5.~..DN$;H(".......",N);.@.
...I.1.N.O....H(".".RT$,7.I.1);H(".L".BT
$(1),2.I.1);".".....P(1,N.I.1).I.2......
I.....MV.0...L.TM.TI.60...V..TI.TM.1910.
.....8000...P.PR$.".FROM WHICH PILE? ":.
5000:.IN$."".1950...Z.F.E(IN$).!....P(F,
0).1.."THAT PILE IS EMPTY.":.1900.N...PR
$."TO WHICH PILE? ":.5000:.IN$."".1950.[
...T.E(IN$)......F.T.."THAT MOVE DOES NO
THING.":.1900... ..P(T,0).0.2100.L.*..P(
F,P(F,0)).P(T,P(T,0)).."IT WON'T FIT.":.
1900...4.FC.P(F,0):FW.P(F,FC):TC.P(T,0):
TW.P(T,TC):MV.MV.1...>.X.1.13.(F.1).7.FW
.2.N.H.. DN$;H(".........",FC.1);H(".".R
T$.RT$.RT$,X);.P.M.LF$.H("..............
.",FW.1)...R..I.1. 8:T$(I).H(TP$(I),1.FW
):B$(I).H(BT$(I),1.FW):.I...W.HT.0:J.1:.
F.T.J..1.M.\..I.F.T.J...A..P(I,0).HT.HT.
P(I,0)...F..I...K..HT.P(T,0).HT.HT.1:.21
65.+.P...(F.T).1..HT.P(2,0).HT.HT.1.8.U.
.I.FC.HT.E.Z.:. J.1.8.E..:.T$(J);LF$;B$
(J);LF$;"..";.M...:.J.X...:.".";.....I.
.....".";.....L$.H("................",1.
FW):R$.H(RT$,FW.1)......".";H("
",FW);".";H("................",FW
);......F.T.2250......I.F.13.T.13.1.'...
:.J.1.5.A....LF$(J);R$;RT$(J);L$;.H....J
.R....".";.Y....I.C....2300.V.J..I.T.13.
F.13.1...O..".";...T.:.J.5.1..1...Y.::.L
F$(J);R$;RT$(J);L$;.....:.J......I.L....
I.HT.1.TC..1.....:.J.8.1..1.....:.T$(J);
LF$;B$(J);LF$;"..";.....:.J...$.:.".";..
....I.2.J..H(".L".BT$(1),FW.1);".".F.D.P
(T,0).P(T,0).1.B.N.P(T,P(T,0)).P(F,P(F,0
)).V.X.P(F,0).P(F,0).1...(..P(2,0)..N.P(
3,0)..N.1900......8000......"...
.............."... .." ..YOU DID
IT!!.."......" ................".
7....".IT TOOK YOU";MV;H("MOVES",5.(MV.1
));" TO DO IT.".F...T.2.N.1:.".THE SHORT
EST POSSIBLE SOLUTION"...H.."NEEDS";T;H(
"MOVES",5.(T.1));"."...R..".PLAY AGAIN?
";:.60000......H(IN$,1).."Y"...D.....J..
...T....PR$;......60000:.IN$.""........H
(IN$,1)."Q"........C(IN$).1.5030.)....IN
$.."1".IN$.."3"...F...."THERE'S NO SUCH
PILE.".V....I.1.500:.I.T....".
"...D.."..";PR$;H("
",C(IN$)).
G.N..".";:.5000.Q.@..".";...J..I.1.4:."
":
.I...T..".";...^...#.(#.".".D.`.IN$." ":
ZT.TI:ZC.2:ZD$.G(20).[.J..Z$:. Z$.."".60
070...T..ZT..TI..J(" .",ZC,1);".";:ZC.3.
ZC:ZT.TI.15...~..60010.F...Z.F(Z$):ZL.C(
IN$):.(Z.127).32.." .";:.60110......FL.(
Z.127).64.(Z.127).91.Z$.G((Z.128).255)..
....ZL.254.60010.#.D.IN$.IN$.Z$:.Z$;ZD$;
Z$;.B.N..Z.13.IN$.J(IN$,2):.CR$;:..N.X..
Z.20.ZL.1.IN$.H(IN$,ZL.1):.".";:.60010..
....Z.141.Z$.G(.20.(ZL.1)):.Z.2.ZL:.Z$;:
.Z:.60000......60010...(..PN.0..60250.Y.
2..".PRESS .RETURN. TO ";...<..PN.LP.."B
EGIN:";:.60240...F.."CONTINUE:";...P..T$
:.T$."".60240.?.Z..PN.LP..53272,PK:.:.".
";:.100...D.PN.PN.1:.".";PG$;" - CURSOR
#";NM$;" (C) 1978 PAGE";PN;"."...N..
...0.PG$."HANOI":LP.1:CR$.G(13)...:..532
72,23...D.."....CURSOR #5 - HANOI COPYR
IGHT (C) 1978...I..".ANIMATED TOWERS OF
HANOI PUZZLE...N..".WANT DIRECTIONS? ";:
.60000.G.X..H(IN$,1)."Y"..62060._.B.."..
..":.53272,21:..J.L..60200...V.."THE OBJ
ECT OF THIS PUZZLE IS TO MOVE.C...."A PI
LE OF DISKS. HOWEVER, A LARGER DISK.....
."MAY NEVER BE PLACED ON TOP OF A SMALLE
R......"DISK..'....".THE 64 WILL ASK YOU
HOW MANY DISKS.P...."YOU WISH TO WORK W
ITH. (BEGINNERS:.X...."TRY 3 OR 4...). I
T WILL THEN DRAW......"A PICTURE OF THE
DISKS, AND ASK:.J.F.."'FROM WHICH PILE?'
. ENTER THE NUMBER...P.."OF THE PILE FRO
M WHICH YOU WANT TO...Z.."TAKE THE TOP D
ISK. THEN, YOU ENTER.C...."THE NUMBER OF
THE PILE WHERE YOU.B...."WANT TO PLACE
THAT DISK.......".REMEMBER - YOU ALWAYS
MOVE ONE DISK......"AT A TIME! (THE 64 W
ON'T LET YOU MAKE.O...."ILLEGAL MOVES)..
Z....60200....
> CLICK IMAGE PREVIEW FOR FULL MODAL