Radio Shack TRS-80 Voxbox - Page 19

Running the
Application Programs
Lunar
Program
(Continued)
750
L=L+S : T=T-S
:
M=M-S*K : A=
I
: V=
J
: RETURN
760 IF
5<.005
THEN
680
770
D=V+SOR
<
V*V+2*A*
<
G-Z*K/M )
)
: S=2*A/D
780
GOSUB
840s
GOSUB
750= GOTO 760
790 W= <
1
-M*G/ ( Z*K ) ) /2
792 S=M*V/ < Z*K* <
W+SOR <
W*W+V/ Z >
)
)
+0
. 05
794
GOSUB 840
800
IF I<=0 THEN
760
810
GOSUB
750! IF J>0 THEN
570
820
IF. V>0
THEN 790
830
GOTO 570
840
Q=S*K/M
842
J~V+G*S+Z*
(
-Q*
< 1
+0*
( 1
/2+0*
( 1
/3+0*
( 1
/4+0/5
) )
) )
)
844
Ti=Q*(
1/2-1-0*
<
1/6+0*
<
l/12+0#<
1/20+0/30) ) ) )
850
I=A-G*S*S/2-V*S+Z*S*Tl
855
RETURN
1000
RESET <0»0)
1010 IF
X-20 OR X=21
THEN.
568: REM ENTER
102B IF X>23
THEN
450s
REM
TRY AGAIN
1030 REM BACKSPACE
1040 PRINT QP1»
" "
5
1050 P1=P1-1
1060 IF PK448
THEN PI
==447
1070 K=INT(K/10)
1080 GOTO 450
2000
FOR
1=0
TO 1
2005 PRINT
31 92
»
" F IRE
2010
POKE Bl»20+I
2020 POKE
16526*0
2030 POKE 16527? R
1
2040
X=USR(0)
2050 IF PEEK(B1)<>0
THEN
2000
2060 P R I NT
5) 1 92 »
"
BACKS
PA CE
"
2070
POKE
Bl»22+I
2080
POKE
16526*0
2090
POKE 16527? Rl
2100
X=USR<0>
2110 IF PEEK(B1)<>0
THEN 2060
2115 NEXT I
2120
PRINT 3
192*
"
2130
GOTO 380
17