*:O?4ś6YD:\%6_)12345)8700!  b=2to=to-v  b=1sh=sh-v 2;9 ,23;"";9 ,23;0;sh;11 ,23;2;"";11 ,23;0;to  a=0  b=0 $ v=0 .20,0;z$;z$ 8 5000 Bb=16250j L 8900" Vr=*10000' ` 6270~ j2;9 ,7+f;1;"":4:9 ,7+f;1;"";9 ,7+f;1;"":4:9 ,7+f;1;"" o@s=15:.02{# =,-30:.02{# =,-40(:s tr=*1000 ~ tt=tt-r score=score+r tt<06290  6150 i5;7,5;" ";8,3;" ";9 ,5;" " As=110 :.02{# =,-40(:.02{# =,-35#:s u5;7,5;z$(111 );8,5;z$(111 );9 ,5;z$(11 ) z(ss)=0 -y(ss)=0:x(ss)=0:w(ss)=0  6155  <bb=(*10 )+1 Ay(bb)<2x(bb)<2 F"sy=(175-(y(bb)/30)) Psx=(x(bb)/30) Rs=15 Uwsx,sy+1:sx,sy:sx,sy-1:7:1;sx,sy+1:1;sx,sy:1;sx,sy-1:0 Vs W d18,0;z$;18,20-(2*(th=2th=6))-(3*(th=4th=8));b$(th);" ";z$;18,2;"CAPTAIN TARGET TO " n X g=0 b7f=1(3*(k=4))+(4*(k=5)) lth=he9 -((k=5)(d=4)),7;1;"";9 -((k=5)(d=4)),11 +(k=5);1;"":s=18:9 -((k=5)(d=4)),7;1;"";9 -((k=5)(d=4)),11 +(k=5);1;"" vth=he9 -((k=5)(d=4)),7;1;"";9 -((k=5)(d=4)),11 +(k=5);1;"":s=18:9 -((k=5)(d=4)),7;1;"";9 -((k=5)(d=4)),11 +(k=5);1;"" Bs=35#64@2:.01z# =,s:.01z# =,s-5:s *tr>800 7110  g=g+1 _0,0;:l=si:s=15:.02{# =,40(:.02{# =,30:s:l=si  7130 1;15,6;"";15,13 ;"";14,5;"";14,12 ;"";13 ,5;"";13 ,12 ;"";12 ,4;"";12 ,11 ;"" y=115:y 1;4;15,6;"";15,13 ;"";14,5;"";14,12 ;"";13 ,5;"";13 ,12 ;"";12 ,4;"";12 ,11 ;"" f  g=0  f=1g  k=4gs=gs-(*500) !k=5gs=gs-(*1200) f  18,0;z$;z$;18,4;"WE HAVE BEEN HIT ";(gg>1);(" TIMES"g>1);("NCE"g=1);19,2;"OUR DAMAGE STANDS AT ";(100d-(((gs/8e3@)*100d)));"%" z$;z$  sm=(.26R*(gs/120x)) !f=130:f:502     8110 )6,6;"YOU HAVE RUN AGROUND" B 7506R L Q 8110 R(3,11 ;1;"GRAF SPEE" V9 ,2;"HARD LUCK CAPTAIN YOUR SHIP";10 ,2;"HAS SUNK WITH THE LOSS OF ALL";11 ,2;"YOUR CREW." `#12 ,2;"SCORE=";score j 8650! kwin=1.8L,2:.3,4:.6,6:.6,4:.6,7:.6,6:.3,4:.3,1:.6,2:7535o l.6,-10 :5:.6,-10 :5:.1}L,-10 :.6,-10 :.6,-7:.1}L,-8:.6,-8:.1}L,-10 :.6,-10 :.1}L,-11 :.6,-10 o\20,1;1;" PRESS Y TO PLAY AGAIN ";21,11 ;"N TO STOP" t=""7540t y=.02{# =,10 :.02{# =,-10 :.02{# =,10 ~="n"Ŧ="N" ="y"Ŧ="Y"  7540t Dcsa=((sp/30)*(tr<3e40u))+((sp/10 )*(tr3e40utr<6e4`))+(sp*(tr6e4`)) EQfu=fu-(sa*(sp>0))-(.5*sa*(sp>15))-(.5*sa*(sp>20)) Ffu<1fu=0 Gfu=0sp=0 HP5,20;2;" ";5,20;0;fu;" TONS" I Jwns=ns+(sa*(he=6))-(sa*(he=2))-(sa*.73333*(he=1he=3))+(sa*.73333*(he=7he=5)) TE13 ,24;2;"";13 ,24;0;ns ^wew=ew+(sa*(he=4))-(sa*(he=8))-(sa*.73333*(he=1he=7))+(sa*.73333*(he=3he=5)) hE14,24;2;"";14,24;0;ew mcl=1 r>tr=(((((tx-ew))^2)+(((ty-ns))^2)))*2000 |  'z$=" " 'a$=" "  n=0  8120 ]0,0;2;" ";a$;a$;a$;a$;a$;a$;a$;a$;a$;a$; K2;a$;a$;a$;a$;a$;a$;a$;a$;a$;a$;" "   8110 Ÿ1,11 ;"GRAF SPEE";2,11 ;" ";3,6;" S.R.MANSFIELD 1982";3,6;1;"_";0 6,2;"The year is 1940,and you are";7,2;"in command of the vessel,the";8,2;"ADMIRAL GRAF SPEE a pocket-";9 ,2;"battleship.";8,2;1;"_";0 }11 ,2;"Your ship is armed with six";12 ,2;"11 inch guns and two torpedo";13 ,2;"tubes." 15,2;"YOUR OBJECTIVE is to sink as";15,2;1;"_";0;16,2;"many enemy ships as possible." .8L,2:.3,4:.6,6:.6,4:.6,7:.6,6:.3,4:.3,1:.6,2 D 8400 X 8110 ]1,11 ;"GRAF SPEE";2,11 ;" ";3,6;" S.R.MANSFIELD 1982";3,6;1;"_";0 b5,1;"The display will show a map of";6,2;"the ATLANTIC ocean.";8,2;"A temporary flashing pixel";9 ,3;"will show the approximate";10 ,2;"position of an enemy ship." l12 ,2;"The main flashing pixel shows";13 ,2;"your position.";15,1;"To destroy the target you must";16,2;"get within visual range,and";17,2;"then fire." 8400 8110 3,11 ;1;"GRAF SPEE";0;7,3;1;"INPUT";0;" LEVEL OF DIFFICULTY";9 ,12 ;"(17)";11 ,6;"1=EASY";12 ,6;"2=HARDER";13 ,6;"3=EVEN HARDER";14,6;"4=HARDER STILL";15,6;"5=QUITE DIFFICULT";16,6;"6=MORE DIFFICULT";17,6;"7=PRACTICALLY IMPOSSIBLE" =""8382 dif=-47/ :.02{# =,5:.02{# =,-5:.02{# =,5 %dif<2dif>88382  ?20,5;1;"PRESS ENTER TO CONTINUE";0 =""8410 <.02{# =,30:.02{# =,40(:.02{# =,30 (20,5;z$(125)  !4(ix=((ty-ns)+(ty=ns))/((tx-ew)+(tx=ew)) !>wth=(ix>.5ix<2)+(2*(ix>2ix<-2))+(3*(ix>-2ix<-.5))+(4*(ty>ns)) !HL(ix>-.5ix<.5)th=1+(3*(tx>ew))+(7*(txUUUUp~xp~x~~* TT(8DD8$B$8p `p8!@~w#@@~@x<<<@<<  @@" BBB@@B@@ @BfBb@@@@D(BBB@8D888(BF8xD8D88x8hh8x88@8D88888@8" @BB|B<DxDx< 8>HR~~x><<~D<<< 8x><<|<@<|<~<|~~  @@@@ B~ BDfBB@BBB@@B@@8x8(88 88888@xD8D8@x88h8D8@8D((x@"<x8DDDD 8DD8< TxDTD8D DDDD8BB~>8DD8Dx~8x 8x8D$8e3@gs=8e3@ *s=110 4z(s)=((*4)+n) 9z(s)>5z(s)=5 >w(s)=(4000*(z(s)=1))+(6000p*(z(s)=2z(s)=4))+(8e3@*(z(s)=3))+(1e4'*(z(s)=5))+(*3000 ) H"y(s)=((*4000))+250 Rwx(s)=(*((2e3*(y(s)2500 ))+(4e3*(y(s)>3500 ))+(3e3 *(y(s)>2500 y(s)3500 )))) Sx(s)=x(s)+500+(750*(y(s)>1e3))+(250*(y(s)>1250))-(500*(y(s)>2500 ))-(250*(y(s)>3500 )) Us V 8400 W \'0,20;0;" GRAF SPEE ";2;"";1,20;" ";2,20;1;" SPEED ";3,20;" ";4,20;" FUEL ";5,20;" ";6,20;" HEADING ";7,20;" " a he=6 f!2;1;8,20;" SHELLS ";9 ,20;" ";10 ,20;" TORPEDOES ";11 ,20;" ";12 ,20;" POSITION ";13 ,20;" N/S ";14,20;" E/W ";15,20;" " gW2;1;16,20;" TGT RANGE ";17,20;" " h^fu=fu+(*3000 )+2000:to=to+(*20)+5:sh=sh+(*200)+20 ifu>8e3@fu=8e3@ jsh>200sh=200 kto>20to=20 pE7,20;b$(he);9 ,23;sh;11 ,23;to z jj=1 i=125+*5 jj=11000  1230 J17,20;2;1;" ";0;z$;z$;z$;z$ 5;0,0;" N";1,0;" 123A";2,0;" W8*4EF" 5;3,0;" 765 R";4,0;" I";5,0;"SA C" \5;6,0;"OM A";7,0;"UE "  cl=1 5;8,0;"TR ";9 ,0;"HI ";10 ,0;"C " 5;11 ,0;"A ";12 ,0;" ";13 ,0;" " 5;14,0;" ";15,0;" ";16,0;"  ";17,0;"" sp=18  jj=0  ll=0 19,0;"PLOT COURSE USING THE DIRECTION";" CONTROLS (18).ON ARRIVING AT";0;"THE POSITION TO SEARCH PRESS 'S'" 03,23;"KTS";3,23;sp px=(ew/30) py=(175-(ns/30)) >.36400 s((px+2,py)=1ũ(px-2,py=1)ũ(px,py+2)=1ũ(px,py-2)=1)7400 1:1;px,py:1;px+1,py:1;px-1,py:1;px,py+1:1;px,py-1:5:px,py:px+1,py:px-1,py:px,py-1:px,py+1:0 -G18,1;1;"INPUT DIRECTION";0;" 'M'=SCUTTLE" <vv=he =>s=130:he=-480:he-4801343? >s ? 18,0;z$(7) @4he-480.02{# =,0:.02{# =,3 B%he=29he=61=7500L F=(he<1he>8)he35#he67C1300 P%he=35#he=67C1440 Zsa=120x d#7,20;0;b$(he) n 8010J sfu07500L x 8005E i tr=1e7 s=110 Ux(s)>ew+240x(s)ns+240y(s)smsp=sm @2;3,23;"";3,23;0;;sp  8000@ #gs<1fu<17500L  8010J &tr24e4j`tt<11000 F17,22;2;"";17,22;0;tr ?d=(tr<4e4@)+(tr<3e40u)+(tr<2e4 N)+(tr<1e4')  85004! Vk>3ƥ>(.6*(k>3))+(.1}L(k>4))tr<26000e7000X thhed=05;7,5;z$(111 );8,5;z$(111 );9 ,5;z$(111 ) th=hed08700!  6500d  #a>05100+a*200 19,10 ;"INPUT CHOICE";0;"FIRE(0=Torpedoes 1=Guns) 2=TURN";2;"SPEED(3=Inc 4=Dec) M=SCUTTLE" f=130 2""5190F <f Fa=-480 GIa-480.02{# =,30:.02{# =,40(:.02{# =,30 H.a=61=a=29gs<17500L P19,0;z$ Qa0a4z$;z$ T/b=(2*(a=0))+(1*(a=1)) Ua=0a=1 Z a<1a>4a=0 da=4c=1 na=4a=3 &5000-(3605*(cl=1)) d=0thhea=0 d=0heth5140  6000p |q19,10 ;"INPUT DIRECTION";1;"1=N/W 2=N 3=N/E 4=E 5=S/E 6=S";11 ;"7=S/W 8=W" f=130 =""5540 ""5550 f e=-480 Ie-480.02{# =,20:.02{# =,30:.02{# =,20 19,0;z$ !e>0e<9 5590 cl=11395s  5000 he=e 20,0;z$;z$ #0;7,20;b$(he)  a=0  5575 D820,0;z$;z$;20,13 ;"INPUT" N0c=06;"SPEED INCREASE (09)" S0c=16;"SPEED DECREASE (09)" Xf=130 b=""5750v l""5760 vf w20,0;z$ xcl=11395s y 5000 e=-480 Ie-480.02{# =,15:.02{# =,10 :.02{# =,15 !e<0e>9 5720X 18,0;z$;z$;z$ c=0sp=sp+e c=1sp=sp-e sp>smsp=sm sp<0sp=0 20,0;z$;z$  a=0  c=0  5752x W2;3,23;"";0;3,23;sp;20,0;z$;z$ p7b=1sh<1b=2to<16160 q)20,8;"INPUT NUMBER OF" z:b=221,6;"TORPEDOES FIRING(1-2)" 5b=121,8;"GUNS FIRING(1-6)" f=130 ""6070 f v=-480 Iv-480.02{# =,10 :.02{# =,20:.02{# =,10 20,0;z$ Q((v<1v>2)b=2)(b=1(v<1v>6))5000  w=0  f=1v wb=1.1}L,-25:.05|L,-35#:.05|L,-30:s=64@20-4:.01z# =,s:s &b=1tr>26000e6140 (*tr)<10006210B b=16140  8900"  6150 2;11 ,7+f;1;"":4:11 ,7+f;1;"";11 ,7+f;1;"":4:4;1;1;11 ,7+f;1;"" f th=hed0