ARTILLERY.C3
FILE INFORMATION
FILENAME(S): ARTILLERY.C3
FILE TYPE(S): PRG
FILE SIZE: 10.4K
FIRST SEEN: 2025-11-02 22:11:42
APPEARS ON: 3 disk(s)
FILE HASH
f797e84795fc397d601214d283bdb3b6006bfeb3f2426916e91326b01aedf20d
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD SOFT | ARTILLERY.C3 | PRG | Treasure Chest - ToGuMi | 5 | 6 | DOWNLOAD FILE |
| FREEWARE DISK NR | ARTILLERY.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 5 | 6 | DOWNLOAD FILE |
| S PIELE | ARTILLERY.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 5 | 6 | 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 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 30 0C CD |250......245.0..|
00000420: 00 81 55 51 B2 55 42 A4 28 55 42 AA 39 38 37 29 |..UQ.UB.(UB.987)|
00000430: 00 4C 0C D2 00 55 51 25 28 55 51 AB 55 42 29 B2 |.L...UQ%(UQ.UB).|
00000440: C2 28 55 51 29 3A 82 3A 99 22 93 22 00 5F 0C D7 |.(UQ):.:."."._..|
00000450: 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 |.UZ.1:UV%..(UT).|
00000460: 68 0C D8 00 89 33 30 30 00 8D 0C D9 00 55 5A B2 |h....300.....UZ.|
00000470: 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B |0:US$.UJ$:UG$.UK|
00000480: 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 C4 0C |$:UP.UJ:UL.UK...|
00000490: DA 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |....(50003).0..5|
000004A0: 33 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 |3281,1:.".";:.53|
000004B0: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A |281,6:.53280,14:|
000004C0: 89 32 32 30 00 CE 0C DB 00 99 22 93 22 3B 00 F0 |.220......".";..|
000004D0: 0C DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C 55 |...UT$.UL$:.UT,U|
000004E0: 56 25 3A 81 55 51 B2 55 42 A4 55 42 AA 39 38 37 |V%:.UQ.UB.UB.987|
000004F0: 00 05 0D E1 00 97 55 51 2C 55 51 25 28 55 51 AB |......UQ,UQ%(UQ.|
00000500: 55 42 29 3A 82 00 11 0D E6 00 97 55 31 2C 55 31 |UB):.......U1,U1|
00000510: 25 00 1D 0D E8 00 97 55 32 2C 55 32 25 00 29 0D |%......U2,U2%.).|
00000520: E9 00 97 55 34 2C 55 34 25 00 37 0D EA 00 97 55 |...U4,U4%.7....U|
00000530: 33 2C 55 33 25 AB 31 00 3F 0D EB 00 89 33 35 00 |3,U3%.1.?....35.|
00000540: 71 0D F0 00 55 44 25 B2 28 28 55 32 25 AC 32 35 |q...UD%.((U2%.25|
00000550: 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 |6.U1%.U3%).UB).4|
00000560: 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A |0:..(UD$,UD%.1):|
00000570: 8E 00 98 0D F5 00 99 C8 28 55 44 24 2C 32 34 29 |........(UD$,24)|
00000580: 3B A3 36 38 29 3B 22 12 48 45 4C 50 20 43 4F 4D |;.68);".HELP COM|
00000590: 49 4E 47 92 22 3B 3A 8E 00 C4 0D FA 00 55 31 25 |ING.";:......U1%|
000005A0: B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 |..(U1):U2%..(U2)|
000005B0: 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 |:U3%..(U3):U4%..|
000005C0: 28 55 34 29 00 EC 0D FB 00 55 4A 24 B2 55 53 24 |(U4).....UJ$.US$|
000005D0: 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 |:UK$.UG$:UL$.UT$|
000005E0: 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 F2 0D FF |:UJ.UP:UK.UL....|
000005F0: 00 8E 00 03 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 |.....,.. ** MENU|
00000600: 20 2A 2A 00 09 0E 2D 01 3A 00 38 0E 2E 01 99 22 | **...-.:.8...."|
00000610: 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |.":.UT,UU%:..(50|
00000620: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A |003).0..53281,9:|
00000630: 97 35 33 32 38 30 2C 38 00 3E 0E 2F 01 3A 00 5B |.53280,8.>./.:.[|
00000640: 0E 31 01 99 22 13 20 20 20 20 20 20 20 20 20 20 |.1..". |
00000650: 20 20 20 20 20 20 4D 45 4E 55 22 00 8A 0E 36 01 | MENU"...6.|
00000660: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 AE 0E 3B 01 99 |---------"...;..|
00000690: 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 |".. 1. B|
000006A0: 45 47 49 4E 20 41 52 54 49 4C 4C 45 52 59 00 D8 |EGIN ARTILLERY..|
000006B0: 0E 40 01 99 22 11 11 20 20 20 20 20 20 20 32 2E |.@..".. 2.|
000006C0: 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 | STUDENT INSTR|
000006D0: 55 43 54 49 4F 4E 53 22 00 02 0F 45 01 99 22 11 |UCTIONS"...E..".|
000006E0: 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 |. 3. TEA|
000006F0: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000700: 53 22 00 1E 0F 4F 01 99 22 11 11 20 20 20 20 20 |S"...O..".. |
00000710: 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 4D | 4. QUIT..".M|
00000720: 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.T.." ----------|
00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 78 0F |------------".x.|
00000750: 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 45 |Y..".. PRE|
00000760: 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 |SS A NUMBER KEY |
00000770: 28 31 2D 34 29 20 22 3B 00 A0 0F 5E 01 55 4C B2 |(1-4) ";...^.UL.|
00000780: 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 |1:US$."1234":.35|
00000790: 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 |:. INPUT ROUTINE|
000007A0: 00 AB 0F 60 01 55 53 24 B2 22 22 00 C8 0F 63 01 |...`.US$.""...c.|
000007B0: 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 |..(UR$).1000,400|
000007C0: 2C 35 30 30 2C 33 39 36 00 D1 0F 68 01 89 33 30 |,500,396...h..30|
000007D0: 30 00 F8 0F 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E |0...... ** RE-EN|
000007E0: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E |ABLE STOP KEY AN|
000007F0: 44 20 45 4E 44 20 2A 2A 00 27 10 8C 01 8B C2 28 |D END **.'.....(|
00000800: 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 |50003)..1..(5000|
00000810: 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 |3)..160..(50003)|
00000820: B3 B1 30 A7 33 39 39 00 51 10 8D 01 9E 55 55 AA |..0.399.Q....UU.|
00000830: 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |71:..(50003).0..|
00000840: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1|
00000850: 34 00 5D 10 8E 01 99 22 9A 93 22 3A 80 00 68 10 |4.]...."..":..h.|
00000860: 8F 01 8D 38 37 35 3A 8E 00 89 10 90 01 8F 20 2A |...875:....... *|
00000870: 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 |* STUDENT INSTRU|
00000880: 43 54 49 4F 4E 53 20 2A 2A 00 B8 10 95 01 99 22 |CTIONS **......"|
00000890: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
000008A0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A |003).0..53281,0:|
000008B0: 97 35 33 32 38 30 2C 30 00 D9 10 9A 01 55 50 B2 |.53280,0.....UP.|
000008C0: 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 |0:UG$.".TUDENT .|
000008D0: 4E 53 54 22 3A 8D 38 35 30 00 0C 11 9C 01 99 22 |NST":.850......"|
000008E0: 11 11 20 D4 48 49 53 20 49 53 20 41 20 47 41 4D |.. .HIS IS A GAM|
000008F0: 45 20 49 4E 20 57 48 49 43 48 20 32 20 50 4C 41 |E IN WHICH 2 PLA|
00000900: 59 45 52 53 20 53 48 4F 4F 54 22 3B 00 36 11 9D |YERS SHOOT";.6..|
00000910: 01 99 22 11 20 41 54 20 45 41 43 48 20 4F 54 48 |..". AT EACH OTH|
00000920: 45 52 20 41 43 52 4F 53 53 20 41 20 4D 4F 55 4E |ER ACROSS A MOUN|
00000930: 54 41 49 4E 2E 22 00 64 11 9E 01 99 22 11 20 C1 |TAIN.".d....". .|
00000940: 54 20 45 41 43 48 20 54 55 52 4E 2C 20 54 48 45 |T EACH TURN, THE|
00000950: 20 50 4C 41 59 45 52 20 45 4E 54 45 52 53 20 54 | PLAYER ENTERS T|
00000960: 48 45 20 22 00 A0 11 9F 01 99 22 11 20 41 4E 47 |HE "......". ANG|
00000970: 4C 45 20 54 4F 20 46 49 52 45 20 28 31 2D 39 30 |LE TO FIRE (1-90|
00000980: 29 20 41 4E 44 20 54 48 45 A0 4E 55 4D 42 45 52 |) AND THE.NUMBER|
00000990: 20 4F 46 20 20 11 42 41 47 53 20 4F 46 20 22 3B | OF .BAGS OF ";|
000009A0: 00 BE 11 A0 01 99 22 20 50 4F 57 44 45 52 20 28 |......" POWDER (|
000009B0: 31 20 54 4F 20 31 35 20 C2 C1 C7 D3 29 2E 00 CC |1 TO 15 ....)...|
000009C0: 11 A2 01 99 22 11 20 CE CF D4 C5 3A 00 F8 11 DB |....". ....:....|
000009D0: 01 99 22 11 20 C9 46 20 59 4F 55 20 57 49 53 48 |..". .F YOU WISH|
000009E0: 20 C8 C5 CC D0 20 50 52 45 53 53 20 27 48 27 20 | .... PRESS 'H' |
000009F0: D2 C5 D4 D5 D2 CE 2E 22 00 01 12 E5 01 8D 38 33 |......."......83|
00000A00: 35 00 15 12 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 |5......UZ.1..UP%|
00000A10: 3A 89 32 31 37 00 1B 12 F3 01 8E 00 3C 12 F4 01 |:.217.......<...|
00000A20: 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 |. ** TEACHER INS|
00000A30: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 6C 12 F5 |TRUCTIONS **.l..|
00000A40: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
00000A50: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000A60: 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 8D 12 F6 |,2:.53280,10....|
00000A70: 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 |.UP.0:UG$.".EACH|
00000A80: 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 BB 12 |ER .NST":.850...|
00000A90: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T|
00000AA0: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K|
00000AB0: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 E4 12 F8 01 |NOWLEDGE,.".....|
00000AC0: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA|
00000AD0: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL|
00000AE0: 49 43 11 22 00 10 13 F9 01 99 22 20 20 20 44 4F |IC."......" DO|
00000AF0: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I|
00000B00: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."|
00000B10: 00 2D 13 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |.-...." PLEASE|
00000B20: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 57 13 | CONTACT:...".W.|
00000B30: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD|
00000B40: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC|
00000B50: 48 49 4E 45 53 11 22 00 7A 13 FC 01 99 22 20 20 |HINES.".z...." |
00000B60: 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 | 3370 .HA|
00000B70: 52 4D 41 43 59 20 C1 56 45 2E 00 9E 13 FD 01 99 |RMACY .VE.......|
00000B80: 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 |" .GINC|
00000B90: 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 C0 |OURT, .NTARIO"..|
00000BA0: 13 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 |...." .|
00000BB0: 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 |ANADA .1. 2.4"|
00000BC0: 00 E0 13 FF 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000BD0: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"|
00000BE0: 00 F6 13 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A |.....UP.1:. 835:|
00000BF0: 8D 20 38 35 30 3A 00 20 14 01 02 99 22 20 20 20 |. 850:. ...." |
00000C00: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME|
00000C10: 3A 20 C1 52 54 49 4C 4C 45 52 59 20 20 20 20 11 |: .RTILLERY .|
00000C20: 00 42 14 02 02 99 22 20 20 20 20 20 D7 52 49 54 |.B...." .RIT|
00000C30: 54 45 4E 20 C2 59 20 20 3A 20 D5 4E 4B 4E 4F 57 |TEN .Y : .NKNOW|
00000C40: 4E 11 00 66 14 03 02 99 22 20 20 20 20 20 D5 50 |N..f...." .P|
00000C50: 47 52 41 44 45 44 20 C2 59 20 3A 20 20 20 20 20 |GRADED .Y : |
00000C60: 20 20 20 20 20 11 00 91 14 04 02 99 22 20 20 20 | ......." |
00000C70: 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 | ..HIS PROGRAM |
00000C80: 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 |WILL RUN ON ANY.|
00000C90: 11 00 B1 14 07 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000CA0: 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 | ... 64 ........|
00000CB0: 11 00 D6 14 08 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000CC0: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000CD0: CD D0 D5 D4 C5 D2 00 DF 14 09 02 8D 38 33 35 00 |............835.|
00000CE0: F3 14 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |..N..UZ.1..UP%:.|
00000CF0: 32 31 37 00 F9 14 57 02 8E 00 1F 15 58 02 8F 20 |217...W.....X.. |
00000D00: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF|
00000D10: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.|
00000D20: 30 15 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 |0.Y..".":.UT,UL%|
00000D30: 00 50 15 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 |.P.].UP.0:UG$.".|
00000D40: 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 |ROGRAM .OD":.850|
00000D50: 00 59 15 94 02 8D 38 33 35 00 6D 15 B2 02 8B 55 |.Y....835.m....U|
00000D60: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 73 15 |Z.1..UP%:.217.s.|
00000D70: BB 02 8E 00 98 15 BC 02 8F 20 2A 2A 20 54 4F 20 |......... ** TO |
00000D80: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
00000D90: 4D 34 30 33 32 20 2A 2A 00 CE 15 C6 02 99 22 93 |M4032 **......".|
00000DA0: 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 |....BEFORE RUNNI|
00000DB0: 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |NG THIS PROGRAM |
00000DC0: 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 04 |ON AN 8032 ....|
00000DD0: 16 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 |...." LOAD |
00000DE0: 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 |THE 'CBM 4032' P|
00000DF0: 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 |ROGRAM..........|
00000E00: 11 11 11 22 00 0F 16 DA 02 9E 55 55 AA 37 31 00 |..."......UU.71.|
00000E10: 15 16 E4 02 80 00 35 16 20 03 8F 20 2A 2A 20 54 |......5. .. ** T|
00000E20: 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 | I T L E P A G|
00000E30: 20 45 20 2A 2A 00 69 16 22 03 99 22 93 11 1D 05 | E **.i.".."....|
00000E40: 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |";:.UT,UU%:..(50|
00000E50: 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 |003).0..53280,14|
00000E60: 3A 97 35 33 32 38 31 2C 36 00 7F 16 24 03 81 49 |:.53281,6...$..I|
00000E70: B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 |.1.38:."...";:..|
00000E80: 97 16 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D |..&..I.1.22:."..|
00000E90: 12 A6 92 22 3B 3A 82 00 AF 16 28 03 81 49 B2 31 |...";:....(..I.1|
00000EA0: A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 |.37:.".....";:..|
00000EB0: C7 16 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D |..*..I.1.22:."..|
00000EC0: 12 A6 92 22 3B 3A 82 00 EC 16 2C 03 99 22 13 11 |...";:....,.."..|
00000ED0: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000EE0: 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 0E 17 2E |......... .....|
00000EF0: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000F00: 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 2F |...... . . .../|
00000F10: 17 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.0.."...........|
00000F20: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 |........ . ....|
00000F30: 4D 17 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |M.2.."..........|
00000F40: 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 75 17 |.......... ..u.|
00000F50: 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |4.."............|
00000F60: 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 |..C O M M O D O |
00000F70: 52 20 45 11 11 00 98 17 36 03 99 22 1D 1D 1D 1D |R E.....6.."....|
00000F80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 |...........EDUCA|
00000F90: 54 49 4F 4E 41 4C 11 11 00 B7 17 38 03 99 22 1D |TIONAL.....8..".|
00000FA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 |...............S|
00000FB0: 4F 46 54 57 41 52 45 00 D2 17 3A 03 8F 20 2A 2A |OFTWARE...:.. **|
00000FC0: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 | COMMODORE LOGO |
00000FD0: 2A 2A 00 0A 18 3B 03 99 C8 28 55 44 24 2C 32 34 |**...;...(UD$,24|
00000FE0: 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 |);"..........PRE|
00000FF0: 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 |SS SPACE BAR OR |
00001000: 57 41 49 54 92 22 3A 49 B2 30 00 2C 18 3C 03 A1 |WAIT.":I.0.,.<..|
00001010: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA |A$:.A$.." ".I.I.|
00001020: 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 50 18 3E |1:.I.250.828.P.>|
00001030: 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 |.T1$."":T2$."":T|
00001040: 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 |3$."":T4$."":I.0|
00001050: 00 59 18 40 03 89 33 30 30 00 75 18 43 03 8F 20 |.Y.@..300.u.C.. |
00001060: 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 |** SPACE BAR PRE|
00001070: 53 53 20 2A 2A 00 B0 18 48 03 97 55 4F 2C 30 3A |SS **...H..UO,0:|
00001080: 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D |..(UD$,24);"....|
00001090: 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |...PRESS SPACE B|
000010A0: 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 |AR TO CONTINUE."|
000010B0: 00 C7 18 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 |...L..UI$:.UI$..|
000010C0: 22 20 22 A7 38 34 34 00 CD 18 4E 03 8E 00 ED 18 |" ".844...N.....|
000010D0: 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 |R.. ** PAGE DESI|
000010E0: 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 F9 18 |GN ROUTINE **...|
000010F0: 54 03 55 50 B2 55 50 AA 31 00 23 19 57 03 99 22 |T.UP.UP.1.#.W.."|
00001100: 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B |.".(UT$.UP$,21);|
00001110: C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C |.(UP$.UG$..(UP),|
00001120: 31 38 29 00 52 19 5C 03 99 22 20 2D 2D 2D 2D 2D |18).R.\.." -----|
00001130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001150: 2D 22 00 61 19 60 03 8B 55 48 B3 B1 30 A7 38 37 |-".a.`..UH..0.87|
00001160: 30 00 95 19 61 03 99 C8 28 55 44 24 2C 32 34 29 |0...a...(UD$,24)|
00001170: 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 |;.(UP$,7);"HELP |
00001180: 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 |- PRESS H <RET|
00001190: 55 52 4E 3E 22 00 A6 19 66 03 55 48 B2 30 3A 99 |URN>"...f.UH.0:.|
000011A0: 22 13 11 22 3A 8E 00 C5 19 6B 03 8F 20 2A 2A 20 |"..":....k.. ** |
000011B0: 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 |PLEASE WAIT REMA|
000011C0: 52 4B 20 2A 2A 00 FB 19 70 03 99 C8 28 55 44 24 |RK **...p...(UD$|
000011D0: 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 |,24);" |
000011E0: 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 | ONE MOMENT PLEA|
000011F0: 53 45 2E 2E 2E 20 20 20 20 20 22 00 01 1A 75 03 |SE... "...u.|
00001200: 8E 00 1E 1A 84 03 8F 20 2A 2A 20 53 45 54 20 55 |....... ** SET U|
00001210: 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 69 |P VARIABLES **.i|
00001220: 1A 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 |...UX$."H":.UQ%(|
00001230: 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 |1000):UB.32768:U|
00001240: 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 |1.196:U2.197:U3.|
00001250: 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 |198:U4.216:UC.16|
00001260: 37 3A 55 55 B2 31 30 32 34 00 A7 1A 86 03 55 54 |7:UU.1024.....UT|
00001270: B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C |.59468:UU%.12:UL|
00001280: 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D |%.14:UP%.1146:UM|
00001290: B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 |.32768:UO.158:. |
000012A0: 35 30 30 30 33 2C 30 00 EA 1A 87 03 8B C2 28 35 |50003,0.......(5|
000012B0: 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A |0003).0.UB.1024:|
000012C0: 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 |U1.209:U2.210:U3|
000012D0: B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 |.211:U4.214:UC.2|
000012E0: 30 34 3A 55 55 B2 32 30 34 38 00 29 1B 88 03 8B |04:UU.2048.)....|
000012F0: C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 |.(50003).0.UT.53|
00001300: 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 |272:UU%.21:UL%.2|
00001310: 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 |3:UP%.2139:UM.10|
00001320: 32 34 3A 55 4F B2 31 39 38 00 4D 1B 89 03 55 44 |24:UO.198.M...UD|
00001330: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00001340: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 7F 1B |............"...|
00001350: 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 |..UP$." |
00001360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001380: CC 1B 8B 03 55 54 24 B2 22 20 C1 52 54 49 4C 4C |....UT$." .RTILL|
00001390: 45 52 59 20 20 20 A0 A0 A0 A0 A0 22 3A 8F 20 50 |ERY .....":. P|
000013A0: 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 |LACE PROGRAM TIT|
000013B0: 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 |LE HERE !!!!!!!!|
000013C0: 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 02 1C 8C |!!!!!!!!!***....|
000013D0: 03 86 41 28 31 30 30 29 2C 42 28 31 30 30 29 2C |..A(100),B(100),|
000013E0: 48 28 33 39 29 2C 41 31 28 32 29 2C 42 31 28 32 |H(39),A1(2),B1(2|
000013F0: 29 2C 41 32 28 32 29 2C 42 32 28 32 29 2C 4C 28 |),A2(2),B2(2),L(|
00001400: 32 29 00 08 1C 8D 03 8E 00 22 1C 8E 03 8F 20 2A |2).......".... *|
00001410: 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 |* SET VARIABLES |
00001420: 2A 2A 00 2B 1C 93 03 8D 39 30 30 00 46 1C 98 03 |**.+....900.F...|
00001430: 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 |. ** CHECK FOR 8|
00001440: 30 33 32 20 2A 2A 00 64 1C 9D 03 99 22 93 22 3A |032 **.d....".":|
00001450: 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 |.".":. SHIFTED S|
00001460: 50 41 43 45 00 7B 1C A2 03 8B C2 28 55 42 AA 34 |PACE.{.....(UB.4|
00001470: 30 29 B3 B1 39 36 A7 8D 37 30 30 00 94 1C A3 03 |0)..96..700.....|
00001480: 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 |. ** MEMORY CHEC|
00001490: 4B 20 2A 2A 00 A8 1C A4 03 8B 20 B8 28 30 29 B1 |K **...... .(0).|
000014A0: 32 30 30 30 A7 39 33 37 00 D6 1C A5 03 99 22 93 |2000.937......".|
000014B0: 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 |...THIS MACHINE |
000014C0: 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E |DOES NOT HAVE EN|
000014D0: 4F 55 47 48 11 22 00 FA 1C A6 03 99 22 4D 45 4D |OUGH."......"MEM|
000014E0: 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 |ORY TO RUN THIS |
000014F0: 50 52 4F 47 52 41 4D 20 21 22 00 05 1D A7 03 9E |PROGRAM !"......|
00001500: 55 55 AA 37 31 00 0B 1D A8 03 80 00 25 1D A9 03 |UU.71.......%...|
00001510: 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 |."..":..(50003).|
00001520: 30 A7 39 36 32 00 54 1D AC 03 8F 20 2A 2A 20 42 |0.962.T.... ** B|
00001530: 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E |ASIC 2.0 OR 4.|
00001540: 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 |0 OR C-64 SETU|
00001550: 50 20 2A 2A 00 92 1D AD 03 97 31 30 37 35 2C 31 |P **......1075,1|
00001560: 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 |33:.1076,144:.10|
00001570: 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 |77,234:.1079,4:.|
00001580: 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 |1080,133:.1081,1|
00001590: 34 35 00 C8 1D AE 03 97 31 30 39 31 2C 31 35 35 |45......1091,155|
000015A0: 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 |:.1098,133:.1099|
000015B0: 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 |,144:.1100,234:.|
000015C0: 31 31 30 33 2C 31 33 33 00 EA 1D AF 03 97 31 31 |1103,133......11|
000015D0: 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 |04,145:.1105,234|
000015E0: 3A 97 31 30 38 32 2C 32 33 34 00 01 1E B1 03 8B |:.1082,234......|
000015F0: C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 |.(50003)..160.95|
00001600: 35 00 30 1E B6 03 97 31 30 39 33 2C 38 38 3A 97 |5.0....1093,88:.|
00001610: 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 |1094,228:.1097,8|
00001620: 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 |5:.1102,228:.965|
00001630: 00 45 1E BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 |.E.....(50003)..|
00001640: 31 A7 39 39 30 00 74 1E C0 03 97 31 30 39 33 2C |1.990.t....1093,|
00001650: 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 |49:.1094,230:.10|
00001660: 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A |97,46:.1102,230:|
00001670: 89 39 36 35 00 AE 1E C2 03 97 32 30 39 39 2C 31 |.965......2099,1|
00001680: 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 |41:.2100,20:.210|
00001690: 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 |1,3:.2103,8:.210|
000016A0: 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 EA |4,141:.2105,21..|
000016B0: 1E C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 |....2106,3:.2115|
000016C0: 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 |,145:.2117,52:.2|
000016D0: 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 |118,234:.2121,49|
000016E0: 3A 97 32 31 32 32 2C 31 34 31 00 24 1F C4 03 97 |:.2122,141.$....|
000016F0: 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A |2123,20:.2124,3:|
00001700: 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C |.2126,234:.2127,|
00001710: 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 |141:.2128,21:.21|
00001720: 32 39 2C 33 00 42 1F C5 03 9E 55 55 AA 34 38 3A |29,3.B....UU.48:|
00001730: 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B |. DISABLE STOP K|
00001740: 45 59 00 53 1F CA 03 8D 38 30 30 3A 8F 20 54 49 |EY.S....800:. TI|
00001750: 54 4C 45 00 63 1F D4 03 89 33 30 30 3A 8F 20 4D |TLE.c....300:. M|
00001760: 45 4E 55 00 94 1F DE 03 99 22 93 54 48 45 20 50 |ENU......".THE P|
00001770: 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B |GM WILL NOT WORK|
00001780: 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 | ON THIS MACHINE|
00001790: 21 22 3A 80 00 C9 1F E8 03 8B 55 5A B2 31 A7 9E |!":.......UZ.1..|
000017A0: 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 |UP%:.UP%:UZ.0:. |
000017B0: 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 |** PROGRAM START|
000017C0: 53 20 48 45 52 45 20 2A 2A 00 F4 1F E9 03 99 22 |S HERE **......"|
000017D0: 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 |..";:.:..(50003)|
000017E0: B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |.0..53281,6:.532|
000017F0: 38 30 2C 36 00 00 20 6F 04 97 55 54 2C 55 4C 25 |80,6.. o..UT,UL%|
00001800: 00 11 20 74 04 8F 20 47 4F 53 55 42 20 32 38 39 |.. t.. GOSUB 289|
00001810: 30 00 1C 20 78 04 9C 3A 8D 39 30 30 00 42 20 F6 |0.. x..:.900.B .|
00001820: 04 99 22 93 22 3A 97 20 55 54 2C 55 55 25 3A 8F |..".":. UT,UU%:.|
00001830: 20 52 45 53 45 54 20 54 4F 20 47 52 41 50 48 49 | RESET TO GRAPHI|
00001840: 43 53 00 66 20 00 05 5A 24 B2 22 12 20 91 9D 22 |CS.f ..Z$.". .."|
00001850: 3A 81 20 58 B2 31 20 A4 20 35 3A 5A 24 B2 5A 24 |:. X.1 . 5:Z$.Z$|
00001860: AA 5A 24 3A 82 58 00 A4 20 0A 05 41 24 B2 22 1D |.Z$:.X.. ..A$.".|
00001870: 22 3A 81 20 58 B2 31 20 A4 20 36 3A 41 24 B2 41 |":. X.1 . 6:A$.A|
00001880: 24 AA 41 24 3A 82 58 3A 42 24 B2 22 11 22 3A 81 |$.A$:.X:B$.".":.|
00001890: 20 58 B2 31 20 A4 20 35 3A 42 24 B2 42 24 AA 42 | X.1 . 5:B$.B$.B|
000018A0: 24 3A 82 58 00 AC 20 14 05 4E B2 32 00 C7 20 1E |$:.X.. ..N.2.. .|
000018B0: 05 8F 20 20 20 43 4F 4E 53 54 52 55 43 54 20 4D |.. CONSTRUCT M|
000018C0: 4F 55 4E 54 41 49 4E 00 F1 20 23 05 99 22 93 22 |OUNTAIN.. #.."."|
000018D0: 3B C8 28 55 44 24 2C 32 33 29 3B 22 42 55 49 4C |;.(UD$,23);"BUIL|
000018E0: 44 49 4E 47 20 4D 4F 55 4E 54 41 49 4E 2E 2E 2E |DING MOUNTAIN...|
000018F0: 22 00 04 21 28 05 58 31 B2 B5 28 36 AA BB 28 31 |"..!(.X1..(6..(1|
00001900: 29 AC 38 29 00 18 21 32 05 58 32 B2 B5 28 32 35 |).8)..!2.X2..(25|
00001910: AA BB 28 31 29 AC 38 29 00 32 21 3C 05 4C 28 31 |..(1).8).2!<.L(1|
00001920: 29 B2 B5 28 33 AA 28 58 31 AB 33 29 AC BB 28 31 |)..(3.(X1.3)..(1|
00001930: 29 29 00 50 21 46 05 4C 28 32 29 B2 B5 28 58 32 |)).P!F.L(2)..(X2|
00001940: AA 31 AA 28 33 36 AB 58 32 29 AC BB 28 31 29 29 |.1.(36.X2)..(1))|
00001950: 00 61 21 50 05 48 39 B2 BB 28 31 29 AC 31 31 AA |.a!P.H9..(1).11.|
00001960: 31 00 7B 21 5A 05 81 20 49 B2 31 20 A4 20 58 31 |1.{!Z.. I.1 . X1|
00001970: 3A 48 28 49 29 B2 48 39 3A 82 49 00 8C 21 64 05 |:H(I).H9:.I..!d.|
00001980: 48 39 B2 BB 28 31 29 AC 31 31 AA 31 00 A7 21 6E |H9..(1).11.1..!n|
00001990: 05 81 20 49 B2 58 32 20 A4 20 33 39 3A 48 28 49 |.. I.X2 . 39:H(I|
000019A0: 29 B2 48 39 3A 82 49 00 C6 21 78 05 8B 20 B6 28 |).H9:.I..!x.. .(|
000019B0: 48 28 31 29 AB 48 28 33 39 29 29 B3 34 20 A7 20 |H(1).H(39)).4 . |
000019C0: 89 20 31 33 36 30 00 E4 21 82 05 58 33 B2 58 31 |. 1360..!..X3.X1|
000019D0: AA B5 28 BB 28 31 29 AC 28 58 32 AB 58 31 AB 36 |..(.(1).(X2.X1.6|
000019E0: 29 29 AA 33 00 F8 21 8C 05 48 28 58 33 29 B2 BB |)).3..!..H(X3)..|
000019F0: 28 31 29 AC 31 31 AA 39 00 0E 22 96 05 44 31 B2 |(1).11.9.."..D1.|
00001A00: 28 48 28 58 33 29 AB 48 28 31 29 29 AD 32 00 25 |(H(X3).H(1)).2.%|
00001A10: 22 A0 05 44 32 B2 28 48 28 58 33 29 AB 48 28 33 |"..D2.(H(X3).H(3|
00001A20: 39 29 29 AD 32 00 3D 22 AA 05 8B 20 44 31 AC 44 |9)).2.="... D1.D|
00001A30: 32 B3 B2 30 20 A7 20 89 20 31 36 31 30 00 48 22 |2..0 . . 1610.H"|
00001A40: B4 05 4A B2 AB 31 38 30 00 5C 22 BE 05 4B B2 31 |..J..180.\"..K.1|
00001A50: 38 30 AD 28 58 33 AB 58 31 AA 31 29 00 6B 22 C8 |80.(X3.X1.1).k".|
00001A60: 05 48 39 B2 48 28 31 29 AA 44 31 00 7F 22 D2 05 |.H9.H(1).D1.."..|
00001A70: 81 20 49 B2 58 31 AA 31 20 A4 20 58 33 AB 31 00 |. I.X1.1 . X3.1.|
00001A80: 89 22 DC 05 4A B2 4A AA 4B 00 A3 22 E6 05 48 28 |."..J.J.K.."..H(|
00001A90: 49 29 B2 48 39 AA BE 28 4A AC FF AD 31 38 30 29 |I).H9..(J...180)|
00001AA0: AC 44 31 00 AA 22 F0 05 82 49 00 B2 22 FA 05 4A |.D1.."...I.."..J|
00001AB0: B2 30 00 C6 22 04 06 4B B2 31 38 30 AD 28 58 32 |.0.."..K.180.(X2|
00001AC0: AB 58 33 AA 31 29 00 D6 22 0E 06 48 39 B2 48 28 |.X3.1).."..H9.H(|
00001AD0: 33 39 29 AA 44 32 00 EA 22 18 06 81 20 49 B2 58 |39).D2.."... I.X|
00001AE0: 33 AA 31 20 A4 20 58 32 AB 31 00 F4 22 22 06 4A |3.1 . X2.1.."".J|
00001AF0: B2 4A AA 4B 00 0E 23 2C 06 48 28 49 29 B2 48 39 |.J.K..#,.H(I).H9|
00001B00: AA BE 28 4A AC FF AD 31 38 30 29 AC 44 32 00 15 |..(J...180).D2..|
00001B10: 23 36 06 82 49 00 20 23 40 06 89 20 31 36 39 30 |#6..I. #@.. 1690|
00001B20: 00 35 23 4A 06 44 B2 28 48 28 31 29 AB 48 28 33 |.5#J.D.(H(1).H(3|
00001B30: 39 29 29 AD 32 00 3D 23 54 06 4A B2 30 00 51 23 |9)).2.=#T.J.0.Q#|
00001B40: 5E 06 4B B2 31 38 30 AD 28 58 32 AB 58 31 AA 31 |^.K.180.(X2.X1.1|
00001B50: 29 00 60 23 68 06 48 39 B2 48 28 33 39 29 AA 44 |).`#h.H9.H(39).D|
00001B60: 00 74 23 72 06 81 20 49 B2 58 31 AA 31 20 A4 20 |.t#r.. I.X1.1 . |
00001B70: 58 32 AB 31 00 7E 23 7C 06 4A B2 4A AA 4B 00 97 |X2.1.~#|.J.J.K..|
00001B80: 23 86 06 48 28 49 29 B2 48 39 AA BE 28 4A AC FF |#..H(I).H9..(J..|
00001B90: AD 31 38 30 29 AC 44 00 9F 23 90 06 82 20 49 00 |.180).D..#... I.|
00001BA0: A9 23 9A 06 99 22 13 22 3B 00 C0 23 A4 06 57 B2 |.#...".";..#..W.|
00001BB0: B5 28 31 30 30 AC 28 BB 28 31 29 AB 2E 35 29 29 |.(100.(.(1)..5))|
00001BC0: 00 CF 23 AE 06 99 C8 28 42 24 2C 32 32 29 3B 00 |..#....(B$,22);.|
00001BD0: F1 23 B8 06 81 20 49 B2 31 20 A4 20 33 39 3A 48 |.#... I.1 . 39:H|
00001BE0: 28 49 29 B2 B5 28 48 28 49 29 AA 2E 35 29 3A 82 |(I)..(H(I)..5):.|
00001BF0: 49 00 0E 24 C2 06 81 20 58 B2 31 20 A4 20 33 39 |I..$... X.1 . 39|
00001C00: 3A 8B 58 B2 31 20 A7 20 89 20 31 37 35 30 00 18 |:.X.1 . . 1750..|
00001C10: 24 CC 06 99 22 1D 22 3B 00 2D 24 D6 06 99 CA 28 |$...".";.-$....(|
00001C20: 5A 24 2C 31 2C 48 28 58 29 AC 34 29 3B 00 47 24 |Z$,1,H(X).4);.G$|
00001C30: E0 06 81 20 5A B2 31 20 A4 20 48 28 58 29 3A 99 |... Z.1 . H(X):.|
00001C40: 22 11 22 3B 3A 82 5A 00 54 24 EA 06 82 20 58 3A |".";:.Z.T$... X:|
00001C50: 99 22 92 22 00 5E 24 F4 06 99 22 13 22 3B 00 86 |.".".^$...".";..|
00001C60: 24 FE 06 99 CA 28 42 24 2C 31 2C 32 32 AB 48 28 |$....(B$,1,22.H(|
00001C70: 31 29 29 3B 3A 8B 20 4C 28 31 29 B2 31 20 A7 20 |1));:. L(1).1 . |
00001C80: 89 20 31 38 31 30 00 9B 24 08 07 99 CA 28 41 24 |. 1810..$....(A$|
00001C90: 2C 31 2C 4C 28 31 29 AB 31 29 3B 00 A5 24 12 07 |,1,L(1).1);..$..|
00001CA0: 99 22 5E 22 3B 00 AF 24 1C 07 99 22 13 22 3B 00 |."^";..$...".";.|
00001CB0: C6 24 26 07 99 CA 28 42 24 2C 31 2C 32 32 AB 48 |.$&...(B$,1,22.H|
00001CC0: 28 33 39 29 29 3B 00 DB 24 30 07 99 CA 28 41 24 |(39));..$0...(A$|
00001CD0: 2C 31 2C 4C 28 32 29 AB 31 29 3B 00 E5 24 3A 07 |,1,L(2).1);..$:.|
00001CE0: 99 22 5E 22 3B 00 1E 25 3F 07 99 C8 28 55 44 24 |."^";..%?...(UD$|
00001CF0: 2C 32 33 29 22 1D 1D 1D 12 50 4C 41 59 45 52 20 |,23)"....PLAYER |
00001D00: 31 92 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |1...............|
00001D10: 1D 1D 1D 12 50 4C 41 59 45 52 20 32 92 22 00 28 |....PLAYER 2.".(|
00001D20: 25 44 07 99 22 13 22 3B 00 39 25 4E 07 99 CA 28 |%D..".";.9%N...(|
00001D30: 42 24 2C 31 2C 32 34 29 3B 00 49 25 58 07 99 22 |B$,1,24);.I%X.."|
00001D40: 20 20 20 20 20 20 20 22 3B 00 51 25 62 07 4B B2 | ";.Q%b.K.|
00001D50: 31 00 64 25 6C 07 8B 57 B1 B2 30 20 A7 20 89 20 |1.d%l..W..0 . . |
00001D60: 31 39 33 30 00 82 25 76 07 99 AB 57 3B 22 20 4D |1930..%v...W;" M|
00001D70: 50 48 20 57 49 4E 44 20 3C 2D 2D 2D 2D 2D 20 20 |PH WIND <----- |
00001D80: 22 3B 00 8D 25 80 07 89 20 31 39 35 30 00 AB 25 |";..%... 1950..%|
00001D90: 8A 07 99 57 3B 22 20 4D 50 48 20 57 49 4E 44 20 |...W;" MPH WIND |
00001DA0: 2D 2D 2D 2D 2D 2D 3E 20 20 22 3B 00 B5 25 94 07 |------> ";..%..|
00001DB0: 99 22 13 22 3B 00 D4 25 9E 07 99 22 13 22 3B 3A |.".";..%...".";:|
00001DC0: 4E B2 33 AB 4E 3A 8B 20 4E B2 31 20 A7 20 89 20 |N.3.N:. N.1 . . |
00001DD0: 32 30 31 30 00 0C 26 A8 07 99 C8 28 55 44 24 2C |2010..&....(UD$,|
00001DE0: 32 33 29 22 1D 1D 12 20 50 4C 41 59 45 52 20 31 |23)"... PLAYER 1|
00001DF0: 20 92 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D | ...............|
00001E00: 1D 2A 50 4C 41 59 45 52 20 32 2A 22 00 38 26 AD |.*PLAYER 2*".8&.|
00001E10: 07 99 22 13 22 3B C8 28 41 24 2C 32 33 29 3B 22 |..".";.(A$,23);"|
00001E20: 41 4E 47 4C 45 20 28 31 2D 39 30 29 20 BF 20 9D |ANGLE (1-90) . .|
00001E30: 9D 22 3B 3A 55 4C B2 32 00 76 26 B2 07 55 53 24 |.";:UL.2.v&..US$|
00001E40: B2 22 30 31 32 33 34 35 36 37 38 39 48 22 3A 8D |."0123456789H":.|
00001E50: 33 35 3A 45 B2 C5 28 55 52 24 29 3A 8B 20 45 B1 |35:E..(UR$):. E.|
00001E60: 39 30 20 A7 20 99 22 9D 9D BF 20 9D 9D 22 3B 3A |90 . ."... ..";:|
00001E70: 89 20 31 39 37 30 00 8E 26 B7 07 99 22 13 22 3B |. 1970..&...".";|
00001E80: 3A 8B 45 B2 30 20 A7 20 89 20 31 39 36 35 00 D1 |:.E.0 . . 1965..|
00001E90: 26 BC 07 99 C8 28 42 24 2C 31 29 3B C8 28 41 24 |&....(B$,1);.(A$|
00001EA0: 2C 32 33 29 3B 22 11 50 4F 57 44 45 52 28 31 2D |,23);".POWDER(1-|
00001EB0: 31 35 29 20 20 20 9D 9D BF 9D 22 3B 3A 55 4C B2 |15) ....";:UL.|
00001EC0: 32 3A 55 53 24 B2 22 30 31 32 33 34 35 36 37 38 |2:US$."012345678|
00001ED0: 39 00 05 27 C6 07 55 53 24 B2 55 53 24 AA 22 48 |9..'..US$.US$."H|
00001EE0: 22 3A 8D 33 35 3A 56 B2 C5 28 55 52 24 29 3A 8B |":.35:V..(UR$):.|
00001EF0: 20 56 B1 31 35 20 B0 20 56 B3 B2 30 20 A7 20 89 | V.15 . V..0 . .|
00001F00: 20 31 39 37 35 00 10 27 D0 07 89 20 32 30 34 30 | 1975..'... 2040|
00001F10: 00 57 27 DA 07 99 22 13 20 20 20 20 20 20 20 20 |.W'...". |
00001F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001F40: 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;" |
00001F50: 20 20 20 20 20 22 3B 00 A2 27 DF 07 99 22 20 20 | ";..'..." |
00001F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FA0: 22 3B 00 DA 27 E4 07 99 C8 28 55 44 24 2C 32 33 |";..'....(UD$,23|
00001FB0: 29 22 1D 1D 2A 50 4C 41 59 45 52 20 31 2A 1D 1D |)"..*PLAYER 1*..|
00001FC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 50 |.............. P|
00001FD0: 4C 41 59 45 52 20 32 20 92 22 00 25 28 E9 07 99 |LAYER 2 .".%(...|
00001FE0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002000: 20 20 20 20 20 20 20 20 20 22 3B 22 13 41 4E 47 | ";".ANG|
00002010: 4C 45 20 28 31 2D 39 30 29 20 BF 20 9D 9D 22 3B |LE (1-90) . ..";|
00002020: 3A 55 4C B2 32 00 5E 28 EE 07 55 53 24 B2 22 30 |:UL.2.^(..US$."0|
00002030: 31 32 33 34 35 36 37 38 39 48 22 3A 8D 33 35 3A |123456789H":.35:|
00002040: 45 B2 C5 28 55 52 24 29 3A 8B 20 45 B1 39 30 20 |E..(UR$):. E.90 |
00002050: B0 20 45 B2 30 20 A7 20 89 20 32 30 32 35 00 84 |. E.0 . . 2025..|
00002060: 28 F0 07 99 22 13 11 11 50 4F 57 44 45 52 20 28 |(..."...POWDER (|
00002070: 31 2D 31 35 29 20 20 20 20 9D 9D 9D BF 9D 22 3B |1-15) .....";|
00002080: 3A 8D 33 35 00 A7 28 F3 07 56 B2 C5 28 55 52 24 |:.35..(..V..(UR$|
00002090: 29 3A 8B 56 B1 31 35 20 B0 20 56 B3 B2 30 20 A7 |):.V.15 . V..0 .|
000020A0: 20 89 20 32 30 33 32 00 C0 28 F8 07 4B B2 4B AA | . 2032..(..K.K.|
000020B0: 31 3A 8B 20 45 B2 30 20 A7 20 89 20 31 33 31 30 |1:. E.0 . . 1310|
000020C0: 00 D5 28 02 08 41 32 28 4E 29 B2 41 32 28 4E 29 |..(..A2(N).A2(N)|
000020D0: AB 32 2E 38 36 00 E0 28 0C 08 45 B2 39 30 AB 45 |.2.86..(..E.90.E|
000020E0: 00 F3 28 16 08 8B 20 4E B2 31 20 A7 20 89 20 32 |..(... N.1 . . 2|
000020F0: 30 39 30 00 FC 28 20 08 45 B2 AB 45 00 08 29 2A |090..( .E..E..)*|
00002100: 08 58 31 B2 4C 28 4E 29 00 19 29 34 08 59 31 B2 |.X1.L(N)..)4.Y1.|
00002110: 48 28 4C 28 4E 29 29 AA 31 00 25 29 3E 08 54 B2 |H(L(N)).1.%)>.T.|
00002120: 30 3A 4D B2 30 00 39 29 48 08 56 31 B2 BF 28 45 |0:M.0.9)H.V1..(E|
00002130: AC FF AD 31 38 30 29 AC 56 00 50 29 52 08 56 32 |...180).V.P)R.V2|
00002140: B2 BE 28 45 AC FF AD 31 38 30 29 AC 56 AC 2E 37 |..(E...180).V..7|
00002150: 00 61 29 5C 08 54 B2 54 AA 2E 35 3A 4D B2 4D AA |.a)\.T.T..5:M.M.|
00002160: 31 00 7A 29 66 08 56 31 B2 56 31 AA 28 56 31 AA |1.z)f.V1.V1.(V1.|
00002170: 57 AC 2E 35 29 AD 31 35 30 30 00 92 29 70 08 58 |W..5).1500..)p.X|
00002180: B2 58 31 AA 28 56 31 AA 57 AC 2E 35 AD 35 30 29 |.X1.(V1.W..5.50)|
00002190: AC 54 00 A0 29 7A 08 58 B2 B5 28 58 AA 2E 35 29 |.T..)z.X..(X..5)|
000021A0: 00 B4 29 84 08 59 B2 59 31 AA 28 56 32 AB 54 AD |..)..Y.Y1.(V2.T.|
000021B0: 33 29 AC 54 00 C2 29 8E 08 59 B2 B5 28 59 AA 2E |3).T..)..Y..(Y..|
000021C0: 35 29 00 D3 29 98 08 5A B2 32 33 AB 59 3A 99 22 |5)..)..Z.23.Y:."|
000021D0: 13 22 3B 00 FB 29 A2 08 41 28 4D 29 B2 5A 3A 42 |.";..)..A(M).Z:B|
000021E0: 28 4D 29 B2 58 3A 8B 20 58 B1 33 39 20 B0 20 58 |(M).X:. X.39 . X|
000021F0: B3 31 20 A7 20 89 20 32 35 33 30 00 13 2A AC 08 |.1 . . 2530..*..|
00002200: 8B 59 AB 48 28 58 29 B3 B2 30 20 A7 20 89 20 32 |.Y.H(X)..0 . . 2|
00002210: 35 32 30 00 26 2A B6 08 8B 20 5A B3 30 20 A7 20 |520.&*... Z.0 . |
00002220: 89 20 32 32 39 30 00 39 2A C0 08 8B 20 5A B2 30 |. 2290.9*... Z.0|
00002230: 20 A7 20 89 20 32 32 36 30 00 47 2A CA 08 99 C8 | . . 2260.G*....|
00002240: 28 42 24 2C 5A 29 3B 00 5A 2A D4 08 8B 20 58 B2 |(B$,Z);.Z*... X.|
00002250: 31 20 A7 20 89 20 32 32 38 30 00 6A 2A DE 08 99 |1 . . 2280.j*...|
00002260: C8 28 41 24 2C 58 AB 31 29 3B 00 73 2A E8 08 99 |.(A$,X.1);.s*...|
00002270: 22 D1 22 00 7D 2A F2 08 99 22 13 22 3B 00 92 2A |".".}*...".";..*|
00002280: FC 08 8B 20 4D AB 34 B3 31 20 A7 20 89 20 32 31 |... M.4.1 . . 21|
00002290: 34 30 00 AA 2A 06 09 8B 20 41 28 4D AB 34 29 B2 |40..*... A(M.4).|
000022A0: 30 20 A7 20 89 20 32 33 34 30 00 CE 2A 10 09 8B |0 . . 2340..*...|
000022B0: 20 41 28 4D AB 34 29 B3 30 20 B0 20 42 28 4D AB | A(M.4).0 . B(M.|
000022C0: 34 29 B3 B2 30 20 A7 20 89 20 32 31 34 30 00 E1 |4)..0 . . 2140..|
000022D0: 2A 1A 09 99 C8 28 42 24 2C 41 28 4D AB 34 29 29 |*....(B$,A(M.4))|
000022E0: 3B 00 F6 2A 24 09 99 C8 28 41 24 2C 42 28 4D AB |;..*$...(A$,B(M.|
000022F0: 34 29 AB 31 29 3B 00 00 2B 2E 09 99 22 20 22 3B |4).1);..+..." ";|
00002300: 00 0A 2B 38 09 99 22 13 22 3B 00 15 2B 42 09 89 |..+8..".";..+B..|
00002310: 20 32 31 34 30 00 28 2B 4C 09 8B 20 4D B2 31 20 | 2140.(+L.. M.1 |
00002320: A7 20 89 20 32 31 34 30 00 48 2B 56 09 8B 20 42 |. . 2140.H+V.. B|
00002330: 28 4D 29 B3 31 20 B0 20 42 28 4D 29 B1 33 39 20 |(M).1 . B(M).39 |
00002340: A7 20 89 20 31 39 35 30 00 94 2B 60 09 8F 20 4C |. . 1950..+`.. L|
00002350: 49 4E 45 53 20 32 34 31 30 20 41 4E 44 20 32 34 |INES 2410 AND 24|
00002360: 34 30 20 44 45 54 45 52 4D 49 4E 45 20 48 49 54 |40 DETERMINE HIT|
00002370: 2E 20 43 48 41 4E 47 45 20 27 31 2E 35 27 20 54 |. CHANGE '1.5' T|
00002380: 4F 20 43 48 41 4E 47 45 20 44 49 46 46 49 43 55 |O CHANGE DIFFICU|
00002390: 4C 54 59 2E 00 B6 2B 6A 09 8B 20 B6 28 42 28 4D |LTY...+j.. .(B(M|
000023A0: AB 31 29 AB 4C 28 4E 29 29 B3 31 2E 35 20 A7 20 |.1).L(N)).1.5 . |
000023B0: 89 20 32 34 33 30 00 C1 2B 74 09 89 20 32 34 34 |. 2430..+t.. 244|
000023C0: 30 00 D4 2B 7E 09 8B 20 54 B1 31 20 A7 20 89 20 |0..+~.. T.1 . . |
000023D0: 32 37 31 30 00 F8 2B 88 09 8B 20 B6 28 42 28 4D |2710..+... .(B(M|
000023E0: AB 31 29 AB 4C 28 33 AB 4E 29 29 B3 31 2E 35 20 |.1).L(3.N)).1.5 |
000023F0: A7 20 89 20 32 37 39 30 00 0B 2C 92 09 8B 20 54 |. . 2790..,... T|
00002400: B3 31 20 A7 20 89 20 32 31 34 30 00 16 2C 9C 09 |.1 . . 2140..,..|
00002410: 89 20 32 36 35 30 00 20 2C A6 09 99 22 13 91 22 |. 2650. ,...".."|
00002420: 00 4B 2C B0 09 99 22 13 11 11 11 11 20 20 20 20 |.K,..."..... |
00002430: 20 20 41 4E 4F 54 48 45 52 20 47 41 4D 45 20 3F | ANOTHER GAME ?|
00002440: 20 28 59 2F 4E 29 20 BF 9D 22 3B 00 62 2C BA 09 | (Y/N) ..";.b,..|
00002450: 55 4C B2 31 3A 55 53 24 B2 22 59 4E 48 22 3A 8D |UL.1:US$."YNH":.|
00002460: 33 35 00 77 2C C4 09 8B 20 55 52 24 B2 22 59 22 |35.w,... UR$."Y"|
00002470: 20 A7 20 31 30 30 30 00 80 2C CE 09 89 33 30 30 | . 1000..,...300|
00002480: 00 8A 2C D8 09 99 22 13 22 3B 00 9D 2C E2 09 81 |..,...".";..,...|
00002490: 20 4A B2 34 20 A4 20 31 20 A9 20 AB 31 00 B3 2C | J.4 . 1 . .1..,|
000024A0: EC 09 8B 20 4D AB 4A B3 B2 30 20 A7 20 89 20 32 |... M.J..0 . . 2|
000024B0: 36 32 30 00 CB 2C F6 09 8B 20 41 28 4D AB 4A 29 |620..,... A(M.J)|
000024C0: B2 30 20 A7 20 89 20 32 35 38 30 00 EF 2C 00 0A |.0 . . 2580..,..|
000024D0: 8B 20 41 28 4D AB 4A 29 B3 30 20 B0 20 42 28 4D |. A(M.J).0 . B(M|
000024E0: AB 4A 29 B3 B2 30 20 A7 20 89 20 32 36 32 30 00 |.J)..0 . . 2620.|
000024F0: 03 2D 0A 0A 99 20 C8 28 42 24 2C 41 28 4D AB 4A |.-... .(B$,A(M.J|
00002500: 29 29 3B 00 1B 2D 14 0A 8B 20 42 28 4D AB 4A 29 |));..-... B(M.J)|
00002510: B2 31 20 A7 20 89 20 32 36 30 30 00 30 2D 1E 0A |.1 . . 2600.0-..|
00002520: 99 C8 28 41 24 2C 42 28 4D AB 4A 29 AB 31 29 3B |..(A$,B(M.J).1);|
00002530: 00 3A 2D 28 0A 99 22 20 22 3B 00 44 2D 32 0A 99 |.:-(.." ";.D-2..|
00002540: 22 13 22 3B 00 5B 2D 3C 0A 82 20 4A 3A 8B 20 4D |".";.[-<.. J:. M|
00002550: B2 31 20 A7 20 89 20 32 38 33 30 00 7B 2D 46 0A |.1 . . 2830.{-F.|
00002560: 8B 20 42 28 4D 29 B3 31 20 B0 20 42 28 4D 29 B1 |. B(M).1 . B(M).|
00002570: 33 39 20 A7 20 89 20 32 38 34 30 00 86 2D 50 0A |39 . . 2840..-P.|
00002580: 89 20 32 33 38 30 00 9E 2D 5A 0A 8B 20 42 28 4D |. 2380..-Z.. B(M|
00002590: AB 31 29 B2 31 20 A7 20 89 20 32 36 37 30 00 B3 |.1).1 . . 2670..|
000025A0: 2D 64 0A 99 C8 28 41 24 2C 42 28 4D AB 31 29 AB |-d...(A$,B(M.1).|
000025B0: 31 29 3B 00 CC 2D 6E 0A 99 C8 28 42 24 2C 32 33 |1);..-n...(B$,23|
000025C0: AB 48 28 42 28 4D AB 31 29 29 29 3B 00 F9 2D 78 |.H(B(M.1)));..-x|
000025D0: 0A 81 20 5A B2 31 20 A4 20 33 3A 20 99 22 91 9D |.. Z.1 . 3: ."..|
000025E0: CD D7 CE 91 9D 9D 9D CD 21 CE 22 3B 3A 81 20 58 |........!.";:. X|
000025F0: B2 31 20 A4 20 35 3A 82 58 00 2C 2E 82 0A 99 22 |.1 . 5:.X.,...."|
00002600: 9D 9D 9D 11 20 20 20 91 9D 9D 9D 20 20 20 9D 9D |.... .... ..|
00002610: 11 11 22 3B 3A 81 20 58 B2 31 20 A4 20 35 3A 82 |..";:. X.1 . 5:.|
00002620: 20 58 3A 82 20 5A 3A 99 22 B9 22 3B 00 37 2E 8C | X:. Z:.".";.7..|
00002630: 0A 89 20 32 38 33 30 00 41 2E 96 0A 99 22 13 22 |.. 2830.A...."."|
00002640: 3B 00 54 2E A0 0A 99 C8 28 41 24 2C 4C 28 4E 29 |;.T.....(A$,L(N)|
00002650: AB 31 29 3B 00 6B 2E AA 0A 99 C8 28 42 24 2C 32 |.1);.k.....(B$,2|
00002660: 34 AB 48 28 4C 28 4E 29 29 29 3B 00 A4 2E B4 0A |4.H(L(N)));.....|
00002670: 81 20 5A B2 31 20 A4 31 30 3A 99 22 91 9D 12 DF |. Z.1 .10:."....|
00002680: D1 A9 92 91 9D 9D 9D 9D CD BF 21 12 BF 92 CE 9D |..........!.....|
00002690: 9D 9D 9D 9D 91 CD CD 21 CE CE 9D 9D 11 11 22 3B |.......!......";|
000026A0: 22 9D 22 3B 00 CA 2E BE 0A 99 22 20 9D 9D 9D 91 |".";......" ....|
000026B0: 20 20 20 20 20 9D 9D 9D 9D 9D 91 20 20 20 20 20 | ...... |
000026C0: 9D 9D 9D 91 11 11 11 11 22 3B 00 E0 2E C8 0A 81 |........";......|
000026D0: 20 58 B2 31 20 A4 20 32 3A 82 20 58 3A 82 20 5A | X.1 . 2:. X:. Z|
000026E0: 00 F1 2E D2 0A 81 58 B2 31 20 A4 35 30 3A 82 20 |......X.1 .50:. |
000026F0: 58 00 FC 2E DC 0A 89 20 32 34 37 30 00 06 2F E6 |X...... 2470../.|
00002700: 0A 99 22 13 22 3B 00 1B 2F F0 0A 99 C8 28 41 24 |..".";../....(A$|
00002710: 2C 4C 28 33 AB 4E 29 AB 31 29 3B 00 36 2F FA 0A |,L(3.N).1);.6/..|
00002720: 99 C8 28 42 24 2C 32 34 AB 48 28 4C 28 33 AB 4E |..(B$,24.H(L(3.N|
00002730: 29 AB 31 29 29 3B 00 41 2F 04 0B 89 20 32 37 34 |).1));.A/... 274|
00002740: 30 00 47 2F 0E 0B 8F 00 5F 2F 18 0B 57 B2 57 AA |0.G/...._/..W.W.|
00002750: B5 28 31 30 AC 28 BB 28 31 29 AB 2E 35 29 29 00 |.(10.(.(1)..5)).|
00002760: 7D 2F 22 0B 99 22 13 22 3B C8 28 42 24 2C 32 34 |}/"..".";.(B$,24|
00002770: 29 3B 22 20 20 20 20 20 20 20 20 22 3B 00 B5 2F |);" ";../|
00002780: 2C 0B 8B 20 57 B1 B2 30 20 A7 20 99 22 20 20 20 |,.. W..0 . ." |
00002790: 9D 9D 9D 22 3B 57 3B 22 20 4D 50 48 20 57 49 4E |...";W;" MPH WIN|
000027A0: 44 20 2D 2D 2D 2D 2D 3E 20 20 20 20 22 3B 3A 89 |D -----> ";:.|
000027B0: 20 31 39 35 30 00 E5 2F 36 0B 99 22 20 20 20 9D | 1950../6.." .|
000027C0: 9D 9D 22 3B AB 57 3B 22 20 4D 50 48 20 57 49 4E |..";.W;" MPH WIN|
000027D0: 44 20 3C 2D 2D 2D 2D 2D 20 20 20 20 22 3B 3A 89 |D <----- ";:.|
000027E0: 20 31 39 35 30 00 EB 2F 40 0B 8E 00 F1 2F 4A 0B | 1950../@..../J.|
000027F0: 8F 00 1B 30 54 0B 99 20 22 93 11 11 11 11 11 11 |...0T.. ".......|
00002800: 11 11 11 11 22 3B A3 31 35 29 3B 22 12 C1 52 54 |....";.15);"..RT|
00002810: 49 4C 4C 45 52 59 22 3A 99 3A 99 00 3B 30 5E 0B |ILLERY":.:..;0^.|
00002820: 99 20 A3 31 31 29 3B 22 C3 52 45 41 54 49 56 45 |. .11);".REATIVE|
00002830: 20 C3 4F 4D 50 55 54 49 4E 47 22 00 57 30 68 0B | .OMPUTING".W0h.|
00002840: 99 20 A3 31 33 29 3B 22 D0 2E CF 2E 20 42 4F 58 |. .13);".... BOX|
00002850: 20 37 38 39 2D 4D 22 00 80 30 72 0B 99 20 A3 36 | 789-M"..0r.. .6|
00002860: 29 3B 22 CD 4F 52 52 49 53 54 4F 57 4E 2C 20 CE |);".ORRISTOWN, .|
00002870: 45 57 20 CA 45 52 53 45 59 20 30 37 39 36 30 22 |EW .ERSEY 07960"|
00002880: 00 AF 30 73 0B 99 22 11 11 11 11 1D 1D 1D 1D 1D |..0s..".........|
00002890: 1D 12 CE CF D4 C5 3A D0 52 45 53 53 20 3C 20 D2 |......:.RESS < .|
000028A0: C5 D4 D5 D2 CE 20 3E 20 41 46 54 45 52 92 22 00 |..... > AFTER.".|
000028B0: DD 30 74 0B 99 22 11 1D 1D 1D 1D 12 C5 41 43 48 |.0t..".......ACH|
000028C0: 20 52 45 53 50 4F 4E 53 45 20 46 52 4F 4D 20 54 | RESPONSE FROM T|
000028D0: 48 45 20 4B 45 59 42 4F 41 52 44 92 22 00 EA 30 |HE KEYBOARD."..0|
000028E0: 76 0B 81 42 31 B2 31 A4 31 30 00 22 31 78 0B 99 |v..B1.1.10."1x..|
000028F0: C8 28 55 44 24 2C 32 31 29 3B 22 1D 1D 1D 1D 1D |.(UD$,21);".....|
00002900: 1D 12 CE CF D4 C5 3A D0 D2 C5 D3 D3 20 92 3C 20 |......:..... .< |
00002910: D2 C5 D4 D5 D2 CE 20 3E 12 20 41 46 54 45 52 20 |...... >. AFTER |
00002920: 92 22 00 37 31 79 0B 81 42 32 B2 31 A4 33 30 30 |.".71y..B2.1.300|
00002930: 3A 82 3A 42 32 B2 30 00 6D 31 7A 0B 99 C8 28 55 |:.:B2.0.m1z...(U|
00002940: 44 24 2C 32 31 29 3B 22 1D 1D 1D 1D 1D 1D 12 CE |D$,21);"........|
00002950: CF D4 C5 3A D0 D2 C5 D3 D3 20 3C 20 D2 C5 D4 D5 |...:..... < ....|
00002960: D2 CE 20 3E 20 41 46 54 45 52 20 92 22 00 82 31 |.. > AFTER ."..1|
00002970: 7B 0B 81 42 32 B2 31 A4 33 30 30 3A 82 3A 42 32 |{..B2.1.300:.:B2|
00002980: B2 30 00 88 31 7C 0B 82 00 9D 31 81 0B 81 20 42 |.0..1|....1... B|
00002990: 31 B2 31 A4 32 30 30 30 3A 82 20 42 31 00 A6 31 |1.1.2000:. B1..1|
000029A0: 86 0B 42 31 B2 30 00 AC 31 9A 0B 8E 00 BE 00 |..B1.0..1...... |
.......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 **.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.0.M..UQ.UB.(UB.987).L.R.UQ%
(UQ.UB).B(UQ):.:."."._.W.UZ.1:UV%.B(UT).
H.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:
UL.UK.D.Z..B(50003).0..53281,1:.".";:.53
281,6:.53280,14:.220.N....".";.....UT$.U
L$:.UT,UV%:.UQ.UB.UB.987......UQ,UQ%(UQ.
UB):.......U1,U1%......U2,U2%.)....U4,U4
%.7....U3,U3%.1.?....35.Q...UD%.((U2%.25
6.U1%.U3%).UB).40:.H(UD$,UD%.1):.......H
(UD$,24);.68);".HELP COMING.";:..D...U1%
.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)....
.UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL....
.....,.. ** MENU **...-.:.8....".":.UT,U
U%:.B(50003).0..53281,9:.53280,8.>./.:.[
.1..". MENU"...6.." -----
---------------------------------"...;..
".. 1. BEGIN ARTILLERY.X.@.."..
2. STUDENT INSTRUCTIONS"...E..".
. 3. TEACHER INSTRUCTIONS"...O..
".. 4. QUIT..".M.T.." ----------
----------------------------".X.Y.."..
PRESS A NUMBER KEY (1-4) ";. .^.UL.
1:US$."1234":.35:. INPUT ROUTINE...`.US$
."".H.C..E(UR$).1000,400,500,396.Q.H..30
0...... ** RE-ENABLE STOP KEY AND END **
.'....B(50003)..1.B(50003)..160.B(50003)
..0.399.Q....UU.71:.B(50003).0..53281,6:
.53280,14.]...."..":..H....875:....... *
* STUDENT INSTRUCTIONS **......".":.UT,U
L%:.B(50003).0..53281,0:.53280,0.Y...UP.
0:UG$."STUDENT INST":.850......".. THIS
IS A GAME IN WHICH 2 PLAYERS SHOOT";.6..
..". AT EACH OTHER ACROSS A MOUNTAIN.".D
....". AT EACH TURN, THE PLAYER ENTERS T
HE ". ....". ANGLE TO FIRE (1-90) AND TH
E NUMBER OF .BAGS OF ";... .." POWDER (
1 TO 15 BAGS)..L....". NOTE:......". IF
YOU WISH HELP PRESS 'H' RETURN."......83
5......UZ.1..UP%:.217.......<.... ** TEA
CHER INSTRUCTIONS **.L....".":.UT,UL%:.B
(50003).0..53281,2:.53280,10.....UP.0:UG
$."TEACHER INST":.850......".. TO T
HE BEST OF OUR KNOWLEDGE,."......" THI
S PROGRAM IS IN THE PUBLIC."......" DO
MAIN. IF THIS IS NOT THE CASE.".-...."
PLEASE CONTACT:...".W...." COMMOD
ORE BUSINESS MACHINES.".Z...."
3370 PHARMACY AVE......." AGINC
OURT, ONTARIO"......" CANADA
M1W 2K4"......" (416) 499-4292"
.....UP.1:. 835:. 850:. ...." ..PROG
RAM NAME: ARTILLERY ..B...." WRIT
TEN BY : UNKNOWN..F...." UPGRADED B
Y : ......." .THIS PROGRAM
WILL RUN ON ANY........" PET 64
COMPUTER..V...." COMMODORE 64 CO
MPUTER......835...N..UZ.1..UP%:.217...W.
....X.. ** PROGRAM MODIFICATION INST **.
0.Y..".":.UT,UL%.P.].UP.0:UG$."PROGRAM M
OD":.850.Y....835.M....UZ.1..UP%:.217.S.
......... ** TO USE 8032 LOAD CBM4032 **
.N.F..".....BEFORE RUNNING THIS PROGRAM
ON AN 8032 .....P.." LOAD THE 'CBM
4032' PROGRAM............."...Z..UU.71.
......5. .. ** T I T L E P A G E **.I.
".."....";:.UT,UU%:.B(50003).0..53280,14
:.53281,6..$..I.1.38:."...";:....&..I.1
.22:.".....";:....(..I.1.37:.".....";:..
G.*..I.1.22:.".....";:....,.."..........
................. .......".............
...... . . .../.0.."...................
. ....M.2..".................... ..U.
4.."..............C O M M O D O R E.....
6.."...............EDUCATIONAL.....8..".
...............SOFTWARE.R.:.. ** COMMODO
RE LOGO **...;..H(UD$,24);"..........PRE
SS SPACE BAR OR WAIT.":I.0.,.<..A$:.A$..
" ".I.I.1:.I.250.828.P.>.T1$."":T2$."":T
3$."":T4$."":I.0.Y.@..300.U.C.. ** SPACE
BAR PRESS **...H..UO,0:.H(UD$,24);"....
...PRESS SPACE BAR TO CONTINUE.".G.L..UI
$:.UI$.." ".844.M.N.....R.. ** PAGE DESI
GN ROUTINE **...T.UP.UP.1.#.W.."."H(UT$.
UP$,21);I(UP$.UG$.D(UP),18).R.\.." -----
---------------------------------".A.`..
UH..0.870...A..H(UD$,24);H(UP$,7);"HELP
- PRESS H <RETURN>"...F.UH.0:."..":..E
.K.. ** PLEASE WAIT REMARK **...P..H(UD$
,24);" ONE MOMENT PLEASE...
"...U........ ** SET UP VARIABLES **.I
...UX$."H":.UQ%(1000):UB.32768:U1.196:U2
.197:U3.198:U4.216:UC.167:UU.1024.....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.M...UD$.".....
...................."....UP$."
".L...UT$.
" ARTILLERY ":. PLACE PROGRAM TIT
LE HERE !!!!!!!!!!!!!!!!!***......A(100)
,B(100),H(39),A1(2),B1(2),A2(2),B2(2),L(
2).......".... ** SET VARIABLES **.+....
900.F.... ** CHECK FOR 8032 **.D....".":
." ":. SHIFTED SPACE.{....B(UB.40)..96..
700...... ** MEMORY CHECK **...... .(0).
2000.937.V...."....THIS MACHINE DOES NOT
HAVE ENOUGH."......"MEMORY TO RUN THIS
PROGRAM !"......UU.71.......%...."..":.B
(50003).0.962.T.... ** BASIC 2.0 OR 4.
0 OR C-64 SETUP **......1075,133:.1076
,144:.1077,234:.1079,4:.1080,133:.1081,1
45.H....1091,155:.1098,133:.1099,144:.11
00,234:.1103,133......1104,145:.1105,234
:.1082,234......B(50003)..160.955.0....1
093,88:.1094,228:.1097,85:.1102,228:.965
.E....B(50003)..1.990.T....1093,49:.1094
,230:.1097,46:.1102,230:.965...B..2099,1
41:.2100,20:.2101,3:.2103,8:.2104,141:.2
105,21...C..2106,3:.2115,145:.2117,52:.2
118,234:.2121,49:.2122,141.$.D..2123,20:
.2124,3:.2126,234:.2127,141:.2128,21:.21
29,3.B.E..UU.48:. DISABLE STOP KEY.S.J..
800:. TITLE.C.T..300:. MENU......".THE P
GM WILL NOT WORK ON THIS MACHINE!":..I..
..UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM START
S HERE **......"..";:.:.B(50003).0..5328
1,6:.53280,6.. O..UT,UL%.. T.. GOSUB 289
0.. X..:.900.B ...".":. UT,UU%:. RESET T
O GRAPHICS.F ..Z$.". ..":. X.1 . 5:Z$.Z$
.Z$:.X.. ..A$.".":. X.1 . 6:A$.A$.A$:.X:
B$.".":. X.1 . 5:B$.B$.B$:.X.. ..N.2.G .
.. CONSTRUCT MOUNTAIN.. #..".";H(UD$,2
3);"BUILDING MOUNTAIN..."..!(.X1..(6..(1
).8)..!2.X2..(25..(1).8).2!<.L(1)..(3.(X
1.3)..(1)).P!F.L(2)..(X2.1.(36.X2)..(1))
.A!P.H9..(1).11.1.{!Z.. I.1 . X1:H(I).H9
:.I..!D.H9..(1).11.1..!N.. I.X2 . 39:H(I
).H9:.I.F!X.. .(H(1).H(39)).4 . . 1360..
!..X3.X1..(.(1).(X2.X1.6)).3..!..H(X3)..
(1).11.9.."..D1.(H(X3).H(1)).2.%" .D2.(H
(X3).H(39)).2.="... D1.D2..0 . . 1610.H"
..J..180.\"..K.180.(X3.X1.1).K"H.H9.H(1)
.D1."R.. I.X1.1 . X3.1.."..J.J.K.."..H(
I).H9..(J...180).D1.."...I.."..J.0.F"..K
.180.(X2.X3.1).V"..H9.H(39).D2.."... I.X
3.1 . X2.1.."".J.J.K..#,.H(I).H9..(J...1
80).D2..#6..I. #@.. 1690.5#J.D.(H(1).H(3
9)).2.=#T.J.0.Q#^.K.180.(X2.X1.1).`#H.H9
.H(39).D.T#R.. I.X1.1 . X2.1.~#|.J.J.K..
#..H(I).H9..(J...180).D..#... I..#..."."
;..#..W..(100.(.(1)..5)).O#...H(B$,22);.
.#... I.1 . 39:H(I)..(H(I)..5):.I..$B..
X.1 . 39:.X.1 . . 1750..$L..".";.-$V..J(
Z$,1,H(X).4);.G$... Z.1 . H(X):.".";:.Z.
T$... X:.".".^$...".";..$...J(B$,1,22.H(
1));:. L(1).1 . . 1810..$...J(A$,1,L(1).
1);..$..."^";..$...".";.F$&..J(B$,1,22.H
(39));..$0..J(A$,1,L(2).1);..$:.."^";..%
?..H(UD$,23)"....PLAYER 1...............
....PLAYER 2.".(%D..".";.9%N..J(B$,1,24)
;.I%X.." ";.Q%B.K.1.D%L..W..0 . .
1930..%V...W;" MPH WIND <----- ";..%...
1950..%...W;" MPH WIND ------> ";..%..
.".";.T%...".";:N.3.N:. N.1 . . 2010..&.
..H(UD$,23)"... PLAYER 1 ...............
.*PLAYER 2*".8&...".";H(A$,23);"ANGLE (1
-90) . ..";:UL.2.V&..US$."0123456789H":.
35:E.E(UR$):. E.90 . ."... ..";:. 1970..
&...".";:.E.0 . . 1965.Q&...H(B$,1);H(A$
,23);".POWDER(1-15) ....";:UL.2:US$."0
123456789..'F.US$.US$."H":.35:V.E(UR$):.
V.15 . V..0 . . 1975..'P.. 2040.W'Z..".
"
;" ";..'..."
";.Z'...H(UD$,23)"..*PLA
YER 1*................ PLAYER 2 .".%(...
"
";".ANGLE (1-90) . ..";:UL.2.^(..US$."0
123456789H":.35:E.E(UR$):. E.90 . E.0 .
. 2025..(..."...POWDER (1-15) .....";
:.35..(..V.E(UR$):.V.15 . V..0 . . 2032.
.(..K.K.1:. E.0 . . 1310.U(..A2(N).A2(N)
.2.86..(..E.90.E..(... N.1 . . 2090..( .
E..E..)*.X1.L(N)..)4.Y1.H(L(N)).1.%)>.T.
0:M.0.9)H.V1..(E...180).V.P)R.V2..(E...1
80).V..7.A)\.T.T..5:M.M.1.Z)F.V1.V1.(V1.
W..5).1500..)P.X.X1.(V1.W..5.50).T. )Z.X
..(X..5)..)..Y.Y1.(V2.T.3).T.B)..Y..(Y..
5).S)..Z.23.Y:.".";..)..A(M).Z:B(M).X:.
X.39 . X.1 . . 2530..*...Y.H(X)..0 . . 2
520.&*... Z.0 . . 2290.9*... Z.0 . . 226
0.G*J..H(B$,Z);.Z*T.. X.1 . . 2280.J*...
H(A$,X.1);.S*..."Q".}*...".";..*... M.4.
1 . . 2140..*... A(M.4).0 . . 2340.N*...
A(M.4).0 . B(M.4)..0 . . 2140..*...H(B$
,A(M.4));..*$..H(A$,B(M.4).1);..+..." ";
..+8..".";..+B.. 2140.(+L.. M.1 . . 2140
.H+V.. B(M).1 . B(M).39 . . 1950..+`.. L
INES 2410 AND 2440 DETERMINE HIT. CHANGE
'1.5' TO CHANGE DIFFICULTY...+J.. .(B(M
.1).L(N)).1.5 . . 2430.A+T.. 2440.T+~..
T.1 . . 2710..+... .(B(M.1).L(3.N)).1.5
. . 2790..,... T.1 . . 2140..,... 2650.
,..."..".K,..."..... ANOTHER GAME ?
(Y/N) ..";.B,..UL.1:US$."YNH":.35.W,D..
UR$."Y" . 1000..,N..300..,X..".";..,...
J.4 . 1 . .1..,... M.J..0 . . 2620.K,..
. A(M.J).0 . . 2580..,... A(M.J).0 . B(M
.J)..0 . . 2620..-... H(B$,A(M.J));..-..
. B(M.J).1 . . 2600.0-...H(A$,B(M.J).1);
.:-(.." ";.D-2..".";.[-<.. J:. M.1 . . 2
830.{-F.. B(M).1 . B(M).39 . . 2840..-P.
. 2380..-Z.. B(M.1).1 . . 2670..-D..H(A$
,B(M.1).1);.L-N..H(B$,23.H(B(M.1)));..-X
.. Z.1 . 3: ."..MWN....M!N";:. X.1 . 5:.
X.,....".... .... ....";:. X.1 . 5:.
X:. Z:.".";.7.... 2830.A....".";.T. ..H
(A$,L(N).1);.K....H(B$,24.H(L(N)));.....
. Z.1 .10:."....Q.......M.!...N......MM!
NN....";".";.J...." .... ......
........";...H.. X.1 . 2:. X:. Z...R..X.
1 .50:. X...... 2470../...".";../...H(A$
,L(3.N).1);.6/...H(B$,24.H(L(3.N).1));.A
/... 2740.G/...._/..W.W..(10.(.(1)..5)).
}/"..".";H(B$,24);" ";../,.. W..0
. ." ...";W;" MPH WIND -----> ";:.
1950../6.." ...";.W;" MPH WIND <-----
";:. 1950../@..../J....0T.. ".......
....";.15);".ARTILLERY":.:..;0^.. .11);"
CREATIVE COMPUTING".W0H.. .13);"P.O. BOX
789-M"..0R.. .6);"MORRISTOWN, NEW JERSE
Y 07960"..0S.."...........NOTE:PRESS < R
ETURN > AFTER."..0T.."......EACH RESPONS
E FROM THE KEYBOARD."..0V..B1.1.10."1X..
H(UD$,21);".......NOTE:PRESS .< RETURN >
. AFTER .".71Y..B2.1.300:.:B2.0.M1Z..H(U
D$,21);".......NOTE:PRESS < RETURN > AFT
ER ."..1{..B2.1.300:.:B2.0..1|....1... B
1.1.2000:. B1..1..B1.0..1......
> CLICK IMAGE PREVIEW FOR FULL MODAL