home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 110
/
110.d81
/
car
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
168 lines
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:[