BLOCK
FILE INFORMATION
FILENAME(S): BLOCK
FILE TYPE(S): PRG
FILE SIZE: 11.8K
FIRST SEEN: 2025-11-02 22:11:37
APPEARS ON: 4 disk(s)
FILE HASH
14f92614240fb105ec6df4cb79b85a3b7aa08cc056c2d2d4fe93fb8d2fd12b76
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ZOC PD SERVICE | BLOCK | PRG | Treasure Chest - ToGuMi | 8 | 9 | DOWNLOAD FILE |
| S PIELE | BLOCK | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 5 | DOWNLOAD FILE |
| SPIELE | BLOCK | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 5 | DOWNLOAD FILE |
| FREESOFYT DISK N | BLOCK | PRG | Treasure Chest - Wolfgang Rauprich | 8 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 AD 08 0F 00 3A 00 B3 08 |TINE **.....:...|
000000B0: 1E 00 3A 00 CF 08 23 00 8F 20 2B 2B 2B 20 49 4E |..:...#.. +++ IN|
000000C0: 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B 00 |PUT SECTION +++.|
000000D0: E7 08 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 22 |..(..UO,0:UR$.""|
000000E0: 3A 55 49 24 B2 22 22 00 F7 08 2A 00 8B 55 4C B2 |:UI$.""...*..UL.|
000000F0: 30 A7 55 4C B2 38 30 00 01 09 2D 00 97 55 43 2C |0.UL.80...-..UC,|
00000100: 30 00 15 09 32 00 A1 55 49 24 3A 8B 55 49 24 B2 |0...2..UI$:.UI$.|
00000110: 22 22 A7 35 30 00 3F 09 37 00 8B 55 49 24 B2 C7 |"".50.?.7..UI$..|
00000120: 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 |(13)..(UR$)..1..|
00000130: 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 |UC,1:." .";:.85.|
00000140: 52 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 |R.<..UI$..(20).1|
00000150: 30 35 00 66 09 3E 00 8B 20 C3 28 55 52 24 29 B2 |05.f.>.. .(UR$).|
00000160: B1 55 4C A7 35 30 00 8B 09 41 00 8D 31 32 30 3A |.UL.50...A..120:|
00000170: 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |. CHECK FOR VALI|
00000180: 44 20 43 48 41 52 41 43 54 45 52 00 9B 09 46 00 |D CHARACTER...F.|
00000190: 55 52 24 B2 55 52 24 AA 55 49 24 00 A5 09 4B 00 |UR$.UR$.UI$...K.|
000001A0: 99 55 49 24 3B 00 AD 09 50 00 89 35 30 00 D2 09 |.UI$;...P..50...|
000001B0: 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F |U.. +++ CHECK FO|
000001C0: 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B |R HELP REQUEST +|
000001D0: 2B 2B 00 E9 09 5A 00 8B 55 52 24 B2 55 58 24 A7 |++...Z..UR$.UX$.|
000001E0: 8D 39 30 32 3A 89 39 32 30 00 F8 09 5F 00 8B 55 |.902:.920..._..U|
000001F0: 46 B2 31 A7 8D 32 34 30 00 05 0A 64 00 55 46 B2 |F.1..240...d.UF.|
00000200: 30 3A 99 3A 8E 00 1E 0A 66 00 8F 20 2B 2B 20 43 |0:.:....f.. ++ C|
00000210: 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 2F |HECK DELETE ++./|
00000220: 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 |.i...(UR$).1.50.|
00000230: 47 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 |G.n.UR$..(UR$,.(|
00000240: 55 52 24 29 AB 31 29 00 59 0A 73 00 99 22 9D 20 |UR$).1).Y.s..". |
00000250: 20 9D 9D 22 3B 3A 89 35 30 00 80 0A 78 00 8F 20 | ..";:.50...x.. |
00000260: 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |++ CHECK FOR VAL|
00000270: 49 44 20 43 48 41 52 41 43 54 45 52 53 20 2B 2B |ID CHARACTERS ++|
00000280: 00 92 0A 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 |...}...(US$).0.1|
00000290: 35 30 00 A3 0A 82 00 81 55 53 B2 31 A4 C3 28 55 |50......US.1..(U|
000002A0: 53 24 29 00 BA 0A 87 00 8B 55 49 24 B2 CA 28 55 |S$)......UI$..(U|
000002B0: 53 24 2C 55 53 2C 31 29 A7 8E 00 C0 0A 8C 00 82 |S$,US,1)........|
000002C0: 00 CD 0A 91 00 55 49 24 B2 22 22 3A 8E 00 E8 0A |.....UI$."":....|
000002D0: 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 |... ** STANDARD |
000002E0: 49 4E 50 55 54 20 2A 2A 00 F9 0A 98 00 8B C6 28 |INPUT **.......(|
000002F0: 55 49 24 29 B2 34 36 A7 8E 00 0A 0B 9B 00 8B 55 |UI$).46........U|
00000300: 49 24 B2 C7 28 33 32 29 A7 8E 00 27 0B A0 00 8B |I$..(32)...'....|
00000310: C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 |.(UI$).48..(UI$)|
00000320: B1 35 37 A7 31 37 30 00 2D 0B A5 00 8E 00 4A 0B |.57.170.-.....J.|
00000330: AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 |....(UI$).65..(U|
00000340: 49 24 29 B1 39 30 A7 31 38 30 00 50 0B AF 00 8E |I$).90.180.P....|
00000350: 00 74 0B B4 00 8B C6 28 55 49 24 29 B3 31 39 33 |.t.....(UI$).193|
00000360: B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 |..(UI$).218.UI$.|
00000370: 22 22 3A 8E 00 97 0B B9 00 8B C2 28 55 54 29 B2 |"":........(UT).|
00000380: 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 |UU%.UI$..(.(UI$)|
00000390: AB 31 32 38 29 3A 8E 00 9D 0B BB 00 8E 00 AA 0B |.128):..........|
000003A0: BE 00 55 49 24 B2 22 22 3A 8E 00 CF 0B C3 00 55 |..UI$."":......U|
000003B0: 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 |F.1:. +++ HELP R|
000003C0: 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 |OUTINE EXIT +++.|
000003D0: D8 0B C5 00 8D 32 35 30 00 E1 0B C8 00 8D 32 34 |.....250......24|
000003E0: 35 00 00 0C CD 00 81 55 51 B2 55 42 A4 28 55 32 |5......UQ.UB.(U2|
000003F0: 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 |%.256.U1%.U3%.2)|
00000400: 00 1C 0C D2 00 55 51 25 28 55 51 AB 55 42 29 B2 |.....UQ%(UQ.UB).|
00000410: C2 28 55 51 29 3A 82 3A 99 22 93 22 00 2F 0C D7 |.(UQ):.:."."./..|
00000420: 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 |.UZ.1:UV%..(UT).|
00000430: 38 0C D8 00 89 33 30 30 00 7C 0C D9 00 55 5A B2 |8....300.|...UZ.|
00000440: 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B |0:US$.UJ$:UG$.UK|
00000450: 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A 8B C2 |$:UP.UJ:UL.UK:..|
00000460: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000470: 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 B1 0C DC |,6:.53280,14....|
00000480: 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B 3A 97 |.UT$.UL$:.".";:.|
00000490: 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 55 |UT,UV%:.UQ.UB.(U|
000004A0: 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 33 |2%.256.U1%.U3%.3|
000004B0: 29 00 C6 0C E1 00 97 55 51 2C 55 51 25 28 55 51 |)......UQ,UQ%(UQ|
000004C0: AB 55 42 29 3A 82 00 D2 0C E6 00 97 55 31 2C 55 |.UB):.......U1,U|
000004D0: 31 25 00 DE 0C E8 00 97 55 32 2C 55 32 25 00 EA |1%......U2,U2%..|
000004E0: 0C E9 00 97 55 34 2C 55 34 25 00 F8 0C EA 00 97 |....U4,U4%......|
000004F0: 55 33 2C 55 33 25 AB 31 00 00 0D EB 00 89 33 35 |U3,U3%.1......35|
00000500: 00 32 0D F0 00 55 44 25 B2 28 28 55 32 25 AC 32 |.2...UD%.((U2%.2|
00000510: 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 AD |56.U1%.U3%).UB).|
00000520: 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 |40:..(UD$,UD%.1)|
00000530: 3A 8E 00 6D 0D F5 00 99 C8 28 55 44 24 2C 32 34 |:..m.....(UD$,24|
00000540: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |);" |
00000550: 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 20 | . HELP |
00000560: 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 99 0D |COMING . ":....|
00000570: FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 |..U1%..(U1):U2%.|
00000580: C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A |.(U2):U3%..(U3):|
00000590: 55 34 25 B2 C2 28 55 34 29 00 C1 0D FB 00 55 4A |U4%..(U4).....UJ|
000005A0: 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C |$.US$:UK$.UG$:UL|
000005B0: 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 |$.UT$:UJ.UP:UK.U|
000005C0: 4C 00 C7 0D FF 00 8E 00 D8 0D 2C 01 8F 20 2A 2A |L.........,.. **|
000005D0: 20 4D 45 4E 55 20 2A 2A 00 DE 0D 2D 01 3A 00 0D | MENU **...-.:..|
000005E0: 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 3A |....".":.UT,UU%:|
000005F0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00000600: 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 13 0E |81,9:.53280,8...|
00000610: 2F 01 3A 00 30 0E 31 01 99 22 13 20 20 20 20 20 |/.:.0.1..". |
00000620: 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 22 | MENU"|
00000630: 00 5F 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |._.6.." --------|
00000640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00000660: 85 0E 3B 01 99 22 11 11 20 20 20 20 20 20 20 31 |..;..".. 1|
00000670: 2E 20 20 20 41 54 54 52 49 42 55 54 45 20 42 4C |. ATTRIBUTE BL|
00000680: 4F 43 4B 53 22 00 AF 0E 40 01 99 22 11 11 20 20 |OCKS"...@..".. |
00000690: 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E | 2. STUDEN|
000006A0: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |T INSTRUCTIONS".|
000006B0: D9 0E 45 01 99 22 11 11 20 20 20 20 20 20 20 33 |..E..".. 3|
000006C0: 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 |. TEACHER INST|
000006D0: 52 55 43 54 49 4F 4E 53 22 00 F5 0E 4F 01 99 22 |RUCTIONS"...O.."|
000006E0: 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 51 55 |.. 4. QU|
000006F0: 49 54 11 11 22 00 24 0F 54 01 99 22 20 2D 2D 2D |IT..".$.T.." ---|
00000700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000720: 2D 2D 2D 22 00 4F 0F 59 01 99 22 11 11 20 20 20 |---".O.Y..".. |
00000730: 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 4D 42 | PRESS A NUMB|
00000740: 45 52 20 4B 45 59 20 28 31 2D 34 29 20 22 3B 00 |ER KEY (1-4) ";.|
00000750: 77 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 |w.^.UL.1:US$."12|
00000760: 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 |34":.35:. INPUT |
00000770: 52 4F 55 54 49 4E 45 00 82 0F 60 01 55 53 24 B2 |ROUTINE...`.US$.|
00000780: 22 22 00 9F 0F 63 01 91 C5 28 55 52 24 29 8D 31 |""...c...(UR$).1|
00000790: 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 39 36 00 |000,400,500,396.|
000007A0: A8 0F 68 01 89 33 30 30 00 CF 0F 8B 01 8F 20 2A |..h..300...... *|
000007B0: 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 |* RE-ENABLE STOP|
000007C0: 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A 00 | KEY AND END **.|
000007D0: FE 0F 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 31 |......(50003)..1|
000007E0: AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 |..(50003)..160..|
000007F0: 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 28 |(50003)..0.399.(|
00000800: 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 30 |....UU.71:..(500|
00000810: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
00000820: 35 33 32 38 30 2C 31 34 00 34 10 8E 01 99 22 9A |53280,14.4....".|
00000830: 93 22 3A 80 00 3F 10 8F 01 8D 38 37 35 3A 8E 00 |.":..?....875:..|
00000840: 60 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E 54 |`.... ** STUDENT|
00000850: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A | INSTRUCTIONS **|
00000860: 00 8F 10 95 01 99 22 93 22 3A 97 55 54 2C 55 4C |......".":.UT,UL|
00000870: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000880: 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 |3281,0:.53280,0.|
00000890: C8 10 9A 01 55 54 24 B2 22 20 C1 D4 D4 D2 C9 C2 |....UT$." ......|
000008A0: D5 D4 C5 20 C2 CC CF C3 CB D3 22 3A 55 50 B2 30 |... ......":UP.0|
000008B0: 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E |:UG$.".TUDENT .N|
000008C0: 53 54 22 3A 8D 38 35 30 00 F1 10 A4 01 99 22 11 |ST":.850......".|
000008D0: 11 20 D9 4F 55 20 48 41 56 45 20 41 20 42 41 47 |. .OU HAVE A BAG|
000008E0: 20 46 55 4C 4C 20 4F 46 20 42 4C 4F 43 4B 53 2E | FULL OF BLOCKS.|
000008F0: 22 00 2E 11 A6 01 99 22 11 20 D3 4F 4D 45 20 42 |"......". .OME B|
00000900: 4C 4F 43 4B 53 A0 41 52 45 A0 12 53 92 4D 41 4C |LOCKS.ARE..S.MAL|
00000910: 4C 20 41 4E 44 A0 53 4F 4D 45 A0 41 52 45 20 11 |L AND.SOME.ARE .|
00000920: 20 20 20 20 20 12 4C 92 41 52 47 45 2E 22 00 64 | .L.ARGE.".d|
00000930: 11 A8 01 99 22 11 20 D3 4F 4D 45 20 41 52 45 20 |....". .OME ARE |
00000940: 12 52 92 45 44 3B 20 4F 54 48 45 52 53 20 41 52 |.R.ED; OTHERS AR|
00000950: 45 A0 12 59 92 45 4C 4C 4F 57 2C 20 12 42 92 4C |E..Y.ELLOW, .B.L|
00000960: 55 45 2C 22 00 7A 11 AA 01 99 22 20 11 41 4E 44 |UE,".z...." .AND|
00000970: A0 12 47 92 52 45 45 4E 2E 22 00 C1 11 AC 01 99 |..G.REEN."......|
00000980: 22 11 20 D4 48 45 52 45 20 41 52 45 20 12 43 92 |". .HERE ARE .C.|
00000990: 49 52 43 4C 45 53 2C 20 12 53 92 51 55 41 52 45 |IRCLES, .S.QUARE|
000009A0: 53 2C 20 12 54 92 52 49 41 4E 47 4C 45 53 2C 11 |S, .T.RIANGLES,.|
000009B0: 20 20 41 4E 44 A0 12 44 92 49 41 4D 4F 4E 44 53 | AND..D.IAMONDS|
000009C0: 2E 00 E9 11 AE 01 99 22 11 20 C9 20 48 41 56 45 |.......". . HAVE|
000009D0: 20 32 20 4C 4F 4F 50 53 20 4F 46 20 53 54 52 49 | 2 LOOPS OF STRI|
000009E0: 4E 47 2C 20 45 41 43 48 22 00 08 12 AF 01 99 22 |NG, EACH"......"|
000009F0: 11 20 4C 41 42 45 4C 4C 45 44 20 57 49 54 48 20 |. LABELLED WITH |
00000A00: 41 20 43 41 52 44 2E 22 00 1B 12 B0 01 8D 38 33 |A CARD."......83|
00000A10: 35 3A 55 50 B2 31 3A 8D 38 35 30 00 4D 12 B1 01 |5:UP.1:.850.M...|
00000A20: 99 22 20 D4 48 45 20 43 41 52 44 20 4D 49 47 48 |." .HE CARD MIGH|
00000A30: 54 20 53 41 59 20 12 52 45 44 92 2C 20 4F 52 A0 |T SAY .RED., OR.|
00000A40: 12 4E 4F 54 20 43 49 52 43 4C 45 92 22 00 68 12 |.NOT CIRCLE.".h.|
00000A50: B2 01 99 22 11 20 4F 52 20 12 4C 41 52 47 45 92 |...". OR .LARGE.|
00000A60: 20 C5 D4 C3 2E 2E 2E 22 00 94 12 B3 01 99 22 11 | ......"......".|
00000A70: 20 D9 4F 55 20 46 49 47 55 52 45 20 4F 55 54 20 | .OU FIGURE OUT |
00000A80: 57 48 41 54 20 45 41 43 48 20 43 41 52 44 20 53 |WHAT EACH CARD S|
00000A90: 41 59 53 2E 00 C0 12 B4 01 99 22 11 20 D9 4F 55 |AYS.......". .OU|
00000AA0: 20 44 4F 20 54 48 41 54 20 42 59 20 47 49 56 49 | DO THAT BY GIVI|
00000AB0: 4E 47 20 4D 45 20 42 4C 4F 43 4B 53 20 54 4F 22 |NG ME BLOCKS TO"|
00000AC0: 00 DD 12 B6 01 99 22 11 20 50 4C 41 43 45 20 49 |......". PLACE I|
00000AD0: 4E 20 54 48 45 20 4C 4F 4F 50 53 2E 22 00 0D 13 |N THE LOOPS."...|
00000AE0: B8 01 99 22 11 20 C7 49 56 45 20 4D 45 20 41 20 |...". .IVE ME A |
00000AF0: 42 4C 4F 43 4B 20 42 59 20 54 59 50 49 4E 47 20 |BLOCK BY TYPING |
00000B00: 49 54 53 20 49 4E 49 54 49 41 4C 53 22 00 2C 13 |ITS INITIALS".,.|
00000B10: B9 01 99 22 11 20 54 48 45 4E 20 50 52 45 53 53 |...". THEN PRESS|
00000B20: 49 4E 47 20 D2 C5 D4 D5 D2 CE 2E 22 00 5E 13 BA |ING .......".^..|
00000B30: 01 99 22 11 20 3A C5 2E C7 2E 20 12 4C 52 43 92 |..". :.... .LRC.|
00000B40: 20 53 54 41 4E 44 53 20 46 4F 52 20 4C 41 52 47 | STANDS FOR LARG|
00000B50: 45 20 52 45 44 20 43 49 52 43 4C 45 2E 22 00 8E |E RED CIRCLE."..|
00000B60: 13 BC 01 99 22 11 20 D4 4F 20 47 55 45 53 53 20 |....". .O GUESS |
00000B70: 54 48 45 20 49 44 45 4E 54 49 54 59 20 4F 46 20 |THE IDENTITY OF |
00000B80: 41 20 43 41 52 44 20 53 49 4D 50 4C 59 22 00 CC |A CARD SIMPLY"..|
00000B90: 13 BE 01 99 22 11 20 54 59 50 45 20 12 43 41 52 |....". TYPE .CAR|
00000BA0: 44 20 31 20 49 53 20 4E 4F 54 20 44 49 41 4D 4F |D 1 IS NOT DIAMO|
00000BB0: 4E 44 92 20 D2 C5 D4 D5 D2 CE 20 28 46 4F 52 20 |ND. ...... (FOR |
00000BC0: 11 20 45 58 41 4D 50 4C 45 29 2E 22 00 DF 13 BF |. EXAMPLE)."....|
00000BD0: 01 8D 38 33 35 3A 55 50 B2 32 3A 8D 38 35 30 00 |..835:UP.2:.850.|
00000BE0: 0D 14 C0 01 99 22 11 11 20 D4 4F 20 53 45 45 20 |.....".. .O SEE |
00000BF0: 57 48 41 54 20 50 4F 53 53 49 42 49 4C 49 54 49 |WHAT POSSIBILITI|
00000C00: 45 53 20 41 52 45 20 4C 45 46 54 2C 22 00 2D 14 |ES ARE LEFT,".-.|
00000C10: C2 01 99 22 11 20 50 52 45 53 53 20 27 D0 27 20 |...". PRESS '.' |
00000C20: 54 48 45 4E 20 D2 C5 D4 D5 D2 CE 2E 22 00 59 14 |THEN .......".Y.|
00000C30: C4 01 99 22 11 20 D4 4F 20 47 45 54 20 48 45 4C |...". .O GET HEL|
00000C40: 50 20 50 52 45 53 53 20 27 C8 27 20 54 48 45 4E |P PRESS '.' THEN|
00000C50: 20 D2 C5 D4 D5 D2 CE 2E 22 00 62 14 E5 01 8D 38 | .......".b....8|
00000C60: 33 35 00 76 14 EA 01 8B 55 5A B2 31 A7 9E 55 50 |35.v....UZ.1..UP|
00000C70: 25 3A 89 32 31 37 00 7C 14 F3 01 8E 00 9D 14 F4 |%:.217.|........|
00000C80: 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E |.. ** TEACHER IN|
00000C90: 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 CD 14 |STRUCTIONS **...|
00000CA0: F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B |...".":.UT,UL%:.|
00000CB0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000CC0: 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 06 15 |1,2:.53280,10...|
00000CD0: F6 01 55 54 24 B2 22 20 C1 D4 D4 D2 C9 C2 D5 D4 |..UT$." ........|
00000CE0: C5 20 C2 CC CF C3 CB D3 22 3A 55 50 B2 30 3A 55 |. ......":UP.0:U|
00000CF0: 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 |G$.".EACHER .NST|
00000D00: 22 3A 8D 38 35 30 00 34 15 F7 01 99 22 11 11 20 |":.850.4....".. |
00000D10: 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 | .O THE BEST|
00000D20: 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 | OF OUR KNOWLEDG|
00000D30: 45 2C 11 22 00 5D 15 F8 01 99 22 20 20 20 54 48 |E,.".]...." TH|
00000D40: 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E |IS PROGRAM IS IN|
00000D50: 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 89 15 | THE PUBLIC."...|
00000D60: F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 |..." DOMAIN. |
00000D70: C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 |.F THIS IS NOT T|
00000D80: 48 45 20 43 41 53 45 11 22 00 A6 15 FA 01 99 22 |HE CASE."......"|
00000D90: 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 | PLEASE CONTAC|
00000DA0: 54 3A 11 11 11 22 00 D0 15 FB 01 99 22 20 20 20 |T:..."......" |
00000DB0: 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 | .OMMODORE .US|
00000DC0: 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 |INESS .ACHINES."|
00000DD0: 00 F3 15 FC 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000DE0: 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 | 3370 .HARMACY .|
00000DF0: 56 45 2E 00 17 16 FD 01 99 22 20 20 20 20 20 20 |VE......." |
00000E00: 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF | .GINCOURT, .|
00000E10: 4E 54 41 52 49 4F 22 00 39 16 FE 01 99 22 20 20 |NTARIO".9...." |
00000E20: 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 | .ANADA |
00000E30: 20 CD 31 D7 20 32 CB 34 22 00 59 16 FF 01 99 22 | .1. 2.4".Y...."|
00000E40: 20 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 | (416) |
00000E50: 34 39 39 2D 34 32 39 32 22 00 6F 16 00 02 55 50 |499-4292".o...UP|
00000E60: B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 |.1:. 835:. 850:.|
00000E70: 9C 16 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F |....." ...RO|
00000E80: 47 52 41 4D 20 CE 41 4D 45 3A 20 C1 54 54 52 49 |GRAM .AME: .TTRI|
00000E90: 42 55 54 45 20 C2 4C 4F 43 4B 53 11 00 BE 16 02 |BUTE .LOCKS.....|
00000EA0: 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E 20 |.." .RITTEN |
00000EB0: C2 59 20 20 3A 20 D5 4E 4B 4E 4F 57 4E 11 00 E5 |.Y : .NKNOWN...|
00000EC0: 16 03 02 99 22 20 20 20 20 20 D5 50 47 52 41 44 |...." .PGRAD|
00000ED0: 45 44 20 C2 59 20 3A 20 CD 41 52 4B 20 D3 54 45 |ED .Y : .ARK .TE|
00000EE0: 57 41 52 54 11 00 10 17 04 02 99 22 20 20 20 20 |WART......." |
00000EF0: 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 | ..HIS PROGRAM W|
00000F00: 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 |ILL RUN ON ANY..|
00000F10: 00 37 17 05 02 99 22 20 20 20 20 20 20 20 20 20 |.7...." |
00000F20: C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 CF |......2.0 ... ..|
00000F30: CD D0 D5 D4 C5 D2 11 00 5E 17 06 02 99 22 20 20 |........^...." |
00000F40: 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 | ..... 4.0|
00000F50: 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 80 | ...............|
00000F60: 17 07 02 99 22 20 20 20 20 20 20 20 20 20 38 30 |...." 80|
00000F70: 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 11 |32 ... .........|
00000F80: 00 A5 17 08 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000F90: C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD |......... 64 ...|
00000FA0: D0 D5 D4 C5 D2 00 AE 17 09 02 8D 38 33 35 00 C2 |...........835..|
00000FB0: 17 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |.N..UZ.1..UP%:.2|
00000FC0: 31 37 00 C8 17 57 02 8E 00 EE 17 58 02 8F 20 2A |17...W.....X.. *|
00000FD0: 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 |* PROGRAM MODIFI|
00000FE0: 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 FF |CATION INST **..|
00000FF0: 17 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 |.Y..".":.UT,UL%.|
00001000: 1F 18 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 |..].UP.0:UG$.".R|
00001010: 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 |OGRAM .OD":.850.|
00001020: 28 18 94 02 8D 38 33 35 00 3C 18 B2 02 8B 55 5A |(....835.<....UZ|
00001030: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 42 18 BB |.1..UP%:.217.B..|
00001040: 02 8E 00 67 18 BC 02 8F 20 2A 2A 20 54 4F 20 55 |...g.... ** TO U|
00001050: 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D |SE 8032 LOAD CBM|
00001060: 34 30 33 32 20 2A 2A 00 9D 18 C6 02 99 22 93 11 |4032 **......"..|
00001070: 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
00001080: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
00001090: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 D3 18 |N AN 8032 .....|
000010A0: D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 |..." LOAD T|
000010B0: 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 |HE 'CBM 4032' PR|
000010C0: 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 |OGRAM...........|
000010D0: 11 11 22 00 DE 18 DA 02 9E 55 55 AA 37 31 00 E4 |.."......UU.71..|
000010E0: 18 E4 02 80 00 04 19 20 03 8F 20 2A 2A 20 54 20 |....... .. ** T |
000010F0: 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 |I T L E P A G |
00001100: 45 20 2A 2A 00 38 19 22 03 99 22 93 11 1D 05 22 |E **.8.".."...."|
00001110: 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |;:.UT,UU%:..(500|
00001120: 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A |03).0..53280,14:|
00001130: 97 35 33 32 38 31 2C 36 00 4E 19 24 03 81 49 B2 |.53281,6.N.$..I.|
00001140: 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 66 |1.38:."...";:..f|
00001150: 19 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |.&..I.1.22:."...|
00001160: A6 92 22 3B 3A 82 00 7E 19 28 03 81 49 B2 31 A4 |..";:..~.(..I.1.|
00001170: 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 96 |37:.".....";:...|
00001180: 19 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.*..I.1.22:."...|
00001190: A6 92 22 3B 3A 82 00 BB 19 2C 03 99 22 13 11 11 |..";:....,.."...|
000011A0: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000011B0: 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 DD 19 2E 03 |........ ......|
000011C0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000011D0: 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 FE 19 |..... . . .....|
000011E0: 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |0.."............|
000011F0: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 1C |....... . .....|
00001200: 1A 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.2.."...........|
00001210: 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 44 1A 34 |......... ..D.4|
00001220: 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001230: 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 |.C O M M O D O R|
00001240: 20 45 11 11 00 67 1A 36 03 99 22 1D 1D 1D 1D 1D | E...g.6..".....|
00001250: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 |..........EDUCAT|
00001260: 49 4F 4E 41 4C 11 11 00 86 1A 38 03 99 22 1D 1D |IONAL.....8.."..|
00001270: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F |..............SO|
00001280: 46 54 57 41 52 45 00 A1 1A 3A 03 8F 20 2A 2A 20 |FTWARE...:.. ** |
00001290: 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A |COMMODORE LOGO *|
000012A0: 2A 00 D9 1A 3B 03 99 C8 28 55 44 24 2C 32 34 29 |*...;...(UD$,24)|
000012B0: 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |;"..........PRES|
000012C0: 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 |S SPACE BAR OR W|
000012D0: 41 49 54 92 22 3A 49 B2 30 00 FB 1A 3C 03 A1 41 |AIT.":I.0...<..A|
000012E0: 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 |$:.A$.." ".I.I.1|
000012F0: 3A 8B 49 B3 32 35 30 A7 38 32 38 00 1F 1B 3E 03 |:.I.250.828...>.|
00001300: 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 |T1$."":T2$."":T3|
00001310: 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 |$."":T4$."":I.0.|
00001320: 28 1B 40 03 89 33 30 30 00 44 1B 43 03 8F 20 2A |(.@..300.D.C.. *|
00001330: 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 |* SPACE BAR PRES|
00001340: 53 20 2A 2A 00 7F 1B 48 03 97 55 4F 2C 30 3A 99 |S **...H..UO,0:.|
00001350: C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D |.(UD$,24);".....|
00001360: 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 |..PRESS SPACE BA|
00001370: 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 |R TO CONTINUE.".|
00001380: 96 1B 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 |..L..UI$:.UI$.."|
00001390: 20 22 A7 38 34 34 00 9C 1B 4E 03 8E 00 BC 1B 52 | ".844...N.....R|
000013A0: 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 |.. ** PAGE DESIG|
000013B0: 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 C8 1B 54 |N ROUTINE **...T|
000013C0: 03 55 50 B2 55 50 AA 31 00 F2 1B 57 03 99 22 93 |.UP.UP.1...W..".|
000013D0: 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 |".(UT$.UP$,21);.|
000013E0: 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 |(UP$.UG$..(UP),1|
000013F0: 38 29 00 21 1C 5C 03 99 22 20 2D 2D 2D 2D 2D 2D |8).!.\.." ------|
00001400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001420: 22 00 30 1C 60 03 8B 55 48 B3 B1 30 A7 38 37 30 |".0.`..UH..0.870|
00001430: 00 64 1C 61 03 99 C8 28 55 44 24 2C 32 34 29 3B |.d.a...(UD$,24);|
00001440: C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D |.(UP$,7);"HELP -|
00001450: 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 | PRESS H <RETU|
00001460: 52 4E 3E 22 00 76 1C 66 03 97 55 4F 2C 30 3A 99 |RN>".v.f..UO,0:.|
00001470: 22 13 11 22 3A 8E 00 95 1C 6B 03 8F 20 2A 2A 20 |"..":....k.. ** |
00001480: 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 |PLEASE WAIT REMA|
00001490: 52 4B 20 2A 2A 00 CB 1C 70 03 99 C8 28 55 44 24 |RK **...p...(UD$|
000014A0: 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 |,24);" |
000014B0: 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 | ONE MOMENT PLEA|
000014C0: 53 45 2E 2E 2E 20 20 20 20 20 22 00 D1 1C 75 03 |SE... "...u.|
000014D0: 8E 00 EE 1C 84 03 8F 20 2A 2A 20 53 45 54 20 55 |....... ** SET U|
000014E0: 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 39 |P VARIABLES **.9|
000014F0: 1D 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 |...UX$."H":.UQ%(|
00001500: 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 |1000):UB.32768:U|
00001510: 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 |1.196:U2.197:U3.|
00001520: 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 |198:U4.216:UC.16|
00001530: 37 3A 55 55 B2 31 30 32 34 00 77 1D 86 03 55 54 |7:UU.1024.w...UT|
00001540: B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C |.59468:UU%.12:UL|
00001550: 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D |%.14:UP%.1146:UM|
00001560: B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 |.32768:UO.158:. |
00001570: 35 30 30 30 33 2C 30 00 BA 1D 87 03 8B C2 28 35 |50003,0.......(5|
00001580: 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A |0003).0.UB.1024:|
00001590: 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 |U1.209:U2.210:U3|
000015A0: B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 |.211:U4.214:UC.2|
000015B0: 30 34 3A 55 55 B2 32 30 34 38 00 F9 1D 88 03 8B |04:UU.2048......|
000015C0: C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 |.(50003).0.UT.53|
000015D0: 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 |272:UU%.21:UL%.2|
000015E0: 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 |3:UP%.2139:UM.10|
000015F0: 32 34 3A 55 4F B2 31 39 38 00 1D 1E 89 03 55 44 |24:UO.198.....UD|
00001600: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00001610: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 4F 1E |............".O.|
00001620: 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 |..UP$." |
00001630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001650: 55 1E 8C 03 8E 00 6F 1E 8E 03 8F 20 2A 2A 20 53 |U.....o.... ** S|
00001660: 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |ET VARIABLES **.|
00001670: 78 1E 93 03 8D 39 30 30 00 93 1E 98 03 8F 20 2A |x....900...... *|
00001680: 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 |* CHECK FOR 8032|
00001690: 20 2A 2A 00 B1 1E 9D 03 99 22 93 22 3A 99 22 A0 | **......".":.".|
000016A0: 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 |":. SHIFTED SPAC|
000016B0: 45 00 C8 1E A2 03 8B C2 28 55 42 AA 34 30 29 B3 |E.......(UB.40).|
000016C0: B1 39 36 A7 8D 37 30 30 00 E1 1E A3 03 8F 20 2A |.96..700...... *|
000016D0: 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A |* MEMORY CHECK *|
000016E0: 2A 00 F5 1E A4 03 8B 20 B8 28 30 29 B1 32 30 30 |*...... .(0).200|
000016F0: 30 A7 39 33 37 00 23 1F A5 03 99 22 93 11 11 05 |0.937.#...."....|
00001700: 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 |THIS MACHINE DOE|
00001710: 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 |S NOT HAVE ENOUG|
00001720: 48 11 22 00 47 1F A6 03 99 22 4D 45 4D 4F 52 59 |H.".G...."MEMORY|
00001730: 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F | TO RUN THIS PRO|
00001740: 47 52 41 4D 20 21 22 00 52 1F A7 03 9E 55 55 AA |GRAM !".R....UU.|
00001750: 37 31 00 58 1F A8 03 80 00 72 1F A9 03 99 22 93 |71.X.....r....".|
00001760: 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 |.":..(50003).0.9|
00001770: 36 32 00 A1 1F AC 03 8F 20 2A 2A 20 42 41 53 49 |62...... ** BASI|
00001780: 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 |C 2.0 OR 4.0 |
00001790: 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A |OR C-64 SETUP *|
000017A0: 2A 00 DF 1F AD 03 97 31 30 37 35 2C 31 33 33 3A |*......1075,133:|
000017B0: 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C |.1076,144:.1077,|
000017C0: 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 |234:.1079,4:.108|
000017D0: 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 |0,133:.1081,145.|
000017E0: 15 20 AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 |. ...1091,155:.1|
000017F0: 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 |098,133:.1099,14|
00001800: 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 |4:.1100,234:.110|
00001810: 33 2C 31 33 33 00 37 20 AF 03 97 31 31 30 34 2C |3,133.7 ...1104,|
00001820: 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 |145:.1105,234:.1|
00001830: 30 38 32 2C 32 33 34 00 4E 20 B1 03 8B C2 28 35 |082,234.N ....(5|
00001840: 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 7D |0003)..160.955.}|
00001850: 20 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 | ...1093,88:.109|
00001860: 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 |4,228:.1097,85:.|
00001870: 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 92 20 |1102,228:.965.. |
00001880: BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 |....(50003)..1.9|
00001890: 39 30 00 C1 20 C0 03 97 31 30 39 33 2C 34 39 3A |90.. ...1093,49:|
000018A0: 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C |.1094,230:.1097,|
000018B0: 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 |46:.1102,230:.96|
000018C0: 35 00 FB 20 C2 03 97 32 30 39 39 2C 31 34 31 3A |5.. ...2099,141:|
000018D0: 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 |.2100,20:.2101,3|
000018E0: 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 |:.2103,8:.2104,1|
000018F0: 34 31 3A 97 32 31 30 35 2C 32 31 00 37 21 C3 03 |41:.2105,21.7!..|
00001900: 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 |.2106,3:.2115,14|
00001910: 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 |5:.2117,52:.2118|
00001920: 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 |,234:.2121,49:.2|
00001930: 31 32 32 2C 31 34 31 00 71 21 C4 03 97 32 31 32 |122,141.q!...212|
00001940: 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 |3,20:.2124,3:.21|
00001950: 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 |26,234:.2127,141|
00001960: 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C |:.2128,21:.2129,|
00001970: 33 00 8F 21 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 |3..!...UU.48:. D|
00001980: 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 |ISABLE STOP KEY.|
00001990: A0 21 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 |.!...800:. TITLE|
000019A0: 00 B0 21 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 |..!...300:. MENU|
000019B0: 00 E1 21 DE 03 99 22 93 54 48 45 20 50 47 4D 20 |..!...".THE PGM |
000019C0: 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E |WILL NOT WORK ON|
000019D0: 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A | THIS MACHINE!":|
000019E0: 80 00 16 22 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 |..."...UZ.1..UP%|
000019F0: 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 |:.UP%:UZ.0:. ** |
00001A00: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 |PROGRAM STARTS H|
00001A10: 45 52 45 20 2A 2A 00 42 22 E9 03 99 22 93 05 22 |ERE **.B"...".."|
00001A20: 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |;:.:..(50003).0.|
00001A30: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00001A40: 31 34 00 4E 22 4C 04 97 55 54 2C 55 4C 25 00 60 |14.N"L..UT,UL%.`|
00001A50: 22 60 04 8D 20 31 35 37 30 3A 8F 20 49 4E 49 54 |"`.. 1570:. INIT|
00001A60: 00 71 22 6A 04 8D 20 31 32 35 30 3A 8F 20 56 41 |.q"j.. 1250:. VA|
00001A70: 25 00 81 22 74 04 8D 31 33 34 30 3A 8F 49 4E 53 |%.."t..1340:.INS|
00001A80: 54 00 92 22 7E 04 8D 20 31 37 37 30 3A 8F 20 53 |T.."~.. 1770:. S|
00001A90: 43 52 00 AD 22 88 04 8B 43 52 43 54 28 30 29 AF |CR.."...CRCT(0).|
00001AA0: 43 52 43 54 28 31 29 A7 8D 32 38 35 30 00 BF 22 |CRCT(1)..2850.."|
00001AB0: 92 04 8D 20 31 39 38 30 3A 8F 20 43 4F 4D 4D 00 |... 1980:. COMM.|
00001AC0: D1 22 9C 04 8D 20 33 31 36 30 3A 8F 49 4E 50 55 |."... 3160:.INPU|
00001AD0: 54 00 FE 22 A6 04 8F 49 46 4C 45 46 54 24 28 42 |T.."...IFLEFT$(B|
00001AE0: 24 2C 31 29 3D 22 48 22 54 48 45 4E 47 4F 53 55 |$,1)="H"THENGOSU|
00001AF0: 42 32 37 37 30 3A 47 4F 54 4F 31 31 35 30 00 22 |B2770:GOTO1150."|
00001B00: 23 B0 04 8B C8 28 42 24 2C 31 29 B2 22 50 22 A7 |#....(B$,1)."P".|
00001B10: 8D 32 39 36 30 3A 99 3A 8D 38 33 35 3A 89 31 31 |.2960:.:.835:.11|
00001B20: 35 30 00 48 23 BA 04 4D 24 B2 22 49 53 22 3A 8D |50.H#..M$."IS":.|
00001B30: 33 31 30 30 3A 8B 46 4C 41 47 A7 8D 20 32 36 38 |3100:.FLAG.. 268|
00001B40: 30 3A 89 20 31 31 35 30 00 5A 23 C4 04 8D 32 30 |0:. 1150.Z#...20|
00001B50: 33 30 3A 8F 20 42 4C 4F 43 4B 00 64 23 D8 04 89 |30:. BLOCK.d#...|
00001B60: 31 31 35 30 00 72 23 E2 04 8F 49 4E 49 54 20 56 |1150.r#...INIT V|
00001B70: 41 25 00 84 23 EC 04 81 49 B2 30 A4 31 3A 81 4A |A%..#...I.0.1:.J|
00001B80: B2 30 A4 32 00 96 23 F6 04 56 41 25 28 49 2C 4A |.0.2..#..VA%(I,J|
00001B90: 2C 34 29 B2 AB 31 00 9F 23 00 05 82 4A 2C 49 00 |,4)..1..#...J,I.|
00001BA0: B1 23 0A 05 81 49 B2 30 A4 31 3A 81 4B B2 30 A4 |.#...I.0.1:.K.0.|
00001BB0: 32 00 D3 23 14 05 56 41 25 28 49 2C 30 2C 4B 29 |2..#..VA%(I,0,K)|
00001BC0: B2 AB 31 3A 56 41 25 28 49 2C 30 2C 36 AA 4B 29 |..1:VA%(I,0,6.K)|
00001BD0: B2 AB 31 00 DC 23 1E 05 82 4B 2C 49 00 F0 23 28 |..1..#...K,I..#(|
00001BE0: 05 4E 28 30 29 B2 33 32 3A 4E 28 31 29 B2 33 32 |.N(0).32:N(1).32|
00001BF0: 00 F6 23 32 05 8E 00 05 24 3C 05 8F 2D 2D 49 4E |..#2....$<..--IN|
00001C00: 53 54 52 55 43 00 14 24 46 05 97 20 35 39 34 36 |STRUC..$F.. 5946|
00001C10: 38 2C 31 34 00 3E 24 50 05 99 22 93 20 20 20 20 |8,14.>$P..". |
00001C20: 20 20 20 20 20 20 20 20 20 20 20 12 C1 D4 D4 D2 | .....|
00001C30: C9 C2 D5 D4 C5 20 C2 CC CF C3 CB D3 92 22 00 44 |..... .......".D|
00001C40: 24 5A 05 8E 00 4F 24 22 06 8F 49 4E 49 54 49 00 |$Z...O$"..INITI.|
00001C50: 64 24 2C 06 97 20 35 39 34 36 38 2C 31 32 3A 99 |d$,.. 59468,12:.|
00001C60: 22 93 22 3B 00 88 24 4A 06 8C 3A 81 49 B2 30 A4 |".";..$J..:.I.0.|
00001C70: 32 3A 81 4A B2 30 A4 33 3A 87 20 43 4F 24 28 49 |2:.J.0.3:. CO$(I|
00001C80: 2C 4A 29 3A 82 4A 2C 49 00 D3 24 54 06 83 20 4C |,J):.J,I..$T.. L|
00001C90: 41 52 47 45 2C 53 4D 41 4C 4C 2C 2A 2C 2A 2C 52 |ARGE,SMALL,*,*,R|
00001CA0: 45 44 2C 42 4C 55 45 2C 47 52 45 45 4E 2C 59 45 |ED,BLUE,GREEN,YE|
00001CB0: 4C 4C 4F 57 2C 53 51 55 41 52 45 2C 43 49 52 43 |LLOW,SQUARE,CIRC|
00001CC0: 4C 45 2C 54 52 49 41 4E 47 4C 45 2C 44 49 41 4D |LE,TRIANGLE,DIAM|
00001CD0: 4F 4E 44 00 DE 24 5E 06 8F 43 41 52 44 53 00 EB |OND..$^..CARDS..|
00001CE0: 24 68 06 58 B2 BB 28 AB 54 49 29 00 F9 24 72 06 |$h.X..(.TI)..$r.|
00001CF0: 81 20 49 B2 30 20 A4 20 31 00 09 25 7C 06 41 B2 |. I.0 . 1..%|.A.|
00001D00: B5 28 BB 28 31 29 AC 33 29 00 20 25 86 06 8B 20 |.(.(1).3). %... |
00001D10: 41 B2 30 20 A7 20 56 B2 31 3A 89 20 31 36 39 30 |A.0 . V.1:. 1690|
00001D20: 00 32 25 90 06 56 B2 B5 28 BB 28 31 29 AC 34 AA |.2%..V..(.(1).4.|
00001D30: 31 29 00 4D 25 9A 06 50 4E B2 B5 28 BB 28 31 29 |1).M%..PN..(.(1)|
00001D40: AC 32 29 3A 50 4E B2 32 AC 50 4E AB 31 00 6A 25 |.2):PN.2.PN.1.j%|
00001D50: A4 06 43 41 25 28 49 2C 30 29 B2 41 3A 43 41 25 |..CA%(I,0).A:CA%|
00001D60: 28 49 2C 31 29 B2 50 4E AC 56 00 97 25 AE 06 43 |(I,1).PN.V..%..C|
00001D70: 41 24 28 49 2C 31 29 B2 43 4F 24 28 41 2C 56 AB |A$(I,1).CO$(A,V.|
00001D80: 31 29 3A 8B 50 4E B3 30 A7 43 41 24 28 49 2C 30 |1):.PN.0.CA$(I,0|
00001D90: 29 B2 22 4E 4F 54 22 00 C2 25 B8 06 8B 41 B2 30 |)."NOT"..%...A.0|
00001DA0: AF 50 4E B3 30 A7 43 41 24 28 49 2C 30 29 B2 22 |.PN.0.CA$(I,0)."|
00001DB0: 22 3A 43 41 24 28 49 2C 31 29 B2 22 53 4D 41 4C |":CA$(I,1)."SMAL|
00001DC0: 4C 22 00 C9 25 C2 06 82 49 00 FD 25 CC 06 8B 20 |L"..%...I..%... |
00001DD0: 43 41 25 28 30 2C 30 29 B2 43 41 25 28 31 2C 30 |CA%(0,0).CA%(1,0|
00001DE0: 29 20 AF 20 43 41 25 28 30 2C 31 29 B2 43 41 25 |) . CA%(0,1).CA%|
00001DF0: 28 31 2C 31 29 20 A7 20 89 31 36 33 30 00 32 26 |(1,1) . .1630.2&|
00001E00: D6 06 42 4C 41 4E 4B 24 B2 22 20 20 20 20 20 20 |..BLANK$." |
00001E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E30: 20 22 00 38 26 E0 06 8E 00 4E 26 EA 06 8F 2D 2D | ".8&....N&...--|
00001E40: 2D 2D 50 41 49 4E 54 20 53 43 52 45 45 4E 00 7A |--PAINT SCREEN.z|
00001E50: 26 F4 06 99 22 13 11 11 11 11 11 11 11 11 11 11 |&..."...........|
00001E60: 11 11 11 22 3A 81 49 B2 31 A4 31 30 3A 99 42 4C |...":.I.1.10:.BL|
00001E70: 24 3A 82 49 3A 99 42 4C 24 3B 00 9A 26 FE 06 99 |$:.I:.BL$;..&...|
00001E80: 22 13 22 A6 31 35 29 22 12 C1 D4 D4 D2 C9 C2 D5 |".".15)"........|
00001E90: D4 C5 20 C2 CC CF C3 CB D3 22 00 B1 26 08 07 99 |.. ......"..&...|
00001EA0: 22 91 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |". ............|
00001EB0: AE 00 DF 26 12 07 99 22 B0 C0 BD 43 41 52 44 20 |...&..."...CARD |
00001EC0: 31 20 20 20 20 20 AD C0 C0 C0 AE 20 B0 C0 C0 C0 |1 ..... ....|
00001ED0: C0 C0 C0 C0 C0 C0 C0 C0 AE 22 A3 33 33 29 22 00 |.........".33)".|
00001EE0: 03 27 1C 07 99 22 DD 22 A3 31 31 29 22 B0 C0 C0 |.'...".".11)"...|
00001EF0: C0 C0 C0 C0 DB C0 BD 43 41 52 44 20 32 20 20 20 |.......CARD 2 |
00001F00: 20 20 DD 00 21 27 26 07 99 22 DD 22 A3 31 31 29 | ..!'&..".".11)|
00001F10: 20 22 DD 22 A3 31 38 29 22 DD 22 A3 33 32 29 22 | ".".18)".".32)"|
00001F20: DD 00 2F 27 30 07 81 20 49 B2 31 20 A4 20 38 00 |../'0.. I.1 . 8.|
00001F30: 4C 27 3A 07 99 22 DD 22 A3 31 31 29 22 DD 22 A3 |L':..".".11)".".|
00001F40: 31 38 29 22 DD 22 A3 33 32 29 22 DD 00 54 27 44 |18)".".32)"..T'D|
00001F50: 07 82 20 49 00 75 27 4E 07 99 22 AD C0 C0 C0 C0 |.. I.u'N..".....|
00001F60: C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 C0 BD 22 A3 |..............".|
00001F70: 33 32 29 22 DD 00 99 27 58 07 99 20 A3 31 31 29 |32)"...'X.. .11)|
00001F80: 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00001F90: C0 C0 C0 C0 C0 C0 BD 11 11 00 A4 27 62 07 99 22 |...........'b.."|
00001FA0: 13 11 11 11 00 B2 27 6C 07 81 20 49 B2 30 20 A4 |......'l.. I.0 .|
00001FB0: 20 38 00 E8 27 76 07 99 22 1D 1D 22 43 48 24 28 | 8..'v..".."CH$(|
00001FC0: 30 2C 49 29 A3 31 32 29 43 48 24 28 32 2C 49 29 |0,I).12)CH$(2,I)|
00001FD0: A3 31 39 29 43 48 24 28 31 2C 49 29 A3 33 33 29 |.19)CH$(1,I).33)|
00001FE0: 43 48 24 28 33 2C 49 29 00 EF 27 80 07 82 49 00 |CH$(3,I)..'...I.|
00001FF0: FD 27 8A 07 99 22 13 11 1D 1D 1D 22 3B 00 33 28 |.'...".....";.3(|
00002000: 94 07 8B 20 43 52 43 54 28 30 29 20 A7 20 99 22 |... CRCT(0) . ."|
00002010: 12 22 43 41 24 28 30 2C 30 29 22 20 20 20 20 20 |."CA$(0,0)" |
00002020: 20 9D 9D 9D 9D 9D 22 43 41 24 28 30 2C 31 29 22 | ....."CA$(0,1)"|
00002030: 92 22 3B 00 6A 28 9E 07 8B 20 43 52 43 54 28 31 |.";.j(... CRCT(1|
00002040: 29 20 A7 20 99 A3 32 31 29 22 11 12 22 43 41 24 |) . ..21)".."CA$|
00002050: 28 31 2C 30 29 22 20 20 20 20 20 20 9D 9D 9D 9D |(1,0)" ....|
00002060: 9D 22 43 41 24 28 31 2C 31 29 00 80 28 A8 07 99 |."CA$(1,1)..(...|
00002070: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |".............."|
00002080: 00 86 28 B2 07 8E 00 97 28 BC 07 8F 2D 2D 2D 43 |..(.....(...---C|
00002090: 4F 4D 4D 41 4E 44 53 00 C4 28 C6 07 99 22 D4 59 |OMMANDS..(...".Y|
000020A0: 50 45 20 54 48 45 A0 49 4E 49 54 49 41 4C 53 20 |PE THE.INITIALS |
000020B0: 4F 46 20 41 20 42 4C 4F 43 4B 2C 20 20 2A 2A D4 |OF A BLOCK, **.|
000020C0: 48 45 4E 22 00 F4 28 D0 07 99 22 20 20 4F 52 20 |HEN"..(..." OR |
000020D0: 41 53 4B 20 46 4F 52 A0 12 50 92 4F 53 53 49 42 |ASK FOR..P.OSSIB|
000020E0: 49 4C 49 54 49 45 53 20 20 20 20 20 2A 2A 50 52 |ILITIES **PR|
000020F0: 45 53 53 22 00 25 29 DA 07 99 22 20 20 20 20 4F |ESS".%)..." O|
00002100: 52 20 41 53 4B 20 46 4F 52 20 12 48 92 45 4C 50 |R ASK FOR .H.ELP|
00002110: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A D2 C5 | **..|
00002120: D4 D5 D2 CE 22 00 2B 29 E4 07 8E 00 3D 29 EE 07 |....".+)....=)..|
00002130: 8F 48 41 4E 44 4C 45 20 42 4C 4F 43 4B 00 47 29 |.HANDLE BLOCK.G)|
00002140: F8 07 45 52 52 B2 30 00 52 29 02 08 81 49 B2 30 |..ERR.0.R)...I.0|
00002150: A4 31 00 71 29 0C 08 8B 4E 28 49 29 B3 B1 31 B0 |.1.q)...N(I)..1.|
00002160: 43 52 43 54 28 49 29 B3 B1 30 A7 20 89 32 31 36 |CRCT(I)..0. .216|
00002170: 30 00 83 29 16 08 8B 20 45 52 52 20 A7 20 89 32 |0..)... ERR . .2|
00002180: 31 36 30 00 A6 29 20 08 8B 20 43 39 20 B0 20 43 |160..) .. C9 . C|
00002190: 38 20 A7 20 8D 20 33 36 36 30 3A 43 39 B2 30 3A |8 . . 3660:C9.0:|
000021A0: 89 20 32 31 36 30 00 D2 29 2A 08 99 22 C9 20 43 |. 2160..)*..". C|
000021B0: 4F 55 4C 44 20 54 45 4C 4C A0 59 4F 55 20 57 48 |OULD TELL.YOU WH|
000021C0: 45 52 45 20 54 48 45 20 22 42 24 22 A0 47 4F 45 |ERE THE "B$".GOE|
000021D0: 53 2C 00 00 2A 34 08 99 22 42 55 54 20 59 4F 55 |S,..*4.."BUT YOU|
000021E0: 20 41 4C 52 45 41 44 59 20 48 41 56 45 20 45 4E | ALREADY HAVE EN|
000021F0: 4F 55 47 48 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |OUGH INFORMATION|
00002200: 00 26 2A 3E 08 99 22 54 4F 20 46 49 47 55 52 45 |.&*>.."TO FIGURE|
00002210: 20 4F 55 54 20 57 48 41 54 20 43 41 52 44 22 49 | OUT WHAT CARD"I|
00002220: AA 31 22 49 53 2E 00 42 2A 48 08 99 22 D4 52 59 |.1"IS..B*H..".RY|
00002230: 20 54 4F 20 46 49 47 55 52 45 20 49 54 20 4F 55 | TO FIGURE IT OU|
00002240: 54 21 00 50 2A 52 08 43 39 B2 31 3A 43 38 B2 31 |T!.P*R.C9.1:C8.1|
00002250: 00 5B 2A 5C 08 8D 31 31 30 30 30 00 65 2A 66 08 |.[*\..11000.e*f.|
00002260: 45 52 52 B2 31 00 6D 2A 70 08 82 20 49 00 77 2A |ERR.1.m*p.. I.w*|
00002270: 7A 08 8B 45 52 A7 8E 00 81 2A 84 08 8D 32 32 36 |z..ER....*...226|
00002280: 30 00 8B 2A 8E 08 8B 45 52 A7 8E 00 95 2A 98 08 |0..*...ER....*..|
00002290: 8D 32 33 36 30 00 9F 2A A2 08 8B 45 52 A7 8E 00 |.2360..*...ER...|
000022A0: A9 2A AC 08 8D 32 34 32 30 00 B3 2A B6 08 8D 32 |.*...2420..*...2|
000022B0: 36 33 30 00 BD 2A C0 08 8D 32 35 30 30 00 C3 2A |630..*...2500..*|
000022C0: CA 08 8E 00 DA 2A D4 08 8F 2D 2D 2D 43 48 45 43 |.....*...---CHEC|
000022D0: 4B 20 4C 45 47 41 4C 49 54 59 00 F7 2A DE 08 8B |K LEGALITY..*...|
000022E0: 20 C3 28 42 24 29 B3 B1 33 20 A7 20 45 52 52 B2 | .(B$)..3 . ERR.|
000022F0: 31 3A 89 32 33 34 30 00 10 2B E8 08 81 20 49 B2 |1:.2340..+... I.|
00002300: 30 20 A4 20 32 3A 42 28 49 29 B2 AB 31 3A 82 49 |0 . 2:B(I)..1:.I|
00002310: 00 26 2B F2 08 81 20 42 B2 31 A4 33 3A 81 20 49 |.&+... B.1.3:. I|
00002320: B2 30 20 A4 20 33 00 53 2B FC 08 3A 20 8B 20 C8 |.0 . 3.S+..: . .|
00002330: 28 43 4F 24 28 42 AB 31 2C 49 29 2C 31 29 B2 CA |(CO$(B.1,I),1)..|
00002340: 28 42 24 2C 42 2C 31 29 20 A7 20 42 28 42 AB 31 |(B$,B,1) . B(B.1|
00002350: 29 B2 49 00 5D 2B 06 09 82 20 49 2C 42 00 7B 2B |).I.]+... I,B.{+|
00002360: 10 09 81 20 49 B2 30 A4 32 3A 8B 20 42 28 49 29 |... I.0.2:. B(I)|
00002370: B2 AB 31 20 A7 20 45 52 52 B2 31 00 83 2B 1A 09 |..1 . ERR.1..+..|
00002380: 82 20 49 00 B9 2B 24 09 8B 20 45 52 52 20 A7 99 |. I..+$.. ERR ..|
00002390: 22 12 49 20 43 41 4E 27 54 20 55 4E 44 45 52 53 |".I CAN'T UNDERS|
000023A0: 54 41 4E 44 2E 20 20 54 52 59 20 41 47 41 49 4E |TAND. TRY AGAIN|
000023B0: 2E 22 3A 8D 31 31 30 30 30 00 BF 2B 2E 09 8E 00 |.":.11000..+....|
000023C0: DA 2B 38 09 8F 2D 2D 41 4C 52 45 41 44 59 20 43 |.+8..--ALREADY C|
000023D0: 48 4F 53 45 4E 3F 2D 2D 2D 2D 00 F2 2B 42 09 81 |HOSEN?----..+B..|
000023E0: 20 49 B2 30 20 A4 20 33 3A 81 20 4A B2 30 20 A4 | I.0 . 3:. J.0 .|
000023F0: 20 38 00 0E 2C 4C 09 3A 20 8B 20 43 48 24 28 49 | 8..,L.: . CH$(I|
00002400: 2C 4A 29 B2 42 24 20 A7 20 45 52 52 B2 31 00 18 |,J).B$ . ERR.1..|
00002410: 2C 56 09 82 20 4A 2C 49 00 36 2C 60 09 99 22 13 |,V.. J,I.6,`..".|
00002420: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002430: 11 11 11 11 22 3B 00 6F 2C 65 09 8B 20 45 52 52 |....";.o,e.. ERR|
00002440: 20 A7 20 99 22 C1 4C 52 45 41 44 59 20 43 48 4F | . .".LREADY CHO|
00002450: 53 45 4E 2C 20 54 52 59 20 41 4E 4F 54 48 45 52 |SEN, TRY ANOTHER|
00002460: 20 42 4C 4F 43 4B 2E 22 3A 8D 31 31 30 30 30 00 | BLOCK.":.11000.|
00002470: 75 2C 6A 09 8E 00 90 2C 74 09 8F 2D 2D 2D 44 45 |u,j....,t..---DE|
00002480: 54 45 52 4D 49 4E 45 20 41 52 45 41 2D 2D 2D 2D |TERMINE AREA----|
00002490: 00 A2 2C 7E 09 41 28 30 29 B2 30 3A 41 28 31 29 |..,~.A(0).0:A(1)|
000024A0: B2 30 00 B0 2C 88 09 81 20 49 B2 30 20 A4 20 31 |.0..,... I.0 . 1|
000024B0: 00 D8 2C 92 09 3A 20 8B 20 42 28 43 41 25 28 49 |..,..: . B(CA%(I|
000024C0: 2C 30 29 29 AA 31 B2 43 41 25 28 49 2C 31 29 20 |,0)).1.CA%(I,1) |
000024D0: A7 20 41 28 49 29 B2 31 00 0F 2D 9C 09 3A 20 8B |. A(I).1..-..: .|
000024E0: 20 43 41 25 28 49 2C 31 29 B3 30 20 AF 20 42 28 | CA%(I,1).0 . B(|
000024F0: 43 41 25 28 49 2C 30 29 29 B3 B1 AB 43 41 25 28 |CA%(I,0))...CA%(|
00002500: 49 2C 31 29 AB 31 20 A7 20 41 28 49 29 B2 31 00 |I,1).1 . A(I).1.|
00002510: 17 2D A6 09 82 20 49 00 38 2D B0 09 41 52 B2 41 |.-... I.8-..AR.A|
00002520: 28 30 29 AA 32 AC 41 28 31 29 3A 8B 20 41 52 B2 |(0).2.A(1):. AR.|
00002530: 30 20 A7 20 41 52 B2 34 00 3E 2D BA 09 8E 00 59 |0 . AR.4.>-....Y|
00002540: 2D C4 09 8F 2D 2D 2D 2D 55 50 44 41 54 45 20 56 |-...----UPDATE V|
00002550: 41 4C 55 45 53 2D 2D 2D 2D 00 67 2D CE 09 81 20 |ALUES----.g-... |
00002560: 49 B2 30 20 A4 20 31 00 75 2D D8 09 81 20 4A B2 |I.0 . 1.u-... J.|
00002570: 30 20 A4 20 32 00 8D 2D E2 09 3A 20 8B 20 41 28 |0 . 2..-..: . A(|
00002580: 49 29 B2 31 20 A7 20 8D 20 33 33 34 30 00 A5 2D |I).1 . . 3340..-|
00002590: EC 09 3A 20 8B 20 41 28 49 29 B2 30 20 A7 20 8D |..: . A(I).0 . .|
000025A0: 20 33 34 30 30 00 AF 2D F6 09 82 20 4A 2C 49 00 | 3400..-... J,I.|
000025B0: BD 2D 00 0A 81 20 49 B2 30 20 A4 20 31 00 CA 2D |.-... I.0 . 1..-|
000025C0: 0A 0A 3A 20 4E 28 49 29 B2 30 00 DA 2D 14 0A 3A |..: N(I).0..-..:|
000025D0: 20 81 20 4A B2 30 20 A4 20 32 00 EB 2D 1E 0A 3A | . J.0 . 2..-..:|
000025E0: 20 20 81 20 4B B2 30 20 A4 20 38 00 10 2E 28 0A | . K.0 . 8...(.|
000025F0: 3A 20 20 20 8B 20 56 41 25 28 49 2C 4A 2C 4B 29 |: . VA%(I,J,K)|
00002600: B2 30 20 A7 20 4E 28 49 29 B2 4E 28 49 29 AA 31 |.0 . N(I).N(I).1|
00002610: 00 1B 2E 32 0A 82 4B 2C 4A 2C 49 00 21 2E 3C 0A |...2..K,J,I.!.<.|
00002620: 8E 00 3B 2E 46 0A 8F 2D 2D 2D 2D 55 50 44 41 54 |..;.F..----UPDAT|
00002630: 45 20 43 48 4F 53 45 4E 2D 2D 2D 00 4A 2E 50 0A |E CHOSEN---.J.P.|
00002640: 81 20 49 B2 30 20 A4 20 31 30 00 75 2E 5A 0A 8B |. I.0 . 10.u.Z..|
00002650: 20 43 48 24 28 41 52 AB 31 2C 49 29 B2 22 22 20 | CH$(AR.1,I)."" |
00002660: A7 20 43 48 24 28 41 52 AB 31 2C 49 29 B2 42 24 |. CH$(AR.1,I).B$|
00002670: 3A 49 B2 31 30 00 7D 2E 64 0A 82 20 49 00 83 2E |:I.10.}.d.. I...|
00002680: 6E 0A 8E 00 97 2E 78 0A 8F 2D 2D 2D 47 55 45 53 |n.....x..---GUES|
00002690: 53 49 4E 47 2D 2D 2D 00 B0 2E 82 0A 4D 24 B2 22 |SING---.....M$."|
000026A0: 32 22 3A 8D 20 33 31 30 30 3A 4E 43 B2 46 4C 47 |2":. 3100:NC.FLG|
000026B0: 00 E4 2E 8C 0A 8B 43 52 43 54 28 4E 43 29 A7 99 |......CRCT(NC)..|
000026C0: 22 D9 4F 55 20 41 4C 52 45 41 44 59 20 47 4F 54 |".OU ALREADY GOT|
000026D0: 20 54 48 41 54 20 4F 4E 45 21 22 3A 8D 31 31 30 | THAT ONE!":.110|
000026E0: 30 30 3A 8E 00 F7 2E 96 0A 8D 33 35 36 30 3A 8F |00:.......3560:.|
000026F0: 43 4F 4E 56 45 52 54 00 04 2F A0 0A 8B 20 45 52 |CONVERT../... ER|
00002700: 20 A7 20 8E 00 4B 2F AA 0A 8B 56 41 25 28 4E 43 | . ..K/...VA%(NC|
00002710: 2C 4E 41 2C 4E 56 AA 34 29 B2 AB 31 A7 99 22 D4 |,NA,NV.4)..1..".|
00002720: 48 41 54 27 53 20 49 4D 50 4F 53 53 49 42 4C 45 |HAT'S IMPOSSIBLE|
00002730: 2C 20 44 4F 20 59 4F 55 20 53 45 45 20 57 48 59 |, DO YOU SEE WHY|
00002740: 3F 22 3A 8D 31 31 30 30 30 3A 8E 00 8C 2F B4 0A |?":.11000:.../..|
00002750: 8B 4E 28 4E 43 29 B1 31 A7 99 22 D4 48 45 52 45 |.N(NC).1..".HERE|
00002760: 20 41 52 45 A0 12 53 45 56 45 52 41 4C 92 20 50 | ARE..SEVERAL. P|
00002770: 4F 53 53 49 42 49 4C 49 54 49 45 53 20 53 54 49 |OSSIBILITIES STI|
00002780: 4C 4C 22 3A 8D 31 31 30 30 30 3A 8E 00 BD 2F BE |LL":.11000:.../.|
00002790: 0A 99 22 12 D4 48 41 54 27 53 20 52 49 47 48 54 |.."..HAT'S RIGHT|
000027A0: 21 92 22 3A 43 52 28 4E 43 29 B2 31 3A 43 38 B2 |!.":CR(NC).1:C8.|
000027B0: 30 3A 43 39 B2 30 3A 8D 31 31 30 30 30 00 C3 2F |0:C9.0:.11000../|
000027C0: C8 0A 8E 00 CE 2F D2 0A 8F 20 48 45 4C 50 00 D8 |...../... HELP..|
000027D0: 2F DC 0A 8D 31 37 37 30 00 01 30 E6 0A 46 B2 30 |/...1770..0..F.0|
000027E0: 3A 81 49 B2 30 A4 31 3A 8B 4E 28 49 29 B2 31 AF |:.I.0.1:.N(I).1.|
000027F0: 43 52 28 49 29 B2 30 A7 46 B2 31 3A 8D 32 39 31 |CR(I).0.F.1:.291|
00002800: 30 00 10 30 F0 0A 82 49 3A 8B 20 46 20 A7 20 8E |0..0...I:. F . .|
00002810: 00 3C 30 FA 0A 99 22 C5 4E 54 45 52 20 41 20 42 |.<0...".NTER A B|
00002820: 4C 4F 43 4B 20 42 59 20 54 59 50 49 4E 47 20 49 |LOCK BY TYPING I|
00002830: 54 53 20 49 4E 49 54 49 41 4C 53 3B 00 6A 30 04 |TS INITIALS;.j0.|
00002840: 0B 99 22 20 20 46 4F 52 20 45 58 41 4D 50 4C 45 |.." FOR EXAMPLE|
00002850: 2C 20 53 47 44 20 53 54 41 4E 44 53 20 46 4F 52 |, SGD STANDS FOR|
00002860: 20 54 48 45 20 53 4D 41 4C 4C 00 81 30 0E 0B 99 | THE SMALL..0...|
00002870: 22 20 20 47 52 45 45 4E 20 44 49 41 4D 4F 4E 44 |" GREEN DIAMOND|
00002880: 2E 00 91 30 13 0B 8D 31 30 30 30 30 3A 8D 38 33 |...0...10000:.83|
00002890: 35 00 97 30 18 0B 8E 00 AA 30 22 0B 8F 2D 2D 2D |5..0.....0"..---|
000028A0: 57 49 4E 4E 45 52 2D 2D 2D 2D 00 D2 30 2C 0B 99 |WINNER----..0,..|
000028B0: 22 C7 4F 4F 44 20 47 4F 49 4E 47 21 20 D9 4F 55 |".OOD GOING! .OU|
000028C0: 20 46 4F 55 4E 44 20 54 48 45 4D 20 42 4F 54 48 | FOUND THEM BOTH|
000028D0: 21 22 00 DD 30 36 0B 8D 38 33 35 3A 8E 00 ED 30 |!"..06..835:...0|
000028E0: 5E 0B 8F 20 43 41 52 44 20 48 45 4C 50 00 0A 31 |^.. CARD HELP..1|
000028F0: 68 0B 99 22 C6 49 47 55 52 45 20 4F 55 54 20 43 |h..".IGURE OUT C|
00002900: 41 52 44 22 49 AA 31 22 9D 2E 00 33 31 72 0B 99 |ARD"I.1"...31r..|
00002910: 22 D4 4F 20 54 52 59 20 49 54 2C 20 54 59 50 45 |".O TRY IT, TYPE|
00002920: 20 43 41 52 44 22 49 AA 31 22 49 53 20 43 49 52 | CARD"I.1"IS CIR|
00002930: 43 4C 45 00 57 31 7C 0B 99 22 20 4F 52 20 57 48 |CLE.W1|.." OR WH|
00002940: 41 54 45 56 45 52 20 59 4F 55 20 54 48 49 4E 4B |ATEVER YOU THINK|
00002950: A0 49 54 20 49 53 2E 00 67 31 86 0B 8D 31 30 30 |.IT IS..g1...100|
00002960: 30 30 3A 8D 38 33 35 00 80 31 90 0B 8F 2D 2D 50 |00:.835..1...--P|
00002970: 4F 53 53 49 42 49 4C 49 54 49 45 53 2D 2D 2D 2D |OSSIBILITIES----|
00002980: 00 8A 31 9A 0B 8D 31 37 37 30 00 AE 31 A4 0B 99 |..1...1770..1...|
00002990: 22 12 C6 4F 52 20 43 41 52 44 20 31 22 A3 32 30 |"..OR CARD 1".20|
000029A0: 29 22 46 4F 52 20 43 41 52 44 20 32 91 22 00 E9 |)"FOR CARD 2."..|
000029B0: 31 AE 0B 8B 4E 28 30 29 B1 39 20 A7 20 99 22 11 |1...N(0).9 . .".|
000029C0: C1 4C 4C 20 41 52 45 20 50 4F 53 53 49 42 4C 45 |.LL ARE POSSIBLE|
000029D0: 22 A3 32 30 29 22 C1 4C 4C 20 41 52 45 20 50 4F |".20)".LL ARE PO|
000029E0: 53 53 49 42 4C 45 22 3A 8E 00 F4 31 B8 0B 81 49 |SSIBLE":...1...I|
000029F0: B2 30 A4 31 00 FF 31 BD 0B 8B 49 B2 30 A7 99 00 |.0.1..1...I.0...|
00002A00: 44 32 C2 0B 8B 4E 28 49 29 B2 31 A7 99 3A 99 A3 |D2...N(I).1..:..|
00002A10: 32 30 AC 49 29 22 CA 55 53 54 A0 31 20 4C 45 46 |20.I)".UST.1 LEF|
00002A20: 54 22 3A 99 A3 32 30 AC 49 29 22 D9 4F 55 20 46 |T":..20.I)".OU F|
00002A30: 49 47 55 52 45 44 20 49 54 20 4F 55 54 22 3A 89 |IGURED IT OUT":.|
00002A40: 33 30 38 30 00 56 32 CC 0B 81 4A B2 30 A4 32 3A |3080.V2...J.0.2:|
00002A50: 81 4B B2 30 A4 38 00 70 32 D6 0B 8B 56 41 25 28 |.K.0.8.p2...VA%(|
00002A60: 49 2C 4A 2C 4B 29 B3 B1 30 A7 20 89 33 30 37 30 |I,J,K)..0. .3070|
00002A70: 00 7C 32 E0 0B 99 A3 32 30 AC 49 29 00 9C 32 EA |.|2....20.I)..2.|
00002A80: 0B 8B 4B B3 34 A7 99 22 4E 4F 54 22 43 4F 24 28 |..K.4.."NOT"CO$(|
00002A90: 4A 2C 33 AB 4B 29 3A 89 33 30 37 30 00 AC 32 F4 |J,3.K):.3070..2.|
00002AA0: 0B 99 43 4F 24 28 4A 2C 4B AB 35 29 00 B5 32 FE |..CO$(J,K.5)..2.|
00002AB0: 0B 82 4B 2C 4A 00 D1 32 08 0C 99 22 13 11 11 11 |..K,J..2..."....|
00002AC0: 11 11 11 11 11 11 11 11 11 11 11 11 22 3B 3A 82 |............";:.|
00002AD0: 49 00 D7 32 12 0C 8E 00 F1 32 1C 0C 8F 2D 2D 2D |I..2.....2...---|
00002AE0: 4D 41 54 43 48 20 4D 24 20 49 4E 20 42 24 2D 2D |MATCH M$ IN B$--|
00002AF0: 2D 00 FB 32 26 0C 46 4C 47 B2 30 00 16 33 30 0C |-..2&.FLG.0..30.|
00002B00: 81 20 49 33 B2 31 20 A4 20 C3 28 42 24 29 AB C3 |. I3.1 . .(B$)..|
00002B10: 28 4D 24 29 AA 31 00 36 33 3A 0C 8B 20 4D 24 B2 |(M$).1.63:.. M$.|
00002B20: CA 28 42 24 2C 49 33 2C C3 28 4D 24 29 29 20 A7 |.(B$,I3,.(M$)) .|
00002B30: 20 46 4C 47 B2 31 00 3F 33 44 0C 82 20 49 33 00 | FLG.1.?3D.. I3.|
00002B40: 45 33 4E 0C 8E 00 61 33 58 0C 8F 2D 2D 2D 47 45 |E3N...a3X..---GE|
00002B50: 54 20 55 53 45 52 53 20 49 4E 50 55 54 2D 2D 2D |T USERS INPUT---|
00002B60: 2D 00 94 33 62 0C 55 4C B2 32 32 3A 55 53 24 B2 |-..3b.UL.22:US$.|
00002B70: 22 20 31 32 41 42 43 44 45 47 48 49 4C 4D 4E 4F |" 12ABCDEGHILMNO|
00002B80: 50 51 52 53 54 55 57 59 22 3A 8D 33 35 3A 42 24 |PQRSTUWY":.35:B$|
00002B90: B2 55 52 24 00 9C 33 76 0C 99 3A 8E 00 BB 33 0C |.UR$..3v..:...3.|
00002BA0: 0D 8F 2D 2D 4C 4F 4F 50 20 49 2C 20 41 54 54 20 |..--LOOP I, ATT |
00002BB0: 4A 2C 20 42 4C 4F 43 4B 20 49 4E 00 C9 33 16 0D |J, BLOCK IN..3..|
00002BC0: 81 20 4B B2 30 20 A4 20 33 00 EB 33 20 0D 3A 20 |. K.0 . 3..3 .: |
00002BD0: 8B 20 42 28 4A 29 B3 B1 4B 20 A7 20 56 41 25 28 |. B(J)..K . VA%(|
00002BE0: 49 2C 4A 2C 4B AA 35 29 B2 AB 31 00 0C 34 2A 0D |I,J,K.5)..1..4*.|
00002BF0: 3A 20 8B 20 42 28 4A 29 B2 4B 20 A7 20 56 41 25 |: . B(J).K . VA%|
00002C00: 28 49 2C 4A 2C 33 AB 4B 29 B2 AB 31 00 13 34 34 |(I,J,3.K)..1..44|
00002C10: 0D 82 4B 00 19 34 3E 0D 8E 00 39 34 48 0D 8F 2D |..K..4>...94H..-|
00002C20: 2D 4C 4F 4F 50 20 49 2C 20 41 54 54 20 4A 2C 20 |-LOOP I, ATT J, |
00002C30: 42 4C 4F 43 4B 20 4F 55 54 00 47 34 52 0D 81 20 |BLOCK OUT.G4R.. |
00002C40: 4B B2 30 20 A4 20 33 00 68 34 5C 0D 3A 20 8B 20 |K.0 . 3.h4\.: . |
00002C50: 42 28 4A 29 B2 4B 20 A7 20 56 41 25 28 49 2C 4A |B(J).K . VA%(I,J|
00002C60: 2C 4B AA 35 29 B2 AB 31 00 8A 34 66 0D 3A 20 8B |,K.5)..1..4f.: .|
00002C70: 20 42 28 4A 29 B3 B1 4B 20 A7 20 56 41 25 28 49 | B(J)..K . VA%(I|
00002C80: 2C 4A 2C 33 AB 4B 29 B2 AB 31 00 91 34 70 0D 82 |,J,3.K)..1..4p..|
00002C90: 4B 00 97 34 7A 0D 8E 00 A8 34 E8 0D 8F 20 42 24 |K..4z....4... B$|
00002CA0: 20 54 4F 20 43 41 52 44 00 BE 34 F2 0D 4E 41 B2 | TO CARD..4..NA.|
00002CB0: AB 31 3A 4E 56 B2 AB 31 3A 45 52 52 B2 30 00 E2 |.1:NV..1:ERR.0..|
00002CC0: 34 FC 0D 81 49 B2 30 A4 32 3A 81 4A B2 30 A4 33 |4...I.0.2:.J.0.3|
00002CD0: 3A 4D 24 B2 43 4F 24 28 49 2C 4A 29 3A 8D 33 31 |:M$.CO$(I,J):.31|
00002CE0: 30 30 00 FA 34 06 0E 8B 20 46 4C 47 20 A7 20 4E |00..4... FLG . N|
00002CF0: 41 B2 49 3A 4E 56 B2 4A AA 31 00 03 35 10 0E 82 |A.I:NV.J.1..5...|
00002D00: 4A 2C 49 00 3C 35 1A 0E 8B 20 4E 41 B2 AB 31 B0 |J,I.<5... NA..1.|
00002D10: 4E 56 B2 AB 31 A7 99 22 20 C9 20 44 4F 4E 27 54 |NV..1.." . DON'T|
00002D20: 20 55 4E 44 45 52 53 54 41 4E 44 2E 22 3A 8D 31 | UNDERSTAND.":.1|
00002D30: 31 30 30 30 3A 45 52 52 B2 31 3A 8E 00 4F 35 24 |1000:ERR.1:..O5$|
00002D40: 0E 4D 24 B2 22 4E 4F 54 22 3A 8D 33 31 30 30 00 |.M$."NOT":.3100.|
00002D50: 5F 35 2E 0E 8B 46 4C 47 A7 4E 56 B2 AB 4E 56 00 |_5...FLG.NV..NV.|
00002D60: 74 35 38 0E 8B 4E 41 B2 30 AF 4E 56 B2 32 A7 4E |t58..NA.0.NV.2.N|
00002D70: 56 B2 AB 31 00 7A 35 42 0E 8E 00 8E 35 4C 0E 8F |V..1.z5B....5L..|
00002D80: 2D 2D 2D 50 52 4F 44 44 49 4E 47 2D 2D 2D 00 C6 |---PRODDING---..|
00002D90: 35 56 0E 99 22 13 11 11 11 11 11 11 11 11 11 11 |5V.."...........|
00002DA0: 11 11 11 11 11 11 11 11 11 D0 4C 45 41 53 45 20 |..........LEASE |
00002DB0: 54 52 59 20 54 4F 20 46 49 47 55 52 45 20 4F 55 |TRY TO FIGURE OU|
00002DC0: 54 20 57 48 41 54 00 D9 35 60 0E 99 22 43 41 52 |T WHAT..5`.."CAR|
00002DD0: 44 22 49 AA 31 22 49 53 2E 00 E6 35 6A 0E 8D 31 |D"I.1"IS...5j..1|
00002DE0: 31 30 30 30 3A 8E 00 FE 35 10 27 8F 20 54 41 42 |1000:...5.'. TAB|
00002DF0: 4C 45 20 4F 46 20 4B 45 59 57 4F 52 44 53 00 12 |LE OF KEYWORDS..|
00002E00: 36 1A 27 99 22 13 20 22 3B C8 28 55 44 24 2C 31 |6.'.". ";.(UD$,1|
00002E10: 39 29 00 21 36 24 27 99 22 12 4C 92 41 52 47 45 |9).!6$'.".L.ARGE|
00002E20: 22 00 30 36 2E 27 99 22 12 53 92 4D 41 4C 4C 22 |".06.'.".S.MALL"|
00002E30: 00 52 36 38 27 99 22 13 22 3B C8 28 55 44 24 2C |.R68'.".";.(UD$,|
00002E40: 32 30 29 3B A6 38 29 3B 22 12 59 92 45 4C 4C 4F |20);.8);".Y.ELLO|
00002E50: 57 22 00 65 36 42 27 99 A6 38 29 3B 22 12 47 92 |W".e6B'..8);".G.|
00002E60: 52 45 45 4E 22 00 77 36 4C 27 99 A6 38 29 3B 22 |REEN".w6L'..8);"|
00002E70: 12 42 92 4C 55 45 22 00 88 36 56 27 99 A6 38 29 |.B.LUE"..6V'..8)|
00002E80: 3B 22 12 52 92 45 44 22 00 AD 36 60 27 99 22 13 |;".R.ED"..6`'.".|
00002E90: 22 3B C8 28 55 44 24 2C 32 30 29 3B A6 31 38 29 |";.(UD$,20);.18)|
00002EA0: 3B 22 12 54 92 52 49 41 4E 47 4C 45 22 00 C3 36 |;".T.RIANGLE"..6|
00002EB0: 6A 27 99 A6 31 38 29 3B 22 12 44 92 49 41 4D 4F |j'..18);".D.IAMO|
00002EC0: 4E 44 22 00 D8 36 74 27 99 A6 31 38 29 3B 22 12 |ND"..6t'..18);".|
00002ED0: 43 92 49 52 43 4C 45 22 00 ED 36 7E 27 99 A6 31 |C.IRCLE"..6~'..1|
00002EE0: 38 29 3B 22 12 53 92 51 55 41 52 45 22 00 F3 36 |8);".S.QUARE"..6|
00002EF0: 88 27 8E 00 FC 36 F8 2A 8D 38 33 35 00 37 37 66 |.'...6.*.835.77f|
00002F00: 2B 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 |+.UO,0:..(UD$,24|
00002F10: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |);" |
00002F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F30: 20 20 20 20 20 20 22 00 3D 37 70 2B 8E 00 00 00 | ".=7p+....|
00002F40: B3 2C |., |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.....:.....:.O.#.. +++ INPUT SECT
ION +++...(..UO,0:UR$."":UI$.""...*..UL.
0.UL.80...-..UC,0...2..UI$:.UI$."".50.?.
7..UI$.G(13).C(UR$)..1..UC,1:." .";:.85.
R.<..UI$.G(20).105.F.>.. C(UR$)..UL.50..
.A..120:. CHECK FOR VALID CHARACTER...F.
UR$.UR$.UI$...K..UI$;...P..50.R.U.. +++
CHECK FOR HELP REQUEST +++...Z..UR$.UX$.
.902:.920..._..UF.1..240...D.UF.0:.:....
F.. ++ CHECK DELETE ++./.I..C(UR$).1.50.
G.N.UR$.H(UR$,C(UR$).1).Y.S..". ..";:.5
0...X.. ++ CHECK FOR VALID CHARACTERS ++
...}..C(US$).0.150......US.1.C(US$).....
.UI$.J(US$,US,1).........M...UI$."":....
... ** STANDARD INPUT **......F(UI$).46.
.......UI$.G(32)...'. ..F(UI$).48.F(UI$)
.57.170.-.....J....F(UI$).65.F(UI$).90.1
80.P.....T....F(UI$).193.F(UI$).218.UI$.
"":.......B(UT).UU%.UI$.G(F(UI$).128):..
..........UI$."":..O.C.UF.1:. +++ HELP R
OUTINE EXIT +++.X.E..250...H..245...M..U
Q.UB.(U2%.256.U1%.U3%.2)...R.UQ%(UQ.UB).
B(UQ):.:."."./.W.UZ.1:UV%.B(UT).8.X..300
.|.Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK:.B
(50003).0..53281,6:.53280,14.....UT$.UL$
:.".";:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3
).F....UQ,UQ%(UQ.UB):..R....U1,U1%......
U2,U2%......U4,U4%......U3,U3%.1......35
.2...UD%.((U2%.256.U1%.U3%).UB).40:.H(UD
$,UD%.1):..M....H(UD$,24);"
. HELP COMING . ":......U1%.B(
U1):U2%.B(U2):U3%.B(U3):U4%.B(U4).A...UJ
$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL.G.....
X.,.. ** MENU **...-.:......".":.UT,UU%:
.B(50003).0..53281,9:.53280,8.../.:.0.1.
.". MENU"._.6.." --------
------------------------------"...;.."..
1. ATTRIBUTE BLOCKS"...@.."..
2. STUDENT INSTRUCTIONS".Y.E.."..
3. TEACHER INSTRUCTIONS"...O.."
.. 4. QUIT..".$.T.." -----------
---------------------------".O.Y.."..
PRESS A NUMBER KEY (1-4) ";.W.^.UL.1
:US$."1234":.35:. INPUT ROUTINE...`.US$.
""...C..E(UR$).1000,400,500,396...H..300
.O.... ** RE-ENABLE STOP KEY AND END **.
.....B(50003)..1.B(50003)..160.B(50003).
.0.399.(....UU.71:.B(50003).0..53281,6:.
53280,14.4...."..":..?....875:..`.... **
STUDENT INSTRUCTIONS **......".":.UT,UL
%:.B(50003).0..53281,0:.53280,0.H...UT$.
" ATTRIBUTE BLOCKS":UP.0:UG$."STUDENT IN
ST":.850......".. YOU HAVE A BAG FULL OF
BLOCKS."......". SOME BLOCKS ARE .S.MAL
L AND SOME ARE . .L.ARGE.".D....". S
OME ARE .R.ED; OTHERS ARE .Y.ELLOW, .B.L
UE,".Z...." .AND .G.REEN.".A....". THERE
ARE .C.IRCLES, .S.QUARES, .T.RIANGLES,.
AND .D.IAMONDS.......". I HAVE 2 LOOPS
OF STRING, EACH"......". LABELLED WITH
A CARD."......835:UP.1:.850.M...." THE C
ARD MIGHT SAY .RED., OR .NOT CIRCLE.".H.
...". OR .LARGE. ETC..."......". YOU FIG
URE OUT WHAT EACH CARD SAYS.......". YOU
DO THAT BY GIVING ME BLOCKS TO"......".
PLACE IN THE LOOPS."......". GIVE ME A
BLOCK BY TYPING ITS INITIALS".,....". TH
EN PRESSING RETURN.".^....". :E.G. .LRC.
STANDS FOR LARGE RED CIRCLE."......". T
O GUESS THE IDENTITY OF A CARD SIMPLY".L
....". TYPE .CARD 1 IS NOT DIAMOND. RETU
RN (FOR . EXAMPLE)."......835:UP.2:.850.
.....".. TO SEE WHAT POSSIBILITIES ARE L
EFT,".-.B..". PRESS 'P' THEN RETURN.".Y.
D..". TO GET HELP PRESS 'H' THEN RETURN.
".B....835.V....UZ.1..UP%:.217.|........
.. ** TEACHER INSTRUCTIONS **.M....".":.
UT,UL%:.B(50003).0..53281,2:.53280,10...
..UT$." ATTRIBUTE BLOCKS":UP.0:UG$."TEAC
HER INST":.850.4....".. TO THE BEST
OF OUR KNOWLEDGE,.".]...." THIS PROGR
AM IS IN THE PUBLIC."......" DOMAIN.
IF THIS IS NOT THE CASE."......" PLEAS
E CONTACT:...".P...." COMMODORE BUS
INESS MACHINES."......" 3370 PH
ARMACY AVE......." AGINCOURT, O
NTARIO".9...." CANADA M1W 2K4
".Y...." (416) 499-4292".O...UP
.1:. 835:. 850:......" ..PROGRAM NAM
E: ATTRIBUTE BLOCKS......." WRITTEN
BY : UNKNOWN......." UPGRADED BY :
MARK STEWART......." .THIS PROGRAM W
ILL RUN ON ANY...7...." BASIC 2.
0 PET COMPUTER..^...." BASIC 4.0
PET COMPUTER......." 8032 CBM C
OMPUTER......." COMMODORE 64 COM
PUTER......835.B.N..UZ.1..UP%:.217.H.W..
...X.. ** PROGRAM MODIFICATION INST **..
.Y..".":.UT,UL%...].UP.0:UG$."PROGRAM MO
D":.850.(....835.<....UZ.1..UP%:.217.B..
...G.... ** TO USE 8032 LOAD CBM4032 **.
..F..".....BEFORE RUNNING THIS PROGRAM O
N AN 8032 ...S.P.." LOAD THE 'CBM
4032' PROGRAM............."...Z..UU.71..
....... .. ** T I T L E P A G E **.8."
.."....";:.UT,UU%:.B(50003).0..53280,14:
.53281,6.N.$..I.1.38:."...";:..F.&..I.1.
22:.".....";:..~.(..I.1.37:.".....";:...
.*..I.1.22:.".....";:....,.."...........
................ ......."..............
..... . . .....0.."...................
. ......2..".................... ..D.4
.."..............C O M M O D O R E...G.6
.."...............EDUCATIONAL.....8.."..
..............SOFTWARE...:.. ** COMMODOR
E LOGO **.Y.;..H(UD$,24);"..........PRES
S SPACE BAR OR WAIT.":I.0...<..A$:.A$.."
".I.I.1:.I.250.828...>.T1$."":T2$."":T3
$."":T4$."":I.0.(.@..300.D.C.. ** SPACE
BAR PRESS **..H..UO,0:.H(UD$,24);".....
..PRESS SPACE BAR TO CONTINUE."...L..UI$
:.UI$.." ".844...N.....R.. ** PAGE DESIG
N ROUTINE **.H.T.UP.UP.1...W.."."H(UT$.U
P$,21);I(UP$.UG$.D(UP),18).!.\.." ------
--------------------------------".0.`..U
H..0.870.D.A..H(UD$,24);H(UP$,7);"HELP -
PRESS H <RETURN>".V.F..UO,0:."..":...
.K.. ** PLEASE WAIT REMARK **.K.P..H(UD$
,24);" ONE MOMENT PLEASE...
".Q.U........ ** SET UP VARIABLES **.9
...UX$."H":.UQ%(1000):UB.32768:U1.196:U2
.197:U3.198:U4.216:UC.167:UU.1024.W...UT
.59468:UU%.12:UL%.14:UP%.1146:UM.32768:U
O.158:. 50003,0......B(50003).0.UB.1024:
U1.209:U2.210:U3.211:U4.214:UC.204:UU.20
48......B(50003).0.UT.53272:UU%.21:UL%.2
3:UP%.2139:UM.1024:UO.198.....UD$.".....
....................".O...UP$."
".U.....O.
... ** SET VARIABLES **.X....900...... *
* CHECK FOR 8032 **......".":." ":. SHIF
TED SPACE.H....B(UB.40)..96..700...... *
* MEMORY CHECK **...... .(0).2000.937.#.
..."....THIS MACHINE DOES NOT HAVE ENOUG
H.".G...."MEMORY TO RUN THIS PROGRAM !".
R....UU.71.X.....R...."..":.B(50003).0.9
62...... ** BASIC 2.0 OR 4.0 OR C-64
SETUP **......1075,133:.1076,144:.1077,
234:.1079,4:.1080,133:.1081,145.. ...109
1,155:.1098,133:.1099,144:.1100,234:.110
3,133.7 ...1104,145:.1105,234:.1082,234.
N ...B(50003)..160.955.} ...1093,88:.109
4,228:.1097,85:.1102,228:.965.. ...B(500
03)..1.990.A ...1093,49:.1094,230:.1097,
46:.1102,230:.965.. B..2099,141:.2100,20
:.2101,3:.2103,8:.2104,141:.2105,21.7!C.
.2106,3:.2115,145:.2117,52:.2118,234:.21
21,49:.2122,141.Q!D..2123,20:.2124,3:.21
26,234:.2127,141:.2128,21:.2129,3..!E..U
U.48:. DISABLE STOP KEY. !J..800:. TITLE
..!T..300:. MENU..!...".THE PGM WILL NOT
WORK ON THIS MACHINE!":..."...UZ.1..UP%
:.UP%:UZ.0:. ** PROGRAM STARTS HERE **.B
"..."..";:.:.B(50003).0..53281,6:.53280,
14.N"L..UT,UL%.`"`.. 1570:. INIT.Q"J.. 1
250:. VA%.."T..1340:.INST.."~.. 1770:. S
CR.."...CRCT(0).CRCT(1)..2850.."... 1980
:. COMM.Q"... 3160:.INPUT.."...IFLEFT$(B
$,1)="H"THENGOSUB2770:GOTO1150."#...H(B$
,1)."P"..2960:.:.835:.1150.H#..M$."IS":.
3100:.FLAG.. 2680:. 1150.Z#D..2030:. BLO
CK.D#X..1150.R#...INIT VA%..#...I.0.1:.J
.0.2..#..VA%(I,J,4)..1..#...J,I..#...I.0
.1:.K.0.2.S#..VA%(I,0,K)..1:VA%(I,0,6.K)
..1..#...K,I..#(.N(0).32:N(1).32..#2....
$<..--INSTRUC..$F.. 59468,14.>$P..".
.ATTRIBUTE BLOCKS.".D$Z...O$"
..INITI.D$,.. 59468,12:.".";..$J..:.I.0.
2:.J.0.3:. CO$(I,J):.J,I.S$T.. LARGE,SMA
LL,*,*,RED,BLUE,GREEN,YELLOW,SQUARE,CIRC
LE,TRIANGLE,DIAMOND..$^..CARDS..$H.X..(.
TI)..$R.. I.0 . 1..%|.A..(.(1).3). %...
A.0 . V.1:. 1690.2%..V..(.(1).4.1).M%..P
N..(.(1).2):PN.2.PN.1.J%..CA%(I,0).A:CA%
(I,1).PN.V..%..CA$(I,1).CO$(A,V.1):.PN.0
.CA$(I,0)."NOT".B%...A.0.PN.0.CA$(I,0)."
":CA$(I,1)."SMALL".I%B..I..%L.. CA%(0,0)
.CA%(1,0) . CA%(0,1).CA%(1,1) . .1630.2&
V.BLANK$."
".8&....N&...----PAINT SCREEN.Z
&..."..............":.I.1.10:.BL$:.I:.BL
$;..&...".".15)".ATTRIBUTE BLOCKS"..&...
". ...............&..."...CARD 1 ..
... .............".33)"..'...".".11)"...
.......CARD 2 ..!'&..".".11) ".".18)
".".32)"../'0.. I.1 . 8.L':..".".11)".".
18)".".32)"..T'D.. I.U'N..".............
......".32)"...'X.. .11)"...............
...........'B.."......'L.. I.0 . 8..'V..
".."CH$(0,I).12)CH$(2,I).19)CH$(1,I).33)
CH$(3,I)..'...I..'...".....";.3(... CRCT
(0) . ."."CA$(0,0)" ....."CA$(0,1)"
.";.J(... CRCT(1) . ..21)".."CA$(1,0)"
....."CA$(1,1)..(...".............."
..(.....(...---COMMANDS.D(F.."TYPE THE I
NITIALS OF A BLOCK, **THEN"..(P.." OR
ASK FOR .P.OSSIBILITIES **PRESS".%)Z
.." OR ASK FOR .H.ELP **RE
TURN".+)....=)...HANDLE BLOCK.G)..ERR.0.
R)...I.0.1.Q)...N(I)..1.CRCT(I)..0. .216
0..)... ERR . .2160..) .. C9 . C8 . . 36
60:C9.0:. 2160.R)*.."I COULD TELL YOU WH
ERE THE "B$" GOES,..*4.."BUT YOU ALREADY
HAVE ENOUGH INFORMATION.&*>.."TO FIGURE
OUT WHAT CARD"I.1"IS..B*H.."TRY TO FIGU
RE IT OUT!.P*R.C9.1:C8.1.[*\..11000.E*F.
ERR.1.M*P.. I.W*Z..ER....*...2260..*...E
R....*...2360..*...ER....*...2420..*...2
630..*...2500.C*J...Z*T..---CHECK LEGALI
TY..*... C(B$)..3 . ERR.1:.2340..+... I.
0 . 2:B(I)..1:.I.&+... B.1.3:. I.0 . 3.S
+..: . H(CO$(B.1,I),1).J(B$,B,1) . B(B.1
).I.]+... I,B.{+... I.0.2:. B(I)..1 . ER
R.1..+... I..+$.. ERR ..".I CAN'T UNDERS
TAND. TRY AGAIN.":.11000..+....Z+8..--A
LREADY CHOSEN?----..+B.. I.0 . 3:. J.0 .
8..,L.: . CH$(I,J).B$ . ERR.1..,V.. J,I
.6,`..".....................";.O,E.. ERR
. ."ALREADY CHOSEN, TRY ANOTHER BLOCK."
:.11000.U,J....,T..---DETERMINE AREA----
..,~.A(0).0:A(1).0..,... I.0 . 1.X,..: .
B(CA%(I,0)).1.CA%(I,1) . A(I).1..-..: .
CA%(I,1).0 . B(CA%(I,0))...CA%(I,1).1 .
A(I).1..-... I.8-..AR.A(0).2.A(1):. AR.
0 . AR.4.>-....Y-D..----UPDATE VALUES---
-.G-N.. I.0 . 1.U-X.. J.0 . 2..-..: . A(
I).1 . . 3340..-..: . A(I).0 . . 3400..-
... J,I..-... I.0 . 1.J-..: N(I).0.Z-..:
. J.0 . 2..-..: . K.0 . 8...(.: . VA
%(I,J,K).0 . N(I).N(I).1...2..K,J,I.!.<.
..;.F..----UPDATE CHOSEN---.J.P.. I.0 .
10.U.Z.. CH$(AR.1,I)."" . CH$(AR.1,I).B$
:I.10.}.D.. I...N.....X..---GUESSING---.
....M$."2":. 3100:NC.FLG......CRCT(NC)..
"YOU ALREADY GOT THAT ONE!":.11000:.....
..3560:.CONVERT../ .. ER . ..K/...VA%(NC
,NA,NV.4)..1.."THAT'S IMPOSSIBLE, DO YOU
SEE WHY?":.11000:.../...N(NC).1.."THERE
ARE .SEVERAL. POSSIBILITIES STILL":.110
00:.../...".THAT'S RIGHT!.":CR(NC).1:C8.
0:C9.0:.11000.C/H...N/R.. HELP.X/...1770
..0..F.0:.I.0.1:.N(I).1.CR(I).0.F.1:.291
0..0...I:. F . ..<0..."ENTER A BLOCK BY
TYPING ITS INITIALS;.J0..." FOR EXAMPLE
, SGD STANDS FOR THE SMALL..0..." GREEN
DIAMOND...0...10000:.835..0.....0"..---
WINNER----.R0,.."GOOD GOING! YOU FOUND T
HEM BOTH!"..06..835:...0^.. CARD HELP..1
H.."FIGURE OUT CARD"I.1"...31R.."TO TRY
IT, TYPE CARD"I.1"IS CIRCLE.W1|.." OR WH
ATEVER YOU THINK IT IS..G1...10000:.835.
.1...--POSSIBILITIES----..1...1770..1...
".FOR CARD 1".20)"FOR CARD 2."..1...N(0)
.9 . .".ALL ARE POSSIBLE".20)"ALL ARE PO
SSIBLE":...1...I.0.1..1...I.0...D2B..N(I
).1..:..20.I)"JUST 1 LEFT":..20.I)"YOU F
IGURED IT OUT":.3080.V2L..J.0.2:.K.0.8.P
2V..VA%(I,J,K)..0. .3070.|2....20.I)..2.
..K.4.."NOT"CO$(J,3.K):.3070..2...CO$(J,
K.5)..2...K,J.Q2..."................";:.
I.W2.....2...---MATCH M$ IN B$---..2&.FL
G.0..30.. I3.1 . C(B$).C(M$).1.63:.. M$.
J(B$,I3,C(M$)) . FLG.1.?3D.. I3.E3N...A3
X..---GET USERS INPUT----..3B.UL.22:US$.
" 12ABCDEGHILMNOPQRSTUWY":.35:B$.UR$..3V
..:...3...--LOOP I, ATT J, BLOCK IN.I3..
. K.0 . 3..3 .: . B(J)..K . VA%(I,J,K.5)
..1..4*.: . B(J).K . VA%(I,J,3.K)..1..44
..K..4>...94H..--LOOP I, ATT J, BLOCK OU
T.G4R.. K.0 . 3.H4\.: . B(J).K . VA%(I,J
,K.5)..1..4F.: . B(J)..K . VA%(I,J,3.K).
.1..4P..K..4Z....4... B$ TO CARD..4..NA.
.1:NV..1:ERR.0..4...I.0.2:.J.0.3:M$.CO$(
I,J):.3100..4... FLG . NA.I:NV.J.1..5...
J,I.<5... NA..1.NV..1.." I DON'T UNDERST
AND.":.11000:ERR.1:..O5$.M$."NOT":.3100.
_5...FLG.NV..NV.T58..NA.0.NV.2.NV..1.Z5B
....5L..---PRODDING---.F5V.."...........
.........PLEASE TRY TO FIGURE OUT WHAT.Y
5`.."CARD"I.1"IS...5J..11000:...5.'. TAB
LE OF KEYWORDS..6.'.". ";H(UD$,19).!6$'.
".L.ARGE".06.'.".S.MALL".R68'.".";H(UD$,
20);.8);".Y.ELLOW".E6B'..8);".G.REEN".W6
L'..8);".B.LUE"..6V'..8);".R.ED"..6`'.".
";H(UD$,20);.18);".T.RIANGLE".C6J'..18);
".D.IAMOND".X6T'..18);".C.IRCLE"..6~'..1
8);".S.QUARE"..6.'...6.*.835.77F+.UO,0:.
H(UD$,24);"
".=7P+.....,
> CLICK IMAGE PREVIEW FOR FULL MODAL