home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 47
/
047.d81
/
st.main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
17KB
|
493 lines
0 print"[147]"chr$(142):gosub63000:poke53248+21,.:goto100
1 poke781,r%:poke782,c%:poke783,peek(783)and254:sys65520:return
2 poke783,peek(783)or1:sys65520:r%=peek(781):c%=peek(782):return
3 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]";:return
4 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]";:return
5 open15,a%,15:close15:b=abs(st):return
6 r%=22:c%=1:gosub1:print"[196]evice [206]ot [208]resent! [159][195]heck & [212]ry [193]gain!
7 [158]so,1,15,65,5,10,1,1,10,10:[142]
8 [159]15,dv%,15:[132]15,er%,er$,tr%,se%:[160]15:[142]
9 [141]74:r%[178]22:c%[178]1:[141]1:[153]"valrror: def"er%[163]10)er$[163]32)tr%se%:[142]
10 mw[178]mw[170]1:fr(mw)[178]fr:fc(mw)[178]fc:tr(mw)[178]tr:tc(mw)[178]tc:ad(mw)[178]ad
12 ::[158] wi,fr,fc,tr,tc,ad,fu,bc,.
14 ad[178]ad[170]((tr[171]fr[170]1)[172](tc[171]fc[170]1)[172]2):[142]
15 [139]mw[178].[167][142]
17 ::[158] wi,fr(mw),fc(mw),tr(mw),tc(mw),ad(mw),8,.,.
19 ad[178]ad[171]((tr(mw)[171]fr(mw)[170]1)[172](tc(mw)[171]fc(mw)[170]1)[172]2):mw[178]mw[171]1:[142]
20 ::[158] wi,fr(mw),fc(mw),tr(mw),tc(mw),ad(mw),4,bc,.
21 bc[178]bc[170]1:[139]bc[177]14[167]bc[178].
22 [142]
25 hi[178][181](nu[173]256):lo[178][181](nu[171]hi[172]256):[142]
30 fr[178].:fc[178].:tr[178]6:tc[178]39:bc[178]8:fu[178]7:[141]10
32 [153]" str$isk valrror:def"er""er$
33 [153]"(NULL)rack/(NULL)ector: def"tr"/"se
34 [153]" cont(NULL)ress: openasc3 - cont(NULL)ry atngain"
35 [153]" openasc5 - contatnbort"
36 [161]a$:[139]a$[178]"dim"[167]ok[178][171]1:[142]
38 [139]a$[178]"read"[167]ok[178].:[142]
39 [137]36
40 sp[178]sp[170]is:[139](sp[178]196)[167]is[178][171]is:[142]
41 [151]po,sp:[151]vi[170]21,1:[139](sp[178]192)[167]43
42 [142]
43 [151]vi[170]21,.:[151]vi[170]39,1:[151]vi,.:sx[178][181]([187](1)[172]265)[170]40:sy[178][181]([187](1)[172]20)[170]47
44 [139]sx[177]255[167]sx[178]sx[171]256:[151]vi[170]16,1:[137]46
45 [139]sx[179]256[167][151]vi[170]16,.
46 is[178][171]is:[151]vi,sx:[151]vi[170]1,sy:c[178][181]([187](0)[172]80):[142]
47 [161]#8,a$:ct%[178]ct%[170]1:[139](nt%[178].)[175](ns%[178]255)[175](ct%[177]250)[167]en%[178][171]1:[142]
48 [139]ct%[179]256[167][142]
49 [152]15,"ua:8 0 18"[196](ns%):ct%[178].:[152]15,"b-p:8 0":[142]
50 [153]"to";:a$[178]"":[151]198,.:[129]a[178]1[164]nc[170]1
52 [161]b$:[139]b$[178]""[167]52
54 [139]b$[178][199](13)[167]68
56 [139](b$[178][199](20))[175](a[177]1)[167]a[178]a[171]1:[153]"cmdcmd cmdcmdto";:a$[178][200](a$,a[171]1):[137]52
58 [139](a[178]nc[170]1)[176](b$[178][199](34))[167]52
59 [139](b$[177][178]"0")[175](b$[179][178]"9")[167]66
60 [139]nc%[167]52
61 [139](b$[177][178]":")[175](b$[179][178]"_")[167]66
62 [139](b$[177][178]"atn")[175](b$[179][178]"(NULL)")[167]66
63 [139](b$[177][178]" ")[175](b$[179][178]"/")[167]66
64 [137]52
66 [153]"cmd"b$"to";:a$[178]a$[170]b$:[130]
68 [153]"cmd ":[142]
72 r%[178]18:c%[178]1:[141]1:[153]" ":[141]1:[142]
74 r%[178]22:c%[178]1:[141]1:[153]" ":[141]1:[142]
75 [153]"listortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
76 [153]"list(NULL) close<tantan (NULL)umber of blocks tantan> list(NULL)";
77 [153]"list(NULL) cont5 10 15 20 25 30 35 list(NULL)";
79 [153]"list-===(NULL)====(NULL)====(NULL)====(NULL)====(NULL)====(NULL)====(NULL)====<print";:[142]
80 r%[178]16:c%[178]12:[141]1:[153]"open "bd$(bd%)
81 c%[178]35:[141]1:[153]dv%"cmd "
82 r%[178]17:c%[178]10:[141]1:[153]dp$([194](te[170]3))
83 c%[178]34:[141]1:[153]" cmdcmdcmdcmd"[194](51224)
84 [141]98:r%[178]18:c%[178]32:[141]1:[153]"sys"35840[171]bp:[151]198,.:[142]
85 a%[178]4:[141]5:[139]st[178].[167][153]" cmd";:[159]4,4,7:[158]sd:[152]4:[160]4
86 [142]
90 ::[158]so,1,5,65,10,40,8,10,11,10
91 [142]
92 ::[158]so,1,15,65,10,10,8,10,8,10
93 ::[158]so,2,15,65,10,10,8,10,8,10
94 [142]
95 [129]z[178]50[164]100[169]5:y[178][194](53280):[151]53280,2
96 ::[158]so,7,15,33,z,z,.,.,10,10
97 [151]53280,y:[130]:[151]54276,.:[151]54283,.:[151]54290,.:[142]
98 bp[178][194](63)[170][194](64)[172]256:[142]
99 [129]a[178]1[164]100:[130]:[151]198,.:[142]
100 [151]56576,([194](56576)[175]252)[176]1
110 [151]53265,27:[151]53270,200:[151]53272,59:[151]648,140
130 [151]53280,.:[151]53281,.:[151]650,128:bd%[178]1:[151]787,.:[151]2,.
330 [139]bd%[178].[167][159]5,2,3,[199](.)[170][199](.)[170][199](61)[170][199](1):bd%[178]1:[137]350
340 [159]5,2,3,[199](6)[170][199](0):bd%[178].
350 [151]51,.:[151]52,80:[151]55,.:[151]56,80
354 [141]61000
355 [139][194](sc)[179][177]112[167][141]60000
360 c[178]0:[141]80:[151]198,.
370 [158]uc:[161]a$:[139](a$[179][177]"")[167]b[178][198](a$)[171]132:[139]b[177].[175]b[179]9[167]a[178]64:[137]380
371 a[178][194](203):[139](a[178]28)[176](a[178]41)[176](a[178]18)[176](a[178]39)[167]380
373 c[178]c[171]1:[139](c[179]1)[167][141]40
376 [137]370
380 [151]vi[170]21,.:sh[178]192:[139]a[179][177]64[167]400
385 [141]98
390 [145]b[137]1000,3000,5000,7000,2000,4000,6000,8000
400 b[178].:[151]198,.
410 [139]a[178]39[167]dv%[178]dv%[170]1:[139]dv%[177]11[167]dv%[178]8
415 [151](op[170]3),dv%
420 [139]a[178]18[167][151]te[170]3,[194](te[170]3)[170]1:[139][194](te[170]3)[178]2[167][151]te[170]3,.
430 [139]a[179][177]28[167]448
432 [139]bd%[178].[167][160]5:bd%[178].:[137]330
434 [160]5:bd%[178]1:[137]340
448 [139]a[179][177]41[167]600
450 fr[178]15:fc[178].:tr[178]19:tc[178]39:fu[178]7:bc[178]1:[141]10
460 r%[178]16:c%[178]5:[141]1:[153]"forlenurrent (NULL)(NULL)(NULL)(NULL)val(NULL) peeklock (NULL)ize:sys"[194](51224)
470 [153]"cont(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)cont alone to make no changes."
480 [153]"contvalnter new block size: cmdcmdcmd";:nc[178]3:nc%[178]1:[141]50:nc%[178].
490 [139]a$[178]""[167][141]15:[137]600
500 a%[178][197](a$):[139]a%[179]40[176]a%[177]255[167][153]"on";:[137]480
510 [151]51224,[197](a$):[141]15
600 [141]80:[137]370
999 [144]
1000 [151]53280,ct(1):[151]53281,ct(2):[151]646,ct(3)
1005 [153]"load ortan<(NULL)val(NULL)(NULL)right$(NULL)atn(NULL) len(NULL)(NULL)(NULL)atn(NULL)str$(NULL)-tan^"
1010 [153]"ortantantantantantantan>tantantantantantantantantantantan=tantantantantantantantantantan>tantantantantantantan^";
1020 [153]"(NULL)asc1 - (NULL)ain (NULL)enu (NULL)asc2 - (NULL)rint (NULL)creen (NULL)";
1030 [153]"(NULL)asc3 - (NULL)pen peekuffer (NULL)asc4 - lenlear peekuffer (NULL)";
1040 [153]"(NULL)asc5 - lenlose peekuffer (NULL)asc6 - (NULL)ransfer peekasc(NULL) (NULL)";
1050 [153]"(NULL)asc7 - (NULL)oad/(NULL)ave peekasc(NULL) (NULL)asc8 - (NULL)rint peekuffer (NULL)";
1060 [153]"/tantantantantantantantantantantantantantantantantantantan>tantantantantantantantantantantantantantantantantantanexp";
1070 [129]a[178]217[164]242:[151]a,[194](a)[176]128:[130]
1080 [159]3,3:[159]1,.:[158]te:[160]3:[160]1
1091 [139][194](2)[178]133[167]1110
1092 [139][194](2)[178]137[167][141]85
1093 [139][194](2)[178]134[167][141]13000
1094 [139][194](2)[178]138[167][141]14000
1095 [139][194](2)[178]135[167][141]15000
1096 [139][194](2)[178]139[167][141]16000
1097 [139][194](2)[178]136[167][141]17000
1098 [139][194](2)[178]140[167][141]18000
1099 [139][194](2)[178]255[167][141]19000
1100 [151]198,.:[137]1080
1110 ct(1)[178][194](53280):ct(2)[178][194](53281):ct(3)[178][194](646)
1130 [151]53280,.:[151]53281,.:[137]355
2000 fr[178]15:fc[178].:tr[178]19:tc[178]39:fu[178]7:bc[178]1:[141]10
2010 r%[178]16:c%[178]12:[141]1:[153]"systantan (NULL)et lenlock tantan"
2020 [153]"(NULL)ress def(NULL)val(NULL)(NULL)(NULL)(NULL) alone to zero.":[153]
2030 [153]"oncontvalnter the hour: cmdcmd";:nc[178]2:nc%[178]1:[141]50:nc%[178].:th[178][197](a$)
2037 th[178].:[139][195](a$)[177]1[167]th[178]16
2038 h[178][197]([201](a$,1)):th[178]th[170]h:[151]56331,th
2040 [153]"oncontvalnter the minute: cmdcmd";:nc%[178]1:[141]50:nc%[178].:tm[178][197](a$)