!� BILL PLANNER BY TOM COFERD� FINAL VERSION 8 MAR 88..C=64O �60000X�100^€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ž @‹R²1 § � 500° J‹R²2 § � 1000 T‹R²3 § � 3000Ô ^‹R²4 § � 4000á h‹R²5 § Žë 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‹ K³1 ° K±2 § ‰ 6602 €‹K²1 § � 6908 ŠŽb ”™ Ç(147):™"";K;" IS NOT VALID !"ƒ ™™ "** RETURNING TO MENU**"‹ ž™:™® ¨…"PRESS RETURN TO CONTINUE";L$º ²™Ç(147)Ç ¼† N$(25)Ó Á† A(25)ã ÆE²0:B²0:S²0 Ð…"ENTER MONTH (DAY/MONTH/YR):";M$* Ú…"ENTER PAYCHECK AMOUNT: ";P6 ä�Z²1¤25C î™ Ç(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" § Z²25CfE²Eª1MpB²BªCTz‚Z`Ž™Ç(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š"à`…Kþj‘ K ‰ 1190,1200,1210,1220 t™Ç(147)6~™"ž ";K;" IS AN INVALID ENTRY’š">ˆ™:™a’…"PRESS RETURN TO CONTINUE";L$lœ‰ 1010|¦‹K²1§ �1300Œ°‹K²2§ �1600œº‹K²3§ �1900¨Ä‹K²4§ ޲Ή1010Á� ADD. SUBÍ™Ç(147)û(™"THERE IS ROOM FOR ";25«E;"MORE ENTRIES"2‹25«E±0§ ‰ 1370<™:™:F…"PRESS RETURN TO CONTINUE";L$JP™CHR(147):ŽVZ™Ç(147)qd…"ENTER BILL NAME ";B$�n…"ENTER BILL AMOUNT ";C x™"";B$;¦2);C¿‚™"*IS THIS CORRECT(Y/N)?"ÇŒ…L$Ü–‹L$²"N" § ‰ 1310æ E²Eª1óªN$(E)²B$´A(E)²C:B²BªC¾…"ANY MORE(Y/N)";L$1È‹L$²"N"§ ‰1500;Ò‰1310GÜ™Ç(147)MæŽa@� DELETIONS SUBmJ™Ç(147)•T™"ENTER NAME OF BILL TO BE REMOVED"�^…B$¥hV²1¼r‹N$(V)²B$ § ‰ 1720Æ|V²Vª1Ù†‹V³²E § ‰ 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" § ‰ 1790šÖB²B«A(V)§êN$(V)²""²ôA(V)²0Üþ™Ç(147):…"ANY MORE DELETIONS(Y/N)";L$ñ‹L$²"Y" § ‰ 1610ý™Ç(147)Žl� CHANGE SUB v™Ç(147)4€™£16);"CHANGES"TŠ™:™"NUMBER";£16);"FUNCTION"t”™"1";£14);"CHANGE MONTH"–ž™"2";£14);"CHANGE PAYCHECK"©¨™£15);"AMOUNT"Dz™"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’š"mø‰1910~‹O²1 § �2100� ‹O²2 § �2200 ‹O²3 § �2300­ ‹O²4 § Ž·*‰1910Ã4™Ç(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);PÔS²P«B:S²S¬1000:S1²µ(S):SV$²Ä(S1)Ö‹ É(SV$,1)±"4"§S1²S1ª105ØS1²µ(S1­10):S²S1­100XÞ…"PRESS RETURN TO CONTINUE";L$^莅ü™Ç(147):…"ENTER BILL TO CHANGE";B$� V²1¤ ‹N$(V)²B$ § ‰ 2390® V²Vª1À$ ‹V³²E § ‰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ð¦ B²B«A(V) ° …"ENTER NEW AMOUNT";Cº B²BªCÎ A(V)²C%Ø ™Oâ …"ANY MORE RECORDS TO CHANGE(Y/N)";L$[ì ™Ç(147)pö ‹L$²"Y" § ‰ 2300v Ž�¸ � SCREEN DISPLAY SUB› ™Ç(147)ÀÄ S²P«B:S²S¬1000:S1²µ(S):SV$²Ä(S1)ÛÈ ‹É(SV$,1)±"4"§S1²S1ª10ôÊ S1²µ(S1­10):S²S1­100ÿÌ �D²1¤5*Ö ™£12);"*B–I�LLž P�LŸA•N—N˜E™Rœ*š":ê �Q²1¤300:‚QAô ‚DMþ ™Ç(147)f ™£5);"BILLS FOR:";M$s �V²1 ¤ E‰ ‹N$(V)²""§ ‰ 3120¢ ™N$(V);£30);"$";A(V)° �D²1¤1000·& ‚D¾0 ‚Vïž ™"****************************************"ø£ ™""¨ ™"PAYCHECK AMOUNT:";£30);"$";PE² ™"TOTAL AMOUNT OF BILLS:";£30);"$";BV¼ ‹B±P § ‰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,‹ K²1 § �4180e6‹ K²2 § ŽoJ‰4000�T� PRINTER SUB�^™Ç(147)²`S²P«B:S²S¬1000:S1²µ(S):SV$²Ä(S1)Íd‹É(SV$,1)±"4"§S1²S1ª10æfS1²µ(S1­10):S²S1­100 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,4¿³˜4,¦20);A$;M$̸�V²1 ¤ Eã‹N$(V)²"" § ‰ 4320ñÃXV$²N$(V) Ä‹ Ã(XV$)±²15 § ‰ 4310ÅX2²Ã(XV$)*ÆX3²(15«X2)ª51ǘ4KȘ4,N$(V);¦X3);H$;A(V)Uɉ4320\Ö˜4uÛ˜4,N$(V);¦5);H$;A(V)|à‚VÃê˜4,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"Êï˜4Ûô˜4,C$, ,H$;Pâþ˜4ø˜4,D$," ";H$;Bÿ˜4 ˜4,G$," $";S &˜4% 0 4+ :ŽX `ê� 64/128 TITLE ANIMATOR - JOE CHARNETSKIj jêFD²8:†FL$(FD)„ têFL$(1)²"BILL PLANNER"¨ ~êFL$(4)²"FOR MONTHLY BUDGETTING" ˆêFL$(6)²" BY TOM COFERç œêFC$(1)²"Ÿ":FC$(2)²"œ":FC$(3)²"" !¦ê�I²1¤FD:FS²Ã(FL$(I)):‹FH³FS§FH²FS-!°ê‚:FH²FHª4:FV²µ((25«FD«2)­2)N!ºê�I²1¤(40«FH)­2:FX$²FX$ª"":‚p!Äê‹FV±2§�I²1¤FV«1:FY$²FY$ª"":‚ˆ!Îê�I²1¤3:‡F1,F2,F3,F4¨!Øê�J²1¤FH:F5$(I)²F5$(I)ªÇ(F1)Ç!âêF7$(I)²F7$(I)ªÇ(F3)ª"��":‚î!ìê�J²1¤FDª2:F6$(I)²F6$(I)ª"�"ªÇ(F2)"öêF8$(I)²F8$(I)ª"‘"ªÇ(F4)ª"�":‚:‚E"ë�I²1¤3:FA$(I)²""ªFY$ªFX$ªFC$(I)ªF5$(I)ªF6$(I)i" ëFB$(I)²"�"ªF7$(I)ª""ªF8$(I):‚o"ë:…"ë—53280,2:—53281,0“"(ë™"“›"FY$¹"2ë�I²1¤FD:™£20«Ã(FL$(I))­2)FL$(I):‚Ò"<ë�I²1¤3:™FA$(I)FB$(I)ã"Fë�FZ²1¤25:‚:‚ø"Pë¡A$:‹A$²""‰60220#Zë™"“š":—53280,14:—53281,6:—646,14:ŽT#dëƒ164,167,163,165,175,170,183,181,185,182,184,161