@P?E6 :\68W10 :.25~,10 :.125},12 :.375?,14:.08}# =,10 :.08}# =,12 :.08}# =,14:.08}# =,14:.08}# =,14:.25~,15:.125},14:.375?,12 .125},9 :.25~,5:.125},9 :.25~,12 :.125},14:.375?,15:.08}# =,3:.08}# =,5:.25~,7:.125},5:.08}# =,3:.08}# =,2:.08}# =,0:.375?,-2  -n=60<0-1:.01z# =,n:n  Ef=40(-10 -2:.01z# =,f:.01z# =,f+10 :f  7:7:0::n=64@87W:23681\,n:"S U B M A R I N E P A T R O L":.04|# =,-5:n:n=0200:n  n="a""u"+7:a:n,a:n 0,0,0,3,159,255,159,3,84T,124|,124|,255,255,255,255,255 K0,0,0,128,240,255,255,248  G0,0,0,252,255,252,0,0  E0,0,63?,255,63?,0,0,0 0,0,0,0,63?,255,255,63?,0,0,0,0,224,253,255,225 A0,0,0,0,0,0,0,0 M0,0,149,213,213,247,255,255 A0,0,0,0,0,0,0,0 H124|,64@,64@,568,4,4,4,120x K124|,64@,64@,64@,64@,64@,64@,124| I568,68D,68D,68D,68D,68D,68D,568 K126~,66B,66B,66B,120x,80P,72H,68D L126~,64@,64@,120x,64@,64@,64@,126~  J64@,64@,64@,64@,64@,64@,64@,126~ "I568,16,16,16,16,16,16,568 $I66B,66B,66B,66B,66B,36$,24,24 &J126~,16,16,16,16,16,16,16 (J66B,102f,90Z,90Z,66B,66B,66B,66B *J66B,66B,66B,126~,66B,66B,66B,66B , 63:6:0: 8\Z=021:1;Z,0;"GAME OVER GAME OVER GAME OVER":.03{u\,Z:Z : 200 <s1>hshs=s1 @:0;8,2;"CONGRATULATIONS!! SUCCESS!!";10 ,2;"YOU HAVE QUALIFIED FOR THE MASTER MARINER HALL OF FAME" B#246:254:240: C50,0;" *" D90;1,0;" H A L L OF F A M E" E52,0;" *" F90;3,0;" NAME SCORE" G54,0;" *" H J1X=616:5;I$;22;s1:X K618,0;" *" N7240:246:254:240:100d PZ1;1;1;0;21,0;" ANOTHER GAME (Y/N) " R 0 Ta$= Va$="Y"260:10 Xa$="N"346Z Ya$<"Y"a$>"N"336P Z^:n=72H79O:23681\,n:" T H E E N D":n:n=0200:n \~x=5020-1:2;4,14;x,;18,14;x,:.01z# =,x:.02{# =,x:.01z# =,x:x: ^"SUB\PATROL"0 `V:10 ,2;"TO VERIFY.... REVERSE TAPE PRESS ENTER" b 0:0,0;:"" vub ""  j` SUB 2<2 S-XMMM332J343v>! x͵# P P P 88 MQ)Q$\Wq !`v>>BB<DHpHDB@~BfZBBBBbRJFBB~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~A<B|B<|>B~|<|<@@BBfBBb@BBBB@<B|ZBBR|BBBB@BBB~|J@|~|B@BBBBBDF@@BDB@<<|BBB>B~@BB<~!888888 # <@Z 8'\\\$];>#@@J(nܚX![!@P!!88` K SR P Brian Fitton 23/7/84  60000` &a=60001a60021u:b:a,b:a 33!,20,0,17,10 ,0,6,120x,229,213,197,205,181,3,193,209,225,35#,16,244,201 .:s1=0:23658j\,8:258 y6:6:2::A=114:1;2;1;A,1;" SUB\PATROL SUB\PATROL " G3;1;0,0;" " 53;1;A,0;"";A,31;"":A Wn=80P87W:23681\,n:" 1 9 8 5 ":n:n=0200:n  6 RB=1142:3;1;6;B,12 ;"BF":B \3;1;1;14,0;"  BRIAN FITTON ":244 <"Please Enter Your Name (Max.12 Letters)";" ";I$ I$>12 10 :2;1;1;1;3,9 ;" ";5,9 ;" ";4,9 ;"";4,22;"";1,9 ;"*";7,9 ;"*" h1;1;1;1;4,10 ;"INSTRUCTIONS";14,10 ;"PICK Y or N " ;1;1;1;9 ,6;"ADMIRAL ";I$ "2;1;1;1;13 ,9 ;" ";15,9 ;" ";14,9 ;"";14,22;"";11 ,9 ;"*";17,9 ;"*" $A$= &A$="Y"44, (A$="N"524 *A$"Y"A$"N"36$ ,:0;2,1;"WELCOME TO ";1;1;1;2;"SUBMARINE PATROL";0;0;0;0;4,1;"You are on patrol in the the Atlantic Ocean when with out any warning you are attacked by a Mystery Submarine." .v'''0;" Your mission is to sink it as many times as you can."::0;" GOOD LUCK - - - - GOOD LUCK" 00;18,1;"KEYS ARE :-";19,8;1;1;2;"Z = UP X = DOWN";20,8;1;1;1;"SPACE BAR TO FIRE" 22;9 ,0;" *";16,0;" *":5:2;1;1;1;21,4;"PRESS ANY KEY WHEN READY":0 4y1:0:a=021:a,0;"   GOODLUCK   ":.008 zn,a:a 6100d:hs=s1 8(:0:3:1:5: :Is1=0:ss=1000:a=10 :b=1:c=3:d=502 <t=t() >Nt()=(65536*23674z\+256*23673y\+23672x\)/502 @Ek=021:l=6:1;k,25;l;" ":k B1X=024:1;21,X;"":X D91;1;1;20,26;"Secs:" Fl1;0,0:254,0:0,174:-254,0:0,-174 H(201,0:0,174 J1;1;1,26;"";3,26;s1;5,26;"";7,26;d;9 ,26;"";11 ,27;c;13 ,26;"\";15,26;hs;17,26;" " LBc=30;1;1;11 ,26;"THREE" Nh1;204,170:46.,0:0,-30:-46.,0:0,30 Ph1;205,171:46.,0:0,-30:-46.,0:0,30 Rh1;204,138:46.,0:0,-30:-46.,0:0,30 Th1;205,139:46.,0:0,-30:-46.,0:0,30 Vh1;204,106j:46.,0:0,-30:-46.,0:0,30 Xh1;205,107k:46.,0:0,-30:-46.,0:0,30 Zg1;204,74J:46.,0:0,-30:-46.,0:0,30 \g1;205,75K:46.,0:0,-30:-46.,0:0,30 ^g1;204,42*:46.,0:0,-40(:-46.,0:0,40( `g1;205,43+:46.,0:0,-40(:-46.,0:0,40( bH#0;1;1;6;" Submarine Patrol  B.Fitton. " f1:f=1+((*12 )+3):g=22 j(1;f,g;"":.02{# =,1 lh1;0,0:254,0:0,174:-254,0:0,-174 n,1;0;19,26;t() p.a=a+(="X")-(="Z")+(a1)-(a18) r#(a,b+1)=0148 ta-1,b;" " v1;a,b;"" xa+1,b;" " z=" "148 |<.13~R182 ~ f,g;" " $<.3f<17f=f+1 c=0222 $>.75@f>1f=f-1 g=g-1 g0142 106j d0232 1:f=1+((*12 )+3):g=22 w.03{u\,8:.03{u\,10 :.03{u\,12 :.04|# =,14:.05|L,16:.06|u\,18 106j d1234 d=d-1:60001a '0;1;7,26;d 4d9 6;1;7,27;"" i=b+221 a=fi+2=g168 0;a,i+2;" " i a,i+1;" "  j=60-1:k=88X80P-1:2;f,g;"":23675{\,k:.02{# =,j-12 :j:k:23675{\,88X 9s1=s1+100d:0;1;3,26;s1 (.02{# =,-2:.02{# =,-4 s14500210 f,g;" " a,i;" " 142 &60001a:l=g-1b-1 f=al=b+1202 .a=a+(="X")-(="Z")+(a1)-(a18) a-1,b;" " 1;a,b;"" a+1,b;" " 0;f,l-1;" " l f,l;" " f,b;" ": ʚj=60-1:k=88X80P-1:2;a,b;"":23675{\,k:.02{# =,j-12 :j:k:502:23675{\,88X Oc=c-1:c=21;1;1;11 ,26;" TWO " Bc=12;1;1;11 ,26;" ONE "  \6:6:2::0;1;1;"Submarine Patrol  Brian Fitton " L1;1;1;1;6,6;"SUCCESS - - SUCCESS" 2;1;1;1;5,5;"";9 ,5;"";6,5;"";7,5;"";8,5;"";6,25;"";7,25;"";8,25;"" M=1419:1;1;1;1;8,9 ;"SCORE IS ";s1;12 ,7;2;"BONUS POINTS ";ss;M,4;(*2)+1;1;1;1;"TOTAL SCORE IS NOW ";s1+ss:.03{u\,M:M Q1;1;1;21,0;" TOTAL TIME TAKEN SECONDS " ,1;1;21,19;t() !100d:250:3106 ޕ6:6::1;1;1;1;8,9 ;"ALL LIVES LOST";14,9 ;" YOUR SCORE IS ";17,14;s1 2;1;1;1;7,8;"";9 ,8;"";8,8;"";8,23;"";11 ,0;" *" 2;1;1;1;13 ,8;"";15,8;"";14,8;"";14,23;"";11 ,0;" *" 1;1;1;2;1,0;" *";20,0;" *" Y1;1;1;1;3,0;" TOTAL TIME TAKEN SECONDS " 41;1;1;3,19;t() !100d:250:3106 w0;8,3;"NO MORE AMMUNITION":254:0;12 ,3;"FINAL SCORE IS ";s1:236 Q1;1;1;21,0;" TOTAL TIME TAKEN SECONDS " ,1;1;21,19;t() !100d:250:3106 .2~L,0:.2~L,5:.2~L,7:.2~L,9 :.2~L,7:.2~L,5:.2~L,7:.4L,9 :.4L,5:.4L,5  /.125},5:.08}# =,5:.08}# =,10 :.08}# =,