ARTILLERY
FILE INFORMATION
FILENAME(S): ARTILLERY
FILE TYPE(S): PRG
FILE SIZE: 10.6K
FIRST SEEN: 2025-12-02 02:02:35
APPEARS ON: 1 disk(s)
FILE HASH
4f4b934620642a5e9d819fde2c174b39e8e753d7021241689d5c3e8d7e2dfca1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MD1D | ARTILLERY | PRG | Paladin | 17 | 0 | 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 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 1B 0A 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000200: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000210: 45 4C 50 20 52 4F 55 54 49 4E 45 00 2A 0A 5F 00 |ELP ROUTINE.*._.|
00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 0A 64 00 55 |.UF.1..240.7.d.U|
00000230: 46 B2 30 3A 99 3A 8E 00 50 0A 66 00 8F 20 2B 2B |F.0:.:..P.f.. ++|
00000240: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
00000250: 00 61 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5|
00000260: 30 00 79 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0.y.n.UR$..(UR$,|
00000270: C3 28 55 52 24 29 AB 31 29 00 8B 0A 73 00 99 22 |.(UR$).1)...s.."|
00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 0A 78 00 |. ..";:.50...x.|
00000290: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
000002A0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
000002B0: 2B 2B 00 C4 0A 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0|
000002C0: A7 31 35 30 00 D5 0A 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..|
000002D0: 28 55 53 24 29 00 EC 0A 87 00 8B 55 49 24 B2 CA |(US$)......UI$..|
000002E0: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F2 0A 8C |(US$,US,1)......|
000002F0: 00 82 00 FF 0A 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000300: 1A 0B 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000310: 44 20 49 4E 50 55 54 20 2A 2A 00 2B 0B 98 00 8B |D INPUT **.+....|
00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 0B 9B 00 |.(UI$).46...<...|
00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 0B A0 |.UI$..(32)...Y..|
00000340: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
00000350: 24 29 B1 35 37 A7 31 37 30 00 5F 0B A5 00 8E 00 |$).57.170._.....|
00000360: 7C 0B AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 ||.....(UI$).65..|
00000370: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 82 0B AF |(UI$).90.180....|
00000380: 00 8E 00 A6 0B B4 00 8B C6 28 55 49 24 29 B3 31 |.........(UI$).1|
00000390: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
000003A0: 24 B2 22 22 3A 8E 00 C9 0B B9 00 8B C2 28 55 54 |$."":........(UT|
000003B0: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
000003C0: 24 29 AB 31 32 38 29 3A 8E 00 CF 0B BB 00 8E 00 |$).128):........|
000003D0: DC 0B BE 00 55 49 24 B2 22 22 3A 8E 00 01 0C C3 |....UI$."":.....|
000003E0: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
000003F0: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000400: 2B 00 0A 0C C5 00 8D 32 35 30 00 13 0C C8 00 8D |+......250......|
00000410: 32 34 35 00 27 0C CD 00 81 55 51 B2 55 42 A4 28 |245.'....UQ.UB.(|
00000420: 55 42 AA 39 38 37 29 00 43 0C D2 00 55 51 25 28 |UB.987).C...UQ%(|
00000430: 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 |UQ.UB)..(UQ):.:.|
00000440: 22 93 22 00 56 0C D7 00 55 5A B2 31 3A 55 56 25 |".".V...UZ.1:UV%|
00000450: B2 C2 28 55 54 29 00 5F 0C D8 00 89 33 30 30 00 |..(UT)._....300.|
00000460: A2 0C D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 |....UZ.0:US$.UJ$|
00000470: 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 |:UG$.UK$:UP.UJ:U|
00000480: 4C B2 55 4B 3A 8B C2 28 35 30 30 30 33 29 B2 30 |L.UK:..(50003).0|
00000490: A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 |..53281,6:.53280|
000004A0: 2C 36 00 DE 0C DC 00 55 54 24 B2 55 4C 24 3A 97 |,6.....UT$.UL$:.|
000004B0: 35 33 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 |53281,1:.".";:.5|
000004C0: 33 32 38 31 2C 36 3A 97 55 54 2C 55 56 25 3A 81 |3281,6:.UT,UV%:.|
000004D0: 55 51 B2 55 42 A4 28 55 42 AA 39 38 37 29 00 F3 |UQ.UB.(UB.987)..|
000004E0: 0C E1 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 |....UQ,UQ%(UQ.UB|
000004F0: 29 3A 82 00 FF 0C E6 00 97 55 31 2C 55 31 25 00 |):.......U1,U1%.|
00000500: 0B 0D E8 00 97 55 32 2C 55 32 25 00 17 0D E9 00 |.....U2,U2%.....|
00000510: 97 55 34 2C 55 34 25 00 25 0D EA 00 97 55 33 2C |.U4,U4%.%....U3,|
00000520: 55 33 25 AB 31 00 2D 0D EB 00 89 33 35 00 5F 0D |U3%.1.-....35._.|
00000530: F0 00 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA |..UD%.((U2%.256.|
00000540: 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A |U1%.U3%).UB).40:|
00000550: 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 |..(UD$,UD%.1):..|
00000560: 86 0D F5 00 99 C8 28 55 44 24 2C 32 34 29 3B A3 |......(UD$,24);.|
00000570: 36 38 29 3B 22 12 48 45 4C 50 20 43 4F 4D 49 4E |68);".HELP COMIN|
00000580: 47 92 22 3B 3A 8E 00 B2 0D FA 00 55 31 25 B2 C2 |G.";:......U1%..|
00000590: 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 |(U1):U2%..(U2):U|
000005A0: 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 |3%..(U3):U4%..(U|
000005B0: 34 29 00 DA 0D FB 00 55 4A 24 B2 55 53 24 3A 55 |4).....UJ$.US$:U|
000005C0: 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 |K$.UG$:UL$.UT$:U|
000005D0: 4A B2 55 50 3A 55 4B B2 55 4C 00 E0 0D FF 00 8E |J.UP:UK.UL......|
000005E0: 00 F1 0D 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A |...,.. ** MENU *|
000005F0: 2A 00 F7 0D 2D 01 3A 00 26 0E 2E 01 99 22 93 22 |*...-.:.&...."."|
00000600: 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 |:.UT,UU%:..(5000|
00000610: 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 |3).0..53281,9:.5|
00000620: 33 32 38 30 2C 38 00 2C 0E 2F 01 3A 00 49 0E 31 |3280,8.,./.:.I.1|
00000630: 01 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00000640: 20 20 20 20 4D 45 4E 55 22 00 78 0E 36 01 99 22 | MENU".x.6.."|
00000650: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000670: 2D 2D 2D 2D 2D 2D 2D 22 00 9C 0E 3B 01 99 22 11 |-------"...;..".|
00000680: 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 |. 1. BEG|
00000690: 49 4E 20 41 52 54 49 4C 4C 45 52 59 00 C6 0E 40 |IN ARTILLERY...@|
000006A0: 01 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 |..".. 2. |
000006B0: 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 | STUDENT INSTRUC|
000006C0: 54 49 4F 4E 53 22 00 F0 0E 45 01 99 22 11 11 20 |TIONS"...E..".. |
000006D0: 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 | 3. TEACH|
000006E0: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 |ER INSTRUCTIONS"|
000006F0: 00 0C 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 |...O..".. |
00000700: 34 2E 20 20 20 51 55 49 54 11 11 22 00 3B 0F 54 |4. QUIT..".;.T|
00000710: 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
00000720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 66 0F 59 01 |----------".f.Y.|
00000740: 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 |.".. PRESS|
00000750: 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 | A NUMBER KEY (1|
00000760: 2D 34 29 20 22 3B 00 8E 0F 5E 01 55 4C B2 31 3A |-4) ";...^.UL.1:|
00000770: 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F |US$."1234":.35:.|
00000780: 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 99 | INPUT ROUTINE..|
00000790: 0F 60 01 55 53 24 B2 22 22 00 B6 0F 63 01 91 C5 |.`.US$.""...c...|
000007A0: 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 |(UR$).1000,400,5|
000007B0: 30 30 2C 33 39 36 00 BF 0F 68 01 89 33 30 30 00 |00,396...h..300.|
000007C0: E6 0F 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 |..... ** RE-ENAB|
000007D0: 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 |LE STOP KEY AND |
000007E0: 45 4E 44 20 2A 2A 00 15 10 8C 01 8B C2 28 35 30 |END **.......(50|
000007F0: 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 |003)..1..(50003)|
00000800: B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 |..160..(50003)..|
00000810: 30 A7 33 39 39 00 3F 10 8D 01 9E 55 55 AA 37 31 |0.399.?....UU.71|
00000820: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000830: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
00000840: 50 10 8E 01 99 22 9A 93 22 3A 89 36 30 35 30 30 |P...."..":.60500|
00000850: 00 5B 10 8F 01 8D 38 37 35 3A 8E 00 7C 10 90 01 |.[....875:..|...|
00000860: 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 |. ** STUDENT INS|
00000870: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 AB 10 95 |TRUCTIONS **....|
00000880: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
00000890: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
000008A0: 2C 30 3A 97 35 33 32 38 30 2C 30 00 CC 10 9A 01 |,0:.53280,0.....|
000008B0: 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E |UP.0:UG$.".TUDEN|
000008C0: 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 FF 10 9C |T .NST":.850....|
000008D0: 01 99 22 11 11 20 D4 48 49 53 20 49 53 20 41 20 |..".. .HIS IS A |
000008E0: 47 41 4D 45 20 49 4E 20 57 48 49 43 48 20 32 20 |GAME IN WHICH 2 |
000008F0: 50 4C 41 59 45 52 53 20 53 48 4F 4F 54 22 3B 00 |PLAYERS SHOOT";.|
00000900: 29 11 9D 01 99 22 11 20 41 54 20 45 41 43 48 20 |)....". AT EACH |
00000910: 4F 54 48 45 52 20 41 43 52 4F 53 53 20 41 20 4D |OTHER ACROSS A M|
00000920: 4F 55 4E 54 41 49 4E 2E 22 00 57 11 9E 01 99 22 |OUNTAIN.".W...."|
00000930: 11 20 C1 54 20 45 41 43 48 20 54 55 52 4E 2C 20 |. .T EACH TURN, |
00000940: 54 48 45 20 50 4C 41 59 45 52 20 45 4E 54 45 52 |THE PLAYER ENTER|
00000950: 53 20 54 48 45 20 22 00 93 11 9F 01 99 22 11 20 |S THE "......". |
00000960: 41 4E 47 4C 45 20 54 4F 20 46 49 52 45 20 28 31 |ANGLE TO FIRE (1|
00000970: 2D 39 30 29 20 41 4E 44 20 54 48 45 A0 4E 55 4D |-90) AND THE.NUM|
00000980: 42 45 52 20 4F 46 20 20 11 42 41 47 53 20 4F 46 |BER OF .BAGS OF|
00000990: 20 22 3B 00 B1 11 A0 01 99 22 20 50 4F 57 44 45 | ";......" POWDE|
000009A0: 52 20 28 31 20 54 4F 20 31 35 20 C2 C1 C7 D3 29 |R (1 TO 15 ....)|
000009B0: 2E 00 BF 11 A2 01 99 22 11 20 CE CF D4 C5 3A 00 |.......". ....:.|
000009C0: EB 11 DB 01 99 22 11 20 C9 46 20 59 4F 55 20 57 |.....". .F YOU W|
000009D0: 49 53 48 20 C8 C5 CC D0 20 50 52 45 53 53 20 27 |ISH .... PRESS '|
000009E0: 48 27 20 D2 C5 D4 D5 D2 CE 2E 22 00 F4 11 E5 01 |H' .......".....|
000009F0: 8D 38 33 35 00 08 12 EA 01 8B 55 5A B2 31 A7 9E |.835......UZ.1..|
00000A00: 55 50 25 3A 89 32 31 37 00 0E 12 F3 01 8E 00 2F |UP%:.217......./|
00000A10: 12 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 |.... ** TEACHER |
00000A20: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 |INSTRUCTIONS **.|
00000A30: 5F 12 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 |_....".":.UT,UL%|
00000A40: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000A50: 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 |281,2:.53280,10.|
00000A60: 80 12 F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 |....UP.0:UG$.".E|
00000A70: 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 |ACHER .NST":.850|
00000A80: 00 AE 12 F7 01 99 22 11 11 20 20 20 20 20 20 D4 |......".. .|
00000A90: 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 |O THE BEST OF OU|
00000AA0: 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 D7 |R KNOWLEDGE,."..|
00000AB0: 12 F8 01 99 22 20 20 20 54 48 49 53 20 50 52 4F |...." THIS PRO|
00000AC0: 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 |GRAM IS IN THE P|
00000AD0: 55 42 4C 49 43 11 22 00 03 13 F9 01 99 22 20 20 |UBLIC."......" |
00000AE0: 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 | DOMAIN. .F THI|
00000AF0: 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 |S IS NOT THE CAS|
00000B00: 45 11 22 00 20 13 FA 01 99 22 20 20 20 50 4C 45 |E.". ...." PLE|
00000B10: 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 |ASE CONTACT:..."|
00000B20: 00 4A 13 FB 01 99 22 20 20 20 20 20 20 C3 4F 4D |.J...." .OM|
00000B30: 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 |MODORE .USINESS |
00000B40: CD 41 43 48 49 4E 45 53 11 22 00 6D 13 FC 01 99 |.ACHINES.".m....|
00000B50: 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 20 |" 3370 |
00000B60: D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 91 13 |.HARMACY .VE....|
00000B70: FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 |..." .G|
00000B80: 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F |INCOURT, .NTARIO|
00000B90: 22 00 B3 13 FE 01 99 22 20 20 20 20 20 20 20 20 |"......" |
00000BA0: 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 | .ANADA .1. 2|
00000BB0: CB 34 22 00 D3 13 FF 01 99 22 20 20 20 20 20 20 |.4"......" |
00000BC0: 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 | (416) 499-42|
00000BD0: 39 32 22 00 E9 13 00 02 55 50 B2 31 3A 8D 20 38 |92".....UP.1:. 8|
00000BE0: 33 35 3A 8D 20 38 35 30 3A 00 13 14 01 02 99 22 |35:. 850:......"|
00000BF0: 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE | ...ROGRAM .|
00000C00: 41 4D 45 3A 20 C1 52 54 49 4C 4C 45 52 59 20 20 |AME: .RTILLERY |
00000C10: 20 20 11 00 35 14 02 02 99 22 20 20 20 20 20 D7 | ..5...." .|
00000C20: 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D5 4E 4B |RITTEN .Y : .NK|
00000C30: 4E 4F 57 4E 11 00 59 14 03 02 99 22 20 20 20 20 |NOWN..Y...." |
00000C40: 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 20 | .PGRADED .Y : |
00000C50: 20 20 20 20 20 20 20 20 11 00 84 14 04 02 99 22 | ......."|
00000C60: 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 | ..HIS PROGR|
00000C70: 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 |AM WILL RUN ON A|
00000C80: 4E 59 11 11 00 AB 14 05 02 99 22 20 20 20 20 20 |NY........" |
00000C90: 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 | ......2.0 ..|
00000CA0: D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 D2 14 06 02 |. ..............|
00000CB0: 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 |." .....|
00000CC0: 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 | 4.0 ...........|
00000CD0: D2 11 00 F4 14 07 02 99 22 20 20 20 20 20 20 20 |........" |
00000CE0: 20 20 38 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 | 8032 ... .....|
00000CF0: D4 C5 D2 11 00 19 15 08 02 99 22 20 20 20 20 20 |.........." |
00000D00: 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 | ......... 64|
00000D10: 20 C3 CF CD D0 D5 D4 C5 D2 00 22 15 09 02 8D 38 | ........."....8|
00000D20: 33 35 00 36 15 4E 02 8B 55 5A B2 31 A7 9E 55 50 |35.6.N..UZ.1..UP|
00000D30: 25 3A 89 32 31 37 00 3C 15 57 02 8E 00 62 15 58 |%:.217.<.W...b.X|
00000D40: 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F |.. ** PROGRAM MO|
00000D50: 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 |DIFICATION INST |
00000D60: 2A 2A 00 73 15 59 02 99 22 93 22 3A 97 55 54 2C |**.s.Y..".":.UT,|
00000D70: 55 4C 25 00 93 15 5D 02 55 50 B2 30 3A 55 47 24 |UL%...].UP.0:UG$|
00000D80: B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D |.".ROGRAM .OD":.|
00000D90: 38 35 30 00 9C 15 94 02 8D 38 33 35 00 B0 15 B2 |850......835....|
00000DA0: 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217|
00000DB0: 00 B6 15 BB 02 8E 00 DB 15 BC 02 8F 20 2A 2A 20 |............ ** |
00000DC0: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD|
00000DD0: 20 43 42 4D 34 30 33 32 20 2A 2A 00 11 16 C6 02 | CBM4032 **.....|
00000DE0: 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 |.".....BEFORE RU|
00000DF0: 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 |NNING THIS PROGR|
00000E00: 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 |AM ON AN 8032 .|
00000E10: 11 00 47 16 D0 02 99 22 20 20 20 20 20 20 4C 4F |..G...." LO|
00000E20: 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 |AD THE 'CBM 4032|
00000E30: 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 |' PROGRAM.......|
00000E40: 11 11 11 11 11 11 22 00 52 16 DA 02 9E 55 55 AA |......".R....UU.|
00000E50: 37 31 00 58 16 E4 02 80 00 78 16 20 03 8F 20 2A |71.X.....x. .. *|
00000E60: 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 |* T I T L E P |
00000E70: 41 20 47 20 45 20 2A 2A 00 AC 16 22 03 99 22 93 |A G E **..."..".|
00000E80: 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 |...";:.UT,UU%:..|
00000E90: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 |(50003).0..53280|
00000EA0: 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 C2 16 24 |,14:.53281,6...$|
00000EB0: 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B |..I.1.38:."...";|
00000EC0: 3A 82 00 DA 16 26 03 81 49 B2 31 A4 32 32 3A 99 |:....&..I.1.22:.|
00000ED0: 22 11 9D 12 A6 92 22 3B 3A 82 00 F2 16 28 03 81 |".....";:....(..|
00000EE0: 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B |I.1.37:.".....";|
00000EF0: 3A 82 00 0A 17 2A 03 81 49 B2 31 A4 32 32 3A 99 |:....*..I.1.22:.|
00000F00: 22 91 9D 12 A6 92 22 3B 3A 82 00 2F 17 2C 03 99 |".....";:../.,..|
00000F10: 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000F20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 |............ ..|
00000F30: 51 17 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |Q...."..........|
00000F40: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 |......... . . .|
00000F50: A9 00 72 17 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..r.0.."........|
00000F60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .|
00000F70: A3 DF 00 90 17 32 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....2..".......|
00000F80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 |............. .|
00000F90: 00 B8 17 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |...4..".........|
00000FA0: 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 |.....C O M M O D|
00000FB0: 20 4F 20 52 20 45 11 11 00 DB 17 36 03 99 22 1D | O R E.....6..".|
00000FC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 |..............ED|
00000FD0: 55 43 41 54 49 4F 4E 41 4C 11 11 00 FA 17 38 03 |UCATIONAL.....8.|
00000FE0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000FF0: 1D 1D 53 4F 46 54 57 41 52 45 00 15 18 3A 03 8F |..SOFTWARE...:..|
00001000: 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F | ** COMMODORE LO|
00001010: 47 4F 20 2A 2A 00 4D 18 3B 03 99 C8 28 55 44 24 |GO **.M.;...(UD$|
00001020: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |,24);"..........|
00001030: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
00001040: 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 6F 18 |OR WAIT.":I.0.o.|
00001050: 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 |<..A$:.A$.." ".I|
00001060: B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 |.I.1:.I.250.828.|
00001070: 93 18 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 |..>.T1$."":T2$."|
00001080: 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A |":T3$."":T4$."":|
00001090: 49 B2 30 00 9C 18 40 03 89 33 30 30 00 B8 18 43 |I.0...@..300...C|
000010A0: 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 |.. ** SPACE BAR |
000010B0: 50 52 45 53 53 20 2A 2A 00 F3 18 48 03 97 55 4F |PRESS **...H..UO|
000010C0: 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |,0:..(UD$,24);".|
000010D0: 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 |......PRESS SPAC|
000010E0: 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 |E BAR TO CONTINU|
000010F0: 45 92 22 00 0A 19 4C 03 A1 55 49 24 3A 8B 55 49 |E."...L..UI$:.UI|
00001100: 24 B3 B1 22 20 22 A7 38 34 34 00 10 19 4E 03 8E |$.." ".844...N..|
00001110: 00 30 19 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 |.0.R.. ** PAGE D|
00001120: 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A |ESIGN ROUTINE **|
00001130: 00 3C 19 54 03 55 50 B2 55 50 AA 31 00 66 19 57 |.<.T.UP.UP.1.f.W|
00001140: 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 |..".".(UT$.UP$,2|
00001150: 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 |1);.(UP$.UG$..(U|
00001160: 50 29 2C 31 38 29 00 95 19 5C 03 99 22 20 2D 2D |P),18)...\.." --|
00001170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001190: 2D 2D 2D 2D 22 00 A4 19 60 03 8B 55 48 B3 B1 30 |----"...`..UH..0|
000011A0: A7 38 37 30 00 D8 19 61 03 99 C8 28 55 44 24 2C |.870...a...(UD$,|
000011B0: 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 |24);.(UP$,7);"HE|
000011C0: 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C |LP - PRESS H <|
000011D0: 52 45 54 55 52 4E 3E 22 00 E9 19 66 03 55 48 B2 |RETURN>"...f.UH.|
000011E0: 30 3A 99 22 13 11 22 3A 8E 00 08 1A 6B 03 8F 20 |0:."..":....k.. |
000011F0: 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 |** PLEASE WAIT R|
00001200: 45 4D 41 52 4B 20 2A 2A 00 3E 1A 70 03 99 C8 28 |EMARK **.>.p...(|
00001210: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" |
00001220: 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 | ONE MOMENT P|
00001230: 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 44 |LEASE... ".D|
00001240: 1A 75 03 8E 00 61 1A 84 03 8F 20 2A 2A 20 53 45 |.u...a.... ** SE|
00001250: 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A |T UP VARIABLES *|
00001260: 2A 00 AC 1A 85 03 55 58 24 B2 22 48 22 3A 86 55 |*.....UX$."H":.U|
00001270: 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 |Q%(1000):UB.3276|
00001280: 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A |8:U1.196:U2.197:|
00001290: 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 |U3.198:U4.216:UC|
000012A0: B2 31 36 37 3A 55 55 B2 31 30 32 34 00 EA 1A 86 |.167:UU.1024....|
000012B0: 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 |.UT.59468:UU%.12|
000012C0: 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 |:UL%.14:UP%.1146|
000012D0: 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 |:UM.32768:UO.158|
000012E0: 3A 97 20 35 30 30 30 33 2C 30 00 2D 1B 87 03 8B |:. 50003,0.-....|
000012F0: C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 |.(50003).0.UB.10|
00001300: 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 |24:U1.209:U2.210|
00001310: 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 |:U3.211:U4.214:U|
00001320: 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 6C 1B |C.204:UU.2048.l.|
00001330: 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 |....(50003).0.UT|
00001340: B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C |.53272:UU%.21:UL|
00001350: 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D |%.23:UP%.2139:UM|
00001360: B2 31 30 32 34 3A 55 4F B2 31 39 38 00 90 1B 89 |.1024:UO.198....|
00001370: 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.UD$."..........|
00001380: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00001390: 00 C2 1B 8A 03 55 50 24 B2 22 20 20 20 20 20 20 |.....UP$." |
000013A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013C0: 20 22 00 0F 1C 8B 03 55 54 24 B2 22 20 C1 52 54 | ".....UT$." .RT|
000013D0: 49 4C 4C 45 52 59 20 20 20 A0 A0 A0 A0 A0 22 3A |ILLERY .....":|
000013E0: 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 |. PLACE PROGRAM |
000013F0: 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 |TITLE HERE !!!!!|
00001400: 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 |!!!!!!!!!!!!***.|
00001410: 45 1C 8C 03 86 41 28 31 30 30 29 2C 42 28 31 30 |E....A(100),B(10|
00001420: 30 29 2C 48 28 33 39 29 2C 41 31 28 32 29 2C 42 |0),H(39),A1(2),B|
00001430: 31 28 32 29 2C 41 32 28 32 29 2C 42 32 28 32 29 |1(2),A2(2),B2(2)|
00001440: 2C 4C 28 32 29 00 4B 1C 8D 03 8E 00 65 1C 8E 03 |,L(2).K.....e...|
00001450: 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C |. ** SET VARIABL|
00001460: 45 53 20 2A 2A 00 6E 1C 93 03 8D 39 30 30 00 89 |ES **.n....900..|
00001470: 1C 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F |.... ** CHECK FO|
00001480: 52 20 38 30 33 32 20 2A 2A 00 A7 1C 9D 03 99 22 |R 8032 **......"|
00001490: 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 |.":.".":. SHIFTE|
000014A0: 44 20 53 50 41 43 45 00 BE 1C A2 03 8B C2 28 55 |D SPACE.......(U|
000014B0: 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 D7 |B.40)..96..700..|
000014C0: 1C A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 |.... ** MEMORY C|
000014D0: 48 45 43 4B 20 2A 2A 00 EB 1C A4 03 8B 20 B8 28 |HECK **...... .(|
000014E0: 30 29 B1 32 30 30 30 A7 39 33 37 00 19 1D A5 03 |0).2000.937.....|
000014F0: 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 |."....THIS MACHI|
00001500: 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 |NE DOES NOT HAVE|
00001510: 20 45 4E 4F 55 47 48 11 22 00 3D 1D A6 03 99 22 | ENOUGH.".=...."|
00001520: 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 |MEMORY TO RUN TH|
00001530: 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 48 1D |IS PROGRAM !".H.|
00001540: A7 03 9E 55 55 AA 37 31 00 4E 1D A8 03 80 00 68 |...UU.71.N.....h|
00001550: 1D A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 |...."..":..(5000|
00001560: 33 29 B2 30 A7 39 36 32 00 97 1D AC 03 8F 20 2A |3).0.962...... *|
00001570: 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 |* BASIC 2.0 OR |
00001580: 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 | 4.0 OR C-64 S|
00001590: 45 54 55 50 20 2A 2A 00 D5 1D AD 03 97 31 30 37 |ETUP **......107|
000015A0: 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A |5,133:.1076,144:|
000015B0: 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C |.1077,234:.1079,|
000015C0: 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 |4:.1080,133:.108|
000015D0: 31 2C 31 34 35 00 0B 1E AE 03 97 31 30 39 31 2C |1,145......1091,|
000015E0: 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 |155:.1098,133:.1|
000015F0: 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 |099,144:.1100,23|
00001600: 34 3A 97 31 31 30 33 2C 31 33 33 00 2D 1E AF 03 |4:.1103,133.-...|
00001610: 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C |.1104,145:.1105,|
00001620: 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 44 1E |234:.1082,234.D.|
00001630: B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |....(50003)..160|
00001640: A7 39 35 35 00 73 1E B6 03 97 31 30 39 33 2C 38 |.955.s....1093,8|
00001650: 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 |8:.1094,228:.109|
00001660: 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 |7,85:.1102,228:.|
00001670: 39 36 35 00 88 1E BB 03 8B C2 28 35 30 30 30 33 |965.......(50003|
00001680: 29 B3 B1 31 A7 39 39 30 00 B7 1E C0 03 97 31 30 |)..1.990......10|
00001690: 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A |93,49:.1094,230:|
000016A0: 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 |.1097,46:.1102,2|
000016B0: 33 30 3A 89 39 36 35 00 F1 1E C2 03 97 32 30 39 |30:.965......209|
000016C0: 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 |9,141:.2100,20:.|
000016D0: 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 |2101,3:.2103,8:.|
000016E0: 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 |2104,141:.2105,2|
000016F0: 31 00 2D 1F C3 03 97 32 31 30 36 2C 33 3A 97 32 |1.-....2106,3:.2|
00001700: 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 |115,145:.2117,52|
00001710: 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 |:.2118,234:.2121|
00001720: 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 67 1F |,49:.2122,141.g.|
00001730: C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 |...2123,20:.2124|
00001740: 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 |,3:.2126,234:.21|
00001750: 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A |27,141:.2128,21:|
00001760: 97 32 31 32 39 2C 33 00 85 1F C5 03 9E 55 55 AA |.2129,3......UU.|
00001770: 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F |48:. DISABLE STO|
00001780: 50 20 4B 45 59 00 96 1F CA 03 8D 38 30 30 3A 8F |P KEY......800:.|
00001790: 20 54 49 54 4C 45 00 A6 1F D4 03 89 33 30 30 3A | TITLE......300:|
000017A0: 8F 20 4D 45 4E 55 00 D7 1F DE 03 99 22 93 54 48 |. MENU......".TH|
000017B0: 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 |E PGM WILL NOT W|
000017C0: 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 |ORK ON THIS MACH|
000017D0: 49 4E 45 21 22 3A 80 00 0C 20 E8 03 8B 55 5A B2 |INE!":... ...UZ.|
000017E0: 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 |1..UP%:.UP%:UZ.0|
000017F0: 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 |:. ** PROGRAM ST|
00001800: 41 52 54 53 20 48 45 52 45 20 2A 2A 00 37 20 E9 |ARTS HERE **.7 .|
00001810: 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 |.."..";:.:..(500|
00001820: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
00001830: 35 33 32 38 30 2C 36 00 43 20 6F 04 97 55 54 2C |53280,6.C o..UT,|
00001840: 55 4C 25 00 54 20 74 04 8F 20 47 4F 53 55 42 20 |UL%.T t.. GOSUB |
00001850: 32 38 39 30 00 5F 20 78 04 9C 3A 8D 39 30 30 00 |2890._ x..:.900.|
00001860: 85 20 F6 04 99 22 93 22 3A 97 20 55 54 2C 55 55 |. ...".":. UT,UU|
00001870: 25 3A 8F 20 52 45 53 45 54 20 54 4F 20 47 52 41 |%:. RESET TO GRA|
00001880: 50 48 49 43 53 00 A9 20 00 05 5A 24 B2 22 12 20 |PHICS.. ..Z$.". |
00001890: 91 9D 22 3A 81 20 58 B2 31 20 A4 20 35 3A 5A 24 |..":. X.1 . 5:Z$|
000018A0: B2 5A 24 AA 5A 24 3A 82 58 00 E7 20 0A 05 41 24 |.Z$.Z$:.X.. ..A$|
000018B0: B2 22 1D 22 3A 81 20 58 B2 31 20 A4 20 36 3A 41 |.".":. X.1 . 6:A|
000018C0: 24 B2 41 24 AA 41 24 3A 82 58 3A 42 24 B2 22 11 |$.A$.A$:.X:B$.".|
000018D0: 22 3A 81 20 58 B2 31 20 A4 20 35 3A 42 24 B2 42 |":. X.1 . 5:B$.B|
000018E0: 24 AA 42 24 3A 82 58 00 EF 20 14 05 4E B2 32 00 |$.B$:.X.. ..N.2.|
000018F0: 0A 21 1E 05 8F 20 20 20 43 4F 4E 53 54 52 55 43 |.!... CONSTRUC|
00001900: 54 20 4D 4F 55 4E 54 41 49 4E 00 34 21 23 05 99 |T MOUNTAIN.4!#..|
00001910: 22 93 22 3B C8 28 55 44 24 2C 32 33 29 3B 22 42 |".";.(UD$,23);"B|
00001920: 55 49 4C 44 49 4E 47 20 4D 4F 55 4E 54 41 49 4E |UILDING MOUNTAIN|
00001930: 2E 2E 2E 22 00 47 21 28 05 58 31 B2 B5 28 36 AA |...".G!(.X1..(6.|
00001940: BB 28 31 29 AC 38 29 00 5B 21 32 05 58 32 B2 B5 |.(1).8).[!2.X2..|
00001950: 28 32 35 AA BB 28 31 29 AC 38 29 00 75 21 3C 05 |(25..(1).8).u!<.|
00001960: 4C 28 31 29 B2 B5 28 33 AA 28 58 31 AB 33 29 AC |L(1)..(3.(X1.3).|
00001970: BB 28 31 29 29 00 93 21 46 05 4C 28 32 29 B2 B5 |.(1))..!F.L(2)..|
00001980: 28 58 32 AA 31 AA 28 33 36 AB 58 32 29 AC BB 28 |(X2.1.(36.X2)..(|
00001990: 31 29 29 00 A4 21 50 05 48 39 B2 BB 28 31 29 AC |1))..!P.H9..(1).|
000019A0: 31 31 AA 31 00 BE 21 5A 05 81 20 49 B2 31 20 A4 |11.1..!Z.. I.1 .|
000019B0: 20 58 31 3A 48 28 49 29 B2 48 39 3A 82 49 00 CF | X1:H(I).H9:.I..|
000019C0: 21 64 05 48 39 B2 BB 28 31 29 AC 31 31 AA 31 00 |!d.H9..(1).11.1.|
000019D0: EA 21 6E 05 81 20 49 B2 58 32 20 A4 20 33 39 3A |.!n.. I.X2 . 39:|
000019E0: 48 28 49 29 B2 48 39 3A 82 49 00 09 22 78 05 8B |H(I).H9:.I.."x..|
000019F0: 20 B6 28 48 28 31 29 AB 48 28 33 39 29 29 B3 34 | .(H(1).H(39)).4|
00001A00: 20 A7 20 89 20 31 33 36 30 00 27 22 82 05 58 33 | . . 1360.'"..X3|
00001A10: B2 58 31 AA B5 28 BB 28 31 29 AC 28 58 32 AB 58 |.X1..(.(1).(X2.X|
00001A20: 31 AB 36 29 29 AA 33 00 3B 22 8C 05 48 28 58 33 |1.6)).3.;"..H(X3|
00001A30: 29 B2 BB 28 31 29 AC 31 31 AA 39 00 51 22 96 05 |)..(1).11.9.Q"..|
00001A40: 44 31 B2 28 48 28 58 33 29 AB 48 28 31 29 29 AD |D1.(H(X3).H(1)).|
00001A50: 32 00 68 22 A0 05 44 32 B2 28 48 28 58 33 29 AB |2.h"..D2.(H(X3).|
00001A60: 48 28 33 39 29 29 AD 32 00 80 22 AA 05 8B 20 44 |H(39)).2.."... D|
00001A70: 31 AC 44 32 B3 B2 30 20 A7 20 89 20 31 36 31 30 |1.D2..0 . . 1610|
00001A80: 00 8B 22 B4 05 4A B2 AB 31 38 30 00 9F 22 BE 05 |.."..J..180.."..|
00001A90: 4B B2 31 38 30 AD 28 58 33 AB 58 31 AA 31 29 00 |K.180.(X3.X1.1).|
00001AA0: AE 22 C8 05 48 39 B2 48 28 31 29 AA 44 31 00 C2 |."..H9.H(1).D1..|
00001AB0: 22 D2 05 81 20 49 B2 58 31 AA 31 20 A4 20 58 33 |"... I.X1.1 . X3|
00001AC0: AB 31 00 CC 22 DC 05 4A B2 4A AA 4B 00 E6 22 E6 |.1.."..J.J.K..".|
00001AD0: 05 48 28 49 29 B2 48 39 AA BE 28 4A AC FF AD 31 |.H(I).H9..(J...1|
00001AE0: 38 30 29 AC 44 31 00 ED 22 F0 05 82 49 00 F5 22 |80).D1.."...I.."|
00001AF0: FA 05 4A B2 30 00 09 23 04 06 4B B2 31 38 30 AD |..J.0..#..K.180.|
00001B00: 28 58 32 AB 58 33 AA 31 29 00 19 23 0E 06 48 39 |(X2.X3.1)..#..H9|
00001B10: B2 48 28 33 39 29 AA 44 32 00 2D 23 18 06 81 20 |.H(39).D2.-#... |
00001B20: 49 B2 58 33 AA 31 20 A4 20 58 32 AB 31 00 37 23 |I.X3.1 . X2.1.7#|
00001B30: 22 06 4A B2 4A AA 4B 00 51 23 2C 06 48 28 49 29 |".J.J.K.Q#,.H(I)|
00001B40: B2 48 39 AA BE 28 4A AC FF AD 31 38 30 29 AC 44 |.H9..(J...180).D|
00001B50: 32 00 58 23 36 06 82 49 00 63 23 40 06 89 20 31 |2.X#6..I.c#@.. 1|
00001B60: 36 39 30 00 78 23 4A 06 44 B2 28 48 28 31 29 AB |690.x#J.D.(H(1).|
00001B70: 48 28 33 39 29 29 AD 32 00 80 23 54 06 4A B2 30 |H(39)).2..#T.J.0|
00001B80: 00 94 23 5E 06 4B B2 31 38 30 AD 28 58 32 AB 58 |..#^.K.180.(X2.X|
00001B90: 31 AA 31 29 00 A3 23 68 06 48 39 B2 48 28 33 39 |1.1)..#h.H9.H(39|
00001BA0: 29 AA 44 00 B7 23 72 06 81 20 49 B2 58 31 AA 31 |).D..#r.. I.X1.1|
00001BB0: 20 A4 20 58 32 AB 31 00 C1 23 7C 06 4A B2 4A AA | . X2.1..#|.J.J.|
00001BC0: 4B 00 DA 23 86 06 48 28 49 29 B2 48 39 AA BE 28 |K..#..H(I).H9..(|
00001BD0: 4A AC FF AD 31 38 30 29 AC 44 00 E2 23 90 06 82 |J...180).D..#...|
00001BE0: 20 49 00 EC 23 9A 06 99 22 13 22 3B 00 03 24 A4 | I..#...".";..$.|
00001BF0: 06 57 B2 B5 28 31 30 30 AC 28 BB 28 31 29 AB 2E |.W..(100.(.(1)..|
00001C00: 35 29 29 00 12 24 AE 06 99 C8 28 42 24 2C 32 32 |5))..$....(B$,22|
00001C10: 29 3B 00 34 24 B8 06 81 20 49 B2 31 20 A4 20 33 |);.4$... I.1 . 3|
00001C20: 39 3A 48 28 49 29 B2 B5 28 48 28 49 29 AA 2E 35 |9:H(I)..(H(I)..5|
00001C30: 29 3A 82 49 00 51 24 C2 06 81 20 58 B2 31 20 A4 |):.I.Q$... X.1 .|
00001C40: 20 33 39 3A 8B 58 B2 31 20 A7 20 89 20 31 37 35 | 39:.X.1 . . 175|
00001C50: 30 00 5B 24 CC 06 99 22 1D 22 3B 00 70 24 D6 06 |0.[$...".";.p$..|
00001C60: 99 CA 28 5A 24 2C 31 2C 48 28 58 29 AC 34 29 3B |..(Z$,1,H(X).4);|
00001C70: 00 8A 24 E0 06 81 20 5A B2 31 20 A4 20 48 28 58 |..$... Z.1 . H(X|
00001C80: 29 3A 99 22 11 22 3B 3A 82 5A 00 97 24 EA 06 82 |):.".";:.Z..$...|
00001C90: 20 58 3A 99 22 92 22 00 A1 24 F4 06 99 22 13 22 | X:."."..$..."."|
00001CA0: 3B 00 C9 24 FE 06 99 CA 28 42 24 2C 31 2C 32 32 |;..$....(B$,1,22|
00001CB0: AB 48 28 31 29 29 3B 3A 8B 20 4C 28 31 29 B2 31 |.H(1));:. L(1).1|
00001CC0: 20 A7 20 89 20 31 38 31 30 00 DE 24 08 07 99 CA | . . 1810..$....|
00001CD0: 28 41 24 2C 31 2C 4C 28 31 29 AB 31 29 3B 00 E8 |(A$,1,L(1).1);..|
00001CE0: 24 12 07 99 22 5E 22 3B 00 F2 24 1C 07 99 22 13 |$..."^";..$...".|
00001CF0: 22 3B 00 09 25 26 07 99 CA 28 42 24 2C 31 2C 32 |";..%&...(B$,1,2|
00001D00: 32 AB 48 28 33 39 29 29 3B 00 1E 25 30 07 99 CA |2.H(39));..%0...|
00001D10: 28 41 24 2C 31 2C 4C 28 32 29 AB 31 29 3B 00 28 |(A$,1,L(2).1);.(|
00001D20: 25 3A 07 99 22 5E 22 3B 00 61 25 3F 07 99 C8 28 |%:.."^";.a%?...(|
00001D30: 55 44 24 2C 32 33 29 22 1D 1D 1D 12 50 4C 41 59 |UD$,23)"....PLAY|
00001D40: 45 52 20 31 92 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |ER 1............|
00001D50: 1D 1D 1D 1D 1D 1D 12 50 4C 41 59 45 52 20 32 92 |.......PLAYER 2.|
00001D60: 22 00 6B 25 44 07 99 22 13 22 3B 00 7C 25 4E 07 |".k%D..".";.|%N.|
00001D70: 99 CA 28 42 24 2C 31 2C 32 34 29 3B 00 8C 25 58 |..(B$,1,24);..%X|
00001D80: 07 99 22 20 20 20 20 20 20 20 22 3B 00 94 25 62 |.." ";..%b|
00001D90: 07 4B B2 31 00 A7 25 6C 07 8B 57 B1 B2 30 20 A7 |.K.1..%l..W..0 .|
00001DA0: 20 89 20 31 39 33 30 00 C5 25 76 07 99 AB 57 3B | . 1930..%v...W;|
00001DB0: 22 20 4D 50 48 20 57 49 4E 44 20 3C 2D 2D 2D 2D |" MPH WIND <----|
00001DC0: 2D 20 20 22 3B 00 D0 25 80 07 89 20 31 39 35 30 |- ";..%... 1950|
00001DD0: 00 EE 25 8A 07 99 57 3B 22 20 4D 50 48 20 57 49 |..%...W;" MPH WI|
00001DE0: 4E 44 20 2D 2D 2D 2D 2D 2D 3E 20 20 22 3B 00 F8 |ND ------> ";..|
00001DF0: 25 94 07 99 22 13 22 3B 00 17 26 9E 07 99 22 13 |%...".";..&...".|
00001E00: 22 3B 3A 4E B2 33 AB 4E 3A 8B 20 4E B2 31 20 A7 |";:N.3.N:. N.1 .|
00001E10: 20 89 20 32 30 31 30 00 4F 26 A8 07 99 C8 28 55 | . 2010.O&....(U|
00001E20: 44 24 2C 32 33 29 22 1D 1D 12 20 50 4C 41 59 45 |D$,23)"... PLAYE|
00001E30: 52 20 31 20 92 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |R 1 ............|
00001E40: 1D 1D 1D 1D 2A 50 4C 41 59 45 52 20 32 2A 22 00 |....*PLAYER 2*".|
00001E50: 7B 26 AD 07 99 22 13 22 3B C8 28 41 24 2C 32 33 |{&...".";.(A$,23|
00001E60: 29 3B 22 41 4E 47 4C 45 20 28 31 2D 39 30 29 20 |);"ANGLE (1-90) |
00001E70: BF 20 9D 9D 22 3B 3A 55 4C B2 32 00 B9 26 B2 07 |. ..";:UL.2..&..|
00001E80: 55 53 24 B2 22 30 31 32 33 34 35 36 37 38 39 48 |US$."0123456789H|
00001E90: 22 3A 8D 33 35 3A 45 B2 C5 28 55 52 24 29 3A 8B |":.35:E..(UR$):.|
00001EA0: 20 45 B1 39 30 20 A7 20 99 22 9D 9D BF 20 9D 9D | E.90 . ."... ..|
00001EB0: 22 3B 3A 89 20 31 39 37 30 00 D1 26 B7 07 99 22 |";:. 1970..&..."|
00001EC0: 13 22 3B 3A 8B 45 B2 30 20 A7 20 89 20 31 39 36 |.";:.E.0 . . 196|
00001ED0: 35 00 14 27 BC 07 99 C8 28 42 24 2C 31 29 3B C8 |5..'....(B$,1);.|
00001EE0: 28 41 24 2C 32 33 29 3B 22 11 50 4F 57 44 45 52 |(A$,23);".POWDER|
00001EF0: 28 31 2D 31 35 29 20 20 20 9D 9D BF 9D 22 3B 3A |(1-15) ....";:|
00001F00: 55 4C B2 32 3A 55 53 24 B2 22 30 31 32 33 34 35 |UL.2:US$."012345|
00001F10: 36 37 38 39 00 48 27 C6 07 55 53 24 B2 55 53 24 |6789.H'..US$.US$|
00001F20: AA 22 48 22 3A 8D 33 35 3A 56 B2 C5 28 55 52 24 |."H":.35:V..(UR$|
00001F30: 29 3A 8B 20 56 B1 31 35 20 B0 20 56 B3 B2 30 20 |):. V.15 . V..0 |
00001F40: A7 20 89 20 31 39 37 35 00 53 27 D0 07 89 20 32 |. . 1975.S'... 2|
00001F50: 30 34 30 00 9A 27 DA 07 99 22 13 20 20 20 20 20 |040..'...". |
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 22 3B 22 20 20 20 20 20 20 20 20 20 20 20 | ";" |
00001F90: 20 20 20 20 20 20 20 20 22 3B 00 E5 27 DF 07 99 | ";..'...|
00001FA0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FE0: 20 20 20 22 3B 00 1D 28 E4 07 99 C8 28 55 44 24 | ";..(....(UD$|
00001FF0: 2C 32 33 29 22 1D 1D 2A 50 4C 41 59 45 52 20 31 |,23)"..*PLAYER 1|
00002000: 2A 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |*...............|
00002010: 12 20 50 4C 41 59 45 52 20 32 20 92 22 00 68 28 |. PLAYER 2 .".h(|
00002020: E9 07 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00002030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002040: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 22 13 | ";".|
00002050: 41 4E 47 4C 45 20 28 31 2D 39 30 29 20 BF 20 9D |ANGLE (1-90) . .|
00002060: 9D 22 3B 3A 55 4C B2 32 00 A1 28 EE 07 55 53 24 |.";:UL.2..(..US$|
00002070: B2 22 30 31 32 33 34 35 36 37 38 39 48 22 3A 8D |."0123456789H":.|
00002080: 33 35 3A 45 B2 C5 28 55 52 24 29 3A 8B 20 45 B1 |35:E..(UR$):. E.|
00002090: 39 30 20 B0 20 45 B2 30 20 A7 20 89 20 32 30 32 |90 . E.0 . . 202|
000020A0: 35 00 C7 28 F0 07 99 22 13 11 11 50 4F 57 44 45 |5..(..."...POWDE|
000020B0: 52 20 28 31 2D 31 35 29 20 20 20 20 9D 9D 9D BF |R (1-15) ....|
000020C0: 9D 22 3B 3A 8D 33 35 00 EA 28 F3 07 56 B2 C5 28 |.";:.35..(..V..(|
000020D0: 55 52 24 29 3A 8B 56 B1 31 35 20 B0 20 56 B3 B2 |UR$):.V.15 . V..|
000020E0: 30 20 A7 20 89 20 32 30 33 32 00 03 29 F8 07 4B |0 . . 2032..)..K|
000020F0: B2 4B AA 31 3A 8B 20 45 B2 30 20 A7 20 89 20 31 |.K.1:. E.0 . . 1|
00002100: 33 31 30 00 18 29 02 08 41 32 28 4E 29 B2 41 32 |310..)..A2(N).A2|
00002110: 28 4E 29 AB 32 2E 38 36 00 23 29 0C 08 45 B2 39 |(N).2.86.#)..E.9|
00002120: 30 AB 45 00 36 29 16 08 8B 20 4E B2 31 20 A7 20 |0.E.6)... N.1 . |
00002130: 89 20 32 30 39 30 00 3F 29 20 08 45 B2 AB 45 00 |. 2090.?) .E..E.|
00002140: 4B 29 2A 08 58 31 B2 4C 28 4E 29 00 5C 29 34 08 |K)*.X1.L(N).\)4.|
00002150: 59 31 B2 48 28 4C 28 4E 29 29 AA 31 00 68 29 3E |Y1.H(L(N)).1.h)>|
00002160: 08 54 B2 30 3A 4D B2 30 00 7C 29 48 08 56 31 B2 |.T.0:M.0.|)H.V1.|
00002170: BF 28 45 AC FF AD 31 38 30 29 AC 56 00 93 29 52 |.(E...180).V..)R|
00002180: 08 56 32 B2 BE 28 45 AC FF AD 31 38 30 29 AC 56 |.V2..(E...180).V|
00002190: AC 2E 37 00 A4 29 5C 08 54 B2 54 AA 2E 35 3A 4D |..7..)\.T.T..5:M|
000021A0: B2 4D AA 31 00 BD 29 66 08 56 31 B2 56 31 AA 28 |.M.1..)f.V1.V1.(|
000021B0: 56 31 AA 57 AC 2E 35 29 AD 31 35 30 30 00 D5 29 |V1.W..5).1500..)|
000021C0: 70 08 58 B2 58 31 AA 28 56 31 AA 57 AC 2E 35 AD |p.X.X1.(V1.W..5.|
000021D0: 35 30 29 AC 54 00 E3 29 7A 08 58 B2 B5 28 58 AA |50).T..)z.X..(X.|
000021E0: 2E 35 29 00 F7 29 84 08 59 B2 59 31 AA 28 56 32 |.5)..)..Y.Y1.(V2|
000021F0: AB 54 AD 33 29 AC 54 00 05 2A 8E 08 59 B2 B5 28 |.T.3).T..*..Y..(|
00002200: 59 AA 2E 35 29 00 16 2A 98 08 5A B2 32 33 AB 59 |Y..5)..*..Z.23.Y|
00002210: 3A 99 22 13 22 3B 00 3E 2A A2 08 41 28 4D 29 B2 |:.".";.>*..A(M).|
00002220: 5A 3A 42 28 4D 29 B2 58 3A 8B 20 58 B1 33 39 20 |Z:B(M).X:. X.39 |
00002230: B0 20 58 B3 31 20 A7 20 89 20 32 35 33 30 00 56 |. X.1 . . 2530.V|
00002240: 2A AC 08 8B 59 AB 48 28 58 29 B3 B2 30 20 A7 20 |*...Y.H(X)..0 . |
00002250: 89 20 32 35 32 30 00 69 2A B6 08 8B 20 5A B3 30 |. 2520.i*... Z.0|
00002260: 20 A7 20 89 20 32 32 39 30 00 7C 2A C0 08 8B 20 | . . 2290.|*... |
00002270: 5A B2 30 20 A7 20 89 20 32 32 36 30 00 8A 2A CA |Z.0 . . 2260..*.|
00002280: 08 99 C8 28 42 24 2C 5A 29 3B 00 9D 2A D4 08 8B |...(B$,Z);..*...|
00002290: 20 58 B2 31 20 A7 20 89 20 32 32 38 30 00 AD 2A | X.1 . . 2280..*|
000022A0: DE 08 99 C8 28 41 24 2C 58 AB 31 29 3B 00 B6 2A |....(A$,X.1);..*|
000022B0: E8 08 99 22 D1 22 00 C0 2A F2 08 99 22 13 22 3B |..."."..*...".";|
000022C0: 00 D5 2A FC 08 8B 20 4D AB 34 B3 31 20 A7 20 89 |..*... M.4.1 . .|
000022D0: 20 32 31 34 30 00 ED 2A 06 09 8B 20 41 28 4D AB | 2140..*... A(M.|
000022E0: 34 29 B2 30 20 A7 20 89 20 32 33 34 30 00 11 2B |4).0 . . 2340..+|
000022F0: 10 09 8B 20 41 28 4D AB 34 29 B3 30 20 B0 20 42 |... A(M.4).0 . B|
00002300: 28 4D AB 34 29 B3 B2 30 20 A7 20 89 20 32 31 34 |(M.4)..0 . . 214|
00002310: 30 00 24 2B 1A 09 99 C8 28 42 24 2C 41 28 4D AB |0.$+....(B$,A(M.|
00002320: 34 29 29 3B 00 39 2B 24 09 99 C8 28 41 24 2C 42 |4));.9+$...(A$,B|
00002330: 28 4D AB 34 29 AB 31 29 3B 00 43 2B 2E 09 99 22 |(M.4).1);.C+..."|
00002340: 20 22 3B 00 4D 2B 38 09 99 22 13 22 3B 00 58 2B | ";.M+8..".";.X+|
00002350: 42 09 89 20 32 31 34 30 00 6B 2B 4C 09 8B 20 4D |B.. 2140.k+L.. M|
00002360: B2 31 20 A7 20 89 20 32 31 34 30 00 8B 2B 56 09 |.1 . . 2140..+V.|
00002370: 8B 20 42 28 4D 29 B3 31 20 B0 20 42 28 4D 29 B1 |. B(M).1 . B(M).|
00002380: 33 39 20 A7 20 89 20 31 39 35 30 00 D7 2B 60 09 |39 . . 1950..+`.|
00002390: 8F 20 4C 49 4E 45 53 20 32 34 31 30 20 41 4E 44 |. LINES 2410 AND|
000023A0: 20 32 34 34 30 20 44 45 54 45 52 4D 49 4E 45 20 | 2440 DETERMINE |
000023B0: 48 49 54 2E 20 43 48 41 4E 47 45 20 27 31 2E 35 |HIT. CHANGE '1.5|
000023C0: 27 20 54 4F 20 43 48 41 4E 47 45 20 44 49 46 46 |' TO CHANGE DIFF|
000023D0: 49 43 55 4C 54 59 2E 00 F9 2B 6A 09 8B 20 B6 28 |ICULTY...+j.. .(|
000023E0: 42 28 4D AB 31 29 AB 4C 28 4E 29 29 B3 31 2E 35 |B(M.1).L(N)).1.5|
000023F0: 20 A7 20 89 20 32 34 33 30 00 04 2C 74 09 89 20 | . . 2430..,t.. |
00002400: 32 34 34 30 00 17 2C 7E 09 8B 20 54 B1 31 20 A7 |2440..,~.. T.1 .|
00002410: 20 89 20 32 37 31 30 00 3B 2C 88 09 8B 20 B6 28 | . 2710.;,... .(|
00002420: 42 28 4D AB 31 29 AB 4C 28 33 AB 4E 29 29 B3 31 |B(M.1).L(3.N)).1|
00002430: 2E 35 20 A7 20 89 20 32 37 39 30 00 4E 2C 92 09 |.5 . . 2790.N,..|
00002440: 8B 20 54 B3 31 20 A7 20 89 20 32 31 34 30 00 59 |. T.1 . . 2140.Y|
00002450: 2C 9C 09 89 20 32 36 35 30 00 63 2C A6 09 99 22 |,... 2650.c,..."|
00002460: 13 91 22 00 8E 2C B0 09 99 22 13 11 11 11 11 20 |.."..,..."..... |
00002470: 20 20 20 20 20 41 4E 4F 54 48 45 52 20 47 41 4D | ANOTHER GAM|
00002480: 45 20 3F 20 28 59 2F 4E 29 20 BF 9D 22 3B 00 A5 |E ? (Y/N) ..";..|
00002490: 2C BA 09 55 4C B2 31 3A 55 53 24 B2 22 59 4E 48 |,..UL.1:US$."YNH|
000024A0: 22 3A 8D 33 35 00 BA 2C C4 09 8B 20 55 52 24 B2 |":.35..,... UR$.|
000024B0: 22 59 22 20 A7 20 31 30 30 30 00 C3 2C CE 09 89 |"Y" . 1000..,...|
000024C0: 33 30 30 00 CD 2C D8 09 99 22 13 22 3B 00 E0 2C |300..,...".";..,|
000024D0: E2 09 81 20 4A B2 34 20 A4 20 31 20 A9 20 AB 31 |... J.4 . 1 . .1|
000024E0: 00 F6 2C EC 09 8B 20 4D AB 4A B3 B2 30 20 A7 20 |..,... M.J..0 . |
000024F0: 89 20 32 36 32 30 00 0E 2D F6 09 8B 20 41 28 4D |. 2620..-... A(M|
00002500: AB 4A 29 B2 30 20 A7 20 89 20 32 35 38 30 00 32 |.J).0 . . 2580.2|
00002510: 2D 00 0A 8B 20 41 28 4D AB 4A 29 B3 30 20 B0 20 |-... A(M.J).0 . |
00002520: 42 28 4D AB 4A 29 B3 B2 30 20 A7 20 89 20 32 36 |B(M.J)..0 . . 26|
00002530: 32 30 00 46 2D 0A 0A 99 20 C8 28 42 24 2C 41 28 |20.F-... .(B$,A(|
00002540: 4D AB 4A 29 29 3B 00 5E 2D 14 0A 8B 20 42 28 4D |M.J));.^-... B(M|
00002550: AB 4A 29 B2 31 20 A7 20 89 20 32 36 30 30 00 73 |.J).1 . . 2600.s|
00002560: 2D 1E 0A 99 C8 28 41 24 2C 42 28 4D AB 4A 29 AB |-....(A$,B(M.J).|
00002570: 31 29 3B 00 7D 2D 28 0A 99 22 20 22 3B 00 87 2D |1);.}-(.." ";..-|
00002580: 32 0A 99 22 13 22 3B 00 9E 2D 3C 0A 82 20 4A 3A |2..".";..-<.. J:|
00002590: 8B 20 4D B2 31 20 A7 20 89 20 32 38 33 30 00 BE |. M.1 . . 2830..|
000025A0: 2D 46 0A 8B 20 42 28 4D 29 B3 31 20 B0 20 42 28 |-F.. B(M).1 . B(|
000025B0: 4D 29 B1 33 39 20 A7 20 89 20 32 38 34 30 00 C9 |M).39 . . 2840..|
000025C0: 2D 50 0A 89 20 32 33 38 30 00 E1 2D 5A 0A 8B 20 |-P.. 2380..-Z.. |
000025D0: 42 28 4D AB 31 29 B2 31 20 A7 20 89 20 32 36 37 |B(M.1).1 . . 267|
000025E0: 30 00 F6 2D 64 0A 99 C8 28 41 24 2C 42 28 4D AB |0..-d...(A$,B(M.|
000025F0: 31 29 AB 31 29 3B 00 0F 2E 6E 0A 99 C8 28 42 24 |1).1);...n...(B$|
00002600: 2C 32 33 AB 48 28 42 28 4D AB 31 29 29 29 3B 00 |,23.H(B(M.1)));.|
00002610: 3C 2E 78 0A 81 20 5A B2 31 20 A4 20 33 3A 20 99 |<.x.. Z.1 . 3: .|
00002620: 22 91 9D CD D7 CE 91 9D 9D 9D CD 21 CE 22 3B 3A |"..........!.";:|
00002630: 81 20 58 B2 31 20 A4 20 35 3A 82 58 00 6F 2E 82 |. X.1 . 5:.X.o..|
00002640: 0A 99 22 9D 9D 9D 11 20 20 20 91 9D 9D 9D 20 20 |..".... .... |
00002650: 20 9D 9D 11 11 22 3B 3A 81 20 58 B2 31 20 A4 20 | ....";:. X.1 . |
00002660: 35 3A 82 20 58 3A 82 20 5A 3A 99 22 B9 22 3B 00 |5:. X:. Z:.".";.|
00002670: 7A 2E 8C 0A 89 20 32 38 33 30 00 84 2E 96 0A 99 |z.... 2830......|
00002680: 22 13 22 3B 00 97 2E A0 0A 99 C8 28 41 24 2C 4C |".";.......(A$,L|
00002690: 28 4E 29 AB 31 29 3B 00 AE 2E AA 0A 99 C8 28 42 |(N).1);.......(B|
000026A0: 24 2C 32 34 AB 48 28 4C 28 4E 29 29 29 3B 00 E7 |$,24.H(L(N)));..|
000026B0: 2E B4 0A 81 20 5A B2 31 20 A4 31 30 3A 99 22 91 |.... Z.1 .10:.".|
000026C0: 9D 12 DF D1 A9 92 91 9D 9D 9D 9D CD BF 21 12 BF |.............!..|
000026D0: 92 CE 9D 9D 9D 9D 9D 91 CD CD 21 CE CE 9D 9D 11 |..........!.....|
000026E0: 11 22 3B 22 9D 22 3B 00 0D 2F BE 0A 99 22 20 9D |.";".";../..." .|
000026F0: 9D 9D 91 20 20 20 20 20 9D 9D 9D 9D 9D 91 20 20 |... ...... |
00002700: 20 20 20 9D 9D 9D 91 11 11 11 11 22 3B 00 23 2F | ........";.#/|
00002710: C8 0A 81 20 58 B2 31 20 A4 20 32 3A 82 20 58 3A |... X.1 . 2:. X:|
00002720: 82 20 5A 00 34 2F D2 0A 81 58 B2 31 20 A4 35 30 |. Z.4/...X.1 .50|
00002730: 3A 82 20 58 00 3F 2F DC 0A 89 20 32 34 37 30 00 |:. X.?/... 2470.|
00002740: 49 2F E6 0A 99 22 13 22 3B 00 5E 2F F0 0A 99 C8 |I/...".";.^/....|
00002750: 28 41 24 2C 4C 28 33 AB 4E 29 AB 31 29 3B 00 79 |(A$,L(3.N).1);.y|
00002760: 2F FA 0A 99 C8 28 42 24 2C 32 34 AB 48 28 4C 28 |/....(B$,24.H(L(|
00002770: 33 AB 4E 29 AB 31 29 29 3B 00 84 2F 04 0B 89 20 |3.N).1));../... |
00002780: 32 37 34 30 00 8A 2F 0E 0B 8F 00 A2 2F 18 0B 57 |2740../...../..W|
00002790: B2 57 AA B5 28 31 30 AC 28 BB 28 31 29 AB 2E 35 |.W..(10.(.(1)..5|
000027A0: 29 29 00 C0 2F 22 0B 99 22 13 22 3B C8 28 42 24 |))../"..".";.(B$|
000027B0: 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 22 3B |,24);" ";|
000027C0: 00 F8 2F 2C 0B 8B 20 57 B1 B2 30 20 A7 20 99 22 |../,.. W..0 . ."|
000027D0: 20 20 20 9D 9D 9D 22 3B 57 3B 22 20 4D 50 48 20 | ...";W;" MPH |
000027E0: 57 49 4E 44 20 2D 2D 2D 2D 2D 3E 20 20 20 20 22 |WIND -----> "|
000027F0: 3B 3A 89 20 31 39 35 30 00 28 30 36 0B 99 22 20 |;:. 1950.(06.." |
00002800: 20 20 9D 9D 9D 22 3B AB 57 3B 22 20 4D 50 48 20 | ...";.W;" MPH |
00002810: 57 49 4E 44 20 3C 2D 2D 2D 2D 2D 20 20 20 20 22 |WIND <----- "|
00002820: 3B 3A 89 20 31 39 35 30 00 2E 30 40 0B 8E 00 34 |;:. 1950..0@...4|
00002830: 30 4A 0B 8F 00 5E 30 54 0B 99 20 22 93 11 11 11 |0J...^0T.. "....|
00002840: 11 11 11 11 11 11 11 22 3B A3 31 35 29 3B 22 12 |.......";.15);".|
00002850: C1 52 54 49 4C 4C 45 52 59 22 3A 99 3A 99 00 7E |.RTILLERY":.:..~|
00002860: 30 5E 0B 99 20 A3 31 31 29 3B 22 C3 52 45 41 54 |0^.. .11);".REAT|
00002870: 49 56 45 20 C3 4F 4D 50 55 54 49 4E 47 22 00 9A |IVE .OMPUTING"..|
00002880: 30 68 0B 99 20 A3 31 33 29 3B 22 D0 2E CF 2E 20 |0h.. .13);".... |
00002890: 42 4F 58 20 37 38 39 2D 4D 22 00 C3 30 72 0B 99 |BOX 789-M"..0r..|
000028A0: 20 A3 36 29 3B 22 CD 4F 52 52 49 53 54 4F 57 4E | .6);".ORRISTOWN|
000028B0: 2C 20 CE 45 57 20 CA 45 52 53 45 59 20 30 37 39 |, .EW .ERSEY 079|
000028C0: 36 30 22 00 F2 30 73 0B 99 22 11 11 11 11 1D 1D |60"..0s.."......|
000028D0: 1D 1D 1D 1D 12 CE CF D4 C5 3A D0 52 45 53 53 20 |.........:.RESS |
000028E0: 3C 20 D2 C5 D4 D5 D2 CE 20 3E 20 41 46 54 45 52 |< ...... > AFTER|
000028F0: 92 22 00 20 31 74 0B 99 22 11 1D 1D 1D 1D 12 C5 |.". 1t..".......|
00002900: 41 43 48 20 52 45 53 50 4F 4E 53 45 20 46 52 4F |ACH RESPONSE FRO|
00002910: 4D 20 54 48 45 20 4B 45 59 42 4F 41 52 44 92 22 |M THE KEYBOARD."|
00002920: 00 2D 31 76 0B 81 42 31 B2 31 A4 31 30 00 65 31 |.-1v..B1.1.10.e1|
00002930: 78 0B 99 C8 28 55 44 24 2C 32 31 29 3B 22 1D 1D |x...(UD$,21);"..|
00002940: 1D 1D 1D 1D 12 CE CF D4 C5 3A D0 D2 C5 D3 D3 20 |.........:..... |
00002950: 92 3C 20 D2 C5 D4 D5 D2 CE 20 3E 12 20 41 46 54 |.< ...... >. AFT|
00002960: 45 52 20 92 22 00 7A 31 79 0B 81 42 32 B2 31 A4 |ER .".z1y..B2.1.|
00002970: 33 30 30 3A 82 3A 42 32 B2 30 00 B0 31 7A 0B 99 |300:.:B2.0..1z..|
00002980: C8 28 55 44 24 2C 32 31 29 3B 22 1D 1D 1D 1D 1D |.(UD$,21);".....|
00002990: 1D 12 CE CF D4 C5 3A D0 D2 C5 D3 D3 20 3C 20 D2 |......:..... < .|
000029A0: C5 D4 D5 D2 CE 20 3E 20 41 46 54 45 52 20 92 22 |..... > AFTER ."|
000029B0: 00 C5 31 7B 0B 81 42 32 B2 31 A4 33 30 30 3A 82 |..1{..B2.1.300:.|
000029C0: 3A 42 32 B2 30 00 CB 31 7C 0B 82 00 E0 31 81 0B |:B2.0..1|....1..|
000029D0: 81 20 42 31 B2 31 A4 32 30 30 30 3A 82 20 42 31 |. B1.1.2000:. B1|
000029E0: 00 E9 31 86 0B 42 31 B2 30 00 EF 31 9A 0B 8E 00 |..1..B1.0..1....|
000029F0: 1A 32 54 EC 99 22 92 93 11 11 11 1D 05 4C 4F 41 |.2T..".......LOA|
00002A00: 44 22 C7 28 33 34 29 22 43 36 34 2E 4D 45 4E 55 |D".(34)"C64.MENU|
00002A10: 22 C7 28 33 34 29 22 2C 38 22 00 4D 32 5E EC 99 |".(34)",8".M2^..|
00002A20: 22 13 22 3A 97 31 39 38 2C 34 3A 97 36 33 31 2C |".":.198,4:.631,|
00002A30: 31 33 3A 97 36 33 32 2C 38 32 3A 97 36 33 33 2C |13:.632,82:.633,|
00002A40: 32 31 33 3A 97 36 33 34 2C 31 33 3A 80 00 BE 00 |213:.634,13:....|
.......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.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++...Z..UR$.UX$.195:. E
XIT TO HELP ROUTINE.*._..UF.1..240.7.D.U
F.0:.:..P.F.. ++ CHECK DELETE ++.A.I..C(
UR$).1.50.Y.N.UR$.H(UR$,C(UR$).1)...S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++.D.}..C(US$).0.150.U....US.1.C
(US$)......UI$.J(US$,US,1).............U
I$."":....... ** STANDARD INPUT **.+....
F(UI$).46...<....UI$.G(32)...Y. ..F(UI$)
.48.F(UI$).57.170._.....|....F(UI$).65.F
(UI$).90.180............F(UI$).193.F(UI$
).218.UI$."":..I....B(UT).UU%.UI$.G(F(UI
$).128):..O.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245.'.M..UQ.UB.(UB.987).C.R.UQ%(UQ.UB).B
(UQ):.:.".".V.W.UZ.1:UV%.B(UT)._.X..300.
..Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK:.B(
50003).0..53281,6:.53280,6.....UT$.UL$:.
53281,1:.".";:.53281,6:.UT,UV%:.UQ.UB.(U
B.987)......UQ,UQ%(UQ.UB):.......U1,U1%.
.....U2,U2%......U4,U4%.%....U3,U3%.1.-.
...35._...UD%.((U2%.256.U1%.U3%).UB).40:
.H(UD$,UD%.1):.......H(UD$,24);.68);".HE
LP COMING.";:......U1%.B(U1):U2%.B(U2):U
3%.B(U3):U4%.B(U4).Z...UJ$.US$:UK$.UG$:U
L$.UT$:UJ.UP:UK.UL.........,.. ** MENU *
*...-.:.&....".":.UT,UU%:.B(50003).0..53
281,9:.53280,8.,./.:.I.1..".
MENU".X.6.." -----------------------
---------------"...;..".. 1. BEG
IN ARTILLERY.F.@..".. 2. STUDENT
INSTRUCTIONS"...E..".. 3. TEACH
ER INSTRUCTIONS"...O..".. 4. QUI
T..".;.T.." ----------------------------
----------".F.Y..".. PRESS A NUMBE
R KEY (1-4) ";...^.UL.1:US$."1234":.35:.
INPUT ROUTINE...`.US$.""...C..E(UR$).10
00,400,500,396...H..300...... ** RE-ENAB
LE STOP KEY AND END **......B(50003)..1.
B(50003)..160.B(50003)..0.399.?....UU.71
:.B(50003).0..53281,6:.53280,14.P...."..
":.60500.[....875:..|.... ** STUDENT INS
TRUCTIONS **......".":.UT,UL%:.B(50003).
0..53281,0:.53280,0.L...UP.0:UG$."STUDEN
T INST":.850......".. THIS IS A GAME IN
WHICH 2 PLAYERS SHOOT";.)....". AT EACH
OTHER ACROSS A MOUNTAIN.".W....". AT EAC
H TURN, THE PLAYER ENTERS THE "......".
ANGLE TO FIRE (1-90) AND THE NUMBER OF
.BAGS OF ";... .." POWDER (1 TO 15 BAGS)
.......". NOTE:......". IF YOU WISH HELP
PRESS 'H' RETURN."......835......UZ.1..
UP%:.217......./.... ** TEACHER INSTRUCT
IONS **._....".":.UT,UL%:.B(50003).0..53
281,2:.53280,10.....UP.0:UG$."TEACHER IN
ST":.850......".. TO THE BEST OF OU
R KNOWLEDGE,.".W...." THIS PROGRAM IS
IN THE PUBLIC."......" DOMAIN. IF THI
S IS NOT THE CASE.". ...." PLEASE CONT
ACT:...".J...." COMMODORE BUSINESS
MACHINES.".M...." 3370 PHARMACY
AVE......." AGINCOURT, ONTARIO
"......" CANADA M1W 2K4".S...
." (416) 499-4292".....UP.1:. 8
35:. 850:......" ..PROGRAM NAME: ART
ILLERY ..5...." WRITTEN BY : UNK
NOWN..Y...." UPGRADED BY :
......." .THIS PROGRAM WILL RUN ON A
NY........" BASIC 2.0 PET COMPUT
ER..R...." BASIC 4.0 PET COMPUTE
R......." 8032 CBM COMPUTER.....
.." COMMODORE 64 COMPUTER."....8
35.6.N..UZ.1..UP%:.217.<.W...B.X.. ** PR
OGRAM MODIFICATION INST **.S.Y..".":.UT,
UL%...].UP.0:UG$."PROGRAM MOD":.850.....
.835......UZ.1..UP%:.217............ **
TO USE 8032 LOAD CBM4032 **...F..".....B
EFORE RUNNING THIS PROGRAM ON AN 8032 .
..G.P.." LOAD THE 'CBM 4032' PROGRA
M.............".R.Z..UU.71.X.....X. .. *
* T I T L E P A G E **...".."....";:.U
T,UU%:.B(50003).0..53280,14:.53281,6.B.$
..I.1.38:."...";:..Z.&..I.1.22:.".....";
:....(..I.1.37:.".....";:....*..I.1.22:.
".....";:../.,..".......................
.... ..Q...."................... . . .
..R.0.."................... . ......2..
".................... ....4..".........
.....C O M M O D O R E.....6..".........
......EDUCATIONAL.....8.."..............
..SOFTWARE...:.. ** COMMODORE LOGO **.M.
;..H(UD$,24);"..........PRESS SPACE BAR
OR WAIT.":I.0.O.<..A$:.A$.." ".I.I.1:.I.
250.828...>.T1$."":T2$."":T3$."":T4$."":
I.0...@..300...C.. ** SPACE BAR PRESS **
...H..UO,0:.H(UD$,24);".......PRESS SPAC
E BAR TO CONTINUE."...L..UI$:.UI$.." ".8
44...N...0.R.. ** PAGE DESIGN ROUTINE **
.<.T.UP.UP.1.F.W.."."H(UT$.UP$,21);I(UP$
.UG$.D(UP),18)...\.." ------------------
--------------------"...`..UH..0.870.X.A
..H(UD$,24);H(UP$,7);"HELP - PRESS H <
RETURN>"...F.UH.0:."..":....K.. ** PLEAS
E WAIT REMARK **.>.P..H(UD$,24);"
ONE MOMENT PLEASE... ".D.U...A..
.. ** SET UP VARIABLES **.....UX$."H":.U
Q%(1000):UB.32768:U1.196:U2.197:U3.198:U
4.216:UC.167:UU.1024.....UT.59468:UU%.12
:UL%.14:UP%.1146:UM.32768:UO.158:. 50003
,0.-....B(50003).0.UB.1024:U1.209:U2.210
:U3.211:U4.214:UC.204:UU.2048.L....B(500
03).0.UT.53272:UU%.21:UL%.23:UP%.2139:UM
.1024:UO.198.....UD$."..................
.......".B...UP$."
".....UT$." ARTILLERY
":. PLACE PROGRAM TITLE HERE !!!!!
!!!!!!!!!!!!***.E....A(100),B(100),H(39)
,A1(2),B1(2),A2(2),B2(2),L(2).K.....E...
. ** SET VARIABLES **.N....900...... **
CHECK FOR 8032 **......".":." ":. SHIFTE
D SPACE......B(UB.40)..96..700.W.... **
MEMORY CHECK **...... .(0).2000.937.....
."....THIS MACHINE DOES NOT HAVE ENOUGH.
".=...."MEMORY TO RUN THIS PROGRAM !".H.
...UU.71.N.....H...."..":.B(50003).0.962
...... ** BASIC 2.0 OR 4.0 OR C-64 S
ETUP **.U....1075,133:.1076,144:.1077,23
4:.1079,4:.1080,133:.1081,145......1091,
155:.1098,133:.1099,144:.1100,234:.1103,
133.-....1104,145:.1105,234:.1082,234.D.
...B(50003)..160.955.S....1093,88:.1094,
228:.1097,85:.1102,228:.965......B(50003
)..1.990......1093,49:.1094,230:.1097,46
:.1102,230:.965...B..2099,141:.2100,20:.
2101,3:.2103,8:.2104,141:.2105,21.-.C..2
106,3:.2115,145:.2117,52:.2118,234:.2121
,49:.2122,141.G.D..2123,20:.2124,3:.2126
,234:.2127,141:.2128,21:.2129,3...E..UU.
48:. DISABLE STOP KEY...J..800:. TITLE..
.T..300:. MENU.W....".THE PGM WILL NOT W
ORK ON THIS MACHINE!":... ...UZ.1..UP%:.
UP%:UZ.0:. ** PROGRAM STARTS HERE **.7 .
.."..";:.:.B(50003).0..53281,6:.53280,6.
C O..UT,UL%.T T.. GOSUB 2890._ X..:.900.
. ...".":. UT,UU%:. RESET TO GRAPHICS..
..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..!... CONSTRUC
T MOUNTAIN.4!#..".";H(UD$,23);"BUILDING
MOUNTAIN...".G!(.X1..(6..(1).8).[!2.X2..
(25..(1).8).U!<.L(1)..(3.(X1.3)..(1))..!
F.L(2)..(X2.1.(36.X2)..(1))..!P.H9..(1).
11.1..!Z.. I.1 . X1:H(I).H9:.I.O!D.H9..(
1).11.1..!N.. I.X2 . 39:H(I).H9:.I.."X..
.(H(1).H(39)).4 . . 1360.'"..X3.X1..(.(
1).(X2.X1.6)).3.;"..H(X3)..(1).11.9.Q"..
D1.(H(X3).H(1)).2.H" .D2.(H(X3).H(39)).2
.."... D1.D2..0 . . 1610.."..J..180.."..
K.180.(X3.X1.1).."H.H9.H(1).D1.B"R.. I.X
1.1 . X3.1.L"..J.J.K.."..H(I).H9..(J...1
80).D1.."...I.."..J.0..#..K.180.(X2.X3.1
)..#..H9.H(39).D2.-#... I.X3.1 . X2.1.7#
".J.J.K.Q#,.H(I).H9..(J...180).D2.X#6..I
.C#@.. 1690.X#J.D.(H(1).H(39)).2..#T.J.0
..#^.K.180.(X2.X1.1)..#H.H9.H(39).D..#R.
. I.X1.1 . X2.1.A#|.J.J.K.Z#..H(I).H9..(
J...180).D..#... I..#...".";..$..W..(100
.(.(1)..5))..$...H(B$,22);.4$... I.1 . 3
9:H(I)..(H(I)..5):.I.Q$B.. X.1 . 39:.X.1
. . 1750.[$L..".";.P$V..J(Z$,1,H(X).4);
..$... Z.1 . H(X):.".";:.Z..$... X:.".".
.$...".";.I$...J(B$,1,22.H(1));:. L(1).1
. . 1810..$...J(A$,1,L(1).1);..$..."^";
..$...".";..%&..J(B$,1,22.H(39));..%0..J
(A$,1,L(2).1);.(%:.."^";.A%?..H(UD$,23)"
....PLAYER 1...................PLAYER 2.
".K%D..".";.|%N..J(B$,1,24);..%X.."
";..%B.K.1..%L..W..0 . . 1930.E%V...W;
" MPH WIND <----- ";.P%... 1950..%...W;
" MPH WIND ------> ";..%...".";..&...".
";:N.3.N:. N.1 . . 2010.O&...H(UD$,23)".
.. PLAYER 1 ................*PLAYER 2*".
{&...".";H(A$,23);"ANGLE (1-90) . ..";:U
L.2..&..US$."0123456789H":.35:E.E(UR$):.
E.90 . ."... ..";:. 1970.Q&...".";:.E.0
. . 1965..'...H(B$,1);H(A$,23);".POWDER
(1-15) ....";:UL.2:US$."0123456789.H'F
.US$.US$."H":.35:V.E(UR$):. V.15 . V..0
. . 1975.S'P.. 2040..'Z..".
";"
";..'..."
";..(...H(UD$,23)"..*PLAYER 1*.......
......... PLAYER 2 .".H(..."
";".ANGLE (1
-90) . ..";:UL.2..(..US$."0123456789H":.
35:E.E(UR$):. E.90 . E.0 . . 2025.G(..."
...POWDER (1-15) .....";:.35..(..V.E(
UR$):.V.15 . V..0 . . 2032..)..K.K.1:. E
.0 . . 1310..)..A2(N).A2(N).2.86.#)..E.9
0.E.6)... N.1 . . 2090.?) .E..E.K)*.X1.L
(N).\)4.Y1.H(L(N)).1.H)>.T.0:M.0.|)H.V1.
.(E...180).V..)R.V2..(E...180).V..7..)\.
T.T..5:M.M.1..)F.V1.V1.(V1.W..5).1500.U)
P.X.X1.(V1.W..5.50).T..)Z.X..(X..5)..)..
Y.Y1.(V2.T.3).T..*..Y..(Y..5)..*..Z.23.Y
:.".";.>*..A(M).Z:B(M).X:. X.39 . X.1 .
. 2530.V*...Y.H(X)..0 . . 2520.I*... Z.0
. . 2290.|*... Z.0 . . 2260..*J..H(B$,Z
);..*T.. X.1 . . 2280..*...H(A$,X.1);..*
..."Q"..*...".";.U*... M.4.1 . . 2140..*
... A(M.4).0 . . 2340..+... A(M.4).0 . B
(M.4)..0 . . 2140.$+...H(B$,A(M.4));.9+$
..H(A$,B(M.4).1);.C+..." ";.M+8..".";.X+
B.. 2140.K+L.. M.1 . . 2140..+V.. B(M).1
. B(M).39 . . 1950.W+`.. LINES 2410 AND
2440 DETERMINE HIT. CHANGE '1.5' TO CHA
NGE DIFFICULTY...+J.. .(B(M.1).L(N)).1.5
. . 2430..,T.. 2440..,~.. T.1 . . 2710.
;,... .(B(M.1).L(3.N)).1.5 . . 2790.N,..
. T.1 . . 2140.Y,... 2650.C,...".."..,..
."..... ANOTHER GAME ? (Y/N) ..";..
,..UL.1:US$."YNH":.35..,D.. UR$."Y" . 10
00.C,N..300.M,X..".";..,... J.4 . 1 . .1
..,... M.J..0 . . 2620..-... A(M.J).0 .
. 2580.2-... A(M.J).0 . B(M.J)..0 . . 26
20.F-... H(B$,A(M.J));.^-... B(M.J).1 .
. 2600.S-...H(A$,B(M.J).1);.}-(.." ";..-
2..".";..-<.. J:. M.1 . . 2830..-F.. B(M
).1 . B(M).39 . . 2840.I-P.. 2380..-Z..
B(M.1).1 . . 2670..-D..H(A$,B(M.1).1);..
.N..H(B$,23.H(B(M.1)));.<.X.. Z.1 . 3: .
"..MWN....M!N";:. X.1 . 5:.X.O...."....
.... ....";:. X.1 . 5:. X:. Z:.".";.
Z.... 2830......".";... ..H(A$,L(N).1);.
.....H(B$,24.H(L(N)));...... Z.1 .10:.".
...Q.......M.!...N......MM!NN....";".";.
./..." .... ...... ........";.#/
H.. X.1 . 2:. X:. Z.4/R..X.1 .50:. X.?/.
.. 2470.I/...".";.^/...H(A$,L(3.N).1);.Y
/...H(B$,24.H(L(3.N).1));../... 2740../.
..../..W.W..(10.(.(1)..5))../"..".";H(B$
,24);" ";../,.. W..0 . ." ...";
W;" MPH WIND -----> ";:. 1950.(06.."
...";.W;" MPH WIND <----- ";:. 1950
..0@...40J...^0T.. "...........";.15);".
ARTILLERY":.:..~0^.. .11);"CREATIVE COMP
UTING"..0H.. .13);"P.O. BOX 789-M".C0R..
.6);"MORRISTOWN, NEW JERSEY 07960"..0S.
."...........NOTE:PRESS < RETURN > AFTER
.". 1T.."......EACH RESPONSE FROM THE KE
YBOARD.".-1V..B1.1.10.E1X..H(UD$,21);"..
.....NOTE:PRESS .< RETURN >. AFTER .".Z1
Y..B2.1.300:.:B2.0..1Z..H(UD$,21);".....
..NOTE:PRESS < RETURN > AFTER .".E1{..B2
.1.300:.:B2.0.K1|....1... B1.1.2000:. B1
..1..B1.0..1.....2T..".......LOAD"G(34)"
C64.MENU"G(34)",8".M2^..".":.198,4:.631,
13:.632,82:.633,213:.634,13:....
> CLICK IMAGE PREVIEW FOR FULL MODAL