Listing of file='MENU.BAS;01' on disk='vmedia/home_budget_3-sector.ccvf'
100 REM ****************** MENU 3 *************************** 110 REM 120 REM HOME BUDGET PROGRAM 130 REM 140 REM COPYRIGHT APRIL 1983 BY J.R.FARQUHAR 150 REM 26 SANFORD PLACE 160 REM KALEEN ACT 2617 170 REM AUSTRALIA 180 REM 190 REM PHONE: 062-412870 200 REM 202 PLOT 27,11:POKE 32940,254:POKE 32941,255:CLEAR 50:GOSUB 2000:GOTO 520 210 REM ************** INKEY (SINGLE KEY INPUT) ************* 220 REM 230 POKE 33278,0 240 Y= PEEK (33278) 250 IF Y= 0GOTO 240 260 Y$= CHR$ (Y):PRINT :RETURN 270 REM 500 REM **************** MAIN PROGRAM *********************** 510 REM 520 PLOT 12,15,6,2:PRINT TAB( 24)"HOME BUDGET MENU":PRINT TAB( 24)"----------------":PRINT :PRINT :PRINT :PRINT 522 PRINT " 1. CALCULATE ASSETS AND LIABILITES" 524 PRINT " 2. INCOME REPORTS" 526 PRINT " 3. EXPENDITURE REPORTS" 528 PRINT " 4. COMBINED REPORTS" 529 PRINT " 5. PRINT A BUDGET" 540 PRINT :PRINT " [ ADD ACCOUNTS MENU 1" 550 PRINT " 6. [ RECORD INCOMES, DEPOSITS, AND PAYS MENU 1" 560 PRINT " [ RECORD EXPENDITURES AND LOAN COMPLETIONS MENU 1" 570 PRINT :PRINT " [ CREATE THE DATA FILES MENU 2" 580 PRINT " [ UPDATE ASSETS MENU 2" 590 PRINT " 7. [ BANK RECONCILIATION MENU 2" 600 PRINT " [ CALCULATE FUTURE VALUES MENU 2" 610 PRINT " [ EDIT THE DATA FILES MENU 2" 660 PRINT :PRINT :PRINT "ENTER DESIRED SELECTION....";:GOSUB 230:CH= VAL (Y$):IF CH< 1OR CH> 7THEN 520 670 ON CHGOTO 1000,1010,1020,1030,1040,1060,1070 680 GOTO 520 1000 LOAD "ASLIAB":RUN 1010 LOAD "INCREP":RUN 1020 LOAD "EXPREP":RUN 1030 LOAD "COMREP":RUN 1040 LOAD "BUDGET":RUN 1060 PLOT 12,3,5,12:INPUT "LOAD BUDGET DISK 1 AND HIT <RETURN> ";A:LOAD "MENU":RUN 1070 PLOT 12,3,5,12:INPUT "LOAD BUDGET DISK 2 AND HIT <RETURN> ";A:LOAD "MENU":RUN 2000 DD= PEEK (65535):IF DD= 1OR DD= 2THEN DSK$= MID$ (STR$ (DD- 1),2)+ ":":RETURN 2001 PLOT 12,3,20,5:PRINT " SYSTEM PARAMETERS " 2002 PLOT 3,10,10:PRINT "1. SINGLE DISK DRIVE" 2003 PLOT 3,10,11:PRINT "2. DUAL DISK DRIVES (DATA DISK IN DRIVE 1:)" 2004 PLOT 3,0,15:PRINT "PLEASE ENTER THE SELECTION FOR YOUR SET-UP: ";:GOSUB 230:DD= VAL (Y$):IF DD< 1OR DD> 2THEN PLOT 7,28,11:GOTO 2003 2005 POKE 65535,DD:DSK$= MID$ (STR$ (DD- 1),2)+ ":" 2006 IF DD= 2THEN PLOT 7,3,0,17:INPUT "LOAD DATA DISK IN DRIVE 1:. HIT <RETURN> WHEN READY: ";A 2007 RETURN