Cody Boone Ferguson
9046857b91
Although one could get away with saying 'aboard' to mean 'getting on a
ship' ('I climbed aboard the ...') it's probably better to say 'board'
as the verbal form especially in the way it was and is worded (now 'You
board ...'). I believe I already did this change in 1990/dds/LANDER.BAS.
75 lines
1.7 KiB
QBasic
75 lines
1.7 KiB
QBasic
10 REM Lunar Lander
|
|
20 REM By Diomidis Spinellis
|
|
25 REM Compiler version
|
|
30 PRINT "You board the Lunar Lander about to leave the spacecraft."
|
|
60 GOSUB 4000
|
|
70 GOSUB 1000
|
|
80 GOSUB 2000
|
|
90 GOSUB 3000
|
|
100 LET H = H - V
|
|
110 LET V = ((V + G) * 10 - U * 2) / 10
|
|
120 LET F = F - U
|
|
130 IF H > 0 THEN 80
|
|
135 LET H = 0
|
|
140 GOSUB 2000
|
|
150 IF V > 5 THEN 200
|
|
160 PRINT "Congratulations! This was a very good landing."
|
|
170 GOSUB 5000
|
|
180 GOTO 10
|
|
200 PRINT "You have crashed."
|
|
210 GOTO 170
|
|
1000 REM Initialise
|
|
1010 LET V = 70
|
|
1020 LET F = 500
|
|
1030 LET H = 1000
|
|
1040 LET G = 2
|
|
1050 RETURN
|
|
2000 REM Print values
|
|
2010 PRINT " Meter readings"
|
|
2015 PRINT " --------------"
|
|
2020 PRINT "Fuel (gal):"
|
|
2030 PRINT F
|
|
2040 GOSUB 2100 + 100 * (H != 0)
|
|
2050 PRINT V
|
|
2060 PRINT "Height (m):"
|
|
2070 PRINT H
|
|
2080 RETURN
|
|
2100 PRINT "Landing velocity (m/sec):"
|
|
2110 RETURN
|
|
2200 PRINT "Velocity (m/sec):"
|
|
2210 RETURN
|
|
3000 REM User input
|
|
3005 IF F == 0 THEN 3070
|
|
3010 PRINT "How much fuel will you use?"
|
|
3020 INPUT U
|
|
3025 IF U < 0 THEN 3090
|
|
3030 IF U <= F THEN 3060
|
|
3040 PRINT "Sorry, you have not got that much fuel!"
|
|
3045 PRINT F
|
|
3050 GOTO 3010
|
|
3060 RETURN
|
|
3070 LET U = 0
|
|
3080 RETURN
|
|
3090 PRINT "No cheating please! Fuel must be >= 0."
|
|
3100 GOTO 3010
|
|
4000 REM Detachment
|
|
4005 PRINT "Ready for detachment"
|
|
4007 PRINT "-- COUNTDOWN --"
|
|
4010 FOR I = 1 TO 11
|
|
4020 PRINT 11 - I
|
|
4025 GOSUB 4500
|
|
4030 NEXT I
|
|
4035 PRINT "You have left the spacecraft."
|
|
4037 PRINT "Try to land with velocity less than 5 m/sec."
|
|
4040 RETURN
|
|
4500 REM Delay
|
|
4510 FOR J = 1 TO 500
|
|
4520 NEXT J
|
|
4530 RETURN
|
|
5000 PRINT "Do you want to play again? (0 = no, 1 = yes)"
|
|
5010 INPUT Y
|
|
5020 IF Y == 0 THEN 5040
|
|
5030 RETURN
|
|
5040 PRINT "Have a nice day."
|
|
5050 END
|