Source Code
5 REM VARIBLE BUDGET(VARBUD)
6 PRINT "VARIABLE BUDGET"
10 PRINT
20 PRINT "ENTER ALL COSTS AT 100PCT. OF NORMAL CAPACITY"
30 PRINT
40 PRINT "ENTER DIRECT MATERIAL"
45 INPUT A
46 PRINT A
50 PRINT "ENTER DIRECT LABOR"
55 INPUT B
56 PRINT B
60 PRINT "ENTER FRINGE BENEFITS AS A PCT. OF DIRECT LABOR"
70 INPUT C
71 PRINT C
74 IF C<1 THEN GOTO 90
80 LET C=C/100
90 PRINT "ENTER FIXED SUPERVISORY EXPENSE"
95 INPUT D
96 PRINT D
100 PRINT "ENTER VARIABLE SUPERVISORY EXPENSE PER $1 OF DIRECT LABOR"
110 INPUT E
111 PRINT E
120 PRINT "ENTER FIXED MAINTENANCE EXPENSE"
125 INPUT F
126 PRINT F
130 PRINT "ENTER VARIABLE MAINTENANCE EXPENSE PER $1 OF DIRECT LABOR"
140 INPUT G
141 PRINT G
150 PRINT "ENTER DEPRECIATION"
151 INPUT H
152 PRINT H
153 PRINT "ENTER INSURANCE"
154 INPUT I
155 PRINT I
156 PRINT "ENTER PROPERTY TAXES"
157 INPUT J
158 PRINT J
170 LET A1=INT (.7*A)
200 LET A2=INT (.8*A)
210 LET A3=INT (.9*A)
230 LET B1=INT (.7*B)
250 LET B2=INT (.8*B)
270 LET B3=INT (.9*B)
290 LET C1=INT (C*B1)
310 LET C2=INT (C*B2)
330 LET C3=INT (C*B3)
350 LET C4=INT (C*B)
370 LET K1=INT (D+(E*B1))
390 LET K2=INT (D+(E*B2))
410 LET K3=INT (D+(E*B3))
430 LET K4=INT (D+(E*B))
450 LET L1=INT (F+(G*B1))
470 LET L2=INT (F+(G*B2))
490 LET L3=INT (F+(G*B3))
510 LET L4=INT (F+(G*B))
530 LET M1=A1+B1+C1+K1+L1+H+I+J
540 LET M2=A2+B2+C2+K2+L2+H+I+J
550 LET M3=A3+B3+C3+K3+L3+H+I+J
560 LET M4=A+B+C4+K4+L4+H+I+J
570 PRINT
580 PRINT "VARIABLE BUDGET(PCT. OF NORMAL CAPACITY)"
590 PRINT
600 PRINT TAB 10;"70PC"; " 80PC"; " 90PC"; " 100PC"
610 PRINT "DIR.MAT.";TAB (10);A1,A2;A3;A
620 PRINT "DIR.LAB.";TAB (10);B1,B2;B3;B
630 PRINT "PAY FRGS";TAB (10);C1,C2;C3;C4
640 PRINT "SPVSN.";TAB (10);K1,K2;K3;K4
650 PRINT "MAINT.";TAB (10);L1,L2;L3;L4
660 PRINT "DEPR.";TAB (10);H,H;H;H
670 PRINT "INSR.";TAB (10);I,I;I;I
680 PRINT "PRTAXS.";TAB (10);J,J;J;J
690 PRINT TAB (10);"*****"; "*****"; "*****"; "*****"
700 PRINT "TL.BUDGET";TAB (10);M1,M2;M3;M4
710 STOP
720 SAVE "1011%5"
730 LIST
