Variable Budget

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Variable Budget

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 

People

No people associated with this content.

Scroll to Top