9 55,0:56,128:: MOVE TOP OF MEMORY DOWN TO 32768C5000Iabb MAIN GAME LOOPhcydTI$"000000"nIN$:IN$""150xIN$""2200IN$""2400IN$" "DC1 RE(.):R1000,1100,1200,1300,1400,1500,1000,1300:DC2000 TITLIM110" 7000( ;  SMALL SUBA x HOMX(1)SWY(1),BL:X(1)X(1)D(.):X(1)SW1020 X(1)1:Y(1)B(.):Y(1)Y(2)Y(1)Y(3)1010 HOMX(1)SWY(1),34: I J MED SUB K" LAHOMX(2)SWY(2):A,BL:A1,BL:X(2)X(2)A(.):X(2)SW1120R VX(2)2:Y(2)B(.):Y(2)Y(1)Y(2)Y(3)1110y `AHOMX(2)SWY(2):A,36:A1,35:   LARGE SUB  AHOMX(3)SWY(3):IA2A:I,BL: X(3)X(3)A(.):X(3)SW1230 X(3)3:Y(3)B(.):Y(3)Y(1)Y(3)Y(2)1220@ AHOMX(3)SWY(3):A,39:A1,38:A2,37:F Z  SMALL PLANE`  HOMX(4)SWY(4),BL:X(4)X(4)A(.):X(4).1320 X(4)SW:Y(4)C(.):Y(4)Y(5)Y(4)Y(6)1310 (HOMX(4)SWY(4),22: u v MED PLANE wB xAHOMX(5)SWY(5):A,BL:A1,BL:X(5)X(5)D(.):X(5).1420s X(5)39:Y(5)C(.):Y(5)Y(4)Y(5)Y(6)1410 AHOMX(5)SWY(5):A,23:A1,24:   LARGE PLANE  AHOMX(6)SWY(6):IAA2:I,BL: X(6)X(6)A(.):X(6).15304 X(6)38:Y(6)C(.):Y(6)Y(4)Y(6)Y(5)1520c AHOMX(6)SWY(6):A,25:A1,26:A2,27:i ~  DEPTH CHARGE  FQ,38:WV,TRI:PK%(D):PK%BLPK%632030 D,BL:DDSW:D337672040 PK%(D):PK%BLD,63:WV,.:CD:3000D33266:DC.:WV,.:%6 LEFT GUN<mFQ,10:WV,NOI:33141,42:I110::C.:WV,.I331003281341:I41,BL:PK%(I):PK%BLI,40:PK%BLCI:I32772:C3000:32813,BL:] ^ RIGHT GUN_ .` FQ,9:WV,NOI:33151,42:I110::C.:WV,.gj I331123283939:I39,BL:PK%(I):PK%BLI,41:t PK%BLCI:I32800:~ C3000: 32839,BL:  PLANE SUB HIT  TPK%:EX62(T28):3500:TG6:T23T24TG5:3050 T36T40TG3:30501 T35T36TG2:3050@ T22TG4O T34TG1 TPTTPTPT(TG):"";SL$;TPT;" ":X(TG)SW(TG4):  LOSI  WV,SAW:EX62WV,TRI IC2C2:I,BL::C,42 ICSWCSWSW:I211:AII2:(A)BLA,EX- FQ,2010I2:I2,I:WV,.` ICSWCSWSW:I211:AII2:(A)EXA,BLr I2,I:C,BL:x INITIALIZE "INITIALIZING......" 53280,11: 53281,1: SET SCREEN COLORST5529656319:T,0: SET SOUND VOICE #1* 54296,15: VOLUMEH 54277,0: ATTACK-DECAYk 54278,240: SUSTAIN RELEASE 54272,100: LO FREQ.FQ54273: HI FREQ. REGISTERWV54276: WAVE FORM REGISTERNOI129:SAW33:TRI17: WAVE FORM VALUES$HOM32727:D33266: SCREEN LOCATIONSKTLIM10800: TIME LIMIT (JIFFIES)BL32:SW40: VALUE TO POKE BLANK, SCREEN WIDTH SET RANDOM VALUE FUNCTIONS A(R)((R)31)  B(R)((R)915) C(R)((R)63) D(R)((R)21) ( E(R)((R)81)T2ST$"":I111:A:ST$ST$(A):: TOP OF SHIP{< 32,66,69,70,73,74,77,78,81,82,32FSB$"":I111:A:SB$SB$(A):: BOTTEM OF SHIPP 67,68,71,72,75,76,79,80,83,84,85ZSL$"":I4347:SL$SL$(I):: SCORE DISPLAY LINE6dI16:PT(I):: POINT VALUESOn 150,40,25,75,20,15}x 8000: READ, POKE CUSTOM CHARACTER SET 6000mn BEGIN GAMEopX(TI): " - BATTLESHIP WAR - BY KEITH MEADE "z " YOU ARE IN COMMAND OF A BATTLESHIP."C " YOU HAVE 3 MINUTES TO DESTROY AS MANY"q " ENEMY SUBS AND PLANES AS POSSIBLE." " POINT VALUES:" " SMALL SUB = 150 SMALL PLANE = 75" " MED SUB = 40 MED PLANE = 20" " LARGE SUB = 25 LARGE PLANE = 15"H " CURSOR KEYS FIRE THE CANNONS."z " SPACE BAR RELEASES A DEPTH CHARGE." X1 40: " PRESS ANY KEY TO BEGIN PLAY" X1 40: " PRESS ANY KEY TO BEGIN PLAY"  IN$: IN$"" 6100 ""SSCRAM0:CHSET2: SCREEN RAM, CHAR SET LOCATION VALUESy 10000: MOVE VIDEO BLOCK, ETC. DRAW GAME DISPLAY$ 53281,5: "": 53281,1: CLEAR, SET COLOR RAM.I5529655695:I,11:: CHANGE SOME COLOR RAM18 "";:I140:(65);:: WATER LINERB "";13);ST$: SHIP TOPpL 13);SB$: SHIP BOTTEMV "";SL$;TPT: SCORE LINE` I1 3:X(I)39:X(I3)0:: RESET TARGET POSITIONSe53281,15j 100UV GAME OVERW'X 53281,7: CHANGE SCREEN COLORBb I1 2000:: WAIThl 53281,1: RESTORE SCREEN COLORqv"" 10100: RESTORE VIDEO LOCATION 53272,((53272) 240)5: RESTORE STANDARD CHARACTER SET "TIME'S UP!!" TPTHIGAME HIGAMETPT) "YOUR SCORE =";TPTF "HIGH SCORE =";HIGAMEf "ANOTHER GAME? (Y OR N)" IN$: IN$"Y" TPT0: 6000 IN$"N" 7110=> CUSM CHAR ?@M34816JLIN8040835010:TT0:I116:A:M,A:MM1:TTTTA:5TA:TTA"ERROR IN LINE";LIN:=^:lh 0,0,0,0,0,0,0,0,0,0,0,0,0,204,170,51,425r 192,96,48,24,12,2,10,10,0,0,170,255,127,59,21,14,1040| 10,10,170,255,255,187,85,238,0,0,0,0,0,128,160,160,1658+ 10,10,10,10,10,255,255,204,160,160,170,255,255,187,85,238,2274u 204,255,170,255,255,187,85,238,138,138,138,138,138,255,255,204,3053 138,138,138,138,138,255,255,204,204,255,170,255,255,187,85,238,3053  204,255,170,255,255,187,85,238,138,138,138,138,138,255,255,204,3053S 138,138,138,138,138,255,255,204,204,255,170,255,255,187,85,238,3053 204,255,170,255,255,187,85,238,128,128,128,128,128,193,197,197,2876 3,6,12,24,48,80,84,84,197,197,170,255,255,187,85,238,1925  84,84,170,255,255,187,85,238,0,0,170,254,252,184,80,224,2522X 0,48,49,255,255,49,48,0,3,6,12,255,255,6,3,1,1245 1,3,7,255,255,0,0,128,0,0,0,42,170,170,0,0,1031 40,80,160,170,170,170,80,40,1,2,5,170,169,170,10,2,1439 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0D  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0y  0,12,12,255,255,0,0,0,0,0,0,0,255,127,63,0,979  0,224,224,224,255,255,254,0,0,0,0,0,170,170,42,10,1828 & 2,2,2,2,170,170,170,170,128,128,128,128,168,170,170,168,1876-!0 128,64,32,16,8,4,2,1,1,2,4,8,16,32,64,128,510q!: 0,146,84,56,214,56,84,146,112,249,193,241,121,25,249,240,2216!D 225,243,131,131,131,131,243,225,227,243,51,51,51,51,243,227,2604!N 227,51,51,227,227,51,51,51,224,224,15,207,192,15,239,224,22769"X 60,102,102,102,102,102,60,0,24,24,24,24,24,24,24,0,798o"b 124,6,6,12,48,96,126,0,124,6,6,28,6,6,124,0,718"l 102,102,102,127,6,6,6,0,126,96,96,124,6,6,124,0,1029"v 60,96,96,124,102,102,60,0,126,6,12,24,24,24,24,0,880!# 60,102,102,60,102,102,60,0,60,102,102,62,6,6,60,0,986I# 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0y# 0,0,0,0,0,0,0,0,192,6,48,0,3,192,12,0,453# 112,216,112,0,14,27,14,0,0,0,0,60,126,60,0,0,741# '# ' MOVE VIDEO BLOCK #3# ' SET SCREEN RAM $' CHAR SET LOCATIS$'L$' SCRAM0 SCRAM15 " SCREEN RAM LOCATION ERROR ":o$' CHSET0 CHSET15 CHSET4$$' 56576,5: VIDEO BLOCK LOCATION$.' 53272,16SCRAMCHSET: SCREEN RAM,CHAR SET LOCATION$8' 648,1284SCRAM: NOTIFY BASIC$B'%q'%r' VIDEO NMAL%s';%t' 56576,7: VIDEO BLOCKb%~' 53272,20: SCREEN RAM, CHAR SET%' 648,4: BASIC'S SCREEN LOCATION%' љ" "; 9" ";=:" ";n;" ";<" ";=" ";>" ";2?" ";c@" ";A" ";B" ";C" ";'D"";2E 1000d"";"LAP 0TRACK 4";"";" ! ";(" ! ";Y" ! ";" ";" ";" ";" ";N" ";" ";" ";" ";" ";C" ";t" ";" ";!" ";" ";8" ";i" ";" ";"";WV,248:DI1:LP%0:H0:ATI60:XX32929XX,VH(Di):D1Sp:FQ,0:FQ,255:@LfQ,255:A$:FQ,0:A$""1200KQFQ,80jV$A$">"DIDI1:DI5DI1`A$"<"DIDI1:DI0DI48yA$"Q""":FQ,0:2150Fq,255:XX,32xXXXAD(DI):FQ,0PK%(Xx)PK%331400 PK%325000:10201020NxDI1"DISQUALIFIED!!":D1500::2150`DI1XXXX1nLP%LP%132817,48LP%LP%P%3000LP%P%1BTI60:20001020T((BA)100)100.04"YOUR TIME WAS ";T:"YOU HIT THE WALL ";H;" TIMES",>TBT(TR%)BT(TR%)TE@HBH(TR%)BH(TR%)H^CTWT(TR%)WT(TR%)TwEHWH(TR%)WH(TR%)HF"OF THE ";G(TR%);" GAMES PLAYED"G"SO FAR ON TRACK ";TR%;" ....."H"THE BEST TIME IS ";BT(TR%)M"THE WORST TIME IS ";WT(TR%);R"THE LEAST NO. OF HITS IS ";BH(TR%)^W"THE MOST HITS IS ";WH(TR%)r\G(TR%)G(TR%)1f"ANOTHER RACE? (Y OR N)"pA$:A$"Y"A$N"2160zA"N"59467 0:0 I3282532828:I,127:I40,127::HH1XXXXAD(DI)#XX,VHDI)/WV,100[I02:FQ,I:D15::FQ,I12:xD100FQ,255:FQ,0:WV,248:d