MODUL

Klasická hra, kde je vaším úkolem přistát s modulem na měsíci. Dána je startovní výška V a rychlost R, zásoba paliva na brzdění P, výkon motoru W a hmotnost lodi H. Pro dosáhnutí bezpečné rychlosti pro přistání (10) je nutné efektivně nakládat s palivem. Tah brzdného motoru můžete regulovat od 0% do 100%. Zadáte-li zápornou hodnotu, příslušný počet cyklů se nebrzdí vůbec.
Je předdefinováno 5 počátečních zadání (očíslovaných 0-4), ze kterých lze vybrat při startu programu.

Zdrojový kód (599 B)


INPUT θ
STATx
H=RANDOM10^4
W=50+50RANDOM
V=RANDOM10^3
R=RANDOM10^2
P=RANDOM10^2.6
IF θ=0 GOTO 1
H=10^4
W=75
V=250
R=50
P=V
IF θ=1 GOTO 1
H=610^3
W=80
V=150
R=15
P=35
IF θ=2 GOTO 1
H=510^3
W=50
V=10^3
R=10^2
P=230
IF θ=3 GOTO 1
H=310^3
W=10^2
V=5
R=15
IF θ=4 GOTO 1
INPUT V
INPUT R
INPUT P
INPUT W
INPUT H
LABEL 1
CLRT
PRINT"VYSKA
PRINT V
DATA 1
IF Σx<0 GOTO 3
IF P<=0 GOTO 3
WAIT
CLRT
PRINT"RYCHLOST
PRINT R
WAIT
CLRT
PRINT"PALIVO
PRINT P
WAIT
LABEL 2
CLRT
PRINT"BRZDIS ..
INPUT B
IF 60<ABS (B-40 GOTO 2
STATx
DATA B
B=.5(ABS B+B
LABEL 3
W=W(10^99)x√(ABS P+P
G=1.62-10(WB/(H+P
P=P-WB/240
V=V-R-G/2
R=R+G
IF V>0 GOTO 1
CLRT
IF R>10 GOTO 4
PRINT"YOU ARE OK!
PRINT R
END
LABEL 4
PRINT"YOU DIED!
PRINT R