ARROW!.C3
FILE INFORMATION
FILENAME(S): ARROW!.C3
FILE TYPE(S): PRG
FILE SIZE: 8K
FIRST SEEN: 2025-11-30 01:08:28
APPEARS ON: 1 disk(s)
FILE HASH
98178ce718b17a062361f91d805c93a555d307ceb8f5a89add92522adab2c4d8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | ARROW!.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 3 | 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 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 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 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." |
00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.|
00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.|
00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..|
00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.|
00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U|
00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>|
00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50|
00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC|
000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR|
000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.|
000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++|
000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP|
000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 24 0A 5A | REQUEST +++.$.Z|
00000200: 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 |..UR$.UX$.195:. |
00000210: 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 |EXIT TO HELP ROU|
00000220: 54 49 4E 45 00 33 0A 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..|
00000230: 32 34 30 00 40 0A 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.|
00000240: 00 59 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |.Y.f.. ++ CHECK |
00000250: 44 45 4C 45 54 45 20 2B 2B 00 6A 0A 69 00 8B C3 |DELETE ++.j.i...|
00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 0A 6E 00 55 |(UR$).1.50...n.U|
00000270: 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB |R$..(UR$,.(UR$).|
00000280: 31 29 00 94 0A 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";|
00000290: 3A 89 35 30 00 BB 0A 78 00 8F 20 2B 2B 20 43 48 |:.50...x.. ++ CH|
000002A0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000002B0: 41 52 41 43 54 45 52 53 20 2B 2B 00 CD 0A 7D 00 |ARACTERS ++...}.|
000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 0A |..(US$).0.150...|
000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..|
000002E0: 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 |....UI$..(US$,US|
000002F0: 2C 31 29 A7 8E 00 FB 0A 8C 00 82 00 08 0B 91 00 |,1).............|
00000300: 55 49 24 B2 22 22 3A 8E 00 23 0B 96 00 8F 20 2A |UI$."":..#.... *|
00000310: 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 |* STANDARD INPUT|
00000320: 20 2A 2A 00 34 0B 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).|
00000330: 34 36 A7 8E 00 45 0B 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(|
00000340: 33 32 29 A7 8E 00 62 0B A0 00 8B C6 28 55 49 24 |32)...b.....(UI$|
00000350: 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 |).48..(UI$).57.1|
00000360: 37 30 00 68 0B A5 00 8E 00 85 0B AA 00 8B C6 28 |70.h...........(|
00000370: 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 |UI$).65..(UI$).9|
00000380: 30 A7 31 38 30 00 8B 0B AF 00 8E 00 AF 0B B4 00 |0.180...........|
00000390: 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 |..(UI$).193..(UI|
000003A0: 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 |$).218.UI$."":..|
000003B0: D2 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 |......(UT).UU%.U|
000003C0: 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 |I$..(.(UI$).128)|
000003D0: 3A 8E 00 D8 0B BB 00 8E 00 E5 0B BE 00 55 49 24 |:............UI$|
000003E0: B2 22 22 3A 8E 00 0A 0C C3 00 55 46 B2 31 3A 8F |."":......UF.1:.|
000003F0: 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E | +++ HELP ROUTIN|
00000400: 45 20 45 58 49 54 20 2B 2B 2B 00 13 0C C5 00 8D |E EXIT +++......|
00000410: 32 35 30 00 1C 0C C8 00 8D 32 34 35 00 2E 0C CD |250......245....|
00000420: 00 81 55 51 B2 55 42 A4 55 42 AA 39 39 39 00 4A |..UQ.UB.UB.999.J|
00000430: 0C D2 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 |...UQ%(UQ.UB)..(|
00000440: 55 51 29 3A 82 3A 99 22 93 22 00 5D 0C D7 00 55 |UQ):.:.".".]...U|
00000450: 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 66 0C |Z.1:UV%..(UT).f.|
00000460: D8 00 89 33 30 30 00 8B 0C D9 00 55 5A B2 30 3A |...300.....UZ.0:|
00000470: 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A |US$.UJ$:UG$.UK$:|
00000480: 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 C2 0C DA 00 |UP.UJ:UL.UK.....|
00000490: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000004A0: 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 |81,1:.".";:.5328|
000004B0: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 |1,6:.53280,14:.2|
000004C0: 32 30 00 CC 0C DB 00 99 22 93 22 3B 00 EE 0C DC |20......".";....|
000004D0: 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 |.UT$.UL$:.UT,UV%|
000004E0: 3A 81 55 51 B2 55 42 A4 55 42 AA 39 39 39 00 03 |:.UQ.UB.UB.999..|
000004F0: 0D E1 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 |....UQ,UQ%(UQ.UB|
00000500: 29 3A 82 00 3C 0D E2 00 99 C8 28 55 44 24 2C 32 |):..<.....(UD$,2|
00000510: 34 29 3B 22 1D 20 20 20 20 20 20 20 20 20 20 20 |4);". |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000530: 20 20 20 20 20 20 20 20 20 22 3A 8E 00 48 0D E6 | ":..H..|
00000540: 00 97 55 31 2C 55 31 25 00 54 0D E8 00 97 55 32 |..U1,U1%.T....U2|
00000550: 2C 55 32 25 00 60 0D E9 00 97 55 34 2C 55 34 25 |,U2%.`....U4,U4%|
00000560: 00 6E 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 78 |.n....U3,U3%.1.x|
00000570: 0D EB 00 8E 3A 89 33 35 00 AA 0D F0 00 55 44 25 |....:.35.....UD%|
00000580: B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |.((U2%.256.U1%.U|
00000590: 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 |3%).UB).40:..(UD|
000005A0: 24 2C 55 44 25 AA 31 29 3A 8E 00 E5 0D F5 00 99 |$,UD%.1):.......|
000005B0: C8 28 55 44 24 2C 32 34 29 3B 22 1D 20 20 20 20 |.(UD$,24);". |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 | . HELP COMING .|
000005E0: 20 20 22 3A 8E 00 11 0E FA 00 55 31 25 B2 C2 28 | ":......U1%..(|
000005F0: 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 |U1):U2%..(U2):U3|
00000600: 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 |%..(U3):U4%..(U4|
00000610: 29 00 39 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B |).9...UJ$.US$:UK|
00000620: 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A |$.UG$:UL$.UT$:UJ|
00000630: B2 55 50 3A 55 4B B2 55 4C 00 3F 0E FF 00 8E 00 |.UP:UK.UL.?.....|
00000640: 50 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A |P.,.. ** MENU **|
00000650: 00 56 0E 2D 01 3A 00 85 0E 2E 01 99 22 93 22 3A |.V.-.:......".":|
00000660: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
00000670: 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 |).0..53281,9:.53|
00000680: 32 38 30 2C 38 00 8B 0E 2F 01 3A 00 A8 0E 31 01 |280,8.../.:...1.|
00000690: 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
000006A0: 20 20 20 4D 45 4E 55 22 00 D7 0E 36 01 99 22 20 | MENU"...6.." |
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006D0: 2D 2D 2D 2D 2D 2D 22 00 F8 0E 3B 01 99 22 11 11 |------"...;.."..|
000006E0: 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 | 1. BEGI|
000006F0: 4E 20 41 52 52 4F 57 22 00 22 0F 40 01 99 22 11 |N ARROW".".@..".|
00000700: 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 |. 2. STU|
00000710: 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |DENT INSTRUCTION|
00000720: 53 22 00 4C 0F 45 01 99 22 11 11 20 20 20 20 20 |S".L.E..".. |
00000730: 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 | 3. TEACHER I|
00000740: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 68 0F 4F |NSTRUCTIONS".h.O|
00000750: 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 |..".. 4. |
00000760: 20 51 55 49 54 11 11 22 00 97 0F 54 01 99 22 20 | QUIT.."...T.." |
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000790: 2D 2D 2D 2D 2D 2D 22 00 C2 0F 59 01 99 22 11 11 |------"...Y.."..|
000007A0: 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E | PRESS A N|
000007B0: 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 |UMBER KEY (1-4) |
000007C0: 22 3B 00 EA 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 |";...^.UL.1:US$.|
000007D0: 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 |"1234":.35:. INP|
000007E0: 55 54 20 52 4F 55 54 49 4E 45 00 F5 0F 60 01 55 |UT ROUTINE...`.U|
000007F0: 53 24 B2 22 22 00 12 10 63 01 91 C5 28 55 52 24 |S$.""...c...(UR$|
00000800: 29 8D 31 34 36 30 2C 34 30 30 2C 35 30 30 2C 33 |).1460,400,500,3|
00000810: 39 36 00 1B 10 68 01 89 33 30 30 00 42 10 8B 01 |96...h..300.B...|
00000820: 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 |. ** RE-ENABLE S|
00000830: 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 |TOP KEY AND END |
00000840: 2A 2A 00 71 10 8C 01 8B C2 28 35 30 30 30 33 29 |**.q.....(50003)|
00000850: B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 |..1..(50003)..16|
00000860: 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 |0..(50003)..0.39|
00000870: 39 00 9B 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 |9......UU.71:..(|
00000880: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00000890: 36 3A 97 35 33 32 38 30 2C 31 34 00 A7 10 8E 01 |6:.53280,14.....|
000008A0: 99 22 9A 93 22 3A 80 00 B2 10 8F 01 8D 38 37 35 |."..":.......875|
000008B0: 3A 8E 00 D3 10 90 01 8F 20 2A 2A 20 53 54 55 44 |:....... ** STUD|
000008C0: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
000008D0: 20 2A 2A 00 02 11 95 01 99 22 93 22 3A 97 55 54 | **......".":.UT|
000008E0: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0|
000008F0: A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 |..53281,0:.53280|
00000900: 2C 30 00 28 11 9A 01 55 48 B2 31 3A 55 50 B2 30 |,0.(...UH.1:UP.0|
00000910: 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E |:UG$.".TUDENT .N|
00000920: 53 54 22 3A 8D 38 35 30 00 37 11 E5 01 8D 31 32 |ST":.850.7....12|
00000930: 32 30 3A 8D 38 33 35 00 4B 11 EA 01 8B 55 5A B2 |20:.835.K....UZ.|
00000940: 31 A7 9E 55 50 25 3A 89 32 31 37 00 51 11 F3 01 |1..UP%:.217.Q...|
00000950: 8E 00 72 11 F4 01 8F 20 2A 2A 20 54 45 41 43 48 |..r.... ** TEACH|
00000960: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |ER INSTRUCTIONS |
00000970: 2A 2A 00 A2 11 F5 01 99 22 93 22 3A 97 55 54 2C |**......".":.UT,|
00000980: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
00000990: 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C |.53281,2:.53280,|
000009A0: 31 30 00 C8 11 F6 01 55 48 B2 31 3A 55 50 B2 30 |10.....UH.1:UP.0|
000009B0: 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E |:UG$.".EACHER .N|
000009C0: 53 54 22 3A 8D 38 35 30 00 F6 11 F7 01 99 22 11 |ST":.850......".|
000009D0: 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 |. .O THE BE|
000009E0: 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 |ST OF OUR KNOWLE|
000009F0: 44 47 45 2C 11 22 00 1F 12 F8 01 99 22 20 20 20 |DGE,."......" |
00000A00: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS |
00000A10: 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 |IN THE PUBLIC.".|
00000A20: 4B 12 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E |K...." DOMAIN.|
00000A30: 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 | .F THIS IS NOT|
00000A40: 20 54 48 45 20 43 41 53 45 11 22 00 68 12 FA 01 | THE CASE.".h...|
00000A50: 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 |." PLEASE CONT|
00000A60: 41 43 54 3A 11 11 11 22 00 92 12 FB 01 99 22 20 |ACT:..."......" |
00000A70: 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 | .OMMODORE .|
00000A80: 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 |USINESS .ACHINES|
00000A90: 11 22 00 B5 12 FC 01 99 22 20 20 20 20 20 20 20 |."......" |
00000AA0: 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 | 3370 .HARMACY|
00000AB0: 20 C1 56 45 2E 00 D9 12 FD 01 99 22 20 20 20 20 | .VE......." |
00000AC0: 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C | .GINCOURT,|
00000AD0: 20 CF 4E 54 41 52 49 4F 22 00 FB 12 FE 01 99 22 | .NTARIO"......"|
00000AE0: 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 | .ANADA|
00000AF0: 20 20 20 CD 31 D7 20 32 CB 34 22 00 1B 13 FF 01 | .1. 2.4".....|
00000B00: 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 36 |." (416|
00000B10: 29 20 34 39 39 2D 34 32 39 32 22 00 36 13 00 02 |) 499-4292".6...|
00000B20: 55 48 B2 31 3A 55 50 B2 31 3A 8D 20 38 33 35 3A |UH.1:UP.1:. 835:|
00000B30: 8D 20 38 35 30 3A 00 58 13 01 02 99 22 20 20 20 |. 850:.X...." |
00000B40: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME|
00000B50: 3A 20 C1 52 52 4F 57 11 00 82 13 02 02 99 22 20 |: .RROW......." |
00000B60: 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 | .RITTEN .Y |
00000B70: 3A 20 CA 49 4D 20 C2 55 54 54 45 52 46 49 45 4C |: .IM .UTTERFIEL|
00000B80: 44 11 00 C6 13 03 02 99 22 20 20 20 20 20 D5 50 |D......." .P|
00000B90: 47 52 41 44 45 44 20 C2 59 20 3A 20 C3 41 52 59 |GRADED .Y : .ARY|
00000BA0: 20 CC 45 57 49 53 22 3A 99 22 20 20 20 20 20 20 | .EWIS":." |
00000BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 C8 49 4E | .IN|
00000BC0: 20 CA 41 4E 47 22 00 F1 13 04 02 99 22 20 20 20 | .ANG"......" |
00000BD0: 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 | ..HIS PROGRAM |
00000BE0: 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 |WILL RUN ON ANY.|
00000BF0: 11 00 10 14 07 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000C00: 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 | ... 64 ........|
00000C10: 00 35 14 08 02 99 22 20 20 20 20 20 20 20 20 20 |.5...." |
00000C20: C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD |......... 64 ...|
00000C30: D0 D5 D4 C5 D2 00 3E 14 09 02 8D 38 33 35 00 52 |......>....835.R|
00000C40: 14 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |.N..UZ.1..UP%:.2|
00000C50: 31 37 00 58 14 57 02 8E 00 7E 14 58 02 8F 20 2A |17.X.W...~.X.. *|
00000C60: 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 |* PROGRAM MODIFI|
00000C70: 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 8F |CATION INST **..|
00000C80: 14 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 |.Y..".":.UT,UL%.|
00000C90: B4 14 5D 02 55 48 B2 31 3A 55 50 B2 30 3A 55 47 |..].UH.1:UP.0:UG|
00000CA0: 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A |$.".ROGRAM .OD":|
00000CB0: 8D 38 35 30 00 BD 14 94 02 8D 38 33 35 00 D1 14 |.850......835...|
00000CC0: B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |...UZ.1..UP%:.21|
00000CD0: 37 00 D7 14 BB 02 8E 00 FC 14 BC 02 8F 20 2A 2A |7............ **|
00000CE0: 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 | TO USE 8032 LOA|
00000CF0: 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 32 15 C6 |D CBM4032 **.2..|
00000D00: 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 |..".....BEFORE R|
00000D10: 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 |UNNING THIS PROG|
00000D20: 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 |RAM ON AN 8032 |
00000D30: 11 11 00 68 15 D0 02 99 22 20 20 20 20 20 20 4C |...h...." L|
00000D40: 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 |OAD THE 'CBM 403|
00000D50: 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 |2' PROGRAM......|
00000D60: 11 11 11 11 11 11 11 22 00 73 15 DA 02 9E 55 55 |.......".s....UU|
00000D70: AA 37 31 00 79 15 E4 02 80 00 99 15 20 03 8F 20 |.71.y....... .. |
00000D80: 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 |** T I T L E P|
00000D90: 20 41 20 47 20 45 20 2A 2A 00 CD 15 22 03 99 22 | A G E **...".."|
00000DA0: 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B |....";:.UT,UU%:.|
00000DB0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000DC0: 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 E3 15 |0,14:.53281,6...|
00000DD0: 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 |$..I.1.38:."..."|
00000DE0: 3B 3A 82 00 FB 15 26 03 81 49 B2 31 A4 32 32 3A |;:....&..I.1.22:|
00000DF0: 99 22 11 9D 12 A6 92 22 3B 3A 82 00 13 16 28 03 |.".....";:....(.|
00000E00: 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 |.I.1.37:."....."|
00000E10: 3B 3A 82 00 2B 16 2A 03 81 49 B2 31 A4 32 32 3A |;:..+.*..I.1.22:|
00000E20: 99 22 91 9D 12 A6 92 22 3B 3A 82 00 50 16 2C 03 |.".....";:..P.,.|
00000E30: 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |."..............|
00000E40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 |............. .|
00000E50: 00 72 16 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.r....".........|
00000E60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 A2 20 20 12 20 |.......... . . |
00000E70: A2 A9 00 93 16 30 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....0..".......|
00000E80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 |............ . |
00000E90: 12 A3 DF 00 B1 16 32 03 99 22 1D 1D 1D 1D 1D 1D |......2.."......|
00000EA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 |.............. |
00000EB0: 92 00 D9 16 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D |....4.."........|
00000EC0: 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 |......C O M M O |
00000ED0: 44 20 4F 20 52 20 45 11 11 00 FC 16 36 03 99 22 |D O R E.....6.."|
00000EE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 |...............E|
00000EF0: 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 1B 17 38 |DUCATIONAL.....8|
00000F00: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000F10: 1D 1D 1D 53 4F 46 54 57 41 52 45 00 36 17 3A 03 |...SOFTWARE.6.:.|
00000F20: 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C |. ** COMMODORE L|
00000F30: 4F 47 4F 20 2A 2A 00 6E 17 3B 03 99 C8 28 55 44 |OGO **.n.;...(UD|
00000F40: 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |$,24);".........|
00000F50: 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 |.PRESS SPACE BAR|
00000F60: 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 90 | OR WAIT.":I.0..|
00000F70: 17 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 |.<..A$:.A$.." ".|
00000F80: 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 |I.I.1:.I.250.828|
00000F90: 00 B4 17 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 |...>.T1$."":T2$.|
00000FA0: 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 |"":T3$."":T4$.""|
00000FB0: 3A 49 B2 30 00 BD 17 40 03 89 33 30 30 00 D9 17 |:I.0...@..300...|
00000FC0: 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 |C.. ** SPACE BAR|
00000FD0: 20 50 52 45 53 53 20 2A 2A 00 14 18 48 03 97 55 | PRESS **...H..U|
00000FE0: 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 |O,0:..(UD$,24);"|
00000FF0: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA|
00001000: 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E |CE BAR TO CONTIN|
00001010: 55 45 92 22 00 2B 18 4C 03 A1 55 49 24 3A 8B 55 |UE.".+.L..UI$:.U|
00001020: 49 24 B3 B1 22 20 22 A7 38 34 34 00 31 18 4E 03 |I$.." ".844.1.N.|
00001030: 8E 00 51 18 52 03 8F 20 2A 2A 20 50 41 47 45 20 |..Q.R.. ** PAGE |
00001040: 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A |DESIGN ROUTINE *|
00001050: 2A 00 5D 18 54 03 55 50 B2 55 50 AA 31 00 87 18 |*.].T.UP.UP.1...|
00001060: 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C |W..".".(UT$.UP$,|
00001070: 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 |21);.(UP$.UG$..(|
00001080: 55 50 29 2C 31 38 29 00 B6 18 5C 03 99 22 20 2D |UP),18)...\.." -|
00001090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000010A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000010B0: 2D 2D 2D 2D 2D 22 00 C5 18 60 03 8B 55 48 B3 B1 |-----"...`..UH..|
000010C0: 30 A7 38 37 30 00 F9 18 61 03 99 C8 28 55 44 24 |0.870...a...(UD$|
000010D0: 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 |,24);.(UP$,7);"H|
000010E0: 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 |ELP - PRESS H |
000010F0: 3C 52 45 54 55 52 4E 3E 22 00 0A 19 66 03 55 48 |<RETURN>"...f.UH|
00001100: B2 30 3A 99 22 13 11 22 3A 8E 00 29 19 6B 03 8F |.0:."..":..).k..|
00001110: 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 | ** PLEASE WAIT |
00001120: 52 45 4D 41 52 4B 20 2A 2A 00 5F 19 70 03 99 C8 |REMARK **._.p...|
00001130: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
00001140: 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 | ONE MOMENT |
00001150: 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 |PLEASE... ".|
00001160: 65 19 75 03 8E 00 82 19 84 03 8F 20 2A 2A 20 53 |e.u........ ** S|
00001170: 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 |ET UP VARIABLES |
00001180: 2A 2A 00 CD 19 85 03 55 58 24 B2 22 48 22 3A 86 |**.....UX$."H":.|
00001190: 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 |UQ%(1000):UB.327|
000011A0: 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 |68:U1.196:U2.197|
000011B0: 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 |:U3.198:U4.216:U|
000011C0: 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 0B 1A |C.167:UU.1024...|
000011D0: 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 |..UT.59468:UU%.1|
000011E0: 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 |2:UL%.14:UP%.114|
000011F0: 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 |6:UM.32768:UO.15|
00001200: 38 3A 97 20 35 30 30 30 33 2C 30 00 4E 1A 87 03 |8:. 50003,0.N...|
00001210: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 |..(50003).0.UB.1|
00001220: 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 |024:U1.209:U2.21|
00001230: 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A |0:U3.211:U4.214:|
00001240: 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 8D |UC.204:UU.2048..|
00001250: 1A 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 |.....(50003).0.U|
00001260: 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 |T.53272:UU%.21:U|
00001270: 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 |L%.23:UP%.2139:U|
00001280: 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 B1 1A |M.1024:UO.198...|
00001290: 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 |..UD$.".........|
000012A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000012B0: 22 00 E3 1A 8A 03 55 50 24 B2 22 20 20 20 20 20 |".....UP$." |
000012C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012E0: 20 20 22 00 31 1B 8B 03 55 54 24 B2 22 20 C1 D2 | ".1...UT$." ..|
000012F0: D2 CF D7 20 20 20 20 20 20 20 20 20 A0 A0 A0 A0 |... ....|
00001300: 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 |":. PLACE PROGRA|
00001310: 4D 20 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 |M TITLE HERE !!!|
00001320: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A |!!!!!!!!!!!!!!**|
00001330: 2A 00 37 1B 8C 03 8E 00 51 1B 8E 03 8F 20 2A 2A |*.7.....Q.... **|
00001340: 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A | SET VARIABLES *|
00001350: 2A 00 5A 1B 93 03 8D 39 30 30 00 71 1B 94 03 86 |*.Z....900.q....|
00001360: 50 28 38 30 29 2C 44 28 33 29 2C 53 41 28 31 33 |P(80),D(3),SA(13|
00001370: 29 00 8C 1B 98 03 8F 20 2A 2A 20 43 48 45 43 4B |)...... ** CHECK|
00001380: 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 AA 1B 9D | FOR 8032 **....|
00001390: 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 |..".":.".":. SHI|
000013A0: 46 54 45 44 20 53 50 41 43 45 00 C1 1B A2 03 8B |FTED SPACE......|
000013B0: C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 |.(UB.40)..96..70|
000013C0: 30 00 DA 1B A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 |0...... ** MEMOR|
000013D0: 59 20 43 48 45 43 4B 20 2A 2A 00 EE 1B A4 03 8B |Y CHECK **......|
000013E0: 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 1C | .(0).2000.937..|
000013F0: 1C A5 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 |...."....THIS MA|
00001400: 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 |CHINE DOES NOT H|
00001410: 41 56 45 20 45 4E 4F 55 47 48 11 22 00 40 1C A6 |AVE ENOUGH.".@..|
00001420: 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E |.."MEMORY TO RUN|
00001430: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 | THIS PROGRAM !"|
00001440: 00 4B 1C A7 03 9E 55 55 AA 37 31 00 51 1C A8 03 |.K....UU.71.Q...|
00001450: 80 00 6B 1C A9 03 99 22 93 05 22 3A 8B C2 28 35 |..k...."..":..(5|
00001460: 30 30 30 33 29 B2 30 A7 39 36 32 00 9A 1C AC 03 |0003).0.962.....|
00001470: 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 |. ** BASIC 2.0 |
00001480: 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 |OR 4.0 OR C-6|
00001490: 34 20 53 45 54 55 50 20 2A 2A 00 D8 1C AD 03 97 |4 SETUP **......|
000014A0: 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 |1075,133:.1076,1|
000014B0: 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 |44:.1077,234:.10|
000014C0: 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 |79,4:.1080,133:.|
000014D0: 31 30 38 31 2C 31 34 35 00 0E 1D AE 03 97 31 30 |1081,145......10|
000014E0: 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 |91,155:.1098,133|
000014F0: 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 |:.1099,144:.1100|
00001500: 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 30 |,234:.1103,133.0|
00001510: 1D AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 |....1104,145:.11|
00001520: 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 |05,234:.1082,234|
00001530: 00 47 1D B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 |.G.....(50003)..|
00001540: 31 36 30 A7 39 35 35 00 76 1D B6 03 97 31 30 39 |160.955.v....109|
00001550: 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 |3,88:.1094,228:.|
00001560: 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 |1097,85:.1102,22|
00001570: 38 3A 89 39 36 35 00 8B 1D BB 03 8B C2 28 35 30 |8:.965.......(50|
00001580: 30 30 33 29 B3 B1 31 A7 39 39 30 00 BA 1D C0 03 |003)..1.990.....|
00001590: 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 |.1093,49:.1094,2|
000015A0: 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 |30:.1097,46:.110|
000015B0: 32 2C 32 33 30 3A 89 39 36 35 00 F4 1D C2 03 97 |2,230:.965......|
000015C0: 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 |2099,141:.2100,2|
000015D0: 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C |0:.2101,3:.2103,|
000015E0: 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 |8:.2104,141:.210|
000015F0: 35 2C 32 31 00 30 1E C3 03 97 32 31 30 36 2C 33 |5,21.0....2106,3|
00001600: 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 |:.2115,145:.2117|
00001610: 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 |,52:.2118,234:.2|
00001620: 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 |121,49:.2122,141|
00001630: 00 6A 1E C4 03 97 32 31 32 33 2C 32 30 3A 97 32 |.j....2123,20:.2|
00001640: 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A |124,3:.2126,234:|
00001650: 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C |.2127,141:.2128,|
00001660: 32 31 3A 97 32 31 32 39 2C 33 00 88 1E C5 03 9E |21:.2129,3......|
00001670: 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 |UU.48:. DISABLE |
00001680: 53 54 4F 50 20 4B 45 59 00 99 1E CA 03 8D 38 30 |STOP KEY......80|
00001690: 30 3A 8F 20 54 49 54 4C 45 00 A9 1E D4 03 89 33 |0:. TITLE......3|
000016A0: 30 30 3A 8F 20 4D 45 4E 55 00 DA 1E DE 03 99 22 |00:. MENU......"|
000016B0: 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F |.THE PGM WILL NO|
000016C0: 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D |T WORK ON THIS M|
000016D0: 41 43 48 49 4E 45 21 22 3A 80 00 0F 1F E8 03 8B |ACHINE!":.......|
000016E0: 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 |UZ.1..UP%:.UP%:U|
000016F0: 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |Z.0:. ** PROGRAM|
00001700: 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 | STARTS HERE **.|
00001710: 3B 1F E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 |;...."..";:.:..(|
00001720: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00001730: 36 3A 97 35 33 32 38 30 2C 31 34 00 51 1F FC 03 |6:.53280,14.Q...|
00001740: 50 47 24 B2 22 41 52 52 4F 57 22 3A 8D 32 33 38 |PG$."ARROW":.238|
00001750: 30 00 77 1F 10 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0.w....*********|
00001760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001770: 2A 2A 2A 2A 2A 2A 2A 00 9D 1F 24 04 8F 2A 20 20 |*******...$..* |
00001780: 20 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 53 20 | MODIFICATIONS |
00001790: 4D 41 44 45 20 42 59 20 20 20 20 20 2A 00 C3 1F |MADE BY *...|
000017A0: 38 04 8F 2A 20 20 20 43 41 52 59 20 4C 45 57 49 |8..* CARY LEWI|
000017B0: 53 20 41 4E 44 20 48 49 4E 20 4A 41 4E 47 20 20 |S AND HIN JANG |
000017C0: 20 20 2A 00 E9 1F 4C 04 8F 2A 2A 2A 2A 2A 2A 2A | *...L..*******|
000017D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0F 20 60 04 99 22 |*********.. `.."|
000017F0: 93 11 12 20 41 52 52 4F 57 20 92 20 20 20 20 4A |... ARROW . J|
00001800: 49 4D 20 42 55 54 54 45 52 46 49 45 4C 44 22 00 |IM BUTTERFIELD".|
00001810: 2C 20 74 04 99 22 11 49 4E 53 54 52 55 43 54 49 |, t..".INSTRUCTI|
00001820: 4F 4E 53 20 28 59 2F 4E 29 20 3F 22 00 36 20 B0 |ONS (Y/N) ?".6 .|
00001830: 04 89 31 31 36 30 00 61 20 C4 04 99 22 11 11 20 |..1160.a ...".. |
00001840: D5 53 45 20 54 48 45 20 4E 55 4D 42 45 52 20 4B |.SE THE NUMBER K|
00001850: 45 59 53 20 54 4F 20 20 20 20 20 20 20 20 20 38 |EYS TO 8|
00001860: 22 00 8A 20 D8 04 99 22 1D 1D 1D 1D 1D 1D 1D 1D |".. ..."........|
00001870: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001880: 1D 1D 1D 1D 1D 1D 1D 1D DD 22 00 B5 20 EC 04 99 |.........".. ...|
00001890: 22 20 47 55 49 44 45 20 54 48 45 20 4D 4F 56 49 |" GUIDE THE MOVI|
000018A0: 4E 47 20 53 4E 41 4B 45 2E 20 20 20 20 20 20 34 |NG SNAKE. 4|
000018B0: C0 DB C0 36 22 00 DE 20 00 05 99 22 1D 1D 1D 1D |...6".. ..."....|
000018C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000018D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DD 22 00 07 |............."..|
000018E0: 21 14 05 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |!..."...........|
000018F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001900: 1D 1D 1D 1D 1D 32 22 00 37 21 28 05 99 22 11 20 |.....2".7!(..". |
00001910: D9 4F 55 20 53 43 4F 52 45 20 50 4F 49 4E 54 53 |.OU SCORE POINTS|
00001920: 20 42 59 20 48 49 54 54 49 4E 47 20 54 48 45 20 | BY HITTING THE |
00001930: 42 4F 58 45 53 2E 22 00 58 21 3C 05 99 22 11 20 |BOXES.".X!<..". |
00001940: C4 4F 4E 27 54 20 48 49 54 20 54 48 45 20 42 4F |.ON'T HIT THE BO|
00001950: 55 4E 44 41 52 59 2E 22 00 75 21 50 05 99 22 11 |UNDARY.".u!P..".|
00001960: 20 C4 4F 4E 27 54 20 48 49 54 20 59 4F 55 52 53 | .ON'T HIT YOURS|
00001970: 45 4C 46 2E 22 00 A3 21 64 05 99 22 11 11 11 20 |ELF."..!d.."... |
00001980: D9 4F 55 52 20 54 55 52 4E 20 43 41 4E 20 4C 41 |.OUR TURN CAN LA|
00001990: 53 54 20 46 4F 52 20 36 30 20 53 45 43 4F 4E 44 |ST FOR 60 SECOND|
000019A0: 53 2E 22 00 A9 21 78 05 8E 00 D1 21 B4 05 53 B2 |S."..!x....!..S.|
000019B0: 30 3A 44 28 30 29 B2 32 32 3A 44 28 31 29 B2 36 |0:D(0).22:D(1).6|
000019C0: 30 3A 44 28 32 29 B2 36 32 3A 44 28 33 29 B2 33 |0:D(2).62:D(3).3|
000019D0: 30 00 EB 21 C8 05 54 39 B2 55 4D 3A 54 36 B2 33 |0..!..T9.UM:T6.3|
000019E0: 35 39 39 3A 97 55 54 2C 55 55 25 00 0A 22 DC 05 |599:.UT,UU%.."..|
000019F0: 4D 31 B2 35 39 34 36 37 3A 4D 32 B2 35 39 34 36 |M1.59467:M2.5946|
00001A00: 36 3A 4D 33 B2 35 39 34 36 34 00 42 22 F0 05 8B |6:M3.59464.B"...|
00001A10: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00001A20: 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 |1,1:.".";:.53281|
00001A30: 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 31 35 |,6:.53280,14:.15|
00001A40: 32 37 00 4C 22 F5 05 99 22 93 22 3B 00 7A 22 F7 |27.L"...".";.z".|
00001A50: 05 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00001A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A70: 20 53 43 4F 52 45 3A 20 30 22 00 A0 22 04 06 81 | SCORE: 0".."...|
00001A80: 4A B2 55 4D AA 34 30 A4 55 4D AA 37 39 3A 97 4A |J.UM.40.UM.79:.J|
00001A90: 2C 38 31 3A 97 4A AA 39 32 30 2C 38 31 3A 82 4A |,81:.J.920,81:.J|
00001AA0: 00 C8 22 18 06 81 4A B2 55 4D AA 38 30 A4 55 4D |.."...J.UM.80.UM|
00001AB0: AA 39 36 30 A9 34 30 3A 97 4A 2C 38 31 3A 97 4A |.960.40:.J,81:.J|
00001AC0: AA 33 39 2C 38 31 3A 82 00 EC 22 2C 06 56 B2 32 |.39,81:...",.V.2|
00001AD0: 30 3A 48 B2 33 35 3A 56 31 B2 30 3A 48 31 B2 AB |0:H.35:V1.0:H1..|
00001AE0: 31 3A 50 32 B2 31 30 3A 44 31 B2 31 00 FD 22 40 |1:P2.10:D1.1.."@|
00001AF0: 06 54 49 24 B2 22 30 30 30 30 30 30 22 00 19 23 |.TI$."000000"..#|
00001B00: 54 06 8B 36 30 AB C5 28 C9 28 54 49 24 2C 32 29 |T..60..(.(TI$,2)|
00001B10: 29 B1 31 30 A7 31 36 38 30 00 56 23 68 06 99 22 |).10.1680.V#h.."|
00001B20: 13 53 45 43 4F 4E 44 53 20 4C 45 46 54 20 54 4F |.SECONDS LEFT TO|
00001B30: 20 50 4C 41 59 22 3B 36 30 AB C5 28 C9 28 54 49 | PLAY";60..(.(TI|
00001B40: 24 2C 32 29 29 3B 22 9D 20 22 3A 8B 54 49 B1 54 |$,2));". ":.TI.T|
00001B50: 36 89 32 32 36 30 00 60 23 7C 06 89 31 37 30 30 |6.2260.`#|..1700|
00001B60: 00 98 23 90 06 99 22 13 53 45 43 4F 4E 44 53 20 |..#...".SECONDS |
00001B70: 4C 45 46 54 20 54 4F 20 50 4C 41 59 22 3B 36 30 |LEFT TO PLAY";60|
00001B80: AB C5 28 C9 28 54 49 24 2C 32 29 29 3A 8B 54 49 |..(.(TI$,2)):.TI|
00001B90: B1 54 36 89 32 32 36 30 00 AD 23 A4 06 A1 5A 24 |.T6.2260..#...Z$|
00001BA0: 3A 8B 5A 24 B2 22 22 89 31 37 36 30 04 00 D3 23 |:.Z$."".1760...#|
00001BB0: AE 06 8B 5A 24 B2 22 48 22 A7 46 4C B2 31 3A 53 |...Z$."H".FL.1:S|
00001BC0: 54 24 B2 54 49 24 3A 8D 31 39 35 3A 54 49 24 B2 |T$.TI$:.195:TI$.|
00001BD0: 53 54 24 00 FC 23 B8 06 5A B2 28 C6 28 5A 24 29 |ST$..#..Z.(.(Z$)|
00001BE0: AB 35 30 29 AD 32 3A 8B 5A B3 B1 B5 28 5A 29 B0 |.50).2:.Z...(Z).|
00001BF0: 5A B3 30 B0 5A B1 33 89 31 37 36 30 00 28 24 CC |Z.0.Z.3.1760.($.|
00001C00: 06 44 31 B2 5A 3A 44 B2 5A AB 31 2E 35 3A 56 31 |.D1.Z:D.Z.1.5:V1|
00001C10: B2 B5 28 B6 28 44 29 29 AC B4 28 44 29 3A 48 31 |..(.(D))..(D):H1|
00001C20: B2 B4 28 44 29 AB 56 31 00 3A 24 E0 06 56 B2 56 |..(D).V1.:$..V.V|
00001C30: AB 56 31 3A 48 B2 48 AA 48 31 00 4A 24 F4 06 50 |.V1:H.H.H1.J$..P|
00001C40: B2 55 4D AA 56 AC 34 30 AA 48 00 71 24 08 07 50 |.UM.V.40.H.q$..P|
00001C50: 39 B2 C2 28 50 29 3A 97 4D 31 2C 31 36 3A 97 4D |9..(P):.M1,16:.M|
00001C60: 33 2C 32 39 AC 44 31 AA 38 30 3A 97 4D 32 2C 31 |3,29.D1.80:.M2,1|
00001C70: 35 00 8F 24 1C 07 52 36 B2 52 37 3A 52 37 B2 52 |5..$..R6.R7:R7.R|
00001C80: 37 AA 31 3A 8B 52 37 B1 50 32 A7 52 37 B2 30 00 |7.1:.R7.P2.R7.0.|
00001C90: B8 24 30 07 50 31 B2 50 28 52 37 29 3A 50 28 52 |.$0.P1.P(R7):P(R|
00001CA0: 37 29 B2 50 3A 97 4D 31 2C 30 3A 8B 50 31 B3 B1 |7).P:.M1,0:.P1..|
00001CB0: 30 A7 97 50 31 2C 33 32 00 DC 24 44 07 97 50 2C |0..P1,32..$D..P,|
00001CC0: 44 28 44 31 29 3A 50 31 B2 50 28 52 36 29 3A 8B |D(D1):P1.P(R6):.|
00001CD0: 50 31 B3 B1 30 A7 97 50 31 2C 38 31 00 EE 24 58 |P1..0..P1,81..$X|
00001CE0: 07 8B 50 39 B3 B1 33 32 89 32 31 30 30 04 00 01 |..P9..32.2100...|
00001CF0: 25 6C 07 8B BB 28 31 29 B1 2E 30 35 89 31 36 34 |%l...(1)..05.164|
00001D00: 30 00 42 25 80 07 81 56 33 B2 56 32 AB 31 A4 56 |0.B%...V3.V2.1.V|
00001D10: 32 AA 31 3A 50 33 B2 56 33 AC 34 30 AA 54 39 3A |2.1:P3.V3.40.T9:|
00001D20: 81 48 33 B2 48 32 AB 31 A4 48 32 AA 31 3A 8B C2 |.H3.H2.1.H2.1:..|
00001D30: 28 50 33 AA 48 33 29 B3 B1 31 30 32 89 31 39 36 |(P3.H3)..102.196|
00001D40: 30 04 00 50 25 94 07 97 50 33 AA 48 33 2C 33 32 |0..P%...P3.H3,32|
00001D50: 00 66 25 A8 07 82 48 33 2C 56 33 3A 54 B2 30 3A |.f%...H3,V3:T.0:|
00001D60: 97 50 38 2C 33 32 00 8A 25 BC 07 56 32 B2 B5 28 |.P8,32..%..V2..(|
00001D70: BB 28 31 29 AC 32 30 29 AA 33 3A 48 32 B2 B5 28 |.(1).20).3:H2..(|
00001D80: BB 28 31 29 AC 33 36 29 AA 32 00 CA 25 D0 07 81 |.(1).36).2..%...|
00001D90: 56 33 B2 56 32 AB 31 A4 56 32 AA 31 3A 50 33 B2 |V3.V2.1.V2.1:P3.|
00001DA0: 56 33 AC 34 30 AA 54 39 3A 81 48 33 B2 48 32 AB |V3.40.T9:.H3.H2.|
00001DB0: 31 A4 48 32 AA 31 3A 8B C2 28 50 33 AA 48 33 29 |1.H2.1:..(P3.H3)|
00001DC0: B3 B1 33 32 89 31 39 38 30 04 00 FD 25 E4 07 82 |..32.1980...%...|
00001DD0: 48 33 2C 56 33 3A 81 56 33 B2 56 32 AB 31 A4 56 |H3,V3:.V3.V2.1.V|
00001DE0: 32 AA 31 3A 50 33 B2 56 33 AC 34 30 AA 54 39 3A |2.1:P3.V3.40.T9:|
00001DF0: 81 48 33 B2 48 32 AB 31 A4 48 32 AA 31 00 16 26 |.H3.H2.1.H2.1..&|
00001E00: F8 07 97 4D 31 2C 31 36 3A 97 4D 32 2C 31 35 3A |...M1,16:.M2,15:|
00001E10: 97 4D 33 2C 33 30 00 2B 26 0C 08 97 50 33 AA 48 |.M3,30.+&...P3.H|
00001E20: 33 2C 31 30 32 3A 97 4D 31 2C 30 00 5D 26 20 08 |3,102:.M1,0.]& .|
00001E30: 82 48 33 2C 56 33 3A 54 B2 39 AC BB 28 31 29 3A |.H3,V3:T.9..(1):|
00001E40: 50 38 B2 56 32 AC 34 30 AA 48 32 AA 54 39 3A 97 |P8.V2.40.H2.T9:.|
00001E50: 50 38 2C 34 39 AA 54 3A 89 31 36 34 30 00 70 26 |P8,49.T:.1640.p&|
00001E60: 34 08 8B 50 39 B3 B1 31 30 32 89 32 32 32 30 04 |4..P9..102.2220.|
00001E70: 00 7B 26 48 08 54 24 B2 54 49 24 00 A2 26 5C 08 |.{&H.T$.TI$..&\.|
00001E80: 54 B2 54 AB 31 3A 53 B2 53 AA 31 3A 97 50 38 2C |T.T.1:S.S.1:.P8,|
00001E90: 54 AA 34 39 3A 97 4D 31 2C 31 36 3A 97 4D 32 2C |T.49:.M1,16:.M2,|
00001EA0: 31 35 00 D1 26 70 08 99 22 13 1D 1D 1D 1D 1D 1D |15..&p..".......|
00001EB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001EC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |..............";|
00001ED0: 53 00 FC 26 84 08 81 4A B2 31 30 30 A4 33 30 A9 |S..&...J.100.30.|
00001EE0: AB 31 3A 97 4D 33 2C 4A 3A 82 3A 97 4D 31 2C 30 |.1:.M3,J:.:.M1,0|
00001EF0: 3A 8B 54 B1 B2 30 89 32 31 34 30 04 00 16 27 98 |:.T..0.2140...'.|
00001F00: 08 50 32 B2 50 32 AA 31 3A 54 49 24 B2 54 24 3A |.P2.P2.1:TI$.T$:|
00001F10: 89 31 39 32 30 04 00 3C 27 AC 08 97 4D 31 2C 31 |.1920..<'...M1,1|
00001F20: 36 3A 97 4D 32 2C 31 35 3A 97 4D 33 2C 32 30 30 |6:.M2,15:.M3,200|
00001F30: 3A 81 4A B2 31 A4 31 30 30 30 3A 82 00 46 27 C0 |:.J.1.1000:..F'.|
00001F40: 08 97 4D 31 2C 30 00 66 27 D4 08 99 22 13 53 45 |..M1,0.f'...".SE|
00001F50: 43 4F 4E 44 53 20 4C 45 46 54 20 54 4F 20 50 4C |CONDS LEFT TO PL|
00001F60: 41 59 20 20 30 22 00 9C 27 E8 08 99 22 13 11 12 |AY 0"..'..."...|
00001F70: 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 41 |WOULD YOU LIKE A|
00001F80: 4E 4F 54 48 45 52 20 47 41 4D 45 20 28 59 2F 4E |NOTHER GAME (Y/N|
00001F90: 29 20 3F 92 20 20 20 9D 9D 9D 22 3B 00 B9 27 FC |) ?. ...";..'.|
00001FA0: 08 55 4C B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D |.UL.1:US$."YN":.|
00001FB0: 33 35 3A 5A 24 B2 55 52 24 00 CA 27 10 09 8B 5A |35:Z$.UR$..'...Z|
00001FC0: 24 B2 22 59 22 A7 31 34 36 30 00 D0 27 24 09 8E |$."Y".1460..'$..|
00001FD0: 00 D6 27 88 09 8E 00 00 00 |..'...... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UU%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245...M..UQ.UB.UB.999.J.R.UQ%(U
Q.UB).B(UQ):.:.".".].W.UZ.1:UV%.B(UT).F.
X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL
.UK.B.Z..B(50003).0..53281,1:.".";:.5328
1,6:.53280,14:.220.L....".";.....UT$.UL$
:.UT,UV%:.UQ.UB.UB.999......UQ,UQ%(UQ.UB
):..<....H(UD$,24);".
":..H....U1,U1%.T....U2
,U2%.`....U4,U4%.N....U3,U3%.1.X....:.35
.....UD%.((U2%.256.U1%.U3%).UB).40:.H(UD
$,UD%.1):.......H(UD$,24);".
. HELP COMING . ":......U1%.B(
U1):U2%.B(U2):U3%.B(U3):U4%.B(U4).9...UJ
$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL.?.....
P.,.. ** MENU **.V.-.:......".":.UT,UU%:
.B(50003).0..53281,9:.53280,8.../.:...1.
.". MENU".W.6.." --------
------------------------------"...;.."..
1. BEGIN ARROW".".@.."..
2. STUDENT INSTRUCTIONS".L.E.."..
3. TEACHER INSTRUCTIONS".H.O.."..
4. QUIT.."...T.." ----------------
----------------------".B.Y..".. P
RESS A NUMBER KEY (1-4) ";...^.UL.1:US$.
"1234":.35:. INPUT ROUTINE...`.US$.""...
C..E(UR$).1460,400,500,396...H..300.B...
. ** RE-ENABLE STOP KEY AND END **.Q....
B(50003)..1.B(50003)..160.B(50003)..0.39
9......UU.71:.B(50003).0..53281,6:.53280
,14......"..":.......875:..S.... ** STUD
ENT INSTRUCTIONS **......".":.UT,UL%:.B(
50003).0..53281,0:.53280,0.(...UH.1:UP.0
:UG$."STUDENT INST":.850.7....1220:.835.
K....UZ.1..UP%:.217.Q.....R.... ** TEACH
ER INSTRUCTIONS **......".":.UT,UL%:.B(5
0003).0..53281,2:.53280,10.H...UH.1:UP.0
:UG$."TEACHER INST":.850......".. T
O THE BEST OF OUR KNOWLEDGE,."......"
THIS PROGRAM IS IN THE PUBLIC.".K...."
DOMAIN. IF THIS IS NOT THE CASE.".H...
." PLEASE CONTACT:..."......" COM
MODORE BUSINESS MACHINES."......"
3370 PHARMACY AVE..Y...." AG
INCOURT, ONTARIO"......" CANADA
M1W 2K4"......" (416) 499-42
92".6...UH.1:UP.1:. 835:. 850:.X...."
..PROGRAM NAME: ARROW......." WRIT
TEN BY : JIM BUTTERFIELD..F...." UP
GRADED BY : CARY LEWIS":."
HIN JANG"......" .THIS PROGRAM
WILL RUN ON ANY........" PET 64
COMPUTER.5...." COMMODORE 64 COM
PUTER.>....835.R.N..UZ.1..UP%:.217.X.W..
.~.X.. ** PROGRAM MODIFICATION INST **..
.Y..".":.UT,UL%...].UH.1:UP.0:UG$."PROGR
AM MOD":.850......835.Q....UZ.1..UP%:.21
7.W.......... ** TO USE 8032 LOAD CBM403
2 **.2.F..".....BEFORE RUNNING THIS PROG
RAM ON AN 8032 ...H.P.." LOAD THE
'CBM 4032' PROGRAM.............".S.Z..UU
.71.Y....... .. ** T I T L E P A G E *
*.M.".."....";:.UT,UU%:.B(50003).0..5328
0,14:.53281,6...$..I.1.38:."...";:....&.
.I.1.22:.".....";:....(..I.1.37:."....."
;:..+.*..I.1.22:.".....";:..P.,.."......
..................... ..R....".........
.......... . . .....0.."...............
.... . ......2.."....................
..Y.4.."..............C O M M O D O R E.
....6.."...............EDUCATIONAL.....8
.."................SOFTWARE.6.:.. ** COM
MODORE LOGO **.N.;..H(UD$,24);".........
.PRESS SPACE BAR OR WAIT.":I.0...<..A$:.
A$.." ".I.I.1:.I.250.828...>.T1$."":T2$.
"":T3$."":T4$."":I.0...@..300.Y.C.. ** S
PACE BAR PRESS **...H..UO,0:.H(UD$,24);"
.......PRESS SPACE BAR TO CONTINUE.".+.L
..UI$:.UI$.." ".844.1.N...Q.R.. ** PAGE
DESIGN ROUTINE **.].T.UP.UP.1...W.."."H(
UT$.UP$,21);I(UP$.UG$.D(UP),18)...\.." -
-------------------------------------".E
.`..UH..0.870...A..H(UD$,24);H(UP$,7);"H
ELP - PRESS H <RETURN>"...F.UH.0:.".."
:..).K.. ** PLEASE WAIT REMARK **._.P..H
(UD$,24);" ONE MOMENT PLEASE..
. ".E.U........ ** SET UP VARIABLES
**.M...UX$."H":.UQ%(1000):UB.32768:U1.19
6:U2.197:U3.198:U4.216:UC.167:UU.1024...
..UT.59468:UU%.12:UL%.14:UP%.1146:UM.327
68:UO.158:. 50003,0.N....B(50003).0.UB.1
024:U1.209:U2.210:U3.211:U4.214:UC.204:U
U.2048......B(50003).0.UT.53272:UU%.21:U
L%.23:UP%.2139:UM.1024:UO.198.....UD$.".
........................".....UP$."
".1...
UT$." ARROW ":. PLACE PROGRA
M TITLE HERE !!!!!!!!!!!!!!!!!***.7.....
Q.... ** SET VARIABLES **.Z....900.Q....
P(80),D(3),SA(13)...... ** CHECK FOR 803
2 **......".":." ":. SHIFTED SPACE.A....
B(UB.40)..96..700.Z.... ** MEMORY CHECK
**...... .(0).2000.937......"....THIS MA
CHINE DOES NOT HAVE ENOUGH.".@...."MEMOR
Y TO RUN THIS PROGRAM !".K....UU.71.Q...
..K...."..":.B(50003).0.962...... ** BAS
IC 2.0 OR 4.0 OR C-64 SETUP **.X....
1075,133:.1076,144:.1077,234:.1079,4:.10
80,133:.1081,145......1091,155:.1098,133
:.1099,144:.1100,234:.1103,133.0....1104
,145:.1105,234:.1082,234.G....B(50003)..
160.955.V....1093,88:.1094,228:.1097,85:
.1102,228:.965......B(50003)..1.990.....
.1093,49:.1094,230:.1097,46:.1102,230:.9
65...B..2099,141:.2100,20:.2101,3:.2103,
8:.2104,141:.2105,21.0.C..2106,3:.2115,1
45:.2117,52:.2118,234:.2121,49:.2122,141
.J.D..2123,20:.2124,3:.2126,234:.2127,14
1:.2128,21:.2129,3...E..UU.48:. DISABLE
STOP KEY...J..800:. TITLE...T..300:. MEN
U.Z....".THE PGM WILL NOT WORK ON THIS M
ACHINE!":.......UZ.1..UP%:.UP%:UZ.0:. **
PROGRAM STARTS HERE **.;...."..";:.:.B(
50003).0..53281,6:.53280,14.Q...PG$."ARR
OW":.2380.W....*************************
*******...$..* MODIFICATIONS MADE BY
*.C.8..* CARY LEWIS AND HIN JANG
*...L..*******************************
*.. `.."... ARROW . JIM BUTTERFIELD".
, T..".INSTRUCTIONS (Y/N) ?".6 ...1160.A
D..".. USE THE NUMBER KEYS TO 8
".. X.."................................
.".. ..." GUIDE THE MOVING SNAKE. 4
...6".. ..."............................
....."..!..."...........................
.....2".7!(..". YOU SCORE POINTS BY HITT
ING THE BOXES.".X!<..". DON'T HIT THE BO
UNDARY.".U!P..". DON'T HIT YOURSELF."..!
D.."... YOUR TURN CAN LAST FOR 60 SECOND
S."..!X...Q!..S.0:D(0).22:D(1).60:D(2).6
2:D(3).30..!H.T9.UM:T6.3599:.UT,UU%.."..
M1.59467:M2.59466:M3.59464.B"...B(50003)
.0..53281,1:.".";:.53281,6:.53280,14:.15
27.L"...".";.Z"..."
SCORE: 0". "...J.UM.40.UM.79:.J
,81:.J.920,81:.J.H"...J.UM.80.UM.960.40:
.J,81:.J.39,81:...",.V.20:H.35:V1.0:H1..
1:P2.10:D1.1.."@.TI$."000000"..#T..60.E(
I(TI$,2)).10.1680.V#H..".SECONDS LEFT TO
PLAY";60.E(I(TI$,2));". ":.TI.T6.2260.`
#|..1700..#...".SECONDS LEFT TO PLAY";60
.E(I(TI$,2)):.TI.T6.2260..#...Z$:.Z$."".
1760..S#...Z$."H".FL.1:ST$.TI$:.195:TI$.
ST$..#..Z.(F(Z$).50).2:.Z...(Z).Z.0.Z.3.
1760.($L.D1.Z:D.Z.1.5:V1..(.(D))..(D):H1
..(D).V1.:$..V.V.V1:H.H.H1.J$..P.UM.V.40
.H.Q$..P9.B(P):.M1,16:.M3,29.D1.80:.M2,1
5..$..R6.R7:R7.R7.1:.R7.P2.R7.0..$0.P1.P
(R7):P(R7).P:.M1,0:.P1..0..P1,32..$D..P,
D(D1):P1.P(R6):.P1..0..P1,81..$X..P9..32
.2100...%L...(1)..05.1640.B%...V3.V2.1.V
2.1:P3.V3.40.T9:.H3.H2.1.H2.1:.B(P3.H3).
.102.1960..P%...P3.H3,32.F%...H3,V3:T.0:
.P8,32..%..V2..(.(1).20).3:H2..(.(1).36)
.2.J%P..V3.V2.1.V2.1:P3.V3.40.T9:.H3.H2.
1.H2.1:.B(P3.H3)..32.1980...%...H3,V3:.V
3.V2.1.V2.1:P3.V3.40.T9:.H3.H2.1.H2.1..&
...M1,16:.M2,15:.M3,30.+&...P3.H3,102:.M
1,0.]& ..H3,V3:T.9..(1):P8.V2.40.H2.T9:.
P8,49.T:.1640.P&4..P9..102.2220..{&H.T$.
TI$..&\.T.T.1:S.S.1:.P8,T.49:.M1,16:.M2,
15.Q&P.."...............................
......";S..&...J.100.30..1:.M3,J:.:.M1,0
:.T..0.2140...'..P2.P2.1:TI$.T$:.1920..<
'...M1,16:.M2,15:.M3,200:.J.1.1000:..F'.
..M1,0.F'T..".SECONDS LEFT TO PLAY 0"..
'..."...WOULD YOU LIKE ANOTHER GAME (Y/N
) ?. ...";..'..UL.1:US$."YN":.35:Z$.UR
$.J'...Z$."Y".1460.P'$...V'......
> CLICK IMAGE PREVIEW FOR FULL MODAL