10 ' PROGRAM NAME "GL7"
280 CLEAR 1000
290 INPUT "TO MOUNT THE FILES ENTER -Y-";YX$
300 IF YX$<>"Y" THEN 380
310 UNLOAD 1:MOUNT 1
330 ' TABLE CONTAINING THE LEDGER ACCOUNT NUMBER AND THE PROJECTED
340 ' MONTHLY BUDGET AMOUNT FOR THAT ACCOUNT
360 DATA 4100,-27100.00,4101,-200.00,4102,-990.00,4200,-14.00
370 DATA 4201,-1300.00,4203,-500.00,4204,-26.00,4205,-60.00
380 DATA 4300,-100.00,4301,-100.00,4302,-215.00,4303,-12.00
390 DATA 4304,-345.00,4305,-50.00,4306,-25.00,7100,1500.00
400 DATA 7101,1500.00,7102,230.00,7103,230.00,7104,1650.00
410 DATA 7105,400.00,7106,195.00,7107,470.00,7108,90.00
420 DATA 7109,200.00,7110,24.00,7111,27.50,7112,20.00,7113,17.00
430 DATA 7114,.00,7115,.00,7200,790.00,7201,552.00,7202,33.00
440 DATA 7300,105.00,7301,215.00,7302,293.00,7303,5.50,7304,50.00
450 DATA 7400,413.50,7401,.00,7402,26.50,7403,800.00,7404,19.00
460 DATA 7405,167.00,7406,18.00,7407,100.00,7408,9181.10
470 DATA 7409,815.00,7410,27.00,7411,200.00,7412,665.00,7413,.00
480 DATA 7414,.00,7415,.00,7500,10.00,7501,290.00,7502,5.00
490 DATA 7503,500.00,7504,537.05,7600,250.00,7601,100.00
500 DATA 7602,200.00,7603,115.00,7604,25.00,7605,35.00,7606,100.00
510 DATA 7607,10.00,7608,90.00,7609,50.00,7610,25.00,7611,15.00
520 DATA 7612,80.00,7613,146.75,7614,80.00,7615,.00,7700,585.00
530 DATA 7701,570.00,7702,56.00,7703,240.00,7800,210.00
540 DATA 7801,214.50,7900,125.00,7901,325.00,7902,1075.00
550 DATA 7903,5820.92,7904,.00,7416,.00,4206,.00,7417,.00,4207,.009
560 DATA 7616,.00,9999,9999
590 S1$="INCOME & EXPENSE ANALYSIS PER OCCUPIED & AVAILABLE ROOM"
600 S4$="BUDGET       ACTUAL       ACTUAL"
610 S5$="PER OCCUP    PER OCCUP    PER AVAIL"
620 H1$="CONWAY R.I. INC.  CONWAY, ARK.
630 H2$="BUDGETED OPERATING STATEMENT"
640 H3$="PREPARED WITHOUT AUDIT"
650 H4$="FOR PERIOD ENDING "
660 H5$="ACCT                            MONTHLY      MONTHLY      "
670 H6$="MONTHLY      MONTHLY"
680 H7$="NUMB     DESCRIPTION            BUDGET       REPORT     OV"
690 H8$="ER/UNDER       O/U%"
700 H9$="ACCT"
710 N=4
720 EDT$="#,###,###.##-":BLK$=" "
730 HM$="MONTHLY"
740 HY$="Y.T.D."
750 J=4
760 F1#=1898!    
770 G1#=16.5     
780 H1#=80!      
790 PRINT "OPERATING STATEMENT - BUDGET RUN"
800 INPUT "ENTER -M- FOR MONTHLY -Y- FOR Y.T.D.";MY$
810 IF MY$<>"M" AND MY$<>"Y" THEN 350
820 INPUT "ENTER REPORT DATE AS MO-DY-YR";DT$
830 IF MY$="Y" THEN INPUT "ENTER ROOMS RENTED Y.T.D.";RM#:GOTO 850
840 INPUT "ENTER ROOMS RENTED THIS MONTH";RM#
850 F2#=RM#
860 INPUT "ENTER -S- FOR STATISTICAL ANALYSIS";SA$
870 IF MY$="Y" THEN 3590
880 OPEN "I",1,"BUDGET",1
890 GOSUB 3390'            GO PRINT PAGE HEADINGS
900 LPRINT SPC(10) "INCOME":GOSUB 3270
910 LPRINT:GOSUB 3270
920 LPRINT "ROOM-TEL-MEETING ROOM SALES":GOSUB 3270
930 IF MY$="Y" THEN 950
940 GOSUB 2900
950 GOSUB 3140
960 A2#=VAL(DOL$)    
970 A3#=A2#-A1#      
980 IF A1#=0 THEN A4#=0:GOTO 1010 
990 A4#=A3#/A1#
1000 A4#=(A4#*100)
1010 IF DAC$="4100" THEN SG2#=SG2#-A2#
1020 C1$=MID$(DAC$,1,2)    
1030 C2$=MID$(DAC$,1,1)
1040 IF SA$="S" THEN 4470   
1080 LPRINT DAC$;BLK$;DIS$;SPC(1);BLK$ USING EDT$;A1#,A2#,A3#,A4#
1090 GOSUB 3270
1110 B1#=B1#+A1#    
1120 C1#=C1#+A1#   
1130 D1#=D1#+A1#   
1140 B2#=B2#+A2#   
1150 C2#=C2#+A2#   
1160 D2#=D2#+A2#   
1170 B3#=B3#+A3#   
1180 C3#=C3#+A3#   
1190 D3#=D3#+A3#   
1200 IF DAC$="7903" THEN 1250
1210 IF DAC$="7408" THEN 2220
1220 E1#=E1#+A1#     
1230 E2#=E2#+A2#
1240 E3#=E2#-E1#
1250 IF MY$="Y" THEN GOSUB 3830:GOTO 1270
1260 GOSUB 2900     
1270 IF DAC$<"0001" THEN 2270
1280 IF C1$<MID$(DAC$,1,2) THEN 1350
1290 IF C1$>MID$(DAC$,1,2) THEN 1310
1300 GOTO 950
1310 PRINT "SEQ ERROR ";C1$;" ";MID$(DAC$,1,2):STOP
1350 IF C1$="41" THEN 1920
1360 IF C1$="42" THEN 1950
1370 IF C1$="43" THEN 1980
1380 IF C1$="71" THEN 2010
1390 IF C1$="72" THEN 2040
1400 IF C1$="73" THEN 2070
1410 IF C1$="74" THEN 2100
1420 IF C1$="75" THEN 2130
1430 IF C1$="76" THEN 2160
1440 IF C1$="77" THEN 2190
1480 CAT$="TOTAL RESERVATION EXPENSE"
1490 NCAT$="INSURANCE-TAXES-DEPRECIATION"
1500 SP=27-LEN(CAT$)
1510 IF B1#=0 THEN B4=0:GOTO 1540
1520 B4#=B3#/B1#
1530 B4#=(B4#*100)
1540 LPRINT:GOSUB 3270
1550 IF SA$="S" THEN 4540
1560 LPRINT CAT$;SPC(SP) USING EDT$;B1#,B2#,B3#,B4#
1570 GOSUB 3270
1580 B1#=0:B2#=0:B3#=0:B4#=0
1590 LPRINT:GOSUB 3270
1600 LPRINT NCAT$
1610 GOSUB 3270
1620 IF EFSW=1 THEN 2310  
1660 IF C2$<MID$(DAC$,1,1) THEN 1700
1670 IF C2$>MID$(DAC$,1,1) THEN 1310
1680 GOTO 950
1700 CAT$="TOTAL INCOME" 
1710 SP=27-LEN(CAT$)
1720 IF C1#=0 THEN C4=0:GOTO 1750
1730 C4#=C3#/C1#
1740 C4#=(C4#*100)
1750 LPRINT:GOSUB 3270
1760 IF SA$="S" THEN 4610 
1770 LPRINT CAT$;SPC(SP) USING EDT$;C1#,C2#,C3#,C4# 
1780 C1#=0:C2#=0:C3#=0:C4#=0 
1790 GOSUB 3270
1800 IF EFSW=1 THEN 2330
1810 GOSUB 3360
1820 LPRINT:GOSUB 3270   
1830 LPRINT SPC(10) "EXPENSES"   
1840 GOSUB 3270     
1850 LPRINT:GOSUB 3270
1860 LPRINT "COST OF ROOM SALES" 
1870 GOSUB 3270     
1880 GOTO 950       
1920 CAT$="TOT ROOM-TELE-MEETING RM"
1930 NCAT$="MISCELLANEOUS SALES"
1940 GOTO 1500
1950 CAT$="TOTAL MISCELLANEOUS SALES"
1960 NCAT$="SALES-OTHER"
1970 GOTO 1500
1980 CAT$="TOTAL SALES-OTHER"
1990 NCAT$=" "
2000 GOTO 1500
2010 CAT$="TOTAL COST OF ROOM SALES"
2020 NCAT$="COST OF TELEPHONE SERVICE"
2030 GOTO 1500
2040 CAT$="TOT COST OF TELEPHONE SER"
2050 NCAT$="COST OF OTHER SALES"
2060 GOTO 1500
2070 CAT$="TOTAL COST OF OTHER SALES"
2080 NCAT$="GENERAL & ADMINISTRATIVE EXPENSE"
2090 GOTO 1500
2100 CAT$="TOT GENERAL & ADM EXPENSE"
2110 NCAT$="ADVERTISING & PROMOTION"
2120 GOTO 1500
2130 CAT$="TOT ADVERTISING-PROMOTION"
2140 NCAT$="REPAIRS & MAINTENANCE"
2150 GOTO 1500
2160 CAT$="TOTAL REPAIRS & MAINTENANCE"
2170 NCAT$="UTILITIES"
2180 GOTO 1500
2190 CAT$="TOTAL UTILITIES"
2200 NCAT$="RESERVATION EXPENSE"
2210 GOTO 1500
2220 IF MY$="Y" THEN A2#=10711.8*XMO 
2230 IF MY$="Y" THEN A1#=10711.8*XMO:GOTO 2260
2240 A2#=10711.8             
2250 A1#=10711.8
2260 GOTO 1220
2270 EFSW=1                  
2280 CAT$="TOT INS-TAXES-DEPREC"
2290 NCAT$=" "
2300 GOTO 1500
2310 CAT$="TOTAL EXPENSES"
2320 GOTO 1710
2330 LPRINT:GOSUB 3270     
2340 LPRINT:GOSUB 3270
2350 CAT$="NET PROFIT(-) OR LOSS(+)" 
2360 SP=27-LEN(CAT$)
2370 IF D1#=0 THEN D4=0:GOTO 2410
2380 D4#=D3#/D1#
2390 D4#=(D4#*100)
2400 IF SA$="S" THEN 4680
2410 LPRINT CAT$;SPC(SP) USING EDT$;D1#,D2#,D3#,D4#
2420 GOSUB 3270
2430 LPRINT:GOSUB 3270    
2440 LPRINT:GOSUB 3270
2450 CAT$="CASH FLOW"    
2460 SP=27-LEN(CAT$)
2470 IF E1#=0 THEN E4=0:GOTO 2510
2480 E4#=E3#/E1#
2490 E4#=(E4#*100)
2500 IF SA$="S" THEN 4750
2510 LPRINT CAT$;SPC(SP) USING EDT$;E1#,E2#,E3#,E4#
2520 GOSUB 3270
2530 CAT$="NUMBER ROOMS RENTED" 
2540 SP=27-LEN(CAT$)
2550 IF MY$="Y" THEN F1#=F1#*XMO
2560 F3#=F2#-F1#
2570 IF F1#=0 THEN F4=0:GOTO 2600
2580 F4#=F3#/F1#
2590 F4#=(F4#*100)
2600 LPRINT:GOSUB 3270
2610 LPRINT:GOSUB 3270
2620 LPRINT CAT$;SPC(SP) USING EDT$;F1#,F2#,F3#,F4#
2630 GOSUB 3270
2640 LPRINT:GOSUB 3270
2650 LPRINT:GOSUB 3270
2660 CAT$="AVERAGE ROOM RATE"  
2670 SP=27-LEN(CAT$)
2680 G2#=SG2#/RM#
2690 G3#=G2#-G1#
2700 G4#=G3#/G1#
2710 G4#=(G4#*100)
2720 LPRINT CAT$;SPC(SP) USING EDT$;G1#,G2#,G3#,G4#
2730 GOSUB 3270
2740 LPRINT:GOSUB 3270
2750 LPRINT:GOSUB 3270
2760 CAT$="OCCUPANCY RATE" 
2770 SP=27-LEN(CAT$)
2780 IF MY$="Y" THEN H2#=RM#/(2372.5*XMO):GOTO 2800 
2790 H2#=RM#/2372.5
2800 H2#=H2#*100
2810 H3#=H2#-H1#
2820 H4#=H3#/H1#
2830 H4#=(H4#*100)
2840 LPRINT CAT$;SPC(SP) USING EDT$;H1#,H2#,H3#,H4#
2850 IF MY$="Y" THEN CLOSE 2:GOTO 2870 
2860 CLOSE 1                           
2870 PRINT "EOJ"
2880 LOAD "GLMENU",0,R
2920 IF J>4 THEN PRINT "LOOP ERROR":STOP
2930 IF J>3 THEN 2990
2940 DAC$=MID$(A$(J),7,4)
2950 DIS$=MID$(A$(J),11,20)
2960 DOL$=MID$(A$(J),31,11)
2970 J=J+1
2980 RETURN
2990 E=EOF(1)
3000 IF E=-1 AND J=4 THEN 2270
3010 IF E=-1 THEN PRINT "DISK ACESS ERROR":STOP
3020 INPUT #1,BB$
3030 I=1
3040 A$(I)=MID$(BB$,1,42)
3050 I=I+1
3060 A$(I)=MID$(BB$,43,84)
3070 I=I+1
3080 A$(I)=MID$(BB$,85,126)
3090 J=1
3100 GOTO 2900
3140 FOR K=1 TO 500
3150 READ X$,Y#
3160 IF DAC$=X$ THEN 3230
3170 IF X$="9999" THEN 3190
3180 NEXT K
3190 PRINT "NO DATA IN TABLE FOR ";DAC$
3200 Y#=0:GOTO 3230
3210 RESTORE
3220 RETURN
3230 A1#=Y#
3240 IF MY$="Y" THEN A1#=A1#*XMO
3250 GOTO 3210
3300 LCT=LCT+1
3310 IF LCT>57 THEN GOSUB 3360
3320 RETURN
3360 FOR L=LCT TO 66
3370 LPRINT
3380 NEXT L
3390 LPRINT SPC(28) H1$:LPRINT
3400 IF MY$="Y" THEN 3530
3410 LPRINT SPC(34) HM$
3420 IF SA$="S" THEN LPRINT SPC(10)S1$:GOTO 3440
3430 LPRINT SPC(28)H2$
3440 LPRINT SPC(28)H3$
3450 LPRINT SPC(28)H4$;DT$
3460 IF MY$="M" THEN LPRINT:LPRINT:LPRINT:GOTO 3480
3470 LPRINT SPC(28);"MONTH ";XMO;" OF FISCAL YEAR":LPRINT:LPRINT
3480 IF SA$="S" THEN 4310
3490 IF MY$="Y" THEN 3550
3500 LPRINT H5$;H6$:LPRINT H7$;H8$:LPRINT
3510 LCT=13
3520 RETURN
3530 LPRINT SPC(35) HY$
3540 GOTO 3420
3550 LPRINT H9$;SPC(29);HY$;SPC(7);HY$;SPC(7);HY$;SPC(6);HY$
3560 LPRINT H7$;H8$:LPRINT
3570 GOTO 3510
3620 OPEN "R",2,"LEDGER"
3630 GMO$=MID$(DT$,1,2)
3640 GYR$=MID$(DT$,7,2)
3650 GMO=VAL(GMO$)
3660 GYR=VAL(GYR$)
3670 IF GMO=12 THEN GMO=1:GYR=GYR+1:GOTO 4080
3680 GMO=GMO+1:GOTO 4080
3690 GMO$=STR$(GMO):GYR$=STR$(GYR)
3700 IF LEN(GMO$)<3 THEN GD$="0"+MID$(GMO$,2,2)+MID$(GYR$,2,2):GOTO 3720
3710 GD$=MID$(GMO$,2,2)+MID$(GYR$,2,2)
3720 GET #2,2037    
3730 FOR I=1 TO 16
3740 FIELD #2, (I-1)*8 AS D$,8 AS D2$(I)
3750 IF GD$=MID$(D2$(I),1,4) THEN 3780 
3760 NEXT I
3770 PRINT "FILE NOT IN TABLE":STOP
3780 REC$=MID$(D2$(I),5,4)
3790 REC=VAL(REC$)   
3800 GOSUB 3830
3810 GOTO 890
3870 IF N=4 THEN 3930
3880 FOR M=N TO 3
3890 FIELD #2, (M-1)*42 AS DD$,42 AS DREC$(M)
3900 IF MID$(DREC$(M),1,3)="EOF" AND ESW=1 THEN 2270
3910 IF MID$(DREC$(M),1,2)=MID$(GD$,1,2) THEN 3980
3920 NEXT M
3930 REC=REC+1
3940 IF REC=2037 THEN PRINT "DISK AREA OVERFLOW":STOP
3950 GET #2,REC
3960 N=1
3970 GOTO 3870
3980 IF MID$(DREC$(M),5,2)=MID$(GD$,3,2) THEN 4000
3990 GOTO 3920
4000 ESW=1
4010 IF MID$(DREC$(M),42,1)<>"1" OR MID$(DRC$(M),7,1)<"4" THEN 3920
4020 DAC$=MID$(DREC$(M),7,4)
4030 DIS$=MID$(DREC$(M),11,20)
4040 DOL$=MID$(DREC$(M),31,11)
4050 N=M+1
4060 RETURN
4130 IF GMO=7 THEN XMO=1:GOTO 3690'  JUNE
4140 IF GMO=8 THEN XMO=2:GOTO 3690'  JULY
4150 IF GMO=9 THEN XMO=3:GOTO 3690' AUGUST
4160 IF GMO=10 THEN XMO=4:GOTO 3690' SEPTEMBER
4170 IF GMO=11 THEN XMO=5:GOTO 3690'  OCTOBER
4180 IF GMO=12 THEN XMO=6:GOTO 3690'  NOVEMBER
4190 IF GMO=1 THEN XMO=7:GOTO 3690'  DECEMBER
4200 IF GMO=2 THEN XMO=8:GOTO 3690'  JANUARY
4210 IF GMO=3 THEN XMO=9:GOTO 3690'  FEBRUARY
4220 IF GMO=4 THEN XMO=10:GOTO 3690' MARCH
4230 IF GMO=5 THEN XMO=11:GOTO 3690' APRIL
4240 IF GMO=6 THEN XMO=12:GOTO 3690' MAY
4250 PRINT "GMO ERROR":STOP
4310 IFMY$="Y"THENOM#=RM#/(23.725*XMO):AV=1898*XMO:AX=2372.5*XMO:GOTO435
4320 OM#=RM#/23.725
4330 AV=1898
4340 AX=2372.5
4350 S2$="BUDGETED AVERAGE##,###.## ACTUAL       ##,###.##"
4360 S2$=S2$+"   ACTUAL AVERAGE ##,###.##"
4370 S3$="OCCUPIED ROOMS = 80.00%   OCCUPIED ROOMS = ##.##%"
4380 S3$=S3$+"  AVAILABLE ROOMS = 100.00%"
4390 LPRINT USING S2$;AV,RM#,AX
4400 LPRINT USING S3$;OM#
4410 LPRINT:LPRINT
4420 LPRINT "ACCT";SPC(28);S4$
4430 LPRINT "NUMB     DESCRIPTION";SPC(10);S5$
4440 LPRINT
4450 LCT=16
4460 GOTO 3520
4470 IF MY$="Y" THEN S1#=A1#/(1898*XMO):GOTO 4490 
4480 S1#=A1#/1898
4490 S2#=A2#/RM#
4500 IF MY$="Y" THEN S3#=A2#/(2372.5*XMO):GOTO 4520 
4510 S3#=A2#/2371.5
4520 LPRINT DAC$;BLK$;DIS$;SPC(1);BLK$ USING EDT$;S1#,S2#,S3#
4530 GOTO 1090
4540 IF MY$="Y" THEN P1#=B1#/(1898*XMO):GOTO 4560
4550 P1#=B1#/1898
4560 P2#=B2#/RM#
4570 IF MY$="Y" THEN P3#=B2#/(2372.5*XMO):GOTO 4590
4580 P3#=B2#/2372.5
4590 LPRINT CAT$;SPC(SP) USING EDT$;P1#,P2#,P3#
4600 GOTO 1570
4610 IF MY$="Y" THEN Q1#=C1#/(1898*XMO):GOTO 4630
4620 Q1#=C1#/1898
4630 Q2#=C2#/RM#
4640 IF MY$="Y" THEN Q3#=C2#/(2372.5*XMO):GOTO 4660
4650 Q3#=C2#/2372.5
4660 LPRINT CAT$;SPC(SP) USING EDT$;Q1#,Q2#,Q3#
4670 GOTO 1780
4680 IF MY$="Y" THEN R1#=D1#/(1898*XMO):GOTO 4700
4690 R1#=D1#/1898
4700 R2#=D2#/RM#
4710 IF MY$="Y" THEN R3#=D2#/(2372.5*XMO):GOTO 4730
4720 R3#=D2#/2372.5
4730 LPRINT CAT$;SPC(SP) USING EDT$;R1#,R2#,R3#
4740 GOTO 2420
4750 IF MY$="Y" THEN V1#=E1#/(1898*XMO):GOTO 4770
4760 V1#=E1#/1898
4770 V2#=E2#/RM#
4780 IF MY$="Y" THEN V3#=E2#/(2372.5*XMO):GOTO 4800
4790 V3#=E2#/2372.5
4800 LPRINT CAT$;SPC(SP) USING EDT$;V1#,V2#,V3#
4810 GOTO 2850
4820 END