:59468,12A BSHIP COPYRIGHT (C) 1978 HOWARD ARRINGTONh 201 S. ALMON #9, MOSCOW ID 84843n: CURSOR #5, NOV/DEC 78 BOX 550, GOLETA, CA 93017 AS OF 7 MAR 80Z 62000oSB45:SH%(3,7)pI03:J17qSH%(I,J):J:INr30,4,29,60,92,96,89,0,2,10,11,12,20,22,0,9,11,21,29,31,40,0,1,10,12{sD(9),S$(4),L%(2,4,5),Z%(4,6),E(9),B%(7)tI19:E(I):Iu20,21,30,39,40,41,-1,0,1,-41,-40,-39xI03:S$(I):I"SUBMARINE","PATROL","CRUISER","BATTLESHIP"1BL$" "QW(1)1:W(2)1:W(3)2:W(4)3vJ14:K1J1:Z%(J,K)SB:K:JI19:D(I):I9,10,11,-1,0,1,-11,-10,-9A32930:P22:L11::V(1)7:V(2)7:N1"YOUR NAME: ";:60000:N$(1)IN$N$(2)"CAPTIAN PET"F," 0123456789 ENTER SHIP LOCATION USING"z/17);"A TWO DIGIT NUMBER":20);"<00 THRU 99>"015);"IN THE FORMAT OF ROW #":20);"AND COLUMN #"214);"FOR DIRECTION USE THE"414);"KEYS AROUND THE '5'."514);"ENTER ";N$(1);"'S SHIPS"+6700:J14L;: S$(J1);" OF LENGTH";J1wTTB3:PR$"LOCATION":8000:L%(1,J,1)LC^20);"DIRECTION: ";:60000:(IN$)1520_IN$"1"IN$"9"520`DD((IN$)):K1:L15:600:D0K2:500 hK2J1:L%(1,J,K)L%(1,J,K1)D" r600:D05002 K:J:1600L LSB: KK1 1 1X 610:Kp :"";BL$;"":340v X ]L(S$(J1))64 bJ1L%(1,J,K):K1(J110):J1J1K110 dL10J19640 fL19J10640 lL1J1:BAK140J1120 vLSB(B)SBB,L: D0:> " 0123456789"S " 0";:J110l 2);"----------":Jr  L11: ** DISPLAY GRIDS "":B$"0123456789" TB02222 ""TB);N$(TB221):  TB2);B$:TB);" "& I110:TB);(B$,I,1);"----------":I[ $TB);" ":"":TTB13:T);"HITS" .I25:T);("*****",I):I:"":TB  I211:I21800 ""; J19:BL$:J "";V(I);"SHOTS" J1V(I)& TB0:PR$"#"(J):8000:B%(J)LC:@ K(LC10):K1LC10KX TAP(I1)K40K1u (T)SBB%(J)2:1295 T,L1 J  K13I J11V(I):BB%(J1) (J14:K1J1 2BL%(K1,J,K)1345 <K:J:1390 AKK1J1 FKX(AP(I1)J40KK30)A PKX42AP(I1)J40KK30,L1:1365I RKK] UI2Z%(J,K)L1j ZK1J1 dB(AP(I1)J40K30) fB421390 hK:V(K1)V(K1)W(J) iI2Z%(J,1)0 jV(K1)01400 nJ1:I sL1L11:1200 x/"";N$(K1);"'S SHIPS HAVE BEEN SUNK!! ";>L1:I12RJ14:K1J1iJ1(L%(I,J,K)10)K1L%(I,J,K)J110TAPLJ140K1B(T):T,B128K:J:L0:I"""WANT TO PLAY AGAIN?" RJ$:RJ$""1518RJ$"Y""5000(@JJG(1)1:G(2)9:G(3)10:G(4)11]TL11:J411v^B((1)41):BG(B)hL1:(1).5L1rI((1)100)|K1J1J14J11:K11J11L%(2,J1,K1)I1650K1:J1 L%(2,J,K)I:DI(I10)10L10D916500L19D01650PL1D:IILB:I99I01650`K:J:1000f "";22);V(2);"SHOTS":2200:L1V(2)L PRINTTAB(22);"#";L;": ";RIGHT$("00"+MID$(STR$(B%(L)),2),2)NL:1300L1/Z10:Z29:Z31:(1).5Z19:Z20:Z31QR0:J411:Z%(J,1)02605^K1J1sZ%(J,K)SB2600J2Z1Z2Z3:K2Z1Z2Z3BAPJ240K2(B)Z%(J,K)2350 CYCLE DIRECTION-TESTDR19:DR52340KK1J1 KKK23306BJ210K2(KKK)D(DR):B0B992340N2900:PK102PKSBePKZ%(J,KK)2340 K24KXKX4K22340 KK 2800$ DR. K2:J2:2600` 3400:K18:D((1)5)a D0F0:2406b D4FF25:D1:2406e F((1)99)f MLV(2)5j BSH%(D,M)F:B1002510:M:Ft FF43:2410W B((1)99)n 2900:PKSB2500 J1B:R1:DR19:BJ1D(DR):2900:PKSBRR1 RK12560 DR:K1K11:2500 BJ1:2900 22);"#";L;": ";("00"((B),2),2) LL1:APJX40KX,L1:#( K4- J:R02400>/ 2210D R KK1J1n BJ210K2(KKK)D(DR) 2900:PK102PKSB PKSB2880, R1:2570:LV(2)@ KK:2600T ^ B%(L)B:JX(B10):KXB10JX PK(APJX40KX):H M J14:Z%(J,1)03410'P J7R L18J1MW DJ:J09:K09iZ (APJ40K)SB3550\ DR19:DR53500p KK1D:BJ10KKKD(DR)z B0B993500 2900:PK102PKSB PKSB3500 KX4KK4KX3500 KK:3550 DR APJ40K,102( K:J:.I@TB);PR$;": ";:60000[JIN$"" 8050TIN1(IN$):T$(IN$,IN,1):T$"0"T$"9"8050^IN:LC(IN$):LC0LC998050hr:"";BL$;"":8000`IN$" ":ZTTI:ZC2:ZD$(20) jZ$: Z$""600709tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15D~60010tZ(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010OZ141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000Z60010tTI110:"";:I:0"";9);"CURSOR #5 BSHIP":"COPYRIGHT (C) 1978 BY HOWARD ARRINGTOND 60500N"THE GAME OF BATTLESHIP: YOU VS. PET.X "SEE CURSOR NOTES#5 FOR INSTRUCTIONS."4b