50,3:4,3,5: 100010,2,6:4,2,6D"":560:T10g""T)"1=MONTHLY PAYMENT""T)"2=HOW LONG TO PAY OFF""T)"3=HOW MUCH CAN I BORROW""T)"4=INTEREST RATE""T)"5=OTHER OPTIONS (570:970:K46002"":500:1<K100,200,300,400?d FIND PM[nPM P( I(1(1I)N))ppPM(PM100)100x:" PAYMENT= $"(PM)" PER MONTH"" RETURN FOR MENU ";A$:16 FIND TERMPMPI " REPAYMENT LESS THAN INTEREST8PMPI " - TRY AGAIN":199SN (1IPPM)(1I)dN(N10)10" TERM="N"MONTHS"+199, FIND PRINCIPAL0I09906PPM(1(1I)N)I@P(P.5)T" AMOUNT YOU CAN BORROW "%V" UNDER THESE CONDITIONS<X" = $";PI::199] FIND INT RATEoPM1N1990IPPM1990" I'M THINKING "I(PMP)(N2PPM)(1I)1.0000001990IPPM1990CN(1IPPM)(1I):CN(CN.5)*CNNII.00002?CNNII.00002MCNN480V450mI(12000I.5)10" EFFECTIVE INTEREST RATE"" "I"% P.A.(REDUCIBLE) "1994,14,3:560:P$"":I$"":N$"":PM$"":PO:I0:N0:PM0K3510:" PRINCIPAL";P$:P(P$)GP0990TK4518" INTEREST RATE";I$:I(I$)1200I0990K2K5528" MONTHS ";N$:N(N$) N1990K1550" MONTHLY PAYMENT ";PM$:PM(PM$)#PM.01990)&U0" "2"  L O A N A N A L Y S E R "4" ˒" ::" -<**>-"<" SELECT BY NUMBER THE"2>" ITEM YOU WISH TO KNOW ";a?X160:K$:K(K$):K1K9:ZZ1:"";~@(Z2)Z20960:"";BK1K9570CX"":560:" 6=CURRENT LOAN STATUS"\" 7=MONTHLY STATUS^" 8=YEARLY STATUS:`" 9=OTHER OPTIONSVb" 1=EXITdl570:970tvK1"":xK6K920"":K7YR0:700K8YR1:700500IPPM990" NO. PAYMENTS MADE";CW2(1I)C'BL(1W2)(P(PM(W21)I)):BL0990<BL(100BL)100Y T)"BALANCE =";BL}IPCPM(PBL):IP(100IP)100:T)"INT. PAID =";IP:T)"AMT REPAID=";(100(PBL))100199500:POP:N0:L12PIPM990PO10199PI(IPO100PM.5)2NN1:POPOPMIPOJPO(100PO.5)100]L11L0:900YR1(N12)N120PO10770 9)N;14);PO;26);PI:LL1730" RETURN TO CONTINUE OR R TO RESTART";A$ A$"R"  T1) "----------------------9 T1) " PM# BALANCE %INT "` T1) "----------------------":f1,800,10:2,600,10: "": N801002 :1,9N,1"  ILLEGAL DATA ENTRY "" PRESS RETURN TO RESET";A$: TITLE PAGE+N110:K$:m1,3,5:"PRESS ANY KEY TO START1100: N113" L O A N A N A L Y S E RL(1)1611,L,(N1)2$M120: K$:K$"" BM,ND1,800,5 :2,600,4K1020&LT14:1,16V""HWT)" $$^XT)" ߒrZT)" $$\T)" ߒ $$^T)"  ߒ`T)" $$ ߒbT)" $$ dT)"  fT)" $$t