0 ' ROCKT2.BA - BY PHIL WHEELER
1 ' CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:PRINT:PRINT:PRINT"    ROCKT2":PRINT"    SINGLE STAGE ROCKET PERFORMANCE":GOSUB 7:G=32.174
3 CLS:PRINT:PRINT"SELECT OUTPUT DEVICE":PRINT:PRINT"1) OUTPUT TO: PRINTER":PRINT"2)          : SCREEN":PRINT"3)          : 'RESULT.DO'":PRINT:INPUT"Option";P:CLS: ONPGOTO4,5,6,3
4 OPEN"lpt:"FOROUTPUTAS1:GOTO8
5 OPEN"lcd:"FOROUTPUTAS1:GOTO9
6 OPEN"result"FOROUTPUTAS1:GOTO8
7 FORI=1TO1000:NEXT:RETURN
8 PRINT#1,:PRINT#1,:PRINT#1,"  ROCKT2    "DATE$"  at  "TIME$"  Single Stage Rocket Performance"
9 CLS:PRINT"   MAIN MENU":PRINT" 1) Calculate Delta V Capability (V)":PRINT" 2) Calculate Initial Weight (W0)":PRINT" 3) Calculate Final Weight (Wf)":PRINT" 4) Quit":INPUT" Enter Choice (1,2,3,4-ENTER)";B:ONBGOTO11,20,29,10
10 CLS:CLOSE:MENU
11 CLS:INPUT"  INPUT Isp (Sec)";ISP:CLS:INPUT"  INPUT Initial Weight (Lb)";W0:CLS:INPUT"  INPUT Final Weight (LB)";WF
12 Y=W0/WF:V=G*ISP*LOG(Y):WP=W0-WF:IF P=2 THEN 15
13 PRINT#1,:PRINT#1,"  ROCKT2- Calculation of Delta V Capability":PRINT#1,:PRINT#1,USING"\    \####.#\      \  \                    \#######,.#";"Isp",ISP," (Sec)","  Propellant Wt (Lb) ",WP
14 PRINT#1,USING"\                     \########,.#\                   \########,.#";"Initial Weight (Lb)",W0," Final Weight (Lb) ",WF:PRINT #1,USING"\                 \ ########,.#";"Delta V (Ft/Sec)",V
15 CLS:PRINT USING"\                  \ ########,.#";" Delta V (Ft/Sec)=",V:PRINT" 1) CHANGE Isp":PRINT" 2) CHANGE Initial Weight":PRINT" 3) CHANGE Final Weight":PRINT" 4) Go To Main Menu":PRINT" 5) Quit":INPUT " Input Choice (1-5, ENTER)";C#
16 ONC#GOTO 17,18,19,9,10
17 CLS:PRINT USING"\             \ ####.# \     \";"Current Isp=",ISP,"(Sec)":INPUT"  INPUT NEW Isp (Sec)"; ISP: GOTO 12
18 CLS:PRINT USING"\                \ #######,.# \    \";"Initial Weight=",W0,"(Lb)":INPUT" INPUT NEW INITIAL WEIGHT (W0,Lb)";W0:GOTO12
19 CLS:PRINT USING"\              \ #######,.# \    \";"Final Weight=",WF,"(Lb)":INPUT" INPUT NEW FINAL WEIGHT (Wf,Lb)";WF:GOTO12
20 CLS:INPUT"  INPUT Isp (Sec)";ISP:CLS:INPUT"  INPUT Final Weight (Lb)";WF:CLS:INPUT"  INPUT Delta V (Ft/Sec)";V
21 Y=V/(G*ISP):Z=EXP(Y):W0=WF*Z:WP=W0-WF:IF P=2 THEN 33
22 PRINT #1,:PRINT#1,"ROCKT2- Calculation of Initial Weight":PRINT #1,:PRINT#1,USING"\    \####.#\      \  \                    \#######,.#";"Isp",ISP," (Sec)","  Propellant Wt (Lb) ",WP
23 PRINT #1,USING"\                \#######,.#\                    \#######,.#";"Delta V (Ft/Sec)",V,"  Final Weight (Lb)",WF:PRINT #1,USING"\                   \#######,.#";"Initial Weight (Lb)",W0
24 CLS:PRINT USING"\                   \#######,.#";"Initial Weight (Lb)",W0:PRINT" 1) CHANGE Isp":PRINT" 2) CHANGE Final Weight":PRINT" 3) CHANGE Delta V":PRINT" 4) Go to Main Menu":PRINT" 5) Quit":INPUT " Input Choice (1-5, ENTER)";C#
25 ON C# GOTO 26,27,28,9,10
26 CLS:PRINT USING"\            \####.#\     \";"Current Isp=",ISP," (Sec)":INPUT" INPUT NEW Isp (Sec)";ISP:GOTO21
27 CLS:PRINT USING"\                  \#######,.#";"Final Weight (Lb)=",WF:INPUT" INPUT NEW Final Weight (Lb)";WF: GOTO 21
28 CLS:PRINT USING"\                \#######,.#";"Delta V (Ft/Sec)=",V:INPUT" INPUT NEW Delta V (Ft/Sec)";V: GOTO 21
29 CLS:INPUT "INPUT Isp (Sec)";ISP:CLS:INPUT"INPUT Initial Weight (Lb)";W0:CLS:INPUT"INPUT Delta V (Ft/Sec)";V
30 Y=V/(G*ISP):Z=EXP(Y):WF=W0/Z:WP=W0-WF:IF P=2 THEN 33
31 PRINT #1,:PRINT #1," ROCKT2- Calculation of Final weight":PRINT #1,:PRINT #1, USING"\    \####.#\      \  \                    \#######,.#";"Isp",ISP," (Sec)","  Propellant Wt (Lb) ",WP
32 PRINT #1,USING"\                   \#######,.#\                    \#######,.#";"Initial Weight (Lb)",W0,"  Delta V (Ft/Sec)",V:PRINT #1,USING"\                   \#######,.#";"Final Weight (Lb)=",WF
33 CLS:PRINT USING"\                   \#######,.#";"Final Weight (Lb)=",WF:PRINT" 1) CHANGE Isp":PRINT" 2) CHANGE Initial Weight":PRINT" 3) CHANGE Delta V":PRINT" 4) Go to Main Menu":PRINT" 5) Quit":INPUT " Input Choice (1-5, ENTER)";C#
34 ON C# GOTO 35,36,37,9,10
35 CLS:PRINT USING"\            \####.#\     \";"Current Isp=",ISP," (Sec)":INPUT" INPUT NEW Isp (Sec)";ISP:GOTO 30
36 CLS:PRINT USING"\                  \#######,.#";"Initial Weight (Lb)=",W0:INPUT" INPUT NEW Initial Weight (Lb)";W0: GOTO 30
37 CLS:PRINT USING"\                \#######,.#";"Delta V (Ft/Sec)=",V:INPUT" INPUT NEW Delta V (Ft/Sec)";V: GOTO 30