ZXTape!DULU ==,? LUNAR LANDER DULU 107 1985 BY RICHARD KRAUS 0  7  49999O ( 0 2 0 <0,0 F "DULU_1" PB17,11 ;7;2;1;1;"LOADING" ZE19,9 ;7;0;0;1;"PLEASE WAIT" d 0 n0,0 x "DULU_2":5e4P 0 0,0 "DULU_3" 0 0,0 "DULU_4" !DULU_1 X)DULU_2 P)͒;;o!@ x  OGyw$   # !Xx  OGyw# x @~ 00  (N%;??3< ``<D舐#@??E|BB|DB>|BB|DBDHpHDB? n O 0 0@@ (` #z k DULU_4 A.&A.SC. LUNAR LANDER DULU 107 1985 BY RICHARD KRAUS  :1:7:0:60024x::gg=9999'  b$=" Richard Kraus 1985 " -2,2;b$:n=0300,:n n=07 a  "a"+n,a n I24,60<,60<,60<,60<,60<,24,24 n=07 p  "p"+n,p n J16,16,16,16,146,84T,568,16 n=07 f:"f"+n,f:n P60<,126~,195,255,126~,219,219,129 ##n=07:f:"b"+n,f:n $G0,0,60<,255,255,60<,0,0 216,23;"" 7#n=07:f:"c"+n,f:n 9I0,102f,169,41),41),41),38&,0 jn=07:f:"e"+n,f:n:219,219,129,0,0,0,0,0 @gn=07:f:"g"+n,f:n:0,0,0,0,0,0,60<,126~ Bzn=07:f:"h"+n,f:n:195,255,126~,219,219,129,0,0:70F D%n=07:a+n,100d:n Ffn=07:f:"i"+n,f:n:0,0,0,170,0,0,0,0 dm=1500:tec=.8L:t=0:land=0:h=100d+*2000:l=1.6L:g=2000:v=(*10 )-5:d$=b$:t=0:s=0:au=0:tank=1030:diff=9000(# nKhue=0:vho=5+*20:sho=0:hho=0:va=0 s4pu=0:py=23:zi=200+*2000 18,1;"V";:4:"end":7:13 ,11 ;"V";14,27;"";13 ,30;"s":n=13 20:n,14;"":n:17,14;"";14,14;"h" 19,25;"Ziel/m";13 ,22;"Znd";16,1;"V";16,7;"Hoehe";16,27;"Tank":4:16,2;"m/s":4:19,1;" ";7 15,1;" " -a$="leider Schrott !":b$=" / \ - | / " Ec$=" optimal ! steht gut alles o.k.riskant so eben ! " 6:99c,72H:0,-65A:21,0:0,65A:-21,0:188,42*,16:0,75K:255,0:7:0,175:0,-175:255,0:0,175:-255,0 <1;(zi+502)/20,76L:0,-2 ҵ6:126~,64@:0,-40(:127,64@:0,-40(:41),0:0,40(:-41),0:169,64@:0,-40( i0:13 ,16;"";19,16;"_____";20,16;"....." <2,2;" ":va0diff 0:4  15,1;" " ="p"1040 ="o"1060$ ="l"1070. ="k"10808 hho0515 hho>5100515 h>2000515 +6:hho/20,75K+h/20 0:4 r=g+m &!v=v+(l-s)*tec:via=v:t=t+tec 0h=h-v 1h<0h=0 5Lhho=hho+vho:hz=(zi-hho):vho=vho+sho*tec:zbr=3353 /(1+hz+h) 7:hzh=(100d+zi-hho):zbrh=3353 /(1+hzh+h) :%h$="00"+h:h$=h$(h$-2̱h$) Ch0583G DHpyh=579*((hz+502)/h)-30:py=579*(hz/h)-30 Gpyh<223500 M 3000 N4:0 Pm=m-r*(s+sho)/1500 Uvia<13 1990 Wh<32 2200 X"v<017,1;"^" ]"v>017,1;"" gm<100dtank l20,25;502+hz;" ";15,27;vho;" ";13 ,27 ;t;17,2;via;" ";17,7;h$;" m";19,7;(h/1000);" km";17,26;m;" " qland=1800  vh=01000 {m<01020  500  s0:1;13 ,1;"-KONTAKT- ":7:0;17,2;"0";19,7;"000" !s=0804$ "hue=hue+1:land=0:13 ,1;" KONTAKT ";15,1;a$:o=10 30:.001wn,2*o:o $land=0490 %w15,1;a$:0:au=68D:19,13 ;" ";20,13 ;"":d$25va=1.5@ 4 3800  7:19,2;via vho>51007 Dvia5a$=c$((10 *via+1)(10 *via+10 )) via<61010 \0:n=19 :.0005vn,30-n:(*5)+15,*30;b$:n  3800  1008 ?h$="000":land=1:v=0:vho=vho/2:620l "m=0:1060$:620l 7:n=13:16,27;" ":.01z# =,10 :0:16,27;"Tank":n:tank=616h:tank  m=0 s=3:7:2:1;13 ,22;"EIN":n=12:.001wn,30:n:0:5:17,23;"":0: $sho=0:s=0:.01z# =,10 :0:7:13 ,22;"Znd";17,23;" ";16,22;" ";16,24;" ": .m=0sho0 /.003xD,40(:7:2:1;13 ,22;"EIN":sho=1:0:5:16,22;"": 8m=0sho0 9.003xD,40(:7:2:1;13 ,22;"EIN":sho=-1:0:5:16,24;"": v<05 via*10 +2000 +13 ,1;"----------":4: /13 ,1;"1...5....":4: /13 ,1;"1...5....":4: /13 ,1;"1...5....":4: /13 ,1;"1...5....":4: /13 ,1;"1...5....":4:  /13 ,1;"1...5....":4: /13 ,1;"1...5....":4:  /13 ,1;"1...5....":4: */13 ,1;"1...5....":4: f-13 ,1;"1...5....":4: 7:0:13 ,13 ;" ";14,13 ;" ";15,13 ;" ";16,13 ;" ";17,13 ;" ";18,13 ;" ";19,13 ;" ";20,13 ;" ":2230+10 *h:0:4:600X ?20,13 ;"":via620,13 ;"": 119,13 ;"";20,13 ;"": 119,13 ;"";20,13 ;"": 19,13 ;"": 118,13 ;"";19,13 ;"": 118,13 ;"";19,13 ;"": 18,13 ;"": 117,13 ;"";18,13 ;"": 117,13 ;"";18,13 ;"": 17,13 ;"": 116,13 ;"";17,13 ;"": $116,13 ;"";17,13 ;"": .16,13 ;"": 8115,13 ;"";16,13 ;"": B115,13 ;"";16,13 ;"": L15,13 ;"": V114,13 ;"";15,13 ;"": `114,13 ;"";15,13 ;"": j14,13 ;"": t113 ,13 ;"";14,13 ;"": ~113 ,13 ;"";14,13 ;"": 13 ,13 ;"": 13 ,13 ;"": 13 ,13 ;"": 13 ,13 ;" ": py<23py=22 pyh>58:pyh=58: pyh<-18pyh=py py>58:590N 6:0 aus=0:14,16;"";15,16;" ";16,16;" ";17 ,16;" ";18,16;" 1" py<233101 zbr>193100 b147-zbrh,pyh:zbrh*2,0:zbr-zbrh,py-pyh:-zbr*2,0:zbr-zbrh,pyh-py  590N zbr=19 &zbrh>193200 +h>17*zbrh31255 0l147-zbrh,pyh:zbrh*2,0:19-zbrh,-h/zbrh:147-zbrh,pyh:zbrh-19,-h/zbrh 4 3130: 5s147-zbrh,pyh:zbrh*2,0:80P/h,-pyh+22:147-zbrh,pyh:-80P/h,-pyh+22 :py<233199 D 128,py:39',0  590N zbrh=19 A128,pyh:40(,0:128,py:40(,0 590N H,128,pyh:40(,0:590N zbr=(zbr+zbrh)/2 %pu=43++40(*hz/(h+1) pu>63?pu=63? h<253000 zbr>20zbr=21 Λ0:6:14,16;" ";15,16;" ";16,16;" ";17 ,16;" ";18,16;" 2" 'zbr>(63?-pu)/23600 pu<233700t q6:147-zbr,pu:2*zbr,0:0,2*zbr:-2*zbr,0:0,-2*zbr  590N 8`6:148-zbr,64@:0,pu-63?:2*zbr,0:0,63?-pu s 590N pu-18590N 7unt=2*zbr-23+pu:unt<0unt=0 Q6:148-zbr,22:0,unt:2*zbr,0:0,-unt  590N va0400 @hue>01,2;"Eine ";hue;"-fach Huepflandung" 4hue=01,2;"Eine Direktlandung" ahz100dhz02,2;"Zielrand um ";(hz+502)-502;" m verfehlt" (hz0hz-25)(hz<-75Khz>-100d)2,2;"ins Ziel, ";(hz+502)-502;" m vom Rand " Mhz-25hz-75K2,2;" in Zielmitte " |3,2;"Fallgeschwindigkeit: ";via;" m/s";4,2;"Horizontalgeschw.: ";vho;" m/s";5,2;a$ 2b$="hart ":via5vho5b$="weich " =5,2;b$;"aufgesetzt ";6,4;" - ";a$  ,,"jetzt: ~s~" 2="s"9980& 3 38902 "pyh<223500 #2a=23659k\:콺h+au & &+0:7:0:60024x: &2,0;"Die Mondfaehre DU-LU-107 soll auf dem 100 x 100 m grossen Lan-deplatz aufsetzen.Beim Landen duerfen die ~Tachos~ fuer Ge- schwindigkeit aufwaerts ";:4:0:"^V":7:0 &`;" und Geschw. vorwaerts ";:0:4:"";:7:0:" max. ~5~ anzeigen" &14,0;"Schub";15,0;"rueckwaerts";14,7;"--K L-- Schub vorwaerts";11 ,9 ;"\";12 ,10 ;"O P-- Schub aufwaerts" &d10 ,18;"Keyboard";1;10 ,18;"________";10 ,0;"Schub aus" &A#0;1,2;7;"PRESS ANY KEY TO CONTINUE!" &=""9960& &60024x &60000` &n=0700:n &60012l &60024x & &40:7:0:0:60024x: &,11 ,5;"ANLEITUNG ERWUENSCHT ?" &="j"Ŧ="J"9900& &="n"Ŧ="N"9970& ' 9982& ' '  " dulu4"9980& '