home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 129
/
129.d81
/
schse
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
6KB
|
238 lines
0 w$="":dv=peek(186):ifdv<8thendv=8
1 remifa=0thena=1:load"tool box c000",dv,1
2 remifa=1thena=2:load"notepad c900",dv,1
3 poke198,0:sp$=" "
5 dim m1$(20),m2$(20),d$(10):fl=0:f1=0
6 fori=1to5:d$(i)="0":next
10 poke53280,0:poke53281,0:ad=49152
21 readx:fori=1tox:readm1$(i):next
22 readx:fori=1tox:readm2$(i):next
30 print"[147]";:gosub9500
40 sysad+21,"[212][193][216] [193][195][195][207][213][206][212][193][206][212]: [211]chedule [211][197]",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=5:w=38:tx=14:hi=1:bx=4:ex$=chr$(133):max=5
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)+sp$,w):next
58 r=1:r1=1:poke646,hi:poke214,r+y-1:print:printtab(x+1)""left$(m1$(r)+sp$,w)
62 getk$:ifk$=""then62
66 ifk$=chr$(13)then135
68 ifk$="[145]"thengosub800
70 ifk$=""thengosub850
78 ifk$="[136]"thengosub1000:ifk=1ork=9then52
88 ifk$="_"thengosub7000:rem exit
92 poke646,tx:poke214,r1+y-1:print:printtab(x+1)""left$(m1$(r1+v)+sp$,w)
94 poke646,hi:poke214,r+y-1:print:printtab(x+1)""left$(m1$(r+v)+sp$,w)
96 r1=r:goto62
98 :
135 ifr>2then150
140 gosub9100:iflen(w$)=0then62
145 ww=val(w$):w$=str$(ww):d$(r)=w$
150 d$(3)=str$(val(d$(1))+val(d$(2)))
155 d$(4)=str$(int(val(d$(3))*.9235))
156 ifval(d$(4))<400thend$(4)="[211][212][207][208]":d$(5)="0"
160 ifval(d$(4))<=60600thend$(5)=str$(int(val(d$(4))*.153+.5)):goto186
170 remifval(d$(4))>=135000thend$(5)="11057":goto186
180 d=val(d$(4)):d=d*.029:d=d+7514.4:d$(5)=str$(int(d+.5))
186 gosub9500
190 goto52
195 :
200 gosub9300
210 ifval(w$)=0thenclose2:close15:gosub9000:return
220 open15,dv,15,"io":w$="se."+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=0to5:input#2,d$(i):next
270 close2:close15
275 gosub9000:gosub9500:return
280 :
300 gosub9300:ifval(w$)=0then375
310 w$="se."+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
355 d$(0)=d$(5)
360 fori=0to5:print#2,d$(i):next
370 close2:close15
375 gosub9000:return
390 :
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$="se.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=3thensysad+6,2:return
555 goto505
560 :
600 print"[147]"tab(14)"[150]*** [200][197][204][208] ***"
601 sysad+18,0,1,38,21,1,0
602 h$="t.se 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
607 poke198,0
608 sysad+21," [208]ress [210][197][212][213][210][206] ",24,10,0
615 getk$:ifk$<>chr$(13)then615
620 poke198,0:close2:return
625 :
800 r=r-1:ifr<>0thenreturn
805 r=1:gosub875
810 return
815 :
850 r=r+1:ifr<=2 thenreturn
855 r=r-1:ifr<2then return
860 gosub875
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
910 open4,4,7
915 print#4,sp$"[211][195][200][197][196][213][204][197] [211][197]"
920 print#4,sp$"-------------------------------------"
925 fori=1to5:print#4,sp$;m1$(i):next
930 print#4:close4:gosub9000:return
935 :
1000 sysad+3,2
1005 sysad+18,10,5,20,10,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)
1046 printtab(11)"[201]mport [211]chedule [195]"
1057 printtab(11)"[197]xit"
1060 sysad+12,11,6,29,10,13,1
1065 k=peek(828)
1070 onkgosub200,300,900,600,5000,500,6000,6100,3000
1075 sysad+6,2:return
1080 :
3000 gosub9300
3005 ifval(w$)=0thenclose2:close15:gosub9000:return
3010 open15,dv,15,"io":w$="schc."+w$
3015 open2,dv,2,"0:"+w$+",s,r"
3020 input#15,e,e$,e1,e2
3025 poke214,21:print:print" "
3030 poke214,21:print:print"[196]isk [211]tatus:"e;e$:fori=1to2000:next
3035 poke214,21:print:print" "
3040 ifethenclose2:close15:gosub9000:return
3045 input#2,d$(2)
3050 close2:close15
3055 gosub9000:gosub9500:return
3060 :
5000 sysad+6,2:gosub9600
5001 sysad+18,11,5,18,1,5,0
5002 sysad+18,11,8,18,6,5,0:sysad+33:poke214,8:print
5003 fori=1to6:printtab(12)""m2$(i):next
5004 ac=0:ac$="0":sysad+3,1
5005 ac$=right$(sp$+ac$,10):poke646,tx
5006 sysad+6,1:print""tab(19)ac$
5010 sysad+12,12,9,29,6,1,10
5020 k=peek(828)
5025 ifk=6thensysad+6,2:return
5030 ifk=1thenac=0:goto5065
5035 gosub9100
5040 p=val(w$):ifp=0then5005
5045 ifk=2thenac=ac+p
5050 ifk=3thenac=ac-p
5055 ifk=4thenac=ac*p
5060 ifk=5thenac=ac/p
5065 ac$=str$(ac):goto5005
5070 :
6000 print"[147][154]"
6005 sysad,dv
6007 sysad+21,"[208]ress [210][197][212][213][210][206]",24,10,0
6008 getk$:ifk$<>chr$(13)then6008
6015 :return
6020 :
6100 gosub9600:poke646,tx
6105 poke214,21:print:print"[197]nter [196]rive: ";
6110 sysad+9,2,0,32,1
6111 ifval(w$)<8orval(w$)>16then6115
6112 ww=val(w$):open1,ww,1:close1
6113 ifst=0thendv=ww
6114 ifst<>0thengosub9200
6115 gosub9000:return
6120 :
7000 gosub9600:poke646,tx
7005 poke214,21:print:print"[209]uit? [193]re [217]ou [211]ure? ";
7010 sysad+9,1,1,32,1
7015 ifw$<>"y"thengosub9000:return
7020 open15,dv,15,"r0:b.tax=b.tax":input#15,er%:close15
7025 ifer%<>63thenend
7030 poke646,peek(53281)
7035 print"[147]load"chr$(34)"b.tax"chr$(34)","dv
7040 print"run"
7045 poke631,13:poke632,13:poke633,13:poke198,3:end
9000 sysad+33
9001 poke214,21:print:print"[153][195][210][211][210] [203]eys/[210][197][212][213][210][206] to [211]elect [198]7=[205]enu _[197]xit"
9015 return
9020 :
9100 gosub9600:poke646,tx
9105 poke214,21:print:print"[197]nter: ";
9110 sysad+9,9,0,32,1
9115 gosub9000:return
9120 :
9200 sysad+3,3
9205 sysad+18,6,7,25,3,10,1
9210 sysad+21,"[201]nvalid [196]rive",9,10,1
9215 fort=1to1500:next
9220 sysad+6,3:return
9300 gosub9600:poke646,tx
9305 poke214,21:print:print"[197]nter [217]ear: ";
9310 sysad+9,4,0,32,1
9315 return
9320 :
9400 gosub9600:poke646,tx
9405 poke214,21:print:print"[208]rinter [210]eady? ";
9410 sysad+9,1,1,32,1
9415 return
9420 :
9500 fori=1to5
9505 m1$(i)=left$(m1$(i),27):d$(i)=right$(sp$+d$(i),10)
9510 m1$(i)=m1$(i)+d$(i):next
9515 return
9520 :
9600 fori=217to242:pokei,peek(i)or128:next
9602 poke781,22:sys59903
9603 poke781,23:sys59903
9605 return
9610 :
10000 open15,8,15,"s0:schse":close15:save"0:schse",8:end
10999 :
11099 rem menu1
11100 data 5
11101 data "1. [206]et [198]arm [208]rofit/[204]oss 0"
11102 data "2. [206]et [208]rofit/[204]oss ([211]ch. [195]) 0"
11103 data "3. [193]dd lines 1 and 2 0"
11104 data "4. [204]ine 3 x .9235 0"
11105 data "5. [211]elf-employment tax 0"
11115 :
11199 rem menu2
11200 data 6
11201 data "[218]ero [193]cc. "
11202 data "[193]dd to [193]cc. "
11203 data "[211]ubtract from [193]cc."
11204 data "[205]ultiply [193]cc. "
11205 data "[196]ivide [193]cc. "
11206 data "[197]xit "