The Color Accountant

Quickbooks University

Quickbooks Online Accountant Training

Get Instant Access

With our complete home accounting system, keeping track of your finances can be as easy as PI.

1. Chart of Accounts Maintenance

2. Complete Checkbook Maintenance

3. Tax Deduction Hags

4. Net Worth Statement

5. Income Less Expense Statement

6. Complete Graph Package (graphs any files)

7. Payments and Appointments Calendar

8. Home Budget Analysis

9. Mailing List

10. Schedule 1040 (Long Form)

All programs are menu-driven and allow add/change/delete. Also, all files and statements can be listed to screen or printer, and saved to cassette or diskette. The cost of THE COLOR ACCOUNTANT is $75 for cassette and $80 for diskette. This package requires I6K except lor the ATARI 400/800 which requires 24K for cassette and 32K lor diskette. THE COLOR ACCOUNTANT also comes with 40 pages of documentation.

the programmer's program MSm/

IX) you know all the innovative ways of using BASIC commands? The staff at the Programmer's Institute have designed a set of programs explaining everything the manuals omit. The Programmer's Program leads you step by step through the fundamentals of programming your computer. Then you explore the finer points, multiple loops, queues, stacks, game programming, sorts, trees. booWan loyyc, and memory sa>ers. All these mcfntxjs make your programming tasks easier and more efficient.

Difficult (and very useful) programs arc created before your eyes, and designed so you learn at your own speed! The Programmer's Program is a must for eterv owner of a microcomputer. ($50 cassette, $55 diskette).

Order both The Programmer's Program and 1 year's subscription and the total cost is only $75 cassette. $100 diskette. If you order now, you will receive a Football Program and Computerized Telephone Directory ABSOLUTELY FREE with any $75 order. So don't wait . . . order today! _

THE PROGRAMMER'S INSTITUTE

A Kuturehouse Compan>

Chapel Hill, N.C. 27514 (919)489-2198 MC & Visa Welcome Name ___

City/St

I I Programmer's Program I 'Year Subscription I ! Color Accountant I I 'A Year Subscription Type of Computer: I I Trial Issue

_ I ICas-sette I ¡Diskette

ATARI, IRS-80, and APPLE arc trademarks ol the Atari, Tandy, and Apple Corp. The Programmer's Program, I RC . Appletrec, Magatan, and The Color Accountant arc trademarks of the Programmer's Institute. _

•All software available on cassette for ATARI 4<X)/800. APPLE 11+ .MODEL I, III, COLOR. On diskette lor ATARI 4tt)/W)0. AI'PLI ll + .MODEI 111.

.. modify the periods listed but modify all 88 to preserve relationship.

Program Listing 2 Continued

152 DATA 154, 10

153 POKh;16562 , 122: POKE 16561, 103: CLEAR100: F0RZ=31336T032767 : READX :S=S+X:POKEZ,X:NEXT

155 IFS=96246THEN300 ELSE PRINT"BAD CHECKSUM IN DATA":STOP 160 DEFINTC-Z:P0KE16527, 122:P0KE16526,104:K=2500:PC=0:D=1:AB=1.4 9:DK=1230:EK=-8830

170 CLS:G=0:INPUT"TEMPO 1 TO 20 (1 IS FASTEST)";AP:AT=.479*AP:RE STORE

180 IF G=0 READ NT$,B ELSE READNT$

185 IF LEN{NT$)=2 0RLEN(NT$)>3 THEN PRINT NT$;" BAD":STOP: 'dele TE THIS LiNE AFTER DEBUGGING 190 IFLEN(NT$)=1THEN230 195 BC=B-AB

205 IF A>65535 THEN CLS:PRINT"BC*AT PRODUCT";BC*AT;"TOO LARGE":S TOP:'DELETE THIS LINE AFTER DEBUGGING 210 IFA<3276 8THEND=AELSED=A-65536

215 PRINTNT$;B,: 'DELETE THIS LINE AFTER DEBUGGING DATA

220 F=USR(P):GOTO180

230 L=VAL(NT$) : IFLO0THEN270

240 RK=B*AP:IFRK<8THENF0RZ=1T0 INT(5*AP):NEXT:GOTOl80 250 AD=DK*RK+EK:D=0

255 IFAD>65535 THEN PRINT"RK VALUE";RK;"IS TOO LARGE":STOP:'DELE TE THIS LINE AFTER DEBUGGING

260 IFAD<3276 8THENP=AD:F=USR(P):D=1:GOTOl80 ELSEP=AD-65536:F=USR (P):D=1:GOTO180

270 IFL=1ANDB>0THENG=1:GOTOl80ELSEIFL=1THEN170 280 IFL=2THEN350

290 IFL=3THENB=.2*B:GOTOl80ELSEIFL=4THENB=.5*B:GOTOl80ELSEIFL=5T HENB=.b*B:GOTOl80ELSEIFL=6THENG=0:GOTOl80ELSEIFL=7THENB=1.25*B:G OTOl80ELSEIFL=8THENB=2*B:GOTOl80ELSEIFL=9THENB=5*B 300 CLS:PRINT"MUSIC GENERATOR READY FOR RUNNING":DELETE1-155 310 F=USR(USR(VARPTR(NT$))):FORZl=lTODR:NEXT:RETURN

350 'SPECIAL EFFECTS FOR CHOPIN "BERCEUSE"—TREBLE CLEF—

351 ONBGOTO40 0,500,600,650,700

400 N=INT(.45*AP):D=13:DR=15:READNl$,N2$ 410 FORZ=lTON

420 NT$=N1$:GOSUB310:NT$=N2$:GOSUB310:NEXTZ 430 NT$=N1$:GOSUB310:GOTOl80

500 N=INT(.45*AP):D=13:DR=15:READNl$,N2$,N3$ 510 FORZ=lTON

520 NT$=N1$:GOSUB310:NT$=N2$:GOSUB310:NEXTZ:N=N/2 530 FORZ=lTON

540 NT$=N3$:GOSUB310:NT$=N2$:GOSUB310 550 NEXTZ:NT$=N2$:D=32:GOSUB310:GOTO400

600 FORZ=lTOl38:READNT?:P=USR(VARPTR(NT$)):D=3510/PC:F=USR(P):FO RZ1=1T0DR:NEXT:NEXTZ

610 F0RZ=1T022:READNT$:P=USR(VARPTR(NT$)):D=3000/PC:F=USR(P):FOR Zl=lTODR:NEXT:NEXTZ 620 GOTOl80

650 F0RZ=1T09:READNT$:P=USR(VARPTR(NT$)):D=2600/PC:F=USR(P):FORZ 1=1T0DR:NEXT:NEXTZ:GOTOl80

700 F0RZ=1T072:READNT$:P=USR(VARPTR(NT$)):D=3510/PC:F=USR(P):F0R Zl=lTODR:NEXT:NEXTZ:GOTOl80

1000 'DATA FOR CHOPIN "BERCEUSE" TREBLE CLEF

1010 DATAFN4,24,EF4,8,AF5,8,FN4,8,EF4,8,FN4,8,DF4,8,BF4,8,CN4,8, EF4,8,AF4,8,DF4,14,1,8,EF4,GF4,BF5

1020 DATAAF5,GF4,FN4,EF4,DF4,EF4,FN4,CN4,BF4,EF4,AF5,FN4,EF4,FN4 ,DF4,BF4,CN4,EF4,AF4,DF4,BF4,EF4,GF4,BF5,AF5,DF5,BF5,GF4,CN5,AF5 1030 DATAFN4,BF5,GF4,EF4,AF5,FN4,EF4,FN4,DF4,BF4,CN4,EF4,4,AF4,F N3,DF4,EF3,DF3,DF4,EF4,CN4,GF4,BF4,BF5,GF4,AF5,FN4,DF5,EF4,BF5,D F4,GF4,DN4,CN5,AF4,AF5,AF4,6

1040 DATAAF5,2,AF4,22,AF5,2,AF4,6,AF5,2,AF4,6,FN4,2,AF4,6,EF4,2, AF4,6,FN4,2,AF4,6,DF4,2,AF4,6,BF4,2,AF4,6,CN4,2,AF4,6,EF4,2,AF4, 6,AF5,2,AF4,6,CN4,2,AF4,6,DF4,2,AF4,6

1045 DATADN4,2,AF4,6,EF4,2,AF4,6,EN4,2,AF4,6,FN4,2,AF4,6,BF5,2,A F4,6,GN4,2,AF4,6,AF5,2,AF 4,6,BF5,2,AF4,6,GF4,1.7,GN4,1.7,AF4,4.6 1050 DATAFN4,1.7,2,1,AF5,BF5,1,2,GN4,AF5,DF5,BF5,FN4,GF4,CN5,AF5 ,EN4,FN4,BF5,GF4,DN4,EF4,AF5,FN4,CN4,DF4,GF4,EF4,BN4,CN4,FN4,DF4 ,AN4,BF4,EF4,CN4,GN3,AF4,CN4,BF4,GN3,AF4,BF4,CN4,DF4,EF4,FN4,GF4 1060 DATAGN4,AF5,AN5,CF5,BF5,CN5,BN5,DF5,CN5,DN5,DF5,EF5,DN5,FF5

Program Listing 2 Continues

Was this article helpful?

0 0

Post a comment