Listing of file='MENU.BAS;01' on disk='vmedia/home_budget_1-sector.ccvf'
100 REM ****************** MENU 1 *************************** 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 205 POKE 32940,254:POKE 32941,255:CLEAR 50 210 PLOT 27,11:GOSUB 2000:GOSUB 3000:GOTO 520 300 REM ************** INKEY (SINGLE KEY INPUT) ************* 310 POKE 33278,0 320 Y= PEEK (33278) 330 IF Y= 0GOTO 320 340 Y$= CHR$ (Y):PRINT :RETURN 350 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 540 PRINT " 1. ADD ACCOUNTS" 550 PRINT " 2. RECORD INCOMES, DEPOSITS, AND PAYS" 560 PRINT " 3. RECORD EXPENDITURES AND LOAN COMPLETIONS":PRINT 570 PRINT " [ CREATE THE DATA FILES MENU 2" 580 PRINT " [ UPDATE ASSETS & LIABILITIES MENU 2" 590 PRINT " 4. [ BANK RECONCILIATION MENU 2" 600 PRINT " [ CALCULATE FUTURE VALUES MENU 2" 610 PRINT " [ EDIT THE DATA FILES MENU 2" 620 PRINT :PRINT " [ CALCULATE ASSETS AND LIABILITES MENU 3" 630 PRINT " [ INCOME REPORTS MENU 3" 640 PRINT " 5. [ EXPENDITURE REPORTS MENU 3" 650 PRINT " [ COMBINED REPORTS MENU 3" 655 PRINT " [ PRINT A BUDGET MENU 3" 660 PRINT :PRINT :PRINT "ENTER DESIRED SELECTION....";:GOSUB 310:CH= VAL (Y$):IF CH< 1OR CH> 5THEN PLOT 7:GOTO 520 670 ON CHGOTO 1020,1030,1040,1060,1070 680 GOTO 520 1020 LOAD "ADDACT":RUN 1030 LOAD "INCOME":RUN 1040 LOAD "EXPEND":RUN 1060 PLOT 12,3,5,12:INPUT "LOAD BUDGET DISK 2 AND HIT <RETURN> ";A:LOAD "MENU":RUN 1070 PLOT 12,3,5,12:INPUT "LOAD BUDGET DISK 3 AND HIT <RETURN> ";A:LOAD "MENU":RUN 2000 DD= PEEK (65535):IF DD= 1OR DD= 2THEN DSK$= MID$ (STR$ (DD- 1),2)+ ":":RETURN 2005 PLOT 12,3,20,5:PRINT "SYSTEM PARAMETERS" 2010 PLOT 3,10,10:PRINT "1. SINGLE DISK DRIVE" 2020 PLOT 3,10,11:PRINT "2. DUAL DISK DRIVES (DATA DISK IN DRIVE 1:)" 2030 PLOT 3,0,15:PRINT "PLEASE ENTER THE SELECTION FOR YOUR SET-UP: ";:GOSUB 310:DD= VAL (Y$):IF DD< 1OR DD> 2THEN PLOT 7,28,11:GOTO 2020 2040 POKE 65535,DD:DSK$= MID$ (STR$ (DD- 1),2)+ ":" 2050 IF DD= 2THEN PLOT 7,3,0,17:PRINT "LOAD DATA DISK IN DRIVE 1:.";:INPUT " HIT <RETURN> WHEN READY: ";A 2060 RETURN 3000 PLOT 12,3,10,10:PRINT "IF YOU WOULD LIKE INSTRUCTIONS FOR THIS SUITE" 3010 PLOT 3,10,11:PRINT "OF PROGRAMS, SEND $20 TO:" 3020 PLOT 3,25,15:PRINT "JIM FARQUHAR" 3030 PLOT 3,25,16:PRINT "26 SANFORD PLACE" 3040 PLOT 3,25,17:PRINT "KALEEN, A.C.T, 2617" 3050 PLOT 3,10,30:INPUT "HIT RETURN TO CONTINUE....";A 3060 RETURN