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