- BKEEPER (C) 1979< WRITTEN BY JOHN MELISSA JR.e 4201 CLAYMONT, APT.2, LAS VEGAS,NV PHONE (702) 734-0849 6510N60:59468,14(A(N),B(N)- A(K)K(((F))(10)):K52 J1 N7 A$< J A (14): 5000+ F"CCOUNT NAME WILL BE DISPLAYED"R H"AFTERACCOUNT # ENTRY. F WRONG"v J"ACCOUNT, ENTER 0 FOR AMOUNT." L"NTER 99 FOR ACCOUNT # TORETURN":"TOMAINLINE." d2000 e f A1995000 i A1N 110 l" # 1 ";N: 100 n J1 A1 x A$( JH A$"" A$" #/"[ " ";A1;A$;u "-- $";D A(A1)A(A1)D 100 "";:F10:LN1: J1 N A$ A$"" 240 F1120); J;4);A$:LNLN1 LN22260 J* JLN 22:::700: 5000G LN1: F10F11:"";:W F10:700:i , - SUMMARY - 6" ;T0:T10 @  J1 N  A$  (A$)13420 JF1(15(A$)):A$A$".":  J32 440&  21);" "O "";19);:FT:600:F$;29);i FT1:600:F$:LNLN2  A(J)0 B(J)0 480  LN19700 LNLN1: J;4);A$;19); FA(J):600:F$;:TTF FFB(J):600:29)F$:T1T1F  J  21);" "< "";19);:FT:600:F$;29);N FT1:600:F$] 700:5000m X NUM PRINT ]F$"": F0 bF(F100.5)100: A(K)1630 l JF1A(K):F$F$" ": vF$F$(F): (F$)8F$F$".00" (F$)10F$F$"0"8" ":"RESS Œ TOCONTINUE...";RLN0:ZZ$:ZZ$""720j"...": " ˠΠ"*AN$: AN$""8104 MERCHANDISE,ACCTG,ADVERTISING,AUTO,PACKAGING CONTRIB,DELIVERY,ELECTRIC ENTERTAINMENT,FREIGHT7 HEAT,INSURANCE,INTERESTT LAUNDRY,LEGAL,LICENSESf MISC,OFFICE$ POSTAGE,RENT,REPAIRS,SHOP EXP. TAX-FICA,TAX-STATE U.I.8 TAX-OTHER,SELLING EXPB SUPPLIES,TELEPHONEL TRADE DUES,TRAVELV WAGES,WATER,,,,,,,,,` ,,,,,,,,I NOTES PAYABLE,FED INC TAX,LOANS PAYp LOANS REC.,PERSONAL,FIXED ASSETS} , , ," # (01 -";N;"): "; NN$: NN$""2010NN$;M$NN$ NN$: NN$""2030 (NN$)20 NN$;:2010NN$ M$M$NN$"A1(M$)E  A10 " ": 70K3Z - TOTALSg T0:T10 J1N:TTA(J):T1T1B(J): J T1T1T 490 SAVE DATA 800 243,122:244,2 1,8,1," " J1N YTD((A(J)B(J))100.5)100# YTD03090E 1,J:1,YTD: Z9(625)3090S 59411,53d Z9160:Z9r 59411,61 Z9(625):J 1& 5000/INPUT DATA8001,8,0," "" "1,I:ST040501,B(I)  ST0402014ST64" . =";ST>5000W"": 18)""q 8)"0.  8)"1. " 8)"2. " 8)"3. " 8)"4. " 8)"5. ? 8)"6. "R 8)"7. "v 8)" . " C$: C$""5080:"" (C$)70,4000,200,300,3000,2500,5999 6000op" - z" HIS PROGRAM WILLASSISTYOUING"SUMMARIZINGCHECKS ANDCASHPAYMENTSs"FROMABUSINESS. T WASWRITTENTOBE"USEDINCONJUNCTIONWITHTHEPOPULAR"OMEOOKKEEPINGECORD. T MAYALSOBE"USEDBYITSELFDIRECTLYFROMCHECKSTUBS"ORACHECKBOOK.?" HEPROGRAMWILLPROMPTYOUTHROUGHm"ENTRYOFEXPENDITURES. FTERTHEEXPEN-"DITURESHAVEBEENENTERED, YOUMAYORDER"UPASUMMARY (FROMTHEMENU). HE"SUMMARY MAYBESAVEDONAFLOPPY DISK!"AND READ IN THEFOLLOWINGMONTH FOREAR;"OATE SUMMARIES.i" HE PROGRAMCONSISTSOF6 SEGMENTS "WHICHARECALLEDBYTHE AND RETURN"TO THEMENU. ACHSEGMENTOPERATES"INDEPENDENTLY OFTHEOTHERSANDMAY BE""CALLED WHENEVERYOUWISH. 700F$" HEFIRSTSTEP INUSINGTHISSYSTEMq)"ISTOCLASSIFYTHEEXPENDITURES INTO."ACCOUNTS. AVETHECOMPUTERLISTTHE3"ACCOUNTSONTHESCREENWHILEYOUGO8"THROUGHEACHITEMWRITINGDOWNTHE/="ACCOUNT NUMBERON A LIST OFCHECKSAND":"CASHPAYMENTS.\[" EFOREENTERINGTHEEXPENDITURES,`"TOTALTHEMUPANDSAVETHAT TOTALTOe"VERIFYTHECOMPUTERTOTALS. HEN ENTERj"THE TRANSACTIONSINTO THECOMPUTER. HENo"YOUHAVEENTEREDALLYOURTRANSACTIONS,<t"PRINTTHESUMMARYORSUMMARYTOTALfy"ANDCOMPARETHISTOTALTO THETOTAL~"PREVIOUSLY DETERMINED. FYOUNEEDTO"MAKEMOREENTRIES,THENRETURNTOTHE"ENTRYROUTINE. HENTHESUMMARY IS"COMPLETED, SAVE IT ONA DISK FILE.700J" HEACCOUNTS1 THROUGH50 ARETAXu"DEDUCTIBLEEXPENSES, ANDACCOUNTS51"THROUGH60 ARE NON-DEDUCTIBLEEXPENSES."OCHANGETHEACCOUNTTITLES, MODIFY THE"DATASTATEMENTSBEGINNINGATLINE 1000.." O CHANGETHENUMBEROFAVAILABLE\"ACCOUNTS, CHANGETHEVALUEOF INLINE"30. FYOUNEEDTOSTOPTHEPROGRAM AND"RE-ENTERWITHOUTLOSSOFDATA, THEN" 5000.Z700c5000d ** TITLE PAGE **n"";: 53280,5: 53281,11+x I1 38:"ے";:F I1 22:"ے";:a I1 37:"ے";:| I1 22:"ے";: (14)"""OOKEEPER (C)" 19)"BY 12)"OHN ELISSA JR  10)' 14)"AS EGAS < T1 2500: TB