/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / GODZILLA / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 52 45 4d 20 47 4f | 44 5a 49 4c 4c 41 0a 31 |0 REM GO|DZILLA.1|
|00000010| 20 50 47 24 3d 22 20 47 | 20 4f 20 44 20 5a 20 49 | PG$=" G| O D Z I|
|00000020| 20 4c 20 4c 20 41 20 22 | 3a 4a 46 3d 31 3a 47 4f | L L A "|:JF=1:GO|
|00000030| 54 4f 36 32 30 30 30 0a | 35 20 50 52 49 4e 54 22 |TO62000.|5 PRINT"|
|00000040| 93 9e 11 20 4c 41 4e 44 | 20 41 54 54 2e 2d 20 4f |... LAND| ATT.- O|
|00000050| 4e 4c 59 20 54 52 4f 4f | 50 53 20 49 4e 20 47 4f |NLY TROO|PS IN GO|
|00000060| 44 5a 49 4c 4c 41 27 53 | 20 20 20 53 45 43 54 4f |DZILLA'S|   SECTO|
|00000070| 52 00 0a 38 20 50 52 49 | 4e 54 22 11 53 45 41 20 |R..8 PRI|NT".SEA |
|00000080| 41 54 54 2e 2d 20 41 4c | 4c 20 53 48 49 50 53 20 |ATT.- AL|L SHIPS |
|00000090| 49 4e 20 47 4f 44 5a 49 | 4c 4c 41 27 53 20 53 45 |IN GODZI|LLA'S SE|
|000000a0| 43 54 4f 52 20 46 49 52 | 45 20 4f 4e 20 48 49 4d |CTOR FIR|E ON HIM|
|000000b0| 00 0a 31 30 20 50 52 49 | 4e 54 22 11 41 49 52 20 |..10 PRI|NT".AIR |
|000000c0| 41 54 54 2e 2d 20 50 4c | 41 4e 45 53 20 4d 41 59 |ATT.- PL|ANES MAY|
|000000d0| 20 41 54 54 41 43 4b 20 | 46 52 4f 4d 20 55 50 20 | ATTACK |FROM UP |
|000000e0| 54 4f 20 20 54 57 4f 20 | 53 45 43 54 4f 52 53 20 |TO  TWO |SECTORS |
|000000f0| 41 57 41 59 2e 00 0a 31 | 33 20 50 52 49 4e 54 22 |AWAY...1|3 PRINT"|
|00000100| 11 4d 4f 56 45 20 54 52 | 4f 4f 50 2d 20 4d 4f 56 |.MOVE TR|OOP- MOV|
|00000110| 45 20 54 52 4f 4f 50 20 | 54 4f 20 41 4e 59 20 41 |E TROOP |TO ANY A|
|00000120| 44 4a 41 43 45 4e 54 20 | 20 53 45 43 54 4f 52 2e |DJACENT | SECTOR.|
|00000130| 00 0a 31 36 20 50 52 49 | 4e 54 22 11 4d 4f 56 45 |..16 PRI|NT".MOVE|
|00000140| 20 53 48 49 50 2d 20 4d | 4f 56 45 20 53 48 49 50 | SHIP- M|OVE SHIP|
|00000150| 20 54 4f 20 41 4e 59 20 | 41 44 4a 41 43 45 4e 54 | TO ANY |ADJACENT|
|00000160| 20 20 20 20 53 45 43 54 | 4f 52 2e 00 0a 32 30 20 |    SECT|OR...20 |
|00000170| 50 52 49 4e 54 22 11 4d | 49 53 53 49 4c 45 53 2d |PRINT".M|ISSILES-|
|00000180| 20 41 55 54 4f 4d 41 54 | 49 43 41 4c 4c 59 20 41 | AUTOMAT|ICALLY A|
|00000190| 49 4d 45 44 00 0a 32 34 | 20 50 52 49 4e 54 22 11 |IMED..24| PRINT".|
|000001a0| 41 54 4f 4d 49 43 20 42 | 4f 4d 42 2d 20 41 4c 53 |ATOMIC B|OMB- ALS|
|000001b0| 4f 20 44 45 53 54 52 4f | 59 53 20 41 4e 59 20 41 |O DESTRO|YS ANY A|
|000001c0| 44 4a 41 43 45 4e 54 20 | 53 45 43 54 4f 52 53 00 |DJACENT |SECTORS.|
|000001d0| 0a 32 36 20 50 52 49 4e | 54 22 20 20 20 20 20 20 |.26 PRIN|T"      |
|000001e0| 20 20 20 20 05 12 11 41 | 4e 59 20 4b 45 59 20 54 |    ...A|NY KEY T|
|000001f0| 4f 20 43 4f 4e 54 49 4e | 55 45 22 0a 33 30 20 47 |O CONTIN|UE".30 G|
|00000200| 45 54 41 24 3a 49 46 41 | 24 3d 22 22 54 48 45 4e |ETA$:IFA|$=""THEN|
|00000210| 33 30 0a 31 30 30 20 44 | 49 4d 54 52 28 34 2c 34 |30.100 D|IMTR(4,4|
|00000220| 29 2c 53 48 28 34 2c 34 | 29 2c 50 4c 28 34 2c 34 |),SH(4,4|),PL(4,4|
|00000230| 29 2c 50 4f 28 34 2c 34 | 29 2c 4c 4e 28 34 2c 34 |),PO(4,4|),LN(4,4|
|00000240| 29 2c 4a 52 28 31 35 29 | 2c 4a 43 28 31 35 29 2c |),JR(15)|,JC(15),|
|00000250| 44 4d 28 31 30 29 2c 44 | 4d 24 28 31 30 29 0a 31 |DM(10),D|M$(10).1|
|00000260| 30 32 20 50 4f 4b 45 56 | 49 43 2b 33 32 2c 31 31 |02 POKEV|IC+32,11|
|00000270| 3a 50 4f 4b 45 56 49 43 | 2b 33 33 2c 30 3a 51 49 |:POKEVIC|+33,0:QI|
|00000280| 3d 31 31 0a 31 30 35 20 | 44 49 4d 42 53 28 31 31 |=11.105 |DIMBS(11|
|00000290| 29 2c 42 47 28 31 31 29 | 2c 42 49 28 31 31 29 2c |),BG(11)|,BI(11),|
|000002a0| 4e 54 28 32 34 29 2c 44 | 52 28 32 34 29 0a 31 31 |NT(24),D|R(24).11|
|000002b0| 30 20 53 50 3d 43 52 54 | 2b 31 30 31 36 3a 53 42 |0 SP=CRT|+1016:SB|
|000002c0| 3d 31 33 2a 36 34 0a 31 | 31 35 20 50 52 49 4e 54 |=13*64.1|15 PRINT|
|000002d0| 22 93 11 1d 53 45 54 54 | 49 4e 47 20 55 50 2e 2e |"...SETT|ING UP..|
|000002e0| 2e 22 0a 31 32 30 20 52 | 45 41 44 54 24 3a 49 46 |.".120 R|EADT$:IF|
|000002f0| 54 24 3c 3e 22 5c 22 54 | 48 45 4e 31 32 30 0a 31 |T$<>"\"T|HEN120.1|
|00000300| 33 30 20 52 30 3d 35 30 | 3a 43 30 3d 32 34 3a 48 |30 R0=50|:C0=24:H|
|00000310| 57 3d 30 3a 47 57 3d 30 | 0a 31 34 30 20 44 4e 24 |W=0:GW=0|.140 DN$|
|00000320| 3d 22 13 11 05 22 3a 42 | 4c 24 3d 22 20 20 20 20 |="...":B|L$="    |
|00000330| 20 20 20 20 20 20 20 20 | 20 22 0a 31 35 30 20 53 |        | ".150 S|
|00000340| 49 44 3d 35 34 32 37 32 | 3a 46 4f 52 49 3d 30 54 |ID=54272|:FORI=0T|
|00000350| 4f 32 38 3a 50 4f 4b 45 | 53 49 44 2b 49 2c 30 3a |O28:POKE|SID+I,0:|
|00000360| 4e 45 58 54 0a 31 36 30 | 20 43 31 24 3d 22 13 9a |NEXT.160| C1$="..|
|00000370| 11 11 11 11 11 22 3a 43 | 32 24 3d 22 13 11 11 11 |.....":C|2$="....|
|00000380| 11 11 11 11 11 11 11 96 | 22 0a 32 30 30 20 46 4f |........|".200 FO|
|00000390| 52 49 3d 30 54 4f 31 35 | 3a 52 45 41 44 4a 52 28 |RI=0TO15|:READJR(|
|000003a0| 49 29 2c 4a 43 28 49 29 | 3a 4e 45 58 54 49 0a 32 |I),JC(I)|:NEXTI.2|
|000003b0| 31 30 20 46 4f 52 49 3d | 31 54 4f 31 30 3a 52 45 |10 FORI=|1TO10:RE|
|000003c0| 41 44 44 4d 24 28 49 29 | 2c 44 4d 28 49 29 3a 4e |ADDM$(I)|,DM(I):N|
|000003d0| 45 58 54 49 0a 32 32 30 | 20 46 4f 52 49 3d 31 54 |EXTI.220| FORI=1T|
|000003e0| 4f 31 30 3a 52 45 41 44 | 42 49 28 49 29 2c 42 53 |O10:READ|BI(I),BS|
|000003f0| 28 49 29 2c 42 47 28 49 | 29 3a 4e 45 58 54 0a 32 |(I),BG(I|):NEXT.2|
|00000400| 33 30 20 46 4f 52 49 3d | 31 54 4f 32 34 3a 52 45 |30 FORI=|1TO24:RE|
|00000410| 41 44 4e 54 28 49 29 2c | 54 3a 44 52 28 49 29 3d |ADNT(I),|T:DR(I)=|
|00000420| 54 2a 32 30 3a 4e 45 58 | 54 0a 35 31 30 20 52 45 |T*20:NEX|T.510 RE|
|00000430| 41 44 4e 3a 46 4f 52 49 | 3d 30 54 4f 4e 2d 31 3a |ADN:FORI|=0TON-1:|
|00000440| 52 45 41 44 54 3a 50 4f | 4b 45 53 42 2b 49 2c 54 |READT:PO|KESB+I,T|
|00000450| 3a 4e 45 58 54 0a 35 32 | 30 20 46 4f 52 49 3d 4e |:NEXT.52|0 FORI=N|
|00000460| 54 4f 36 33 3a 50 4f 4b | 45 53 42 2b 49 2c 30 3a |TO63:POK|ESB+I,0:|
|00000470| 4e 45 58 54 0a 35 33 30 | 20 41 3d 53 42 2b 36 34 |NEXT.530| A=SB+64|
|00000480| 3a 46 4f 52 49 3d 41 54 | 4f 41 2b 36 30 53 54 45 |:FORI=AT|OA+60STE|
|00000490| 50 33 3a 50 4f 4b 45 49 | 2c 32 35 35 3a 50 4f 4b |P3:POKEI|,255:POK|
|000004a0| 45 49 2b 31 2c 32 35 35 | 3a 50 4f 4b 45 49 2b 32 |EI+1,255|:POKEI+2|
|000004b0| 2c 32 32 34 3a 4e 45 58 | 54 0a 35 34 30 20 46 4f |,224:NEX|T.540 FO|
|000004c0| 52 49 3d 30 54 4f 33 3a | 50 4f 4b 45 56 49 43 2b |RI=0TO3:|POKEVIC+|
|000004d0| 49 2b 49 2b 31 2c 30 3a | 50 4f 4b 45 53 50 2b 49 |I+I+1,0:|POKESP+I|
|000004e0| 2c 31 34 3a 4e 45 58 54 | 3a 50 4f 4b 45 56 49 43 |,14:NEXT|:POKEVIC|
|000004f0| 2b 31 36 2c 30 3a 50 4f | 4b 45 53 50 2c 31 33 0a |+16,0:PO|KESP,13.|
|00000500| 35 35 30 20 41 3d 53 42 | 2b 31 32 38 3a 46 4f 52 |550 A=SB|+128:FOR|
|00000510| 49 3d 30 54 4f 36 33 3a | 50 4f 4b 45 41 2b 49 2c |I=0TO63:|POKEA+I,|
|00000520| 30 3a 4e 45 58 54 0a 35 | 36 30 20 46 4f 52 49 3d |0:NEXT.5|60 FORI=|
|00000530| 30 54 4f 37 3a 50 4f 4b | 45 41 2b 33 2a 49 2c 32 |0TO7:POK|EA+3*I,2|
|00000540| 35 35 3a 4e 45 58 54 3a | 50 4f 4b 45 53 50 2b 31 |55:NEXT:|POKESP+1|
|00000550| 2c 31 35 0a 36 30 30 20 | 50 4f 4b 45 56 49 43 2b |,15.600 |POKEVIC+|
|00000560| 32 31 2c 31 35 3a 50 4f | 4b 45 56 49 43 2b 32 33 |21,15:PO|KEVIC+23|
|00000570| 2c 31 32 3a 50 4f 4b 45 | 56 49 43 2b 32 39 2c 31 |,12:POKE|VIC+29,1|
|00000580| 32 3a 50 4f 4b 45 56 49 | 43 2b 32 37 2c 31 34 0a |2:POKEVI|C+27,14.|
|00000590| 36 31 30 20 50 4f 4b 45 | 56 49 43 2b 33 39 2c 35 |610 POKE|VIC+39,5|
|000005a0| 3a 50 4f 4b 45 56 49 43 | 2b 34 30 2c 31 3a 50 4f |:POKEVIC|+40,1:PO|
|000005b0| 4b 45 56 49 43 2b 34 31 | 2c 32 3a 50 4f 4b 45 56 |KEVIC+41|,2:POKEV|
|000005c0| 49 43 2b 34 32 2c 36 0a | 36 32 30 20 50 4f 4b 45 |IC+42,6.|620 POKE|
|000005d0| 56 49 43 2b 32 2c 31 34 | 34 0a 39 30 30 20 46 4f |VIC+2,14|4.900 FO|
|000005e0| 52 49 3d 31 54 4f 37 53 | 54 45 50 32 3a 50 4f 4b |RI=1TO7S|TEP2:POK|
|000005f0| 45 56 49 43 2b 49 2c 30 | 3a 4e 45 58 54 3a 50 52 |EVIC+I,0|:NEXT:PR|
|00000600| 49 4e 54 22 93 13 05 11 | 1d 42 55 49 4c 44 49 4e |INT"....|.BUILDIN|
|00000610| 47 20 4a 41 50 41 4e 2e | 2e 2e 22 0a 31 30 30 30 |G JAPAN.|..".1000|
|00000620| 20 52 45 53 54 4f 52 45 | 3a 4d 50 3d 30 3a 46 4f | RESTORE|:MP=0:FO|
|00000630| 52 49 3d 30 54 4f 34 3a | 46 4f 52 4a 3d 30 54 4f |RI=0TO4:|FORJ=0TO|
|00000640| 34 0a 31 30 31 30 20 52 | 45 41 44 41 2c 50 4f 3a |4.1010 R|EADA,PO:|
|00000650| 50 4c 3d 30 3a 53 48 3d | 30 3a 49 46 50 4f 3e 30 |PL=0:SH=|0:IFPO>0|
|00000660| 54 48 45 4e 50 4f 3d 49 | 4e 54 28 31 45 37 2f 50 |THENPO=I|NT(1E7/P|
|00000670| 4f 2b 2e 35 29 0a 31 30 | 32 30 20 49 46 50 4f 3e |O+.5).10|20 IFPO>|
|00000680| 30 54 48 45 4e 50 4c 3d | 49 4e 54 28 52 4e 44 28 |0THENPL=|INT(RND(|
|00000690| 31 29 2a 31 30 30 29 2b | 31 3a 54 52 3d 49 4e 54 |1)*100)+|1:TR=INT|
|000006a0| 28 50 4f 2f 38 30 29 0a | 31 30 33 30 20 49 46 50 |(PO/80).|1030 IFP|
|000006b0| 4f 3d 30 54 48 45 4e 53 | 48 3d 49 4e 54 28 52 4e |O=0THENS|H=INT(RN|
|000006c0| 44 28 31 29 2a 36 29 2b | 31 3a 54 52 3d 53 48 2a |D(1)*6)+|1:TR=SH*|
|000006d0| 33 35 30 0a 31 30 33 35 | 20 49 46 50 4c 3e 4d 50 |350.1035| IFPL>MP|
|000006e0| 54 48 45 4e 4d 50 3d 50 | 4c 0a 31 30 34 30 20 50 |THENMP=P|L.1040 P|
|000006f0| 4c 28 49 2c 4a 29 3d 50 | 4c 3a 53 48 28 49 2c 4a |L(I,J)=P|L:SH(I,J|
|00000700| 29 3d 53 48 3a 50 4f 28 | 49 2c 4a 29 3d 50 4f 3a |)=SH:PO(|I,J)=PO:|
|00000710| 54 52 28 49 2c 4a 29 3d | 54 52 3a 4c 4e 28 49 2c |TR(I,J)=|TR:LN(I,|
|00000720| 4a 29 3d 28 50 4f 3e 30 | 29 0a 31 30 34 35 20 4e |J)=(PO>0|).1045 N|
|00000730| 45 58 54 4a 2c 49 0a 31 | 30 35 30 20 44 41 54 41 |EXTJ,I.1|050 DATA|
|00000740| 38 33 2c 30 2c 38 37 2c | 30 2c 39 32 2c 30 2c 39 |83,0,87,|0,92,0,9|
|00000750| 37 2c 31 2c 31 30 32 2c | 30 0a 31 30 36 30 20 44 |7,1,102,|0.1060 D|
|00000760| 41 54 41 32 38 33 2c 30 | 2c 32 38 37 2c 30 2c 32 |ATA283,0|,287,0,2|
|00000770| 39 31 2c 30 2c 32 35 36 | 2c 31 2c 33 30 31 2c 31 |91,0,256|,1,301,1|
|00000780| 0a 31 30 37 30 20 44 41 | 54 41 34 38 33 2c 30 2c |.1070 DA|TA483,0,|
|00000790| 34 38 37 2c 30 2c 34 39 | 32 2c 30 2c 34 35 36 2c |487,0,49|2,0,456,|
|000007a0| 31 2c 35 30 31 2c 30 0a | 31 30 38 30 20 44 41 54 |1,501,0.|1080 DAT|
|000007b0| 41 36 38 33 2c 30 2c 36 | 38 37 2c 31 2e 35 2c 36 |A683,0,6|87,1.5,6|
|000007c0| 39 31 2c 31 2c 36 35 35 | 2c 2e 34 2c 37 30 31 2c |91,1,655|,.4,701,|
|000007d0| 30 0a 31 30 39 30 20 44 | 41 54 41 38 34 34 2c 31 |0.1090 D|ATA844,1|
|000007e0| 2c 38 30 36 2c 31 2c 38 | 35 31 2c 30 2c 38 35 36 |,806,1,8|51,0,856|
|000007f0| 2c 30 2c 38 36 31 2c 30 | 0a 31 34 30 30 20 50 52 |,0,861,0|.1400 PR|
|00000800| 49 4e 54 22 93 97 22 3b | 0a 31 34 31 30 20 46 4f |INT"..";|.1410 FO|
|00000810| 52 49 3d 31 54 4f 35 0a | 31 34 32 30 20 4e 3d 35 |RI=1TO5.|1420 N=5|
|00000820| 3a 49 46 49 3e 31 54 48 | 45 4e 4e 3d 34 3a 46 4f |:IFI>1TH|ENN=4:FO|
|00000830| 52 4a 3d 31 54 4f 35 3a | 50 52 49 4e 54 22 b7 b7 |RJ=1TO5:|PRINT"..|
|00000840| b7 b7 d0 22 3b 3a 4e 45 | 58 54 4a 3a 50 52 49 4e |...";:NE|XTJ:PRIN|
|00000850| 54 0a 31 34 33 30 20 46 | 4f 52 4a 3d 31 54 4f 4e |T.1430 F|ORJ=1TON|
|00000860| 3a 46 4f 52 4b 3d 31 54 | 4f 35 3a 50 52 49 4e 54 |:FORK=1T|O5:PRINT|
|00000870| 22 20 20 20 20 aa 22 3b | 3a 4e 45 58 54 4b 3a 49 |"    .";|:NEXTK:I|
|00000880| 46 4a 3c 4e 4f 52 49 3c | 35 54 48 45 4e 50 52 49 |FJ<NORI<|5THENPRI|
|00000890| 4e 54 0a 31 34 34 30 20 | 4e 45 58 54 4a 2c 49 3a |NT.1440 |NEXTJ,I:|
|000008a0| 50 52 49 4e 54 22 13 22 | 0a 31 35 30 30 20 50 52 |PRINT"."|.1500 PR|
|000008b0| 49 4e 54 22 13 97 11 11 | 22 0a 31 35 31 30 20 46 |INT"....|".1510 F|
|000008c0| 4f 52 49 3d 31 54 4f 32 | 30 3a 52 45 41 44 54 2c |ORI=1TO2|0:READT,|
|000008d0| 54 24 3a 50 52 49 4e 54 | 53 50 43 28 54 29 3b 54 |T$:PRINT|SPC(T);T|
|000008e0| 24 3a 4e 45 58 54 3a 50 | 4f 4b 45 56 49 43 2b 33 |$:NEXT:P|OKEVIC+3|
|000008f0| 2c 31 38 36 0a 31 35 32 | 30 20 44 41 54 41 31 37 |,186.152|0 DATA17|
|00000900| 2c 22 12 20 df 22 2c 31 | 37 2c 22 12 20 20 22 2c |,". .",1|7,".  ",|
|00000910| 31 37 2c 22 12 20 20 20 | 20 92 b5 22 2c 31 36 2c |17,".   | ..",16,|
|00000920| 22 12 a9 20 20 20 20 92 | df 22 2c 31 35 2c 22 12 |"..    .|.",15,".|
|00000930| a9 92 b8 b8 df a9 22 2c | 31 35 2c 22 df 12 df 11 |......",|15,"....|
|00000940| 22 0a 31 35 33 30 20 44 | 41 54 41 31 36 2c 22 12 |".1530 D|ATA16,".|
|00000950| 20 df 22 2c 31 36 2c 22 | 12 20 20 22 2c 31 36 2c | .",16,"|.  ",16,|
|00000960| 22 12 20 20 22 2c 31 35 | 2c 22 12 a9 20 92 a9 22 |".  ",15|,".. .."|
|00000970| 2c 31 34 2c 22 12 a9 20 | 20 22 2c 31 33 2c 22 12 |,14,".. | ",13,".|
|00000980| a9 20 20 20 22 0a 31 35 | 34 30 20 44 41 54 41 31 |.   ".15|40 DATA1|
|00000990| 31 2c 22 12 20 20 20 20 | 20 92 a9 22 2c 31 31 2c |1,".    | ..",11,|
|000009a0| 22 12 20 20 20 20 d1 22 | 2c 36 2c 22 12 a9 20 20 |".    ."|,6,"..  |
|000009b0| 20 20 20 20 20 20 20 22 | 2c 34 2c 22 12 df 20 20 |       "|,4,"..  |
|000009c0| 92 a9 b8 12 20 20 92 b8 | b8 b8 a9 22 0a 31 35 35 |....  ..|...".155|
|000009d0| 30 20 44 41 54 41 37 2c | 22 12 a9 92 20 12 20 92 |0 DATA7,|"... . .|
|000009e0| a9 22 2c 33 2c 22 12 20 | 20 92 20 12 a9 22 2c 34 |.",3,". | . ..",4|
|000009f0| 2c 22 12 20 22 2c 34 2c | 22 a9 22 0a 31 36 31 30 |,". ",4,|".".1610|
|00000a00| 20 50 52 49 4e 54 43 32 | 24 3b 22 90 22 3a 47 4f | PRINTC2|$;".":GO|
|00000a10| 53 55 42 39 30 30 30 3a | 50 52 49 4e 54 0a 31 36 |SUB9000:|PRINT.16|
|00000a20| 32 30 20 46 4f 52 49 3d | 30 54 4f 37 3a 52 45 41 |20 FORI=|0TO7:REA|
|00000a30| 44 5a 24 3a 50 52 49 4e | 54 54 41 42 28 32 36 29 |DZ$:PRIN|TTAB(26)|
|00000a40| 3b 22 9e 22 3b 43 48 52 | 24 28 34 39 2b 49 29 3b |;".";CHR|$(49+I);|
|00000a50| 22 9c 3a 22 3b 5a 24 3a | 4e 45 58 54 0a 31 36 33 |".:";Z$:|NEXT.163|
|00000a60| 30 20 44 41 54 41 4c 41 | 4e 44 20 41 54 54 41 43 |0 DATALA|ND ATTAC|
|00000a70| 4b 2c 53 45 41 20 41 54 | 54 41 43 4b 2c 41 49 52 |K,SEA AT|TACK,AIR|
|00000a80| 20 41 54 54 41 43 4b 2c | 4d 4f 56 45 20 54 52 4f | ATTACK,|MOVE TRO|
|00000a90| 4f 50 53 2c 4d 4f 56 45 | 20 53 48 49 50 0a 31 36 |OPS,MOVE| SHIP.16|
|00000aa0| 34 30 20 44 41 54 41 4d | 49 53 53 49 4c 45 2c 41 |40 DATAM|ISSILE,A|
|00000ab0| 54 4f 4d 20 42 4f 4d 42 | 2c 51 55 49 54 0a 31 37 |TOM BOMB|,QUIT.17|
|00000ac0| 30 30 20 47 44 3d 32 35 | 30 30 3a 4e 4d 3d 31 30 |00 GD=25|00:NM=10|
|00000ad0| 3a 41 42 3d 30 3a 54 4b | 3d 30 0a 31 39 30 30 20 |:AB=0:TK|=0.1900 |
|00000ae0| 52 31 3d 30 3a 43 31 3d | 30 0a 32 30 30 30 20 47 |R1=0:C1=|0.2000 G|
|00000af0| 4f 53 55 42 38 32 30 30 | 3a 49 46 53 47 54 48 45 |OSUB8200|:IFSGTHE|
|00000b00| 4e 4f 4e 53 47 47 4f 54 | 4f 36 39 30 30 2c 36 38 |NONSGGOT|O6900,68|
|00000b10| 35 30 0a 32 30 30 35 20 | 47 45 54 54 24 3a 49 46 |50.2005 |GETT$:IF|
|00000b20| 54 24 3c 3e 22 22 54 48 | 45 4e 32 30 30 35 0a 32 |T$<>""TH|EN2005.2|
|00000b30| 30 30 37 20 43 53 24 3d | 43 31 24 3a 43 53 3d 36 |007 CS$=|C1$:CS=6|
|00000b40| 3a 47 4f 53 55 42 38 30 | 30 30 3a 52 31 3d 52 3a |:GOSUB80|00:R1=R:|
|00000b50| 43 31 3d 43 0a 32 30 31 | 30 20 49 46 43 24 3d 22 |C1=C.201|0 IFC$="|
|00000b60| 22 4f 52 43 24 3d 43 48 | 52 24 28 31 33 29 54 48 |"ORC$=CH|R$(13)TH|
|00000b70| 45 4e 32 30 30 35 0a 32 | 30 31 35 20 49 46 20 43 |EN2005.2|015 IF C|
|00000b80| 24 3d 22 51 22 54 48 45 | 4e 43 24 3d 22 38 22 0a |$="Q"THE|NC$="8".|
|00000b90| 32 30 32 30 20 49 46 43 | 24 3c 22 31 22 4f 52 43 |2020 IFC|$<"1"ORC|
|00000ba0| 24 3e 22 38 22 54 48 45 | 4e 45 52 24 3d 22 48 55 |$>"8"THE|NER$="HU|
|00000bb0| 48 3f 22 3a 47 4f 53 55 | 42 37 39 30 30 3a 47 4f |H?":GOSU|B7900:GO|
|00000bc0| 54 4f 32 30 30 30 0a 32 | 30 32 35 20 54 44 3d 30 |TO2000.2|025 TD=0|
|00000bd0| 3a 53 44 3d 30 3a 41 44 | 3d 30 3a 50 44 3d 30 3a |:SD=0:AD|=0:PD=0:|
|00000be0| 41 52 3d 47 52 3a 41 43 | 3d 47 43 0a 32 30 33 30 |AR=GR:AC|=GC.2030|
|00000bf0| 20 4f 4e 41 53 43 28 43 | 24 29 2d 41 53 43 28 22 | ONASC(C|$)-ASC("|
|00000c00| 31 22 29 2b 31 47 4f 54 | 4f 32 35 30 30 2c 33 30 |1")+1GOT|O2500,30|
|00000c10| 30 30 2c 33 35 30 30 2c | 34 30 30 30 2c 34 35 30 |00,3500,|4000,450|
|00000c20| 30 2c 35 30 30 30 2c 35 | 35 30 30 2c 36 30 30 30 |0,5000,5|500,6000|
|00000c30| 0a 32 30 34 30 20 47 4f | 54 4f 32 30 30 30 0a 32 |.2040 GO|TO2000.2|
|00000c40| 30 35 30 20 43 53 24 3d | 43 32 24 3a 43 53 3d 34 |050 CS$=|C2$:CS=4|
|00000c50| 3a 47 4f 53 55 42 38 30 | 30 30 3a 52 32 3d 52 3a |:GOSUB80|00:R2=R:|
|00000c60| 43 32 3d 43 0a 32 30 36 | 30 20 50 4f 4b 45 56 49 |C2=C.206|0 POKEVI|
|00000c70| 43 2b 43 53 2b 31 2c 30 | 3a 50 52 49 4e 54 43 32 |C+CS+1,0|:PRINTC2|
|00000c80| 24 3b 22 90 22 3a 47 4f | 53 55 42 39 30 30 30 0a |$;".":GO|SUB9000.|
|00000c90| 32 30 37 30 20 47 4f 54 | 4f 32 30 30 30 0a 32 35 |2070 GOT|O2000.25|
|00000ca0| 30 30 20 49 46 4c 4e 28 | 41 52 2c 41 43 29 3d 30 |00 IFLN(|AR,AC)=0|
|00000cb0| 54 48 45 4e 45 52 24 3d | 22 4e 4f 54 20 4c 41 4e |THENER$=|"NOT LAN|
|00000cc0| 44 22 3a 47 4f 53 55 42 | 37 39 30 30 20 3a 47 4f |D":GOSUB|7900 :GO|
|00000cd0| 54 4f 32 30 30 30 0a 32 | 35 31 30 20 49 46 54 52 |TO2000.2|510 IFTR|
|00000ce0| 28 41 52 2c 41 43 29 3c | 3d 30 54 48 45 4e 45 52 |(AR,AC)<|=0THENER|
|00000cf0| 24 3d 22 4e 4f 20 54 52 | 4f 4f 50 53 22 3a 47 4f |$="NO TR|OOPS":GO|
|00000d00| 53 55 42 37 39 30 30 3a | 47 4f 54 4f 32 30 30 30 |SUB7900:|GOTO2000|
|00000d10| 0a 32 35 32 30 20 47 4f | 53 55 42 37 38 30 30 3a |.2520 GO|SUB7800:|
|00000d20| 49 46 49 4e 3d 30 54 48 | 45 4e 32 30 30 30 0a 32 |IFIN=0TH|EN2000.2|
|00000d30| 35 33 30 20 49 46 49 4e | 3e 54 52 28 41 52 2c 41 |530 IFIN|>TR(AR,A|
|00000d40| 43 29 54 48 45 4e 45 52 | 24 3d 22 54 4f 4f 20 4d |C)THENER|$="TOO M|
|00000d50| 41 4e 59 22 3a 47 4f 53 | 55 42 37 39 30 30 3a 47 |ANY":GOS|UB7900:G|
|00000d60| 4f 54 4f 32 30 30 30 0a | 32 35 34 30 20 54 44 3d |OTO2000.|2540 TD=|
|00000d70| 49 4e 54 28 52 4e 44 28 | 31 29 2a 49 4e 29 0a 32 |INT(RND(|1)*IN).2|
|00000d80| 35 35 30 20 44 4d 3d 31 | 2b 49 4e 54 28 49 4e 2f |550 DM=1|+INT(IN/|
|00000d90| 38 30 30 30 2b 52 4e 44 | 28 31 29 2a 33 29 3a 49 |8000+RND|(1)*3):I|
|00000da0| 46 44 4d 3e 37 54 48 45 | 4e 44 4d 3d 37 0a 32 35 |FDM>7THE|NDM=7.25|
|00000db0| 35 35 20 44 52 3d 49 4e | 2a 35 30 2f 31 32 35 30 |55 DR=IN|*50/1250|
|00000dc0| 30 30 3a 47 4f 53 55 42 | 32 37 30 30 0a 32 35 36 |00:GOSUB|2700.256|
|00000dd0| 30 20 47 4f 54 4f 36 35 | 30 30 0a 32 37 30 30 20 |0 GOTO65|00.2700 |
|00000de0| 46 4f 52 49 3d 53 49 44 | 54 4f 53 49 44 2b 31 34 |FORI=SID|TOSID+14|
|00000df0| 53 54 45 50 37 0a 32 37 | 31 30 20 50 4f 4b 45 49 |STEP7.27|10 POKEI|
|00000e00| 2c 30 3a 50 4f 4b 45 49 | 2b 31 2c 36 34 3a 50 4f |,0:POKEI|+1,64:PO|
|00000e10| 4b 45 49 2b 35 2c 30 3a | 50 4f 4b 45 49 2b 36 2c |KEI+5,0:|POKEI+6,|
|00000e20| 31 39 38 3a 4e 45 58 54 | 3a 4e 3d 34 0a 32 37 32 |198:NEXT|:N=4.272|
|00000e30| 30 20 46 4f 52 4a 3d 31 | 54 4f 44 52 0a 32 37 33 |0 FORJ=1|TODR.273|
|00000e40| 30 20 4f 3d 4e 3a 4e 3d | 4e 2b 37 3a 49 46 4e 3e |0 O=N:N=|N+7:IFN>|
|00000e50| 31 38 54 48 45 4e 4e 3d | 34 0a 32 37 34 30 20 50 |18THENN=|4.2740 P|
|00000e60| 4f 4b 45 53 49 44 2b 4e | 2c 31 32 39 0a 32 37 35 |OKESID+N|,129.275|
|00000e70| 30 20 46 4f 52 49 3d 31 | 54 4f 50 45 45 4b 28 53 |0 FORI=1|TOPEEK(S|
|00000e80| 49 44 2b 32 37 29 2f 34 | 3a 4e 45 58 54 0a 32 37 |ID+27)/4|:NEXT.27|
|00000e90| 36 30 20 50 4f 4b 45 53 | 49 44 2b 4f 2c 31 32 38 |60 POKES|ID+O,128|
|00000ea0| 0a 32 37 37 30 20 46 4f | 52 49 3d 31 54 4f 33 30 |.2770 FO|RI=1TO30|
|00000eb0| 3a 4e 45 58 54 0a 32 37 | 38 30 20 4e 45 58 54 4a |:NEXT.27|80 NEXTJ|
|00000ec0| 0a 32 38 30 30 20 46 4f | 52 4a 3d 31 54 4f 32 3a |.2800 FO|RJ=1TO2:|
|00000ed0| 4f 3d 4e 3a 4e 3d 4e 2b | 37 3a 49 46 4e 3e 31 38 |O=N:N=N+|7:IFN>18|
|00000ee0| 54 48 45 4e 4e 3d 34 0a | 32 38 31 30 20 50 4f 4b |THENN=4.|2810 POK|
|00000ef0| 45 53 49 44 2b 4f 2c 31 | 32 38 3a 50 4f 4b 45 53 |ESID+O,1|28:POKES|
|00000f00| 49 44 2b 4f 2b 32 2c 31 | 30 3a 50 4f 4b 45 53 49 |ID+O+2,1|0:POKESI|
|00000f10| 44 2b 4f 2c 31 32 39 3a | 50 4f 4b 45 53 49 44 2b |D+O,129:|POKESID+|
|00000f20| 4f 2c 31 32 38 0a 32 38 | 32 30 20 46 4f 52 49 3d |O,128.28|20 FORI=|
|00000f30| 31 54 4f 33 30 3a 4e 45 | 58 54 3a 4e 45 58 54 4a |1TO30:NE|XT:NEXTJ|
|00000f40| 0a 32 38 33 30 20 52 45 | 54 55 52 4e 0a 33 30 30 |.2830 RE|TURN.300|
|00000f50| 30 20 49 46 4c 4e 28 41 | 52 2c 41 43 29 54 48 45 |0 IFLN(A|R,AC)THE|
|00000f60| 4e 45 52 24 3d 22 4e 4f | 54 20 53 45 41 22 3a 47 |NER$="NO|T SEA":G|
|00000f70| 4f 53 55 42 37 39 30 30 | 3a 47 4f 54 4f 32 30 30 |OSUB7900|:GOTO200|
|00000f80| 30 0a 33 30 31 30 20 49 | 46 53 48 28 41 52 2c 41 |0.3010 I|FSH(AR,A|
|00000f90| 43 29 3c 3d 30 54 48 45 | 4e 45 52 24 3d 22 4e 4f |C)<=0THE|NER$="NO|
|00000fa0| 20 53 48 49 50 53 22 3a | 47 4f 53 55 42 37 39 30 | SHIPS":|GOSUB790|
|00000fb0| 30 3a 47 4f 54 4f 32 30 | 30 30 0a 33 30 32 30 20 |0:GOTO20|00.3020 |
|00000fc0| 49 46 54 52 28 41 52 2c | 41 43 29 2f 53 48 28 41 |IFTR(AR,|AC)/SH(A|
|00000fd0| 52 2c 41 43 29 3c 31 30 | 30 54 48 45 4e 45 52 24 |R,AC)<10|0THENER$|
|00000fe0| 3d 22 54 4f 4f 20 46 45 | 57 20 4d 45 4e 22 3a 47 |="TOO FE|W MEN":G|
|00000ff0| 4f 53 55 42 37 39 30 30 | 3a 47 4f 54 4f 32 30 30 |OSUB7900|:GOTO200|
|00001000| 30 0a 33 30 33 30 20 44 | 4d 3d 53 48 28 41 52 2c |0.3030 D|M=SH(AR,|
|00001010| 41 43 29 2b 49 4e 54 28 | 52 4e 44 28 31 29 2a 34 |AC)+INT(|RND(1)*4|
|00001020| 29 3a 49 46 44 4d 3e 37 | 54 48 45 4e 44 4d 3d 37 |):IFDM>7|THENDM=7|
|00001030| 0a 33 30 34 30 20 54 44 | 3d 49 4e 54 28 52 4e 44 |.3040 TD|=INT(RND|
|00001040| 28 31 29 2a 54 52 28 41 | 52 2c 41 43 29 29 3a 53 |(1)*TR(A|R,AC)):S|
|00001050| 44 3d 49 4e 54 28 54 44 | 2f 33 30 30 29 0a 33 30 |D=INT(TD|/300).30|
|00001060| 35 30 20 49 46 53 44 3e | 3d 53 48 28 41 52 2c 41 |50 IFSD>|=SH(AR,A|
|00001070| 43 29 54 48 45 4e 53 44 | 3d 53 48 28 41 52 2c 41 |C)THENSD|=SH(AR,A|
|00001080| 43 29 3a 54 44 3d 54 52 | 28 41 52 2c 41 43 29 0a |C):TD=TR|(AR,AC).|
|00001090| 33 30 35 35 20 47 4f 53 | 55 42 33 32 30 30 0a 33 |3055 GOS|UB3200.3|
|000010a0| 30 36 30 20 47 4f 54 4f | 36 35 30 30 0a 33 32 30 |060 GOTO|6500.320|
|000010b0| 30 20 50 4f 4b 45 53 49 | 44 2b 30 2c 30 3a 50 4f |0 POKESI|D+0,0:PO|
|000010c0| 4b 45 53 49 44 2b 31 2c | 31 32 3a 50 4f 4b 45 53 |KESID+1,|12:POKES|
|000010d0| 49 44 2b 35 2c 32 38 3a | 50 4f 4b 45 53 49 44 2b |ID+5,28:|POKESID+|
|000010e0| 36 2c 32 35 32 3a 50 4f | 4b 45 53 49 44 2b 32 32 |6,252:PO|KESID+22|
|000010f0| 2c 31 31 30 0a 33 32 30 | 35 20 50 4f 4b 45 53 49 |,110.320|5 POKESI|
|00001100| 44 2b 32 34 2c 33 31 0a | 33 32 31 30 20 46 4f 52 |D+24,31.|3210 FOR|
|00001110| 4a 3d 31 54 4f 33 2b 52 | 4e 44 28 31 29 2a 53 48 |J=1TO3+R|ND(1)*SH|
|00001120| 28 41 52 2c 41 43 29 2a | 32 0a 33 32 32 30 20 50 |(AR,AC)*|2.3220 P|
|00001130| 4f 4b 45 53 49 44 2b 32 | 33 2c 31 3a 50 4f 4b 45 |OKESID+2|3,1:POKE|
|00001140| 53 49 44 2b 34 2c 31 32 | 39 0a 33 32 33 30 20 46 |SID+4,12|9.3230 F|
|00001150| 4f 52 49 3d 31 54 4f 32 | 30 30 3a 4e 45 58 54 49 |ORI=1TO2|00:NEXTI|
|00001160| 3a 50 4f 4b 45 53 49 44 | 2b 34 2c 31 32 38 0a 33 |:POKESID|+4,128.3|
|00001170| 32 34 30 20 46 4f 52 49 | 3d 31 54 4f 37 30 30 2a |240 FORI|=1TO700*|
|00001180| 52 4e 44 28 31 29 3a 4e | 45 58 54 0a 33 32 35 30 |RND(1):N|EXT.3250|
|00001190| 20 4e 45 58 54 4a 0a 33 | 32 36 30 20 52 45 54 55 | NEXTJ.3|260 RETU|
|000011a0| 52 4e 0a 33 35 30 30 20 | 41 52 3d 52 31 3a 41 43 |RN.3500 |AR=R1:AC|
|000011b0| 3d 43 31 0a 33 35 31 30 | 20 49 46 50 4c 28 41 52 |=C1.3510| IFPL(AR|
|000011c0| 2c 41 43 29 3c 31 54 48 | 45 4e 45 52 24 3d 22 4e |,AC)<1TH|ENER$="N|
|000011d0| 4f 20 50 4c 41 4d 45 53 | 22 3a 47 4f 53 55 42 37 |O PLAMES|":GOSUB7|
|000011e0| 39 30 30 3a 47 4f 54 4f | 32 30 30 30 0a 33 35 32 |900:GOTO|2000.352|
|000011f0| 30 20 49 46 41 42 53 28 | 47 52 2d 41 52 29 2b 41 |0 IFABS(|GR-AR)+A|
|00001200| 42 53 28 47 43 2d 41 43 | 29 3e 32 54 48 45 4e 45 |BS(GC-AC|)>2THENE|
|00001210| 52 24 3d 22 54 4f 4f 20 | 46 41 52 22 3a 47 4f 53 |R$="TOO |FAR":GOS|
|00001220| 55 42 37 39 30 30 3a 47 | 4f 54 4f 32 30 30 30 0a |UB7900:G|OTO2000.|
|00001230| 33 35 33 30 20 47 4f 53 | 55 42 37 38 30 30 3a 49 |3530 GOS|UB7800:I|
|00001240| 46 49 4e 3d 30 54 48 45 | 4e 32 30 30 30 0a 33 35 |FIN=0THE|N2000.35|
|00001250| 34 30 20 49 46 49 4e 3e | 50 4c 28 41 52 2c 41 43 |40 IFIN>|PL(AR,AC|
|00001260| 29 54 48 45 4e 45 52 24 | 3d 22 54 4f 4f 20 4d 41 |)THENER$|="TOO MA|
|00001270| 4e 59 22 3a 47 4f 53 55 | 42 37 39 30 30 3a 47 4f |NY":GOSU|B7900:GO|
|00001280| 54 4f 32 30 30 30 0a 33 | 35 35 30 20 44 4d 3d 49 |TO2000.3|550 DM=I|
|00001290| 4e 54 28 49 4e 2a 52 4e | 44 28 31 29 2f 33 29 2b |NT(IN*RN|D(1)/3)+|
|000012a0| 31 3a 49 46 44 4d 3e 39 | 54 48 45 4e 44 4d 3d 39 |1:IFDM>9|THENDM=9|
|000012b0| 0a 33 35 36 30 20 41 44 | 3d 49 4e 54 28 49 4e 2a |.3560 AD|=INT(IN*|
|000012c0| 52 4e 44 28 31 29 29 3a | 47 4f 53 55 42 33 37 30 |RND(1)):|GOSUB370|
|000012d0| 30 3a 47 4f 54 4f 36 35 | 30 30 0a 33 37 30 30 20 |0:GOTO65|00.3700 |
|000012e0| 50 4f 4b 45 53 49 44 2c | 33 32 3a 50 4f 4b 45 53 |POKESID,|32:POKES|
|000012f0| 49 44 2b 31 2c 31 3a 50 | 4f 4b 45 53 49 44 2b 32 |ID+1,1:P|OKESID+2|
|00001300| 2c 36 34 0a 33 37 30 35 | 20 50 4f 4b 45 53 49 44 |,64.3705| POKESID|
|00001310| 2b 33 2c 30 3a 50 4f 4b | 45 53 49 44 2b 35 2c 30 |+3,0:POK|ESID+5,0|
|00001320| 3a 50 4f 4b 45 53 49 44 | 2b 36 2c 32 34 30 0a 33 |:POKESID|+6,240.3|
|00001330| 37 31 30 20 46 4f 52 41 | 3d 53 49 44 2b 37 54 4f |710 FORA|=SID+7TO|
|00001340| 53 49 44 2b 31 34 53 54 | 45 50 37 3a 50 4f 4b 45 |SID+14ST|EP7:POKE|
|00001350| 41 2c 30 3a 50 4f 4b 45 | 41 2b 31 2c 34 3a 50 4f |A,0:POKE|A+1,4:PO|
|00001360| 4b 45 41 2b 32 2c 30 3a | 50 4f 4b 45 41 2b 33 2c |KEA+2,0:|POKEA+3,|
|00001370| 31 0a 33 37 32 30 20 50 | 4f 4b 45 41 2b 35 2c 30 |1.3720 P|OKEA+5,0|
|00001380| 3a 50 4f 4b 45 41 2b 36 | 2c 37 33 3a 4e 45 58 54 |:POKEA+6|,73:NEXT|
|00001390| 41 3a 50 4f 4b 45 53 49 | 44 2b 31 34 2c 31 36 3a |A:POKESI|D+14,16:|
|000013a0| 50 4f 4b 45 53 49 44 2b | 32 33 2c 30 3a 50 4f 4b |POKESID+|23,0:POK|
|000013b0| 45 53 49 44 2b 32 34 2c | 31 35 0a 33 37 33 30 20 |ESID+24,|15.3730 |
|000013c0| 50 4f 4b 45 53 49 44 2b | 31 31 2c 36 35 3a 50 4f |POKESID+|11,65:PO|
|000013d0| 4b 45 53 49 44 2b 31 38 | 2c 36 39 0a 33 37 34 30 |KESID+18|,69.3740|
|000013e0| 20 46 4f 52 49 3d 31 54 | 4f 33 2b 52 4e 44 28 31 | FORI=1T|O3+RND(1|
|000013f0| 29 2a 49 4e 2f 4d 50 2a | 35 0a 33 37 35 30 20 50 |)*IN/MP*|5.3750 P|
|00001400| 4f 4b 45 53 49 44 2b 34 | 2c 36 34 3a 46 4f 52 4a |OKESID+4|,64:FORJ|
|00001410| 3d 30 54 4f 52 4e 44 28 | 31 29 2a 33 30 30 3a 4e |=0TORND(|1)*300:N|
|00001420| 45 58 54 4a 0a 33 37 36 | 30 20 50 4f 4b 45 53 49 |EXTJ.376|0 POKESI|
|00001430| 44 2b 34 2c 36 35 3a 46 | 4f 52 4a 3d 30 54 4f 32 |D+4,65:F|ORJ=0TO2|
|00001440| 30 30 2b 52 4e 44 28 31 | 29 2a 35 30 30 3a 4e 45 |00+RND(1|)*500:NE|
|00001450| 58 54 4a 0a 33 37 37 30 | 20 4e 45 58 54 49 3a 50 |XTJ.3770| NEXTI:P|
|00001460| 4f 4b 45 53 49 44 2b 34 | 2c 36 34 3a 50 4f 4b 45 |OKESID+4|,64:POKE|
|00001470| 53 49 44 2b 31 31 2c 36 | 34 3a 50 4f 4b 45 53 49 |SID+11,6|4:POKESI|
|00001480| 44 2b 31 38 2c 36 34 0a | 33 37 38 30 20 52 45 54 |D+18,64.|3780 RET|
|00001490| 55 52 4e 0a 34 30 30 30 | 20 49 46 4c 4e 28 52 31 |URN.4000| IFLN(R1|
|000014a0| 2c 43 31 29 3d 30 54 48 | 45 4e 45 52 24 3d 22 4e |,C1)=0TH|ENER$="N|
|000014b0| 4f 54 20 4c 41 4e 44 22 | 3a 47 4f 53 55 42 37 39 |OT LAND"|:GOSUB79|
|000014c0| 30 30 3a 47 4f 54 4f 32 | 30 30 30 0a 34 30 31 30 |00:GOTO2|000.4010|
|000014d0| 20 49 46 54 52 28 52 31 | 2c 43 31 29 3d 30 54 48 | IFTR(R1|,C1)=0TH|
|000014e0| 45 4e 45 52 24 3d 22 4e | 4f 20 54 52 4f 4f 50 53 |ENER$="N|O TROOPS|
|000014f0| 22 3a 47 4f 53 55 42 37 | 39 30 30 3a 47 4f 54 4f |":GOSUB7|900:GOTO|
|00001500| 32 30 30 30 0a 34 30 32 | 30 20 47 4f 53 55 42 37 |2000.402|0 GOSUB7|
|00001510| 38 30 30 3a 49 46 49 4e | 3d 30 54 48 45 4e 34 31 |800:IFIN|=0THEN41|
|00001520| 32 30 0a 34 30 33 30 20 | 49 46 49 4e 3e 54 52 28 |20.4030 |IFIN>TR(|
|00001530| 52 31 2c 43 31 29 54 48 | 45 4e 45 52 24 3d 22 54 |R1,C1)TH|ENER$="T|
|00001540| 4f 4f 20 4d 41 4e 59 22 | 3a 47 4f 53 55 42 37 39 |OO MANY"|:GOSUB79|
|00001550| 30 30 3a 47 4f 54 4f 34 | 31 32 30 0a 34 30 33 35 |00:GOTO4|120.4035|
|00001560| 20 50 52 49 4e 54 44 4e | 24 3b 54 41 42 28 32 36 | PRINTDN|$;TAB(26|
|00001570| 29 3b 22 4d 4f 56 49 4e | 47 22 3b 53 54 52 24 28 |);"MOVIN|G";STR$(|
|00001580| 49 4e 29 0a 34 30 34 30 | 20 50 52 49 4e 54 54 41 |IN).4040| PRINTTA|
|00001590| 42 28 32 36 29 3b 22 11 | 96 57 48 45 52 45 20 54 |B(26);".|.WHERE T|
|000015a0| 4f 3f 22 0a 34 30 35 30 | 20 43 53 3d 34 3a 43 53 |O?".4050| CS=4:CS|
|000015b0| 24 3d 43 32 24 3a 47 4f | 53 55 42 38 30 30 30 3a |$=C2$:GO|SUB8000:|
|000015c0| 50 52 49 4e 54 44 4e 24 | 3b 22 11 11 22 3b 54 41 |PRINTDN$|;"..";TA|
|000015d0| 42 28 32 36 29 3b 42 4c | 24 0a 34 30 35 35 20 52 |B(26);BL|$.4055 R|
|000015e0| 32 3d 52 3a 43 32 3d 43 | 3a 49 46 43 24 3c 3e 22 |2=R:C2=C|:IFC$<>"|
|000015f0| 22 54 48 45 4e 34 31 32 | 30 0a 34 30 36 30 20 49 |"THEN412|0.4060 I|
|00001600| 46 52 31 3d 52 32 41 4e | 44 43 31 3d 43 32 54 48 |FR1=R2AN|DC1=C2TH|
|00001610| 45 4e 34 31 32 30 0a 34 | 30 36 35 20 49 46 41 42 |EN4120.4|065 IFAB|
|00001620| 53 28 52 31 2d 52 32 29 | 2b 41 42 53 28 43 31 2d |S(R1-R2)|+ABS(C1-|
|00001630| 43 32 29 3e 32 54 48 45 | 4e 45 52 24 3d 22 54 4f |C2)>2THE|NER$="TO|
|00001640| 4f 20 46 41 52 22 3a 47 | 4f 53 55 42 37 39 30 30 |O FAR":G|OSUB7900|
|00001650| 3a 47 4f 54 4f 34 31 32 | 30 0a 34 30 37 30 20 49 |:GOTO412|0.4070 I|
|00001660| 46 4c 4e 28 52 32 2c 43 | 32 29 3d 30 54 48 45 4e |FLN(R2,C|2)=0THEN|
|00001670| 45 52 24 3d 22 4e 4f 54 | 20 4c 41 4e 44 22 3a 47 |ER$="NOT| LAND":G|
|00001680| 4f 53 55 42 37 39 30 30 | 3a 47 4f 54 4f 34 31 32 |OSUB7900|:GOTO412|
|00001690| 30 0a 34 30 38 30 20 54 | 52 28 52 32 2c 43 32 29 |0.4080 T|R(R2,C2)|
|000016a0| 3d 54 52 28 52 32 2c 43 | 32 29 2b 49 4e 3a 54 52 |=TR(R2,C|2)+IN:TR|
|000016b0| 28 52 31 2c 43 31 29 3d | 54 52 28 52 31 2c 43 31 |(R1,C1)=|TR(R1,C1|
|000016c0| 29 2d 49 4e 0a 34 30 39 | 30 20 52 3d 52 31 3a 43 |)-IN.409|0 R=R1:C|
|000016d0| 3d 43 31 3a 50 52 49 4e | 54 43 31 24 3a 47 4f 53 |=C1:PRIN|TC1$:GOS|
|000016e0| 55 42 39 30 30 30 0a 34 | 31 30 30 20 52 3d 52 32 |UB9000.4|100 R=R2|
|000016f0| 3a 43 3d 43 32 3a 50 52 | 49 4e 54 43 32 24 3a 47 |:C=C2:PR|INTC2$:G|
|00001700| 4f 53 55 42 39 30 30 30 | 0a 34 31 31 30 20 44 4c |OSUB9000|.4110 DL|
|00001710| 3d 36 30 3a 47 4f 53 55 | 42 37 39 35 30 0a 34 31 |=60:GOSU|B7950.41|
|00001720| 32 30 20 50 4f 4b 45 56 | 49 43 2b 35 2c 30 3a 50 |20 POKEV|IC+5,0:P|
|00001730| 52 49 4e 54 43 32 24 3b | 22 90 22 3a 47 4f 53 55 |RINTC2$;|".":GOSU|
|00001740| 42 39 30 30 30 3a 50 52 | 49 4e 54 44 4e 24 3b 54 |B9000:PR|INTDN$;T|
|00001750| 41 42 28 32 36 29 3b 42 | 4c 24 0a 34 31 33 30 20 |AB(26);B|L$.4130 |
|00001760| 47 4f 54 4f 32 30 30 30 | 0a 34 35 30 30 20 49 46 |GOTO2000|.4500 IF|
|00001770| 4c 4e 28 52 31 2c 43 31 | 29 54 48 45 4e 45 52 24 |LN(R1,C1|)THENER$|
|00001780| 3d 22 4e 4f 54 20 53 45 | 41 22 3a 47 4f 53 55 42 |="NOT SE|A":GOSUB|
|00001790| 37 39 30 30 3a 47 4f 54 | 4f 32 30 30 30 0a 34 35 |7900:GOT|O2000.45|
|000017a0| 31 30 20 49 46 53 48 28 | 52 31 2c 43 31 29 3d 30 |10 IFSH(|R1,C1)=0|
|000017b0| 54 48 45 4e 45 52 24 3d | 22 4e 4f 20 53 48 49 50 |THENER$=|"NO SHIP|
|000017c0| 53 22 3a 47 4f 53 55 42 | 37 39 30 30 3a 47 4f 54 |S":GOSUB|7900:GOT|
|000017d0| 4f 32 30 30 30 0a 34 35 | 32 30 20 50 52 49 4e 54 |O2000.45|20 PRINT|
|000017e0| 44 4e 24 3b 54 41 42 28 | 32 36 29 3b 22 11 11 57 |DN$;TAB(|26);"..W|
|000017f0| 48 45 52 45 20 54 4f 3f | 22 0a 34 35 33 30 20 43 |HERE TO?|".4530 C|
|00001800| 53 3d 34 3a 43 53 24 3d | 43 32 24 3a 47 4f 53 55 |S=4:CS$=|C2$:GOSU|
|00001810| 42 38 30 30 30 3a 52 32 | 3d 52 3a 43 32 3d 43 3a |B8000:R2|=R:C2=C:|
|00001820| 50 52 49 4e 54 44 4e 24 | 3b 54 41 42 28 32 36 29 |PRINTDN$|;TAB(26)|
|00001830| 3b 22 11 11 22 3b 42 4c | 24 0a 34 35 34 30 20 49 |;"..";BL|$.4540 I|
|00001840| 46 43 24 3c 3e 22 22 54 | 48 45 4e 34 36 33 30 0a |FC$<>""T|HEN4630.|
|00001850| 34 35 35 30 20 49 46 4c | 4e 28 52 32 2c 43 32 29 |4550 IFL|N(R2,C2)|
|00001860| 54 48 45 4e 45 52 24 3d | 22 4e 4f 54 20 53 45 41 |THENER$=|"NOT SEA|
|00001870| 22 3a 47 4f 53 55 42 37 | 39 30 30 3a 47 4f 54 4f |":GOSUB7|900:GOTO|
|00001880| 34 36 33 30 0a 34 35 36 | 30 20 49 46 41 42 53 28 |4630.456|0 IFABS(|
|00001890| 52 31 2d 52 32 29 2b 41 | 42 53 28 43 31 2d 43 32 |R1-R2)+A|BS(C1-C2|
|000018a0| 29 3e 32 54 48 45 4e 45 | 52 24 3d 22 54 4f 4f 20 |)>2THENE|R$="TOO |
|000018b0| 46 41 52 22 3a 47 4f 53 | 55 42 37 39 30 30 3a 47 |FAR":GOS|UB7900:G|
|000018c0| 4f 54 4f 34 36 33 30 0a | 34 35 36 35 20 49 46 52 |OTO4630.|4565 IFR|
|000018d0| 31 3d 52 32 41 4e 44 43 | 31 3d 43 32 54 48 45 4e |1=R2ANDC|1=C2THEN|
|000018e0| 34 36 33 30 0a 34 35 37 | 30 20 54 3d 49 4e 54 28 |4630.457|0 T=INT(|
|000018f0| 54 52 28 52 31 2c 43 31 | 29 2f 53 48 28 52 31 2c |TR(R1,C1|)/SH(R1,|
|00001900| 43 31 29 29 0a 34 35 38 | 30 20 53 48 28 52 31 2c |C1)).458|0 SH(R1,|
|00001910| 43 31 29 3d 53 48 28 52 | 31 2c 43 31 29 2d 31 3a |C1)=SH(R|1,C1)-1:|
|00001920| 53 48 28 52 32 2c 43 32 | 29 3d 53 48 28 52 32 2c |SH(R2,C2|)=SH(R2,|
|00001930| 43 32 29 2b 31 0a 34 35 | 39 30 20 54 52 28 52 31 |C2)+1.45|90 TR(R1|
|00001940| 2c 43 31 29 3d 54 52 28 | 52 31 2c 43 31 29 2d 54 |,C1)=TR(|R1,C1)-T|
|00001950| 3a 54 52 28 52 32 2c 43 | 32 29 3d 54 52 28 52 32 |:TR(R2,C|2)=TR(R2|
|00001960| 2c 43 32 29 2b 54 0a 34 | 36 30 30 20 52 3d 52 31 |,C2)+T.4|600 R=R1|
|00001970| 3a 43 3d 43 31 3a 50 52 | 49 4e 54 43 31 24 3a 47 |:C=C1:PR|INTC1$:G|
|00001980| 4f 53 55 42 39 30 30 30 | 0a 34 36 31 30 20 52 3d |OSUB9000|.4610 R=|
|00001990| 52 32 3a 43 3d 43 32 3a | 50 52 49 4e 54 43 32 24 |R2:C=C2:|PRINTC2$|
|000019a0| 3a 47 4f 53 55 42 39 30 | 30 30 0a 34 36 32 30 20 |:GOSUB90|00.4620 |
|000019b0| 44 4c 3d 36 30 3a 47 4f | 53 55 42 37 39 35 30 0a |DL=60:GO|SUB7950.|
|000019c0| 34 36 33 30 20 50 4f 4b | 45 56 49 43 2b 35 2c 30 |4630 POK|EVIC+5,0|
|000019d0| 3a 50 52 49 4e 54 43 32 | 24 3b 22 90 22 3a 47 4f |:PRINTC2|$;".":GO|
|000019e0| 53 55 42 39 30 30 30 3a | 50 52 49 4e 54 44 4e 24 |SUB9000:|PRINTDN$|
|000019f0| 3b 54 41 42 28 32 36 29 | 3b 42 4c 24 0a 34 36 34 |;TAB(26)|;BL$.464|
|00001a00| 30 20 47 4f 54 4f 32 30 | 30 30 0a 35 30 30 30 20 |0 GOTO20|00.5000 |
|00001a10| 49 46 4e 4d 3c 31 54 48 | 45 4e 45 52 24 3d 22 4e |IFNM<1TH|ENER$="N|
|00001a20| 4f 20 4d 49 53 53 49 4c | 45 53 22 3a 47 4f 53 55 |O MISSIL|ES":GOSU|
|00001a30| 42 37 39 30 30 3a 47 4f | 54 4f 32 30 30 30 0a 35 |B7900:GO|TO2000.5|
|00001a40| 30 30 35 20 4e 4d 3d 4e | 4d 2d 31 3a 50 52 49 4e |005 NM=N|M-1:PRIN|
|00001a50| 54 44 4e 24 3b 54 41 42 | 28 32 36 29 22 4d 49 53 |TDN$;TAB|(26)"MIS|
|00001a60| 53 49 4c 45 22 3b 31 30 | 2d 4e 4d 3a 50 52 49 4e |SILE";10|-NM:PRIN|
|00001a70| 54 54 41 42 28 32 36 29 | 3b 22 4c 41 55 4e 43 48 |TTAB(26)|;"LAUNCH|
|00001a80| 45 44 22 0a 35 30 31 30 | 20 50 44 3d 49 4e 54 28 |ED".5010| PD=INT(|
|00001a90| 52 4e 44 28 31 29 2a 50 | 4f 28 41 52 2c 41 43 29 |RND(1)*P|O(AR,AC)|
|00001aa0| 29 0a 35 30 32 30 20 54 | 44 3d 49 4e 54 28 52 4e |).5020 T|D=INT(RN|
|00001ab0| 44 28 31 29 2a 54 52 28 | 41 52 2c 41 43 29 29 3a |D(1)*TR(|AR,AC)):|
|00001ac0| 49 46 4c 4e 28 41 52 2c | 41 43 29 54 48 45 4e 35 |IFLN(AR,|AC)THEN5|
|00001ad0| 30 34 30 0a 35 30 33 30 | 20 53 44 3d 49 4e 54 28 |040.5030| SD=INT(|
|00001ae0| 54 44 2f 33 35 30 29 3a | 49 46 53 44 3e 53 48 28 |TD/350):|IFSD>SH(|
|00001af0| 41 52 2c 41 43 29 54 48 | 45 4e 53 44 3d 53 48 28 |AR,AC)TH|ENSD=SH(|
|00001b00| 41 52 2c 41 43 29 3a 54 | 44 3d 54 52 28 41 52 2c |AR,AC):T|D=TR(AR,|
|00001b10| 41 43 29 0a 35 30 34 30 | 20 44 4d 3d 31 2b 49 4e |AC).5040| DM=1+IN|
|00001b20| 54 28 52 4e 44 28 31 29 | 2a 39 29 0a 35 30 35 30 |T(RND(1)|*9).5050|
|00001b30| 20 47 4f 53 55 42 35 33 | 30 30 0a 35 30 36 30 20 | GOSUB53|00.5060 |
|00001b40| 50 52 49 4e 54 44 4e 24 | 3b 54 41 42 28 32 36 29 |PRINTDN$|;TAB(26)|
|00001b50| 3b 42 4c 24 3a 50 52 49 | 4e 54 54 41 42 28 32 36 |;BL$:PRI|NTTAB(26|
|00001b60| 29 3b 42 4c 24 3a 47 4f | 54 4f 36 35 30 30 0a 35 |);BL$:GO|TO6500.5|
|00001b70| 33 30 30 20 50 4f 4b 45 | 53 49 44 2b 32 32 2c 31 |300 POKE|SID+22,1|
|00001b80| 31 30 3a 50 4f 4b 45 53 | 49 44 2b 31 2c 31 32 3a |10:POKES|ID+1,12:|
|00001b90| 50 4f 4b 45 53 49 44 2b | 36 2c 32 35 32 3a 50 4f |POKESID+|6,252:PO|
|00001ba0| 4b 45 53 49 44 2b 35 2c | 32 38 0a 35 33 31 30 20 |KESID+5,|28.5310 |
|00001bb0| 50 4f 4b 45 53 49 44 2b | 31 33 2c 37 36 3a 50 4f |POKESID+|13,76:PO|
|00001bc0| 4b 45 53 49 44 2b 32 34 | 2c 33 31 3a 50 4f 4b 45 |KESID+24|,31:POKE|
|00001bd0| 53 49 44 2b 31 31 2c 31 | 37 0a 35 33 32 30 20 50 |SID+11,1|7.5320 P|
|00001be0| 4f 4b 45 53 49 44 2b 31 | 31 2c 31 36 3a 46 4f 52 |OKESID+1|1,16:FOR|
|00001bf0| 49 3d 32 35 35 54 4f 35 | 35 53 54 45 50 2d 31 0a |I=255TO5|5STEP-1.|
|00001c00| 35 33 33 30 20 50 4f 4b | 45 53 49 44 2b 38 2c 49 |5330 POK|ESID+8,I|
|00001c10| 3a 50 4f 4b 45 53 49 44 | 2b 38 2c 49 3a 4e 45 58 |:POKESID|+8,I:NEX|
|00001c20| 54 0a 35 33 34 30 20 50 | 4f 4b 45 53 49 44 2b 31 |T.5340 P|OKESID+1|
|00001c30| 31 2c 30 3a 50 4f 4b 45 | 53 49 44 2b 32 33 2c 31 |1,0:POKE|SID+23,1|
|00001c40| 3a 50 4f 4b 45 53 49 44 | 2b 34 2c 31 32 39 0a 35 |:POKESID|+4,129.5|
|00001c50| 33 35 30 20 46 4f 52 49 | 3d 31 54 4f 32 30 30 3a |350 FORI|=1TO200:|
|00001c60| 4e 45 58 54 49 0a 35 33 | 36 30 20 50 4f 4b 45 53 |NEXTI.53|60 POKES|
|00001c70| 49 44 2b 34 2c 31 32 38 | 3a 52 45 54 55 52 4e 0a |ID+4,128|:RETURN.|
|00001c80| 35 35 30 30 20 49 46 41 | 42 54 48 45 4e 45 52 24 |5500 IFA|BTHENER$|
|00001c90| 3d 22 55 53 45 44 20 49 | 54 22 3a 47 4f 53 55 42 |="USED I|T":GOSUB|
|00001ca0| 37 39 30 30 3a 47 4f 54 | 4f 32 30 30 30 0a 35 35 |7900:GOT|O2000.55|
|00001cb0| 31 30 20 50 52 49 4e 54 | 44 4e 24 3b 54 41 42 28 |10 PRINT|DN$;TAB(|
|00001cc0| 32 36 29 3b 22 9c 52 45 | 41 4c 4c 59 3f 22 3a 50 |26);".RE|ALLY?":P|
|00001cd0| 52 49 4e 54 54 41 42 28 | 32 36 29 3b 22 3f 05 22 |RINTTAB(|26);"?."|
|00001ce0| 3b 3a 47 4f 53 55 42 36 | 30 30 30 30 0a 35 35 32 |;:GOSUB6|0000.552|
|00001cf0| 30 20 50 52 49 4e 54 44 | 4e 24 3b 54 41 42 28 32 |0 PRINTD|N$;TAB(2|
|00001d00| 36 29 3b 42 4c 24 3a 50 | 52 49 4e 54 54 41 42 28 |6);BL$:P|RINTTAB(|
|00001d10| 32 36 29 3b 42 4c 24 0a | 35 35 33 30 20 49 46 4c |26);BL$.|5530 IFL|
|00001d20| 45 46 54 24 28 49 4e 24 | 2c 31 29 3c 3e 22 59 22 |EFT$(IN$|,1)<>"Y"|
|00001d30| 54 48 45 4e 45 52 24 3d | 22 41 42 4f 52 54 45 44 |THENER$=|"ABORTED|
|00001d40| 22 3a 47 4f 53 55 42 37 | 39 30 30 3a 47 4f 54 4f |":GOSUB7|900:GOTO|
|00001d50| 32 30 30 30 0a 35 35 33 | 35 20 50 52 49 4e 54 44 |2000.553|5 PRINTD|
|00001d60| 4e 24 3b 54 41 42 28 32 | 36 29 3b 22 42 4f 4d 42 |N$;TAB(2|6);"BOMB|
|00001d70| 22 3a 50 52 49 4e 54 54 | 41 42 28 32 36 29 3b 22 |":PRINTT|AB(26);"|
|00001d80| 44 45 54 4f 4e 41 54 45 | 44 22 3a 47 4f 53 55 42 |DETONATE|D":GOSUB|
|00001d90| 35 37 30 30 0a 35 35 34 | 30 20 46 4f 52 52 3d 41 |5700.554|0 FORR=A|
|00001da0| 52 2d 31 54 4f 41 52 2b | 31 3a 49 46 52 3c 30 4f |R-1TOAR+|1:IFR<0O|
|00001db0| 52 52 3e 34 54 48 45 4e | 35 36 30 30 0a 35 35 35 |RR>4THEN|5600.555|
|00001dc0| 30 20 46 4f 52 43 3d 41 | 43 2d 31 54 4f 41 43 2b |0 FORC=A|C-1TOAC+|
|00001dd0| 31 3a 49 46 43 3c 30 4f | 52 43 3e 34 54 48 45 4e |1:IFC<0O|RC>4THEN|
|00001de0| 35 35 39 30 0a 35 35 36 | 30 20 50 52 49 4e 54 4c |5590.556|0 PRINTL|
|00001df0| 45 46 54 24 28 22 13 11 | 11 11 11 11 11 11 11 11 |EFT$("..|........|
|00001e00| 11 11 11 11 11 11 11 11 | 11 11 11 22 2c 31 2b 35 |........|...",1+5|
|00001e10| 2a 52 29 3b 54 41 42 28 | 35 2a 43 29 3b 22 1c 22 |*R);TAB(|5*C);"."|
|00001e20| 3b 0a 35 35 36 35 20 49 | 46 52 3d 33 41 4e 44 43 |;.5565 I|FR=3ANDC|
|00001e30| 3d 33 54 48 45 4e 50 4f | 4b 45 56 49 43 2b 33 2c |=3THENPO|KEVIC+3,|
|00001e40| 30 0a 35 35 37 30 20 46 | 4f 52 5a 3d 31 54 4f 35 |0.5570 F|ORZ=1TO5|
|00001e50| 3a 50 52 49 4e 54 22 d6 | d6 d6 d6 d6 9d 9d 9d 9d |:PRINT".|........|
|00001e60| 9d 22 3b 3a 49 46 5a 3c | 35 54 48 45 4e 50 52 49 |.";:IFZ<|5THENPRI|
|00001e70| 4e 54 22 11 22 3b 0a 35 | 35 38 30 20 4e 45 58 54 |NT".";.5|580 NEXT|
|00001e80| 5a 3a 50 52 49 4e 54 22 | 13 22 3a 54 44 3d 54 44 |Z:PRINT"|.":TD=TD|
|00001e90| 2b 54 52 28 52 2c 43 29 | 3a 50 44 3d 50 44 2b 50 |+TR(R,C)|:PD=PD+P|
|00001ea0| 4f 28 52 2c 43 29 0a 35 | 35 38 35 20 54 52 28 52 |O(R,C).5|585 TR(R|
|00001eb0| 2c 43 29 3d 30 3a 50 4f | 28 52 2c 43 29 3d 30 3a |,C)=0:PO|(R,C)=0:|
|00001ec0| 53 48 28 52 2c 43 29 3d | 30 3a 50 4c 28 52 2c 43 |SH(R,C)=|0:PL(R,C|
|00001ed0| 29 3d 30 0a 35 35 39 30 | 20 4e 45 58 54 43 0a 35 |)=0.5590| NEXTC.5|
|00001ee0| 36 30 30 20 4e 45 58 54 | 52 3a 52 3d 41 52 3a 43 |600 NEXT|R:R=AR:C|
|00001ef0| 3d 41 43 3a 41 42 3d 31 | 0a 35 36 30 35 20 50 52 |=AC:AB=1|.5605 PR|
|00001f00| 49 4e 54 44 4e 24 3b 54 | 41 42 28 32 36 29 3b 42 |INTDN$;T|AB(26);B|
|00001f10| 4c 24 3a 50 52 49 4e 54 | 54 41 42 28 32 36 29 3b |L$:PRINT|TAB(26);|
|00001f20| 42 4c 24 0a 35 36 31 30 | 20 44 4d 28 31 30 29 3d |BL$.5610| DM(10)=|
|00001f30| 49 4e 54 28 52 4e 44 28 | 31 29 2a 31 35 30 30 29 |INT(RND(|1)*1500)|
|00001f40| 2b 38 30 30 3a 44 4d 3d | 31 30 0a 35 36 32 30 20 |+800:DM=|10.5620 |
|00001f50| 54 52 28 41 52 2c 41 43 | 29 3d 54 44 3a 53 48 28 |TR(AR,AC|)=TD:SH(|
|00001f60| 41 52 2c 41 43 29 3d 53 | 44 3a 50 4c 28 41 52 2c |AR,AC)=S|D:PL(AR,|
|00001f70| 41 43 29 3d 41 44 3a 50 | 4f 28 41 52 2c 41 43 29 |AC)=AD:P|O(AR,AC)|
|00001f80| 3d 50 44 3a 47 4f 54 4f | 36 35 30 30 0a 35 37 30 |=PD:GOTO|6500.570|
|00001f90| 30 20 50 4f 4b 45 53 49 | 44 2b 32 34 2c 32 35 3a |0 POKESI|D+24,25:|
|00001fa0| 50 4f 4b 45 53 49 44 2b | 32 33 2c 31 3a 50 4f 4b |POKESID+|23,1:POK|
|00001fb0| 45 53 49 44 2b 31 2c 31 | 32 3a 50 4f 4b 45 53 49 |ESID+1,1|2:POKESI|
|00001fc0| 44 2b 36 2c 32 35 33 3a | 50 4f 4b 45 53 49 44 2b |D+6,253:|POKESID+|
|00001fd0| 35 2c 31 39 32 0a 35 37 | 31 30 20 50 4f 4b 45 53 |5,192.57|10 POKES|
|00001fe0| 49 44 2b 34 2c 31 32 39 | 3a 4e 3d 31 0a 35 37 31 |ID+4,129|:N=1.571|
|00001ff0| 35 20 50 4f 4b 45 56 49 | 43 2b 36 2c 32 34 2b 47 |5 POKEVI|C+6,24+G|
|00002000| 43 2a 34 30 3a 50 4f 4b | 45 56 49 43 2b 37 2c 35 |C*40:POK|EVIC+7,5|
|00002010| 30 2b 47 52 2a 34 30 3a | 50 4f 4b 45 56 49 43 2b |0+GR*40:|POKEVIC+|
|00002020| 32 37 2c 50 45 45 4b 28 | 56 49 43 2b 32 37 29 41 |27,PEEK(|VIC+27)A|
|00002030| 4e 44 4e 4f 54 38 0a 35 | 37 32 30 20 46 4f 52 49 |NDNOT8.5|720 FORI|
|00002040| 3d 37 30 54 4f 32 35 35 | 3a 50 4f 4b 45 53 49 44 |=70TO255|:POKESID|
|00002050| 2b 32 32 2c 49 0a 35 37 | 32 35 20 49 46 42 49 28 |+22,I.57|25 IFBI(|
|00002060| 4e 29 3d 49 54 48 45 4e | 50 4f 4b 45 56 49 43 2b |N)=ITHEN|POKEVIC+|
|00002070| 33 39 2c 42 47 28 4e 29 | 3a 50 4f 4b 45 56 49 43 |39,BG(N)|:POKEVIC|
|00002080| 2b 34 32 2c 42 53 28 4e | 29 3a 4e 3d 4e 2b 31 0a |+42,BS(N|):N=N+1.|
|00002090| 35 37 33 30 20 46 4f 52 | 4a 3d 31 54 4f 45 58 50 |5730 FOR|J=1TOEXP|
|000020a0| 28 28 32 35 35 2d 49 29 | 2f 33 34 29 2a 2e 37 3a |((255-I)|/34)*.7:|
|000020b0| 4e 45 58 54 0a 35 37 34 | 30 20 4e 45 58 54 49 3a |NEXT.574|0 NEXTI:|
|000020c0| 50 4f 4b 45 53 49 44 2b | 32 34 2c 37 39 3a 50 4f |POKESID+|24,79:PO|
|000020d0| 4b 45 53 49 44 2b 34 2c | 31 32 38 0a 35 37 35 30 |KESID+4,|128.5750|
|000020e0| 20 46 4f 52 49 3d 31 35 | 54 4f 32 30 30 3a 50 4f | FORI=15|TO200:PO|
|000020f0| 4b 45 53 49 44 2b 32 32 | 2c 49 0a 35 37 36 30 20 |KESID+22|,I.5760 |
|00002100| 49 46 42 49 28 4e 29 3c | 3e 49 54 48 45 4e 35 37 |IFBI(N)<|>ITHEN57|
|00002110| 37 30 0a 35 37 36 35 20 | 50 4f 4b 45 56 49 43 2b |70.5765 |POKEVIC+|
|00002120| 33 39 2c 42 47 28 4e 29 | 3a 4a 3d 42 53 28 4e 29 |39,BG(N)|:J=BS(N)|
|00002130| 3a 50 4f 4b 45 56 49 43 | 2b 34 32 2c 4a 3a 4e 3d |:POKEVIC|+42,J:N=|
|00002140| 4e 2b 31 3a 49 46 4a 3d | 31 36 54 48 45 4e 50 4f |N+1:IFJ=|16THENPO|
|00002150| 4b 45 56 49 43 2b 37 2c | 30 0a 35 37 37 30 20 46 |KEVIC+7,|0.5770 F|
|00002160| 4f 52 4a 3d 31 54 4f 31 | 30 3a 4e 45 58 54 3a 4e |ORJ=1TO1|0:NEXT:N|
|00002170| 45 58 54 49 0a 35 37 38 | 30 20 50 4f 4b 45 53 49 |EXTI.578|0 POKESI|
|00002180| 44 2b 34 2c 30 3a 50 4f | 4b 45 56 49 43 2b 34 32 |D+4,0:PO|KEVIC+42|
|00002190| 2c 36 3a 50 4f 4b 45 56 | 49 43 2b 32 37 2c 50 45 |,6:POKEV|IC+27,PE|
|000021a0| 45 4b 28 56 49 43 2b 32 | 37 29 4f 52 38 0a 35 37 |EK(VIC+2|7)OR8.57|
|000021b0| 39 30 20 50 4f 4b 45 56 | 49 43 2b 36 2c 32 34 2b |90 POKEV|IC+6,24+|
|000021c0| 43 31 2a 34 30 3a 50 4f | 4b 45 56 49 43 2b 37 2c |C1*40:PO|KEVIC+7,|
|000021d0| 35 30 2b 52 31 2a 34 30 | 3a 52 45 54 55 52 4e 0a |50+R1*40|:RETURN.|
|000021e0| 36 30 30 30 20 50 4f 4b | 45 56 49 43 2b 32 31 2c |6000 POK|EVIC+21,|
|000021f0| 30 3a 50 4f 4b 45 53 49 | 44 2b 32 34 2c 30 0a 36 |0:POKESI|D+24,0.6|
|00002200| 30 31 30 20 50 52 49 4e | 54 22 93 9a 22 3a 50 4f |010 PRIN|T"..":PO|
|00002210| 4b 45 56 49 43 2b 33 32 | 2c 31 34 3a 50 4f 4b 45 |KEVIC+32|,14:POKE|
|00002220| 56 49 43 2b 33 33 2c 36 | 0a 36 30 32 30 20 47 45 |VIC+33,6|.6020 GE|
|00002230| 54 54 24 3a 49 46 54 24 | 3c 3e 22 22 54 48 45 4e |TT$:IFT$|<>""THEN|
|00002240| 36 30 32 30 0a 36 30 33 | 30 20 45 4e 44 0a 36 35 |6020.603|0 END.65|
|00002250| 30 30 20 54 52 28 41 52 | 2c 41 43 29 3d 54 52 28 |00 TR(AR|,AC)=TR(|
|00002260| 41 52 2c 41 43 29 2d 54 | 44 3a 53 48 28 41 52 2c |AR,AC)-T|D:SH(AR,|
|00002270| 41 43 29 3d 53 48 28 41 | 52 2c 41 43 29 2d 53 44 |AC)=SH(A|R,AC)-SD|
|00002280| 3a 50 4c 28 41 52 2c 41 | 43 29 3d 50 4c 28 41 52 |:PL(AR,A|C)=PL(AR|
|00002290| 2c 41 43 29 2d 41 44 0a | 36 35 31 30 20 50 4f 28 |,AC)-AD.|6510 PO(|
|000022a0| 41 52 2c 41 43 29 3d 50 | 4f 28 41 52 2c 41 43 29 |AR,AC)=P|O(AR,AC)|
|000022b0| 2d 50 44 3a 47 44 3d 47 | 44 2d 44 4d 28 44 4d 29 |-PD:GD=G|D-DM(DM)|
|000022c0| 0a 36 35 32 30 20 50 52 | 49 4e 54 44 4e 24 3b 22 |.6520 PR|INTDN$;"|
|000022d0| 9a 22 3b 54 41 42 28 32 | 36 29 3b 44 4d 24 28 44 |.";TAB(2|6);DM$(D|
|000022e0| 4d 29 3b 22 20 44 41 4d | 41 47 45 22 3a 50 52 49 |M);" DAM|AGE":PRI|
|000022f0| 4e 54 54 41 42 28 32 36 | 29 3b 22 54 4f 20 47 4f |NTTAB(26|);"TO GO|
|00002300| 44 5a 49 4c 4c 41 99 22 | 0a 36 35 32 35 20 49 46 |DZILLA."|.6525 IF|
|00002310| 53 44 3e 30 54 48 45 4e | 50 52 49 4e 54 54 41 42 |SD>0THEN|PRINTTAB|
|00002320| 28 32 36 29 3b 22 9d 22 | 3b 53 44 3b 4c 45 46 54 |(26);"."|;SD;LEFT|
|00002330| 24 28 22 53 48 49 50 53 | 22 2c 35 2b 28 53 44 3d |$("SHIPS|",5+(SD=|
|00002340| 31 29 29 3b 22 20 53 55 | 4e 4b 22 0a 36 35 33 30 |1));" SU|NK".6530|
|00002350| 20 49 46 54 44 2b 50 44 | 3e 30 54 48 45 4e 50 52 | IFTD+PD|>0THENPR|
|00002360| 49 4e 54 54 41 42 28 32 | 36 29 3b 22 9d 22 3b 54 |INTTAB(2|6);".";T|
|00002370| 44 2b 50 44 3b 22 44 45 | 41 44 22 3a 54 4b 3d 54 |D+PD;"DE|AD":TK=T|
|00002380| 4b 2b 54 44 2b 50 44 0a | 36 35 33 35 20 49 46 41 |K+TD+PD.|6535 IFA|
|00002390| 44 3e 30 54 48 45 4e 50 | 52 49 4e 54 54 41 42 28 |D>0THENP|RINTTAB(|
|000023a0| 32 36 29 3b 22 9d 22 3b | 41 44 3b 22 44 45 53 54 |26);".";|AD;"DEST|
|000023b0| 52 4f 59 45 44 22 0a 36 | 35 34 35 20 49 46 41 52 |ROYED".6|545 IFAR|
|000023c0| 3d 52 31 41 4e 44 41 43 | 3d 43 31 54 48 45 4e 50 |=R1ANDAC|=C1THENP|
|000023d0| 52 49 4e 54 43 31 24 3a | 47 4f 53 55 42 39 30 30 |RINTC1$:|GOSUB900|
|000023e0| 30 0a 36 35 35 30 20 44 | 4c 3d 33 30 30 3a 47 4f |0.6550 D|L=300:GO|
|000023f0| 53 55 42 37 39 35 30 3a | 50 52 49 4e 54 44 4e 24 |SUB7950:|PRINTDN$|
|00002400| 3b 0a 36 35 36 30 20 46 | 4f 52 5a 3d 31 54 4f 34 |;.6560 F|ORZ=1TO4|
|00002410| 3a 50 52 49 4e 54 54 41 | 42 28 32 36 29 3b 42 4c |:PRINTTA|B(26);BL|
|00002420| 24 3a 4e 45 58 54 0a 36 | 35 36 35 20 49 46 50 4f |$:NEXT.6|565 IFPO|
|00002430| 28 33 2c 33 29 3c 32 35 | 30 30 30 54 48 45 4e 36 |(3,3)<25|000THEN6|
|00002440| 39 30 30 0a 36 35 37 30 | 20 49 46 54 4b 3e 32 45 |900.6570| IFTK>2E|
|00002450| 37 54 48 45 4e 36 38 35 | 30 0a 36 35 37 35 20 49 |7THEN685|0.6575 I|
|00002460| 46 47 44 3c 31 54 48 45 | 4e 36 38 30 30 0a 36 35 |FGD<1THE|N6800.65|
|00002470| 38 30 20 49 46 44 4d 3c | 3e 37 41 4e 44 44 4d 3c |80 IFDM<|>7ANDDM<|
|00002480| 3e 38 54 48 45 4e 32 30 | 30 30 0a 36 35 38 35 20 |>8THEN20|00.6585 |
|00002490| 47 4f 53 55 42 38 32 30 | 30 3a 49 46 53 47 54 48 |GOSUB820|0:IFSGTH|
|000024a0| 45 4e 4f 4e 53 47 47 4f | 54 4f 36 39 30 30 2c 36 |ENONSGGO|TO6900,6|
|000024b0| 38 35 30 0a 36 35 39 30 | 20 50 52 49 4e 54 44 4e |850.6590| PRINTDN|
|000024c0| 24 3b 54 41 42 28 32 36 | 29 3b 22 1c 47 4f 44 5a |$;TAB(26|);".GODZ|
|000024d0| 49 4c 4c 41 22 3a 50 52 | 49 4e 54 54 41 42 28 32 |ILLA":PR|INTTAB(2|
|000024e0| 36 29 3b 22 4f 4e 20 52 | 41 4d 50 41 47 45 99 22 |6);"ON R|AMPAGE."|
|000024f0| 0a 36 35 39 35 20 47 4f | 53 55 42 38 35 30 30 0a |.6595 GO|SUB8500.|
|00002500| 36 36 30 30 20 49 46 4c | 4e 28 47 52 2c 47 43 29 |6600 IFL|N(GR,GC)|
|00002510| 54 48 45 4e 36 36 36 30 | 0a 36 36 31 30 20 49 46 |THEN6660|.6610 IF|
|00002520| 53 48 28 47 52 2c 47 43 | 29 3d 30 54 48 45 4e 36 |SH(GR,GC|)=0THEN6|
|00002530| 37 30 30 0a 36 36 32 30 | 20 50 44 3d 30 3a 54 44 |700.6620| PD=0:TD|
|00002540| 3d 49 4e 54 28 52 4e 44 | 28 31 29 2a 54 52 28 47 |=INT(RND|(1)*TR(G|
|00002550| 52 2c 47 43 29 2f 53 48 | 28 47 52 2c 47 43 29 29 |R,GC)/SH|(GR,GC))|
|00002560| 3a 53 48 28 47 52 2c 47 | 43 29 3d 53 48 28 47 52 |:SH(GR,G|C)=SH(GR|
|00002570| 2c 47 43 29 2d 31 0a 36 | 36 33 30 20 49 46 53 48 |,GC)-1.6|630 IFSH|
|00002580| 28 47 52 2c 47 43 29 3d | 30 54 48 45 4e 54 44 3d |(GR,GC)=|0THENTD=|
|00002590| 54 52 28 47 52 2c 47 43 | 29 0a 36 36 34 30 20 50 |TR(GR,GC|).6640 P|
|000025a0| 52 49 4e 54 54 41 42 28 | 32 36 29 3b 22 31 20 53 |RINTTAB(|26);"1 S|
|000025b0| 48 49 50 20 53 55 4e 4b | 22 0a 36 36 35 30 20 47 |HIP SUNK|".6650 G|
|000025c0| 4f 54 4f 36 36 37 30 0a | 36 36 36 30 20 50 44 3d |OTO6670.|6660 PD=|
|000025d0| 49 4e 54 28 52 4e 44 28 | 31 29 2a 50 4f 28 47 52 |INT(RND(|1)*PO(GR|
|000025e0| 2c 47 43 29 29 3a 54 44 | 3d 49 4e 54 28 52 4e 44 |,GC)):TD|=INT(RND|
|000025f0| 28 31 29 2a 54 52 28 47 | 52 2c 47 43 29 29 0a 36 |(1)*TR(G|R,GC)).6|
|00002600| 36 37 30 20 50 4f 28 47 | 52 2c 47 43 29 3d 50 4f |670 PO(G|R,GC)=PO|
|00002610| 28 47 52 2c 47 43 29 2d | 50 44 3a 54 52 28 47 52 |(GR,GC)-|PD:TR(GR|
|00002620| 2c 47 43 29 3d 54 52 28 | 47 52 2c 47 43 29 2d 54 |,GC)=TR(|GR,GC)-T|
|00002630| 44 0a 36 36 38 30 20 50 | 52 49 4e 54 54 41 42 28 |D.6680 P|RINTTAB(|
|00002640| 32 36 29 3b 22 9d 22 3b | 54 44 2b 50 44 3b 22 44 |26);".";|TD+PD;"D|
|00002650| 45 41 44 22 0a 36 36 39 | 30 20 49 46 47 52 3d 52 |EAD".669|0 IFGR=R|
|00002660| 31 41 4e 44 47 43 3d 43 | 31 54 48 45 4e 50 52 49 |1ANDGC=C|1THENPRI|
|00002670| 4e 54 43 31 24 3a 47 4f | 53 55 42 39 30 30 30 0a |NTC1$:GO|SUB9000.|
|00002680| 36 36 39 35 20 54 4b 3d | 54 4b 2b 50 44 2b 54 44 |6695 TK=|TK+PD+TD|
|00002690| 0a 36 37 30 30 20 44 4c | 3d 33 30 30 3a 47 4f 53 |.6700 DL|=300:GOS|
|000026a0| 55 42 37 39 35 30 0a 36 | 37 31 30 20 50 52 49 4e |UB7950.6|710 PRIN|
|000026b0| 54 44 4e 24 3b 3a 46 4f | 52 5a 3d 31 54 4f 34 3a |TDN$;:FO|RZ=1TO4:|
|000026c0| 50 52 49 4e 54 54 41 42 | 28 32 36 29 3b 42 4c 24 |PRINTTAB|(26);BL$|
|000026d0| 3a 4e 45 58 54 0a 36 37 | 32 30 20 49 46 54 4b 3e |:NEXT.67|20 IFTK>|
|000026e0| 32 45 37 54 48 45 4e 36 | 38 35 30 0a 36 37 33 30 |2E7THEN6|850.6730|
|000026f0| 20 47 4f 54 4f 32 30 30 | 30 0a 36 38 30 30 20 50 | GOTO200|0.6800 P|
|00002700| 52 49 4e 54 44 4e 24 3b | 54 41 42 28 32 36 29 3b |RINTDN$;|TAB(26);|
|00002710| 22 05 47 4f 44 5a 49 4c | 4c 41 22 3a 50 52 49 4e |".GODZIL|LA":PRIN|
|00002720| 54 54 41 42 28 32 36 29 | 3b 22 49 53 20 44 45 41 |TTAB(26)|;"IS DEA|
|00002730| 44 21 22 0a 36 38 30 31 | 20 54 4b 3d 54 4b 2b 54 |D!".6801| TK=TK+T|
|00002740| 44 2b 50 44 0a 36 38 30 | 32 20 50 52 49 4e 54 54 |D+PD.680|2 PRINTT|
|00002750| 41 42 28 32 36 29 3b 22 | 9d 96 22 3b 54 4b 3b 22 |AB(26);"|..";TK;"|
|00002760| 44 45 41 44 22 0a 36 38 | 33 30 20 48 57 3d 48 57 |DEAD".68|30 HW=HW|
|00002770| 2b 31 3a 4e 3d 31 3a 47 | 4f 53 55 42 39 35 30 30 |+1:N=1:G|OSUB9500|
|00002780| 3a 47 4f 54 4f 37 30 30 | 30 0a 36 38 35 30 20 50 |:GOTO700|0.6850 P|
|00002790| 52 49 4e 54 44 4e 24 3b | 54 41 42 28 32 36 29 3b |RINTDN$;|TAB(26);|
|000027a0| 22 9d 96 22 3b 54 4b 3b | 22 44 45 41 44 22 0a 36 |"..";TK;|"DEAD".6|
|000027b0| 38 36 30 20 50 52 49 4e | 54 54 41 42 28 32 36 29 |860 PRIN|TTAB(26)|
|000027c0| 3b 22 1e 47 4f 44 5a 49 | 4c 4c 41 22 3a 50 52 49 |;".GODZI|LLA":PRI|
|000027d0| 4e 54 54 41 42 28 32 36 | 29 3b 22 57 49 4e 53 21 |NTTAB(26|);"WINS!|
|000027e0| 21 22 0a 36 38 37 30 20 | 47 57 3d 47 57 2b 31 3a |!".6870 |GW=GW+1:|
|000027f0| 4e 3d 31 30 3a 47 4f 53 | 55 42 39 35 30 30 3a 47 |N=10:GOS|UB9500:G|
|00002800| 4f 54 4f 37 30 30 30 0a | 36 39 30 30 20 50 52 49 |OTO7000.|6900 PRI|
|00002810| 4e 54 44 4e 24 3b 54 41 | 42 28 32 36 29 3b 22 05 |NTDN$;TA|B(26);".|
|00002820| 54 4f 59 4b 4f 20 49 53 | 22 3a 50 52 49 4e 54 54 |TOYKO IS|":PRINTT|
|00002830| 41 42 28 32 36 29 3b 22 | 44 45 53 54 52 4f 59 45 |AB(26);"|DESTROYE|
|00002840| 44 21 22 0a 36 39 31 30 | 20 50 52 49 4e 54 54 41 |D!".6910| PRINTTA|
|00002850| 42 28 32 36 29 3b 22 99 | 47 4f 44 5a 49 4c 4c 41 |B(26);".|GODZILLA|
|00002860| 22 3a 50 52 49 4e 54 54 | 41 42 28 32 36 29 3b 22 |":PRINTT|AB(26);"|
|00002870| 57 49 4e 53 21 21 22 0a | 36 39 32 30 20 47 57 3d |WINS!!".|6920 GW=|
|00002880| 47 57 2b 31 3a 4e 3d 31 | 30 3a 47 4f 53 55 42 39 |GW+1:N=1|0:GOSUB9|
|00002890| 35 30 30 3a 47 4f 54 4f | 37 30 30 30 0a 37 30 30 |500:GOTO|7000.700|
|000028a0| 30 20 44 4c 3d 33 30 30 | 3a 47 4f 53 55 42 37 39 |0 DL=300|:GOSUB79|
|000028b0| 35 30 3a 50 52 49 4e 54 | 44 4e 24 3b 0a 37 30 31 |50:PRINT|DN$;.701|
|000028c0| 30 20 46 4f 52 49 3d 31 | 54 4f 34 3a 50 52 49 4e |0 FORI=1|TO4:PRIN|
|000028d0| 54 54 41 42 28 32 36 29 | 3b 42 4c 24 3a 4e 45 58 |TTAB(26)|;BL$:NEX|
|000028e0| 54 0a 37 30 32 30 20 50 | 52 49 4e 54 43 32 24 3b |T.7020 P|RINTC2$;|
|000028f0| 54 41 42 28 32 36 29 3b | 22 11 9e 20 20 47 41 4d |TAB(26);|"..  GAM|
|00002900| 45 53 20 57 4f 4e 20 20 | 9f 22 0a 37 30 33 30 20 |ES WON  |.".7030 |
|00002910| 50 52 49 4e 54 54 41 42 | 28 32 36 29 3b 22 47 4f |PRINTTAB|(26);"GO|
|00002920| 44 5a 49 4c 4c 41 20 22 | 3b 52 49 47 48 54 24 28 |DZILLA "|;RIGHT$(|
|00002930| 22 20 20 20 22 2b 53 54 | 52 24 28 47 57 29 2c 34 |"   "+ST|R$(GW),4|
|00002940| 29 0a 37 30 34 30 20 50 | 52 49 4e 54 54 41 42 28 |).7040 P|RINTTAB(|
|00002950| 32 36 29 3b 22 59 4f 55 | 20 20 20 20 20 20 22 3b |26);"YOU|      ";|
|00002960| 52 49 47 48 54 24 28 22 | 20 20 20 22 2b 53 54 52 |RIGHT$("|   "+STR|
|00002970| 24 28 48 57 29 2c 34 29 | 0a 37 30 35 30 20 50 52 |$(HW),4)|.7050 PR|
|00002980| 49 4e 54 44 4e 24 3b 3a | 47 4f 53 55 42 39 31 30 |INTDN$;:|GOSUB910|
|00002990| 30 3a 49 46 59 4e 3d 30 | 54 48 45 4e 36 30 30 30 |0:IFYN=0|THEN6000|
|000029a0| 0a 37 30 36 30 20 47 4f | 54 4f 39 30 30 0a 37 35 |.7060 GO|TO900.75|
|000029b0| 30 30 20 47 4f 53 55 42 | 36 31 30 30 30 3a 50 4f |00 GOSUB|61000:PO|
|000029c0| 4b 45 53 49 44 2b 32 34 | 2c 31 35 3a 50 4f 4b 45 |KESID+24|,15:POKE|
|000029d0| 53 49 44 2c 30 3a 50 4f | 4b 45 53 49 44 2b 35 2c |SID,0:PO|KESID+5,|
|000029e0| 30 3a 50 4f 4b 45 53 49 | 44 2b 36 2c 32 34 30 0a |0:POKESI|D+6,240.|
|000029f0| 37 35 31 30 20 50 3d 32 | 5e 28 31 2f 31 32 29 3a |7510 P=2|^(1/12):|
|00002a00| 43 3d 34 30 3a 44 3d 43 | 2a 50 2a 50 3a 45 3d 44 |C=40:D=C|*P*P:E=D|
|00002a10| 2a 50 2a 50 3a 47 3d 45 | 2a 50 2a 50 2a 50 2f 32 |*P*P:G=E|*P*P*P/2|
|00002a20| 2b 31 3a 50 4f 4b 45 53 | 49 44 2b 34 2c 31 37 0a |+1:POKES|ID+4,17.|
|00002a30| 37 35 32 30 20 50 4f 4b | 45 53 49 44 2b 31 2c 43 |7520 POK|ESID+1,C|
|00002a40| 3a 46 4f 52 49 3d 31 54 | 4f 39 30 3a 4e 45 58 54 |:FORI=1T|O90:NEXT|
|00002a50| 0a 37 35 33 30 20 50 4f | 4b 45 53 49 44 2b 31 2c |.7530 PO|KESID+1,|
|00002a60| 44 3a 46 4f 52 49 3d 31 | 54 4f 39 30 3a 4e 45 58 |D:FORI=1|TO90:NEX|
|00002a70| 54 0a 37 35 34 30 20 50 | 4f 4b 45 53 49 44 2b 31 |T.7540 P|OKESID+1|
|00002a80| 2c 45 3a 46 4f 52 49 3d | 31 54 4f 39 30 3a 4e 45 |,E:FORI=|1TO90:NE|
|00002a90| 58 54 0a 37 35 35 30 20 | 50 4f 4b 45 53 49 44 2b |XT.7550 |POKESID+|
|00002aa0| 31 2c 43 3a 46 4f 52 49 | 3d 31 54 4f 39 30 3a 4e |1,C:FORI|=1TO90:N|
|00002ab0| 45 58 54 0a 37 35 35 35 | 20 50 4f 4b 45 53 49 44 |EXT.7555| POKESID|
|00002ac0| 2b 31 2c 30 3a 46 4f 52 | 49 3d 31 54 4f 35 34 3a |+1,0:FOR|I=1TO54:|
|00002ad0| 4e 45 58 54 0a 37 35 36 | 30 20 50 4f 4b 45 53 49 |NEXT.756|0 POKESI|
|00002ae0| 44 2b 31 2c 47 3a 46 4f | 52 49 3d 31 54 4f 31 32 |D+1,G:FO|RI=1TO12|
|00002af0| 30 3a 4e 45 58 54 0a 37 | 35 37 30 20 50 4f 4b 45 |0:NEXT.7|570 POKE|
|00002b00| 53 49 44 2b 31 2c 43 3a | 46 4f 52 49 3d 31 54 4f |SID+1,C:|FORI=1TO|
|00002b10| 39 30 3a 4e 45 58 54 0a | 37 35 38 30 20 50 4f 4b |90:NEXT.|7580 POK|
|00002b20| 45 53 49 44 2b 34 2c 31 | 36 3a 52 45 54 55 52 4e |ESID+4,1|6:RETURN|
|00002b30| 0a 37 38 30 30 20 50 52 | 49 4e 54 44 4e 24 3b 54 |.7800 PR|INTDN$;T|
|00002b40| 41 42 28 32 36 29 3b 22 | 11 11 99 48 4f 57 20 4d |AB(26);"|...HOW M|
|00002b50| 41 4e 59 3f 22 0a 37 38 | 31 30 20 50 52 49 4e 54 |ANY?".78|10 PRINT|
|00002b60| 54 41 42 28 32 36 29 3b | 22 3f 05 22 3b 3a 47 4f |TAB(26);|"?.";:GO|
|00002b70| 53 55 42 36 30 30 30 30 | 3a 49 46 49 4e 24 3d 22 |SUB60000|:IFIN$="|
|00002b80| 22 54 48 45 4e 49 4e 3d | 30 3a 47 4f 54 4f 37 38 |"THENIN=|0:GOTO78|
|00002b90| 39 30 0a 37 38 32 30 20 | 46 4f 52 5a 3d 31 54 4f |90.7820 |FORZ=1TO|
|00002ba0| 4c 45 4e 28 49 4e 24 29 | 3a 5a 24 3d 4d 49 44 24 |LEN(IN$)|:Z$=MID$|
|00002bb0| 28 49 4e 24 2c 5a 2c 31 | 29 0a 37 38 33 30 20 49 |(IN$,Z,1|).7830 I|
|00002bc0| 46 5a 24 3c 22 30 22 4f | 52 5a 24 3e 22 39 22 54 |FZ$<"0"O|RZ$>"9"T|
|00002bd0| 48 45 4e 45 52 24 3d 22 | 42 41 44 20 4e 55 4d 42 |HENER$="|BAD NUMB|
|00002be0| 45 52 22 3a 47 4f 53 55 | 42 37 39 30 30 3a 47 4f |ER":GOSU|B7900:GO|
|00002bf0| 54 4f 37 38 39 30 0a 37 | 38 34 30 20 4e 45 58 54 |TO7890.7|840 NEXT|
|00002c00| 5a 3a 49 4e 3d 56 41 4c | 28 49 4e 24 29 0a 37 38 |Z:IN=VAL|(IN$).78|
|00002c10| 39 30 20 50 52 49 4e 54 | 44 4e 24 3b 54 41 42 28 |90 PRINT|DN$;TAB(|
|00002c20| 32 36 29 3b 22 11 11 22 | 3b 42 4c 24 3a 50 52 49 |26);".."|;BL$:PRI|
|00002c30| 4e 54 54 41 42 28 32 36 | 29 3b 42 4c 24 3a 52 45 |NTTAB(26|);BL$:RE|
|00002c40| 54 55 52 4e 0a 37 39 30 | 30 20 50 52 49 4e 54 44 |TURN.790|0 PRINTD|
|00002c50| 4e 24 3b 54 41 42 28 32 | 36 29 3b 42 4c 24 3b 22 |N$;TAB(2|6);BL$;"|
|00002c60| 91 22 0a 37 39 30 35 20 | 50 52 49 4e 54 54 41 42 |.".7905 |PRINTTAB|
|00002c70| 28 32 36 29 3b 45 52 24 | 3b 22 91 22 0a 37 39 31 |(26);ER$|;".".791|
|00002c80| 30 20 44 4c 3d 36 30 3a | 47 4f 53 55 42 37 39 35 |0 DL=60:|GOSUB795|
|00002c90| 30 0a 37 39 32 30 20 50 | 52 49 4e 54 54 41 42 28 |0.7920 P|RINTTAB(|
|00002ca0| 32 36 29 3b 42 4c 24 0a | 37 39 33 30 20 52 45 54 |26);BL$.|7930 RET|
|00002cb0| 55 52 4e 0a 37 39 35 30 | 20 54 4d 3d 54 49 2b 44 |URN.7950| TM=TI+D|
|00002cc0| 4c 0a 37 39 36 30 20 49 | 46 54 49 3c 54 4d 54 48 |L.7960 I|FTI<TMTH|
|00002cd0| 45 4e 37 39 36 30 0a 37 | 39 37 30 20 52 45 54 55 |EN7960.7|970 RETU|
|00002ce0| 52 4e 0a 38 30 30 30 20 | 41 3d 56 49 43 2b 33 38 |RN.8000 |A=VIC+38|
|00002cf0| 2b 43 53 2f 32 3a 54 4d | 3d 30 0a 38 30 31 30 20 |+CS/2:TM|=0.8010 |
|00002d00| 47 4f 53 55 42 38 39 30 | 30 0a 38 30 32 30 20 4a |GOSUB890|0.8020 J|
|00002d10| 44 3d 50 45 45 4b 28 4a | 53 29 41 4e 44 33 31 3a |D=PEEK(J|S)AND31:|
|00002d20| 47 45 54 43 24 3a 49 46 | 43 24 3c 3e 22 22 4f 52 |GETC$:IF|C$<>""OR|
|00002d30| 28 4a 44 41 4e 44 31 36 | 29 3d 30 54 48 45 4e 38 |(JDAND16|)=0THEN8|
|00002d40| 31 31 30 0a 38 30 33 30 | 20 49 46 54 49 3e 54 4d |110.8030| IFTI>TM|
|00002d50| 54 48 45 4e 50 4f 4b 45 | 41 2c 28 50 45 45 4b 28 |THENPOKE|A,(PEEK(|
|00002d60| 41 29 2b 38 29 41 4e 44 | 31 35 3a 54 4d 3d 54 49 |A)+8)AND|15:TM=TI|
|00002d70| 2b 32 0a 38 30 34 30 20 | 4a 44 3d 4a 44 41 4e 44 |+2.8040 |JD=JDAND|
|00002d80| 31 35 3a 49 46 4a 44 3d | 31 35 54 48 45 4e 38 30 |15:IFJD=|15THEN80|
|00002d90| 32 30 0a 38 30 35 30 20 | 52 3d 52 2b 4a 52 28 4a |20.8050 |R=R+JR(J|
|00002da0| 44 29 3a 43 3d 43 2b 4a | 43 28 4a 44 29 0a 38 30 |D):C=C+J|C(JD).80|
|00002db0| 36 30 20 49 46 52 3c 30 | 54 48 45 4e 52 3d 34 0a |60 IFR<0|THENR=4.|
|00002dc0| 38 30 37 30 20 49 46 52 | 3e 34 54 48 45 4e 52 3d |8070 IFR|>4THENR=|
|00002dd0| 30 0a 38 30 38 30 20 49 | 46 43 3c 30 54 48 45 4e |0.8080 I|FC<0THEN|
|00002de0| 43 3d 34 0a 38 30 39 30 | 20 49 46 43 3e 34 54 48 |C=4.8090| IFC>4TH|
|00002df0| 45 4e 43 3d 30 0a 38 31 | 30 30 20 50 4f 4b 45 41 |ENC=0.81|00 POKEA|
|00002e00| 2c 50 45 45 4b 28 41 29 | 41 4e 44 4e 4f 54 38 3a |,PEEK(A)|ANDNOT8:|
|00002e10| 54 4d 3d 54 49 2b 32 30 | 3a 47 4f 54 4f 38 30 31 |TM=TI+20|:GOTO801|
|00002e20| 30 0a 38 31 31 30 20 50 | 4f 4b 45 41 2c 50 45 45 |0.8110 P|OKEA,PEE|
|00002e30| 4b 28 41 29 41 4e 44 4e | 4f 54 38 3a 52 45 54 55 |K(A)ANDN|OT8:RETU|
|00002e40| 52 4e 0a 38 32 30 30 20 | 52 31 3d 47 52 2b 49 4e |RN.8200 |R1=GR+IN|
|00002e50| 54 28 52 4e 44 28 31 29 | 2a 33 2d 31 29 3a 43 31 |T(RND(1)|*3-1):C1|
|00002e60| 3d 47 43 2b 49 4e 54 28 | 52 4e 44 28 31 29 2a 33 |=GC+INT(|RND(1)*3|
|00002e70| 2d 31 29 0a 38 32 31 30 | 20 49 46 52 31 3c 30 4f |-1).8210| IFR1<0O|
|00002e80| 52 52 31 3e 34 4f 52 43 | 31 3c 30 4f 52 43 31 3e |RR1>4ORC|1<0ORC1>|
|00002e90| 34 54 48 45 4e 38 32 30 | 30 0a 38 32 33 30 20 47 |4THEN820|0.8230 G|
|00002ea0| 52 3d 52 31 3a 47 43 3d | 43 31 3a 50 4f 4b 45 56 |R=R1:GC=|C1:POKEV|
|00002eb0| 49 43 2c 32 34 2b 47 43 | 2a 34 30 2b 36 3a 50 4f |IC,24+GC|*40+6:PO|
|00002ec0| 4b 45 56 49 43 2b 31 2c | 35 30 2b 47 52 2a 34 30 |KEVIC+1,|50+GR*40|
|00002ed0| 2b 31 30 0a 38 32 34 30 | 20 52 3d 52 31 3a 43 3d |+10.8240| R=R1:C=|
|00002ee0| 43 31 3a 43 53 3d 36 3a | 43 53 24 3d 43 31 24 3a |C1:CS=6:|CS$=C1$:|
|00002ef0| 47 4f 53 55 42 38 39 30 | 30 0a 38 32 35 30 20 47 |GOSUB890|0.8250 G|
|00002f00| 44 3d 47 44 2b 31 35 3a | 49 46 47 52 3c 3e 33 4f |D=GD+15:|IFGR<>3O|
|00002f10| 52 47 43 3c 3e 33 54 48 | 45 4e 53 47 3d 30 3a 52 |RGC<>3TH|ENSG=0:R|
|00002f20| 45 54 55 52 4e 0a 38 32 | 36 30 20 50 52 49 4e 54 |ETURN.82|60 PRINT|
|00002f30| 44 4e 24 3b 54 41 42 28 | 32 36 29 3b 22 1c 47 4f |DN$;TAB(|26);".GO|
|00002f40| 44 5a 49 4c 4c 41 20 49 | 53 22 3a 50 52 49 4e 54 |DZILLA I|S":PRINT|
|00002f50| 54 41 42 28 32 36 29 3b | 22 49 4e 20 54 4f 4b 59 |TAB(26);|"IN TOKY|
|00002f60| 4f 21 22 3a 47 4f 53 55 | 42 38 34 30 30 0a 38 32 |O!":GOSU|B8400.82|
|00002f70| 37 30 20 50 44 3d 49 4e | 54 28 52 4e 44 28 31 29 |70 PD=IN|T(RND(1)|
|00002f80| 2a 50 4f 28 33 2c 33 29 | 2f 33 29 3a 54 44 3d 49 |*PO(3,3)|/3):TD=I|
|00002f90| 4e 54 28 52 4e 44 28 31 | 29 2a 54 52 28 33 2c 33 |NT(RND(1|)*TR(3,3|
|00002fa0| 29 29 0a 38 32 38 30 20 | 50 4f 28 33 2c 33 29 3d |)).8280 |PO(3,3)=|
|00002fb0| 50 4f 28 33 2c 33 29 2d | 50 44 3a 54 52 28 33 2c |PO(3,3)-|PD:TR(3,|
|00002fc0| 33 29 3d 54 52 28 33 2c | 33 29 2d 54 44 0a 38 32 |3)=TR(3,|3)-TD.82|
|00002fd0| 39 30 20 54 4b 3d 54 4b | 2b 54 44 2b 50 44 3a 50 |90 TK=TK|+TD+PD:P|
|00002fe0| 52 49 4e 54 54 41 42 28 | 32 36 29 3b 22 9d 99 22 |RINTTAB(|26);".."|
|00002ff0| 3b 54 44 2b 50 44 3b 22 | 44 45 41 44 22 3a 47 4f |;TD+PD;"|DEAD":GO|
|00003000| 53 55 42 38 39 30 30 0a | 38 33 30 30 20 44 4c 3d |SUB8900.|8300 DL=|
|00003010| 33 30 30 3a 47 4f 53 55 | 42 37 39 35 30 3a 50 52 |300:GOSU|B7950:PR|
|00003020| 49 4e 54 44 4e 24 3b 3a | 46 4f 52 49 3d 31 54 4f |INTDN$;:|FORI=1TO|
|00003030| 33 3a 50 52 49 4e 54 54 | 41 42 28 32 36 29 3b 42 |3:PRINTT|AB(26);B|
|00003040| 4c 24 3a 4e 45 58 54 0a | 38 33 31 30 20 49 46 50 |L$:NEXT.|8310 IFP|
|00003050| 4f 28 33 2c 33 29 3c 31 | 30 30 30 30 54 48 45 4e |O(3,3)<1|0000THEN|
|00003060| 53 47 3d 31 3a 52 45 54 | 55 52 4e 0a 38 33 32 30 |SG=1:RET|URN.8320|
|00003070| 20 49 46 54 4b 3e 32 45 | 37 54 48 45 4e 53 47 3d | IFTK>2E|7THENSG=|
|00003080| 32 3a 52 45 54 55 52 4e | 0a 38 33 33 30 20 47 4f |2:RETURN|.8330 GO|
|00003090| 54 4f 38 39 30 30 0a 38 | 34 30 30 20 50 4f 4b 45 |TO8900.8|400 POKE|
|000030a0| 53 49 44 2b 30 2c 30 3a | 50 4f 4b 45 53 49 44 2b |SID+0,0:|POKESID+|
|000030b0| 35 2c 30 3a 50 4f 4b 45 | 53 49 44 2b 36 2c 32 34 |5,0:POKE|SID+6,24|
|000030c0| 30 3a 50 4f 4b 45 53 49 | 44 2b 32 34 2c 31 35 3a |0:POKESI|D+24,15:|
|000030d0| 50 4f 4b 45 53 49 44 2b | 32 33 2c 30 0a 38 34 31 |POKESID+|23,0.841|
|000030e0| 30 20 50 4f 4b 45 53 49 | 44 2b 34 2c 31 37 3a 46 |0 POKESI|D+4,17:F|
|000030f0| 4f 52 49 3d 31 54 4f 36 | 0a 38 34 32 30 20 46 4f |ORI=1TO6|.8420 FO|
|00003100| 52 4a 3d 32 35 54 4f 35 | 30 3a 50 4f 4b 45 53 49 |RJ=25TO5|0:POKESI|
|00003110| 44 2b 31 2c 4a 3a 46 4f | 52 4b 3d 31 54 4f 31 3a |D+1,J:FO|RK=1TO1:|
|00003120| 4e 45 58 54 3a 4e 45 58 | 54 4a 0a 38 34 33 30 20 |NEXT:NEX|TJ.8430 |
|00003130| 46 4f 52 4a 3d 34 39 54 | 4f 32 36 53 54 45 50 2d |FORJ=49T|O26STEP-|
|00003140| 31 3a 50 4f 4b 45 53 49 | 44 2b 31 2c 4a 3a 46 4f |1:POKESI|D+1,J:FO|
|00003150| 52 4b 3d 31 54 4f 31 3a | 4e 45 58 54 3a 4e 45 58 |RK=1TO1:|NEXT:NEX|
|00003160| 54 4a 0a 38 34 34 30 20 | 4e 45 58 54 49 3a 50 4f |TJ.8440 |NEXTI:PO|
|00003170| 4b 45 53 49 44 2b 34 2c | 46 3a 52 45 54 55 52 4e |KESID+4,|F:RETURN|
|00003180| 0a 38 35 30 30 20 50 4f | 4b 45 53 49 44 2c 30 3a |.8500 PO|KESID,0:|
|00003190| 50 4f 4b 45 53 49 44 2b | 36 2c 32 34 30 3a 50 4f |POKESID+|6,240:PO|
|000031a0| 4b 45 53 49 44 2b 32 34 | 2c 37 3a 50 4f 4b 45 53 |KESID+24|,7:POKES|
|000031b0| 49 44 2b 32 33 2c 30 3a | 50 4f 4b 45 53 49 44 2b |ID+23,0:|POKESID+|
|000031c0| 34 2c 31 37 0a 38 35 31 | 30 20 46 4f 52 49 3d 31 |4,17.851|0 FORI=1|
|000031d0| 54 4f 34 3a 46 4f 52 4a | 3d 31 54 4f 37 30 3a 50 |TO4:FORJ|=1TO70:P|
|000031e0| 4f 4b 45 53 49 44 2b 31 | 2c 4a 3a 4e 45 58 54 4a |OKESID+1|,J:NEXTJ|
|000031f0| 3a 4e 45 58 54 49 3a 50 | 4f 4b 45 53 49 44 2b 34 |:NEXTI:P|OKESID+4|
|00003200| 2c 31 36 0a 38 35 32 30 | 20 52 45 54 55 52 4e 0a |,16.8520| RETURN.|
|00003210| 38 39 30 30 20 50 4f 4b | 45 56 49 43 2b 43 53 2c |8900 POK|EVIC+CS,|
|00003220| 43 30 2b 34 30 2a 43 3a | 50 4f 4b 45 56 49 43 2b |C0+40*C:|POKEVIC+|
|00003230| 43 53 2b 31 2c 35 30 2b | 52 2a 34 30 3a 50 52 49 |CS+1,50+|R*40:PRI|
|00003240| 4e 54 43 53 24 3a 47 4f | 53 55 42 39 30 30 30 3a |NTCS$:GO|SUB9000:|
|00003250| 52 45 54 55 52 4e 0a 38 | 39 39 39 20 50 52 49 4e |RETURN.8|999 PRIN|
|00003260| 54 22 13 22 3b 3a 45 4e | 44 0a 39 30 30 30 20 5a |T".";:EN|D.9000 Z|
|00003270| 24 3d 22 2d 22 3a 5a 3d | 50 4f 28 52 2c 43 29 3a |$="-":Z=|PO(R,C):|
|00003280| 49 46 5a 3e 30 54 48 45 | 4e 5a 24 3d 53 54 52 24 |IFZ>0THE|NZ$=STR$|
|00003290| 28 5a 29 0a 39 30 30 35 | 20 50 52 49 4e 54 54 41 |(Z).9005| PRINTTA|
|000032a0| 42 28 32 36 29 3b 22 50 | 4f 50 2e 20 22 3b 52 49 |B(26);"P|OP. ";RI|
|000032b0| 47 48 54 24 28 22 20 20 | 20 20 20 20 20 20 22 2b |GHT$("  |      "+|
|000032c0| 5a 24 2c 38 29 0a 39 30 | 31 30 20 5a 24 3d 22 2d |Z$,8).90|10 Z$="-|
|000032d0| 22 3a 5a 3d 54 52 28 52 | 2c 43 29 3a 49 46 5a 3e |":Z=TR(R|,C):IFZ>|
|000032e0| 30 54 48 45 4e 5a 24 3d | 53 54 52 24 28 5a 29 0a |0THENZ$=|STR$(Z).|
|000032f0| 39 30 31 35 20 50 52 49 | 4e 54 54 41 42 28 32 36 |9015 PRI|NTTAB(26|
|00003300| 29 3b 22 54 52 4f 4f 50 | 53 20 22 3b 52 49 47 48 |);"TROOP|S ";RIGH|
|00003310| 54 24 28 22 20 20 20 20 | 20 20 22 2b 5a 24 2c 36 |T$("    |  "+Z$,6|
|00003320| 29 0a 39 30 32 30 20 5a | 24 3d 22 2d 22 3a 5a 3d |).9020 Z|$="-":Z=|
|00003330| 50 4c 28 52 2c 43 29 3a | 49 46 5a 3e 30 54 48 45 |PL(R,C):|IFZ>0THE|
|00003340| 4e 5a 24 3d 53 54 52 24 | 28 5a 29 0a 39 30 32 35 |NZ$=STR$|(Z).9025|
|00003350| 20 50 52 49 4e 54 54 41 | 42 28 32 36 29 3b 22 50 | PRINTTA|B(26);"P|
|00003360| 4c 41 4e 45 53 20 22 3b | 52 49 47 48 54 24 28 22 |LANES ";|RIGHT$("|
|00003370| 20 20 20 20 20 20 22 2b | 5a 24 2c 36 29 0a 39 30 |      "+|Z$,6).90|
|00003380| 33 30 20 5a 24 3d 22 2d | 22 3a 5a 3d 53 48 28 52 |30 Z$="-|":Z=SH(R|
|00003390| 2c 43 29 3a 49 46 5a 3e | 30 54 48 45 4e 5a 24 3d |,C):IFZ>|0THENZ$=|
|000033a0| 53 54 52 24 28 5a 29 0a | 39 30 33 35 20 50 52 49 |STR$(Z).|9035 PRI|
|000033b0| 4e 54 54 41 42 28 32 36 | 29 3b 22 53 48 49 50 53 |NTTAB(26|);"SHIPS|
|000033c0| 20 22 3b 52 49 47 48 54 | 24 28 22 20 20 20 20 20 | ";RIGHT|$("     |
|000033d0| 20 20 22 2b 5a 24 2c 37 | 29 0a 39 30 34 30 20 52 |  "+Z$,7|).9040 R|
|000033e0| 45 54 55 52 4e 0a 39 31 | 30 30 20 4e 4f 3d 30 3a |ETURN.91|00 NO=0:|
|000033f0| 50 52 49 4e 54 54 41 42 | 28 32 36 29 3b 22 05 50 |PRINTTAB|(26);".P|
|00003400| 4c 41 59 20 41 47 41 49 | 4e 3f 22 0a 39 31 31 30 |LAY AGAI|N?".9110|
|00003410| 20 54 4d 3d 30 3a 53 57 | 3d 31 3a 50 52 49 4e 54 | TM=0:SW|=1:PRINT|
|00003420| 54 41 42 28 32 36 29 3b | 22 97 59 45 53 20 4e 4f |TAB(26);|".YES NO|
|00003430| 91 22 0a 39 31 32 30 20 | 49 46 54 49 3c 54 4d 54 |.".9120 |IFTI<TMT|
|00003440| 48 45 4e 39 31 35 30 0a | 39 31 33 30 20 50 52 49 |HEN9150.|9130 PRI|
|00003450| 4e 54 54 41 42 28 32 36 | 2b 4e 4f 2a 34 29 3b 4d |NTTAB(26|+NO*4);M|
|00003460| 49 44 24 28 22 05 97 22 | 2c 53 57 2c 31 29 3b 4d |ID$(".."|,SW,1);M|
|00003470| 49 44 24 28 22 59 45 53 | 4e 4f a0 22 2c 33 2a 4e |ID$("YES|NO.",3*N|
|00003480| 4f 2b 31 2c 33 29 3b 22 | 91 22 0a 39 31 34 30 20 |O+1,3);"|.".9140 |
|00003490| 53 57 3d 33 2d 53 57 3a | 54 4d 3d 54 49 2b 31 35 |SW=3-SW:|TM=TI+15|
|000034a0| 0a 39 31 35 30 20 4a 44 | 3d 50 45 45 4b 28 4a 53 |.9150 JD|=PEEK(JS|
|000034b0| 29 41 4e 44 33 31 3a 4a | 42 3d 28 4a 44 3c 31 36 |)AND31:J|B=(JD<16|
|000034c0| 29 3a 4a 44 3d 4a 44 41 | 4e 44 31 35 0a 39 31 36 |):JD=JDA|ND15.916|
|000034d0| 30 20 49 46 4a 42 41 4e | 44 4a 44 3d 31 35 54 48 |0 IFJBAN|DJD=15TH|
|000034e0| 45 4e 59 4e 3d 28 4e 4f | 3d 30 29 3a 52 45 54 55 |ENYN=(NO|=0):RETU|
|000034f0| 52 4e 0a 39 31 37 30 20 | 49 46 28 4a 44 41 4e 44 |RN.9170 |IF(JDAND|
|00003500| 38 29 3d 30 41 4e 44 4e | 4f 3d 30 54 48 45 4e 4e |8)=0ANDN|O=0THENN|
|00003510| 4f 3d 31 3a 47 4f 54 4f | 39 31 31 30 0a 39 31 38 |O=1:GOTO|9110.918|
|00003520| 30 20 49 46 28 4a 44 41 | 4e 44 34 29 3d 30 41 4e |0 IF(JDA|ND4)=0AN|
|00003530| 44 4e 4f 3d 31 54 48 45 | 4e 4e 4f 3d 30 3a 47 4f |DNO=1THE|NNO=0:GO|
|00003540| 54 4f 39 31 31 30 0a 39 | 31 39 30 20 47 4f 54 4f |TO9110.9|190 GOTO|
|00003550| 39 31 32 30 0a 39 35 30 | 30 20 46 4f 52 41 3d 53 |9120.950|0 FORA=S|
|00003560| 49 44 54 4f 53 49 44 2b | 31 34 53 54 45 50 37 3a |IDTOSID+|14STEP7:|
|00003570| 50 4f 4b 45 41 2c 30 3a | 50 4f 4b 45 41 2b 31 2c |POKEA,0:|POKEA+1,|
|00003580| 30 3a 50 4f 4b 45 41 2b | 35 2c 30 3a 50 4f 4b 45 |0:POKEA+|5,0:POKE|
|00003590| 41 2b 36 2c 32 34 30 0a | 39 35 31 30 20 4e 45 58 |A+6,240.|9510 NEX|
|000035a0| 54 3a 50 4f 4b 45 53 49 | 44 2b 37 2c 31 32 38 3a |T:POKESI|D+7,128:|
|000035b0| 50 4f 4b 45 53 49 44 2b | 31 34 2c 32 35 35 3a 50 |POKESID+|14,255:P|
|000035c0| 4f 4b 45 53 49 44 2b 32 | 34 2c 31 35 3a 50 4f 4b |OKESID+2|4,15:POK|
|000035d0| 45 53 49 44 2b 32 33 2c | 30 0a 39 35 32 30 20 50 |ESID+23,|0.9520 P|
|000035e0| 4f 4b 45 53 49 44 2b 34 | 2c 31 37 3a 50 4f 4b 45 |OKESID+4|,17:POKE|
|000035f0| 53 49 44 2b 31 31 2c 31 | 37 3a 50 4f 4b 45 53 49 |SID+11,1|7:POKESI|
|00003600| 44 2b 31 38 2c 31 37 0a | 39 35 33 30 20 5a 3d 4e |D+18,17.|9530 Z=N|
|00003610| 54 28 4e 29 3a 49 46 5a | 3c 30 54 48 45 4e 39 35 |T(N):IFZ|<0THEN95|
|00003620| 36 30 0a 39 35 34 30 20 | 50 4f 4b 45 53 49 44 2b |60.9540 |POKESID+|
|00003630| 31 2c 5a 3a 50 4f 4b 45 | 53 49 44 2b 38 2c 5a 3a |1,Z:POKE|SID+8,Z:|
|00003640| 50 4f 4b 45 53 49 44 2b | 31 35 2c 5a 0a 39 35 35 |POKESID+|15,Z.955|
|00003650| 30 20 46 4f 52 49 3d 31 | 54 4f 44 52 28 4e 29 3a |0 FORI=1|TODR(N):|
|00003660| 4e 45 58 54 49 3a 4e 3d | 4e 2b 31 3a 47 4f 54 4f |NEXTI:N=|N+1:GOTO|
|00003670| 39 35 32 30 0a 39 35 36 | 30 20 50 4f 4b 45 53 49 |9520.956|0 POKESI|
|00003680| 44 2b 34 2c 31 36 3a 50 | 4f 4b 45 53 49 44 2b 31 |D+4,16:P|OKESID+1|
|00003690| 31 2c 31 36 3a 50 4f 4b | 45 53 49 44 2b 31 38 2c |1,16:POK|ESID+18,|
|000036a0| 31 36 0a 39 35 37 30 20 | 52 45 54 55 52 4e 0a 35 |16.9570 |RETURN.5|
|000036b0| 32 35 30 30 20 44 41 54 | 41 5c 0a 35 32 35 31 30 |2500 DAT|A\.52510|
|000036c0| 20 44 41 54 41 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 | DATA0,0|,0,0,0,0|
|000036d0| 2c 30 2c 30 0a 35 32 35 | 32 30 20 44 41 54 41 30 |,0,0.525|20 DATA0|
|000036e0| 2c 30 2c 31 2c 31 2c 2d | 31 2c 31 2c 30 2c 31 0a |,0,1,1,-|1,1,0,1.|
|000036f0| 35 32 35 33 30 20 44 41 | 54 41 30 2c 30 2c 31 2c |52530 DA|TA0,0,1,|
|00003700| 2d 31 2c 2d 31 2c 2d 31 | 2c 30 2c 2d 31 0a 35 32 |-1,-1,-1|,0,-1.52|
|00003710| 35 34 30 20 44 41 54 41 | 30 2c 30 2c 31 2c 30 2c |540 DATA|0,0,1,0,|
|00003720| 2d 31 2c 30 2c 30 2c 30 | 0a 35 32 35 35 30 20 3a |-1,0,0,0|.52550 :|
|00003730| 0a 35 32 35 36 30 20 44 | 41 54 41 4e 4f 2c 35 2c |.52560 D|ATANO,5,|
|00003740| 4e 4f 2c 35 2c 4c 49 54 | 54 4c 45 2c 32 30 2c 53 |NO,5,LIT|TLE,20,S|
|00003750| 4f 4d 45 2c 31 30 30 2c | 20 20 53 4f 4d 45 2c 31 |OME,100,|  SOME,1|
|00003760| 30 30 2c 47 52 45 41 54 | 2c 31 35 30 2c 4d 41 4a |00,GREAT|,150,MAJ|
|00003770| 4f 52 2c 33 30 30 0a 35 | 32 35 37 30 20 44 41 54 |OR,300.5|2570 DAT|
|00003780| 41 4d 41 4a 4f 52 2c 33 | 30 30 2c 53 45 56 45 52 |AMAJOR,3|00,SEVER|
|00003790| 45 2c 34 30 30 2c 47 52 | 41 56 45 2c 38 30 30 0a |E,400,GR|AVE,800.|
|000037a0| 35 32 35 38 30 20 3a 0a | 35 32 35 39 30 20 44 41 |52580 :.|52590 DA|
|000037b0| 54 41 37 30 2c 32 2c 35 | 2c 31 31 30 2c 38 2c 32 |TA70,2,5|,110,8,2|
|000037c0| 2c 31 35 30 2c 37 2c 38 | 2c 31 39 30 2c 31 2c 37 |,150,7,8|,190,1,7|
|000037d0| 0a 35 32 36 30 30 20 44 | 41 54 41 20 32 33 30 2c |.52600 D|ATA 230,|
|000037e0| 31 2c 31 2c 31 39 2c 37 | 2c 31 2c 36 35 2c 38 2c |1,1,19,7|,1,65,8,|
|000037f0| 37 2c 31 31 31 2c 32 2c | 38 0a 35 32 36 31 30 20 |7,111,2,|8.52610 |
|00003800| 44 41 54 41 31 35 37 2c | 31 36 2c 32 2c 31 39 39 |DATA157,|16,2,199|
|00003810| 2c 31 36 2c 35 0a 35 32 | 36 32 30 20 3a 0a 35 32 |,16,5.52|620 :.52|
|00003820| 36 33 30 20 44 41 54 41 | 34 38 2c 32 2c 35 30 2c |630 DATA|48,2,50,|
|00003830| 34 2c 30 2c 30 2c 35 30 | 2c 31 2c 35 33 2c 32 2c |4,0,0,50|,1,53,2,|
|00003840| 35 30 2c 32 2c 34 35 2c | 32 2c 36 37 2c 31 36 2c |50,2,45,|2,67,16,|
|00003850| 2d 31 2c 30 0a 35 32 36 | 34 30 20 44 41 54 41 33 |-1,0.526|40 DATA3|
|00003860| 32 2c 31 32 2c 30 2c 30 | 2c 33 32 2c 38 2c 30 2c |2,12,0,0|,32,8,0,|
|00003870| 30 2c 33 32 2c 32 2c 30 | 2c 30 2c 33 32 2c 31 34 |0,32,2,0|,0,32,14|
|00003880| 2c 33 38 2c 31 32 2c 33 | 36 2c 38 2c 33 32 2c 32 |,38,12,3|6,8,32,2|
|00003890| 2c 30 2c 30 2c 33 32 2c | 31 30 0a 35 32 36 35 30 |,0,0,32,|10.52650|
|000038a0| 20 44 41 54 41 33 30 2c | 34 2c 33 32 2c 31 34 2c | DATA30,|4,32,14,|
|000038b0| 2d 31 2c 30 0a 35 32 39 | 39 30 20 3a 0a 35 33 30 |-1,0.529|90 :.530|
|000038c0| 30 30 20 44 41 54 41 35 | 37 2c 30 2c 30 2c 30 2c |00 DATA5|7,0,0,0,|
|000038d0| 30 2c 30 2c 31 31 32 2c | 30 2c 30 2c 32 33 36 2c |0,0,112,|0,0,236,|
|000038e0| 30 2c 31 2c 32 35 35 2c | 30 2c 31 2c 32 35 35 2c |0,1,255,|0,1,255,|
|000038f0| 30 2c 33 2c 32 34 30 2c | 30 2c 33 2c 32 32 34 2c |0,3,240,|0,3,224,|
|00003900| 30 2c 37 2c 32 34 38 2c | 30 2c 37 0a 35 33 30 30 |0,7,248,|0,7.5300|
|00003910| 31 20 44 41 54 41 32 33 | 36 2c 30 2c 31 35 2c 31 |1 DATA23|6,0,15,1|
|00003920| 39 32 2c 30 2c 31 35 2c | 31 39 32 2c 30 2c 31 35 |92,0,15,|192,0,15|
|00003930| 2c 31 32 38 2c 30 2c 33 | 31 2c 31 39 32 2c 30 2c |,128,0,3|1,192,0,|
|00003940| 33 31 2c 32 32 34 2c 30 | 2c 36 33 2c 32 34 30 2c |31,224,0|,63,240,|
|00003950| 30 2c 31 32 36 2c 32 34 | 30 0a 35 33 30 30 32 20 |0,126,24|0.53002 |
|00003960| 44 41 54 41 30 2c 32 35 | 32 2c 32 32 34 2c 31 39 |DATA0,25|2,224,19|
|00003970| 35 2c 32 34 31 2c 31 39 | 32 2c 31 32 37 2c 31 39 |5,241,19|2,127,19|
|00003980| 35 2c 32 34 30 0a 36 30 | 30 30 30 20 49 4e 24 3d |5,240.60|000 IN$=|
|00003990| 22 20 22 3a 5a 54 3d 54 | 49 3a 5a 43 3d 32 3a 5a |" ":ZT=T|I:ZC=2:Z|
|000039a0| 44 24 3d 43 48 52 24 28 | 32 30 29 0a 36 30 30 31 |D$=CHR$(|20).6001|
|000039b0| 30 20 47 45 54 5a 24 3a | 49 46 5a 24 3c 3e 22 22 |0 GETZ$:|IFZ$<>""|
|000039c0| 54 48 45 4e 36 30 30 37 | 30 0a 36 30 30 32 30 20 |THEN6007|0.60020 |
|000039d0| 49 46 5a 54 3c 3d 54 49 | 54 48 45 4e 50 52 49 4e |IFZT<=TI|THENPRIN|
|000039e0| 54 4d 49 44 24 28 22 20 | a6 22 2c 5a 43 2c 31 29 |TMID$(" |.",ZC,1)|
|000039f0| 3b 22 9d 22 3b 3a 5a 43 | 3d 33 2d 5a 43 3a 5a 54 |;".";:ZC|=3-ZC:ZT|
|00003a00| 3d 54 49 2b 31 35 0a 36 | 30 30 33 30 20 47 4f 54 |=TI+15.6|0030 GOT|
|00003a10| 4f 36 30 30 31 30 0a 36 | 30 30 37 30 20 5a 3d 41 |O60010.6|0070 Z=A|
|00003a20| 53 43 28 5a 24 29 3a 5a | 4c 3d 4c 45 4e 28 49 4e |SC(Z$):Z|L=LEN(IN|
|00003a30| 24 29 3a 49 46 28 5a 41 | 4e 44 31 32 37 29 3c 33 |$):IF(ZA|ND127)<3|
|00003a40| 32 54 48 45 4e 50 52 49 | 4e 54 22 20 9d 22 3b 3a |2THENPRI|NT" .";:|
|00003a50| 47 4f 54 4f 36 30 31 31 | 30 0a 36 30 30 39 30 20 |GOTO6011|0.60090 |
|00003a60| 49 46 5a 4c 3e 51 49 54 | 48 45 4e 36 30 30 31 30 |IFZL>QIT|HEN60010|
|00003a70| 0a 36 30 31 30 30 20 49 | 4e 24 3d 49 4e 24 2b 5a |.60100 I|N$=IN$+Z|
|00003a80| 24 3a 50 52 49 4e 54 5a | 24 3b 5a 44 24 3b 5a 24 |$:PRINTZ|$;ZD$;Z$|
|00003a90| 3b 0a 36 30 31 31 30 20 | 49 46 5a 3d 31 33 54 48 |;.60110 |IFZ=13TH|
|00003aa0| 45 4e 49 4e 24 3d 4d 49 | 44 24 28 49 4e 24 2c 32 |ENIN$=MI|D$(IN$,2|
|00003ab0| 29 3a 50 52 49 4e 54 43 | 52 24 3b 3a 52 45 54 55 |):PRINTC|R$;:RETU|
|00003ac0| 52 4e 0a 36 30 31 32 30 | 20 49 46 5a 3d 32 30 41 |RN.60120| IFZ=20A|
|00003ad0| 4e 44 5a 4c 3e 31 54 48 | 45 4e 49 4e 24 3d 4c 45 |NDZL>1TH|ENIN$=LE|
|00003ae0| 46 54 24 28 49 4e 24 2c | 5a 4c 2d 31 29 3a 50 52 |FT$(IN$,|ZL-1):PR|
|00003af0| 49 4e 54 22 9d 22 3b 3a | 47 4f 54 4f 36 30 30 31 |INT".";:|GOTO6001|
|00003b00| 30 0a 36 30 31 33 30 20 | 49 46 5a 3d 31 34 31 54 |0.60130 |IFZ=141T|
|00003b10| 48 45 4e 5a 24 3d 43 48 | 52 24 28 2d 32 30 2a 28 |HENZ$=CH|R$(-20*(|
|00003b20| 5a 4c 3e 31 29 29 3a 46 | 4f 52 5a 3d 32 54 4f 5a |ZL>1)):F|ORZ=2TOZ|
|00003b30| 4c 3a 50 52 49 4e 54 5a | 24 3b 3a 4e 45 58 54 3a |L:PRINTZ|$;:NEXT:|
|00003b40| 47 4f 54 4f 36 30 30 30 | 30 0a 36 30 31 34 30 20 |GOTO6000|0.60140 |
|00003b50| 47 4f 54 4f 36 30 30 31 | 30 0a 36 31 30 30 30 20 |GOTO6001|0.61000 |
|00003b60| 43 52 54 3d 31 30 32 34 | 3a 56 49 43 3d 35 33 32 |CRT=1024|:VIC=532|
|00003b70| 34 38 3a 57 44 3d 34 30 | 3a 43 52 24 3d 43 48 52 |48:WD=40|:CR$=CHR|
|00003b80| 24 28 31 33 29 3a 53 49 | 44 3d 35 34 32 37 32 3a |$(13):SI|D=54272:|
|00003b90| 4a 53 3d 35 36 33 32 30 | 3a 43 4d 3d 35 35 32 39 |JS=56320|:CM=5529|
|00003ba0| 36 0a 36 31 30 31 30 20 | 51 4c 3d 32 31 34 3a 51 |6.61010 |QL=214:Q|
|00003bb0| 49 3d 32 35 34 3a 52 45 | 54 55 52 4e 0a 36 32 30 |I=254:RE|TURN.620|
|00003bc0| 30 30 20 47 4f 53 55 42 | 36 31 30 30 30 3a 50 4f |00 GOSUB|61000:PO|
|00003bd0| 4b 45 56 49 43 2b 33 32 | 2c 30 3a 50 4f 4b 45 56 |KEVIC+32|,0:POKEV|
|00003be0| 49 43 2b 33 33 2c 30 3a | 4c 4e 3d 4c 45 4e 28 50 |IC+33,0:|LN=LEN(P|
|00003bf0| 47 24 29 3a 54 42 3d 28 | 34 30 2d 4c 4e 29 2f 32 |G$):TB=(|40-LN)/2|
|00003c00| 0a 36 32 30 31 30 20 50 | 52 49 4e 54 22 93 11 11 |.62010 P|RINT"...|
|00003c10| 11 11 9e 12 22 54 41 42 | 28 54 42 29 4c 45 46 54 |...."TAB|(TB)LEFT|
|00003c20| 24 28 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |$("     |        |
|00003c30| 20 20 20 20 20 20 20 20 | 22 2c 4c 4e 29 0a 36 32 |        |",LN).62|
|00003c40| 30 32 30 20 50 52 49 4e | 54 22 12 22 54 41 42 28 |020 PRIN|T"."TAB(|
|00003c50| 54 42 29 50 47 24 3a 50 | 52 49 4e 54 22 12 22 54 |TB)PG$:P|RINT"."T|
|00003c60| 41 42 28 54 42 29 4c 45 | 46 54 24 28 22 20 20 20 |AB(TB)LE|FT$("   |
|00003c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c80| 20 20 22 2c 4c 4e 29 0a | 36 32 30 33 30 20 50 52 |  ",LN).|62030 PR|
|00003c90| 49 4e 54 22 11 11 22 54 | 41 42 28 28 34 30 2d 4c |INT".."T|AB((40-L|
|00003ca0| 45 4e 28 41 55 24 29 29 | 2f 32 29 41 55 24 0a 36 |EN(AU$))|/2)AU$.6|
|00003cb0| 32 30 34 30 20 4d 53 24 | 3d 22 48 49 54 20 52 45 |2040 MS$|="HIT RE|
|00003cc0| 54 55 52 4e 20 54 4f 20 | 42 45 47 49 4e 22 3a 49 |TURN TO |BEGIN":I|
|00003cd0| 46 4a 46 54 48 45 4e 4d | 53 24 3d 22 48 49 54 20 |FJFTHENM|S$="HIT |
|00003ce0| 4a 4f 59 53 54 49 43 4b | 20 42 55 54 54 4f 4e 20 |JOYSTICK| BUTTON |
|00003cf0| 54 4f 20 42 45 47 49 4e | 22 0a 36 32 30 35 30 20 |TO BEGIN|".62050 |
|00003d00| 54 42 3d 28 28 34 30 2d | 4c 45 4e 28 4d 53 24 29 |TB=((40-|LEN(MS$)|
|00003d10| 29 2f 32 29 0a 36 32 30 | 36 30 20 50 52 49 4e 54 |)/2).620|60 PRINT|
|00003d20| 22 11 11 11 11 9f 22 54 | 41 42 28 54 42 29 4d 53 |"....."T|AB(TB)MS|
|00003d30| 24 3a 50 52 49 4e 54 22 | 11 11 11 11 11 11 11 9f |$:PRINT"|........|
|00003d40| 22 0a 36 32 30 37 30 20 | 47 45 54 49 4e 24 3a 49 |".62070 |GETIN$:I|
|00003d50| 46 49 4e 24 3c 3e 22 22 | 54 48 45 4e 36 32 31 32 |FIN$<>""|THEN6212|
|00003d60| 30 0a 36 32 30 38 30 20 | 49 46 28 50 45 45 4b 28 |0.62080 |IF(PEEK(|
|00003d70| 4a 53 29 41 4e 44 31 36 | 29 3d 30 54 48 45 4e 36 |JS)AND16|)=0THEN6|
|00003d80| 32 31 32 30 0a 36 32 30 | 39 30 20 50 52 49 4e 54 |2120.620|90 PRINT|
|00003d90| 22 13 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |".......|........|
|00003da0| 22 54 41 42 28 54 42 29 | 4c 45 46 54 24 28 22 9c |"TAB(TB)|LEFT$(".|
|00003db0| 9f 22 2c 4b 2b 31 29 4c | 45 46 54 24 28 4d 53 24 |.",K+1)L|EFT$(MS$|
|00003dc0| 2c 51 29 0a 36 32 31 30 | 30 20 51 3d 51 2b 31 3a |,Q).6210|0 Q=Q+1:|
|00003dd0| 49 46 51 3e 4c 45 4e 28 | 4d 53 24 29 54 48 45 4e |IFQ>LEN(|MS$)THEN|
|00003de0| 51 3d 30 3a 4b 3d 31 2d | 4b 0a 36 32 31 31 30 20 |Q=0:K=1-|K.62110 |
|00003df0| 47 4f 54 4f 36 32 30 37 | 30 0a 36 32 31 32 30 20 |GOTO6207|0.62120 |
|00003e00| 43 4c 52 3a 50 52 49 4e | 54 22 93 05 22 3a 47 4f |CLR:PRIN|T"..":GO|
|00003e10| 53 55 42 36 31 30 30 30 | 3a 47 4f 54 4f 35 0a    |SUB61000|:GOTO5. |
+--------+-------------------------+-------------------------+--------+--------+