May June 1980 - Commodore Computers

More documents

Recommendations

Info

(:: Authorized Dealers OKLAHOMA ■• AUWO AUOIO HORIZONS 3707 E Frank Phillips Barllesville Bartlesville 74003 918-333-7748 918·333·7748 '• BRADFOfiD 8IWJ'ORO BROTHERS BAOTH(fIS 507 507 SS. Mam Main Tulsa Tulsa 74103 74 103 918-584-4558 COMPUTERLAND COMPUTERLAHO 10621 North <strong>May</strong> Ave Oklahoma City Cily 73120 405-755-S200 0405-755-5200 COMPUTER COMl'UTEJI SYSTEMS'\ A SOFTWARE 928 N. N. York « = 19 19 Muskogee Muskogee 74401 74401 918-687-3161 •TELCOM.INC • TR -COM, INC. 727 721 NN. Brauer Ave Ave. Oklahoma City 73106 405-232-2035 405-232·2035 OREGON OREGON •ANCHONA · 1125 '""""' 11 25 NE 82nd Awe Ave Portland Portland 97220 97220 503-254-5541 COMPUTERLAND COMPUTERl.AHD 12020 SW Main St 51 Tigard 97223 503-620-6170 503-620·6170 • COMPUTER PATHWAYS 831 Lancaster Dr NE Salem 97301 503-399-0534 503-399·0534 • COMPUTER COMP1JTER PATHWAYS PATIfWAYS UNLTD UNLIO 2151 Davcor Daveor SE Salem salem 97302 503-363-8929 PENNSYLVANIA • A B8 COMPUTERS USE 11 5 E. Slump Road Montgomeryville 18936 2215-699-B386 15-699-8386 •CAHH • CARR ELECTRONICS EUCTAON1CS Main & Reliance Telfoid Telford 18969 215-723-3831 215-723-3B31 CENTURY SYSTEMS. INC 57 5711 11 Sixth SiKih Ave Aliona Altona 15602 B B14-946-4361 • CHtPS CHIPS "N N DIP , 4820 Anne Lane Sharpsville 16150 41 412-962-9682 THE OOMPUTrR COMPUTER HOUSE 1000 GGreentiee reentree Aoad Road Plt1sburgh Pittsburgh 15220 41 412-921-1333 COMPUTERLANO COMPUTERLAND 4644 Carlisle Pike Mechanicsburg 17055 717-763-1116 COMf'UTERlAHO COMPUTERLAND 61 81 e E Lancas.er Lancaster Ave Paolo Paoli 19301 215-296-0210 COMPUTERLAND COMPUrERlAHO BORDER ELECTRONIC TRONIC SERVICE S£IIVlCE UTAH 1457 MacArthurRd Rd. P. P. 0. o. Box BOll 3804 BYTE SHOP Whitehall 18052 El EI Paso 79923 W. 215-776-0202 2 915-532-2524 2524 3616 w. 2100 South -- Salt Sal! Lake Cily City 84120 GLOSSEH GlOSSUl BROS. COMPUTERLAND COY.PUTfRl.I;ND 801-355-1041 801-355· 1041 Franklin & a Locusi Locust Sts 3300 Anderson Am~e'son Lane COMPUTER DATA Johnstown 15901 1590t Austin AuS lin 7B757 76757 COMi'\JTER OATA SYSTEMS lOOONorih 314-536-6633 8 512-452-5701 695 E 1000 Norlh Logan L~an 84321 'MARKETLINE • MARXETUNE SYSTEMS SYS~ COMPUTERLAND 801-753-6990 - 2337 Philmont Ave \Ie 8061 806' WalnuiHillLn. W8Jnut HID =3 # 912 'SdMPUTERHUB Huntingdon Hunlingdon Valley V 19006 Dallas DaKu 75231 7523' COtt.i'\JTER - 214-363-2223 5899 S State 215-947-6670 214-363·2223 ~s Stale ■Murray Ml.tray B4107 84107 •• MICRO t.OCAO COMPUTER roMPUTEJAPPUtATIIIIS APPLICATORS COMPUTERLAND "',.,"',.""" 801-262-5416 262·54 16 806PennAv~ Avenua 6439 ~9 Wesltieimet Westhelmer COMPUTERLAND Sinking Spring Spri!'lO 1960S 11808 Houston 77057 TERtANO € South 215-670-1300 2 15-670-1300: 713-977-0909 713-977·0909 161 lO. 2nd Soulh Salt Sail Lake City C ity 84111 111 '• MIGHTY MIGHfY BYTE 8YlE COMPUTER &..utm CENTB1 CENTER COMPUTBU-AND COMPlJTER1AIt~l 801-364-4416 537 Easion Easlon.Rd·Hotsh8m Rd-Horsham Pi. PI. 17647 El EI Camino Ca~no Real COMPUTER Horsham 19044 1,9044 Houston HOuslon 77058 77'158 THE PUIf.R WORKS ]f.'"'' S. Stale 215-348-4848 2 15-348-..4848 713-488-8153 713.:..t88.815~ 735 Slale SI Provo-84601 8-4601 COMPUTERLAND r-374 -0204 PUERTO RICO 801-314·0204 1535 Promenade Center Cenle!" """""""" ' THE tii-Fl • MICRO M COMPUTER ~STOIl STORE Richardson RIChardson 75080 ·T ~tIl.fl SHOP Wasnmglon 1568 Avenue Central Cen1tal 214-235-1285 2236 W aShington Blvd. Ogtten 84401 Caparra. Terrace, :rerrace. Rio Piedfas PIe
MAY/JUNE, I <strong>1980</strong>, I960. ISSUE 4. COMPUTE. 19 Keeping Up The Payments Basically Useful Keeping Up The Payments Robert Lock OCk BASIC DAvIv Programs furnished by Marvin L. Dejong, DaJong, School of TheOzorks TheOzarks I decided to use this highly useful l SCI set of" programs furnished by Dr. Marvin L. Dejong to illustrate some poi nt s to you beginning Atari/Apple/PET Owners. points to you beginning Atari/Apple/PET Owners. Much off thee Basic software we provide in this magazine is easilyy transferred for use oonn your own machine, even though it may be presented by a PET owner, an Atari owner, etc. 'rhese These programs, developed on (I assume) the AIM-65, will run without revision on your Apple, Alari, Atari, or PE'T'. PET. Your re:;u results il :; will differ slighliy, slightly, a variation ation caused by your particular Basic interpreter, bUl but the program code ilself itself is transparent. In future issues, we hope (Q to solicitt the help of you readers in maintaining Ihe the flow of software for various machines, machines. Thus, when we print an extensive ensive program for PET' that one of you sits s down and modifies to run on your Apple, , please case send me a copy (al (at leasl least the mods), so we can update in a lalcr later issue for Apple owners, owners. I'd like to devotc devote a section of the magazine c to (Q "listingg reruns" if the e demand warrants. One option, I suppose, would be to simply y cover techniques for conversion, with occasional routines rOlltines that provide some 10 REM REfl PROGRAM PROGRAfl 1- CALCULATES THE BALANCE OF A LOAN AFTER N PAYMENTS. A LOAN AFTER N PAYMENTS. 20 PRINT "ENTER YOUR CURRENT BALANCE." 30 INPUT BAL0 40 PRINT "ENTER THE NUMBER OF PAYMENTS." " 50 INPUT N 60 PRINT "ENTER YOUR MONTHLY flONTHLY PAYMENT." ." 70 INPUT PMT 70 INPUT PMT 80 PRINT "ENTER YOUR ANNUAL I NTEREST RATE 80 PRINT "ENTER YOUR ANNUAL INTEREST RATE IN PERCENT." 90 INPUT APR 100 I=APR/1200 120 DUMY=BAL0 120 DUMY=BAL0 130 FOR J=1 TO N 130 FOR J=l TO N 140 BAL0=BAL0*(1+I)-PMT 150 NEXT J 150 NEXT J 160 NT=N*PHT- (DUMY- BAL0) 160 NT=N*PMT-(DUMY-BAL0) 170 PRINT "YOUR BALANCE AFTER ";N;" PAYMENTS IS 5";BAL0 $ ";BAL13 180 PRINT "YOU PAID S";NT;" $1t IN INTEREST." . " 190 END 190 END ENTER YOUR CURRENT BALANCE. . ?3000 ENTER THE NUMBER OF PAYMENTS. PAYHENTS . ?23 ENTER YOUR MONTHLY HONTHLY PAYMENT. ?143.79 .79 ENTER YOUR ANNUAL INTEREST RATE IN PERCENT. . ?10.8 YOUR BALANCE AFTER 23 PAYMENTS IS 530.3651184 $30.3651184 YOU PAID $337.535119 IN I N INTEREST. equivalency across machines. Please take the time e 10 to note your thoughls thoughts on this on the Editor's Feedback card in the center of the magazine, magazine. My thanks La to Marvin for the programs. A hit bit f!f of "ediloria/liunse": "tUtorial license": When l.''' I kl.'}'td keyed ill in tlieu these /)rQ,t!,rams programs for r{'/)rodlleli(m, reproduction, I lril.'d tried 10 to prt!Jl.'rve preserve Iheir their or(t!,ill(J1 originalflllllor. flavor. }'vu You should 1I0ie note lIial that I look took tilt the libcrlJ' liberty (jf of IIlltl,t!,;II.t!, nudging lilies /inn IhiJI that wert were too lon.1.! long ova over inlo into (J a nOIl-lXisll.'l1/ non-existent (onlilllwfivn continuation lille, line. If ) you 'Oll 're just slartill.1! starting ouf, out, dOli don'f t I,)' try 10 to enter I/'r the prugram program thaI that wa)'- way... ) you '0 11 'It 'II hUllt hare bla"ks blanks ill i?i ),our your oUlpul output (or worse). EXil Example: lllph.: : Program 2, Line 60. A'~) My' Iiiit' line s},mw: shows: 60 PRINT ""ENTER YOURR INTEREST RATE ELATE IN PERCENT." ENT ," \"Jhell When )'ou'rc you're keying in the pro.l.!ram program, , you should type it like this: 6U 60 PRINT "ENTER ■ENIER YOURR INTEREST RATE IN PPERCENT."(press ERCENT, carriage return) Cleor Clear 1.' enough? 1U1I.l.!h? 10 REM PROGRAM 2- CALCULATES THE flONTHLY MONTHLY PAYMENT TO AMORTIZE A LOAN PAYMENT TO AMORTIZE A LOAN 20 PRINT "ENTER THE NUflBER NUMBER OF PAYMENTS." 30 INPUT N 40 PRINT "ENTER THE BALANCE OF THE LOAN." 505 0 INPUT BAL0 60 PRINT "ENTER YOUR ANNUAL INTEREST RATE IN PERCENT." " 70 INPUT APR 70 INPUT APR 80 I=APR/1200 90 PMT=BAL0*I*(1/(1-(1+I)t(- PMT=BAL0*I*(1/(1-(1+I)T(-N))) 100 PRINT "YOUR PAYMENTS ARE $";PMT 100 PRINT "YOUR PAYHENTS ARE $";PMT 110 NT=N*PMT- BAL0 110 NT=N*PMT-BAL0 120 PRINT "YOU PAY $";NT;" IN INTEREST." 130 END ENTER THE NUMBER OF PAYMENTS. ?23 ENTER THE BALANCE OF THE LOAN. 73000 ?3000 ENTER YOUR ANNUAL INTEREST RATE IN PERCENT. ?10.8 ?10.8 YOUR PAYMENTS ARE $144.984191 YOU PAY $334.636391 IN INTEREST. YOU PAY $334.636391 IN INTEREST. 10 REM REfl PROGRAM 3- CALCULATES THE NUMBER NUflBER OF PAYMENTS TO AMORTIZE A LOAN 20 PRINT "ENTER THE CURRENT BALANCE." ." 30 INPUT BAL0 4400 PRINT "ENTER YOUR MONTHLY flONTHLY PAYMENT." 50 INPUT PHT 5 0 INPUT PMT 60 PRINT "ENTER YOUR ANNUAL INTEREST RATE IN PERCENT." IN PERCENT . " 70 INPUT APR 70 INPUT APR 80 I=APR/1200 90 N=~(LOG(1-BAL0/PMT*I))/LOG(I+l) N=-(LOG(1-BAL0/PMT*I)) / LOG(I+1 ) 100 1130 PRINT "YOU HAVE ";N;" PAYMENTS PAn1ENTS TO MAKE." 110 0 NT=N*PMT-BAL0 NT=N*PfIT- 120 PRINT "YOU WILL \HLL PAY $";NT;" $tt;NT;" IN INTEREST." 130 END 130 END ?ENTER THE CURRENT BALANCE. ?3000 ENTER YOUR flONTHLY PAYfIENT. ?l43.79 ENTER YOUR ANNUAL INTEREST RATE IN PERCENT . 7ENTER THE CURRENT BALANCE. ?3000 ENTER YOUR MONTHLY PAYMENT. 7143.79 ENTER YOUR ANNUAL INTEREST RATE IN PERCENT. 710.8 ?10 . 8 YOU HAVE 23.2123282 PAYMENTS PAYHENTS TO MAKE. HAKE. YOU WILL PAY $337.700665 IN INTEREST. © YOU l'lILL PAY $337 .700665 IN INTEREST. ©
Page 1 and 2: MAY / JUNE 1980 ISSUE 4. $2.00 MAY/
Page 3 and 4: ow you can add high resolution grap
Page 5 and 6: MAY/JUNE, I NE. 1980. I960. ISSUE 4
Page 7 and 8: MAY/JUNE. 1Q80.ISSUE I960. ll. 4 CO
Page 9 and 10: MAY/JUNE, I JUNE. 1980. ISSUE 4. 4
Page 11 and 12: Take the mystery lake the mystery o
Page 13 and 14: MAY/JUNE. I 1980 198O ISSUE .d. &.
Page 15 and 16: MAY MAV/JUNE. I 1980 198O. ISSUE 4.
Page 17 and 18: ' nrnauui J Authorized Dealers APRI
Page 19: ■ ■ (:: Authorized Dealers •
Page 23 and 24: MAY/JUNE. I 1980. ISSUE 4. COMPUTE.
Page 25 and 26: MAY/JUNE. 1980 198O ISSUE 4. 4 COMP
Page 27 and 28: THANKS FOR THANKS FOR THE MEMORIES.
Page 29 and 30: MAY/JUNE. I 1960. 198O. ISSUE 4. CO
Page 31 and 32: MAY/JUNE. . 198O. 1980. ISSUE 4. CO
Page 33 and 34: MAY/JUNE, . 1980. ISSUE 4. 4 COMPUT
Page 35 and 36: MAY/JUNE, MAV/JUNE. 1980 , ISSUE 4,
Page 37 and 38: MAY/JUNE. MAV/JUNE. 1980 198O. . IS
Page 39 and 40: MAY/JUNE. WAY/JUNE. 1980. I960. ISS
Page 41 and 42: MAY/JUNE. I lQBO 1980. ISSUE 44. CO
Page 43 and 44: MAY/JUNE, I JUNE. 1980. I960. ISSUE
Page 45 and 46: MAY/JUNE, 1980 ISSUE A COMPUTE. 43
Page 47 and 48: MAY/JUNE. J980 I960. . ISSUE 4. COM
Page 49 and 50: MAY/JUNE. I 1980. 198O. ISSUE 4. CO
Page 51 and 52: MAY/JUNE. , 1980 1960. ISSUE 4. A.
Page 53 and 54: MAY/JUNE. 1980. 198O. ISSUE d. 4. C
Page 55 and 56: MAY/JUNE. 1980 ISSUE 4 COMPUTE. 53
Page 57 and 58: MAY/JUNE. , 1980 198O. ISSUE 4. COM
Page 59 and 60: MAY/JUNE. 1980. 198O. ISSUE 4. 4 CO
Page 61 and 62: MAY/JUNE, MAY/JUNE. 1980 198O ISSUE
Page 63 and 64: , A rt\\>sALL ~\uS'ALL NEW from MIC
Page 65 and 66: MAY/JUNE, I 193O 1980. ISSUE 4. COM
Page 67 and 68: MAY/JUNE. MAY/JUNE . 198O 1980 ISSU
Page 69 and 70: MAY/JUNE. MAY/JUNE, 19S0. 198O. ISS
Page 71 and 72:
'VlA MAY/JUNE. Y I 1980 198O ISSUE
Page 73 and 74:
MAY/JUNE. MAY/JUNE, 1980. 198O. ISS
Page 75 and 76:
MAY/JUNE. 1980 I960 ISSUE 4 COMPUTE
Page 77 and 78:
MAY/JUNE. 1980. 198O. ISSUE A. COMP
Page 79 and 80:
MAY/JUNE. I 198O. 1980. ISSUE 4. CO
Page 81 and 82:
MAY/JUNE. 1980. 198O. IS$UE ISSUE 4
Page 83 and 84:
MAY/JUNE. 1980 198O ISSUE 4 A. COMP
Page 85 and 86:
MAY/JUNE. . 1980. 198O. ISSUE .SSUE
Page 87 and 88:
MAY MAY/JUNE. I lQ8o. 198O. ISSUE 4
Page 89 and 90:
MAY/JUNE, I JUNE. 1980 ISSUE 4, 4 C
Page 91 and 92:
MAY/JUNE.1980 MAV/JUNE. 198O ISSUE.
Page 93 and 94:
MAY/JUNE. I 1980. ISSUE a. 4. COMPU
Page 95 and 96:
MAY/JUNE. I 1980. 198O. ISSUE A. 4.
Page 97 and 98:
MAY/JUNE. 1980. 198O. ISSUE 4. COMP
Page 99 and 100:
MAY/JUNE. . 19So. 198O. ISSUE 4. CO
Page 101 and 102:
MAY/JUNE. I 1980 I960. . ISSUE 4. 4
Page 103 and 104:
MAY/JUNE. I 1980. 198O. ISSUE 4. A.
Page 105 and 106:
MAY/JUNE, I JUNE. 1980. 198O. ISSUE
Page 107 and 108:
MAY/JUNE. I 1980. 198O ISSUE 4. COM
Page 109 and 110:
Said the Toolkit to the Word Proces
Page 111 and 112:
MAY/JUNE. I 1980. 198O. ISSUE 4, 4.
Page 113 and 114:
MAY/JUNE. I 1980. ISSUE 4. COMPUTE.
Page 115 and 116:
MAY/JUNE. MAY/JUNE, 1980. ISSUE 4.
Page 117 and 118:
MAY/JUNE, I JUNE. 1980. 198O. ISSUE
Page 119 and 120:
■ ■ ' MAY/JUNE, AY/JUNE. 1980 1
Page 121 and 122:
MAY/JUNE, I JUNE. 1980 198O. . ISSU
Page 123 and 124:
COMPUTE. COMPUTE. TM The Journal Fo
Page 125 and 126:
Dear MICRO-ED: Dear MICRO-ED: I wou
Page 127 and 128:
Look To MTU For 6502 System Expansi
show all

May June 1980 - Commodore Computers

Create successful ePaper yourself

Delete template?

Save as template?