0 REM "MOONBASE" BY TIM HARTNELL REVISIONS BY TONY WILLING
5 CLS
10 GOTO 420
20 IF H<50 AND V<20 AND V>-15 AND ABS (Z-M)<5 THEN GOTO 370
30 IF H>1750 THEN GOTO 400
40 RETURN
50 LET A=A/7
60 LET T=T+4+INT (RND*2+1)
70 LET V=V+A**3-12-3*RND
80 LET H=H+V-20+10*RND
90 LET F=F-(ABS (A)+ABS (B/5)*6*RND)
100 GOSUB 20
110 IF H<20 OR F<5 THEN GOTO 350
120 LET U=H/100
130 LET Z=Z+B/2+2-RND*3
160 PRINT AT W,X;" "
170 PRINT AT 16-U,Z+1;"\ .\''\. "
180 LET W=16-U
190 LET X=Z+1
210 PRINT AT 16,0;"\..\;;\!!\. \.'\.'\'.\..% \:'\:.\.:\:'\:'\.'\':\!!\;;\:.\.:\.:"( TO M-1);"\.'\..\,,\..\'."
280 PRINT AT 17,0;"VEL: ";INT V;" ","FUEL: ";INT F;" ","TIME: ";INT T;" ","HEIGHT: ";INT H;" "
290 PRINT "THRUST? ";
300 INPUT A
302 IF A<0 THEN LET A=A*-1
310 PRINT A;" ","DRIFT? ";
320 INPUT B
330 PRINT B
332 FOR K=1 TO 85
333 NEXT K
335 PRINT AT 19,23;" "
340 GOTO 50
350 PRINT "%C%R%A%S%H\ '\ '%S%P%E%E%D ";ABS V," ";
352 FOR K=1 TO 90
353 NEXT K
354 CLS
360 PRINT "%A% %C%R%A%T%E%R% ";INT (ABS V*(RND+1));"% %F%E%E%T% %D%E%E%P% %W%I%L%L% %B%E% % %N%A%M%E%D% %I%N% %Y%O%U%R% %H%O%N%O%R% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
361 PRINT "%T%H%E% %N%E%X%T%-%O%F%-%K%I%N% %W%I%L%L% %B%E% %N%O%T%I%F%I%E%D"
362 PRINT " "
363 GOTO 362
380 PRINT "%S%U%C%C%E%S%S%F%U%L% %L%A%N%D%I%N%G\@@%R%A%T%I%N%G ";100*(30-INT ABS V)+INT V;"\##";
390 GOTO 402
400 PRINT "%Y%O%U% %H%A%V%E% %R%E%A%C%H%E%D% %E%S%C%A%P%E% %V%E%L%O%C%I%T%Y"
402 PRINT " "
410 GOTO 402
420 LET H=1450
430 LET F=827+50*RND
440 LET T=0
450 LET Z=15*RND
460 LET A=1
470 LET B=0
480 LET M=19*RND
490 LET V=0
500 LET W=0
510 LET X=0
700 GOTO 60
710 STOP
720 CLEAR
730 SAVE "1020%1"
740 RUN
