Sharp Moon Lander
A short program found on a listing that came with my Sharp PC-1350. I'm was busy adding this bit by bit until I came to the line GOSUB 300 and realised the listing didn't go that far! Never mind.
10:CLS
20:S=-50:A=0:D$="":V=30
30:CURSOR 0,2: BEEP3
40:DATA "TIME=",5
50:DATA "FUEL=",200
60:DATA "HEIGHT"=",500
70:RESTORE : READ B$,W,B$,F,B$,H
80:WAIT W
90:FOR P=1 to 2:
GCURSOR (135,P*7):
GPRINT "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF": NEXT
100:GCURSOR (0,2):
PRINT "HEIGHT SPEED LEFT BURNT"
110:GOSUB 300
