home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 129
/
129.d81
/
scha
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
10KB
|
359 lines
0 w$="":dv=peek(186):ifdv<8thendv=8
1 ifa=0thena=1:load"scroll 9000",dv,1
2 remifa=1thena=2:load"notepad c900",dv,1
3 remifa=2thena=3:load"tool box c000",dv,1
4 poke55,0:poke56,144:clr
5 w$="":dv=peek(186):ifdv<8thendv=8
6 poke198,0:sp$=" ":max=38
7 dim m1$(max),m2$(20),d$(max),ch(max):fl=0:f1=0
8 fori=0tomax:d$(i)="0":next:d$(34)="111800"
10 poke53280,0:poke53281,0:ad=49152
21 readx:fori=1tox:readm1$(i):next
22 readx:fori=1tox:readm2$(i):next
23 readx:fori=1tox:readch(i):next
30 print"[147]";:gosub9500
40 sysad+21,"[212][193][216] [193][195][195][207][213][206][212][193][206][212]: [211]chedule [193]",0,10,0
43 sysad+18,0,1,38,19,7,0:sysad+15,1,2,38,20,160,14
46 gosub9000:gosub9500
50 x=0:y=1:d=38:w=38:tx=14:hi=1:bx=4:ex$=chr$(133):max=19:v=0
52 fori=217to242:pokei,peek(i)or128:next
54 poke214,y-1:print:print:poke646,tx
56 fori=1tomax:printtab(x+1)""left$(m1$(i+v)+sp$,w):next:r=1
57 hi=1:ifch(r+v)=1thenhi=10
58 r=1:r1=1:poke646,hi:poke214,r+y-1:print:printtab(x+1)""left$(m1$(r+v)+sp$,w)
62 getk$:ifk$=""then62
66 ifk$=chr$(13)then135
68 ifk$="[145]"thengosub800
70 ifk$=""thengosub850
79 ifk$="[136]"thengosub1000:ifk=10ork=1then52
88 ifk$="_"thengosub7000:rem exit
92 poke646,tx:poke214,r1+y-1:print:printtab(x+1)""left$(m1$(r1+v)+sp$,w)
93 hi=1:ifch(r+v)=1thenhi=10
94 poke646,hi:poke214,r+y-1:print:printtab(x+1)""left$(m1$(r+v)+sp$,w)
96 r1=r:goto62
98 :
135 ifch(r+v)=1then62
136 ifr+v=34then192
140 gosub9100:iflen(w$)=0then62
145 ww=val(w$):w$=str$(ww):d$(r+v)=w$
150 remgosub400
186 remgosub9500
187 m1$(r+v)=left$(m1$(r+v),27):d$(r+v)=right$(sp$+d$(r+v),10)
188 m1$(r+v)=m1$(r+v)+d$(r+v)
190 goto92
191 :
192 f1=notf1
193 iff1=0thenm1$(34)="[215]6. [202]oint, [211]ingle, [200][200], [209][215] 111800":d$(34)="111800"
194 iff1thenm1$(34)="[215]6. [205]arried [211]eparate 55900":d$(34)="55900"
195 goto187
200 gosub9300
210 ifval(w$)=0thenclose2:close15:gosub9000:return
220 open15,dv,15,"io":w$="scha."+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:gosub9000:return
250 fori=0to38:input#2,d$(i):next
270 close2:close15
275 gosub9000:gosub9500:return
280 :
300 gosub9300:ifval(w$)=0then375
310 w$="scha."+w$:d$(0)=d$(36)
320 open15,dv,15,"s0:"+w$:close15
330 open15,dv,15,"i"
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
355 d$(0)=d$(38)
360 fori=0to38:print#2,d$(i):next
370 close2:close15
375 gosub9000:return
390 :
400 sysad+3,0:gosub9600:poke214,21:print:print"[195]alculating... "
401 d$(3)=str$(int(val(d$(2))*.075)):d$(4)=str$(val(d$(1))-val(d$(3)))
402 ifval(d$(4))<0thend$(4)="0"
403 d$(9)=str$(val(d$(5))+val(d$(6))+val(d$(7))+val(d$(8)))
404 d$(14)=str$(val(d$(10))+val(d$(11))+val(d$(12))+val(d$(13)))
405 d$(18)=str$(val(d$(15))+val(d$(16))+val(d$(17)))
406 d$(23)=str$(val(d$(20))+val(d$(21))+val(d$(22)))
407 d$(25)=str$(int(val(d$(24))*.02+.5))
409 d$(26)="0":ifval(d$(23))<=val(d$(25))then411
410 d$(26)=str$(val(d$(23))-val(d$(25)))
411 tl=val(d$(4))+val(d$(9))+val(d$(14))+val(d$(18))+val(d$(19))+val(d$(26))
412 tl=tl+val(d$(27))+val(d$(28))
413 d$(29)=str$(tl)
415 d$(30)=str$(val(d$(4))+val(d$(13))+val(d$(19)))
420 tl=val(d$(29))-val(d$(30)):iftl=0thend$(38)=d$(29):goto460
425 d$(31)=str$(tl)
430 d$(32)=str$(int(tl*.8+.5))
435 tl=val(d$(33))-val(d$(34)):iftl<=0thend$(38)=d$(29):goto460
440 d$(35)=str$(tl)
445 d$(36)=str$(int(tl*.03+.5))
450 d$(37)=d$(36):ifval(d$(32))<val(d$(36))thend$(37)=d$(32)
455 d$(38)=str$(val(d$(29))-val(d$(37)))
460 gosub9500:return
465 :
500 poke781,23:sys59903
501 poke214,21:print:print" [198]1=[204]oad [198]3=[211]ave [198]5=[208]rint [198]7=[197]xit "
502 sysad+15,1,2,38,20,32,14:n$="scha.n"
505 sys51456,1,2,38,20,3,0
510 ky=peek(197)
515 ifky=6thensysad+3,3:gosub9400:sysad+6,3:ifw$="y"thensysad+27,1,2,38,20,7
520 ifky=5thenopen15,dv,15,"s0:"+n$:close15:sys57812n$,dv
525 ifky=5thenpoke193,0:poke194,4:poke174,0:poke175,8:sys62954:goto505
530 ifky=4then poke147,0:sys57812n$,dv,1:sys62631:goto505:rem load
550 ifky=3thenreturn
555 goto505
560 :
600 sysad+3,1:print"[147]"tab(14)"[150]*** [200][197][204][208] ***"
601 sysad+18,0,1,38,21,1,0
602 h$="t.scha help":sysad+33
605 sysad+21,"[208]ress [210][197][212][213][210][206] _ to [197]xit",24,13,0
606 open2,dv,2,h$+",p,r":sysad+30,14
610 poke198,0
611 sysad+21," [208]ress [210][197][212][213][210][206] ",24,10,0
615 getk$:ifk$<>chr$(13)then615
620 poke198,0:close2:sysad+6,1:return
625 :
800 r=r-1:ifr<>0thenreturn
805 r=1:gosub875
806 v=v-1:ifv=-1thenv=0:return
807 poke646,tx:poke214,r+y-1:print:printtab(x+1)""left$(m1$(r+v+1)+sp$,w)
808 sys36864,x+1,x+w,y+1,y+max,1
810 return
815 :
850 r=r+1:ifr<=maxthenreturn
855 r=r-1:ifr>d then return
860 gosub875
861 v=v+1:ifv>d-maxthenv=v-1:return
862 poke646,tx:poke214,r+y-1:print:printtab(x+1)""left$(m1$(r+v-1)+sp$,w)
863 sys36864,x+1,x+w,y+1,y+max,0
865 return
870 :
875 poke646,tx:poke214,r1+y-1:print:printtab(x+1)left$(m1$(r1+v)+sp$,w)
880 poke646,tx:poke214,r+y-1:print:printtab(x+1)left$(m1$(r+v)+sp$,w)
885 return
890 :
900 gosub9400:ifw$<>"y"thengosub9000:return
905 poke214,21:print:print"[208]rinting... ";
910 open4,4,7
915 print#4,sp$"[211][195][200][197][196][213][204][197] [193]"
920 print#4,sp$"-------------------------------------"
925 fori=1to4:print#4,sp$;m1$(i):next:print#4
926 fori=5to9:print#4,sp$;m1$(i):next:print#4
927 fori=10to14:print#4,sp$;m1$(i):next:print#4
928 fori=15to18:print#4,sp$;m1$(i):next:print#4
929 print#4,sp$;m1$(19):print#4
930 remprint#4,sp$;m1$(19):print#4
931 fori=20to26:print#4,sp$;m1$(i):next:print#4
932 fori=27to28:print#4,sp$;m1$(i):next:print#4
933 print#4,sp$;m1$(29):print#4
934 fori=30to38:print#4,sp$;m1$(i):next
935 print#4:close4:gosub9000:return
936 :
1000 sysad+3,2
1005 sysad+18,10,5,20,12,13,1
1010 poke214,5:print
1015 printtab(11)"[153][204]oad [198]ile"
1020 printtab(11)"[211]ave [198]ile"
1025 printtab(11)"[208]rint [198]ile"
1030 printtab(11)"[200]elp"
1035 printtab(11)"[195]alculator"
1036 printtab(11)"[206]otepad"
1040 printtab(11)"[196]irectory"
1045 printtab(11)"[196]isk [196]rive #"+str$(dv)
1050 printtab(11)"[212]otals"
1055 printtab(11)"[195]alculate [211]heet"
1056 printtab(11)"[201]mport 1040, line 32"
1057 printtab(11)"[197]xit"
1060 sysad+12,11,6,30,12,13,1
1065 k=peek(828)
1070 onkgosub200,300,900,600,5000,500,6000,6100,2000,400,3000
1075 sysad+6,2:return
1080 :
2000 sysad+6,2
2005 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]";
2010 print"[221] [212]otals for [211]chedule [193] [221]";
2015 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][192][179]";
2020 print"[221][205]edical/[196]ental [197]xp. [221]";
2025 print"[221][212]axes [221]";
2030 print"[221][201]nterest [221]";
2035 print"[221][195]ontributions [221]";
2040 print"[221][195]asualty/[212]heft [221]";
2045 print"[221][205]iscellaneous [221]";
2050 print"[221][205]oving [197]xpenses [221]";
2051 print"[221][207]ther [221]";
2055 remprint"[221][205]iscellaneous [221]";
2060 print"[221][212]otal [221]";
2065 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][