ExpeditionDDFXExpedition by David Link from ZX Computing Feb/Mar.1984 #f=07:a:"L"+f,a:f 00000000,01000010B,10011001,10111101,11111111,10011001,01000010B,00000000 f=07  a:"P"+f,a f (01111110~,00111100<,00011000,01111110~,01111110~,01111110~,01011010Z,00011000 )high=0 *0" EXPEDITION __________ You have been challenged to explore this exciting space mazeand return home ALIVE ! There are 4 sections: 1> Missile tunnel. Keys 5,8 2> Asteroids. Keys 5,8,0 to fire -20 points each shot, +100 per hit." +"3> Winding tunnel. Keys 5,8 Avoid space craft. 4> Landing pad. Keys 5,8,r to retro-boost. Land on the yellow part." -"Any key to start !!!" .=""46. 2a=15:sc=0 F1:1:0: P621,0;" " Zf=1200 _!a9 a17900 d0,a;"" n23692\,255 pa=a+(="8")-(="5") u21,0; x.21,(*7)+10 ;6;"^" -4;" " b=(0,a) !b8b12 900 sc=sc+1 ).005y# =,0:.005y# =,-2 f f=122 0,a;"" a=a+(="8")-(="5") 23692\,255 621,0;" " $" " b=(0,a) !b8b12 900 sc=sc+1 '.01z# =,0:.01z# =,-2 f 0,a;"" )10 ,10 ;1;"Score ";sc "f=15 ,n=10 20 6 .1}L,n @n Jf T 250 V2:2: W0,a;"" Yf=13 ^:.2~L,-2:.3,-2:.5,3.2L hf r1,3.2L w c=20 |f=1200 0,a;"" a=a+(="8")-(="5") "0"480 sc=sc-20 n=121 n,a;6;"|" n ac470 sc=sc+100d Cx=130:21,c;6;0;1;"#":x  c=20 !n=121:n,a;" ":n 23692\,255 21,c;" " T21,0;3;1;"###";21,31;3;1;"#" $" " %21,(*30);4;"" b=(0,a) b16900 c=c+(>.5)-(<.5) +).005y# =,0:.005y# =,-2 -21,c;1;"" 0f :Mf=122:21,0;" ":f ?3:3: D0,a;"" N)10 ,10 ;1;"Score ";sc XR1,9 :1,10.7+333:1,9 :130:2,0 ] tu=13 _%10 ,10 ;" " bf=1172 l0,a;"" va=a+(="8")-(="5") 23692\,255 !tu=tu+(>.5)-(<.5) "tu=tu+(tu<1)-(tu>24) (21,tu;3;0;" " 3>.7333321,(*5)+tu;1;"" 67;1;"" Uf>14921,0;3;0;" " b=(0,a) b24900 sc=sc+1 ).005y# =,0:.005y# =,-2 f 0:0:7: 0,a;"" g=(*30)+1 ?15,0;1;"################################" Pf=1621:f,0;2;"":f 15,g;6;"#"  x=0  150  x,a;"" a=a+(="8")-(="5") a=a+(a<0)-(a>31)  x=x+1  5 ="r"x=x-1  x15800  ).005y# =,0:.005y# =,-2 x,a;" ":740  ag900 *0:7:1: 4x,15;"" > 17,10 ;"SCORE ";sc @sc>highhigh=sc A!18,10 ;"HIGH ";high C125},85U,80P H$f=120:.01z# =,f:f R 920 ;:10 ,0;"You have crashed.Score:";sc;". " .f=0-10 -1:.01z# =,f:f &:"PRESS Y FOR ANOTHER GO,N TO STOP" =""930  0: ="y"45-