LOADS & BALANCING CALCULATIONS FOR FLIGHT ENVELOPE

5150 KG=.88*UG/(5.3+UG)

5160 N=1!+NG*KG*UDE*V*C1*57.3/(498!*W/S)

5170 RETURN

5990 REM --------------------------------------------------------------

5992 REM          READ OLD FILE 
5994 REM --------------------------------------------------------------

6000 PRINT "SUBROUTINE TO READ OLD INPUT FILE"

6001 INPUT "WHAT IS NAME OF FILE YOU WANT TO READ? ";FLTINPU$

6002 INPUT "WHAT DISK IS IT ON (A:, B: OR C:)? ";DSK$

6003 FLTINPU$=DSK$+FLTINPU$

6009 OPEN "I",1,FLTINPU$

6010 INPUT #1,MAC,XT,XW,ZW,S,CAT$ 
6020 INPUT #1,VA,VC,VD,VF,VPF,MC,MD,MW

6030 INPUT #1,NP

6031 INPUT #1,LEVEL

6032 FOR L%=1 TO LEVEL

6034 INPUT #1,ALT(L%)

6036 NEXT L%

6050 INPUT #1,MN

6055 INPUT #1,ICONFIG

6060 FOR 1=1 TO ICONFIG

6070 INPUT #1,STALLCL(I),NE(I)

6080 INPUT #1,CO(I),C1(I),C2(I),C3(I),C4(I)

6090 INPUT H,DO(I),D1(I),D2(I),D3(I),D4(I)

6100 INPUT #1,MO(I),M1(I),M2(I),M3(I),M4(I)

6200 FOR K%=1 TO 4

6210 INPUT #1,CG$(I,K%),WT(I,K%),XCG(I,K%),ZCG(I,K%)

6220 NEXT K%

6230 NEXT I

6240 CLOSE 1

6242 CNF$(1)="CRUISE"

6244 CNF$(3)="ENROUTE"

6246 CNF$(2)="LANDING"

6250 RETURN

6910 REM -------------------------------------------------------------

6920 REM          SAVE INPUT ON DISK 
6930 REM -------------------------------------------------------------

7000 PRINT "SUBROUTINE TO SAVE INPUT ON DISK"

7001 INPUT "WHAT NAME ARE YOU GIVING THIS FILE? ";FLTINPU$

7002 INPUT "WHAT DISK DRIVE WILL IT BE SAVED ON (A: B: OR C:) ? ";DSK$

7003 FLTINPU$=DSK$+FLTINPU$

7004 PRINT "YOU WANT TO SAVE TO ";FLTINPU$

7005 INPUT "IS THIS CORRECT? ";QF$:QF$=LEFT$(QF$,1)

7006 IF OF$o"Y" THEN 7001

7007 INPUT "IS WRITE PROTECT TAB REMOVED AND DISK DRIVE READY ";DRV$:

DRV$=LEFT$(DRV$,1)

7008 IF DRV$o"Y" THEN 7007

7009 OPEN "O",1,FLTINPU$

7010 PRINT #1,MAC;XT;XW;ZW;S;CHR$(34);CAT$;CHR$(34) 
7020 PRINT #1,VA;VC;VD;VF;VPF;MC;MD;MW 
7030 PRINT #1,NP 
7032 PRINT #1,LEVEL 
7035 FOR L%=1 TO LEVEL 
7037 PRINT #1, ALT(L%)

175