Compucolor.org – Virtual Media

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