ZXTape! 0Created with Ramsoft MakeTZXStar Trek 777 tf=0:wf=tf:d=10 :dex=0:dey=0:t(10 ,2,2):z=0:k=z:b=z:o=1:u$(10 ,10 ,5) z:z:9 : 0:9200# "d$="":r(x)=(*x)+1 (":f=""""+7:a:f,a:f 2ez,01111110~,010100010,01110010r,01001110N,1001010J,01111110~,z <>9000(#:c$(3,9 ):f=13:c$(f):f F8d(8):e$(8,3):f=o8:e$(f):f P23561 \,250 d^0,6;4;o;"Chromasoft Startrek"''z;7;2;"1982 A. Hamilton" iD6;"Do you want instructions?";o$:o$"y"o$"n"105i jo$="y"2400` nC3;"Skill level (1-9) ";s$:s$<"1"s$>"9"űs$o110n xs=s$ :sb=z:#z;1,o;6;"Setting up - Please wait." Set up Galaxy x=od:y=o10 r=+s/20+.2~L /rou$(x,y,o)=r(s/3):k=k+u$(x,y,o) 4>.92ksb<14-su$(x,y,o+o)=o:sb=sb+o rzf<11 g>zg<11 u$(f,g,5)=o g:f z:f=1ks Aq(f,o)=r(90Z)+3:q(f,2)=r(90Z)+28 Vf:u$(x,y,2)="1"q(ks+o,o)=r(12 )+2:q(ks+o,2)=r(12 ) *20,4;x;20,12 ;y  7300 +f=1̰u$(x,y,3):7600:f Main Loop ti=ti+o:z:o,26;en;" ";2,26;she;" ";3,26;ti;4,26;k;" ";5,26;sb;6,26;tor;" " $ti=2000k=zen=z9000(# Fcon=oưu$(x,y,1):o,9 ;:en<1000concon=2 concon=3 o,8;c$(con) f=oks:7400:f +q(ks+o,o)q(ks+o,o),q(ks+o,2);""  1500 is3850  !I10 ,17;" ";11 ,17;" " " 5100 &3i$="":f=110 :i$=:i$<"0"i$>"9"f 0i$"0"i$"9"3000 :@u$(x,y,o)"0"ƥex<1ex>127ey<25ey>1511300 (ex,ey)4000 f  7300 z  500 !End Loop Phasor Enterprise (kf=r(ks):q(kf,1)=z1000 $dx=ex-q(kf,o):dy=ey-q(kf,2) ff=18:.01z# =,40(:o,6,q(kf,1),q(kf,2):o,6,dx,dy:f Bdist=dx*dx+dy*dy:ae=5000-dist/10 :ae=(ae/20) E10 ,17;"Shields taken ";11 ,17;ae;" units " $'she=she-ae:she>06000p: .#f=121:7300:f 8C10 ,17;"Enterprise ";11 ,17;"destroyed" B Change quad ex127x=10 ey<25y=1ey>151y=10 wf=z:10 ,17;"Stop Engines!";11 ,17;"Edge of Galaxy":ex=ex-dex:ey=ey-dey:dex=z:dey=z:690 ex127x=x+o:ex=o 2"ey>151y=y+o:ey=26 <"ey<25y=y-o:ey=150 F 400  S.R.S. a=y-oy+o:b=x-oX+o 7a>10 a<1b>10 b<11550 Z18-2*(a-y),22+4*(b-x);3+(u$(b,a,o)="0");u$(b,a,3) b:a: o9 ,18;"Menu":f=o82:d+f/2,17;f-o;" ";e$(f);23;f;" ";e$(f+o):f ""2205 =""2206 3f=9 14:f,17;" ":f  `/:6;"Chromasoft Startrek Instructions" t'"The galaxy consists of 100"'"quadrants arranged in a 10 x 10 matrix. Each quadrant is given an x and y coordinate, (1,1) being at the bottom left." s'"During your mission, you are"'"prohibited from moving into a quadrant with coordinates"'"outside this range." 3;'"Your mission is to rid the"'"galaxy of the klingon invasion fleet before time 2000 when theywill destroy civilization!" 1;"Hit ENTER ";o$: g"The first input required is the skill level. The higher the"'"level, the more difficult the game." d'"The galaxy will then be set up -this takes some time. You may then start the game when ready." '"The detailed, short-range scan of the quadrant appears in the blue square. The small flashing v shape is the Enterprise, a" n" charactor is a friendly space station, a square is a Klingon ship, & anything else is a star or debris." X'"Next to this are details of the ship's status, and below that isthe long-range scan" B'"Klingons:They will shoot at you if you don't shoot them first" 6'"Stars etc.:Passive, but dont"'"collide with them!" n'"Space stations:If you dock by moving over them, your energy, shields & torpedoes will be"'"replenished" 4;"Hit ENTER ";o$: ("These are the commands you can use:" t'"0: Navigation"'"1: Shields"'"2: Phasors"'"3: Library"'"4: Torpedoes"'"5: Damage report"'"6: Improbability drive" 5"7: Save program to resume later"'"8: Command menu" t'"To use a command, just hold downthe appropriate number key untila reaction is seen. This may notbe immediately." (5;"Hit ENTER for details";o$: ("0: Navigation: Directions start at 1 for straight up, 2 up and right etc. Warp factor is the speed, and is cumulative."'"Directon 0 stops" 2a'"1: The shield energy. The more energy in the shields, the less chance of damage being done." <'"2: Phasors: These automatically lock onto the Klingons. Amount of energy to fire is specified, and is split evenly between all klingons." F'"3:Library: Gives details of all quadrants previously long-range scanned. Functions: 1)Klingons 2)Bases 3)Stars. Yellow square contains enterprise."'"Function 0 to exit" PA'"4:Torpedoes: Specify direction. Direct hit destroys Klingon." ZC'"5: Gives time left before a"'"piece of equiptment is repaired." d<'"6: Improb. drive: Take a random trip around the galaxy." ni'"Long-range scan: Gives details of surrounding quads. No. of"'"Klingons | No. of bases | No. ofstars" xl''"The version without the"'"instructions loads faster, so itshould be used once you are usedto the game." #2;"Hit ENTER to run";o$: S T0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1 Commands i$>"6"3005 9d(i$+o)d,17;e$(i$+o);" damaged":300,: '.1}L,20:i$="0"3200 i$="2"3300 i$="1"3500 i$="3"3600 i$="6"3800 i$="4"4300 i$="7"4800 i$="5"5000 i$="8"2200  Warp Control ?"Direction (0-8) ";d$:d$1d$<"0"d$>"8"3200 <en>200d$="0"wf=z:dex=z:en=en-200:dey=z: /en<200d$="0"ep=500:3310 di=d$ A"Warp factor (0-9) ";d$:d$1d$<"0"d$>"9"3210 #(d$+"0")>enep=en+o:3310 wf=wf+d$:en=en-(d$+"0") &2900T :f=1di:dex,dey:f dex=wf*dex:dey=wf*dey: Phasor fire Mks=010 ,17;"No klingons";11 ,17;"In quad": 4"Energy to Phasors ";ep:epen10 ,17;"Insuficient";11 ,17;"energy": en=en-ep 0f=1ks:dx=q(f,o)-ex:dy=q(f,2)-ey <g=18:3,o,ex,ey:3,o;dx,dy:g f ep/ks<300,+*30*s *f=oks:o:7400:f 4Tq(o,o)=q(ks+o,o):q(o,2)=q(ks+o,2):k=k-ks:u$(x,y,1)=z:ks=z: Shields en=en+she >"Energy to Shields? ";she:sheensheɺshe3510 en=en-she: Draw Frame :f=416416 f,11 :0,160 4,f+7:159,z f   Library  3550 "21-y-y,x+x-o;6;" " $8"Function (0-5) ";d$:d$<"0"d$>"5"űd$o3620$ )d$="0"3700t .f=o10 :g=o10 86u$(f,g,5)="1"21-g-g,f+f-o;u$(f,g,d$) Bg:f:3620$ tD:7000X:7300:20,4;x;20,12 ;y ~Hf=1ks:7400:f:f=1̰u$(x,y,3):7600:f f=1d:t(f,o,o)f: St(f,o,o),t(f,o,2):5*t(f,2,o),5*t(f,2,2):f:  Improb $en<1000ep=en+o:3310 &en=en-1000:is=(*12 )+o  400  is=is-o 0x=x+(*3)-o:x10 3860 0y=y+(*3)-o:y10 3870 (#10,17;"Improb active":100:400 2 400 Collision? v(ex/8)=q(ks+1,2)ƺ(ey/8)=21-q(ks+1,o)o,8;5;"Docked":4100 *10 ,17;1;"Collision!" _as=(*1000)*wf:as>she11 ,17;"Enterprise";12 ,17;"DESTROYED" f=o40(:7300:f: 111 ,17;as;" on shields":she=she-as  688 db688 Mwf=z:d(8):dex=z:dey=z:tor=20:en=5000:she=2000 g Docked hdb=o:f=o502 ri$=:i$<"0"i$>"9"f |Ff513o;q(ks+o,o),q(ks+o,2);"":7300:5600 ti=ti+o:z:o,26;en;" ";2,26;she;" ";3,26;ti;4,26;k;" ";5,26;sb;6,26;tor;" "  44000  4200h Torp Fire 5tf=10 10 ,17;"10 torps flying": (tor=0d,17;"None left": &tor=tor-o:f=o10 :t(f,o,o)f ?"Direction (1-8) ";o$:o$<"1"o$>"8"űo$14330 0o$>"5"ex<6d,17;"Torp missed": e10 ,17;"Torp ";f;" firing":2900T :g=o̰o$:t(f,2,o),t(f,2,2):g  t(f,o,o)=ex:t(f,o,2)=ey Mtf=tf+o:o;ex,ey:o;5*t(f,2,o),5*t(f,2,2): /Move torps 0f=o10 :t(f,o,o)f: :To,t(f,o,o),t(f,o,2):o,5*t(f,2,o),5*t(f,2,2) ?*t(f,o,o)=t(f,o,o)+6*t(f,2,o) @<t(f,o,2)=t(f,o,2)+6*t(f,2,2) D g=z5 HJtpx=t(f,o,o)+g*t(f,2,o):tpy=t(f,o,2)+g*t(f,2,2) Itpxztpx128tpy152tpy2410 ,17;"Torp ";f;11 ,17;"missed":t(f,o,o)=z:tf=tf-o:f: N(tpx,tpy)4500 XIt(f,o,o)+g*t(f,2,o),t(f,o,2)+g*t(f,2,2):g:f: 8tf=tf-o:h=z7:o,h,t(f,o,o),t(f,o,2):h 10 ,17;"Torp ";f; t(tpx-ex)<4ƽ(tpy-ey)<4" hit";11 ,17;"Enterprise";12 ,17;"Ship destroyed!": gtpx=ztpx=128tpy=152tpy=2411 ,17;"missed":t(f,o,o)=z:tf=tf-o:f:  " hit " Gh=oks:(tpx-q(h,o))<5ƽ(tpy-q(h,2))<54700\ h :11 ,17;"star etc.":tf=tf-o:t(f,o,o)=z:f: [ \*tv=f:f=h:o:7400:f=tv:q(h,o)=z f_i=hks+1:q(i,o)=q(i+o,o):q(i,2)=q(i+o,2):i:ks=ks-1:u$(x,y,o)=ks pt(f,o,o)=z:tf=tf-o ,k=k-o:11 ,17;"klingon ":f: &"Save - Shure? (y/n) ";o$:o$"y" %"Filename? ";o$:o$=""4810 f$400:  Damage [f=o72:d+f/2,17;e$(f);" ";d(f);25;e$(f+o);" ";d(f+o):f Fz:300,:f=10 14:f,17;" ":f: f=o7:d(f)f: ,d(f)=1d,17;e$(f);" working" d(f)=d(f)-od(f):d(f)f: 100d:f: p ae/she< znds=r(7):d(ds)=r(40()+20:d,17;e$(ds);" damaged ";d+o,17;" ":  WDraw Frame X;z,z:z,175:255,z:z,-175:-255,z b3128,z:z,175:z,24:128,z l<z,152:128,z:128,110n:127,z v(o,o;"Status";20,o;"x= y=" '128,524:127,0 Uo;1,17;"Energy",," Shields",," Time",," Klingons",," Bases",," Torps" B128,19:127,z:128,36$:127,z 2172,z:z,513:204,z:z,513 O2,z:f=116:o;1;" ":f:z:8  Draw Enterprize 9o:ex-3,ey+o:o+o,z:o,-2:o,2:o+o,z z: Draw klingon xx=q(f,o):yy=q(f,2) Exx-3,yy-3:z,6:6,z:z,-6:-5,z z: 5xx=r(120x)+3:yy=r(120x)+27 )(ex-xx)