! BILL PLANNER BY TOM COFERD FINAL VERSION 8 MAR 88..C=64O 60000X100^jd(147)n 14);"BILL PLANNER"x 14);"BY TOM COFER":"NUMBER";16);"FUNCTION": 2);"1";14);"ENTER BILLS FOR" 15);"A NEW MONTH", : 2);"2";14);"ADD/DELETE/CHANGE"J 15);"A BILL ON RECORD"o : 2);"3";14);"DISPLAY BILLS" 15);"TO SCREEN" 2);"4";14);"PRINT BILLS TO" 15);"PRINTER" : 2);"5";14);"QUIT" :: "ENTER NO. OF YOUR CHOICE" R&  R 320,330,340,350,3603  (147)X "";R;" IS AN INVALID ENTRY"` ": ,"PRESS RETURN TO CONTINUE";L$ 6 100 @R1 500 JR2 1000 TR3 3000 ^R4 4000 hR5 r 100  ENTRY SUB  (147)  15);"BILL ENTRY"2  18);"MENU": :Y &"NUMBER"; 16);"FUNCTION" 0: 2)"1";14);"ENTER BILLS FOR" : 15);"A NEW MONTH" D: N 2);"2";14);"RETURN TO MAIN" X 15);"MENU" b"ENTER NUMBER OF YOUR CHOICE" l K! v K1 K2 6602 K1 6908 b  (147):"";K;" IS NOT VALID !"  "** RETURNING TO MENU**" : "PRESS RETURN TO CONTINUE";L$ (147)  N$(25)  A(25) E0:B0:S0 "ENTER MONTH (DAY/MONTH/YR):";M$* "ENTER PAYCHECK AMOUNT: ";P6 Z125C  (147)^ "ENTER BILL NAME:";B$d  "ENTER BILL AMOUNT: ";C  (147):" ";B$;2);"$";C "" "IS DATA CORRECT (Y/N)";L$ *L$"N" 750 4N$(Z)B$>A(Z)C&R"** ANY MORE (Y/N)";L$9\L$"N" Z25CfEE1MpBBCTzZ`(147)f~ MODIFICATIONS SUB(147)10);"*MODIFICATIONS MENU*""NUMBER";16);"FUNCTION" 2);"1";14);"ADD NEW BILLS"15);"TO PROGRAM"/$2);"2";14);"REMOVE A BILL FROM"G.15);"THE PROGRAM"l8 2);"3";14);"CHANGE AN ITEM"B 15);"IN THE PROGRAM"L 2);"4";14);"RETURN TO MAIN MENU"V"ENTER NUMBER OF YOUR CHOICE"`Kj K 1190,1200,1210,1220 t(147)6~" ";K;" IS AN INVALID ENTRY">:a"PRESS RETURN TO CONTINUE";L$l 1010|K1 1300K2 1600K3 1900K4 1010 ADD. SUB(147)("THERE IS ROOM FOR ";25E;"MORE ENTRIES"225E0 1370<::F"PRESS RETURN TO CONTINUE";L$JPCHR(147):VZ(147)qd"ENTER BILL NAME ";B$n"ENTER BILL AMOUNT ";Cx"";B$;2);C"*IS THIS CORRECT(Y/N)?"L$L$"N" 1310EE1N$(E)B$A(E)C:BBC"ANY MORE(Y/N)";L$1L$"N" 1500;1310G(147)Ma@ DELETIONS SUBmJ(147)T"ENTER NAME OF BILL TO BE REMOVED"^B$hV1rN$(V)B$ 1720|VV1VE 1650(147) "";B$;" IS NOT ON RECORD"0:"PRESS RETURN TO CONTINUE";L$:1790S"";N$(V);2);A(V)x"REMOVE THIS RECORD(Y/N)???";L$L$"N" 1790BBA(V)N$(V)""A(V)0(147):"ANY MORE DELETIONS(Y/N)";L$L$"Y" 1610(147)l CHANGE SUB v(147)416);"CHANGES"T:"NUMBER";16);"FUNCTION"t"1";14);"CHANGE MONTH""2";14);"CHANGE PAYCHECK"15);"AMOUNT""3";14);"CHANGE BILL""4";14);"RETURN TO MENU" "ENTER NUMBER OF YOUR CHOICE"O2 O 2050,2060,2070,2080>(147)c"";O;" IS AN INVALID ENTRY"m1910~O1 2100 O2 2200O3 2300 O4 *19104(147)>"MONTH ON RECORD IS ";M$H"ENTER NEW MONTH";M$!R"MONTH ON RECORD IS NOW: ";M$J\::"PRESS RETURN TO CONTINUE";L$:V(147)|"PAYCHECK AMOUNT ON RECORD IS:"20);P:"ENTER NEW AMOUNT";P:"PAYCHECK AMOUNT ON RECORD IS NOW:"20);PSPB:SS1000:S1(S):SV$(S1) (SV$,1)"4"S1S1105S1(S110):SS1100X"PRESS RETURN TO CONTINUE";L$^(147):"ENTER BILL TO CHANGE";B$ V1 N$(V)B$ 2390 VV1$ VE 2320. (147)8 "";B$;" IS NOT ON RECORD"B :"PRESS RETURN TO CONTINUE";L$!L 2530:V :12)"OLD RECORD:"N` N$(V);2);A(V)pj :"CHANGE BILL NAME(Y/N)";L$t L$"N" 2450~ "ENTER NEW NAME";B$ N$(V)B$ :"CHANGE BILL AMOUNT(Y/N)";L$ L$"N" 2530 BBA(V)  "ENTER NEW AMOUNT";C BBC A(V)C% O "ANY MORE RECORDS TO CHANGE(Y/N)";L$[ (147)p L$"Y" 2300v  SCREEN DISPLAY SUB (147) SPB:SS1000:S1(S):SV$(S1) (SV$,1)"4"S1S110 S1(S110):SS1100 D15* 12);"*BILL PLANNER*": Q1300:QA DM (147)f 5);"BILLS FOR:";M$s V1 E N$(V)"" 3120 N$(V);30);"$";A(V) D11000& D0 V "****************************************" "" "PAYCHECK AMOUNT:";30);"$";PE "TOTAL AMOUNT OF BILLS:";30);"$";BV BP 3290| "TOTAL AMOUNT LEFT:";30);"$";S 3310 "BILLS TOTAL MORE THAN" "PAYCHECK:";28);"--$";S : "DISPLAY AGAIN(Y/N)";L$ L$"Y" 3070  (147)- 13);"PRINTOUT MENU"L"NUMBER";16);"FUNCTION"o"1";14);"PRINT A HARDCOPY" 15);"TO PRINTER""2";14);"RETURN TO MAIN MENU""ENTER NUMBER OF YOUR CHOICE" K K 4140,4150 (147)"";K;" IS AN INVALID ENTRY";:"PRESS RETURN";L$E"4000W, K1 4180e6 K2 oJ4000T PRINTER SUB^(147)`SPB:SS1000:S1(S):SV$(S1)d(SV$,1)"4"S1S110fS1(S110):SS1100 h"*TURN ON & PREPARE PRINTER*".r:"PRESS RETURN WHEN READY";L$C|A$"BILLS FOR: "]C$"PAYCHECK AMOUNT:"}D$"TOTAL AMOUNT OF BILLS:"G$"TOTAL AMOUNT LEFT:"H$"$"4,44,20);A$;M$V1 EN$(V)"" 4320XV$N$(V)  (XV$)15 4310X2(XV$)*X3(15X2)514K4,N$(V);X3);H$;A(V)U4320\4u4,N$(V);5);H$;A(V)|V4,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"44,C$, ,H$;P44,D$," ";H$;B4 4,G$," $";S &4% 04+ :X ` 64/128 TITLE ANIMATOR - JOE CHARNETSKIj jFD8:FL$(FD) tFL$(1)"BILL PLANNER" ~FL$(4)"FOR MONTHLY BUDGETTING" FL$(6)" BY TOM COFER FC$(1)"":FC$(2)"":FC$(3)"" !I1FD:FS(FL$(I)):FHFSFHFS-!:FHFH4:FV((25FD2)2)N!I1(40FH)2:FX$FX$"":p!FV2I1FV1:FY$FY$"":!I13:F1,F2,F3,F4!J1FH:F5$(I)F5$(I)(F1)!F7$(I)F7$(I)(F3)"":!J1FD2:F6$(I)F6$(I)""(F2)"F8$(I)F8$(I)""(F4)""::E"I13:FA$(I)""FY$FX$FC$(I)F5$(I)F6$(I)i" FB$(I)""F7$(I)""F8$(I):o":"53280,2:53281,0"(""FY$"2I1FD:20(FL$(I))2)FL$(I):"