Submarine1V23658j\,8 0:5::N=031:M=1921:1;M,N;" ":M:N:0:40(,24:175,0:-9 ,6,/5:-46.,0:-8,3:-34",0:-9 ,-3,/8:-38&,0:-23,-3,/10 :-3,4:-4,0:-2,-7:181,30:0,9 :-1,1:-19,0:-9 ,-2:0,-5:159,40(:0,12 :154,39':0,15 111o,30:491,0:112p,31:68D,0:113q,32 :67C,0:Q=33!37%:153,Q:28,0:Q:154,38&:27,0:159,39':21,0 *39',25:174,0:40(,26:173,0:40(,27:172,0:40(,28:6,0:40(,29:5,0:41),30:4,0:579,28:154,0:63?,29:145,0 5,9 ;6;1;"ROMIK SOFTWARE";6,7;"PROUDLY PRESENTS....":100d:10 ,4;0;6;"'SUB' 1983 by J.M.DORA" N=15:7:215,23:I=123:-9 ,-1+:I:-8,-1+:215,23:M=122:1;-9 ,-1+:M:N $1::9 :"SUB  J.M.DORA 1983":4,0;" YOU ARE THE CAPTAIN OF THE"'" A/S FRIGATE 'ANACHRONOUS'"'''" YOUR TASK IS TO DESTROY THE"'" SOVIET 'YANKEE' CLASS SUB. AS"'" SEEN ON YOUR SONAR DISPLAY":21,0;"TYPE 'ENTER' FOR INSTRUCTIONS":Z$:10 : 1::" INSTRUCTIONS":1;0,0;" ____________":2,0;"On the Display are given the"'"Sub's Heading,Speed,Estimated"'"Depth and (in two options) its"'"Range.As a guide to its location"'"you are told which quadrant"'"it is in." 8,5;"You must change your own "'"speed and direction to intercept"'"the enemy.This is done by typing"'" 'P' for PORT;'S' for STARBOARD"'"or 'V'for SPEED." 13 ,5;"You will then be asked for"'"the required value(eg:PORT 30 of"'"rudder).Press 'M' to return the"'" rudder to Midships."'" Similarly,the Depth Charges"'"may be set to explode at any"'"depth by pressing 'D'.To launch"'"them,simply press 'A'." 21,3;"PRESS ENTER TO CONTINUE":Z$::0:0:0::3000 :"Submarine2":"Submarine3":0,0;" ":"Submarine4":31000y:"Submarine5" 0:0:42*,502:6,24:14,11 :24,8:85U,89Y:3,27:32 ,5:4,-4:6,-20:85U,89Y:9 ,0:9 ,2:129,99c:25,5 g568,0:-40(,-22:-96`,-40(,-/12 :-20,-2,-/6 k-12 ,10 ,-/5:208,104h:0,5:-8,1:-2,-6: L208,103g:2,-5:-7,-4:-3,3 I=210255:I,*16+100d:1;I,*20+102f:I:20,2;"'SUB' IS LOADING...";21,20;"PLEASE WAIT" I=22720X23100!yPVySubmarine4Py TR!{\6#6*{\6<#6~#6#6#6#6#6~#6<#6#6#6\!\6#6fSubmarine5p!, 6r!BSS=23659k\:BSS,0 L9000(#:END=7000X:KK=32760:O=0:XX=23560\:TTT=O:MID=O:LNT=O:1:6:BSS,2::3,0;"PLEASE ENTER YOUR"'" RANK(1,2 or 3):-":8,8;"1....CAPTAIN";10 ,8;"2...LIEUTENANT";12 ,8;"3...MIDSHIPMAN":D$:BSS,O:D$123620D\,6 $D$<491ůD$>5137 8000@:BSS,2::10 ,2;"PLEASE ENTER SKILL LEVEL:"''" (1 TO 5)":D$:BSS,O:D$123620D\,2 WD$(1)<491ůD$(1)>53523618B\,9 :23620D\,2 LL=D$:SL=(LL*10 )^2:SLD=LL*2:NDC=7:CC=O:DIR=O:Z=O:VSX=O:VSY=10 :C=O:DCD=O:VDR=O:H=O:1:BSS,2::O:BSS,0:6:VS=10 QQQ=254:21,O;O;" ":N=1920:I=2531:O;N,I;" ":I:N:N=O6:I=2531:O;N,I;" ":I:N:200,175:557,O:O,-568:-557,O:O,568:O;O,28;"N";3,31;"E";6,28;"S";3,25;"W"::O;O,O;"SUB IS ";'"TO AND";'"AT m " eI=23232Z23295Z:I,O:I:23562 \,200:23561 \,200:236099\,100d:19,25;0;"CHARGES";20,25;"LEFT:":200,7:0,16:557,0:0,-16:-557,0::0,175:72H,0:0,-24:-72H,0:0,24 LNT=115,27;O;6;"RANGE";16,27;" ":216,39':O,16:39',O:O,-16:-39',O: EMID=1SX=(*154)+43+:SY=(*130)-39' AMID=OSX=(*500)-120x:SY=(*500)-155 (130,90Z,75K:126~,166:O,8:8,-8:O,8:SD=1+(*400):2000 2 2000 TO;18,O;" RUDDER "'"MIDSHIPS";10 ,O;"SPEED";11 ,O;" ";VS;" ";2,3;SD1;" ";14,O;"HEADING";15,O;" ";H;" ";15,4;" " ^SO;5,O;"CHARGES";'"SET AT ";';" ";DCD;"m ";7,5;" ":KKK=KK m|O,31:64@,O:O,-16:-64@,O:O,16:O,95_:40(,O:O,-16:-40(,O:O,16 wO,63?:568,O:O,-16:-568,O:O,16:O,136:568,O:O,-25:-568,O:O,25:Z=1Z=O:1046 &20,30;O;NDC:500 >.99}p502 3XX=75KBSS,2:DORA:DORA=169 BSS,O:SX=SX+VX-VSX:SY=SY+VY-VSY:LNT=116,28;O;(((SX-130)*(SX-130)+(SY-90Z)*(SY-90Z))/10 );" ":KKK=KK W130,90Z:VSX,VSY:.12}u[,20:130,90Z:1;VSX,VSY >.9ffff((SX-130+VSX)^2+(SY-90Z+VSY)^2)<400I=O20:.01z# =,502:I:23300[:I=O20:.2~L,-10 :I:RPT=4:END Y((SX-130+VSX)^2+(SY-90Z+VSY)^2)>250000t$RPT=3:END MID1410 ((SX-130)^2+(SY-90Z)^2)>22500WSX=130+(SX-130)*.8L:SY=90Z+(SY-90Z)*.8L ((SX-130)^2+(SY-90Z)^2)<56251;SX,SY:.05|L,28:1+((SX-130)+(SY-90Z))/120x:0;1;SX,SY:420 @((SX-130)+(SY-90Z))/502:.05|L,27 h227,148:VX,VY:2:1;227,148:1;VX,VY:227,148 JO:(SX-130)=1Ƽ(SY-90Z)=11,3;"NE" H(SX-130)=1Ƽ(SY-90Z)=-11,3;"SE" I(SX-130)=-1Ƽ(SY-90Z)=11,3;"NW " I(SX-130)=-1Ƽ(SY-90Z)=-11,3;"SW"  1 XX=77MCC=O:XX,O $VS2=VS:VS210 VS2=10 4H=H+(CC*10 /VS2):H360hH=H-360h H<0H=H+360h 2VDR=H*/180:VSY=(VS*VDR):VSX=(VS*VDR) !CC=OO;19,O;"MIDSHIPS" BCC=1O;19,O;"STBD ";CC;" ";19,7;" " DCC=-1O;19,O;"PORT ";CC;" ";19,7;" " EO,15:O,8:O;15,2;H;" ":C>O1010  XX=65A1000:XX,O TTT=TTT+1  400 RXX="P"21,3;0;"ENTER PORT RUDDER:":9700%:525   530  %CC=-D$:CC<-45-CC=-45- RXX="S"21,3;0;"ENTER STBD RUDDER:":9700%:545!  550& !"CC=D$:CC>45-CC=45- &UXX="D"21,0;0;"ENTER CHARGE SETTING:":9700%:5655 0 570: 5.DCD=D$:0;7,1;DCD;"m " :LXX="V"21,9 ;0;"ENTER SPEED:":9700%:585I D.21,O;O;" ": IVS=D$ MVS35#VS=35# XPO;11 ,1;VS;" ";21,0;O;" ": *NDC=NDC-1:NDC5799730& &.1}L,15:B$=B$+Z$ &B$=49800H& & 21,21;0;B$ &Z$="" & 9730& &*B$=""9730& &,D$=B$ &.10 :.1}L,25: &H B$=O &RB$=B$(̱b$-1) &\21,21;O;" " &a21,21;O;B$ &f sk\nXo\tinHldizss cdh q [Zu䀽^dks B10Z porD1