ZXTape! 0Created with Ramsoft MakeTZXFOG T# "FOG"  >>  MACBRIDE 1983 << _7:0::21,0;" PLEASE LEAVE THE TAPE RUNNING ":1,0  5000 2p1,12 ;"FOG";3,2;"You are in the fog with the";5,2;"Korth coming at you." ,62>,28,28,28,93],"F",127,127,62>,28,28,8,8,8 "G",0,3,7,31,255,31,7,3,"H",0,128,15,252,255,252,15,128 "I",0,0,0,0,1,6,254,252,"J",0,0,3,7,9 ,2,4,1,"K",124|,252,252,236,192,192,128,0 "L",0,0,0,0,16,72H,44,,156,"M",126~,63?,15,7,15,15,0,0,"N",192,192,192,192,192,224,96`,16 "O",0,1,3,3,557,63?,63?,62>,"P",128,32 ,64@,144,224,192,0,0,"Q",63?,127,96`,128,0,0,0,0 "R",8,6,7,3,3,3,3,3,"S",0,0,240,240,224,240,252,126~,"T",579,524,18,8,0,0,0,0 Q"U",24,153,90Z,60<,60<,102f,255,255  bGUcFOG  b- "FOG"  >>  MACBRIDE 1983 << WZ$(32 ):20,0;" PLEASE STOP THE TAPE AND WAIT ";Z$:4000 (+23692\,25:23658j\,8 2C$(4):Q$(4) <2N=14:" Key control to ";w$(n);" "; FW.5,25:0,0;"Please press  key  and  ENTER  ";c$(n) P,t=1n-1:c$(n)=q$(t)70F Zt:q$(n)=c$(n) _ c$(n)'':n d<''':1,10 :" How fast should the Korth be ?"'' nH" FAST SLOW"'':" 1 2 3 4 5 " s''':.5,25 x<0,0;" Pick a number between 1 and 5 ";a$ a$<"1"a$>"5"120x dt=a$(1) rt=dt*40(+40( m" Ready when you are!"''':" Mind who you shoot at."''':" Press  ENTER  to start the game" 13 160 SSD=0:s=0:m=1:an=0:kn=18:j(3):k(3) t$(3):h$="":h=0 Ztg=0:23672x\,0:7:5::l=10 :c=14:d=1 q0,0:0:0,175:255,0:0,-175:-255,0:7 1000 ""2000:1000 TG240 @23672x\>(*502)+25n=1m:3000 :n <n=1M:(j(n),k(n))=42*3100 :1000 n Ttgƾ23672x\>rtn=1m:3200 :n:tg=0:t$(3):200 tg220 kn<13300 , 220  :l,c;7;s$(d,1);l+1,c;s$(d,2): 4q=0:i$=:n=14:i$=c$(n)q=n: n:q=0 q=421004 d=d+(q=2)-(q=1) -d=d+(8d<1)-(8d>8) 23672x\,(23672x\-DT)  q3 0.01z# =,0:L,C;" ";L+1,C;" " <L1=L+(D3D5)-(D=8D=1D=7)  2C1=C+(D1D3)-(D5D7) (L1,C1)=40(2090*  C=C1:L=L1 * 4s=s+1:x=x(c):y=y(l) >"x1=A(1,D):y1=A(2,D) C#L=10 C=142140\ H9x+x1>255x+x1<0x1=x1*.8L:2120H R9y+y1>175y+y1<0y1=y1*.8L:2130R \Z2:n=12:1:x,y:x1,y1:.01z# =,20:n:0:0  Ntg=1:r=(*3)+4:j(n)=l+r-(rƥ>.4L)-(rƥ>.73333) (k(n)=c+r-(rƥ>.4L)-(rƥ>.73333) j(n)=lk(n)=c3000 "k(n)>cj(n)lj(n)=j(n)+1 "j(n)20) <k(n)=k(n)+(30k(n)<1)-(30k(n)>30) "t$(n)="":>.8Lt$(n)="" j(n),k(n);0;t$(n) 23672x\,0: Ip=05:j(n),k(n);p;t$(n):.01z# =,40(-2*p:p !023672x\,(23672x\-DT*2):7 &ch=h+1:h$=h$+" "+t$(n):h=mtg=0:h=0::0,0;"HITS ";h$;" " 0@t$(n)=""kn=kn-1:M=1+(KN<6)+(KN<12 ) :t$(n)=""an=an+1 D t$(n)=" " b 't$(n)=""t$(n)=" "j(n),k(n);" ": ,x=v(k(n)):y=w(j(n)):x1=x(c):y1=y(l) =C$(4)21004 Mn=12:1:x,y:x1-x,y1-y:.05|L,-10 :n:0 an=14:d=18:d-1:1000:.005y# =,20:d:n:7 SD=1 #5:7:0::q=dt SD=13320 kn<1an<25,2;"Congratulations!You are to be";7,2;"Captain of the Scooter Squad.":Dt=Dt-1+(Dt<2):33804 kn<1DT=DT-1+(DT<2):5,2;"You have destroyed the Korth";7,2;"but killed too many friends.";9 ,2;"You are not popular.":33804 xkn>12 5,2;"More practice needed.";7,2;"Why not try again?":Dt=Dt+1:33804 K5,2;" You were a useful member of the Scooter Squad." 43,9 ;" SPEED LEVEL ";q;" ";12 ,5;"You fired ";s;" times.";14,5;"You shot ";18-kn;" Korth....";16,5;"and ";an;" of your friends." Hdt>5dt=5 MP0,0;"Would you like another go? (Y/N)";a$:a$=""3400H R,a$(1)="y"a$(1)="Y"140 \-a$(1)="n"a$(1)="N"3440p f 3400H p^18,7;" Goodbye for now ";20,3;" Press  R  to Run again " z="r"Ŧ="R"40( 3450z ^4000:S$(8,2,2):T=18:N=12:S$(T,N):N:T Q" ",""," ",""," ",""," "," ",""," ",""," ",""," "," "," " 3W$(4,11 ):N=14:W$(N):N 6"STEER LEFT","STEER RIGHT","GO FORWARD","FIRE LASER" "Fx(c)=c*8+8+(4d=8)-(4d=4) ,=y(l )=(21-l)*8-4+(8d>3) 6v(c)=c*8+4 @)w(l )=(21-l)*8+4 JvA(2,8):N=18:A(1,N)=(N*.78G{)*80P:A(2,N)=(N*.78G{)*80P:N h  pM(23730\+256*23731\)-(23653e\+256*23654f\) z7:0 Ua geɁ]rӆʇv.` @c~ z]Նޔ5sL_ςv0Y~&ϴALKDALKDsmhl c rqxyT\    H IAAN# ' 1 OLDREN J D L "OLDREN"  >>  MACBRIDE 1983 << _7:0::21,0;" PLEASE LEAVE THE TAPE RUNNING ":1,0 ( 2<N=18:G$:R=07:B:G$+R,B:R:N >  MACBRIDE 1983 << GX(C)=C*8+4:Y(L)=(21-L)*8+4 (hZ$(32 ):19,0;" STOP THE TAPE - PRESS ANY KEY ";Z$;Z$:1,0:0 <4H(2):P(9 ,3):K(9 ,3) F\N=19 :P(N,1)=18:P(N,2)=N+4:P(N,3)=27:N P[N=19 :K(N,1)=3:K(N,2)=2+N:K(N,3)=27:N Z;90Z:N=13:k(N,1),k(N,2):N _22,3,6,9 ,2,16 d5:7:0: nA6:L=118:L,1;"":L xd1:0,10 ;"";1,9 ;"";2,8;"";2,11 ;"" a=0:0:4:N=13:K(N,1),K(N,2);(""K(N,3));K(N,1)+1,K(N,2);"":N 98,152:3;144,0,2.5 4N=49 :K(N,3)<4180 'K(N,1),K(N,2);4;N N 5N=19 :p(n,3)>31500 N w7:0,20;"UNIT NUMBERS";2,21;" ALLIES ";12 ,22;" KORTH " tn=0:N=39 :tn=tn+p(n,3):N,20;1;7;N;7;0;".......";P(N,3):N>3N+9 ,20;4;N;7;".......";K(N,3) N:tn<40(4000 T21,0;" PRESS ANY KEY TO GIVE ORDERS. ":1,0:0 3000 1,20;"ORDER CODES";3,20;"MOVE UP...1";4,22;"DOWN....2";5,22;"LEFT....3";6,22;"RIGHT...4" 8,20;"STAND.....5";10 ,20;"USE BOMB..6";12 ,20;"BEAM UP...7";13 ,22;"LEFT....8";14,22;"RIGHT...9";16,20;"CHANGE LAST";17,20;"ORDER.....0" ,(M$(9 ,2):N=19 1!P(N,3)=0400 60P$=N:N<3P$="":21,0;Z$ ;F21,2;"ORDER FOR UNIT ";(N2);P$;0;" ? " @z.5,25:0,0;("Please  ENTER  code number 0 - ";6+(3N<3));M$(N,1) JBM$(N,1)<"0"M$(N,1)>"9"1,20:320@ TK=M$(N,1) Y3K>6N>2.5,12 :3106 ^-K=0N>1N=N-1:3106 hK>4400 rq.5,35#:21,19;"MOVE":0,0;" How many squares 1 - 6 ?";m$(n,2) |BM$(N,2)<"1"M$(N,2)>"6"1,20:370r K6450 .5,10 :21,19;"BOMB":0,0;"Where does the bomb go ? Left(5)Right(8) Up(7) or Down(6) ";m$(n,2) 0m$(n,2)<"5"m$(n,2)>"8"410 =n:21,0;" YOUR ORDERS ARE BEING OBEYED " 4N=19 :P(N,3)=0700 F=0:K=M$(N,1) k=6670 K>4600X <X=M$(N,2)*(1-(2(K=1K=3))) L=P(N,1)+(XK<3) !C=P(N,2)+(XK>2) "+S=1-(2(K=1K=3)) $K>2580D &DI=P(N,1)+SLS:(I,P(N,2))480I=L+S:570: 051400x:P(N,1)=P(N,1)+S:1500 :I:630v DDI=P(N,2)+SCS:(P(N,1),I)480I=C+S:590N I51400x:P(N,2)=P(N,2)+S:1500 NI:630v XN>2630v baX=0:Y=0:1:X1=X(P(N,2)):Y1=Y(P(N,1)):1000+100d*K l0:700 v8P(N,1)=2P(N,2)=10 3500 {@qn=6:Q=49 :K(Q,3)<1660 B=0:SL=P(N,1):SC=P(N,2):d=(k(q,1)-sl)+(k(q,2)-sc):d8990 4dJ=49 :K(J,3)<9 JQE=K(J,1):S=K(J,2):1100L:990 >J A=0990 (E=H(1):S=H(2):1100L  A=A-1 Q Y21,0;"PRESS ENTER FOR SITUATION UPDATE":1,10 :0 =13 100d  1010 LEm=16:l=k(q,1)+(e>k(q,1))-(eK(Q,2))-(s480L=0:1750 Y=8:2200 L: #E=1:S=-1:1905q lE=18:S=1 qNC=P(N,2)+SES:(P(N,1),C)=513L=P(N,1):2300 t/(P(N,1),C)>480C=E+S:1950 vX=8*S:2200 C: еZ=39 :P(Z,1)=SLP(Z,2)=SCP(Z,3)=(P(Z,3)*D):P(Z,1),P(Z,2);1;Z:.3,20:P(Z,1),P(Z,2);1;Z ,P(Z,3)<4P(Z,3)=0 Z: 4@Z=49 :K(Z,1)=SLK(Z,2)=SC2150f >,K(Z,3)<5K(Z,3)=0 HZ: fK(Z,3)=(K(Z,3)*D):K(Z,1),K(Z,2);1;Z:P=110 :.03{u\,-10 :P:K(Z,1),K(Z,2);4;Z: c8:1:Q=12:X1,Y1:X,Y:.01z# =,10 :Q:X1=X1+X:Y1=Y1+Y:0  ,A=(*3):H(1)=L:H(2)=C  N>2 L,C;6;0;"": 9D=QN/11 +.4L-(.1}Lb):x=x(sc):Y=Y(SL) .SL=SL+(TL>SL)-(TLSC)-(TC480 /(SL,SC)=15B2600( :2000: 7(SL,SC)=32 b=02600( :21004: TL=SLTC=SC 2505 (]8:T=12:X,Y:X(SC)-X,Y(SL)-Y:1:.05|L,10 :T:0 2 4N=020:N,20;Z$(13 ):N: X2,10 :21,0;"SUCCESS! YOU ARE IN THE STATION.":4010 `21,0;"You have lost too many fighters.":1,-10 :1,-20 =0,0;" DO YOU WANT ANOTHER GAME ?(Y/N)";a$ a$="y"a$="Y"60< a$="n"a$="N"4030  4010 pM(23730\+256*23731\)-(23653e\+256*23654f\) z7:0                 na&kfxL qs & b d 4yde(   fL 5 5 3141 12P6An# p