bergwacht KM vw=0:q=0:v=0:p1=107k:p2=132:g=0:h=0:r=/2:u=0:t=0 Ym(a$|)=3002 *(a$="")+1502*(a$="")+502*(a$="")+20*(a$="") 9000(# Mz(yk)=(23-y/8-.01z# =):s(x)=(x/8+1) /p(zs)=2z,s=225s)=22528X+32 *z+s 0:0:7: p$(15,32 ) ! 9200# "n=115:p$(n):n ( 4000 *@#0;1,0;"Ziel:";p$(j,i);" ";zn;" N,";zw;" W" -:n=115:2;0;6;p$(n);:n .%0,524:255,0 0L0,568:0,119w:255,0:0,-119w 25,5:45-,0:5,16:45-,0:4,5:0,10 :502,5:0,10 <20,1;u A16,22;"km/h" F"1;19,1;"U/m" P75K,12 ,11 Z18,9 ;"N" d,75K,12 :10 *r,10 *r n]100d,5:45-,0:0,11 :-45-,0:0,-11 x20,13 ;h }%1;19,13 ;"Hoehe" /16,0;"Zeit:";17,0;t 188,20,20 19,22;g 16,27;"Pos." .17,27;"W";18,27;p2 .20,27;"N";21,27;p1 0;1;p2,p1 i$= t=t+1 !0.01z# =,u/5e4P*60< 3i$>"2"i$<"9"500+(i$-502)*100d "i$=4q=1750 "i$=5w=1730 , 1500  200 X#u=u+502:20,1;u [q=0:w=0 bu<5e4P209 l217,0;1;"Ueberdreht";0 vn=1300,:n  u=u-502 q=0:w=0 u<0u=0 /20,1;" ";20,1;u  209 bw=1:u=u-(100du100d):20,1;" ";20,1;u:211 Jq=1:u=u+(100du<99800B):20,1;u:211  375K,12 :1;9 *r,9 *r *r=r+/8 4*75K,12 :9 *r,9 *r > 209 g=g-10 g<0g=0 :19,22;" ";19,22;g:209 g=g+10 g>500g=500 !19,22;g:209 L375K,12 :1;9 *r,9 *r Vr=r-/8 `*75K,12 :9 *r,9 *r j 209 Cv=((9.81/2*u/1000-10 )*10 )/10 h=h+(vh<20*v) h>20*vh=20*v h<0h=0 220,13 ;" ";20,13 ;h x=p2:y=p1 0;1;p2,p1 t6;2;z((p1+.5))-1,s((p2+.5))-1;p$(z((p1+.5)),s((p2+.5))) p1=p1+(g/60<*r) p2=p2+(g/60<*r) >p2<0p2>255p1<568p1>1752000 Ga$=p$(z(p1),s(p2)):h0h=03000  0;1;p2,p1  &p2=zwƺp1=znƺh=m(a$)4500 c18,27;" ";18,27;p2;21,27;" ";21,27;p1 17,0;t  200 o:1'" Sie haben Ihren Luftraum verlassen. Dafuer verlieren Sie Ihren Job als Pilot. " H2;6;1;1;z(p1)-1,s(p2)-1;"" 9204# !"Kennen Sie die Spielregeln ? "  ="n"Ŧ="N"4050 ="j"Ŧ="J"4100  4010 _0.01z# =,30:" S P I E L R E G E L N"''"Sie bekommen einen Auftrag, den Sie mit Ihrem Hubschrauber aus- fuehren muessen."''"Lenkung des Hubschraubers:"''"3 - Drehzahlerhoehung"'"3 + Caps - Dauerfunktion von 3"'"4 - Drehzahlsenkung"'"4 + Caps - Dauerfunktion von 4"'"5 - Linksdrehung"'"6 - Abbremsen"'"7 - Beschleunigen"'"8 - Rechtsdrehung" b'"Die Dauerfunktionen sind doppeltso schnell und koennen mit 3 oder 4 abgeschaltet werden." U#0;1,0;"Druecken sie eine Taste":0:23692\,255 E.01z# =,30:''"Um bestimmte Hindernisse zu ueberfliegen, brauchen Sie eine bestimmte Mindesthoehe.(Sie er- reichen diese durch eine Dreh- zahl, die groesser ist als 2000)"''"Diese Hoehen sind:"''"3000 m fuer den grossen Berg() 1500 m fuer den kleinen Berg() 50 m fuer den Baum()"'" 20 m fuer das Haus()" ''"Fliegen Sie nicht tiefer als dasZiel hoch ist! Sind Sie gelandetgehen Sie auf keinen Fall tie- fer! Landen Sie nicht mit Dauer-funktion, sie ist zu schnell da-fuer!" U#0;1,0;"Druecken sie eine Taste":0:23692\,255 <:.01z# =,30:" A U F T R A G "  a$="" 2i=(*32 +1):j=(*15+1) p$(j,i)=""a$="Sie sollen einen verunglueckten Skifahrer von einem 3000er holenSie muessen auf 3000m Hoehe gehen, um zu landen." p$(j,i)=""a$="Sie sollen einen verunglueckten Skifahrer von einem 1500er holenSie muessen auf 1500m Hoehe gehen, um zu landen." "p$(j,i)=""a$="Sie sollen auf einem Haus landenum von dort einen Verletzten zumKrankenhaus zu transportieren. Landen Sie in 20m Hoehe." ,a$=""4110 6a$'"Ihr Ziel liegt bei"':zn=(22-j)*8+3:zw=i*8-5:zn;" Nord, ";zw;" West."'"Bingen Sie den Verletzten zum Krankenhaus(""#"",60N, 25W)" @T#0;1,0;"Druecken Sie eine Taste":0:.01z# =,30: h H#0;1,0;"Ziel:# 60N,25W ":zn=60<:zw=25 .05|L,17  a$"#" a:"Auftrag erfuelt."'"Sie haben ";(t/60<);":";t-(t/60<)*60<;" min gebraucht ." #'0:9300T$ #(H9100#:i=15:b$:j=07:c:b$+j,c:j:i #F #1"",60<,254,254,124|,16,16,568,0,"",0,0,12 ,546,69E,123{,123{,123{,"",8,24,568,568,84T,82R,73I,132,"",0,0,0,8,28,42*,69E,133 #e"",*255,*255,*255,*255,*255,*255,*255,*255 #" "," "," "," " #" "," "," "," " #" "," "," "," " #j" "," "," # " #""9204# #^#0;0,0;"Sie sind gegen ein Hinderniss geflogen und daran zerschellt!" $T?a=010 :.01z# =,*10 -15:a:0 $^':10 ,8;"Nochmal (j/n) :" $h=""9310^$ $r="j"10 :0: wqvkghrIڢut (#(#c_PB # -xykA I