Radio Shack TRS-80 Voxbox - Page 18

Running
the
Application Programs
Lunar
Program
(Continued)
410 L=0
420
PRINT
3128? "SEC" ?
"MI+FT" ? "MPH" ? "LB FUEL"
425 PRINT
3384?
"BURN RATE"
430
A=120:V=l:M=33000:N=
16500:6=0.00
1:2=1.8
440
PR
I NT 3256 ? L ? I NT <
A ) ? I NT (
5280*
( A~ I NT < A ) ) ) * 3600*V ? M-N
?
445 P1=447:K=0
450 REM
RECOGNIZE
460 SET<0?0)
470 POKE 16526i
3
480
POKE
16527? Rl
490 X=USR<0>
500 X=PEEK(B1)
510 IF
X>19
THEN 1000
520
RESET (0»0)
530 T=10
540 X=(X-INT(X/10)*10)
545 W$=CHR$<X+ASC<"0"
>
>
550 P1=P1+1
555 K=10*K+X
560 PRINT 3P1?W$?
565 GOTO 450
568 PRINT
3448?"
";:P1=447
570 IF M-N<0.001 THEN
650
580 IF T<.001 THEN
440
590
S=TSIF M>=N+S*K
THEN 610
600
S=(M-N)/K
610 GOSUB
840
: IF I<=0
THEN 760
620 IF W=0
THEN 640
630 IF J<0 THEN 790
640 GOSUB
750:
GOTO 570
650 PRINT3704?
"FUEL OUT
AT
"
?L?
"SECONDS"
660
S=<--V+SQR<V*V+2*A*G>
)/G
670
V=V+G*S:L=L+S
680 W=3600*V
690 PRINTS
768.
"ON MOON
AT "5L5" SECONDS—
IMPACT
VELOCITY ";W;" MPH"
700 IF W<=1.2 THEN
PRINT3832
"PERFECT LANDING i !
i
"
sGOTO 390
710
IF
WO-10
THEN
PRINT3832
"CRAFT
DAMAGED.
YOU'RE STRANDED" : GOTO 390
720 PRINT3832? "SORRY
THERE WERE NO SURVIVORS?
YOU BLEW IT"
730
PRINT3896?"IN FACT?
YOU
BLASTED A NEW
CRATER ";W*.2275"
FEET
DEEP"
735 FOR
1=0
TO
2000 5 NEXT
I
740 GOTO 390
16