seek&find 0/2 64599W 1:1:1: m=020 n=07 a (65A+m)+n,a n m 129,129,129,129,191,251,191,255,0,0,192,76L,254,183,254,255,128,128,144,140,255,187,159,255,32 ,568,40(,568,255,216,255,255,0,0,0,0,255,126~,252,248,128,128,144,147,144,159,142,255,0,0,115s,227,102f,255,219,255 128,128,192,255,175,255,219,255,0,32 ,192,194,254,252,120x,255,128,128,129,130,191,142,135,255,0,0,224,80P,255,119w,255,255,24,61=,102f,254,255,221,255,255 128,1,31,7,255,221,255,255,0,32 ,192,192,254,200,240,255,129,194,188,164,164,188,194,255,0,38&,111o,41),41),47/,118v,0,0,34",102f,34",34",34",119w,0,0,39',101e,33!,34",36$,119w,0,0,47/,97a,38&,38&,97a,111o,0,0,40(,106j,42*,47/,34",114r,0,201,170,156,255,156,170,201,255 19,0;:"" 23659k\,0 |22,0;1;1;"  * PLEASE WAIT *  * SEEK AND FIND NOW LOADING * " 23659k\,2 -1;19,0;:""64600X (#1;19,0;:"" aZS/F @ ARR " @B ("APR " (@B U("'@< <?%!PQPU !Q !PQPP !"Q$@C|0h<ARR**@B (" APR " @B U(" @ x x(< !PPQPUE@ TUBAPP !UQU@P !PQTP !PQU@PP*QP'@UU@BUU|?h|?APR "* B UAPR** @B * @PPR "* B ("  4h<x?x? !TPQTUEP*TUBATP !TPQTPP !QT !PQU@PP QP?`UU@BUU$<?UUUUUUUU?|ARR " ( @B ("APR " @B ("@ ?<<%!PQP !Q !@PQPP !Q @`>@<UUUUUUUU>8UU@@U@U@_??/`@^OPPP?UU@ @@@U@@U@_?? ?*8N?A@^?TTT?xT@@!>@@?U`U_?***? Ȩ`(>@^|??UUUUUUP@>zA>@@@UU_ ࠠ@?^UT_UUUU`T*^*p?0M? T_UUTxp?A 1Ш^|kp?P_UU@~ ^*_@VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVJMIIIIIIIJJMMMMMMMMMIIIIIIIOIIINIIIIIIIIIIIMMMUUUMMMLJJJKKMMMMMKJJJJJJJJJJJLUUUUUUUUHJJJKKKNGGNMJJJJJJJJJJJHUUUUUUUUJzJJJKKNGGNMJJJJJJJJJJJJRzzzzzzRJJJJJJKMMMMMJJJJJJJJJJJJJzxRzzxBJJJJJJMMMMMMJJJJJJJJJJJJJzxPPxxzJJJJJJJKKKKKJJJJJJJJJJJJJzxxxxzzJJJJJJJJJJJJJJJJJJJJJJJJJzxxxxzzJJJJJJJJJJJJHHNNNNNNNJJJJzxxxxzJJJJJJJJJJJJJJNNEEEENNJJJJzxzzzJJJJJJ`````JJJNNEGGENNJJJOOxzzxOHJJJJJ`rrr`JJJNNEGGENNJJJHOOOOHHJJJJ`rMr`JJJNNEEEENJJJIIIJrrJHLKJJJJ`rMr`JJJNNNNNNNJJJIIIrrrrIJJJJJJ`rrr`JJJJJJJJJJJJJIMIqrrqIMKJJJJ`````JJJJJJJJJJJJJJJJIIIIJJJJJJJJJJJJJJJJJJJJJJJHHHHHHHHHHHHHHHHJJJJJJJHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH8888888888888888888888888888888888888888888888888888888888888888SUPER X e$$~(PP|P|T|BH$J(*D: 00>>> @|LTTd|(>|D8@||DD|(H~|@|D||@|DD||D|D8DD||DD|| >>|D p|DD||$ p|@| x 8DDD~DD(8TTT~((DD||~D"~p p`13 95_ i "2nd CO-ORD 1st SUB (1-13)";y$ jy$=""105i k 960 lts=105i ns1=y$ o#s1<1s1>13 105i pu=s:u1=s1+1 q(17,0;6;"SUB 1 " s "1st CO-ORD 2nd SUB (1-13)";x$ tx$=""115s u 950 vts=115s ws2=x$ x "2nd CO-ORD 2nd SUB (1-13)";y$ yy$=""120x z 960 {ts=120x |s3=y$ }u2=s2:u3=s3+1 ~)18,0;6;"SUB 2 " #s2<1s2>13 115s 6s3<1s3>13 .3,.5:120x "1st CO-ORD CRUISER (1-13)";x$ x$=""130 950 ts=130 c=x$ "2nd CO-ORD CRUISER (1-12)";y$ y$=""135 960 ts=135 c1=y$ c2=c:c3=c1+1 c4=c2:c5=c3+1 +19,0;6;"CRUISER " !c<1c>13 130 6c1<1c1>12 .3,.5:135 #"1st CO-ORD BATTLESHIP (1-13)";x$ x$=""145 950 ts=145 b=x$ #"2nd CO-ORD BATTLESHIP (1-11)";y$ y$=""150 960 ts=150 b1=y$ b2=b:b3=b1+1 ,b4=b2:b5=b3+1:b6=b4:b7=b5+1 .20,0;6;"BATTLESHIP " !b<1b>13 145 6b1<1b1>11 .3,.5:150 "1st CO-ORD AIR-C. (1-13)";x$ x$=""160 950 ts=160 a=x$ "2nd CO-ORD AIR-C. (1-10)";y$ y$=""165 960 ts=165 a1=y$ +a2=a:a3=a1+1:a4=a2:a5=a3+1 ,a6=a4:a7=a5+1:a8=a6:a9=a7+1 .21,0;6;"AIR .C. " !a<1a>13 160 5a1<1a1>10 .3,5:165 !m(1)=(*1+2) !m(2)=(*4+2) !m(3)=(*2+6) !m(4)=(*4+9 ) "m(5)=(*1+11 ) !m(6)=(*4+2) Pcom=2f$="HUMPHREY":15,17;5;1;f$:748 K"Name of 2nd player";f$:15,17;1;5;f$;0 8"DO YOU WISH TO INPUT YOUR OWN C0-0RDINACE (Y/N)";v$ v$"N"v$"Y"210 v$="Y"220 v$="N"748 "1st CO-ORD 1st SUB (1-13)";x$ x$=""220 950 ts=220 d=x$ "2nd CO-ORD 1st SUB (1-13)";y$ y$=""225 960 ts=225 d1=y$ $d1=d1+16:p=d:p1=d1+1 W21,0;6;"AIR .C. ":17,17;5;"SUB 1 " !d<1d>13 220 7d1<17d1>29.3,.5:225 "1st CO-ORD 2nd SUB (1-13)";x$ x$=""235 950 ts=235 d2=x$ "2nd CO-ORD 2nd SUB (1-13)";y$ y$=""240 960 ts=240 d3=y$ d3=d3+16 p2=d2:p3=d3+1 *18,17;5;"SUB 2 " #d2<1d2>13 235 7d3<17d3>29.3,.5:240 "1st CO-ORD CRUISER (1-13)";x$ x$=""250 950 ts=250 e=x$ "2nd CO-ORD CRUISER (1-12)";y$ y$=""255  960 ts=255 e1=y$ %e1=e1+16:e2=e:e3=e1+1 e4=e2:e5=e3+1 ,19,17;5;"CRUISER " !e<1e>13 250 7e1<17e1>28.3,.5:255  #"1st CO-ORD BATTLESHIP (1-13)";x$  x$=""265   950  ts=265   f=x$ #"2nd CO-ORD BATTLESHIP (1-11)";y$ y$=""270  960 ts=270 f1=y$ %f1=f1+16:f2=f:f3=f1+1 ,f4=f2:f5=f3+1:f6=f4:f7=f5+1 /20,17;5;"BATTLESHIP " !f<1f>13 265  7f1<17f1>27.3,.5:270 "1st CO-ORD AIR-C. (1-13)";x$ x$=""280  950 ts=280 g=x$ "2nd CO-ORD AIR-C. (1-10)";y$ y$=""285  960  ts=285 !g1=y$ "%g1=g1+16:g2=g:g3=g1+1 #,g4=g2:g5=g3+1:g6=g4:g7=g5+1 $g8=g6:g9=g7+1 %/21,17;5;"AIR .C. " &!g<1g>13 280 '7g1<17g1>26.3,.5:285 ,Ch(1)=(*1+2):h(2)=(*5+25) .Ch(3)=(*2+6):h(4)=(*5+18) 1Dh(5)=(*1+11 ):h(6)=(*5+25) 6/21,17;5;"AIR .C. " 8.21,0;6;"AIR .C. " ; 21004 !m(1)=(*1+2) !m(2)=(*4+2) !m(3)=(*2+6) !m(4)=(*4+9 ) "m(5)=(*1+11 ) !m(6)=(*4+2) fs=(*12 +1):s1=(*12 +1):s=m(1)s=m(3)s=m(5)700 u=s:u1=s1+1 (17,0;6;"SUB 1 " Us2=(*12 +1):s2=ss2=m(1)s2=m(3)s2=m(5)710 s3=(*12 +1) u2=s2:u3=s3+1 )18,0;6;"SUB 2 " Uc=(*12 +1):c=sc=s2c=m(1)c=m(3)c=m(5)720 c1=(*10 +1) c2=c:c3=c1+1 c4=c2:c5=c3+1 +19,0;6;"CRUISER " Yb=(*12 +1):b=cb=sb=s2b=m(1)b=m(3)b=m(5)730 b1=(*9 +1) b2=b:b3=b1+1 b4=b2:b5=b3+1 b6=b4:b7=b5+1 .20,0;6;"BATTLESHIP " ]a=(*12 +1):a=ba=ca=sa=s2a=m(1)a=m(3)a=m(5)740 a1=(*8+1) a2=a:a3=a1+1 a4=a2:a5=a3+1 a6=a4:a7=a5+1 a8=a6:a9=a7+1 921,0;6;"AIR .C. ":200 Ch(1)=(*1+2):h(2)=(*5+25) Ch(3)=(*2+6):h(4)=(*5+18) Dh(5)=(*1+11 ):h(6)=(*5+25) gd=(*12 +1):d1=(*12 +17):d=h(1)d=h(3)d=h(5)751 p=d:p1=d1+1 .21,0;6;"AIR .C. " )17,17;5;"SUB 1 " Ud2=(*12 +1):d2=dd2=h(1)d2=h(3)d2=h(5)755 d3=(*12 +17) p2=d2:p3=d3+1 *18,17;5;"SUB 2 " Ue=(*12 +1):e=de=d2e=h(1)e=h(3)e=h(5)760 e1=(*10 +17) e2=e:e3=e1+1 e4=e2:e5=e3+1 ,19,17;5;"CRUISER " Yf=(*12 +1):f=ef=d2f=df=h(1)f=h(3)f=h(5)765 f1=(*9 +17) f2=f:f3=f1+1 f4=f2:f5=f3+1 f6=f4:f7=f5+1 /20,17;5;"BATTLESHIP " ]g=(*12 +1):g=fg=eg=d2g=dg=h(1)g=h(3)g=h(5)771 g1=(*8+17) g2=g:g3=g1+1 g4=g2:g5=g3+1 g6=g4:g7=g5+1 g8=g6:g9=g7+1  /21,17;5;"AIR .C. "  21004  x$="" ts= v=1̱x$ *x$(v)<"0"x$(v)>"9".3,.5: v  ts=0   y$="" ts= v=1̱y$ *y$(v)<"0"y$(v)>"9".3,.5: v  ts=0  .09}8Q,25:.08}# =,20:.07}\(,15:.06|u\,10 :.05|L,5:.1}L,20:.15~,10 :.2~L,5 1,3;6;" ";2,2;" ";3,1;" ";4,2;" ";5,3;" ";6,1;" ";7,2;" " 9 ,8;6;" ";10 ,8;" ";11 ,8;" ";12 ,8;" ";13 ,8;" " 15,11 ;6;" ";16,11 ;" ";17,11 ;" ";18,11 ;" ";19,11 ;" ";20,11 ;" "  c3,20;7;" A NEW GAME ";4,25;"BY";5,20;"P.S.HUMPHREY"  7600 p18,1;7;0;1;" PRESS ";19,1;" ENTER ";20,1;" KEY " v$:v$=""0 v$""1050 &j=(*3+3):6615: $40,9 ;7;1;"SEEK AND FIND" )}2,0;7;1;" SEEK AND FIND ";3,15;0;"IS BASED ON THE OLD GAME OF BATTLESHIPS." .6,0;7;1;" FIRST ";7,7;0;" YOU WILL BE ASKED IF YOUWISH TO PLAY AN OPPONENT OR TO PLAY AGAINEST HUMPHREY(COMPUTER)" 311 ,0;7;1;" SECOND ";12 ,8;0;"YOU WILL BE ASKED IF YOUWISH TO SELECT YOUR OWN VESSEL CO-ORINACE OR IF YOU WISH THE HUMPHREY TO SELECT THEM FOR YOU." 817,0;7;"IF YOU DECIDE TO SELECT YOUR OWNCO-ORDINACE,YOU WILL ONLY HAVE TO ENTER THE GRID LINE (1-13) AND THE FIRST PLACE WHERE YOU WISH THE VESSEL TO START FROM." ;"PRESS ENTER";v$ <v$""1083; B+v$=""j=(*6+3):6615 C G40,9 ;7;1;"SEEK AND FIND" L<2,0;7;1;" YOUR FLEET ";0 Q4,0;7;"2 SUBS ";6;" ";7;" SUBS TAKE UP";5,19;"TWO GRIDS AND";6,19;"TAKES 2 HITS";7,20;"TO DESTROY" V7,0;7;"1 CRUISER ";5;" ";7;" THREE GRIDS";8,19;"TAKES 3 HITS";9 ,19;"TO DESTROY" [10 ,0;7;"1 BATTELSHIP ";4;"";7;" FOUR GRIDS";11 ,19;"TAKES 4 HITS";12 ,19;"TO DESTROY" `13 ,0;7;"1 AIRCRAFT,C.";3;"";7;" FIVE GRIDS";14,19;"TAKES 5 HITS";15,19;"TO DESTROY" e16,0;7;"3 MINE'S ";2;7;"";1;" ";7;"";1;" ";7;"";1;7;" ONE GRID ONLY" j17,0;7;"YOU HAVE TO HAVE MORE HIT'S THANYOUR OPPONENTS TO WIN. BUT YOU MUST TRY TO AVOID THERE MINE'S !!! ";2;7;"";1;" ";7;"";1;" ";7;"";1;7;" !!! BECAUSE THIS GIVES THEM NINE EXTRA SHOTS!" o "PRESS ";v$ pv$""1135o q 7760P yv$="":1150~ ~I23658j\,8:0,9 ;7;1;"SEEK AND FIND" 3,0;7;" DO YOU WISH TO PLAY HUMPHPREY ";5,6;"..ENTER (Y) FOR YES.";7,6;"..ENTER (N) FOR NO." w$ w$"N"w$"Y"1160 w$="Y"com=2 !w$="N"com=0:1235 g$(10 ,12 ) g$(1)="I'M THINKING":g$(2)=" THAT'S IT! ":g$(3)=" OH NO! ":g$(4)="ILL TRY THIS":g$(5)="I'V HAD THAT" g$(6)="THAT'S CLOSE":g$(7)="NOT EASY AH!":g$(8)=" BOMBS AWAY ":g$(9 )="WHAT A PLAN ":g$(10 )="I'M TO GOOD "  40,9 ;7;1;"SEEK AND FIND" 4,6;7;"HOW MANY SHOTS EACH";6,6;"DO YOU WISH TO HAVE";8,6;"(MIN 20 *** MAX 99)" 310 ,7;7;"*** LEVEL TABLE ***" 712 ,4;7;"LEVEL 1 = 20 TO 29 SHOTS" 713 ,4;7;"LEVEL 2 = 30 TO 39 SHOTS" 714,4;7;"LEVEL 3 = 40 TO 49 SHOTS" 715,4;7;"LEVEL 4 = 50 TO 59 SHOTS" 716,4;7;"LEVEL 5 = 60 TO 69 SHOTS" 717,4;7;"LEVEL 6 = 70 TO 79 SHOTS" 718,4;7;"LEVEL 7 = 80 TO 89 SHOTS" 719,4;7;"LEVEL 8 = 90 TO 99 SHOTS" "SHOTS REQUIRED";v$ v$=""1270 s=1̱v$  "v$(s)<"0" v$(s)>"9"1270 s  shf=v$ (shf<201270 2shf>99c1270 4shf20lev=1 5shf30lev=2 6shf40(lev=3 7shf502lev=4 8shf60<lev=5 9shf70Flev=6 :shf80Plev=7 ;shf90Zlev=8 F 9  6620:z=9 y=y:x=x:1700 x>162136X x<162537 1z=8:y=y-1:x=x-1:1700 x>162136X x<162537  $z=7:y=y+1:1700 x>162136X x<162537 $z=6:y=y+1:1700 x>162136X "x<162537 '$z=5:x=x+1:1700 ,x>162136X 1x<162537 6$z=4:x=x+1:1700 ;x>162136X @x<162537 E$z=3:y=y-1:1700 Jx>162136X Ox<162537 T$z=2:y=y-1:1700 Yx>162136X ^x<162537 c$z=1:x=x-1:1700 hx>162136X mx<162537 r z=0 t"z=0x>162498 w"z=0x<162000 '.1}L,-5:.2~L,-15  i=150-.65&fff  .05|L,i i  z14000 :16,5;2;7;1;"TRY AGAIN" 4115,0;6;1;1;n$ 5z14000 6sh1=shf8000@ 7"Enter a no (1-13) ";y$ 8y$=""21037 9v=1̱y$ :!y$(v)<"0"y$(v)>"9"21037 ;v <y=y$ ="y<1y>13 21004 >A15,10 ;" ":15,10 ;5;1;y H"Enter a no (1-14) ";x$ Ix$=""2120H Jv=1̱x$ K!x$(v)<"0"x$(v)>"9"2120H Lv Mx=x$ Q"x<1x>142120H RA15,13 ;" ":15,13 ;5;1;x Wx=x+16:z=0 Xy(o)=y:x(o)=x Y 85004! Z%y,x;7;2;1;"" [z12141] \ 1800 ] 2600( ^ q(t)=y(o) _ r(t)=x(o) a t=t+1 b o=o+1 cz14000 dsh1=sh1+1 eG14,0;0;4;1;"SHOTS ";sh1;" HIT ";hi1 f115,0;6;1;0;n$ g 2500 y=sx=s1k(1)=k(1)+1:sub=sub+1:hi2=hi2+1:y,x;3;"":17,7;7;2;"":6500d: y=ux=u1k(1)=k(1)+1:sub=sub+1:hi2=hi2+1:y,x;3;"":17,8;7;2;"":6500d: y=s2x=s3k(2)=k(2)+1:sub=sub+1:hi2=hi2+1:y,x;3;"":18,8;7;2;"":6500d: y=u2x=u3k(2)=k(2)+1:sub=sub+1:hi2=hi2+1:y,x;3;"":18,9 ;7;2;"":6500d: y=cx=c1k(3)=k(3)+1:cr=cr+1:hi2=hi2+1:y,x;3;"":19,9 ;7;2;"":6500d: ʕy=c2x=c3k(3)=k(3)+1:cr=cr+1:hi2=hi2+1:y,x;3;"":19,10 ;7;2;"":6500d: ԕy=c4x=c5k(3)=k(3)+1:cr=cr+1:hi2=hi2+1:y,x;3;"":19,11 ;7;2;"":6500d: ޔy=bx=b1k(4)=k(4)+1:bt=bt+1:hi2=hi2+1:y,x;3;"":20,11 ;7;2;"":6500d: y=b2x=b3k(4)=k(4)+1:bt=bt+1:hi2=hi2+1:y,x;3;"":20,12 ;7;2;"":6500d: y=b4x=b5k(4)=k(4)+1:bt=bt+1:hi2=hi2+1:y,x;3;"":20,13 ;7;2;"":6500d: y=b6x=b7k(4)=k(4)+1:bt=bt+1:hi2=hi2+1:y,x;3;"":20,14;7;2;"":6500d: y=ax=a1k(5)=k(5)+1:ac=ac+1:hi2=hi2+1:y,x;3;"":21,10 ;7;2;"":6500d: y=a2x=a3k(5)=k(5)+1:ac=ac+1:hi2=hi2+1:y,x;3;"":21,11 ;7;2;"":6500d: y=a4x=a5k(5)=k(5)+1:ac=ac+1:hi2=hi2+1:y,x;3;"":21,12 ;7;2;"":6500d: $y=a6x=a7k(5)=k(5)+1:ac=ac+1:hi2=hi2+1:y,x;3;"":21,13 ;7;2;"":6500d: .y=a8x=a9k(5)=k(5)+1:ac=ac+1:hi2=hi2+1:y,x;3;"":21,14;7;2;"":6500d: 8Qy=m(1)x=m(2)y,x;2;7;"":x=x+16:1500 :Qy=m(3)x=m(4)y,x;2;7;"":x=x+16:1500 16,19;2;7;1;" TRY AGAIN !" 215,17;5;1;1;f$ z14000 )com=2(lev*10 )+3000 2com=2y=(*12 +1):2512 "Enter a no (1-13) ";y$ y$=""2504 v=1̱y$ !y$(v)<"0"y$(v)>"9"2504 v y=y$ "y<1y>13 2500 A15,27;" ":15,27;6;1;y 2com=2x=(*13 +1):2529 "Enter a no (1-14) ";x$ x$=""2520 v=1̱x$ !x$(v)<"0"x$(v)>"9"2520 v x=x$ "x<1x>142520 15,30;" " (15,30;6;1;x z=0:15,27;" ":15,27;6;1;y:15,30;" ":15,30;6;1;x y(o)=y:x(o)=x 8600! c16,19;1;1;0;" ":y,x;2;7;1;"" z12542 1800 2200 q(t)=y(o) r(t)=x(o) t=t+1 o=o+1 z14000 sh2=sh2+1 H14,16;0;4;1;"SHOTS ";sh2;" HIT ";hi2 215,17;5;1;0;f$ 21004 (y=dx=d1w(1)=w(1)+1:su=su+1:hi1=hi1+1:y,x;4;"":17,24;7;2;"":6600: 2y=px=p1w(1)=w(1)+1:su=su+1:hi1=hi1+1:y,x;4;"":17,25;7;2;"":6600: <y=d2x=d3w(2)=w(2)+1:su=su+1:hi1=hi1+1:y,x;4;"":18,25;7;2;"":6600: Fy=p2x=p3w(2)=w(2)+1:su=su+1:hi1=hi1+1:y,x;4;"":18,26;7;2;"":6600: Py=ex=e1w(3)=w(3)+1:crs=crs+1:hi1=hi1+1:y,x;4;"":19,26;7;2;"":6600: Zy=e2x=e3w(3)=w(3)+1:crs=crs+1:hi1=hi1+1:y,x;4;"":19,27;7;2;"":6600: dy=e4x=e5w(3)=w(3)+1:crs=crs+1:hi1=hi1+1:y,x;4;"":19,28;7;2;"":6600: ny=fx=f1w(4)=w(4)+1:bat=bat+1:hi1=hi1+1:y,x;4;"":20,28;7;2;"":6600: xy=f2x=f3w(4)=w(4)+1:bat=bat+1:hi1=hi1+1:y,x;4;"":20,29;7;2;"":6600: y=f4x=f5w(4)=w(4)+1:bat=bat+1:hi1=hi1+1:y,x;4;"":20,30;7;2;"":6600: y=f6x=f7w(4)=w(4)+1:bat=bat+1:hi1=hi1+1:y,x;4;"":20,31;7;2;"":6600: y=gx=g1w(5)=w(5)+1:acc=acc+1:hi1=hi1+1:y,x;4;"":21,27;7;2;"":6600: y=g2x=g3w(5)=w(5)+1:acc=acc+1:hi1=hi1+1:y,x;4;"":21,28;7;2;"":6600: y=g4x=g5w(5)=w(5)+1:acc=acc+1:hi1=hi1+1:y,x;4;"":21,29;7;2;"":6600: y=g6x=g7w(5)=w(5)+1:acc=acc+1:hi1=hi1+1:y,x;4;"":21,30;7;2;"":6600: y=g8x=g9w(5)=w(5)+1:acc=acc+1:hi1=hi1+1:y,x;4;"":21,31;7;2;"":6600: Qy=h(1)x=h(2)y,x;7;2;"":x=x-16:1500 Qy=h(3)x=h(4)y,x;7;2;"":x=x-16:1500 Qy=h(5)x=h(6)y,x;7;2;"":x=x-16:1500 ydxd1ypxp1yd2xd3yp2xp3yexe1ye2xe3ye4xe5yfxf1yf2xf3yf4xf5yf6xf7ygxg1yg2xg3yg4xg5yg6xg7yg8xg9yh(1)xh(2)yh(3)xh(4)yh(5)xh(6)y,x;6;"" <su4crs3bat4acc56600 z1  level1 'hus=(*29+1):3100 'hus=(*36$+1):3100 'hus=(*44,+1):3100 'hus=(*59;+1):3100 'hus=(*67C+1):3100 'hus=(*74J+1):3100 'hus=(*84T+1):3100 'hus=(*98b+1):3100 %hus=1y=s2:x=s3:2536 &$hus=2y=u:x=u1:2536 :%hus=3y=a4:x=a5:2536 D%hus=5y=a2:x=a3:2536 N%hus=7y=a6:x=a7:2536 X$hus=9 y=s:x=s1:2536 b&hus=11 y=b6:x=b7:2536 l&hus=13 y=b4:x=b5:2536 v&hus=16y=u2:x=u3:2536 &hus=18y=c2:x=c3:2536 &hus=20y=a8:x=a9:2536 %hus=23y=a:x=a1:2536 %hus=25y=b:x=b1:2536 %hus=27y=c:x=c1:2536 &hus=28y=b2:x=b3:2536 &hus=30y=c4:x=c5:2536 2503 z9 1530 z81545  z71560 z61575' z515906 z41605E z31620T z21635c z11650r h#i=.025{L.25~.025{L ii,*25:6626:i jHk(1)=2len=2:q$=s$:k(1)=0:9650% kHk(2)=2len=2:q$=s$:k(2)=0:9650% lHk(3)=3len=3:q$=c$:k(3)=0:9650% mHk(4)=4len=4:q$=b$:k(4)=0:9650% nHk(5)=5len=5:q$=a$:k(5)=0:9650% sub4cr3bt4ac53,3;2;7;1;n$;"'s";5,5;" FLEET ";6,2;" HAS BEEN ";7,2;"DESTROYED BY";9 ,5;f$:6640:6650  #i=.025{L.25~.025{L i,*25:6626:i Hw(1)=2len=2:q$=s$:w(1)=0:9669% Hw(2)=2len=2:q$=s$:w(2)=0:9669% Hw(3)=3len=3:q$=c$:w(3)=0:9669% Hw(4)=4len=4:q$=b$:w(4)=0:9669% Hw(5)=5len=5:q$=a$:w(5)=0:9669% su4crs3bat4acc53,19;2;7;1;f$;"'s";5,21;" FLEET ";6,18;" HAS BEEN ";7,18;"DESTROYED BY";9 ,21;n$:6640:6650  רn=1j:5:2:1:4:2:4:5:.05|L,n:6:3:7:0:5:.025{L,n/3:1:n  ܽn=1̺(*12 +12 ):5:2:1:4:2:4:5:.05|L,n:6:3:7:0:5:.025{L,n/3:1:n  Q2:4:5:6:3:7:0:5:1  _i=1100d:254,*255:i:n=502-502-2:.008zn,n:n  G21,0;2;7;"DO YOU WISH TO PLAY AGAIN (Y/N)" 9300T$:100d !v$:v$"N"v$"Y"6655  v$="N"  v$="Y"::1 XE16,0;7;2;1;"YOU HAD ";hi1;" HITS" com=216,17;7;2;" I HAD ";hi2;" HITS":7010b ]=16,17;7;2;"YOU HAD ";hi2;" HITS" b>18,11 ;7;2;1;"";n$;" WINS "  6640  6650  _com=216,17;7;2;1;" I HAD ";hi2;" HITS":7205% $F16,17;7;2;1;"YOU HAD ";hi2;" HITS" %<16,0;7;2;"YOU HAD ";hi1;" HITS" *>18,11 ;7;2;1;"";f$;" WINS "  6640  6650 <16,0;7;2;"YOU HAD ";hi1;" HITS" Vcom=216,17;7;2;" I HAD ";hi2;" HITS":7410 =16,17;7;2;"YOU HAD ";hi2;" HITS" C18,7;7;4;1;"THE GAME IS A DRAW"  6650 4s$(2):c$(3):b$(4):a$(5) s$="":c$="" b$="":a$="" l=290-1 D0,l;0;s$:0,l+2;" ":.05|L,.5 l:0,0;" " l=728 F14,l;4;c$:14,l-1;" ":.03{u\,.6 l:14,28;" " l=260-1 F21,l;2;a$:.05|L,.5:21,l+4;" " l:21,0;" " l=027 <8,l;3;b$:.04|# =,.6:8,l;" "  l:8,27;" " l=272-1 D8,l;0;c$:.05|L,.3:8,l+2;" " l:8,2;" " F Pl=13 0-1 UD4,l;6;s$:.05|L,.1}L:4,l+2;" " ZD7,l;5;c$:.05|L,.1}L:7,l+3;" " _F10 ,l;4;b$:.05|L,.1}L:10 ,l+4;" " dF13 ,l;3;a$:.05|L,.1}L:13 ,l+5;" " il nd4,0;" ":7,0;" ":10 ,0;" ":13 ,0;" " ? @hi1>hi27000X Jhi1v !H:16,5;1;1;0;" " !R !com=2v=1o:y(o)=q(v)x(o)=r(v)16,19;ں(*3+4);(*2);g$((*9 +1)):2500 !v !;com=0v=1o:y(o)=q(v)x(o)=r(v)2498 !v !>16,19;1;1;0;" " ! #(i1:8,64@:112p,0:0,104h:-112p,0:0,-104h #2>i=214:8*i,64@:0,104h:i #<=j=9 20:8,8*j:112p,0:j #k1:136,64@:112p,0:0,104h:-112p,0:0,-104h #?i=1830:8*i,64@:0,104h:i #?j=9 20:136,8*j:112p,0:j #H0,0;0;4;1;1;"*123456789" #1,0;0;4;1;1;"1";2,0;"2";3,0;"3";4,0;"4";5,0;"5";6,0;"6";7,0;"7";8,0;"8";9 ,0;"9" #}10 ,0;0;4;1;1;"";11 ,0;"";12 ,0;"";13 ,0;"" #u14,0;4;0;1;"SHOTS 0 HIT 0 ";6;"*";4;"SHOTS 0 HIT 0 ";6;"*" #I0,17;0;4;1;1;"123456789*" #1,31;0;4;1;1;"1";2,31;"2";3,31;"3";4,31;"4";5,31;"5";6,31;"6";7,31;"7";8,31;"8";9 ,31;"9" #10 ,31;0;4;1;1;"";11 ,31;"";12 ,31;"";13 ,31;"" #.1,15;4;0;1;1;"SS";2,15;"EE";3,15;"EE";4,15;"KK";6,15;"AA";7,15;"NN";8,15;"DD";10 ,15;"FF";11 ,15;"II";12 ,15;"NN";13 ,15;"DD" #X0,15;0;7;"**";5,15;"**";9 ,15;"**" $" $T1;7;0;s,s1;s$;s2,s3;s$;c,c1;c$;b,b1;b$;a,a1;a$;2;m(1),m(2);"";m(3),m(4);"";m(5),m(6);"" $^1;7;0;d,d1;s$;d2,d3;s$;e,e1;c$;f,f1;b$;g,g1;a$;2;h(1),h(2);"";h(3),h(4);"";h(5),h(6);"" $ %l=023 %S16,l;1;3;q$:.025{L,.6:16,l-1;" ":l %l=2323-1+len:16,l;1;7;2;"":10 :.025{L,-17:.25~,-5:0:25:16,l;" " %l % %!l=31-len8-1 %O16,l;1;4;q$:.025{L,.6:16,l+LEN;" ":l %ˣl=88-1+len:16,l;1;7;2;"":10 :.025{L,-17:.25~,-5:0:25:16,l;" " %l % 7