01.03.2014 Views

Section 2 - Commodore Computers

Section 2 - Commodore Computers

Section 2 - Commodore Computers

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

1 REM AMORTIZE --BY —BY<br />

2 REM AMIHAI AMI HAI GLAZER<br />

3 REM UNI UNIV. V. OF CALIF.<br />

4 REM IRVINE,CA.92717<br />

5 DEF FNR(X)=INT(100* X+.5)<br />

/100 /lIl0<br />

100 PRINT PRI NT "{CLEAR}" {REV}AMORTIZE"<br />

"<br />

20 PRINT ""{03 DOWN}"<br />

DOWN}1'<br />

30 PRINT "NO. OF PERIODS"<br />

40 PRINT" " (IN MONTHS)"<br />

50 PRI.NT PRINT "N= ";:GOSUB 63990<br />

60 PRINT "ANNUAL %INTEREST EST RATE"<br />

RATE1<br />

70 PRINT "AR="; "AR=H;:GOSUB 63990<br />

80 MR=AR/1200<br />

90 PRINT "PRINCIPAL"<br />

90 PRINT "PRINCIPAL"<br />

95 PRINT "P=";: "p=";: GOSUB 63<br />

990<br />

990<br />

100 PMT=(P*MR)/(I-(I+ PMT=(P*MR)/(!-(!+ MR)"(-N)<br />

)<br />

105 PMT =FNR(PMT)<br />

110 PRI NT " (02 DOWN}PMT=" , F<br />

110<br />

PMT =FNR(PMT)<br />

PRINT "{02 DOWN}PMT=", F<br />

NR(PMT)<br />

PRINT "{DOWN}PRESS RETURN KEY"<br />

PRINT "TO CONTINUE OR STOP"<br />

III 111 PRI NT" {DOWN}PRESS RETURN KEY"<br />

112 PRINT "TO CONTI NUE OR STOP"<br />

113 GETA$:IF AS AS="" A$="" THEN 113<br />

120 PRINT "{02 DOWN}"<br />

120 PRINT "{02 DOWN}"<br />

130 FOR 1=1 TO N<br />

132 GET A$:IF A$=""<br />

132 GET AS : IF AS=""<br />

o 0 140<br />

134 GET AS: A$: IF AS A$""<br />

o 0 134<br />

136 GET AS:IF A$:IF AS A$=""<br />

o 136<br />

0 136<br />

140 RDUE =FNR(P*MR)<br />

THEN GOT<br />

THEN GOT<br />

THEN<br />

GOT<br />

150 CUMR=FNR(CUMR+RDUE<br />

160 P=P-PMT+RDUE<br />

170 PRINT "(REV}MONTH=";I<br />

"{REV}MONTH=";I<br />

180 PRINT" " PRINCIPAL =";FNR(P)<br />

190 PRINT" " TOTAL IINT.="; (CUMR)<br />

200 PRI NT " INT. DUE =" (RDUE)<br />

200 PRINT " INT. DUE =" ; (RDUE)<br />

210 NEXT I<br />

220 END<br />

63990 POKE 204,0:POKE , 0:POKE<br />

207,0:GET , 0 A$ AS<br />

639911 IF ASCHRS(13)<br />

A$OCHR$(13) THEN PRINT A$ AS ;<br />

:GOTO 63990<br />

63992 PRINT NT" " {WHT}""<br />

63993 PRINT "G063996 "GO63996""<br />

63994 POKE 63 1~1 45 : POKE632,145:P<br />

63994 POKE 631,145:<br />

POKE632,145<br />

OKE633, 145:POKE634<br />

5:POKE634, 145:P<br />

OKE 635,13<br />

OKE 635,13<br />

63995 POKE 636,145: POKE637,145:P<br />

OKE638, 13:POKEI9 8 , 8 :END<br />

OKE6 38, 13:POKE198,8:END<br />

63996 PRINT"{02 UP}":FOR ZZ =IT03:PR<br />

=1TO3:PR<br />

INT"{BLU}<br />

":NEXT:PR<br />

" :PR<br />

INT"{03 Up}" UP}"<br />

63997 RETURN ©<br />

63997 RETURN<br />

)1\.. PAYROLLF~~FTWARE<br />

SOFTWARE<br />

ATARI: ATARI~ THE the atari ATARI 800' boo-<br />

The MI LES PAYROLL SYSTEM I is the firs t of a series of business soltware for tile<br />

The MILES PAYROLL SYSTEM? is the first of a series of business software for the<br />

Atari Alari BOO 800*. ' . Atari* Alari" graphics and sound have been greatly utilized and a detailed and<br />

comprehensive manual leads Ihe the user step by step enabling a person with liNle litile elperience<br />

10 lo easily operate the entire entiie sol1ware software package.<br />

ex<br />

ge.<br />

-Randon • access lile tile IH'ga organization nizalion for lor fas" st updating of individual records<br />

-•Allows various payroll periods<br />

-C ■Calculates and prints s payroll checks automalica automatically l1y<br />

-M •Monihly. onthly. quarterly, . and yearly cumulative lolals totals maintained for each employee<br />

-User- •User-defined workman's 's compensation classilications si lications<br />

-•Complete reporting. reporting, including W·2 W-2 at end 01 ol vear year<br />

-•User-defined User·delined earnings and deductionss at al end 01 ol vear year<br />

•Automatic - data error detection<br />

defection<br />

-Packaged •Packaged in a lIandsom handsomee tllree three ring binder with diskettes and manual<br />

To order. ordef. or lor for more inlormation information: :<br />

Mile~ , #, ~t~~m~tnf.~,~PUTING MILES COMPUTING #<br />

U2S 3941 Owensmouth Ave. »202<br />

l .} 1M tm Canoga Park, . CA 91304<br />

(213)700-1166 700·1 166<br />

Special tc i ~ l in!rodu introductory clOfY price SI79 $119 95. Requires Raqunes 321( 32K 'nd and two Iwo Atui" Atari' 8101) disk Disk dllves. drives Payment Paymenl in<br />

U USS lunds funds required wilh with cwdu order Add 13.00 S3 shlpplng/handllng. shipping/hand ling Calitcwnla Calrforma rU residents ldenls ~dd add 6% sales ules<br />

la. lai Ouler Dealer Inquiries inquiries wlleome welcome .<br />

'Atarr 'Atari and Atari u l 81)O BOO are IrldelNrks trademarks 01 o< Alarl. Alan Inc.<br />

"Miles .M i le~ Computing and Miles Pavroll Payroll System Ire are Irademarks trademarks 01 ol Miles Computing. Canoga<br />

Park. . Cahlornll. California Not allrtr.aled altilialed with wild Atari. i, Inc. Inc,<br />

•<br />

)Il<br />

AlAR ATARII'<br />

. w<br />

....... ~-~ O<br />

»'wH'M'"i'»''i'wiiniii'i<br />

m<br />

400 16K ....................... .......... ... .. ................... $319.00<br />

400 16K $319.00<br />

400YOURSto32Kor48K<br />

or 48K .................................... CAll CALL<br />

800 (16K) .. ....................................................... 659.00<br />

410 RECORDER ................................................. 84.00<br />

810 DISK DRIVE ............................................... 449.00<br />

850 INTERFACE INITRFACE ............................................... 169.00<br />

830 MODEM .................................................... . 149.00<br />

825 PRINITR PRINTER .................................................... 575.00<br />

481 ENITRTAINER ENTERTAINER KIT ....................................... 85.00<br />

482 EDUCATOR KIT .......................................... 125.00<br />

483 PROGRAMMER'S KIT .................. ... .. ............. 60.00<br />

484 COMMUNICATOR KIT 309.00<br />

484 COMMUNICATOR KIT ..................... ............ 309.00<br />

I<br />

Prices subject to change without notice.<br />

Shipping extra. No tax out of state.<br />

Ca. residents add appropriate taxes.<br />

WE ARE AN AUTHORIZED ATARI SALES AND<br />

SERVICE CENITR<br />

CENTER<br />

F<br />

&<br />

COMPUTERTIME, INC.<br />

P.O. Box 216<br />

Kentfield. Kentfield, CA 94914<br />

CAlL CALL TOLL·FREE<br />

TOLL-FREE<br />

8()O.227·2520<br />

800-227-2520<br />

In California<br />

800-772·4064<br />

800-772-4064

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!