spectrek1 dxd*********************** nSPECTREK 48K-versie x(C) MICROPRESS W.M.J. SCHOONENBERG AMSTERDAM, 1984 *********************** 64599W "spectrek3""a" #"spectrek4"64600X,768 -236066\,88X:236077\,251 .2~L,0 , 9 1:1: ;5;4,1;"";5,2;"";6,10 ;" ";7,10 ;" ";8,10 ;" ";9 ,10 ;" ";10 ,10 ;" ";11 ,6;"";12 ,8;"";13 ,9 ;"" -15,1;"USS ENTERPRISE NCC 1701" H1;21,1;"SPECTREK";0;" (C) MICROPRESS, 1984"  500 :1;"INSTRUCTIES" '"U bent benoemd tot commandant van de USS Enterprise. Uw missieluidt de exploratie van de on- eindige leegten waar geen mens eerder is geweest." "Uw taak is vreemde levensvormen op te sporen en vreedzaam tege- moet te treden door hen aan te bieden deel uit te maken van de Verenigde Federatie van Plane- ten."  2000 "De zgn. Klingons zijn de Federa-tie echter vijandig gezind. Zij zullen U proberen te vernieti- gen. Het is niet altijd mogelijkze te ontvluchten, omdat ze U zullen trachten te achtervolgen.Het behoort tot Uw taak de Klin-gons onschadelijk te maken." &'"U heeft de beschikking over Fe- deratie Starbases, waar U de En-terprise kunt laten repareren enbevoorraden. Deze bases kunnen echter door de Klingons worden vernietigd." 0"Een starbase is van groot stra- tegisch belang. U moet een base tegen Klingons beschermen, zelfsals dit het verlies van Uw schipen bemanning kan betekenen." : 2000 DH"De schade die U oploopt door Klingon-vuur kan vitale delen van het schip geheel of gedeel- telijk buiten werking stellen. Het is soms niet altijd nodig te dokken voor reparatie, omdat het sterreschip over een eigen reparatieploeg beschikt (deze gaat overigens pas aan het werk als de gevechtssituatie groen is)." N 2000 X"De Melkweg is verdeeld in 8 maal8, dus 64 quadranten, die op hunbeurt weer verdeeld zijn in 8 maal 16, dus 128 sectoren. Het totaal aantal sectoren in de Melkweg bedraagt 8192." b"Elk quadrant en sector heeft eigen coordinaten. Elk quadrant heeft daarnaast ook nog een eigen naam. Nu volgt een over- zicht van de opdeling van de Melkweg in 64 quadranten. Let opde coordinaten." l2000:1000 /"De computer reageert op de vol- gende commando's:";''" IMP: Impuls Drive navigatie,"," HYP: Hyperdrive navigatie,"," SEN: Sensor,",," PHO: Photon torpedo,"," PHA: Phaser,",," SHE: Shield,",," COM: Boordcomputer,"," REP: Situatie rapport,"," DAM: Schade rapport,"," STOP: Beeindiging missie."  2000  "De Hyperdrive brengt de Enter- prise van het ene quadrant naar het andere. Dit is ook mogelijk met de gewone Impulse Drive, maar dat kost veel tijd en ener-gie. De Impulse Drive is vooral geschikt voor kleine afstanden, bijvoorbeeld die binnen een qua-drant." ڝ'"Bij gebruik van de Hyperdrive wordt gevraagd: 'Warps?' Hier- mee wordt bedoeld de te over- bruggen afstand. Een warp staat gelijk aan een quadrant." o"Bij gebruik van de gewone Drive wordt gevraagd: 'Stuwkracht?' Een eenheid stuwkracht is gelijkeen sector."  2000 ]"De Sensor geeft een overzicht van de situatie in de Enterpri- se omringende quadranten." q'"Het eigen quadrant wordt altijd automatisch in beeld gebracht. Op dit scherm kan het volgende verschijnen."  9'" = de Enterprise,"'" = Klingon oorlogsschip," ''" ";'" = Federatie Starbase," 4'" = een planeet,"''" ";'" = een ster."  2000  "Verder kan er in het quadrant een zwart gat aanwezig zijn. Dit hemellichaam is echter niet zichtbaar. De aanwezigheid van een zwart gat wordt pas opge- merkt als het te laat is, nl. wanneer het schip met man en muis is vergaan." "7'"Hier is niets tegen te doen. De enige manier om achter de aan- wezigheid van een zwart gat te komen, is de Klingons goed te observeren. Zij kunnen om on- verklaarbare redenen zwarte ga- ten wel waarnemen en wanneer zijeen plotselinge koerswending doen, kan dit het gevolg zijn van een zwart gat." $ 2000 *p"De Photon torpedo's zijn krach- tige wapens die als zij doel treffen het doel vaak direkt vernietigen." 4'"Bij het afschieten van een Pho- ton, maar ook bij de navigatie wordt gevraagd: 'Vector?' Hier- mee wordt de richtingsvector, bestaande uit twee coordinaten, bedoeld. Dus vector 1,2 betekent1 eenheid naar beneden, 2 eenhe-den naar rechts (op de kaart)." >'"De Phasers zijn laserwapens die erg trefzeker zijn, maar niet zokrachtig als Photons. Ze gebrui-ken veel energie. Er hoeft geen vector te worden ingevoerd." R 2000 \"Het elektromagnetisch Shield be-schermt de Enterprise in zekere mate tegen vijandelijk vuur, maar kost veel energie. Beperk dus het gebruik." /21,0;"Instructies nog een keer?" a$=:a$=""910 a$="j"500 .2~L,0 2:2:  "spectrek2" ***QUADR.NOMENCLATUUR**  e"Quadrant Nomenclatuur kaart"'"________________________________"''" 1 2 3 4 5 6 7 8"  1060$ 7k=18:a$:b$:k;3;a$;20;b$ 87;1;" I II III IV I II III IV ":k $" ANTARES"," SIRIUS"," RIGEL"," DENEB"," PROCYON"," CAPELLA"," VEGA","BETELGEUSE"," CANOPUS","ALDEBARAN"," ALTAIR"," REGULUS","SAGITARIUS","ARCTURUS"," POLLUX"," SPICA" . 2000 8 ?21,0;"Druk een toets voor vervolg.":0:: spectrek3 X (> >bd&F(*D:  >>> ~BFF~~~@~|~~ff~~@~~|@~F~~ <$~f~~B~ >>~~``1n(x,y)=n(x,y)+100d*(*3+2.5 ) F<a(k)=(*12 +2.5 ):b(k)=(*29+2.5 ) Hk J*kl=kl0:h1=h0+(kl0*30+10 *) Tng1=(*7+1.5@):g2=(*7+1.5@):x0=(*12 +2.5 ):y0=(*29+2.5 ) Vx=g1:y=g2:qdrn:q$=a$ Xx1=x0:y1=y0 ^opz1:opz2:opz3 h 1:1::8010J ro'"Commandant, U heeft tot ";h1;'"de tijd zoveel mogelijk Klingonsop te sporen en buiten gevecht te stellen." |o'"In de Melkweg bevinden zich ";kl0;'"Klingon oorlogsschepen. U heeft de beschikking over ";fs0;" Starbases." 8100:nwqm ***HOOFDPROGRAMMA****** #nwqopz1:klna:opz2:opz3:nwqm  nfsdok nklnb:klnv  nrepair einde530 scherm 'n(g1,g2)=100d*nsp+10 *nfs+n ""Command? ";a$:a$="stop"cstop a$="imp"cimp a$="hyp"chyp a$="sen"csen a$="pho"cpho a$="pha"cpha a$="she"cshe  a$="com"ccom  a$="rep"crep a$="dam"cdam !eindestat:einde400 stop ;21,0;"Nog een keer?":a$=:a$=""542  a$="j":200 " &***STATUS************** 0"h=h+1:hh1einde=2 :kl=0einde=6 DTe=e-(sh*100d*(n+1)+*100d):e<100de=0:einde=5 F'dam>40(e<1000sh=0 N S***OPZET 1************* Tlnsp=(n(g1,g2)/100d):nfs=(n(g1,g2)/10 )-10 *nsp:n=n(g1,g2)-10 *(n(g1,g2)/10 ) U X***OPZET 2************* Z nspnfs b<x=0:y=0:k=18:j=18 lY(n(k,j)/10 )-10 *(n(k,j)/100d)x=x+1:g1=kg2=jp=p(x):q=q(x) n=(n(k,j)/100d)y=y+1:g1=kg2=ja=a(y):b=b(y) vj:k xOnspnfs(a-p)<2ƽ(b-q)<2q=q+5:q>30q=q-30 y<nsp(x0=ax0=a+1)(y0=by0=b+1)y0=b-1 z<nfs(x0=px0=p+1)(y0=qy0=q+1)y0=q-1 { ***OPZET 3************* n  k=1n Xx(k)=(*12 +2.5 ):y(k)=(*29+2.5 ):x(k)=x0y(k)=y0660 Anfs(x(k)=px(k)=p+1)(y(k)=qy(k)=q+1)660 Ansp(x(k)=ax(k)=a+1)(y(k)=by(k)=b+1)660 k  ***ACHTERV.KLINGONS**** n >nfs0=1n0>2n=n0-2:n0=2:745 >nfs01n0>1n=n0-1:n0=1:745  Qn(g1,g2)=100d*nsp+10 *nfs+n:n(g3,g4)=100d*nsp0+10 *nfs0+n0 acht=1  ***BEWEGING KLINGONS*** &k=1n:v(k)=x(k):w(k)=y(k):k  Dk=1n:k=1nfs=1n>1860\:840H \x(k)=(.75@*x(k)+.25~*x0+.5):y(k)=(.75@*y(k)+.25~*y0+.5)  k=1830> *Hj=1k-1:x(k)=x(j)y(k)=y(j)y(k)=y(k)-1:810* 4j >Qnfs(x(k)=px(k)=p+1)(y(k)=qy(k)=q+1)x(k)=p-1:800  @Qnsp(x(k)=ax(k)=a+1)(y(k)=by(k)=b+1)x(k)=a-1:800  Hk R \***KLINGON NAAR BASE*** frx(1)=(.75@*x(1)+.25~*p+.5):y(1)=(.75@*y(1)+.25~*q+.5) p<x(1)=x0y(1)=y0y(1)=y(1)+1 z ***VUUR KLINGONS******* dk=32 :db=32  k=1n Ad=(((x(k)-x0))^2+(y(k)-y0))^2:d5026,2;"Schade aan Impulse Drive"  1500 /k=10 :dam>502k=k-(dam/20) 9("Stuwkracht? (1-";k;") ");w:w<1w>k1032 g3=g1:g4=g2:x1=x0:y1=y0 Eh=h+w:e=e-20*w:x0=(x0+x*w+.5):y0=(y0+y*w+.5) Lnsp=1(x0-a)<4ƽ(y0-b)<4einde=9 :dam=100d Bnsp=2nsp=3x0=ay0=beinde=8:dam=100d `nsp=4nsp=5(x0=ax0=a+1)(y0=by0=b+1)einde=8:dam=100d $n1100L .<k=1n:x0=x(k)y0=y(k)einde=4:dam=100d 8k VCx0<1x0=x0+15:g1=g1-1:1300:1100L `Dx0>15x0=x0-15:g1=g1+1:1300:1100L jCy0<1y0=y0+32 :g2=g2-1:1300:1100L tDy0>32 y0=y0-32 :g2=g2+1:1300:1100L ~ ***HYP-COMMANDO******** 8dam>60<6,2;"Schade aan Hyperdrive"  1500 $"Warps? ";w:w<11230 h=h+w:e=e-100d*w :dam>60<ƥ<.25~einde=7:dam=100d: g3=g1:g4=g2:x1=x0:y1=y0 .g1=(g1+x*w+.5):g2=(g2+y*w+.5)  1300   ***NIEUW QUADRANT****** (%x1+6,y1-1;0;" " 2>g1<1g1>8g2<1g2>8einde=5: <'nsp0=nsp:nfs0=nfs:n0=n:nwq=1 Fx=g1:y=g2:qdrn:q$=a$ P ***INVOER VECTOR******* 5"Vector? ";x;",";y:x=0y=01510 x>yy=y/x:x=x x1000t>5'"Dokking is niet urgent. Andere sterreschepen gaan voor.":x=10 :2120H  *sh'"Shield uitgeschakeld.":sh=0 /'"Enterprise is gedokt in"'"Starbase ";q$;"."  8200 4gx=(dam/2+*5):dam>0"De reparatietijd is ";x;" in","sterretijd. U moet wachten." >(dam=0:e=15000::t=10 Hh=h+x:x0=p-1 Rx*502+500 Z go=0 \ ***QUADR.MELDING*******  1:1::8010J ,'"De Enterprise is ";q$'"binnengedrongen." 7n'"In dit quadrant bevinden zich geen Klingons." :nacht'"In dit quadrant bevinden zich"'n;" Klingons." inacht'"Klingons hebben de Enterprise achtervolgd. ";n;" Klingons in dit"'"quadrant.":acht=0 Mnfs=1'"De Federatie beschikt in dit quadrant over een Starbase." nsp=1a$="zwart gat" 'nsp=2nsp=3a$="planeet" nsp=4a$="gele ster" nsp=5a$="rode ster" wnsp'"De scheepscomputer meldt een"'a$;" in dit quadrant.":(nsp=2nsp=3)c(g1,g2)<100d2300  nwq=0  go=0 8100:  ***PRINT PLANEET******* nsp=2a$="G" nsp=3a$="M" )"Een planeet uit de ";a$;"-klasse, met" $6x=(*20+1.5@):y=(*20+1.5@) .I"een bevolking van ";x;" miljard en"'"een techn.nivo van ";y;" punten." 8pl=pl+1 Be"Deze nieuw ontdekte wereld,"'"nummer ";pl;", sluit zich aan bij de"'"Federatie van Ver. Planeten." L `***SCHERM************** j"1:0:go2440 l:1;" " tJk=110 :(*253+1.5@),(*117u+1.5@):k ~ go=1 7x1+6,y1-1;" ";x0+6,y0-1;"" Atorkk=07:v+6,w-1;7-k;"":k n2480 k=1n:j=1k !v(k)=x(j)w(k)=y(j)2472 j v(k)+6,w(k)-1;" " )x(k)+6,y(k)-1;5;"" k Bnfs=1p+6,q-1;"";p+7,q-1;"" Bnfs=2p+6,q-1;"";p+7,q-1;"" @nsp=2nsp=3nsp+2;a+6,b-1;"" Knsp=46;a+6,b-1;"";a+7,b-1;"" Knsp=52;a+6,b-1;"";a+7,b-1;"" 1 _0,0;:8010J:8020T:8030^:"KLINGONS:";11 ;n'"CONDITION: "; n"GROEN":2550 dk>5"GEEL" &dk51;"ROOD";0 0,17;q$ 1,17;(e<5000);"ENERGY: ";e;" ";2,17;(t=0);"PHOTONS: ";t;" ";3,17;(dam>80P);"DAMAGE: ";dam;" % " M4,17;" ":sh=14,17;1;"SHIELD" (U5,0;" " 2cnnfs=1(nsp=2nsp=3)1;5,2;"Starbase en wereld in gevaar" 60<6,2;"Sensor defekt ":300,: 4:4: 28010J:8022V:"KLINGONS:";11 ;kl u'"Betekenis code: het eerste cij- fer geeft de aanwezigheid van een Starbase aan, het tweede hetaantal Klingons." wk=14:24,112p-k*24:96`,0:k*32 -8,88X:0,-72H:k k=13 +a$=(g2-2+k):a$="0"a$="9"a$=" " 9 ,4*k+1;a$ &0x=g1-2+k:a$=(x):a$="0"a$="9"a$=" " 09 +3*k,1;a$ :#j=13:y=g2-2+j D>x=0x=9 y=0y=9 a$=" ":3180l N&a$=(n(x,y)):a$=1a$="0"+a$ Pa$=2a$="0"+a$ X=a$=a$(23):a$(1)="2"a$="0"+a$(2) b-c(x,y)=n(x,y)-100d*(n(x,y)/100d) l.9 +3*k,4*j;(x=g1y=g2);a$ vj:k `17,17;"Data worden";18,17;"toegevoegd";19,17;"aan COM." 8100: go=0  ***PHO-COMMANDO******** Hdam>70F6,2;"Photon inrichting defekt":300,: Ht=01;6,2;"Geen photon's ":300,:  1500 't=t-1:e=e-502:k=x0:j=y0 k=k+x:j=j+y Li=1n:(x(i)-k)<1ƽ(y(i)-j)<1tork=1:4140, i ,Lnfs=1(p+.5-k)<1ƽ(q+.5-j)<1torb=1 6 h=h+1 @Ctorktorbk1k15j1j32 4100 htorktorbtork=0 jtorkƥ<.5tork=0 rtork4600 |"torbfs=fs-1:nfs=2  ***PHA-COMMANDO******** He<10006,2;"Te weinig Phaser-energie":300,: Bdam>40(6,2;"Phasers defekt ":300,: *e=e-(100d*n+*502):h=h+(dk) 8n>0ƥ<.25~tork=1:i=dkl:4600  ***KLINGON RAAK******** kl=kl-1:n=n-1  v=x(i):w=y(i) 0k=in:x(k)=x(k+1):y(k)=y(k+1):k   ***SHE-COMMANDO******** Bdam>40(6,2;"Shield defekt ":300,: shsh=0: sh=1: |***BOORDREPARATIE****** dam=dam-1 dam<0dam=0  p***COM-COMMANDO******** zDdam>80P6,2;"Boordcomputer defekt":300,: 6:6: 48010J:'"Inhoud Computergeheugen":8110 h'"1. Situatie Rapport,","2. Schade Rapport,","3. Starbases Federatie,","4. Cumulatief Data Overzicht," 5'"0. COM uit.";21,0;"Welke bladzijde?" 'a$=:a$=""a$<"0"a$>"4"6060 a$="0":go=0: a$*100d+6300 stat:einde6000p  ***REP-COMMANDO********  6:6: ."Situatie rapport":8110::8010J O"Missie Enterprise eindigt op",h1;". d.w.z. over ";h1-h;" tijds-","eenheden." (R:8022V:8030^:"KLINGONS:";11 +(kl<10 );kl;" (in Melkweg)" 212 ;n;" (in quadrant)" 121;1;"vernietigd";  j:k Q8110:"Positie Enterprise is quadrant",g1;",";g2;" (";q$;").":8100 " ,***CUM.DAT.OV.********* 6+:"Cumulatief Data Overzicht":8110 83,3;"1 2 3 4 5 6 7 8";15,27;"1:";16,27;"Base";17,27;"2:";18,27;"Klin-";19,27;"gon" :{k=19 :12 ,156-16*k:192,0:24*k-12 ,140:0,-128:k @1k=18:2*k+3,0;k Bj=18 J,a$=(c(k,j)):a$="-1"a$="--":6760h Ta$=1a$="0"+a$ Va$=2a$="0"+a$ ^=a$=a$(23):a$(1)="2"a$="0"+a$(2) h62*k+3,j*3-1;(k=g1j=g2);a$ rj:k | 8100  X***STOP-COMMANDO******* beinde=1 l ***BEEINDIGING SPEL**** 2:2: 8010J:8040h einde*10 +7090 /'"U bent van uw missie ontheven.":7200  '"De tijd is om.":7200  -'"De Enterprise is vernietigd.":7200  K'"De Enterprise is tegen een Klin-gon gebotst en vernietigd.":7200  8'"De Enterprise is verloren in de ruimte.":7200  !'"Missie voltooid.":7200  >'"De Enterprise is tijdens de warpgeexplodeerd.":7200  o'"De Enterprise is binnen de aan- trekkingskracht van een hemel- lichaam gekomen en vernietigd.":7200   k'"De Enterprise is binnen de aan- trekkingskracht van een zwart gat gekomen en vernietigd.":7200   /kl=0'"Alle Klingons zijn vernietigd." *skl>0'"Het aantal overgebleven Klingon schepen bedraagt ";kl;"."'"Aantal Klingons vernietigd: ";kl0-kl;"." 4<fs=0'"Alle Federatie Starbases zijn vernietigd." >mfs>0'"Het aantal overgebleven Federa- tie Starbases bedraagt ";fs;", dus","vernietigd: ";fs0-fs;"." H:'"De Enterprise heeft ";pl;" nieuwe"'"werelden ontdekt." R @***TEKSTEN************* J$"STARDATE:";11 ;1;h: T#"QUADRANT:";11 ;g1;",";g2: V/"QUADRANT:";11 ;g1;",";g2;" (";q$;")": ^Q"SECTOR:";11 ;(x0*.533r!+.5);",";(y0*.5+.5);" ": hM"ENERGY:";11 ;e'"PHOTONS:";11 ;t'"DAMAGE:";11 ;dam;" %": =21,0;"Druk een toets voor vervolg.":0: &" ": ***PRINT SCHADE********  dam=0'"Geen schade.": '"De schade is ";dam;" %"'' &2dam>40("Shield defekt."'"Phasers defekt." 0+dam>502"Schade aan Impulse Drive." :9dam>60<"Schade aan Hyperdrive."'"Sensor defekt." D2dam>70F"Photon torpedo inrichting defekt" N2dam>80P"Boordcomputer databanken defekt." b !4***QUADRANT NAMEN****** !> 8540\! !H%y>4x=x+8:y=y-4 !Ri=1x:a$:i !\"ANTARES","RIGEL","PROCYON","VEGA","CANOPUS","ALTAIR","SAGITTARIUS","POLLUX","SIRIUS","DENEB","CAPELLA","BETELGEUSE","ALDEBARAN","REGULUS","ARCTURUS","SPICA" !f a$=a$+" " !p&y<4i=1y:a$=a$+"I":i !zy=4a$=a$+"IV" ! Spectrek dId*********************** nspectrek 16K-versie x(C) MICROPRESS W.M.J.Schoonenberg AMSTERDAM, 1984 *********************** 1:1:9 : .2~L,0 stat=550&:opzq=600X:klnv=900:cimp=1000:chyp=1200:dok=2000:scherm=2400` :csen=3000 :cpho=4000:cshe=5000:cstop=7000X:stop=7050 ***START*************** zh=4800+(*200):t=20:e=15000::dam=0:fs=5:kl0=0:einde=0:nwq=0 (tork=0:torb=0:sh=0 dk=0:db=0 Dn(8,8):p(5):q(5):x(4):y(4) k=1fs Gx=(*7+1.5@):y=(*7+1.5@):n(x,y)250 Mn(x,y)=10 :p(k)=(*12 +2.5 ):q(k)=(*29+2.5 ) 1kl=(*4+.5):kl0=kl0+kl:n(x,y)=kl k "k=16 ,Gx=(*7+1.5@):y=(*7+1.5@):n(x,y)300, 62kl=(*3+1.5@):kl0=kl0+kl:n(x,y)=kl @k J)kl=kl0:h0=h+(kl0*30+10 *) Tng1=(*7+1.5@):g2=(*7)+1.5@:x0=(*12 +2.5 ):y0=(*29+2.5 ) ^opzq h 1:1::8010J ro'"Commandant, u heeft tot ";h0;'"de tijd zoveel mogelijk Klingonsop te sporen en buiten gevecht te stellen." |n'"In de Melkweg bevinden zich ";kl0;'"Klingon oorlogsschepen. U heeft de beschikking over ";fs;" Starbases." 021,0;"Druk een toets.":0: ***HOOFDPROGRAMMA******  nwqopzq  nfsdok  nklnv einde530 scherm n(g1,g2)=10 *nfs+n 3"Command? ";a$:a$="stop"a$=""a$="STOP"cstop a$="imp"a$="IMP"cimp a$="hyp"a$="HYP"chyp a$="sen"a$="SEN"csen a$="pho"a$="PHO"cpho a$="she"a$="SHE"cshe !eindestat:einde400 stop: &***STATUS************** 0"h=h+1:hh0einde=2 :kl=0einde=6 DTe=e-(sh*100d*(n+1)+*100d):e<100de=0:einde=5 N X***OPZET QUADRANT****** b1x=0:k=18:j=18 l<(n(k,j)/10 )x=x+1:g1=kg2=jp=p(x):q=q(x) vj:k 9nfs=(n(g1,g2)/10 ):n=n(g1,g2)-10 *nfs:n  k=1n Xx(k)=(*12 +2.5 ):y(k)=(*29+2.5 ):x(k)=x0y(k)=yp660 Anfs(x(k)=px(k)=p+1)(y(k)=qy(k)=q+1)660 k  ***VUUR KLINGONS******* dk=32 :db=32  k=1n <d=(((x(k)-x0))^2+((y(k)-y0))^2):d10 1030 Eh=h+w:e=e-20*w:x0=(x0+x*w+.5):y0=(y0+y*w+.5) $n1100L .<k=1n:x0=x(k)y0=y(k)einde=4:dam=100d 8k VCx0<1x0=x0+15:g1=g1-1:1300:1100L `Dx0>15x0=x0-15:g1=g1+1:1300:1100L jCy0<1y0=y0+32 :g2=g2-1:1300:1100L tDy0>32 y0=y0-32 :g2=g2+1:1300:1100L ~ ***HYP-COMMANDO********  1500 $"Warps? ";w:w<11230 h=h+w:e=e-100d*w .g1=(g1+x*w+.5):g2=(g2+y*w+.5)  1300   ***NIEUW QUADRANT****** 2<g1<1g1>8g2<1g2>8einde=5 < nwq=1 P ***INVOER VECTOR******* 5"Vector? ";x;",";y:x=0y=01510 x>yy=y/x:x=x x10000't>10 '"Dokking is niet urgent. Andere sterreschepen gaan voor.":x=10 :2120H  *sh'"Shield uitgeschakeld.":sh=0 7'"De Enterprise is gedokt."'"De schade is ";dam;" %." 4gx=(dam/2+*5):dam>0"De reparatietijd is ";x;" in","sterretijd. U moet wachten." >(dam=0:e=15000::t=20 Hh=h+x:x0=p-1 \ `***SCHERM************** j1:0::1;" " x0+6,y0-1;"" n2480 9k=1n:5;x(k)+6,y(k)-1;"":k Bnfs=1p+6,q-1;"";p+7,q-1;"" Bnfs=2p+6,q-1;"";p+7,q-1;"" 1 0,0;:8010J n"GROEN":2550 DK>5"GEEL" &DK51;"ROOD";0 @nwq0,17;1;"NIEUW QUARDRANT":NWQ=0 h1,17;"ENERGY: ";E;2,17;"PHOTINS: ";T;3,17;"DAMAGE: ";DAM;" %" )SH4,17;1;"SHIELD" 2?NNFS=11;5,2;"Starbase in gevaar" P;tork6,2;"Klingon vernietigd":tork=0 Z_torb5,2;"Starbas vernietigd":torb=16,2;"door Enterprise" dtorb=0 x ***SEN-COMMANDO******** 4:4: 28010J:8020T:"KLINGONS:";11 ;kl u'"Betekenis code: het eerste cij- fer geeft de aanwezigheid van een Starbase aan, het tweede hetaantal Klingons." wk=14:24,112p-k*24:96`,0:k*32 -8,88X:0,-72H:k k=13 +a$=(g2-2+k):a$="0"a$="9"a$=" " 9 ,4*k+1;a$ &0x=g1-2+k:a$=(x):a$="0"a$="9"a$=" " 09 +3*k,1;a$ :#j=13:y=g2-2+j D>x=0x=9 y=0y=9 a$=" ":3180l N&a$=(n(x,y)):a$=1a$="0"+a$ X%a$(1)="@"a$="0"+a$(2) l!9 +3*k,4*j;a$ vj:k 021,0;"Druk een toets.":0:  ***PHO-COMMANDO******** Ht=01;6,2;"Geen photon's ":300,:  1500 't=t-1:e=e-502:k=x0:j=y0 k=k+x:j=j+y Li=1n:(x(i)-k)<1ƽ(y(i)-j)<1tork=1:4140, i ,Lnfs=1(p+.5-k)<1ƽ(q+.5-j)<1torb=1 6 h=h+1 @Ctorktorbk1k15j1j32 4100 htorktorbtork=0 rRtorkkl=kl-1:n=n-1:k=in:x(k)=x(k+1):y(k)=y(k+1):k |"torbfs=fs-1:nfs=2  ***SHE-COMMANDO******** shsh=0: sh=1: X***STOP-COMMANDO******* bEINDE=1 l ***BEEINDIGING SPEL**** 2:2: @8010J:"ENERGY:";11 ;E'"DAMAGE:";11 ;DAM;" %" EINDE*10 +7090 /'"U bent van uw missie ontheven.":7200  '"De tijd is om.":7200  -'"De Enterprise is vernietigd.":7200  K'"De Enterprise is tegen een Klin-gon gebotst en vernietigd.":7200  8'"De Enterprise is verloren in de ruimte.":7200  !'"Missie voltooid.":7200   /kl=0'"Alle Klingons zijn vernietigd." *skl>0'"Het aantal overgebleven Klingon schepen bedraagt ";kl;"."'"Aantal Klingons vernietigd: ";kl0-kl;"." R @***TEKSTEN************* J$"STARDATE:";11 ;1;H: T#"QUADRANT:";11 ;G1;",";G2: l