S%(12,10):1000 18988:121:~"000000":TT$~V14,14:@1,2,o28):4,14:@26,3,"FIRE":@26,4,"AWAY":@26,5:IN$~"J"{IN$~"j"s252DT~((,5)):DTT~((TT$,5)):DTDTTsDT~DTt60,DTuDTT}3sI~1r5:234tI,TMt8:I:TM~TMu1,DTuDTT}6sI~1r5:234tI,TMt8:I:TM~TMu1 TT$~5CTR~CTRt1:CTRy3~0sI~1r5:234tI,TMt8:I:TM~TMu1 TM~u1s204L @26,5," ":@26,5:A$~$(1):B$~$(1):A~(A$)u64:B~(B$):A}11 { B}9s10 A1 { B1 s10I QA~(Bw2)t3:QB~(Aw2)t2:X$~(QA):X$~(X$,QB,1):X$~""s@26,5,"XX":108 X$~"X"{X$~"A"{X$~"C"{X$~"D"{X$~"S"s@26,5,"--":20X~S%(A,B) X~4s76 X~3s71 X~2s63 X~1s58 X~0s56"I~1r5:210tI,UPt8:I:UP~UPu1UP~u1s185HT~20s17836CTR~CTRt1:CTRy25~0sI~1r5:234tI,TMt8:I:TM~TMu1 2,MM,OO,1,251:TM~u1s2040)}200sMM~MMt160)50sMM~MMu161)}200sOO~OOt161)50sOO~OOu16MM}184sMM~184MM24sMM~24 OO}152sOO~152!OO24sOO~24"A~(MMu8)x16:OO~152sB~1#OO~136sB~2$OO~120sB~3%OO~104sB~4&OO~88sB~5'OO~72sB~6(OO~56sB~7)OO~40sB~8*OO~24sB~9+X~S%(A,B):0)~1s24=,QA~(Bw2)t3:QB~(Aw2)t2:X$~(QA):X$~(X$,QB,1):X$~""s52-X$~"X"s52&.X$~"A" {X$~"C"{X$~"S"{X$~"D"s52 /X~4s76 0X~3s71 1X~2s63 2X~1s58 3X~0s56"4I~1r5:210tI,UPt8:I:UP~UPu15UP~u1s1856HT~20s178724@86,0:7,104:12,96:13,0:6,15:@(Aw2)t1,(Bw2)t3,"":7,71 91,15:MS~MSt1:@26,10,MS:J:87:6,6:12,100:13,0:CS~CSt1:1,14:CS~1s@0,1,"":1,0,177,12,94$;CS~2s@1,1,"":1,9,177,12,94%<CS~3s@2,1,"":1,15,177,12,94*=I~6r9:I,5:@(Aw2)t1,(Bw2)t3,"S":I>L?87:6,17:12,100:13,0:CD~CDt1:1,14:CD~1s@4,1,"":1,34,177,12,94%@CD~2s@5,1,"":1,40,177,12,94%ACD~3s@7,1,"":1,58,177,12,94%BCD~4s@8,1,"":1,63,177,12,94&CCD~5s@10,1,"":1,82,177,12,94&DCD~6s@11,1,"":1,88,177,12,94*EI~6r9:I,5:@(Aw2)t1,(Bw2)t3,"C":IFGG87:6,27:12,100:13,0:CC~CCt1:CC~1s@15,1,"":1,121,177,12,94'HCC~2s@16,1,"":1,129,177,12,94'ICC~3s@17,1,"":1,136,177,12,94*JI~6r9:I,5:@(Aw2)t1,(Bw2)t3,"D":IK%LI~1r7:1:14:15:1:14:IOM87:6,31:12,100:13,0:AS~ASt1:15,14:AS~1s@22,1,"":1,177,177,12,94'NAS~2s@23,1,"":1,185,177,12,94'OAS~3s@24,1,"":1,193,177,12,94'PAS~4s@25,1,"":1,201,177,12,94'QAS~5s@27,1,"":1,217,177,12,94'RAS~6s@28,1,"":1,225,177,12,94'SAS~7s@29,1,"":1,233,177,12,94'TAS~8s@30,1,"":1,241,177,12,94*UI~6r9:I,5:@(Aw2)t1,(Bw2)t3,"A":IVW13,4:HT~HTt1:@26,8,HT:LX:0:14:4,14:32:40,"000000ff00000000":251,"E7818100008181E7"4Y41,"080808ff08080808":42,"0808080808080808"uZA$~"()()()()()()()()()()()()":HT~0:MS~0:CS~0:CD~0:CC~0:AS~0:MM~104:OO~104:UP~UPP:TM~TMM:CTR~0:8,16:9,16:10,16'[7,71:B$~"* * * * * * * * * * * *"\I~3r21p2 ]@2,I,B$^@1,It1,A$_I`5,14:I~3r24p2a@I,3,(64t(Ix2))bIc12,14:I~5r22p2d@1,I,(47t(Ix2))eIf1,12:@0,0,"SUBS"g1,10:@4,0,"CRUISERS"h1,7:@12,0,"DESTROYER"i1,8:@21,0,"A/CARRIERS"0j1,12:@1,2,"DEPLOYING SHIPS PLEASE WAIT"0k13,4:@26,7,"HITS";(10);((8),4);" "l1,5:@25,12,"S"[m@25,13,"H";(10);(8);"E";(10);(8);"L";(10);(8);"L";(10);(8);"S";(10);(8);" "=n@25,19,"L";(10);(8);"E";(10);(8);"F";(10);(8);"T"-o12:P~1r5:I~u8rUPu8:210tP,UPuI:I:P0p1,15:@26,9,"MISS";(10);((8),4);" "Lq@28,14,"T";(10);(8);"I";(10);(8);"M";(10);(8);"E";(10);(8);" "=r@28,19,"L";(10);(8);"E";(10);(8);"F";(10);(8);"T",s6:P~1r5:I~u8rTMu8:234tP,TMuI:I:P?t239,"001F3F3B3F1F0000":240,"00F8FCDEFCF80000":CRUISER(u241,"0000187EDB7E3C00":SUBMARINEZv242,"001F7F7F7F557F00":243,"00FFFFFFFF55FF00":244,"00C0FCFCFC54FC00":A/CARRIEROw245,"0004047F75717F7F":246,"002020FFAF8FFFFF":247,"000000FCDEE7DEFC"xyI~1r11:**CLEARS% zP~1r9{S%(I,P)~0|P}I&~T~1r2:***START AIRCRAFT CARRIERNN~0:X~(8)t1:Y~(6)t1I~Xu1rXt4P~Yu1rYt4S%(I,P)}0sNN~1PINN~1s127 R~(5)<R~0s S%(X,Y)~4:S%(Xt1,Y)~4:S%(Xt1,Yt1)~4:S%(Xt1,Yt2)~47R~1sS%(X,Y)~4:S%(Xt1,Y)~4:S%(Xt2,Y)~4:S%(Xt3,Y)~47R~2sS%(X,Y)~4:S%(X,Yt1)~4:S%(X,Yt2)~4:S%(X,Yt3)~4;R~3sS%(X,Y)~4:S%(X,Yt1)~4:S%(Xt1,Yt1)~4:S%(Xt1,Yt2)~4?R~4sS%(Xt3,Y)~4:S%(Xt3,Yt1)~4:S%(Xt2,Yt1)~4:S%(Xt1,Yt1)~4T T~1r1*NN~0:X~(9)t1:START DESTROYER ACROSS Y~(8)t1I~Xu1rXt3P~Yu1rYt2S%(I,P)}0sNN~1PINN~1s1422R~(3):R~0sS%(X,Y)~3:S%(X,Yt1)~3:S%(Xt1,Y)~3+R~1sS%(X,Y)~3:S%(Xt1,Y)~3:S%(Xt2,Y)~3-R~2sS%(X,Y)~3:S%(Xt1,Y)~3:S%(Xt1,Yt1)~3T T~1r3)NN~0:X~(10)t1:START cruiser across Y~(8)t1I~Xu1rXt2P~Yu1rYt2S%(I,P)}0sNN~1PINN~1s155&R~(2):R~0sS%(X,Y)~2:S%(Xt1,Y)~2R~1sS%(X,Y)~2:S%(X,Yt1)~2T T~1r3%NN~0:X~(11)t1:START SUBMARINES Y~(9)t1I~Xu1rXt1P~Yu1rYt1S%(I,P)}0sNN~1PINN~1s167S%(X,Y)~1T@12,1:@5,10,"WELL DONE ";(10);((8),12);"YOU HAVE";UPZ@5,12,"SHOTS LEFT ";(10);((8),12);"PLAY AGAIN? ";(10);((8),12);" Y/N/C "!@14,14," ":@14,14:W$~$(1)W$~"Y" { W$~"y"s2W$~"N" { W$~"n"s::W$~"C" { W$~"c"s1 :180 1,15F@5,10,"NO SHELLS LEFT !!!";(10);((8),18);" GAME OVER " @5,12,"PLAY AGAIN Y/N/C " 180:1:4,1:40::I~2r8:I,1:@2,I,"BATTLESHIPS":I54,1:@3,0,"Send s.a.e. for our software range"`I~2r20:I,1:@20,2,"BELL SOFTWARE":W~1r30:W:I:@20,4,"7 Common Close":@20,5,"Horsell".@20,6,"Woking":@20,7,"Surrey GU21 4DB"f@5,10,"Press II for instructions or":@2,11,"Enter number of shells required 20]95":@15,12," "9@15,12:UP$~$(2):UP~(UP$):UPP~UP:UP20{UP}95s199 UP~UPu19@2,14,"Keyboard or Joystick? K/J":@32,14:IN$~$(1)f@2,16,"Enter time limit 1=short 6=long":@35,16:TM$~$(1):TM~(TM$)w9:TMM~TM:TM9 { TM}54s197ZUP~0s@0,12,"You must aim and hit 9 boats before you run out of shells.";o61): 193a@0,15,"There are 3 submarines";(10);((8),12);"3 cruisers";(10);((8),10);"1 destroyer""@10,18,"2 aircraft carriers"3@1,20,"Plenty of shells make the game easier"B@5,22,"<>":@35,22:PP$~$(1):189P12,1:@5,10," TIME UP ";(10);((8),17);"PLAY AGAIN Y/N/C":180 ::@(x!0!a A#