!*! Updated on 10-Dec-90 at 12:42 PM by Paul Ciosek; edit time: 0:01:09
	SCALE = 4
	SIGNIFICANCE 11
	PRINT TAB(-1,0);"*** LUNAR LANDING SIMULATION - VER 1.0 ***"
	PRINT
	INPUT "DO YOU WANT INSTRUCTIONS (Y/N) ";A$
	IF A$="N" GOTO L1500
	PRINT
	PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"
	PRINT "CONTROL 500 FEET ABOVE A GOOD LANDING SPOT."
	PRINT
	PRINT "HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:"
	PRINT "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING"
	PRINT "    FUEL WILL BE REPORTED."
	PRINT "(2) AFTER THE REPORT, A '?' WILL BE DISPLAYED.  ENTER THE"
	PRINT "    NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE"
	PRINT "    NEXT SECOND.  EACH UNIT OF FUEL WILL SLOW YOUR DESCENT"
	PRINT "    BY 1 FT/SEC.  THE MOON'S GARVITY IS 5 FT/SEC."
	PRINT "(3) THE MAXIMUM THRUST OF YOU ENGINE IS 30 FT/SEC OR"
	PRINT "    30 UNITS 0F FUEL PER SECOND."
	PRINT "(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE"
	PRINT "    WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A"
	PRINT "    REPORT OF YOUR LANDING SPEED AND REMAINING FUEL."
	PRINT "(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR,"
	PRINT "    BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL"
	PRINT "    YOU CONTACT THE LUNAR SURFACE." :
L1500:	PRINT
	INPUT "TYPE 'RETURN' WHEN YOU ARE READY TO BEGIN";A$
	PRINT TAB(-1,0);
	OFS=0
	FC=0
	HSC=10
	FOR I=1 TO 24
	PRINT "I"
	NEXT I
	REM
	REM    INITIALIZE
	REM
	T=0 :
	H=500 : V=50 : F=150
L380:	GOSUB L504
	INPUT "NEXT BURN: ";B
	IF B<0 GOTO L499
	IF B>30 THEN B=30
	IF B>F THEN B=F
L430:	V1=V-B+5
	F=F-B
	H=H-.5*(V+V1)
	IF H<=0 GOTO L550
	T=T+1
	V=V1
	IF F>0 GOTO L380
	IF B=0 THEN GOSUB L504
L499:	B=0
	GOTO L430

	REM
	REM    ANNOTATE SCREEN
	REM
L504:	IF FC<24 THEN FC=FC+1
	PRINT TAB(-1,1);
	IF FC=1 GOTO L511
	FOR I=1 TO FC-1
	PRINT CHR$(10);
	NEXT I
L511:	J=INT(ABS(H/HSC))
	IF J<=0 THEN J=1
	IF J>79 THEN J=79
	IF H>195 THEN GOTO MOVE
	IF HSC=2.5 THEN GOTO MOVE
	IF F=0 THEN GOTO MOVE
	HSC=2.5
	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";

MOVE:	FLAG = 0
	IF H>195 GOTO L525
	IF HSC=2.5 GOTO L525
	IF F=0 GOTO L525
	HSC=2.5
	PRINT "--------------- DISPLAY SCALE ENLARGED ----------------";
	FLAG = -1
	RETURN
L525:	IF F<>0 OR OFS<>0 GOTO L529
	IF J>20 THEN PRINT "*** OUT OF FUEL";
	IF J<20 THEN PRINT TAB(40);"*** OUT OF FUEL";
	OFS=1
L529:	PRINT : PRINT "I";TAB(J);"*";
	PRINT TAB(-1,1);"#########################################################"
	PRINT TAB(-1,1);"SEC=";T;" FEET=";H;" SPEED=";V;" FUEL=";F;
	RETURN

L550: 	PRINT TAB(23,1);
	IF V<=5 THEN PRINT "---------------------  TOUCHDOWN! --------------------  ";
	IF V>5 THEN PRINT "########################## SPLAT! #########################  ";
	END