0 CLR
10 POKE53280,6:POKE646,1:GOTO30
20 PRINTQTAB(T1)NTAB(T2)JTAB(T3)B:RETURN
30 C=12:T1=5:T2=16:T3=27
40 H=100:D=.5
50 INPUT"[147]AMOUNT OF LOAN";B:IFB=<0THENRUN
60 INPUT"ANNUAL INTEREST RATE";AI:I=AI/1200:IFI=<0THENRUN
70 INPUT"NO. OF YEARS ON LOAN";Y:M=Y*12:IFM=<0THENRUN
80 P=(INT(H*B*(I+I/((I+1)^M-1))+D))/H
90 PRINT"MONTHLY PAYMENT SHOULD BE $";P
100 PRINT"(PRESS RETURN TO USE ABOVE PAYMENT)"
110 INPUT"ACTUAL PAYMENT";AP$:IFAP$=""THEN130
120 P=VAL(AP$)
130 PRINT"SEE MONTHLY OR YEARLY (M/Y)?"
140 GETA$:IFA$<>"Y"THENIFA$<>"M"THEN140
150 PRINT"[147]"
160 PRINT" (HOLD SPACE BAR TO SEE ENTRIES)"
170 PRINT" MO."TAB(T1)" PRINCIPAL"TAB(T2)" INTEREST"TAB(T3)" BALANCE"
180 PRINT" --------------------------------------
190 Q[178]Q[170]1
200 [161]B$:[139]B$[179][177]" "[167]200
210 J[178][181]((I[172]B)[172]H[170]D)[173]H
220 N[178][181]((P[171]J)[172]H[170]D)[173]H
230 B[178][181]((B[171]N)[172]H[170]D)[173]H
240 [139]B[179]0[167][128]
250 [139]A$[178]"M"[167][141]20:[137]270
260 [139][181](Q[173]C)[178]Q[173]C[167][141]20
270 [137]190
280 [153]" --------------------------------------
290 PRINT" MO."TAB(T1)" PRINCIPAL"TAB(T2)" INTEREST"TAB(T3)" BALANCE"