5 POKE53280,0:POKE53281,0:POKE53272,31:PRINTCHR$(14)CHR$(8)CHR$(147);
10 AD=49152:X=12:Y=5:W=8:R=1:C=1
15 DV=PEEK(186):IFDV<8THENDV=8
20 DIMCH(12,3):FORI=1TO3:FORJ=1TO12:READCH(J,I):NEXT:NEXT
25 DATA 0,0,0,1,1,1,1,0,0,1,1,0
26 DATA 1,1,0,1,0,1,1,1,1,1,1,1
27 DATA 1,1,0,1,1,0,1,1,1,1,1,1
30 DIMA(13,3)
35 FORI=1TO3:A(1,I)=4:A(8,I)=28:A(9,I)=6:NEXT
40 A(6,1)=0:A(7,1)=0:A(5,2)=7.0
100 PRINT"[150]       [195] [193] [210]    [198] [201] [206] [193] [206] [195] [201] [197] [210]      ":PRINT
101 PRINT"[154]              [195][193][211][200]     [204][207][193][206]     [204][197][193][211][197]"
105 PRINT"[155][176][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][174]"
110 PRINT"[155][221][212]ERM (YRS)[221]      4 [155][221]      4 [221]      4 [221]"
115 PRINT"[155][221][195]AR [195]OST  [221]        [155][221]        [221]        [221]"
120 PRINT"[155][221][196]OWNPAYMNT[221]        [155][221]        [155][221]        [155][221]"
122 PRINT"[155][221][154][212][207][212] [213][208][198][210][206][212][155][221][154]        [155][221][154]        [155][221][154]        [155][221]"
125 PRINT"[155][221][201]NT. [210]ATE [221]     [206][193] [221]    7.0 [155][221]     [206][193] [221]"
130 PRINT"[155][221][205]ONTHLY   [221]      0 [221]        [221]        [155][221]"
135 PRINT"[155][221][154][212][207][212][204] [205][207][206][212][200][155][221][154]      0 [155][221][154]        [155][221][154]        [155][221]"
140 PRINT"[155][221][212]AX [210]ATE  [221]     28 [155][221]     28 [221]     28 [221]"
145 PRINT"[155][221][201]NV. [210]ATE [221]      6 [155][221]      6 [221]      6 [221]"
150 PRINT"[155][221][204]OST [201]NT. [221]        [221]        [221]        [221]"
155 PRINT"[155][221][154][212][207][212][193][204] [195][193][211][200][155][221][154]        [155][221][154]        [155][221][154]        [155][221]"
160 PRINT"[155][221][210]ESALE    [221]        [155][221]        [221]      0 [221]"
162 PRINT"[155][171][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][179]"
165 PRINT"[155][221][150][212][207][212][193][204] [195][207][211][212][155][221][150]        [155][221][150]        [155][221][150]        [155][221]"
170 PRINT"[155][173][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][189]"
185 PRINT
190 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
195 PRINT"  [198]1[153]=[200]ELP  [198]3[153]=[195]ALC  [198]5[153]=[208]RINT  [198]7[153]=[197]XIT  "
196 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
198 SYSAD+6,X,Y,W
200 GETK$
205 IFK$=""THENGOSUB8200
210 IFK$="[157]"THENGOSUB8300
215 IFK$=""THENGOSUB8000
220 IFK$="[145]"THENGOSUB8100
225 IFK$="[133]"THENGOSUB7000:REM HELP
230 IFK$="[134]"THENGOSUB4000:REM CALC
235 IFK$="[135]"THENGOSUB3000:REM PRINT
240 IFK$="[136]"THENGOSUB9000:REM EXIT
245 IFK$>="0"ANDK$<="9"THENGOSUB1000
250 GOTO200
1000 IFCH(R,C)=1THENGOSUB6000:RETURN
1005 SYSAD,1:POKE781,22:SYS59903
1010 POKE214,21:PRINT:PRINT "[156] [197]NTER: ";
1011 REM  V=VAL(STR$(A(R,C)))
1012 REM  V$=RIGHT$(STR$(V),LEN(STR$(V))-1)
1015 TY=2:L=6:V=0:V$="":CT=0:GOSUB11015:V=VAL(V$)
1020 P1=0:IFR=5THENP1=-3
1021 IFR=9THENP1=-3
1022 IFR=6THENP1=-2
1023 IFR=8THENP1=-2
1025 GOSUB2000
1030 SYSAD+3,1
1035 POKE214,Y-1:PRINT:PRINTTAB(X+1)""RV$;:A(R,C)=VAL(RV$)
1040 IFR=12THENA(R,C+1)=VAL(RV$):PRINT"[155]"RV$:RETURN
1045 IFR>2 ANDR<7THENRETURN
1050 A(R,C+1)=VAL(RV$):A(R,C+2)=VAL(RV$)
1055 PRINT"[155]"RV$;:PRINT""RV$
1060 RETURN
1065 :
2000 P2=10^P1
2005 RV=INT(V/P2+.5)*P2
2010 RV$=RIGHT$("      "+STR$(RV),6)
2015 RETURN
2020 :
3000 SYSAD,1:POKE781,22:SYS59903
3005 POKE214,21:PRINT:PRINT "[156]          [208]RINTER [210]EADY? [Y/N]"
3010 GETK$:IFK$=""THEN3010
3015 IFK$="Y"THENSYSAD+9,0,3,38,20,7
3020 SYSAD+3,1:POKE198,0:K$="":RETURN
3025 :
4000 SYSAD,1:POKE781,22:SYS59903
4005 POKE214,21:PRINT:PRINT "[156]             [195]ALCULATING..."
4008 FORI=1TO3:A(4,I)=A(3,I):NEXT
4010 AM=A(2,2)-A(3,2):YR=A(1,2):RA=A(5,2)
4015 N1=YR*12:I1=RA/100/12:VA=1/(1+I1)
4020 A(6,2)=AM*I1/(1-VA^N1)
4025 A(7,1)=0:A(7,2)=A(6,2)*12*YR:A(7,3)=A(6,3)*12*YR
4030 RA=A(9,1)
4035 FORI=1TO3
4040 FV=A(4,I)
4045 FORJ=1TO12*YR:FV=FV+FV*RA/100/12:NEXT
4047 FV=FV-A(4,I)
4050 FV=FV-FV*A(8,I)/100:A(10,I)=FV:NEXT
4055 FORI=1TO3
4060 A(11,I)=A(4,I)+A(7,I)+A(10,I)
4065 A(13,I)=A(11,I)-A(12,I)
4070 NEXT
4075 SYSAD+3,1:P1=0
4080 POKE214,7:PRINT:PRINTTAB(10)"[154]";
4085 FORI=1TO3:V=A(4,I):GOSUB2000:PRINT""RV$;:NEXT
4090 POKE214,9:PRINT:PRINTTAB(19)"[155]";
4095 V=A(6,2):GOSUB2000:PRINT""RV$;
4100 POKE214,10:PRINT:PRINTTAB(10)"[154]";
4105 FORI=1TO3:V=A(7,I):GOSUB2000:PRINT""RV$;:NEXT
4110 POKE214,13:PRINT:PRINTTAB(10)"[155]";
4115 FORI=1TO3:V=A(10,I):GOSUB2000:PRINT""RV$;:NEXT
4120 POKE214,14:PRINT:PRINTTAB(10)"[154]";
4125 FORI=1TO3:V=A(11,I):GOSUB2000:PRINT""RV$;:NEXT
4130 POKE214,17:PRINT:PRINTTAB(10)"[150]";
4135 FORI=1TO3:V=A(13,I):GOSUB2000:PRINT""RV$;:NEXT
4140 RETURN
4145 :
6000 POKE54296,21
6005 POKE54277,9
6010 POKE54278,0
6015 POKE54273,48
6020 POKE54276,32
6025 POKE54276,33
6030 RETURN
6035 :
7000 SYSAD,1:PRINT"[147]"TAB(14)"[154][146]*** [200][197][204][208] ***":H$="CAR.INSTR"
7020 PRINT"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
7030 FORI=1TO21:PRINT"[221]                                      [221]";:NEXT
7040 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192] [150][208]RESS [210][197][212][213][210][206] [153][192][192][192][192][192][192][192][192][192][192][192][192][189]";:POKE646,14
7060 OPEN2,DV,2,H$+",P,R":SYSAD+12,14
7070 POKE198,0:CLOSE2
7080 GETK$:IFK$<>CHR$(13)THEN7080
7090 SYSAD+3,1:POKE198,0:K$="":SYSAD+15:RETURN
7100 :
8000 SYSAD+6,X,Y,W
8005 Y=Y+1:R=R+1:IFY>16THENY=Y-1:R=R-1
8010 SYSAD+6,X,Y,W:RETURN
8100 SYSAD+6,X,Y,W
8105 Y=Y-1:R=R-1:IFY<5THENY=Y+1:R=R+1
8110 SYSAD+6,X,Y,W:RETURN
8200 SYSAD+6,X,Y,W
8205 X=X+9:C=C+1:IFX>30THENX=X-9:C=C-1
8210 SYSAD+6,X,Y,W:RETURN
8300 SYSAD+6,X,Y,W
8305 X=X-9:C=C-1:IFX<12THENX=X+9:C=C+1
8310 SYSAD+6,X,Y,W:RETURN
8315 :
9000 SYSAD,1:POKE781,22:SYS59903
9005 POKE214,21:PRINT:PRINT "[156]       [209]UIT?  [193]RE [217]OU [211]URE? (Y/N)"
9010 GETK$:IFK$=""THEN9010
9015 IFK$="Y"THEN40000
9020 SYSAD+3,1:POKE198,0:K$="":RETURN
9025 :
10000 OPEN15,8,15,"S0:CAR":CLOSE15:SAVE"CAR",8:END
11000 K$="":CT=LEN(V$):PRINT"[159]"V$"[164][157]";:F3=0
11005 GETK$:IFK$=""THEN11005
11010 IFK$=CHR$(13)THEN11075:REM RETURN
11015 IFK$=CHR$(20)ANDCT<>0THENPRINT" [157][157][164][157]";:CT=CT-1:V$=LEFT$(V$,CT):GOTO11005
11020 IFK$=" "THEN11060:REM SPACE
11025 IFTY=1OR TY>2THENIF(K$>"@")AND(K$<"[")THEN11060:REM ALPHA
11030 IFTY>1THENIF(K$>"/")AND(K$<":")THEN11060:REM NUMERIC
11035 IFTY=2THENIFK$="."THEN11060
11040 IFTY=1ORTY>2THENIF(K$>"[192]")AND(K$<"[219]")THEN11060:REM UPPER CASE
11045 IFTY=4THENIF(K$>" ")AND(K$<"0")THEN11060:REM !"#$%&'()*+,-./ PUNCTUATION
11050 [139]TY[178]4[167][139](K$[177]"9")[175](K$[179]"@")[167]11060:[143] :;<=>? PUNCTUATION
11055 [137]11005
11060 [139]CT[177][178]L[167]11005
11065 CT[178]CT[170]1:V$[178]V$[170]K$:[153]K$;:[151]212,0:[153]"TOCMD";
11070 [137]11005
11075 [139]CT[178]0[167]V$[178][199](0):F3[178]1
11080 [143]FORI=LEN(V$)+1TOL:V$=V$+" ":NEXT:REM PAD STRING
11085 [153]" ":[142]
11090 :
40000 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40020
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I
40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]