10 PRINT"[147][144]";:POKE53281,12:POKE53280,12:PRINTCHR$(14) 20 FORI=1TO23 30 READA$ 40 IFA$="[157]"THENGOSUB80:END 50 PRINTA$ 60 NEXT 70 GOSUB80:GOTO20 80 PRINT" PRESS A KEY TO CONTINUE[146]"; 90 GETB$:IFB$=""THEN90 100 PRINT"[147]":RETURN 10000 DATA" 10010 [131]" PEEK(null)STR$CHR$VAL(null) (null)(null)ATN(null)(null)VAL(null) 10020 DATA" 10030 [131]" RIGHT$NSTRUCTIONS 10040 DATA" 10050 [131]"LEFT$OME PEEKUDGET (null)LANNER, BY LENHARLES 10060 DATA"[211]ILBERGLEITH, WAS FIRST PUBLISHED IN 10070 [131]"LENOMPUTE!'S CHR$AZETTE, STR$EC. 1983. (null)HIS IS 10080 DATA"AN EHANCED VERSION BY [205]IKE 10090 [131]"(null)OZAKIEWICZ. 10100 DATA" 10110 [131]"PEEKUDGET (null)LANNER IS USED FOR THAT 10120 DATA"PERIODIC FUNCTION OF PREPARING THE HOME 10130 [131]"BUDGET. (null)SE IT TO FIND OUT IF THERE IS 10140 DATA"GOING TO BE ANY MONEY LEFT FOR THE 10150 [131]"THINGS THAT YOU WANT TO DO AFTER YOU 10160 DATA"HAVE PAID THE BILLS YOU NEED TO PAY. 10170 [131]" 10180 DATA"[194]UDGET [208]LANNER IS COMPRISED OF THREE 10190 [131]"FILES. (null)(null)ATNSTR$ AND (null)(null)(null) PEEKUDGET.PEEKOOT. RIGHT$T 10200 DATA"LOADS THE MACHINE LANGUAGE PORTION OF 10210 [131]"THE THE PROGRAM, THEN IT LOADS AND RUNS 10220 DATA"THE [194][193][211][201][195] PART. [194]UDGET [208]LANNER IS THE 10230 [131]"PEEKATN(null)RIGHT$LEN PART, AND PEEKUDGET.ML IS THE 10240 DATA"MACHINE LANGUAGE PART 10250 [131]" 10260 DATA"[217]OU WILL NOT NEED TO MAKE OUT A 10270 [131]"COMPLETELY NEW BUDGET EACH MONTH. 10280 DATA"[194]UDGET [208]LANNER ALLOWS YOU TO SAVE YOUR 10290 [131]"BUDGET TO DISK, READ IN AN OLD BUDGET 10300 DATA"FROM DISK, AND MODIFY A BUDGET. [201]TS 10310 [131]"MENU BASED FORMAT MAKES PEEKUDGET (null)LANNER 10320 DATA"EASY TO USE. [213]SE THE FUNCTION KEYS TO 10330 [131]"SELECT MENU OPTIONS. (null)HE MENU CHOICES 10340 DATA"ARE AS FOLLOWS. 10350 [131]" 10360 DATA" 1. [196]ISPLAY [197]XPENSES 10370 [131]" 2. ATNDD (null)EW VALXPENSES 10380 DATA" 3. [213]PDATE [197]XPENSE [204]IST 10390 [131]" 4. (null)AVE VALXPENSE (null)IST 10400 DATA" 5. [196]ELETE [197]XPENSES 10410 [131]" 6. (null)PTIONS (null)CREEN 10420 DATA" 7. [204]OAD/[205]ERGE [198]ILES 10430 [131]" 8. VALND THE (null)ROGRAM 10440 DATA" 10450 [131]"(null)OTE THAT ANY MENU SELECTION, ONCE 10460 DATA"ENTERRED, MAY BE EXITTED WITHOUT 10470 [131]"PERFORMING THE MENU CHOICE. (null)O EXIT THE 10480 DATA"OPTION, RESPOND *END TO THE FIRST 10490 [131]"QUESTION YOU ARE ASKED. 10500 DATA" 10510 [131]"(null)PTION 1 CAUSES A LIST OF YOUR EXPENSES 10520 DATA"TO APPEAR ON THE SCREEN. [217]OUR EXPENSE 10530 [131]"LIST MAY BE TOO LARGE TO BE DISPLAYED 10540 DATA"ALL AT ONE TIME IN THE [196]ISPLAY EXPENSES 10550 [131]"OPTION. (null)HE 'LENURSOR (null)P' AND 'LENURSOR 10560 DATA"[196]OWN' KEYS WORK IN THE [196]ISPLAY OPTION 10570 [131]"TO SCROLL YOUR EXPENSE LIST UP AND 10580 DATA"DOWN. [215]HEN IN [207]PTION 1, THE F1 KEY WILL 10590 [131]"CAUSE THE LIST TO SCROLL AHEAD 20 10600 DATA"ITEMS. [201]F YOU HAVE A PRINTER ATTACHED, 10610 [131]"THE PEEKRITISH POUND SIGN (\) WILL DUMP 10620 DATA"WHATEVER IS ON THE SCREEN TO THE 10630 [131]"PRINTER. (null)HE SCREEN DUMP WORKS FROM ANY 10640 DATA"SCREEN ONCE THE PROGRAM HAS BEEN RUN. 10650 [131]" 10660 DATA"[206]OTICE THAT THE EXPENSE LIST IS SORTED 10670 [131]"BY (null)EEK STR$UE. (null)HENEVER THE EXPENSE LIST 10680 DATA"IS MODIFIED, THE LIST IS RESORTED. [212]HE 10690 [131]"TOTAL DUE FOR THE MONTH IS RECALCULATED 10700 DATA"ALSO WHENEVER THE LIST IS CHANGED. 10710 [131]" 10720 DATA"[207]PTION 2 ALLOWS YOU TO ADD [206]EW [197]XPENSES 10730 [131]"TO THE LIST. (null)HE LIST IS RESORTED AT 10740 DATA"THE END OF THIS STEP. [217]OU ARE PROMPTED 10750 [131]"FOR AN ITEM'S NAME, AMOUNT, AND WEEK 10760 DATA"DUE. [212]HE NEW ITEM IS ASSIGNED AN ITEM 10770 [131]"NUMBER. VALND THE ADDITION OF NEW 10780 DATA"EXPENSES BY ANSWERING *END TO THE 10790 [131]"PROMPT FOR A NEW ITEM NAME. 10800 DATA" 10810 [131]"RIGHT$TEM NUMBERS ARE IMPORTANT FOR YOU TO 10820 DATA"KNOW WHEN USING THE [213]PDATE AND [196]ELETE 10830 [131]"OPTIONS. (null)HESE FUNCTIONS ASK FOR AN 10840 DATA"ITEM NUMBER TO PROCESS. [212]HEREFORE, LIST 10850 [131]"THE EXPENSES BEFORE ATTEMPTING TO 10860 DATA"[213]PDATE OR DELETE EXPENSES. 10870 [131]" 10880 DATA"[207]PTION 3, THE [213]PDATE [197]XPENSES OPTION 10890 [131]"ALLOWS YOU TO ALTER THE NAME, AMOUNT, 10900 DATA"AND WEEK DUE FOR ANY ITEM NUMBER. [212]HE 10910 [131]"CURRENT VALUES FOR THE ITEM ARE 10920 DATA"DISPLAYED AT THE TOP OF THE SCREEN. [201]F 10930 [131]"YOU DO NOT WANT TO CHANGE A VALUE, JUST 10940 DATA"PRESS [210][197][212][213][210][206] IN REPLY TO THE PROMPT, 10950 [131]"AND THE OLD VALUE WILL BE RETAINED. ASCOR 10960 DATA"EXAMPLE, SUPPOSE THAT ITEM #1 WAS 10970 [131]"VALLECTRICITY, ITS AMOUNT DUE WAS $35, 10980 DATA"AND ITS WEEK DUE WAS 3. [206]EXT MONTH YOU 10990 [131]"MAY NEED TO CHANGE THE AMOUNT DUE, BUT 11000 DATA"THE NAME AND WEEK DUE WILL STAY THE 11010 [131]"SAME. (null)O WHEN YOU UPDATE ITEM 1, JUST 11020 DATA"PRESS [210][197][212][213][210][206] WHEN PROMPTED FOR NEW 11030 [131]"VALUES FOR ITEM NAME AND WEEK DUE, BUT 11040 DATA"ENTER THE NEW AMOUNT DUE. 11050 [131]" 11060 DATA"[207]PTION 4 : WHEN YOUR LIST IS ALL DONE, 11070 [131]"YOU CAN SAVE IT TO DISK. (null)OU WILL BE 11080 DATA"PROMPTED TO EITHER SUPPLY A NAME FOR 11090 [131]"THE FILE, OR TO ENTER $. RIGHT$F YOU ENTER 11100 DATA"$, A COPY OF THE CURRENT DISK DIRECTORY 11110 [131]"WILL SCROLL ACROSS YOUR SCREEN. (null)RESS 11120 DATA"THE SPACE BAR TO TEMPORARILY STOP THE 11130 [131]"SCROLLING, THEN PRESS IT AGAIN TO 11140 DATA"COMPLETE THE DIRECTORY LIST. 11150 [131]" 11160 DATA"[196]ISK ERRORS ARE TRAPPED. [198]OR EXAMPLE, 11170 [131]"IF YOU SUPPLY A FILE NAME FOR YOUR NEW 11180 DATA"LIST AND THE NAME ALREADY EXISTS ON 11190 [131]"YOUR DISK, YOU WILL BE INFORMED OF THE 11200 DATA"MISTAKE. [194]UT THE PROGRAM WILL NOT 11210 [131]"'PEEK(null)(null)PEEK' BECAUSE OF YOUR ERROR. 11220 DATA" 11230 [131]"(null)PTION 5 ALLOWS YOU TO ELIMINATE 11240 DATA"ITEM(S) FROM YOUR EXPENSES LIST. [193]S 11250 [131]"MENTIONED ABOVE, YOU MUST KNOW THE ITEM 11260 DATA"NUMBER(S) OF THE EXPENSE(S) TO BE 11270 [131]"DELETED. ATNS YOU HAVE ALREADY GUESSED 11280 DATA"FROM ALL OF THE (S)'S, YOU MAY DELETE 11290 [131]"ONE ITEM OR A BLOCK OF ITEMS. (null)O DELETE 11300 DATA"ONE ITEM ONLY, PRESS [210][197][212][213][210][206] INSTEAD OF 11310 [131]"SUPPLYING AN ITEM NUMBER TO THE SECOND 11320 DATA"PROMPT. 11330 [131]" 11340 DATA"[207]PTION 6 DISPLAYS THE [207]PTIONS [204]IST. [215]HY 11350 [131]"IS THAT USEFUL? (null)SE F6 TO RETURN TO THE 11360 DATA"[207]PTIONS [204]IST FROM THE [196]ISPLAY [197]XPENSES 11370 [131]"OPTION. (null)OU ARE REMINDED OF THIS AT THE 11380 DATA"BOTTOM OF THE [196]ISPLAY [197]XPENSES SCREEN 11390 [131]" 11400 DATA"[207]PTION 7 ALLOWS YOU TO LOAD IN LAST 11410 [131]"MONTHS FILE, AND USE IT AS A BASIS FOR 11420 DATA"THIS MONTHS BUDGET. [217]OU ARE PRESENTED 11430 [131]"WITH THREE SUB-OPTIONS: L/M/$. ATNS WITH 11440 DATA"[211]AVE, $ CAUSES THE DISK DIRECTORY TO BE 11450 [131]"DISPLAYED. RIGHT$F YOU ENTER L, THE PROGRAM 11460 DATA"PROMPTS YOU FOR A FILE NAME TO LOAD. 11470 [131]"ATNGAIN, DISK ERRORS ARE TRAPPED AS IN 11480 DATA"THE [211]AVE OPTION. 11490 [131]" 11500 DATA"[201]F YOU SELECT SUB-OPTION M, YOU WILL 11510 [131]"ALSO BE PROMPTED FOR A FILE NAME. PEEKUT 11520 DATA"THIS TIME A MERGE WILL BE DONE. [212]HE 11530 [131]"ITEMS IN THE INPUT FILE WILL BE 11540 DATA"COMPARED TO THE ITEMS IN THE FILE 11550 [131]"CURRENTLY BEING USED. RIGHT$F THE ITEMS 11560 DATA"MATCH, THE AMOUNTS WILL BE AVERAGED. [201]F 11570 [131]"THEY DO NOT MATCH, THE INPUT ITEM IS 11580 DATA"ADDED TO THE LIST. [212]HIS STRANGE PROCESS 11590 [131]"IS ONE RIGHT$ HAVE NEVER USED. 11600 DATA" 11610 [131]"ASCINALLY, SELECT (null)PTION 8 TO END THE 11620 DATA"PROGRAM. [202]UST IN CASE YOU FORGOT TO DO 11630 [131]"SO PRIOR TO SELECTION OF THIS OPTION, 11640 DATA"[207]PTION 8 GIVES YOU THE OPPORTUNITY TO 11650 [131]"(null)AVE YOUR BUDGET BEFORE QUITTING. 11660 DATA" 11670 [131]" 11680 DATA" [205]IKE [203]OZAKIEWICZ 11690 [131]" 175 (null)HARON STR$R. 11700 DATA" [210]OCHESTER, [206][217] 14626 11710 [131]" (null)(null)ATN 11720 DATA"[157]