home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 93
/
093.d81
/
eic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
276 lines
0 dv=peek(186):ifdv<8thendv=8
1 ifa=0thena=1:load"help-eic",dv,1
2 ifa=1thena=2:load"notepad",dv,1
3 poke198,0
5 dim m0$(20),m1$(20),m2$(20),m3$(20),m4$(20)
6 dimm9$(20):sp$=" "
7 dimd$(36):fori=0to20:d$(i)="0":next
10 poke53280,0:poke53281,0:ad=36864
20 readx:fori=1tox:readm0$(i):next
21 readx:fori=1tox:readm1$(i):next
22 readx:fori=1tox:readm2$(i):next
24 readx:fori=1tox:readm3$(i):next
25 readx:fori=1tox:readm4$(i):next
30 readx:fori=1tox:readm9$(i):next
33 print"";
40 sysad,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","[197]arned [201]ncome [195]redit"
50 ifpeek(198)<>1thenend
55 sysad+15:getdv$:getme$:gethi$:gettx$
56 dv=asc(dv$):m=asc(me$)and15:h=asc(hi$)and15:tx=asc(tx$)and15
60 sysad+18:poke198,0:gosub9000
70 sysad+3,9+64,11,8,m,h,tx,m0$(1),m0$(2),m0$(3),m0$(4),m0$(5),m0$(6),m0$(7),m0$(8),m0$(9)
80 getk$:k$=str$(asc(k$)-48):k=val(k$)
85 ifk>3thensysad+18:poke781,21:sys59903
90 onkgoto 200,300,900,1070,2070,3070,4070,700,40
95 goto70
100 :
200 gosub9300
210 ifval(w$)=0then275
220 open15,dv,15,"io":w$="eic."+w$
225 open2,dv,2,"0:"+w$+",s,r"
230 input#15,e,e$,e1,e2
234 poke214,21:print:print" "
235 poke214,21:print:print"[196]isk [211]tatus:"e;e$:fori=1to2000:next
236 poke214,21:print:print" "
240 ifethenclose2:close15:print"[145][198]ile [206]ot [204]oaded":fori=1to2000:next:goto275
250 fori=0to20:input#2,d$(i):next
270 close2:close15
275 gosub9000:goto70
280 :
300 gosub9300:ifval(w$)=0then375
310 w$="eic."+w$
320 open15,dv,15,"s0:"+w$:close15
330 open15,dv,15,"io"
335 open2,dv,2,"0:"+w$+",s,w"
340 input#15,e,e$,e1,e2
344 poke214,21:print:print" "
345 poke214,21:print:print"[196]isk [211]tatus: "e;e$:fori=1to2000:next
346 poke214,21:print:print" "
350 ifethenclose2:close15:print"[145][198]ile [206]ot [211]aved":fori=1to2000:next:goto375
360 fori=0to20:print#2,d$(i):next
370 close2:close15
375 gosub9000:goto70
390 :
400 d$(7)=str$(val(d$(4))+val(d$(5))+val(d$(6)))
405 ifval(d$(7))>=21250thend$(7)="[211][212][207][208]":return
410 remd$(11)=d$(10):ifval(d$(10))>val(d$(9))thend$(11)=d$(9)
415 d$(14)=d$(13):ifval(d$(13))>val(d$(12))thend$(14)=d$(12)
420 remd$(16)=d$(15):ifval(d$(15))>val(d$(14))thend$(16)=d$(14)
425 remd$(19)=d$(18):ifval(d$(18))>val(d$(17))thend$(19)=d$(17)
430 d$(20)=str$(val(d$(11))+val(d$(16))+val(d$(19)))
475 return
480 :
500 sysad+6,2:sysad+9,1
505 sys50176,1,3,38,20,tx,0
510 ky=peek(197)
515 ifky=3thensys51712,1,3,38,20,7:goto505
520 ifky=6thenopen15,dv,15,"s0:"+n$:close15:sysad+12,n$,1:goto505
530 ifky=5then poke147,0:sys57812n$,dv,1:sys62631:sysad+9,1:goto505
550 sysad+6,1:sysad+9,2:return
560 :
600 sysad+6,2:poke646,tx:print"[147]"tab(14)"*** [200][197][204][208] ***"
601 poke646,m
602 print"[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]";
603 fori=1to21:print"[221] [221]";:next
604 print"[173][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][189]";:poke646,tx
605 print" [208]ress [210][197][212][213][210][206]";:poke52346,tx
606 open2,dv,2,h$+",p,r":sys51968
610 poke198,0
615 getk$:ifk$<>chr$(13)then615
620 close2:sysad+9,2:return
625 :
700 poke646,tx
701 print"[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][174]"
702 print"[221] [197][201][195] [212]otals [221]"
704 print"[171][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][179]"
706 print"[221][197]arned [201]ncome (7) [221]"
708 print"[221][194]asic [195]redit (11) [221]"
710 print"[221][200]ealth [201]nsurance [195]redit (16) [221]"
712 print"[221][195]hild [194]orn [195]redit (19) [221]"
714 print"[221][212][207][212][193][204] [195][210][197][196][201][212] (20) [221]"
724 print"[173][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][189]"
725 fori=217to242:pokei,peek(i)or128:next
726 gosub9200
730 print""
735 printtab(28)right$(sp$+d$(7),10)
740 printtab(28)right$(sp$+d$(11),10)
745 printtab(28)right$(sp$+d$(16),10)
750 printtab(28)right$(sp$+d$(19),10)
755 printtab(28)right$(sp$+d$(20),10)
775 getk$:ifk$<>chr$(13)then775
780 sysad+18:gosub9000:goto70
785 :
900 gosub9400:ifw$<>"y"thengosub9000:goto70
905 poke214,22:print:print"[208]rinting... "
910 open4,4,7
915 print#4,sp$;"[197]arned [201]ncome [195]redit
920 [152]4,sp$;"-------------------------------------"
922 [129]i[178]1[164]5:[152]4,sp$;[200](m1$(i),27)[170][201](sp$[170]d$(i[170]3),10):[130]:[152]4
925 [129]i[178]1[164]3:[152]4,sp$;[200](m2$(i),27)[170][201](sp$[170]d$(i[170]8),10):[130]:[152]4
930 [129]i[178]1[164]5:[152]4,sp$;[200](m3$(i),27)[170][201](sp$[170]d$(i[170]11),10):[130]:[152]4
935 [129]i[178]1[164]3:[152]4,sp$;[200](m4$(i),27)[170][201](sp$[170]d$(i[170]16),10):[130]:[152]4
970 [152]4,sp$;"(NULL)(NULL)(NULL)atn(NULL) len(NULL)valstr$right$(NULL) "[170][201](sp$[170]d$(20),10):[152]4
990 [152]4:[160]4:[141]9000:[137]70
995 :
1000 [158]ad[170]3,9[170]64,1,8,m,h,tx,m1$(1),m1$(2),m1$(3),m1$(4),m1$(5),m1$(6),m1$(7),m1$(8),m1$(9)
1010 [161]k$:k$[178][196]([198](k$)[171]48):k[178][197](k$)
1020 [139]k[178]9[167][158]ad[170]18:[137]70
1025 [139]k[178]8[167]h$[178]"eic.h1":[141]600:[137]1000
1030 [139]k[178]6[167]n$[178]"eic.n1":[141]500:[137]1000
1035 [139]k[178]7[167][141]9500:[137]1000
1045 [139]k[178]4[167]1000
1050 [141]9100:[139][195](w$)[178]0[167]1000
1055 d$(k[170]3)[178]w$
1067 [141]400
1070 [129]i[178]1[164]5:m1$(i)[178][200](m1$(i),27)[170][201](sp$[170]d$(i[170]3),10):[130]
1075 [137]1000
1080 :
2000 [158]ad[170]3,7[170]64,1,8,m,h,tx,m2$(1),m2$(2),m2$(3),m2$(4),m2$(5),m2$(6),m2$(7)
2010 [161]k$:k$[178][196]([198](k$)[171]48):k[178][197](k$)
2020 [139]k[178]7[167][158]ad[170]18:[137]70
2025 [139]k[178]6[167]h$[178]"eic.h2":[141]600:[137]2000
2030 [139]k[178]4[167]n$[178]"eic.n2":[141]500:[137]2000
2035 [139]k[178]5[167][141]9500:[137]2000
2040 [143]ifk=3then2000
2050 [141]9100:[139][195](w$)[178]0[167]2000
2055 d$(k[170]8)[178]w$:[141]400
2070 [129]i[178]1[164]3:m2$(i)[178][200](m2$(i),27)[170][201](sp$[170]d$(i[170]8),10):[130]
2087 [137]2000
2090 :
3000 [158]ad[170]3,9[170]64,1,8,m,h,tx,m3$(1),m3$(2),m3$(3),m3$(4),m3$(5),m3$(6),m3$(7),m3$(8),m3$(9)
3010 [161]k$:k$[178][196]([198](k$)[171]48):k[178][197](k$)
3020 [139]k[178]9[167][158]ad[170]18:[137]70
3025 [139]k[178]8[167]h$[178]"eic.h3":[141]600:[137]3000
3030 [139]k[178]7[167][141]9500:[137]3000
3035 [139]k[178]6[167]n$[178]"eic.n3":[141]500:[137]3000
3040 [139]k[178]3[167]3000
3041 [143]ifk=5then3000
3050 [141]9100:[139][195](w$)[178]0[167]3000
3052 d$(k[170]11)[178]w$:[141]400
3070 [129]i[178]1[164]5:m3$(i)[178][200](m3$(i),27)[170][201](sp$[170]d$(i[170]11),10):[130]
3085 [137]3000
3090 :
4000 [158]ad[170]3,7[170]64,1,8,m,h,tx,m4$(1),m4$(2),m4$(3),m4$(4),m4$(5),m4$(6),m4$(7)
4010 [161]k$:k$[178][196]([198](k$)[171]48):k[178][197](k$)
4020 [139]k[178]7[167][158]ad[170]18:[137]70
4025 [139]k[178]6[167]h$[178]"eic.h4":[141]600:[137]4000
4030 [139]k[178]5[167][141]9500:[137]4000
4035 [139]k[178]4[167]n$[178]"eic.n4":[141]500:[137]4000
4040 [143]ifk=3then4000
4050 [141]9100:[139][195](w$)[178]0[167]4000
4055 d$(k[170]16)[178]w$:[141]400
4070 [129]i[178]1[164]3:m4$(i)[178][200](m4$(i),27)[170][201](sp$[170]d$(i[170]16),10):[130]
4085 [137]4000
4090 :
9000 [151]214,21:[153]:[153]"ortantantantantantantan