ZXTape! 0Created with Ramsoft MakeTZX1LOADING Q QS BATTLE SHIP'S $1:1:1:1  49999O (L8,9 ;7;"BATTLE SHIP'S";10 ,10 ;"PLEASE WAIT" 2D"BAR SC"50000P,3075 :50002R,1:50000P <15,0; F5"CHR$"64000,768:236077\,249 P15,0; Z""CHR$ FADE"61600,502 d15,0;:"" n x ""LOADING"10 !"BAR SC"50000P,3075 "CHR$"64000,768 ""CHR$ FADE"61600,502 "" "" "" "" &BAR SC  PQ/G  |;;33R*~=(^#V@##~< ~w#~< ~w#~w~86~8686~ 6#~@WOF  FF( CzW{ _zWQ>XWFK x 66V( y(~# ~G#~O#^ "" ! >!   :@qD&?#3#>:& }= !D  p <d x؀3!  :Dr +??& uupq   p?#3#>'m! uuq 1<d x؀({z{{m& a ) @@@!O |< (:"?#3#>  m& &@ q1<d x؀ p ?!p Mp(:#  o@ q1 px!ep(:(! .6pqsw @ p1!" !.!46w6p(:'.(4>wwwww!@ p1!.!4tvwwwvt( p(:(4!@ p0A!#D q!4gwws(@`(8@ )I?O (3qpw733gyp0 ,A!3 q ?!!??@1 @(8D?(" 0@4A!&0!!ݍLJ8@9(PT(  0@  !S63!(!! @ @33gyp0 %)(  p??@ 33gyp0 !. ?!  "D &s( ??@:?}9ܝ !@Q1A!!4U! @ (D &c( H( @p 33gyp0 &/7575UU !@ q!0 ??@ 1 @ q4 PpoU! ݝ (*D &q (0@(:D &9?ݝ !D q@ 8p@ >q= LJLJ (:q q  M oh ohhonnoohhhn ohhhooonh oonoho hnhh onnhoo hnhhohhhooonnho hnnhhohhhnohoohhooohoohhhohohohohohoohohhhohohh ohONONNONNONNO N ONONONO NMNONOO N NNNN OOHNNNNNNNNN N OMMMNMN\CHR$ QV$$$~$$~$> >>bd&F< $~DD|  >>> ~FJVf~~B~`~|DF~|DDD~ ~@~F~~@~FF~| <$~FF~~BB~ >>~>00~JJjjj~BBbbb~FBBB~~BB~``~BBBN~|DD~bb~@~F~|BBBbb~bbbf$<JJJjj~BB x00>~~'?!?HH<? y<Hbå00 8|8888(D(((8 8888|88(((D(0OO0||`|8pp(~~'CHR$ FADE 2Q! 4!@6|X &@ x !XX:\w!0BATTLE j7 j7Ml7 #236077\,249:2650Z @2980 :61600:0:7:7:0: P0,0;1;5;0;" ABCDEFGHIJKLMNO ABCDEFGHIJKLMNO" (ya=115:a,0;1;0;6;(64@+a);0;7;0;"ooooooooooooooo":a 2za=115:a,16;1;6;0;(64@+a);0;0;7;"ooooooooooooooo":a < GAME VARIABLE  Fhz$(15,15):y$(15,15):x$(15,15):w$(15,15):ct=1 P-a=115:z$(a)=" " Zy$(a)=" " d5w$(a)=" ":x$(a)=" ":a n'u=0:hitp=0:hitc=0 xnn=6:pp=2 e=1:f=1 G16,3;1;" SPECTRUM ";16,19;" ";b$;" "  PLAYER BORAD PLACES   SUBMARINE  a=13:502 /hh=1:v=15:j=01380d j=11540 $z$(e,f)" "2130R:180 z$(e,f)="a" (e,f+16;1;5;"a":a  CRUISER  a=13:502 /hh=2:v=14:j=01380d j=11540 8z$(e,f)" "z$(e,f+1)" "2070:250 "z$(e,f)="b":z$(e,f+1)="c" ")e,f+16;1;5;"bc":a , BATTLE SHIP  6a=13:502 @/hh=3:v=13 :j=01380d Jj=11540 TLz$(e,f)" "z$(e,f+1)" "z$(e,f+2)" "2070:320@ ^7z$(e,f)="d":z$(e,f+1)="e":z$(e,f+2)="f" h*e,f+16;1;5;"def":a r AIRCRAFT CARRIER  |a=13:502 /hh=4:v=12 :j=01380d /j=1hh=4:v=12 :1540 `z$(e,f)" "z$(e,f+1)" "z$(e,f+2)" "z$(e,f+3)" "2070:390 Lz$(e,f)="g":z$(e,f+1)="h":z$(e,f+2)="i":z$(e,f+3)="j" +e,f+16;1;5;"ghij":a -h=2025:.1}L,20-h:h  COMPUTER BORAD PLACES   2010 '18,13 ;1;" MY GO "  1950  SUBMARINE  a=13 2e=(*14)+1:f=(*14)+1 y$(e,f)" "510  y$(e,f)="a" a & CRUISER  0a=13 :2e=(*14)+1:f=(*13 )+1 D,y$(e,f)" "y$(e,f+1)" "570: N"y$(e,f)="b":y$(e,f+1)="c" Xa b BATTLE SHIP  la=13 v2e=(*14)+1:f=(*12 )+1 @y$(e,f)" "y$(e,f+1)" "y$(e,f+2)" "630v 7y$(e,f)="d":y$(e,f+1)="e":y$(e,f+2)="f" a  AIRCRAFT CARRIER  a=13 2e=(*14)+1:f=(*11 )+1 Ty$(e,f)" "y$(e,f+1)" "y$(e,f+2)" "y$(e,f+3)" "690 Ly$(e,f)="g":y$(e,f+1)="h":y$(e,f+2)="i":y$(e,f+3)="j" a 2e=(*14)+1:f=(*14)+1 y$(e,f)" "730  PLAYER ATTACK  "j=11730:950 e2010:#1;0,2;1;" YOUR GO ";b$;" ";1;hitp;0;" HITS "  18,0;1;" KEY'S :- ";19,10 ;" s ~";u$;"~ ";19,21;" v ~";d$;"~ ";20,10 ;" q ~";l$;"~ ";20,21;" r ~";r$;"~ ";18,10 ;" FIRE ~";f$;"~ " p$=:p$="Q"2430~  p$="S"3150N *'e=e+(p$=k$(2))-(p$=k$(1)) 4'f=f+(p$=k$(4))-(p$=k$(3)) >e<1e=15 Hf<1f=15 Re>15e=1 \f>15f=1 f.009ztj,-(e+2) p.e,f;1;1;7;2;"p" zIni=0:bt=0:y$(e,f)" "w$(e,f)="X"ni=2:bt=1 w$(e,f)="X"bt=1 -e,f;1;bt;ni;7;"p":2 [#1;1,2;1;" YOUR POSITION IS ~";(e+64@);(f+64@);"~ " p$=k$(5)950  790 $w$(e,f)="X"2130R:750 %a=20502:.09}8Q,a:a %w$(e,f)"X"y$(e,f)" "1030 w$(e,f)="X":2010 &21,12 ;1;" MISS " e,f;1;"p" 1,0 2930r :1110V  PLAYER HIT  32010:21,12 ;1;" A HIT " a=98b1984 $;cc=nn:nn=pp:pp=cc:e,f;1;nn;pp;y$(e,f):pp:a .)e,f;1;2;7;y$(e,f) 8.hitp=hitp+1:hitp302510 Bw$(e,f)="X":7:7 L 750 V COMPUTER ATTACK  `U2010:18,4;1;" MY GO ";1;hitc;0;" HITS " j>u=0e= m(ct,1):f= m(ct,2):ct=ct+1 t$x$(e,f)="X"u=0:1130j ~I18,4;1;" MY GO ";1;hitc;0;" HITS " J21,10 ;1;" I CHOSE >";(e+64@);(f+64@);" " 7e,f+16;1;1;2;7;"p" %a=20502:.09}8Q,a:a %x$(e,f)"X"z$(e,f)" "1230 ;x$(e,f)="X":#1;1,12 ;1;" MISS " 1,0 2e,f+16;1;"p":100d:750  COMPUTER HIT  /#1;1,12 ;1;" A HIT " a=98b1984 Dcc=nn:nn=pp:pp=cc:e,f+16;1;nn;pp;z$(e,f):pp:a 2e,f+16;1;2;7;z$(e,f) 7:7:x$(e,f)="X"  .hitc=hitc+1:hitc302430~  u=1 $z$(e,f)="a"u=0:1140t (>z$(e,f)="b"z$(e,f)="d"z$(e,f)="g"f=f+1:1140t 2&z$(e,f)="c"f=f-1:1140t <>z$(e,f)="e"z$(e,f)="h"z$(e,f)="i"f=f+1:1140t F&z$(e,f)="f"f=f-2:1140t P&z$(e,f)="j"f=f-3:1140t Z 1110V dKEY'S CONTROL BORAD n18,0;1;" KEY'S :- ";19,10 ;" s ~";u$;"~ ";19,21;" v ~";d$;"~ ";20,10 ;" q ~";l$;"~ ";20,21;" r ~";r$;"~ ";21,0;" FOR POSITION PRESS ~";f$;"~ " x-p$=:e=e+(p$=k$(2))-(p$=k$(1)) 'f=f+(p$=k$(4))-(p$=k$(3)) p$="S"3150N e<1e=15 e>15e=1 f>vf=1 f<1f=v .009ztj,-(e+2) 7e,f+16;1;1;7;2;"p" =pc=7:bb=0:z$(e,f)" "bb=1:pc=5 -e,f+16;1;bb;0;pc;"p" ^#1;1,2;1;" ";g$(hh);" ";a;" ON ~";(e+64@);(f+64@);"~ " p$=k$(5)  1400x  JOYSTICK CONTROL BORAD ]20,0;1;" ";g$(hh);" ";a;" POSITION PRESS FIRE WHEN YOU ARE THERE "  i=31 "-i=9 i=8i=10 e=e-1 ,,i=5i=4i=6e=e+1 6-i=10 i=2i=6f=f-1 @,i=9 i=1i=5f=f+1 Je<1e=15 Te>15e=1 ^f>vf=1 h.009ztj,-(e+2) rf<1f=v |7e,f+16;1;1;7;2;"p" =pc=7:bb=0:z$(e,f)" "bb=1:pc=5 -e,f+16;1;bb;0;pc;"p" T#1;0,0;1;" YOU ARE ON >";(e+64@);(f+64@);" " i16  1560 JOYSTICK CONTROL ATTACT ]2010:18,2;1;" YOUR GO ";b$;" ";1;hitp;0;" HITS " _20,0;1;" CHOOSE YOUR ATTACK POSITION AND PRESS FIRE WHEN YOU ARE THERE "  i=31 -i=9 i=8i=10 e=e-1 ,i=5i=4i=6e=e+1 -i=10 i=2i=6f=f-1 ,i=9 i=1i=5f=f+1 e<1e=15 e>15e=1 f>15f=1 &f<1f=15 0.e,f;1;1;7;2;"p" :T#1;0,0;1;" YOU ARE ON >";(e+64@);(f+64@);" " DIni=0:bt=0:y$(e,f)" "w$(e,f)="X"ni=2:bt=1 Nw$(e,f)="X"bt=1 X-e,f;1;bt;ni;7;"p":2 b.009ztj,-(e*2) li16 v="Q"2430~ ="S"3150N  1750  THINKING  a=130 2e=(*13 )+1:f=(*13 )+1 .e,f;1;1;7;2;"p" .009ztj,-(e*2) %e,f;0;0;7;"o" a:   CLS  "h=1821:.01z# =,h 2h,0;" ":h  #1;0,0;,,,,    MORE ROOM REQUIRED  1,0  7c$="":h=14:v$(hh,h)=" "h:21004 *c$=c$+v$(hh,h):h 42010:1;18,0;" YOU NEED ";hh;" SPACES FOR A oooooo oooooo oooooo";20,0;" ";g$(hh);20,27;5;c$ >2930r :2010 H R YOU BEEN THERE  \D2010:20,0;1;2;" YOU BEEN THERE " f1,0 p2930r :2010 z DEFINE KEY$ m61600::0,10 ;1;" DEFINE KEYS ";2,0;" UP.......";u$;" ":2390V #k$(1)=p$:2320 :u$=p$ \2,0;1;" UP.......";u$;" ";4,0;" DOWN.....";d$:2390V #k$(2)=p$:2320 :d$=p$ \4,0;1;" DOWN.....";d$;" ";6,0;" LEFT.....";l$:2390V #k$(3)=p$:2320 :l$=p$ \6,0;1;" LEFT.....";l$;" ";8,0;" RIGHT....";r$:2390V #k$(4)=p$:2320 :r$=p$ ]8,0;1;" RIGHT....";r$;" ";10 ,0;" FIRE.....";f$:2390V #k$(5)=p$:2320 :f$=p$ P10 ,0;1;" FIRE.....";f$;" ";15,10 ;" ALL OK ? "  2390V :p$="N"2170z  p$="Y"  2290 p$=11 p$="t" p$=10 p$="w" $p$=9 p$="u" .p$=8p$="x" 8p$=13 p$="ENTER" Bp$=32 p$="SPACE" L V= ""2390V `p$= j""2410j t ~ PLAYER QUIT  (e=115:f=115 Dbp=.007ye`A:bc=20:y$(e,f)" "bp=.07}\(:bc=10 e,f;1;1;y$(e,f) By$(e,f)" "w$(e,f)"X"e,f;1;7;1;y$(e,f) By$(e,f)" "w$(e,f)="X"e,f;1;2;7;y$(e,f) bp,bc f:e  THE WINNER  Ga=1821:a,0;" ":a Mhitc=hitp1;1;18,10 ;" IT'S A DRAW ":2570 hitc>hitp2560 A19,6;1;" ";b$;" IS THE WINNER ":2570 K19,8;1;1;1;6;" I AM THE WINNER " g#1;0,0;1;" DO YOU WANT TO PLAY AGAIN YES OR NO ? " ="Y"Ŧ="y"20 ="N"Ŧ="n"26102 ( 2580 261600:50000P XWFK x 66V( y(~# ~G#~O#^ ""c !`0?7!   :@qD& 0x?7& }= !D  p` /!  :Dr`0?$??& uupq   p0x?$m! uuq 8` ${z{{m& a (`0?@@@!O |< (: 0x?  m& &@ q1`  p ?!p Mp(:#  o@ q1 px!ep(:(! .6pqsw @ p1!" !.!46w6p(:'.(4>wwwww!@ p1!.!4tvwwwvt( p(:(4!@ p0A!!D q 0!4gwws(@`(8@:D (3qpw7 0@,A!D q?!!8@4 @?(" 0@<A!&0!!ݍLJ8@9(PT(  0@  !S63!(!! @ @8)(  p6m'? !. ?!  "D &s(5@ :?}9ܝ !@Q1A!P<!4U! @ (D &c( H( @p  m'?  &p07575UU !@ q!0  @ 8@ !5 PpoU! ݝ (*D &q (0@( P< &p:?ݝ !D q@ 8@!= LJLJ (:q q  M oh ohhonnoohhhn ohhnooonh oonoho hnhh onnhoo hnhhonooonnho hnnhhonohoohhooonoohoohhhooohohohohohhooonnhoohohhooohohhooo h OO OOOOO  OO M OO  OOHM  OMMMk !`0?7!   :@qD& 0x?7& }= !D  p` /!  :Dr`0?$??& uupq   p0x?$m! uuq   (` ${z{{m& a ̌ (`0?@@@!O |<   (: 0x?  m& &@ p0`  p ?!p 3 $  M   q1 px!M 𙁹p(:(! . ̌  @ p1!" !.!  p(:'.(   !@ p1!.! ( p(:( 񙙙!@ p0A!!D q 0!  a(@`(8@:D (ό   0@,A!D q?!!   8@4 @?(  0@<A!&0!!  9(PT(  !S63!(!!@ @8)(   p6m'? !. ?! "D &s(5@ :?}9!@Q1A!P<!4U! (D &c( H( @p  m'?  &p07575UU!@ q!0  @ 8@ !5 PpoU!(*D &q (0@( P< &p:?!D q@ 8@!= (:q q  Moh ohhonnoohh ohhnooonhh noho hnhh onnhoo hnhhonooonnho hnnhhonohoohhooonoohoohhhooohohohohohhooonnhoohohhooohohhooo h OO OOOOO  OO M OO  OOHM  O@b2 7&7!7***************** * BATTLE SHIP'S * * * * BY PAUL DOBIE * * * * 03.08,85 * ***************** 9300T$ PROGRAM LENGTH 14.5K A BC DEF GHIJ K L O P  SCREEN DISPLAY 100 ENTER PLAYER 9030 #BORAD PLACES 500 (PLAYER ATTACK 2500 -COMPUTER ATTACK 3000 2PLAYER QUIT 8500 7THE WINNER 8600 <GAME VARIABLE 255 AJOYSTICK CONTROL 4000 K CLS 8000 PSAVE & AUTO START 9920 U START GAME 9000 d SCREEN DISPLAY  n 9000(# &0:7:7:0: X0,1;1;3;"ABCDEFGHIJKLMN";0,18;"ABCDEFGHIJKLMN" fa=114:a,0;1;4;(64@+a);0;0;"":a ga=114:a,17;1;4;(64@+a);0;0;"":a  GAME VARIABLE  \z$(14,14):y$(14,14):x$(14,14):w$(14,14) ,a=114:z$(a)=" " y$(a)=" " 3w$(a)=" ":x$(a)=" ":a 'u=0:hitp=0:hitc=0 nn=6:pp=2 e=1:f=1 TG16,3;1;" SPECTRUM ";16,19;" ";b$;" "  PLAYER BORAD PLACES   SUBMARINE  a=13:502 .j=0hh=1:v=11 :960 /j=1hh=1:v=14:4000 &$z$(e,f)" "8300l :520 0 z$(e,f)="" :1e,f+17;1;1;5;"":a X CRUISER  ba=13:502 l"j=0hh=2:960 q/j=1hh=2:v=13 :4000 v#f>13 8030^:620l 8z$(e,f)" "z$(e,f+1)" "8030^:620l "z$(e,f)="":z$(e,f+1)="" )e,f+17;1;5;"":a  BATTLE SHIP  a=13:502 .j=0hh=3:v=12 :960 /j=1hh=3:v=12 :4000 #f>12 8030^:720 Lz$(e,f)" "z$(e,f+1)" "z$(e,f+2)" "8030^:720 7z$(e,f)="":z$(e,f+1)="":z$(e,f+2)="" *e,f+17;1;5;"":a   AIRCRAFT CARRIER  *a=13:502 4.j=0hh=4:v=11 :960 9/j=1hh=4:v=11 :4000 >#f>11 8030^:8204 H`z$(e,f)" "z$(e,f+1)" "z$(e,f+2)" "z$(e,f+3)" "8030^:8204 RLz$(e,f)="":z$(e,f+1)="":z$(e,f+2)="":z$(e,f+3)="" \+e,f+17;1;5;"":a f 1000 k  KEY CONTROL  |d$(1,2):19,0;1;" ENTER FIRST SIDE LETTER  THEN TOP LETTER " +1;" ";g$(hh);" ";a;" POSITION " " ";d$(1) Be=d$(1,1)-64@:f=d$(1,2)-64@ 6e>14f>14e<1f<1970 -h=2025:.1}L,20-h:h   COMPUTER BORAD PLACES   8000@ '18,13 ;1;" MY GO "  5000  SUBMARINE  >a=13 H2e=(*13 )+1:f=(*13 )+1 \y$(e,f)" "2120H f y$(e,f)="" pa  CRUISER  a=13 2e=(*13 )+1:f=(*12 )+1 -y$(e,f)" "y$(e,f+1)" "2220 "y$(e,f)="":y$(e,f+1)="" a  BATTLE SHIP  a=13 2e=(*13 )+1:f=(*11 )+1 $Ay$(e,f)" "y$(e,f+1)" "y$(e,f+2)" "2320 .7y$(e,f)="":y$(e,f+1)="":y$(e,f+2)="" Ba ` AIRCRAFT CARRIER  ja=13 t2e=(*13 )+1:f=(*10 )+1 Uy$(e,f)" "y$(e,f+1)" "y$(e,f+2)" "y$(e,f+3)" "2420t Ly$(e,f)="":y$(e,f+1)="":y$(e,f+2)="":y$(e,f+3)="" a 2e=(*13 )+1:f=(*13 )+1 y$(e,f)" "2480  PLAYER ATTACK  r8000@:D$(1,2):18,2;1;" YOUR GO ";b$;" ";1;hitp;0;" HITS " #j=14200h:2550 g20,0;1;" ATTACK POSITTON ENTER FIRST SIDE LETTER THEN TOP LETTER " ;" ";d$(1) %d$(1,1)="Q"85004! Be=d$(1,1)-64@:f=d$(1,2)-64@ 7e>14f>14e<1f<12500 %w$(e,f)="X"8300l :2500 %a=20502:.09}8Q,a:a %w$(e,f)"X"y$(e,f)" "2600( ;w$(e,f)="X":#1;1,12 ;1;" MISS " e,f;1;1;"X": 1,0 #9900&:3000 ( PLAYER HIT  -/#1;1,12 ;1;" A HIT " 2Pa=98b1984:h=0255a:245,h:254,-h F:cc=nn:nn=pp:pp=cc:e,f;1;nn;pp;y$(e,f):h:a P)e,f;1;2;7;y$(e,f) d.hitp=hitp+1:hitp308600! nw$(e,f)="X":7:7 2500  COMPUTER ATTACK  U8000@:18,4;1;" MY GO ";1;hitc;0;" HITS " `u=0e=(*14)+1:f=(*14)+1:f=15e=153020 $x$(e,f)="X"u=0:3020 I18,4;1;" MY GO ";1;hitc;0;" HITS " J21,10 ;1;" I CHOSE >";(e+64@);(f+64@);" " 7e,f+17;1;1;2;7;"" %a=20502:.09}8Q,a:a %x$(e,f)"X"z$(e,f)" "3100 ;x$(e,f)="X":#1;1,12 ;1;" MISS " 1,0 3e,f+17;1;"":100d:2500  COMPUTER HIT  &/#1;1,12 ;1;" A HIT " 0Pa=98b1984:h=0255a:245,h:254,-h :Ccc=nn:nn=pp:pp=cc:e,f+17;1;nn;pp;z$(e,f):h:a D2e,f+17;1;2;7;z$(e,f) N7:7:x$(e,f)="X" X.hitc=hitc+1:hitc3085004! b u=1 l$z$(e,f)=""u=0:3030 v>z$(e,f)=""z$(e,f)=""z$(e,f)=""f=f+1:3030 &z$(e,f)=""f=f-1:3030 >z$(e,f)=""z$(e,f)=""z$(e,f)=""f=f+1:3030 &z$(e,f)=""f=f-2:3030 &z$(e,f)=""f=f-3:3030 3000  JOYSTICK CONTROL BORAD ]20,0;1;" ";g$(hh);" ";a;" POSITION PRESS FIRE WHEN YOU ARE THERE "  i=31 -i=9 i=8i=10 e=e-1 ,i=5i=4i=6e=e+1 -i=10 i=2i=6f=f-1 ,i=9 i=1i=5f=f+1 e<1e=1 e>14e=14  f>vf=v .009ztj,-(e+2) f<1f=1 7e,f+17;1;1;7;2;"" =pc=7:bb=0:z$(e,f)" "bb=1:pc=5 "-e,f+17;1;bb;0;pc;"" ,T#1;0,0;1;" YOU ARE ON >";(e+64@);(f+64@);" " 6i16 ^ 4020 cJOYSTICK CONTROL ATTACT h_20,0;1;" CHOOSE YOUR ATTACK POSITION AND PRESS FIRE WHEN YOU ARE THERE " r i=31 -i=9 i=8i=10 e=e-1 ,i=5i=4i=6e=e+1 -i=10 i=2i=6f=f-1 ,i=9 i=1i=5f=f+1 e<1e=1 e>14e=14 f>14f=14 0f<1f=1 :.e,f;1;1;7;2;"" DT#1;0,0;1;" YOU ARE ON >";(e+64@);(f+64@);" " NIin=0:bt=0:y$(e,f)" "w$(e,f)="X"in=2:bt=1 Sw$(e,f)="X"bt=1 X-e,f;1;bt;in;7;"":2 ].009ztj,-(e*2) bi16 l="Q"Ŧ="q"85004! v 4210r  THINKING  a=130 2e=(*13 )+1:f=(*13 )+1 .e,f;1;1;7;2;"" .009ztj,-(e*2) .e,f;1;0;0;7;"" a: @  CLS  E"h=1821:.01z# =,h J2h,0;" ":h O^#1;0,0;" " T Y MORE ROOM REQUIRED  ^1,0 h7c$="":h=14:v$(hh,h)=" "h:8050r mc$=c$+v$(hh,h):h r8000@:1;18,0;" YOU NEED ";hh;" SPACES FOR A ";20,0;" ";g$(hh);20,27;5;c$ w9900&:8000@  l YOU BEEN THERE  qD8000@:20,0;1;2;" YOU BEEN THERE " 1,0 9900&:8000@ !4 PLAYER QUIT  !>(e=114:f=114 !CDbp=.007ye`A:bc=20:y$(e,f)" "bp=.07}\(:bc=10 !H e,f;1;1;y$(e,f) !RBy$(e,f)" "w$(e,f)"X"e,f;1;7;1;y$(e,f) !\By$(e,f)" "w$(e,f)="X"e,f;1;2;7;y$(e,f) !fbp,bc !pf:e ! THE WINNER  !Ga=1821:a,0;" ":a !Mhitc=hitp1;1;18,10 ;" IT'S A DRAW ":8660! !hitc>hitp8640! !A19,6;1;" ";b$;" IS THE WINNER ":8660! !K19,8;1;1;1;6;" I AM THE WINNER " !0200::50002R,2:50000P !="Y"Ŧ="y"150 !="N"Ŧ="n"8900" ! 8670! "%:50002R,1:50000P " a=120:a:0 " 0 ## START GAME  #(7v$(4,4):g$(4,16):9020<# #2a=14:g$(a):a #7a=14:v$(a):a #<8"SUBMARINE","CRUISER","BATTLE SHIP","AIRCRAFT CARRIER" #A"","","","" #P,23658j\,8:23617A\,236 #U.h=132 :.007ye`A,26-h:h #Z'1;"ENTER FIRST NAME ONLY ";b$ #d~h=0:#1;0,0;1;" DO YOU HAVE A JOYSTICK [KEMPSTON TYPE ONLY] YES OR NO ";1;"?" #n="N"j=0:9100# #s="Y"j=1:9100# #x$h=h+1:h=32 h=1 #}.007ye`A,26-h # 9070n# #&1:1:7:1: #:" BATTLE SHIP'S " #'" YOU HAVE THE FOLLOWING :-" #=a=25:a*3,1;"3 ";g$(a-1):a #I7:0:a=516:a,20;1;"":a #Ba=25:a*3,21;5;v$(a-1):a #1:7 #@19,0;" PRESS ""Q"" TO QUIT WHEN IT'S IS YOUR GO" #p0:#1;0,0;1;" I AM THINKING " #VA=30300,4:H=0255A:245,H:254,-H:H:A # 9900& $T BATTLE CHARACTERS  $Y!9300T$:a="a""p"+7 $^ b:a,b:a: $cI0,0,24,24,126~,255,126~,0 $hH0,1,39',23,255,127,63?,0 $mK0,0,132,200,255,254,252,0 $rH0,0,33!,17,255,127,63?,0 $wM72H,72H,254,254,255,255,255,0 $|K0,0,132,200,255,254,252,0 $G0,4,60<,0,255,127,63?,0 $I0,9 ,121y,1,255,255,255,0 $M0,130,158,128,255,255,255,0 $H0,4,60<,0,255,254,254,0 $I141,72H,98b,0,153,0,0,153 $O0,128,128,128,128,128,128,255 $Q128,128,128,128,128,128,128,128 $C0,0,0,0,0,0,0,255 $Q255,129,129,129,129,129,129,255 $Q255,195,165,153,153,165,195,255 & PRESS ANY KEY  &j=0#1;0,0;1;" ";1;" PRESS SPACE KEY TO PLAY ";0;" " &j=1#1;0,0;1;" ";1;" PRESS FIRE BUTTON TO PLAY ";0;" " &1(3116ƿ31502)Ŧ=" " & 9910& & TAPE  &$15,0;:"":100d & TAPE SAVE  &^:10 ,5;1;" SAVE ""BATTLE SHIPS"" ":"b2"9920&:"b3""a",168 & TAPE VERIFY  &W:10 ,2;1;6;1;" VERIFY ""BATTLE SHIPS"" ":"":"": & MICRODRIVE  &-*"m";1;"b3""a",168:100d & MICRODRIVE SAVE  &V:10 ,5;1;" SAVE ""BATTLE SHIPS"" ":*"m";1;"b2"9955& &"*"m";1;"b3""a",168 & MICRODRIVE VERIFY  &L:10 ,2;1;6;1;" VERIFY ""BATTLE SHIPS"" " '*"m";1;"b2" '"*"m";1;"b3""a",168 b3 X Y~~'?!?HH<? y<Hbå