910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UR$"":UI$"":UO,0 *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN MORTGAGE"@" 2. INSTRUCTIONS"&E" 3. TEACHER INSTRUCTIONS"SJ" 4. MODIFICATION OF PROGRAM"oO" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: INPUT ROUTINE_(UR$)1300`US$""0c(UR$)1000,400,500,600,3969h300` ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS ** "":UT,UL%:(50003)053281,0:53280,0AUP0:UG$"NSTRUCTIONS":850l" HIS PROGRAM MAY BE USED TO"CALCULATE VARIOUS INFORMATION ABOUT"MORTGAGE AMORTIZATION, PAYMENT, ETC.":10000:835:850:" HE USER IS FIRST REQUIRED TO "0"ENTER CERTAIN NECESSARY DATA, WHICH`"SERVES AS THE BASIS OF THE CALCULATIONS"HEN ENTERING THIS DATA, THE USER"WILL BE GUIDED BY THE COMPUTER AS TO"EXACTLY WHAT IS REQUIRED TO BE ENTERED."HEN ENTERING NUMBERS DO NOT INCLUDE ">"DOLLAR ($) OR PERCENT (%) SIGNS."" FTER ENTERING THE DATA, PRESS  THE Β KEY.835:850" F DESIRED, THE COMPUTER WILL THEN""DISPLAY TABLES FOR THE AMORTIZATION"OF THE LOAN, BASED ON THE INFORMATION8"THAT YOU HAVE ENTERED.g" HIS PROCESS MAY TAKE QUITE SOME ""TIME TO COMPLETE. F AT ANY TIME"DURING THIS PROCESS YOU WISH TO STOP,"SIMPLY PRESS THE Œ KEY TO EXIT"TO THE . 835:850:" URTHERMORE, IF WHILE ENTERING"g"THE DATA YOU WISH TO RETURN TO THE""MENU, PRESS ."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850J" O THE BEST OF OUR KNOWLEDGE,"s" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES" " 3370 HARMACY VE.-" GINCOURT, NTARIO"O" ANADA 1 24"o" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: ORTGAGE" RITTEN Y : IM UTTERFIELD" PGRADED Y : OHN OSSLING'" HIS PROGRAM WILL RUN ON ANYF" 64 k" 64 tD835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850b"'I=(1+I1/200)^(1/6)-1'(CANADA STANDARD)"Ge" HIS PROGRAM IS SET UP TO PERFORM"th"INTEREST CALCULATIONS BASED ON SEMI-k"ANNUAL COMPOUNDING AND MONTHLY PAYMENTSn"HIS IS THE STANDARD METHOD FOR ."q835:850t" F YOUR APPLICATION REQUIRES A "<w"VARIATION OF THE FORMULA USED, YOU "ez"MAY MAKE THE REQUIRED CHANGES IN}"LINE 1370. URRENTLY THAT LINE SHOULD"READ : 1370 I=(1+I1/(2*100))^(1/6)-1."HERE:"" I1 = THE INTEREST RATE (%)&" 2 = THE # OF COMPOUNDINGI" PERIODS PER YEARn" 6 = THE # OF PAYMENTS" PER COMPOUNDING PERIOD835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 K" LOAD THE 'CBM 4032' PROGRAM"VUU71\ ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"1093:  ** T I T L E P A G E **,""";:UT,UU%:(50003)053280,14:53281,6B$I138:"";:Z&I122:"";:r(I137:"";:*I122:"";:," ."  0" 2" 84"C O M M O D O R E[6"EDUCATIONALz8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@3008C ** SPACE BAR PRESS **kDFL1(UD$,23)" EXIT - PRESS E"tEFJ0H(UD$,24);"PRESS SPACE BAR TO CONTINUE":UO,0IUI$:KFL1UI$"E"FL0:FJ1:LUI$" "841NFL0: R ** PAGE DESIGN ROUTINE ** TUPUP1J W""(UT$UP$,21);(UP$UG$(UP),18)y \" --------------------------------------" `UH0870 a(UD$,24);(UP$,7);"HELP - PRESS H " fUH0:"": k ** PLEASE WAIT REMARK **"!p(UD$,24);" ONE MOMENT PLEASE... "(!uE! ** SET UP VARIABLES **!UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024!UT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0:UO158"(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048P"(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198t"UD$"""UP$" ""UT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***"# ** SET VARIABLES **#900B# M$(12):S$" ":LS14[# J1 12: M$(J):v# ** CHECK FOR 8032 **#"":"": SHIFTED SPACE#(UB40)96700# ** MEMORY CHECK **# (0)2000937$"THIS MACHINE DOES NOT HAVE ENOUGH"*$"MEMORY TO RUN THIS PROGRAM !"5$UU71;$U$"":(50003)0962$ ** BASIC 2.0 OR 4.0 OR C-64 SETUP **$1075,133:1076,144:1077,234:1079,4:1080,133:1081,145$1091,155:1098,133:1099,144:1100,234:1103,133%1104,145:1105,234:1082,2341%(50003)160955`%1093,88:1094,228:1097,85:1102,228:965u%(50003)1990%1093,49:1094,230:1097,46:1102,230:965%2099,141:2100,20:2101,3:2103,8:2104,141:2105,21&2106,3:2115,145:2117,52:2118,234:2121,49:2122,141T&2123,20:2124,3:2126,234:2127,141:2128,21:2129,3r&UU48: DISABLE STOP KEY&800: TITLE&300: MENU&"THE PGM WILL NOT WORK ON THIS MACHINE!":&UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **%'"";::(50003)053281,6:53280,14A'UT$" MORTGAGE":UT,UU%Q' MORTGAGEh' JIM BUTTERFIELD' TORONTO PET USERS GROUP' DONATED TO CUE BY B.GODFREY''$ CALCULATES MORTGAGE PAYMENTS'.'8 PET 8K'B<(L" ݠ SAN MATEO COUNTY (V" OFFICE OF EDUCATION & (`" COMPUTER-USING EDUCATORS SOFTSWAP &)j" t)t"333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401)~" *" PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE ONLY AND ^*" ARE NOT TO BE SOLD. }*UP0:UG$"DATA ENTRY":850*1360* "*** MORTGAGE ***"*"IF DESIRED, THE PROGRAM CALCULATES"*"AMOUNT OF MONTHLY PAYMENT"+"THEN PAYMENT TABLES ARE PRINTED."D+"NOTE: LINE 1370 WORKS OUT INTEREST"n+"ON 'COMPOUNDED SEMI-ANNUAL' BASIS"+"'I=(1+I1/200)^(1/6)-1'(CANADA STANDARD)"+:+"..CHANGE TO SUIT YOUR LOCALE, E.G.,"+ "FOR MONTHLY COMPOUNDING USE:" ,"'I=I1/1200'"B, JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,P"ENTER ANNUAL INTEREST RATE (%) ";:UL5:US$"H0123456789.",U"";:35:I1(UR$):I125I11"":1360,ZI(1I1(2100))(16)1-d"SHALL I FIND PAYMENT AMOUNT? (Y/N) ";:UL1:US$"YN":35(-iZ$UR$A-n (Z$,1)"N" 1480-x"LENGTH OF LOAN (IN YEARS) ";:UL4:US$"H0123456789."-}35:Y1(UR$):Y140Y1.06"":1400-YY112:RII((I1)Y1)."PRINCIPAL AMOUNT ($) ";:UL10:35:5.A1(UR$):A15E6"":1420H.A(A1100.5)X.P(AR.5)f.XP:1720~. "PAYMENT=";X$."SCHEDULE FOR THIS? (Y/N) ";:UL1:US$"YN":35:Z$UR$. (Z$,1)"N" 1760. 1510+/"PRINCIPAL AMOUNT ($) ";:UL10:US$"H01234567"F/US$"H0123456789.":35i/A1(UR$):A15E6"":1480|/A(A1100.5)/"NUMBER OF PAYMENTS? ";:UL4:35:Y(UR$)/"AMT. OF EACH PAYMENT ($) ";:UL8:35:0P1(UR$)0P(P1100.5)U0 "MONTH OF FIRST PAYMENT? ";:UL3:US$"":35:Z$UR$d0Z$(Z$,3)0 J1 12: Z$M$(J) 15500 J:"": 15100"YEAR? ";:UL4:US$"0123456789H":35:Y3(UR$)0Y33000"":15500UP0?1UPY31:UG$" YEAR":LS11:UH1:850:LS14:(UD$,25)UP$""l1 "BALANCE =$";A100;23)"RATE =";I1;"%z1"I30:P301, "MTH INTEREST PAYMENT BALANCE"1. " "16I2(IA.5): PAI2 PAI2 2@AAI2P<2JXI2: 1720:I$X$:XP: 1720:P$X$:XA: 1720^2T"";M$(J);(S$,12(I$));I$;2^(S$,12(P$));P$;(S$,11(X$));X$2hI3I3I2:P3P3P:YY1:JJ12r J13 Y0 A0 15902|XI3: 1720:I$X$:XP3: 17203 "TOT";(S$,12(I$));I$;(S$,12(X$));X$;""73 Y0 A0 1760Y3Y3Y31:J1:FL1:835:FJ1d3 1560s3A$((X))3 (A$)3 A$(A$,1)"0"(A$,1)3X$(A$,(A$)2)"."(A$,2)33835:3'" HIS PROGRAM WILL COME4'"IN HANDY FOR HOME BUYERS, AS WELL "04$'"AS STUDENTS.64.'A$,2)33835:3'" HIS PROGRAM WILL COME4'"IN HA