home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 201
/
201.d81
/
b.fix
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
41 lines
10 poke56,140:clr
20 dv=peek(186):ifdv<8thendv=8
30 print"[147]":poke53280,0:poke53281,0:poke53272,22
40 poke214,4:print:printtab(05)"[209]uick and [196]irty [198][197][193][212][213][210][197][211] [198][201][216][197][210]"
50 print:printtab(02)"[194]e sure your [204][207][193][196][211][212][193][210] 202 [196]isk is in
60 [153][163]02)"str$rive"dv
70 [153]:[153][163]06)"(NULL)ress atnny (NULL)ey (<(NULL)> to (NULL)uit)
80 poke198,0:wait198,1:getz$:ifz$="q"then250
90 open15,dv,15
100 sys57812"x.features",dv:poke780,0:poke781,0:poke782,150:sys65493
101 a=peek(781):b=peek(782)
102 sys57812"ls briefs",dv:poke780,0:poke781,0:poke782,140:sys65493
103 c=peek(781):d=peek(782)
110 input#15,en,en$
120 ifen<>0thenclose15:poke53281,1:run
130 print:printtab(02)"[201]nsert [204][207][193][196][211][212][193][210] 201 [196]isk in [196]rive"dv
140 print:printtab(06)"[208]ress [193]ny [203]ey (<[209]> to [209]uit)
145 [151]198,0:[146]198,1:[161]z$:[139]z$[178]"q"[167]250
150 [159]4,dv,4,"star1":[132]15,en,en$:[160]4
160 [139]en[179][177]0[167]130
170 [152]15,"s0:features":[152]15,"s0:ls briefs":[160]15
175 [159]15,dv,15
180 [158]57812"features",dv:[151]193,0:[151]194,150:[151]174,a:[151]175,b:[158]62954
181 [158]57812"ls briefs",dv:[151]193,0:[151]194,140:[151]174,c:[151]175,d:[158]62954
190 [132]15,en,en$
200 [160]15:[139]en[179][177]0[167]300
210 [153]:[153][163]02)"(NULL)uccess! (NULL)lace the issue to which you
220 printtab(02)"wish to return in [196]rive"dv"and...
230 [153][163]13)"(NULL)ress atnny (NULL)ey"
240 [151]198,0:[146]198,1:[161]z$
250 [147]"h",dv
260 [128]
300 [153]:[153]:[153]"(NULL)e had the following problem:"
310 [153]en,en$
320 [153]:[153]"(NULL)lease put (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) 202 in str$rive"dv
330 [153]"and try again."
340 [153]:[153][163]13)"(NULL)ress atnny (NULL)ey"
350 [151]198,0:[146]198,1:[161]z$:[138]
9999 [128]
10000 d[178][194](186):n$[178]"b.fix":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]