Back to Main page.
Back to Main tapes page.
10  REM:BY BILL MCFADDEN ON 12-12-77
20  REM:BUDGET, A PROGRAM THAT PRINTS BUDGET FORMS
30  REM:ALL RIGHTS RESERVED
40  DIM A$[15]
50  DATA "    BUDGET","   AVAILABLE"," SAVED & SPENT"," CARRIED OVER"
60  PRINT "TYPE OF FORM ";
70  INPUT B
80  IF B=1 OR B=2 THEN 100
90  STOP 
100  PRINT "NUMBER OF COPIES ";
110  INPUT A
120  PRINT "LINE UP THE PRINTING HEAD WITH THE TOP OF THE NEXT"
130  PRINT "PAGE AND HIT 'RETURN'."'13;
140  LINPUT A$[1,0]
150  PRINT LIN(-4);
160  FOR X=1 TO A
170  RESTORE 
180  GOSUB B OF 250,360
190  FOR Y=1 TO 24+(B=2)
200  GOSUB B OF 280,390
210  NEXT Y
211  IF B=2 THEN 215
212  PRINT  USING 280
213  GOTO 220
215  PRINT  USING 390
220  PRINT LIN(-11-(2*(B=1)));
230  NEXT X
240  GOTO 60
250  PRINT TAB(8)"COMPARISON OF SAVINGS AND EXPENSES WITH BUDGET ALLOWANCES"
260  PRINT LIN(-2)"   DATE   !  EXPLANATION  !SAVINGS ! HOBBY  !RECREATN! GIFTS  ! TOTALS !"
270  RETURN 
280  IMAGE 72("-")
290  PRINT  USING 280
300  IF TYP(0)<3 THEN 320
310  RESTORE 
320  READ A$
330  IMAGE 10X,"!",15A,"!",5(4X,"!",3X,"!")
340  PRINT  USING 330;A$
350  RETURN 
360  PRINT TAB(27)"INCOME AND EXPENSE RECORD"
370  PRINT LIN(-2)" DATE     !     EXPLANATION     !RECEPTS!PAYMNTS!SAVINGS! HOBBY !RECRETN! GIFTS !"
380  RETURN 
390  IMAGE 81("-")
400  PRINT  USING 390
410  IMAGE7X,"!  !",21X,"!",12(3X,"!")
420  PRINT  USING 410
430  RETURN 
440  END