Moon Base

Gallery

Source Code

   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