ARTILLERY.C3
FILE INFORMATION
FILENAME(S): ARTILLERY.C3
FILE TYPE(S): PRG
FILE SIZE: 10.4K
FIRST SEEN: 2025-12-02 22:47:27
APPEARS ON: 2 disk(s)
FILE HASH
932da0d970ef7c80bd69508be7664994c3bd891c54cb710b0b42b3200b0e92a4
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 CHRIS FREE | ARTILLERY.C3 | PRG | swasti, charly | 21 | 8 | DOWNLOAD FILE |
| C64 CHRIS FREE | ARTILLERY.C3 | PRG | swasti, charly | 21 | 8 | 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 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 B0 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: 00 D5 14 08 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000CC0: C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD |......... 64 ...|
00000CD0: D0 D5 D4 C5 D2 00 DE 14 09 02 8D 38 33 35 00 F2 |...........835..|
00000CE0: 14 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |.N..UZ.1..UP%:.2|
00000CF0: 31 37 00 F8 14 57 02 8E 00 1E 15 58 02 8F 20 2A |17...W.....X.. *|
00000D00: 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 |* PROGRAM MODIFI|
00000D10: 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 2F |CATION INST **./|
00000D20: 15 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 |.Y..".":.UT,UL%.|
00000D30: 4F 15 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 |O.].UP.0:UG$.".R|
00000D40: 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 |OGRAM .OD":.850.|
00000D50: 58 15 94 02 8D 38 33 35 00 6C 15 B2 02 8B 55 5A |X....835.l....UZ|
00000D60: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 72 15 BB |.1..UP%:.217.r..|
00000D70: 02 8E 00 97 15 BC 02 8F 20 2A 2A 20 54 4F 20 55 |........ ** TO U|
00000D80: 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D |SE 8032 LOAD CBM|
00000D90: 34 30 33 32 20 2A 2A 00 CD 15 C6 02 99 22 93 11 |4032 **......"..|
00000DA0: 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
00000DB0: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
00000DC0: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 03 16 |N AN 8032 .....|
00000DD0: D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 |..." LOAD T|
00000DE0: 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 |HE 'CBM 4032' PR|
00000DF0: 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 |OGRAM...........|
00000E00: 11 11 22 00 0E 16 DA 02 9E 55 55 AA 37 31 00 14 |.."......UU.71..|
00000E10: 16 E4 02 80 00 34 16 20 03 8F 20 2A 2A 20 54 20 |.....4. .. ** T |
00000E20: 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 |I T L E P A G |
00000E30: 45 20 2A 2A 00 68 16 22 03 99 22 93 11 1D 05 22 |E **.h.".."...."|
00000E40: 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |;:.UT,UU%:..(500|
00000E50: 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A |03).0..53280,14:|
00000E60: 97 35 33 32 38 31 2C 36 00 7E 16 24 03 81 49 B2 |.53281,6.~.$..I.|
00000E70: 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 96 |1.38:."...";:...|
00000E80: 16 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |.&..I.1.22:."...|
00000E90: A6 92 22 3B 3A 82 00 AE 16 28 03 81 49 B2 31 A4 |..";:....(..I.1.|
00000EA0: 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 C6 |37:.".....";:...|
00000EB0: 16 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.*..I.1.22:."...|
00000EC0: A6 92 22 3B 3A 82 00 EB 16 2C 03 99 22 13 11 11 |..";:....,.."...|
00000ED0: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000EE0: 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 0D 17 2E 03 |........ ......|
00000EF0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000F00: 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 2E 17 |..... . . .....|
00000F10: 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |0.."............|
00000F20: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 4C |....... . ....L|
00000F30: 17 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.2.."...........|
00000F40: 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 74 17 34 |......... ..t.4|
00000F50: 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000F60: 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 |.C O M M O D O R|
00000F70: 20 45 11 11 00 97 17 36 03 99 22 1D 1D 1D 1D 1D | E.....6..".....|
00000F80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 |..........EDUCAT|
00000F90: 49 4F 4E 41 4C 11 11 00 B6 17 38 03 99 22 1D 1D |IONAL.....8.."..|
00000FA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F |..............SO|
00000FB0: 46 54 57 41 52 45 00 D1 17 3A 03 8F 20 2A 2A 20 |FTWARE...:.. ** |
00000FC0: 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A |COMMODORE LOGO *|
00000FD0: 2A 00 09 18 3B 03 99 C8 28 55 44 24 2C 32 34 29 |*...;...(UD$,24)|
00000FE0: 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |;"..........PRES|
00000FF0: 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 |S SPACE BAR OR W|
00001000: 41 49 54 92 22 3A 49 B2 30 00 2B 18 3C 03 A1 41 |AIT.":I.0.+.<..A|
00001010: 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 |$:.A$.." ".I.I.1|
00001020: 3A 8B 49 B3 32 35 30 A7 38 32 38 00 4F 18 3E 03 |:.I.250.828.O.>.|
00001030: 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 |T1$."":T2$."":T3|
00001040: 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 |$."":T4$."":I.0.|
00001050: 58 18 40 03 89 33 30 30 00 74 18 43 03 8F 20 2A |X.@..300.t.C.. *|
00001060: 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 |* SPACE BAR PRES|
00001070: 53 20 2A 2A 00 AF 18 48 03 97 55 4F 2C 30 3A 99 |S **...H..UO,0:.|
00001080: C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D |.(UD$,24);".....|
00001090: 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 |..PRESS SPACE BA|
000010A0: 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 |R TO CONTINUE.".|
000010B0: C6 18 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 |..L..UI$:.UI$.."|
000010C0: 20 22 A7 38 34 34 00 CC 18 4E 03 8E 00 EC 18 52 | ".844...N.....R|
000010D0: 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 |.. ** PAGE DESIG|
000010E0: 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 F8 18 54 |N ROUTINE **...T|
000010F0: 03 55 50 B2 55 50 AA 31 00 22 19 57 03 99 22 93 |.UP.UP.1.".W..".|
00001100: 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 |".(UT$.UP$,21);.|
00001110: 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 |(UP$.UG$..(UP),1|
00001120: 38 29 00 51 19 5C 03 99 22 20 2D 2D 2D 2D 2D 2D |8).Q.\.." ------|
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: 22 00 60 19 60 03 8B 55 48 B3 B1 30 A7 38 37 30 |".`.`..UH..0.870|
00001160: 00 94 19 61 03 99 C8 28 55 44 24 2C 32 34 29 3B |...a...(UD$,24);|
00001170: C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D |.(UP$,7);"HELP -|
00001180: 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 | PRESS H <RETU|
00001190: 52 4E 3E 22 00 A5 19 66 03 55 48 B2 30 3A 99 22 |RN>"...f.UH.0:."|
000011A0: 13 11 22 3A 8E 00 C4 19 6B 03 8F 20 2A 2A 20 50 |..":....k.. ** P|
000011B0: 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 |LEASE WAIT REMAR|
000011C0: 4B 20 2A 2A 00 FA 19 70 03 99 C8 28 55 44 24 2C |K **...p...(UD$,|
000011D0: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
000011E0: 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 |ONE MOMENT PLEAS|
000011F0: 45 2E 2E 2E 20 20 20 20 20 22 00 00 1A 75 03 8E |E... "...u..|
00001200: 00 1D 1A 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 |...... ** SET UP|
00001210: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 68 1A | VARIABLES **.h.|
00001220: 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 |..UX$."H":.UQ%(1|
00001230: 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 |000):UB.32768:U1|
00001240: B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 |.196:U2.197:U3.1|
00001250: 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 |98:U4.216:UC.167|
00001260: 3A 55 55 B2 31 30 32 34 00 A6 1A 86 03 55 54 B2 |:UU.1024.....UT.|
00001270: 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 |59468:UU%.12:UL%|
00001280: B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 |.14:UP%.1146:UM.|
00001290: 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 |32768:UO.158:. 5|
000012A0: 30 30 30 33 2C 30 00 E9 1A 87 03 8B C2 28 35 30 |0003,0.......(50|
000012B0: 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 |003).0.UB.1024:U|
000012C0: 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 |1.209:U2.210:U3.|
000012D0: 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 |211:U4.214:UC.20|
000012E0: 34 3A 55 55 B2 32 30 34 38 00 28 1B 88 03 8B C2 |4:UU.2048.(.....|
000012F0: 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 |(50003).0.UT.532|
00001300: 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 |72:UU%.21:UL%.23|
00001310: 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 |:UP%.2139:UM.102|
00001320: 34 3A 55 4F B2 31 39 38 00 4C 1B 89 03 55 44 24 |4:UO.198.L...UD$|
00001330: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001340: 11 11 11 11 11 11 11 11 11 11 11 22 00 7E 1B 8A |...........".~..|
00001350: 03 55 50 24 B2 22 20 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 22 00 CB | "..|
00001380: 1B 8B 03 55 54 24 B2 22 20 C1 52 54 49 4C 4C 45 |...UT$." .RTILLE|
00001390: 52 59 20 20 20 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C |RY .....":. PL|
000013A0: 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C |ACE PROGRAM TITL|
000013B0: 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 21 |E HERE !!!!!!!!!|
000013C0: 21 21 21 21 21 21 21 21 2A 2A 2A 00 01 1C 8C 03 |!!!!!!!!***.....|
000013D0: 86 41 28 31 30 30 29 2C 42 28 31 30 30 29 2C 48 |.A(100),B(100),H|
000013E0: 28 33 39 29 2C 41 31 28 32 29 2C 42 31 28 32 29 |(39),A1(2),B1(2)|
000013F0: 2C 41 32 28 32 29 2C 42 32 28 32 29 2C 4C 28 32 |,A2(2),B2(2),L(2|
00001400: 29 00 07 1C 8D 03 8E 00 21 1C 8E 03 8F 20 2A 2A |).......!.... **|
00001410: 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A | SET VARIABLES *|
00001420: 2A 00 2A 1C 93 03 8D 39 30 30 00 45 1C 98 03 8F |*.*....900.E....|
00001430: 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 | ** CHECK FOR 80|
00001440: 33 32 20 2A 2A 00 63 1C 9D 03 99 22 93 22 3A 99 |32 **.c....".":.|
00001450: 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 |".":. SHIFTED SP|
00001460: 41 43 45 00 7A 1C A2 03 8B C2 28 55 42 AA 34 30 |ACE.z.....(UB.40|
00001470: 29 B3 B1 39 36 A7 8D 37 30 30 00 93 1C A3 03 8F |)..96..700......|
00001480: 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B | ** MEMORY CHECK|
00001490: 20 2A 2A 00 A7 1C A4 03 8B 20 B8 28 30 29 B1 32 | **...... .(0).2|
000014A0: 30 30 30 A7 39 33 37 00 D5 1C A5 03 99 22 93 11 |000.937......"..|
000014B0: 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 |..THIS MACHINE D|
000014C0: 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F |OES NOT HAVE ENO|
000014D0: 55 47 48 11 22 00 F9 1C A6 03 99 22 4D 45 4D 4F |UGH."......"MEMO|
000014E0: 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 |RY TO RUN THIS P|
000014F0: 52 4F 47 52 41 4D 20 21 22 00 04 1D A7 03 9E 55 |ROGRAM !"......U|
00001500: 55 AA 37 31 00 0A 1D A8 03 80 00 24 1D A9 03 99 |U.71.......$....|
00001510: 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 |"..":..(50003).0|
00001520: A7 39 36 32 00 53 1D AC 03 8F 20 2A 2A 20 42 41 |.962.S.... ** BA|
00001530: 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 |SIC 2.0 OR 4.0|
00001540: 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 | OR C-64 SETUP|
00001550: 20 2A 2A 00 91 1D AD 03 97 31 30 37 35 2C 31 33 | **......1075,13|
00001560: 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 |3:.1076,144:.107|
00001570: 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 |7,234:.1079,4:.1|
00001580: 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 |080,133:.1081,14|
00001590: 35 00 C7 1D AE 03 97 31 30 39 31 2C 31 35 35 3A |5......1091,155:|
000015A0: 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C |.1098,133:.1099,|
000015B0: 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 |144:.1100,234:.1|
000015C0: 31 30 33 2C 31 33 33 00 E9 1D AF 03 97 31 31 30 |103,133......110|
000015D0: 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A |4,145:.1105,234:|
000015E0: 97 31 30 38 32 2C 32 33 34 00 00 1E B1 03 8B C2 |.1082,234.......|
000015F0: 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 |(50003)..160.955|
00001600: 00 2F 1E B6 03 97 31 30 39 33 2C 38 38 3A 97 31 |./....1093,88:.1|
00001610: 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 |094,228:.1097,85|
00001620: 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 |:.1102,228:.965.|
00001630: 44 1E BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 |D.....(50003)..1|
00001640: A7 39 39 30 00 73 1E C0 03 97 31 30 39 33 2C 34 |.990.s....1093,4|
00001650: 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 |9:.1094,230:.109|
00001660: 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 |7,46:.1102,230:.|
00001670: 39 36 35 00 AD 1E C2 03 97 32 30 39 39 2C 31 34 |965......2099,14|
00001680: 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 |1:.2100,20:.2101|
00001690: 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 |,3:.2103,8:.2104|
000016A0: 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 E9 1E |,141:.2105,21...|
000016B0: C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C |...2106,3:.2115,|
000016C0: 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 |145:.2117,52:.21|
000016D0: 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A |18,234:.2121,49:|
000016E0: 97 32 31 32 32 2C 31 34 31 00 23 1F C4 03 97 32 |.2122,141.#....2|
000016F0: 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 |123,20:.2124,3:.|
00001700: 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 |2126,234:.2127,1|
00001710: 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 |41:.2128,21:.212|
00001720: 39 2C 33 00 41 1F C5 03 9E 55 55 AA 34 38 3A 8F |9,3.A....UU.48:.|
00001730: 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 | DISABLE STOP KE|
00001740: 59 00 52 1F CA 03 8D 38 30 30 3A 8F 20 54 49 54 |Y.R....800:. TIT|
00001750: 4C 45 00 62 1F D4 03 89 33 30 30 3A 8F 20 4D 45 |LE.b....300:. ME|
00001760: 4E 55 00 93 1F DE 03 99 22 93 54 48 45 20 50 47 |NU......".THE PG|
00001770: 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 |M WILL NOT WORK |
00001780: 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 |ON THIS MACHINE!|
00001790: 22 3A 80 00 C8 1F E8 03 8B 55 5A B2 31 A7 9E 55 |":.......UZ.1..U|
000017A0: 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A |P%:.UP%:UZ.0:. *|
000017B0: 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 |* PROGRAM STARTS|
000017C0: 20 48 45 52 45 20 2A 2A 00 F3 1F E9 03 99 22 93 | HERE **......".|
000017D0: 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 |.";:.:..(50003).|
000017E0: 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |0..53281,6:.5328|
000017F0: 30 2C 36 00 FF 1F 6F 04 97 55 54 2C 55 4C 25 00 |0,6...o..UT,UL%.|
00001800: 10 20 74 04 8F 20 47 4F 53 55 42 20 32 38 39 30 |. t.. GOSUB 2890|
00001810: 00 1B 20 78 04 9C 3A 8D 39 30 30 00 41 20 F6 04 |.. x..:.900.A ..|
00001820: 99 22 93 22 3A 97 20 55 54 2C 55 55 25 3A 8F 20 |.".":. UT,UU%:. |
00001830: 52 45 53 45 54 20 54 4F 20 47 52 41 50 48 49 43 |RESET TO GRAPHIC|
00001840: 53 00 65 20 00 05 5A 24 B2 22 12 20 91 9D 22 3A |S.e ..Z$.". ..":|
00001850: 81 20 58 B2 31 20 A4 20 35 3A 5A 24 B2 5A 24 AA |. X.1 . 5:Z$.Z$.|
00001860: 5A 24 3A 82 58 00 A3 20 0A 05 41 24 B2 22 1D 22 |Z$:.X.. ..A$."."|
00001870: 3A 81 20 58 B2 31 20 A4 20 36 3A 41 24 B2 41 24 |:. X.1 . 6:A$.A$|
00001880: AA 41 24 3A 82 58 3A 42 24 B2 22 11 22 3A 81 20 |.A$:.X:B$.".":. |
00001890: 58 B2 31 20 A4 20 35 3A 42 24 B2 42 24 AA 42 24 |X.1 . 5:B$.B$.B$|
000018A0: 3A 82 58 00 AB 20 14 05 4E B2 32 00 C6 20 1E 05 |:.X.. ..N.2.. ..|
000018B0: 8F 20 20 20 43 4F 4E 53 54 52 55 43 54 20 4D 4F |. CONSTRUCT MO|
000018C0: 55 4E 54 41 49 4E 00 F0 20 23 05 99 22 93 22 3B |UNTAIN.. #..".";|
000018D0: C8 28 55 44 24 2C 32 33 29 3B 22 42 55 49 4C 44 |.(UD$,23);"BUILD|
000018E0: 49 4E 47 20 4D 4F 55 4E 54 41 49 4E 2E 2E 2E 22 |ING MOUNTAIN..."|
000018F0: 00 03 21 28 05 58 31 B2 B5 28 36 AA BB 28 31 29 |..!(.X1..(6..(1)|
00001900: AC 38 29 00 17 21 32 05 58 32 B2 B5 28 32 35 AA |.8)..!2.X2..(25.|
00001910: BB 28 31 29 AC 38 29 00 31 21 3C 05 4C 28 31 29 |.(1).8).1!<.L(1)|
00001920: B2 B5 28 33 AA 28 58 31 AB 33 29 AC BB 28 31 29 |..(3.(X1.3)..(1)|
00001930: 29 00 4F 21 46 05 4C 28 32 29 B2 B5 28 58 32 AA |).O!F.L(2)..(X2.|
00001940: 31 AA 28 33 36 AB 58 32 29 AC BB 28 31 29 29 00 |1.(36.X2)..(1)).|
00001950: 60 21 50 05 48 39 B2 BB 28 31 29 AC 31 31 AA 31 |`!P.H9..(1).11.1|
00001960: 00 7A 21 5A 05 81 20 49 B2 31 20 A4 20 58 31 3A |.z!Z.. I.1 . X1:|
00001970: 48 28 49 29 B2 48 39 3A 82 49 00 8B 21 64 05 48 |H(I).H9:.I..!d.H|
00001980: 39 B2 BB 28 31 29 AC 31 31 AA 31 00 A6 21 6E 05 |9..(1).11.1..!n.|
00001990: 81 20 49 B2 58 32 20 A4 20 33 39 3A 48 28 49 29 |. I.X2 . 39:H(I)|
000019A0: B2 48 39 3A 82 49 00 C5 21 78 05 8B 20 B6 28 48 |.H9:.I..!x.. .(H|
000019B0: 28 31 29 AB 48 28 33 39 29 29 B3 34 20 A7 20 89 |(1).H(39)).4 . .|
000019C0: 20 31 33 36 30 00 E3 21 82 05 58 33 B2 58 31 AA | 1360..!..X3.X1.|
000019D0: B5 28 BB 28 31 29 AC 28 58 32 AB 58 31 AB 36 29 |.(.(1).(X2.X1.6)|
000019E0: 29 AA 33 00 F7 21 8C 05 48 28 58 33 29 B2 BB 28 |).3..!..H(X3)..(|
000019F0: 31 29 AC 31 31 AA 39 00 0D 22 96 05 44 31 B2 28 |1).11.9.."..D1.(|
00001A00: 48 28 58 33 29 AB 48 28 31 29 29 AD 32 00 24 22 |H(X3).H(1)).2.$"|
00001A10: A0 05 44 32 B2 28 48 28 58 33 29 AB 48 28 33 39 |..D2.(H(X3).H(39|
00001A20: 29 29 AD 32 00 3C 22 AA 05 8B 20 44 31 AC 44 32 |)).2.<"... D1.D2|
00001A30: B3 B2 30 20 A7 20 89 20 31 36 31 30 00 47 22 B4 |..0 . . 1610.G".|
00001A40: 05 4A B2 AB 31 38 30 00 5B 22 BE 05 4B B2 31 38 |.J..180.["..K.18|
00001A50: 30 AD 28 58 33 AB 58 31 AA 31 29 00 6A 22 C8 05 |0.(X3.X1.1).j"..|
00001A60: 48 39 B2 48 28 31 29 AA 44 31 00 7E 22 D2 05 81 |H9.H(1).D1.~"...|
00001A70: 20 49 B2 58 31 AA 31 20 A4 20 58 33 AB 31 00 88 | I.X1.1 . X3.1..|
00001A80: 22 DC 05 4A B2 4A AA 4B 00 A2 22 E6 05 48 28 49 |"..J.J.K.."..H(I|
00001A90: 29 B2 48 39 AA BE 28 4A AC FF AD 31 38 30 29 AC |).H9..(J...180).|
00001AA0: 44 31 00 A9 22 F0 05 82 49 00 B1 22 FA 05 4A B2 |D1.."...I.."..J.|
00001AB0: 30 00 C5 22 04 06 4B B2 31 38 30 AD 28 58 32 AB |0.."..K.180.(X2.|
00001AC0: 58 33 AA 31 29 00 D5 22 0E 06 48 39 B2 48 28 33 |X3.1).."..H9.H(3|
00001AD0: 39 29 AA 44 32 00 E9 22 18 06 81 20 49 B2 58 33 |9).D2.."... I.X3|
00001AE0: AA 31 20 A4 20 58 32 AB 31 00 F3 22 22 06 4A B2 |.1 . X2.1.."".J.|
00001AF0: 4A AA 4B 00 0D 23 2C 06 48 28 49 29 B2 48 39 AA |J.K..#,.H(I).H9.|
00001B00: BE 28 4A AC FF AD 31 38 30 29 AC 44 32 00 14 23 |.(J...180).D2..#|
00001B10: 36 06 82 49 00 1F 23 40 06 89 20 31 36 39 30 00 |6..I..#@.. 1690.|
00001B20: 34 23 4A 06 44 B2 28 48 28 31 29 AB 48 28 33 39 |4#J.D.(H(1).H(39|
00001B30: 29 29 AD 32 00 3C 23 54 06 4A B2 30 00 50 23 5E |)).2.<#T.J.0.P#^|
00001B40: 06 4B B2 31 38 30 AD 28 58 32 AB 58 31 AA 31 29 |.K.180.(X2.X1.1)|
00001B50: 00 5F 23 68 06 48 39 B2 48 28 33 39 29 AA 44 00 |._#h.H9.H(39).D.|
00001B60: 73 23 72 06 81 20 49 B2 58 31 AA 31 20 A4 20 58 |s#r.. I.X1.1 . X|
00001B70: 32 AB 31 00 7D 23 7C 06 4A B2 4A AA 4B 00 96 23 |2.1.}#|.J.J.K..#|
00001B80: 86 06 48 28 49 29 B2 48 39 AA BE 28 4A AC FF AD |..H(I).H9..(J...|
00001B90: 31 38 30 29 AC 44 00 9E 23 90 06 82 20 49 00 A8 |180).D..#... I..|
00001BA0: 23 9A 06 99 22 13 22 3B 00 BF 23 A4 06 57 B2 B5 |#...".";..#..W..|
00001BB0: 28 31 30 30 AC 28 BB 28 31 29 AB 2E 35 29 29 00 |(100.(.(1)..5)).|
00001BC0: CE 23 AE 06 99 C8 28 42 24 2C 32 32 29 3B 00 F0 |.#....(B$,22);..|
00001BD0: 23 B8 06 81 20 49 B2 31 20 A4 20 33 39 3A 48 28 |#... I.1 . 39:H(|
00001BE0: 49 29 B2 B5 28 48 28 49 29 AA 2E 35 29 3A 82 49 |I)..(H(I)..5):.I|
00001BF0: 00 0D 24 C2 06 81 20 58 B2 31 20 A4 20 33 39 3A |..$... X.1 . 39:|
00001C00: 8B 58 B2 31 20 A7 20 89 20 31 37 35 30 00 17 24 |.X.1 . . 1750..$|
00001C10: CC 06 99 22 1D 22 3B 00 2C 24 D6 06 99 CA 28 5A |...".";.,$....(Z|
00001C20: 24 2C 31 2C 48 28 58 29 AC 34 29 3B 00 46 24 E0 |$,1,H(X).4);.F$.|
00001C30: 06 81 20 5A B2 31 20 A4 20 48 28 58 29 3A 99 22 |.. Z.1 . H(X):."|
00001C40: 11 22 3B 3A 82 5A 00 53 24 EA 06 82 20 58 3A 99 |.";:.Z.S$... X:.|
00001C50: 22 92 22 00 5D 24 F4 06 99 22 13 22 3B 00 85 24 |".".]$...".";..$|
00001C60: FE 06 99 CA 28 42 24 2C 31 2C 32 32 AB 48 28 31 |....(B$,1,22.H(1|
00001C70: 29 29 3B 3A 8B 20 4C 28 31 29 B2 31 20 A7 20 89 |));:. L(1).1 . .|
00001C80: 20 31 38 31 30 00 9A 24 08 07 99 CA 28 41 24 2C | 1810..$....(A$,|
00001C90: 31 2C 4C 28 31 29 AB 31 29 3B 00 A4 24 12 07 99 |1,L(1).1);..$...|
00001CA0: 22 5E 22 3B 00 AE 24 1C 07 99 22 13 22 3B 00 C5 |"^";..$...".";..|
00001CB0: 24 26 07 99 CA 28 42 24 2C 31 2C 32 32 AB 48 28 |$&...(B$,1,22.H(|
00001CC0: 33 39 29 29 3B 00 DA 24 30 07 99 CA 28 41 24 2C |39));..$0...(A$,|
00001CD0: 31 2C 4C 28 32 29 AB 31 29 3B 00 E4 24 3A 07 99 |1,L(2).1);..$:..|
00001CE0: 22 5E 22 3B 00 1D 25 3F 07 99 C8 28 55 44 24 2C |"^";..%?...(UD$,|
00001CF0: 32 33 29 22 1D 1D 1D 12 50 4C 41 59 45 52 20 31 |23)"....PLAYER 1|
00001D00: 92 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001D10: 1D 1D 12 50 4C 41 59 45 52 20 32 92 22 00 27 25 |...PLAYER 2.".'%|
00001D20: 44 07 99 22 13 22 3B 00 38 25 4E 07 99 CA 28 42 |D..".";.8%N...(B|
00001D30: 24 2C 31 2C 32 34 29 3B 00 48 25 58 07 99 22 20 |$,1,24);.H%X.." |
00001D40: 20 20 20 20 20 20 22 3B 00 50 25 62 07 4B B2 31 | ";.P%b.K.1|
00001D50: 00 63 25 6C 07 8B 57 B1 B2 30 20 A7 20 89 20 31 |.c%l..W..0 . . 1|
00001D60: 39 33 30 00 81 25 76 07 99 AB 57 3B 22 20 4D 50 |930..%v...W;" MP|
00001D70: 48 20 57 49 4E 44 20 3C 2D 2D 2D 2D 2D 20 20 22 |H WIND <----- "|
00001D80: 3B 00 8C 25 80 07 89 20 31 39 35 30 00 AA 25 8A |;..%... 1950..%.|
00001D90: 07 99 57 3B 22 20 4D 50 48 20 57 49 4E 44 20 2D |..W;" MPH WIND -|
00001DA0: 2D 2D 2D 2D 2D 3E 20 20 22 3B 00 B4 25 94 07 99 |-----> ";..%...|
00001DB0: 22 13 22 3B 00 D3 25 9E 07 99 22 13 22 3B 3A 4E |".";..%...".";:N|
00001DC0: B2 33 AB 4E 3A 8B 20 4E B2 31 20 A7 20 89 20 32 |.3.N:. N.1 . . 2|
00001DD0: 30 31 30 00 0B 26 A8 07 99 C8 28 55 44 24 2C 32 |010..&....(UD$,2|
00001DE0: 33 29 22 1D 1D 12 20 50 4C 41 59 45 52 20 31 20 |3)"... PLAYER 1 |
00001DF0: 92 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001E00: 2A 50 4C 41 59 45 52 20 32 2A 22 00 37 26 AD 07 |*PLAYER 2*".7&..|
00001E10: 99 22 13 22 3B C8 28 41 24 2C 32 33 29 3B 22 41 |.".";.(A$,23);"A|
00001E20: 4E 47 4C 45 20 28 31 2D 39 30 29 20 BF 20 9D 9D |NGLE (1-90) . ..|
00001E30: 22 3B 3A 55 4C B2 32 00 75 26 B2 07 55 53 24 B2 |";:UL.2.u&..US$.|
00001E40: 22 30 31 32 33 34 35 36 37 38 39 48 22 3A 8D 33 |"0123456789H":.3|
00001E50: 35 3A 45 B2 C5 28 55 52 24 29 3A 8B 20 45 B1 39 |5:E..(UR$):. E.9|
00001E60: 30 20 A7 20 99 22 9D 9D BF 20 9D 9D 22 3B 3A 89 |0 . ."... ..";:.|
00001E70: 20 31 39 37 30 00 8D 26 B7 07 99 22 13 22 3B 3A | 1970..&...".";:|
00001E80: 8B 45 B2 30 20 A7 20 89 20 31 39 36 35 00 D0 26 |.E.0 . . 1965..&|
00001E90: BC 07 99 C8 28 42 24 2C 31 29 3B C8 28 41 24 2C |....(B$,1);.(A$,|
00001EA0: 32 33 29 3B 22 11 50 4F 57 44 45 52 28 31 2D 31 |23);".POWDER(1-1|
00001EB0: 35 29 20 20 20 9D 9D BF 9D 22 3B 3A 55 4C B2 32 |5) ....";:UL.2|
00001EC0: 3A 55 53 24 B2 22 30 31 32 33 34 35 36 37 38 39 |:US$."0123456789|
00001ED0: 00 04 27 C6 07 55 53 24 B2 55 53 24 AA 22 48 22 |..'..US$.US$."H"|
00001EE0: 3A 8D 33 35 3A 56 B2 C5 28 55 52 24 29 3A 8B 20 |:.35:V..(UR$):. |
00001EF0: 56 B1 31 35 20 B0 20 56 B3 B2 30 20 A7 20 89 20 |V.15 . V..0 . . |
00001F00: 31 39 37 35 00 0F 27 D0 07 89 20 32 30 34 30 00 |1975..'... 2040.|
00001F10: 56 27 DA 07 99 22 13 20 20 20 20 20 20 20 20 20 |V'...". |
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 22 3B | ";|
00001F40: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001F50: 20 20 20 20 22 3B 00 A1 27 DF 07 99 22 20 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 22 | "|
00001FA0: 3B 00 D9 27 E4 07 99 C8 28 55 44 24 2C 32 33 29 |;..'....(UD$,23)|
00001FB0: 22 1D 1D 2A 50 4C 41 59 45 52 20 31 2A 1D 1D 1D |"..*PLAYER 1*...|
00001FC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 50 4C |............. PL|
00001FD0: 41 59 45 52 20 32 20 92 22 00 24 28 E9 07 99 22 |AYER 2 .".$(..."|
00001FE0: 20 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 22 3B 22 13 41 4E 47 4C | ";".ANGL|
00002010: 45 20 28 31 2D 39 30 29 20 BF 20 9D 9D 22 3B 3A |E (1-90) . ..";:|
00002020: 55 4C B2 32 00 5D 28 EE 07 55 53 24 B2 22 30 31 |UL.2.](..US$."01|
00002030: 32 33 34 35 36 37 38 39 48 22 3A 8D 33 35 3A 45 |23456789H":.35:E|
00002040: B2 C5 28 55 52 24 29 3A 8B 20 45 B1 39 30 20 B0 |..(UR$):. E.90 .|
00002050: 20 45 B2 30 20 A7 20 89 20 32 30 32 35 00 83 28 | E.0 . . 2025..(|
00002060: F0 07 99 22 13 11 11 50 4F 57 44 45 52 20 28 31 |..."...POWDER (1|
00002070: 2D 31 35 29 20 20 20 20 9D 9D 9D BF 9D 22 3B 3A |-15) .....";:|
00002080: 8D 33 35 00 A6 28 F3 07 56 B2 C5 28 55 52 24 29 |.35..(..V..(UR$)|
00002090: 3A 8B 56 B1 31 35 20 B0 20 56 B3 B2 30 20 A7 20 |:.V.15 . V..0 . |
000020A0: 89 20 32 30 33 32 00 BF 28 F8 07 4B B2 4B AA 31 |. 2032..(..K.K.1|
000020B0: 3A 8B 20 45 B2 30 20 A7 20 89 20 31 33 31 30 00 |:. E.0 . . 1310.|
000020C0: D4 28 02 08 41 32 28 4E 29 B2 41 32 28 4E 29 AB |.(..A2(N).A2(N).|
000020D0: 32 2E 38 36 00 DF 28 0C 08 45 B2 39 30 AB 45 00 |2.86..(..E.90.E.|
000020E0: F2 28 16 08 8B 20 4E B2 31 20 A7 20 89 20 32 30 |.(... N.1 . . 20|
000020F0: 39 30 00 FB 28 20 08 45 B2 AB 45 00 07 29 2A 08 |90..( .E..E..)*.|
00002100: 58 31 B2 4C 28 4E 29 00 18 29 34 08 59 31 B2 48 |X1.L(N)..)4.Y1.H|
00002110: 28 4C 28 4E 29 29 AA 31 00 24 29 3E 08 54 B2 30 |(L(N)).1.$)>.T.0|
00002120: 3A 4D B2 30 00 38 29 48 08 56 31 B2 BF 28 45 AC |:M.0.8)H.V1..(E.|
00002130: FF AD 31 38 30 29 AC 56 00 4F 29 52 08 56 32 B2 |..180).V.O)R.V2.|
00002140: BE 28 45 AC FF AD 31 38 30 29 AC 56 AC 2E 37 00 |.(E...180).V..7.|
00002150: 60 29 5C 08 54 B2 54 AA 2E 35 3A 4D B2 4D AA 31 |`)\.T.T..5:M.M.1|
00002160: 00 79 29 66 08 56 31 B2 56 31 AA 28 56 31 AA 57 |.y)f.V1.V1.(V1.W|
00002170: AC 2E 35 29 AD 31 35 30 30 00 91 29 70 08 58 B2 |..5).1500..)p.X.|
00002180: 58 31 AA 28 56 31 AA 57 AC 2E 35 AD 35 30 29 AC |X1.(V1.W..5.50).|
00002190: 54 00 9F 29 7A 08 58 B2 B5 28 58 AA 2E 35 29 00 |T..)z.X..(X..5).|
000021A0: B3 29 84 08 59 B2 59 31 AA 28 56 32 AB 54 AD 33 |.)..Y.Y1.(V2.T.3|
000021B0: 29 AC 54 00 C1 29 8E 08 59 B2 B5 28 59 AA 2E 35 |).T..)..Y..(Y..5|
000021C0: 29 00 D2 29 98 08 5A B2 32 33 AB 59 3A 99 22 13 |)..)..Z.23.Y:.".|
000021D0: 22 3B 00 FA 29 A2 08 41 28 4D 29 B2 5A 3A 42 28 |";..)..A(M).Z:B(|
000021E0: 4D 29 B2 58 3A 8B 20 58 B1 33 39 20 B0 20 58 B3 |M).X:. X.39 . X.|
000021F0: 31 20 A7 20 89 20 32 35 33 30 00 12 2A AC 08 8B |1 . . 2530..*...|
00002200: 59 AB 48 28 58 29 B3 B2 30 20 A7 20 89 20 32 35 |Y.H(X)..0 . . 25|
00002210: 32 30 00 25 2A B6 08 8B 20 5A B3 30 20 A7 20 89 |20.%*... Z.0 . .|
00002220: 20 32 32 39 30 00 38 2A C0 08 8B 20 5A B2 30 20 | 2290.8*... Z.0 |
00002230: A7 20 89 20 32 32 36 30 00 46 2A CA 08 99 C8 28 |. . 2260.F*....(|
00002240: 42 24 2C 5A 29 3B 00 59 2A D4 08 8B 20 58 B2 31 |B$,Z);.Y*... X.1|
00002250: 20 A7 20 89 20 32 32 38 30 00 69 2A DE 08 99 C8 | . . 2280.i*....|
00002260: 28 41 24 2C 58 AB 31 29 3B 00 72 2A E8 08 99 22 |(A$,X.1);.r*..."|
00002270: D1 22 00 7C 2A F2 08 99 22 13 22 3B 00 91 2A FC |.".|*...".";..*.|
00002280: 08 8B 20 4D AB 34 B3 31 20 A7 20 89 20 32 31 34 |.. M.4.1 . . 214|
00002290: 30 00 A9 2A 06 09 8B 20 41 28 4D AB 34 29 B2 30 |0..*... A(M.4).0|
000022A0: 20 A7 20 89 20 32 33 34 30 00 CD 2A 10 09 8B 20 | . . 2340..*... |
000022B0: 41 28 4D AB 34 29 B3 30 20 B0 20 42 28 4D AB 34 |A(M.4).0 . B(M.4|
000022C0: 29 B3 B2 30 20 A7 20 89 20 32 31 34 30 00 E0 2A |)..0 . . 2140..*|
000022D0: 1A 09 99 C8 28 42 24 2C 41 28 4D AB 34 29 29 3B |....(B$,A(M.4));|
000022E0: 00 F5 2A 24 09 99 C8 28 41 24 2C 42 28 4D AB 34 |..*$...(A$,B(M.4|
000022F0: 29 AB 31 29 3B 00 FF 2A 2E 09 99 22 20 22 3B 00 |).1);..*..." ";.|
00002300: 09 2B 38 09 99 22 13 22 3B 00 14 2B 42 09 89 20 |.+8..".";..+B.. |
00002310: 32 31 34 30 00 27 2B 4C 09 8B 20 4D B2 31 20 A7 |2140.'+L.. M.1 .|
00002320: 20 89 20 32 31 34 30 00 47 2B 56 09 8B 20 42 28 | . 2140.G+V.. B(|
00002330: 4D 29 B3 31 20 B0 20 42 28 4D 29 B1 33 39 20 A7 |M).1 . B(M).39 .|
00002340: 20 89 20 31 39 35 30 00 93 2B 60 09 8F 20 4C 49 | . 1950..+`.. LI|
00002350: 4E 45 53 20 32 34 31 30 20 41 4E 44 20 32 34 34 |NES 2410 AND 244|
00002360: 30 20 44 45 54 45 52 4D 49 4E 45 20 48 49 54 2E |0 DETERMINE HIT.|
00002370: 20 43 48 41 4E 47 45 20 27 31 2E 35 27 20 54 4F | CHANGE '1.5' TO|
00002380: 20 43 48 41 4E 47 45 20 44 49 46 46 49 43 55 4C | CHANGE DIFFICUL|
00002390: 54 59 2E 00 B5 2B 6A 09 8B 20 B6 28 42 28 4D AB |TY...+j.. .(B(M.|
000023A0: 31 29 AB 4C 28 4E 29 29 B3 31 2E 35 20 A7 20 89 |1).L(N)).1.5 . .|
000023B0: 20 32 34 33 30 00 C0 2B 74 09 89 20 32 34 34 30 | 2430..+t.. 2440|
000023C0: 00 D3 2B 7E 09 8B 20 54 B1 31 20 A7 20 89 20 32 |..+~.. T.1 . . 2|
000023D0: 37 31 30 00 F7 2B 88 09 8B 20 B6 28 42 28 4D AB |710..+... .(B(M.|
000023E0: 31 29 AB 4C 28 33 AB 4E 29 29 B3 31 2E 35 20 A7 |1).L(3.N)).1.5 .|
000023F0: 20 89 20 32 37 39 30 00 0A 2C 92 09 8B 20 54 B3 | . 2790..,... T.|
00002400: 31 20 A7 20 89 20 32 31 34 30 00 15 2C 9C 09 89 |1 . . 2140..,...|
00002410: 20 32 36 35 30 00 1F 2C A6 09 99 22 13 91 22 00 | 2650..,..."..".|
00002420: 4A 2C B0 09 99 22 13 11 11 11 11 20 20 20 20 20 |J,..."..... |
00002430: 20 41 4E 4F 54 48 45 52 20 47 41 4D 45 20 3F 20 | ANOTHER GAME ? |
00002440: 28 59 2F 4E 29 20 BF 9D 22 3B 00 61 2C BA 09 55 |(Y/N) ..";.a,..U|
00002450: 4C B2 31 3A 55 53 24 B2 22 59 4E 48 22 3A 8D 33 |L.1:US$."YNH":.3|
00002460: 35 00 76 2C C4 09 8B 20 55 52 24 B2 22 59 22 20 |5.v,... UR$."Y" |
00002470: A7 20 31 30 30 30 00 7F 2C CE 09 89 33 30 30 00 |. 1000..,...300.|
00002480: 89 2C D8 09 99 22 13 22 3B 00 9C 2C E2 09 81 20 |.,...".";..,... |
00002490: 4A B2 34 20 A4 20 31 20 A9 20 AB 31 00 B2 2C EC |J.4 . 1 . .1..,.|
000024A0: 09 8B 20 4D AB 4A B3 B2 30 20 A7 20 89 20 32 36 |.. M.J..0 . . 26|
000024B0: 32 30 00 CA 2C F6 09 8B 20 41 28 4D AB 4A 29 B2 |20..,... A(M.J).|
000024C0: 30 20 A7 20 89 20 32 35 38 30 00 EE 2C 00 0A 8B |0 . . 2580..,...|
000024D0: 20 41 28 4D AB 4A 29 B3 30 20 B0 20 42 28 4D AB | A(M.J).0 . B(M.|
000024E0: 4A 29 B3 B2 30 20 A7 20 89 20 32 36 32 30 00 02 |J)..0 . . 2620..|
000024F0: 2D 0A 0A 99 20 C8 28 42 24 2C 41 28 4D AB 4A 29 |-... .(B$,A(M.J)|
00002500: 29 3B 00 1A 2D 14 0A 8B 20 42 28 4D AB 4A 29 B2 |);..-... B(M.J).|
00002510: 31 20 A7 20 89 20 32 36 30 30 00 2F 2D 1E 0A 99 |1 . . 2600./-...|
00002520: C8 28 41 24 2C 42 28 4D AB 4A 29 AB 31 29 3B 00 |.(A$,B(M.J).1);.|
00002530: 39 2D 28 0A 99 22 20 22 3B 00 43 2D 32 0A 99 22 |9-(.." ";.C-2.."|
00002540: 13 22 3B 00 5A 2D 3C 0A 82 20 4A 3A 8B 20 4D B2 |.";.Z-<.. J:. M.|
00002550: 31 20 A7 20 89 20 32 38 33 30 00 7A 2D 46 0A 8B |1 . . 2830.z-F..|
00002560: 20 42 28 4D 29 B3 31 20 B0 20 42 28 4D 29 B1 33 | B(M).1 . B(M).3|
00002570: 39 20 A7 20 89 20 32 38 34 30 00 85 2D 50 0A 89 |9 . . 2840..-P..|
00002580: 20 32 33 38 30 00 9D 2D 5A 0A 8B 20 42 28 4D AB | 2380..-Z.. B(M.|
00002590: 31 29 B2 31 20 A7 20 89 20 32 36 37 30 00 B2 2D |1).1 . . 2670..-|
000025A0: 64 0A 99 C8 28 41 24 2C 42 28 4D AB 31 29 AB 31 |d...(A$,B(M.1).1|
000025B0: 29 3B 00 CB 2D 6E 0A 99 C8 28 42 24 2C 32 33 AB |);..-n...(B$,23.|
000025C0: 48 28 42 28 4D AB 31 29 29 29 3B 00 F8 2D 78 0A |H(B(M.1)));..-x.|
000025D0: 81 20 5A B2 31 20 A4 20 33 3A 20 99 22 91 9D CD |. Z.1 . 3: ."...|
000025E0: D7 CE 91 9D 9D 9D CD 21 CE 22 3B 3A 81 20 58 B2 |.......!.";:. X.|
000025F0: 31 20 A4 20 35 3A 82 58 00 2B 2E 82 0A 99 22 9D |1 . 5:.X.+....".|
00002600: 9D 9D 11 20 20 20 91 9D 9D 9D 20 20 20 9D 9D 11 |... .... ...|
00002610: 11 22 3B 3A 81 20 58 B2 31 20 A4 20 35 3A 82 20 |.";:. X.1 . 5:. |
00002620: 58 3A 82 20 5A 3A 99 22 B9 22 3B 00 36 2E 8C 0A |X:. Z:.".";.6...|
00002630: 89 20 32 38 33 30 00 40 2E 96 0A 99 22 13 22 3B |. 2830.@....".";|
00002640: 00 53 2E A0 0A 99 C8 28 41 24 2C 4C 28 4E 29 AB |.S.....(A$,L(N).|
00002650: 31 29 3B 00 6A 2E AA 0A 99 C8 28 42 24 2C 32 34 |1);.j.....(B$,24|
00002660: AB 48 28 4C 28 4E 29 29 29 3B 00 A3 2E B4 0A 81 |.H(L(N)));......|
00002670: 20 5A B2 31 20 A4 31 30 3A 99 22 91 9D 12 DF D1 | Z.1 .10:.".....|
00002680: A9 92 91 9D 9D 9D 9D CD BF 21 12 BF 92 CE 9D 9D |.........!......|
00002690: 9D 9D 9D 91 CD CD 21 CE CE 9D 9D 11 11 22 3B 22 |......!......";"|
000026A0: 9D 22 3B 00 C9 2E BE 0A 99 22 20 9D 9D 9D 91 20 |.";......" .... |
000026B0: 20 20 20 20 9D 9D 9D 9D 9D 91 20 20 20 20 20 9D | ...... .|
000026C0: 9D 9D 91 11 11 11 11 22 3B 00 DF 2E C8 0A 81 20 |.......";...... |
000026D0: 58 B2 31 20 A4 20 32 3A 82 20 58 3A 82 20 5A 00 |X.1 . 2:. X:. Z.|
000026E0: F0 2E D2 0A 81 58 B2 31 20 A4 35 30 3A 82 20 58 |.....X.1 .50:. X|
000026F0: 00 FB 2E DC 0A 89 20 32 34 37 30 00 05 2F E6 0A |...... 2470../..|
00002700: 99 22 13 22 3B 00 1A 2F F0 0A 99 C8 28 41 24 2C |.".";../....(A$,|
00002710: 4C 28 33 AB 4E 29 AB 31 29 3B 00 35 2F FA 0A 99 |L(3.N).1);.5/...|
00002720: C8 28 42 24 2C 32 34 AB 48 28 4C 28 33 AB 4E 29 |.(B$,24.H(L(3.N)|
00002730: AB 31 29 29 3B 00 40 2F 04 0B 89 20 32 37 34 30 |.1));.@/... 2740|
00002740: 00 46 2F 0E 0B 8F 00 5E 2F 18 0B 57 B2 57 AA B5 |.F/....^/..W.W..|
00002750: 28 31 30 AC 28 BB 28 31 29 AB 2E 35 29 29 00 7C |(10.(.(1)..5)).||
00002760: 2F 22 0B 99 22 13 22 3B C8 28 42 24 2C 32 34 29 |/"..".";.(B$,24)|
00002770: 3B 22 20 20 20 20 20 20 20 20 22 3B 00 B4 2F 2C |;" ";../,|
00002780: 0B 8B 20 57 B1 B2 30 20 A7 20 99 22 20 20 20 9D |.. W..0 . ." .|
00002790: 9D 9D 22 3B 57 3B 22 20 4D 50 48 20 57 49 4E 44 |..";W;" MPH WIND|
000027A0: 20 2D 2D 2D 2D 2D 3E 20 20 20 20 22 3B 3A 89 20 | -----> ";:. |
000027B0: 31 39 35 30 00 E4 2F 36 0B 99 22 20 20 20 9D 9D |1950../6.." ..|
000027C0: 9D 22 3B AB 57 3B 22 20 4D 50 48 20 57 49 4E 44 |.";.W;" MPH WIND|
000027D0: 20 3C 2D 2D 2D 2D 2D 20 20 20 20 22 3B 3A 89 20 | <----- ";:. |
000027E0: 31 39 35 30 00 EA 2F 40 0B 8E 00 F0 2F 4A 0B 8F |1950../@..../J..|
000027F0: 00 1A 30 54 0B 99 20 22 93 11 11 11 11 11 11 11 |..0T.. "........|
00002800: 11 11 11 22 3B A3 31 35 29 3B 22 12 C1 52 54 49 |...";.15);"..RTI|
00002810: 4C 4C 45 52 59 22 3A 99 3A 99 00 3A 30 5E 0B 99 |LLERY":.:..:0^..|
00002820: 20 A3 31 31 29 3B 22 C3 52 45 41 54 49 56 45 20 | .11);".REATIVE |
00002830: C3 4F 4D 50 55 54 49 4E 47 22 00 56 30 68 0B 99 |.OMPUTING".V0h..|
00002840: 20 A3 31 33 29 3B 22 D0 2E CF 2E 20 42 4F 58 20 | .13);".... BOX |
00002850: 37 38 39 2D 4D 22 00 7F 30 72 0B 99 20 A3 36 29 |789-M"..0r.. .6)|
00002860: 3B 22 CD 4F 52 52 49 53 54 4F 57 4E 2C 20 CE 45 |;".ORRISTOWN, .E|
00002870: 57 20 CA 45 52 53 45 59 20 30 37 39 36 30 22 00 |W .ERSEY 07960".|
00002880: AE 30 73 0B 99 22 11 11 11 11 1D 1D 1D 1D 1D 1D |.0s.."..........|
00002890: 12 CE CF D4 C5 3A D0 52 45 53 53 20 3C 20 D2 C5 |.....:.RESS < ..|
000028A0: D4 D5 D2 CE 20 3E 20 41 46 54 45 52 92 22 00 DC |.... > AFTER."..|
000028B0: 30 74 0B 99 22 11 1D 1D 1D 1D 12 C5 41 43 48 20 |0t..".......ACH |
000028C0: 52 45 53 50 4F 4E 53 45 20 46 52 4F 4D 20 54 48 |RESPONSE FROM TH|
000028D0: 45 20 4B 45 59 42 4F 41 52 44 92 22 00 E9 30 76 |E KEYBOARD."..0v|
000028E0: 0B 81 42 31 B2 31 A4 31 30 00 21 31 78 0B 99 C8 |..B1.1.10.!1x...|
000028F0: 28 55 44 24 2C 32 31 29 3B 22 1D 1D 1D 1D 1D 1D |(UD$,21);"......|
00002900: 12 CE CF D4 C5 3A D0 D2 C5 D3 D3 20 92 3C 20 D2 |.....:..... .< .|
00002910: C5 D4 D5 D2 CE 20 3E 12 20 41 46 54 45 52 20 92 |..... >. AFTER .|
00002920: 22 00 36 31 79 0B 81 42 32 B2 31 A4 33 30 30 3A |".61y..B2.1.300:|
00002930: 82 3A 42 32 B2 30 00 6C 31 7A 0B 99 C8 28 55 44 |.:B2.0.l1z...(UD|
00002940: 24 2C 32 31 29 3B 22 1D 1D 1D 1D 1D 1D 12 CE CF |$,21);".........|
00002950: D4 C5 3A D0 D2 C5 D3 D3 20 3C 20 D2 C5 D4 D5 D2 |..:..... < .....|
00002960: CE 20 3E 20 41 46 54 45 52 20 92 22 00 81 31 7B |. > AFTER ."..1{|
00002970: 0B 81 42 32 B2 31 A4 33 30 30 3A 82 3A 42 32 B2 |..B2.1.300:.:B2.|
00002980: 30 00 87 31 7C 0B 82 00 9C 31 81 0B 81 20 42 31 |0..1|....1... B1|
00002990: B2 31 A4 32 30 30 30 3A 82 20 42 31 00 A5 31 86 |.1.2000:. B1..1.|
000029A0: 0B 42 31 B2 30 00 AB 31 9A 0B 8E 00 BE 00 |.B1.0..1...... |
.......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.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.U...." COMMODORE 64 COM
PUTER......835...N..UZ.1..UP%:.217...W..
...X.. ** PROGRAM MODIFICATION INST **./
.Y..".":.UT,UL%.O.].UP.0:UG$."PROGRAM MO
D":.850.X....835.L....UZ.1..UP%:.217.R..
........ ** TO USE 8032 LOAD CBM4032 **.
M.F..".....BEFORE RUNNING THIS PROGRAM O
N AN 8032 .....P.." LOAD THE 'CBM
4032' PROGRAM............."...Z..UU.71..
.....4. .. ** T I T L E P A G E **.H."
.."....";:.UT,UU%:.B(50003).0..53280,14:
.53281,6.~.$..I.1.38:."...";:....&..I.1.
22:.".....";:....(..I.1.37:.".....";:..F
.*..I.1.22:.".....";:....,.."...........
................ ......."..............
..... . . .....0.."...................
. ....L.2..".................... ..T.4
.."..............C O M M O D O R E.....6
.."...............EDUCATIONAL.....8.."..
..............SOFTWARE.Q.:.. ** COMMODOR
E LOGO **...;..H(UD$,24);"..........PRES
S SPACE BAR OR WAIT.":I.0.+.<..A$:.A$.."
".I.I.1:.I.250.828.O.>.T1$."":T2$."":T3
$."":T4$."":I.0.X.@..300.T.C.. ** SPACE
BAR PRESS **...H..UO,0:.H(UD$,24);".....
..PRESS SPACE BAR TO CONTINUE.".F.L..UI$
:.UI$.." ".844.L.N.....R.. ** PAGE DESIG
N ROUTINE **...T.UP.UP.1.".W.."."H(UT$.U
P$,21);I(UP$.UG$.D(UP),18).Q.\.." ------
--------------------------------".`.`..U
H..0.870...A..H(UD$,24);H(UP$,7);"HELP -
PRESS H <RETURN>"...F.UH.0:."..":..D.
K.. ** PLEASE WAIT REMARK **...P..H(UD$,
24);" ONE MOMENT PLEASE...
"...U........ ** SET UP VARIABLES **.H.
..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:UO
.158:. 50003,0......B(50003).0.UB.1024:U
1.209:U2.210:U3.211:U4.214:UC.204:UU.204
8.(....B(50003).0.UT.53272:UU%.21:UL%.23
:UP%.2139:UM.1024:UO.198.L...UD$."......
...................".~...UP$."
".K...UT$."
ARTILLERY ":. PLACE PROGRAM TITL
E HERE !!!!!!!!!!!!!!!!!***......A(100),
B(100),H(39),A1(2),B1(2),A2(2),B2(2),L(2
).......!.... ** SET VARIABLES **.*....9
00.E.... ** CHECK FOR 8032 **.C....".":.
" ":. SHIFTED SPACE.Z....B(UB.40)..96..7
00...... ** MEMORY CHECK **...... .(0).2
000.937.U...."....THIS MACHINE DOES NOT
HAVE ENOUGH."......"MEMORY TO RUN THIS P
ROGRAM !"......UU.71.......$...."..":.B(
50003).0.962.S.... ** BASIC 2.0 OR 4.0
OR C-64 SETUP **......1075,133:.1076,
144:.1077,234:.1079,4:.1080,133:.1081,14
5.G....1091,155:.1098,133:.1099,144:.110
0,234:.1103,133......1104,145:.1105,234:
.1082,234......B(50003)..160.955./....10
93,88:.1094,228:.1097,85:.1102,228:.965.
D....B(50003)..1.990.S....1093,49:.1094,
230:.1097,46:.1102,230:.965...B..2099,14
1:.2100,20:.2101,3:.2103,8:.2104,141:.21
05,21...C..2106,3:.2115,145:.2117,52:.21
18,234:.2121,49:.2122,141.#.D..2123,20:.
2124,3:.2126,234:.2127,141:.2128,21:.212
9,3.A.E..UU.48:. DISABLE STOP KEY.R.J..8
00:. TITLE.B.T..300:. MENU......".THE PG
M WILL NOT WORK ON THIS MACHINE!":..H...
.UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM STARTS
HERE **......"..";:.:.B(50003).0..53281
,6:.53280,6...O..UT,UL%.. T.. GOSUB 2890
.. X..:.900.A ...".":. UT,UU%:. RESET TO
GRAPHICS.E ..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.F ..
. CONSTRUCT MOUNTAIN.. #..".";H(UD$,23
);"BUILDING MOUNTAIN..."..!(.X1..(6..(1)
.8)..!2.X2..(25..(1).8).1!<.L(1)..(3.(X1
.3)..(1)).O!F.L(2)..(X2.1.(36.X2)..(1)).
`!P.H9..(1).11.1.Z!Z.. I.1 . X1:H(I).H9:
.I..!D.H9..(1).11.1..!N.. I.X2 . 39:H(I)
.H9:.I.E!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.G".
.J..180.["..K.180.(X3.X1.1).J"H.H9.H(1).
D1.~"R.. I.X1.1 . X3.1.."..J.J.K.."..H(I
).H9..(J...180).D1.."...I.."..J.0.E"..K.
180.(X2.X3.1).U"..H9.H(39).D2.."... I.X3
.1 . X2.1.."".J.J.K..#,.H(I).H9..(J...18
0).D2..#6..I..#@.. 1690.4#J.D.(H(1).H(39
)).2.<#T.J.0.P#^.K.180.(X2.X1.1)._#H.H9.
H(39).D.S#R.. I.X1.1 . X2.1.}#|.J.J.K..#
..H(I).H9..(J...180).D..#... I..#...".";
..#..W..(100.(.(1)..5)).N#...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);.F$... Z.1 . H(X):.".";:.Z.S
$... X:.".".]$...".";..$...J(B$,1,22.H(1
));:. L(1).1 . . 1810..$...J(A$,1,L(1).1
);..$..."^";..$...".";.E$&..J(B$,1,22.H(
39));.Z$0..J(A$,1,L(2).1);..$:.."^";..%?
..H(UD$,23)"....PLAYER 1................
...PLAYER 2.".'%D..".";.8%N..J(B$,1,24);
.H%X.." ";.P%B.K.1.C%L..W..0 . . 1
930..%V...W;" MPH WIND <----- ";..%...
1950..%...W;" MPH WIND ------> ";..%...
".";.S%...".";:N.3.N:. N.1 . . 2010..&..
.H(UD$,23)"... PLAYER 1 ................
*PLAYER 2*".7&...".";H(A$,23);"ANGLE (1-
90) . ..";:UL.2.U&..US$."0123456789H":.3
5:E.E(UR$):. E.90 . ."... ..";:. 1970..&
...".";:.E.0 . . 1965.P&...H(B$,1);H(A$,
23);".POWDER(1-15) ....";:UL.2:US$."01
23456789..'F.US$.US$."H":.35:V.E(UR$):.
V.15 . V..0 . . 1975..'P.. 2040.V'Z..".
";
" ";..'..."
";.Y'...H(UD$,23)"..*PLAY
ER 1*................ PLAYER 2 .".$(..."
";".ANGLE (1-90) . ..";:UL.2.](..US$."01
23456789H":.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.T(..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.8)H.V1..(E...180).V.O)R.V2..(E...18
0).V..7.`)\.T.T..5:M.M.1.Y)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.A)..Y..(Y..5
).R)..Z.23.Y:.".";..)..A(M).Z:B(M).X:. X
.39 . X.1 . . 2530..*...Y.H(X)..0 . . 25
20.%*... Z.0 . . 2290.8*... Z.0 . . 2260
.F*J..H(B$,Z);.Y*T.. X.1 . . 2280.I*...H
(A$,X.1);.R*..."Q".|*...".";..*... M.4.1
. . 2140..*... A(M.4).0 . . 2340.M*...
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.
G+V.. B(M).1 . B(M).39 . . 1950..+`.. LI
NES 2410 AND 2440 DETERMINE HIT. CHANGE
'1.5' TO CHANGE DIFFICULTY...+J.. .(B(M.
1).L(N)).1.5 . . 2430..+T.. 2440.S+~.. T
.1 . . 2710..+... .(B(M.1).L(3.N)).1.5 .
. 2790..,... T.1 . . 2140..,... 2650..,
..."..".J,..."..... ANOTHER GAME ?
(Y/N) ..";.A,..UL.1:US$."YNH":.35.V,D..
UR$."Y" . 1000.,N..300..,X..".";..,...
J.4 . 1 . .1..,... M.J..0 . . 2620.J,...
A(M.J).0 . . 2580..,... A(M.J).0 . B(M.
J)..0 . . 2620..-... H(B$,A(M.J));..-...
B(M.J).1 . . 2600./-...H(A$,B(M.J).1);.
9-(.." ";.C-2..".";.Z-<.. J:. M.1 . . 28
30.Z-F.. B(M).1 . B(M).39 . . 2840..-P..
2380..-Z.. B(M.1).1 . . 2670..-D..H(A$,
B(M.1).1);.K-N..H(B$,23.H(B(M.1)));..-X.
. Z.1 . 3: ."..MWN....M!N";:. X.1 . 5:.X
.+....".... .... ....";:. X.1 . 5:.
X:. Z:.".";.6.... 2830.@....".";.S. ..H(
A$,L(N).1);.J....H(B$,24.H(L(N)));......
Z.1 .10:."....Q.......M.!...N......MM!N
N....";".";.I...." .... ...... .
.......";...H.. X.1 . 2:. X:. Z...R..X.1
.50:. X...... 2470../...".";../...H(A$,
L(3.N).1);.5/...H(B$,24.H(L(3.N).1));.@/
... 2740.F/....^/..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);"C
REATIVE COMPUTING".V0H.. .13);"P.O. BOX
789-M".0R.. .6);"MORRISTOWN, NEW JERSEY
07960"..0S.."...........NOTE:PRESS < RE
TURN > AFTER."..0T.."......EACH RESPONSE
FROM THE KEYBOARD."..0V..B1.1.10.!1X..H
(UD$,21);".......NOTE:PRESS .< RETURN >.
AFTER .".61Y..B2.1.300:.:B2.0.L1Z..H(UD
$,21);".......NOTE:PRESS < RETURN > AFTE
R ."..1{..B2.1.300:.:B2.0..1|....1... B1
.1.2000:. B1..1..B1.0..1......
> CLICK IMAGE PREVIEW FOR FULL MODAL