B(Q)1023X9(Q1)40; C(Q)1023Q(Y91)40WD$""D$D$" "D$D$""53280,3:53281,14M1(20,15) M$"" M1$""% ""; 1);M$;" ";M$w I110:1);" ": 1);M1$;" ";M1$ " ENEMY FLEET YOUR FLEET" D$;"GETTING THE SHIPS...":1000:D$; "JOYSTICKS OR KEYBOARD? (J OR K)" 9000. X$"J"X$"K"319 !X1$X$c #XX$"JOYSTICK":X$"K"XX$"KEYBOARD" %X2$"FIRE BUTTON":X$"K"X2$"SPACE BAR" (X$"J"100 -D$;"USE I TO MOVE UP" ." M TO MOVE DOWN" /" K TO MOVE RIGHT" 0" J TO MOVE LEFT"8 1: " AND SPACE-BAR TO SHOOT"d 2"PRESS ANY KEY TO CONTINUE...";:9000 3D$:I16:" ": 4" "; d5000:S$"AIRCRAFT CARRIER":N94:N81:1500 nS$"BATTLESHIP":N93:N82:15005 xS$"CRUISER":N92:N83:1500V S$"CRUISER":N92:N83:1500y S$"DESTROYER":N91:N84:1500 V21,0:D$;"WAIT WHILE I PLACE MY SHIPS":2000 D$ D$;"AND THE BATTLE RAGES..." OX0:C20:C10:X910:Y97:1300 F51600$ I1DF:3000:. 2500C C217C117300L 210r ,V21,0:C117D$;"YOU WIN":500 62300:D$;"I WIN" :" DO YOU WANT TO PLAY AGAIN (Y/N)?"; 9000:X$"N"40000 15 XD$;"YOUR ATTACK" ]3000:F11605bD$l2500&vC217C117300/6005G SPRITE INITMV53248:2040,13:V39,1:I83283262:Q:I,Q:0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0 0,0,0,255,129,255,0,0,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0'0,24,0,0,24,0,0,24,03V21,09KPL KEYBOARD ROUTINEcQDX0:DY0:F10kVX$`X$"I"DY1:jX$"M"DY1:tX$"K"DX1:~X$"J"DX1:X$" "F11: JOYSTICK ROUTINEDY0:DX0:F10 W(56320) (W16)0F11:5(W1)0DY1:I(W2)0DY1:^(W4)0DX1:r(W8)0DX1:x SHOW SPRITE AT X9,Y9W235Y98:W18X98(V21,0:V16,0:W1255V16,1:W1W12552V,W1:V1,W2:V21,1n SHIP PLACEMENT ROUTINE3V,200:V1,59 :V21,1VD$;"USE ";XX$;" TO PLACE ";S$v" PRESS ";X2$;" WHEN DONE"X924:Y931300X1$"J"1200X1$"K"1100F111600DX0DY01540"X9X9DX:Y9Y9DY,X924X924-Y93Y93.X938X9380/Y912Y912:61537j@D$;" ";AD$;"HORIZONTAL OR VERTICAL (H OR V)?"J9000TX$"H"X$"V"1610^D$hX$"V"1700rSXX9:SYY9:F90:X9SXSXN9 |(C(X9))32F91:F911800SX9SXSXN9:C(X9),N8:C(X9)54272,0::1900uSXX9:SYY9:F90:Y9SYSYN9(B(Y9))32F91:F911800Y9SYSYN9:B(Y9),N8:B(Y9)54272,0::1900 D$;"SORRY THE SHIP DOES NOT FIT THERE":I11000:1500l: COMPUTER SHIP PLACEMENTGA(TI)iI110:J115:M1(J,I)0::I111:M1(16,I)1:I116:M1(I,11)1:N94:N81:2200N93:N82:2200N92:N83:2200N92:N83:2200 N91:N84:220034 GET RANDOM X,Y>>X((1)151):Y((1)101)DN2100d((1)2)12250SXX:SYY:F90:XSXSXN9M1(X,Y)0F91:F912200XSXSXN9:M1(X,Y)N8::SXX:SYY:F90:YSYSYN9M1(X,Y)0F91:F9122000YSYSYN9:M1(X,Y)N8::N REVEAL COMPUTER'S SHIPSr I115:J110:M1(I,J)02350 W1(J1)40I1025:W1,M1(I,J):W154272,0. :: COMPUTER'S SHOT OX02600 2100 W1(Y1)40X1046 (W1)81; W154272,1:(W1)32W154272,2:OXX:OYY:C2C21H W1,81:Q( FF0j) W1(OY1)40OX1046P (OX116)((W11))81YOY:XOX1:2525Q (OY111)((W140))81YOY1:XOX:2525R (OY10)((W140))81YOY1:XOX:2525&S (OX10)((W11))81YOY:XOX1:25256T FF12694aU FF1:((W154273)2)2OXOX1:2601V ((W154271)2)2OXOX1:2601W ((W154312)2)2OYOY1:2601X ((W154232)2)2OYOY1:2601 OX0 2520 PLAYER'S MOVE  X1$"J"1200 X1$"K"1100, F113100= DX0DY0S X9X9DX:Y9Y9DYb X93X93q Y93Y93 X917X917 Y912Y912 1300: W1X91023(Y91)40:(W1)32& W154272,1:M1(X92,Y92)0W154272,2:C1C110 W1,81  AF50:D$;"DO YOU WANT A REAL TIME BATTLE (Y/N)?"X9000:X$"Y"5009iF51:D$;:D$;"DIFFICULTY FACTOR (1-9)?"9000X$"1"X$"9"5010D$DF10(X$)(#X$:X$""90002#X$""40000#@