to AIRLINER ;¤ TD '89
label "x load "AIRSUB A1 GAME BM type [ONCE MORE? (y / n)] if rc = "y [go "x] erall fs
end
to CN
make "ST item :nr :NAMES make "NS item 1 :ST make "KS item 2 :ST make "SC se 73 :nr + 3
end
to NR
make "nr :nr + 1
end
to CR
st pu make "Q ascii rc make "FL :FL - 3
if :Q = 240 [fd 20]
if :Q = 242 [bk 20]
if :Q = 254 [lt 10]
if :Q = 250 [rt 10]
if :Q = 243 [make "FL :FL - 30 make "X item 1 tf make "Y item 2 tf if :X < 0 [make "X :X * -1] if :Y < 0 [make "Y :Y * -1] ht stop]
if :Q = 253 [BM type [You want to STOP?? (y / n)] if rc = "y [make "Q 1 BM stop] BM] CR
end
to POINT
pu make "FL :FL + 55 setpos :KS seth 0 pe fd 6 lt 135 fd 8 rt 135 fd 4 rt 40 fd 8 lt 30 fd 10 rt 150 fd 10 lt 30 fd 8 rt 40 fd 4 rt 135 fd 8 lt 135 fd 6 seth 270 fd 5 ht make "PX :PX + 1 FL rv setcursor :SC type [*]
end
to BM
setcursor [3 26] repeat 45 [type char 32] setcursor [3 26]
end
to FL
rvo setcursor [3 2] (type [POINTS:] :PX) setcursor [47 2] (type [FUEL:] char 32 :FL char 32 [GALLONS])
end
to GAME
make "nr 1
label "a
if :FL < 100 [CRASH stop] CN make "x item 1 :KS make "y item 2 :KS
if :x < 0 [make "x :x * -1]
if :y < 0 [make "y :y * -1] setcursor :SC (type [ü] :NS)
setcursor [69 2] CR
if :Q = 1 [stop] make "XX :X - :x
if :XX < 0 [make "XX :XX * -1] make "YY :Y - :y
if :YY < 0 [make "YY :YY * -1]
if and (:XX - 35 < 0) (:YY - 35 < 0) [POINT go "b] setcursor :SC label "b type :NS rvo repeat 2 [type char 32] NR if :nr = 23 [stop] FL go "a
end
to rv
type word char 27 "p
end
to rvo
type word char 27 "q
end
to CRASH
repeat 4 [type (word char 27 "b0 word char 27 "c1) type char 7 type (word char 27 "b0 word char 27 "c0)] BM type [SORRY, YOUR FUEL IS BELOW "SAFETY - LEVEL!! YOU LOST!!!!] repeat 500 []
end
rt 135 fd 8 lt 135 fd 6