Compute! Gazette 1986 June/1986-06.d64/p.a.m

Commodore BASIC | 2022-09-20 | 12KB | 255 lines

10 bo=53280:ba=53281:aa=peek(bo):bb=peek(ba):cc=peek(646):poke53272,23
22 printchr$(8):poke808,234:poke649,1:n$="[202][207][200][206][160]&[160][202][207][193][206][160][211][205][201][212][200]":pokebo,5:pokeba,5
102 poke646,1:print"[147]":printtab(15)"[195][207][205][208][213][212][197]!'s":printtab(16)"[208][197][210][211][207][206][193][204]
108 [153][163]15)"atnlenlen(NULL)(NULL)(NULL)(NULL)right$(NULL)chr$":[153][163]16)"(NULL)atn(NULL)atnchr$val(NULL)":[129]d[178]1[164]2000:[130]:ta[178]ti
120 [153]"     len(NULL)(NULL)(NULL)(NULL)(NULL)val!'s (NULL)val(NULL)(NULL)(NULL)(NULL)atn(NULL)closeatnlenlen(NULL)(NULL)(NULL)(NULL)right$(NULL)chr$
202 print"[205][193][206][193][199][197][210] is one program, approximately
204 [153]"162000 bytes long, that provides you
206 print"with a [195][207][205][208][204][197][212][197][146] accounting system.":print
210 print"     [212]he emphasis is on the word
212 [153]"len(NULL)(NULL)(NULL)(NULL)val(NULL)val.  lenomputer programs on the
214 print"market today are single-purpose pro-
216 [153]"grams:  ascor example, you can find a
218 print"budget preparation program, or an
220 [153]"expense record program, or a checkbook-
222 print"balancing program--but you will not
224 [153]"find one that does all three.  (NULL)orst
226 print"of all, each has its own complicated
228 [153]"manual and its own way of accepting":[153]"data.
230 gosub 10000
240 print"     [207]n the other hand, [195][207][205][208][213][212][197]!'s      [208][197][210][211][207][206][193][204][160][193][195][195][207][213][206][212][201][206][199][160][205][193][206][193][199][197][210]:
242 [153]"          a. right$s a complete, computerized accounting system;
252 print"          b.  [201]s easy to use; and
282 [153]"          c.  (NULL)roduces over 100
283 print"separate accounting reports.
285 [141] 10000
290 [153]"     (NULL)he system is your own; it's
292 print"personal.  [217]ou set up your own bank":print"accounts:
298 [129]d[178]1[164]4000:[130]:[153]"str$isposition of right$ncome lenodeswait":[129]d[178]1[164]2000:[130]
302 [153]"lenheapskate lenhecking        ":[129]d[178]1[164]2500:[130]
304 [153]"onlenash atnccount              ":[129]d[178]1[164]2000:[130]
306 [153]"on(NULL)lentiful (NULL)avings peekank    ":[129]d[178]1[164]2000:[130]
310 [153]"and your own expense accounts (or use
312 print"the samples provided):
316 [129]d[178]1[164]2000:[130]:[153]"valxpense accounts           wait":[129]d[178]1[164]2000:[130]
320 [153]"atnllowance                  ":[129]d[178]1[164]2500:[130]
322 [153]"onvallectricity               ":[129]d[178]1[164]2000:[130]
324 [153]"onchr$asoline                  ":[129]d[178]1[164]2000:[130]
326 [153]"on(NULL)edical right$nsurance         ":[129]d[178]1[164]2000:[130]
328 [153]"on(NULL)axes-ascederal             ":[129]d[178]1[164]2000:[130]
334 [153]"on(NULL)rip to valurope            ":[129]d[178]1[164]2000:[130]
336 [153]"on(NULL)p to 140 allowed         ":[129]d[178]1[164]2000:[130]:[153]:[141]10000
341 [153]"":[153]"     (NULL)nce you've established your
344 print"system, you are ready to record your
346 [153]"accounting data.  (NULL)he main menu gives
348 print"you a choice of the following routines:":print"":gosub10000
360 gosub11000:pokebo,5:pokeba,5:poke646,1:print"
370 [153]"     (NULL)hese set up and maintain the
372 print"system; input, correct, and manipulate
376 [153]"accounting data; help you prepare a
380 print"budget; keep track of your assets,
382 [153]"liabilities, investments, and property;
392 print"and provide the necessary reports.
394 [153]"(NULL)ruly a len(NULL)(NULL)(NULL)(NULL)val(NULL)val accounting system.
400 print"     [211]peaking of reports, here are a
402 [153]"few sample reports produced by the
406 print"system.  [198]irst, income for a month:":print"":gosub10000:print"
412 [141]11500:[153]"":[153]"and a sample expense report:
430 ford=1to2000:next:gosub11800:pokebo,11:pokeba,11:poke646,1
440 print"     [194]ut an accounting [211][217][211][212][197][205] is more
442 [153]"than income and expense.  (NULL)ou will want
444 print"to have lists of your property for
446 [153]"filing insurance claims in the event":[153]"of loss:":[153]
460 [129]d[178]1[164]2000:[130]:[141]12400:[151]bo,5:[151]ba,5:[151]646,1
534 [153]"    right$f you own stocks, bonds, or other
536 print"securities, the system will record
538 [153]"these as well.  (NULL)ou can enter current
556 print"price quotations, and the system will
558 [153]"calculate your capital gain and even
560 print"show you the condition of your":print"portfolio:":print:gosub12600
572 pokebo,5:pokeba,5:poke646,1:print"
574 [153]"     (NULL)hat is your financial condition?
576 print"[201]s your household running at a profit?
578 [153]"str$id you spend more last month than you
580 print"took in?  [212]he [211]tatement of [201]ncome and
582 [153]"valxpense is your profit and loss state-
584 print"ment.  [201]t is a record of what has
586 [153]"already happened to your money, and
588 print"what may happen to it in the future:":print"":gosub10000
594 gosub12800:pokebo,5:pokeba,5:poke646,1:print"
604 [153]"     ascinally, the most important report
606 print"of all--the [194]alance [211]heet.  [212]he [194]alance
608 [153]"(NULL)heet is a complete report of your
610 print"financial condition at any given time.
612 [153]"right$t shows you what your assets are,
614 print"where they are, how much you owe, and
616 [153]"what your net worth is.  (NULL)ogether with
618 print"the [211]tatement of [201]ncome and [197]xpense,
620 [153]"these are the two most important
622 print"reports of any accounting system--
624 [153]"including this one:":[153]"":[141]10000:[141]12900
642 [151]bo,5:[151]ba,5:[151]646,1:[153]"     (NULL)his system provides plenty of
643 print"reports.  [200]ere's a partial list of what
644 [153]"you can get:":[153]:[141]11100
652 [153]"(NULL)nfortunately, we can't show you all
654 print"of these here, but samples of each
656 [153]"are contained in the book.
668 print"     [205]aking financial decisions
670 [153]"requires a lot of good, solid informa-
672 print"tion.  [212]his program does all of the
674 [153]"adding, subtracting, assembling of
676 print"columns and columns of figures and":gosub10000
678 print"prepares all of the reports.  [201]n other
680 [153]"words, the computer does all of the
682 print"work--leaving you free to think, plan,
684 [153]"contemplate, and evaluate.  (NULL)ou are then
686 print"able to make sound financial decisions
688 [153]"based on accurate and reliable fiscal":[153]"information.
693 print"     [212]his system does it all--quickly,
694 [153]"easily, automatically.  peekest of all,
696 print"it is hundreds of dollars less than
698 [153]"what you would have to pay for an equiv-
700 print"alent system--if one were available.
704 [153]"     (NULL)ut your lenommodore 64 to work for":[153]"you!":[153]"
802 gosub10000:print"     [199]et [195][207][205][208][213][212][197]!'s [208][197][210][211][207][206][193][204][160][193][195][195][207][213][206][212][201][206][199]
806 [153]"(NULL)atn(NULL)atnchr$val(NULL) at your favorite bookstore or
816 print"call toll free: 1-800-346-6767":print"$12.95
822 [153]"right$(NULL)peek(NULL) 0-87455-014-9":[153]"atn complete home accounting system.
827 print"([193] disk is also available if you don't
828 [153]"want to type the programs)":[151]bo,aa:[151]ba,bb:[151]646,cc
838 [151]53272,21:[151]808,237:[153][199](14):[151]649,10:[129]i[178]1[164]13000:[130]
900 a$[178]"l(NULL)"[170][199](34)[170]"mn"[170][199](34)[170]",8:"[170][199](131)
910 [129]a[178]1[164][195](a$):[151] 630[170]a,[198]([202](a$,a,1)):[130]:[151] 198,a
920 [153]"load(NULL)val(NULL)(NULL)atnstr$right$(NULL)chr$close(NULL)val(NULL)(NULL)":[128]
10000 tb[178]ti:[139]tb[171]ta[179]200[167]10000
10001 [153]:[153][163]9)"(NULL)(NULL)val(NULL)(NULL)close'len'close(NULL)(NULL)closelen(NULL)(NULL)(NULL)right$(NULL)(NULL)val
10002 geta$:ifa$=""then10002
10003 ifa$<>"c"then10002
10004 ta=ti:print"[147]":return
11000 pokebo,7:pokeba,7:poke646,6:print"[147]
11012