OLDREN J DL "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