home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 December
/
1985-12.d64
/
dcopier
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
56 lines
90 poke53280,14:poke53281,6:print"[154]"
100 poke55,0:poke56,20:clr:bs=peek(56)*256:dim n,k,j,a$,b$,pt,ad(27):gosub500
110 printtab(6)"[212]his program copies the [211]peed[186]"," dictionary files from the ";
130 print"[199][193][218][197][212][212][197] [196][201][211][203]"," onto a new disk to produce an initial"," dictionary disk ";
140 print"for use by the [211]peed[186] spelling checker program. [201]t can also"
150 print" be used to make backup copies of other [211]peed[186] dictionary disks."
160 printtab(6)"[194]egin by inserting a blank disk for the new dictionary into ";
170 print"the drive."," [208]ress [210][197][212][213][210][206] [146] when ready to format.":gosub 850
180 gosub500:print" [197]ach dictionary disk should have"," a unique two-character [201][196].
190 [153]""[163]8)"right$str$ for this disk";:[133]id$:[139][195](id$)[179]2[167]id$[178]id$[170]"xx"
200 [153]""[163]8)"ascormatting ... ";:[159]15,8,15,"n0:dictionary disk,"[170]id$
210 [141]900:[139]er[178]0[167]230
220 [153]:[153][163]8)"valrror during formatting:":[141]600:[137]180
230 [153]"lenomplete":[153]"":[141]840:[141]500:rc[178]1:wc[178]0
240 j[178]1:k[178]1:ad(1)[178]bs:[141]800:[153]:[153]" (NULL)valatnstr$right$(NULL)chr$: wait":[141]700
250 pt[178]ad(j):a$[178][199](rc[170]64):[153]""[163]10[170]rc)a$
260 [160]15:[159]15,8,15:[159]1,8,8,"0:"[170]a$[170]",s,r":[141]900:[151]144,0:[139]er[167]300
270 [139]st[167]290
280 [161]#1,b$:[151]pt,[198](b$[170][199](0)):pt[178]pt[170]1:[137]270
290 [139]st[178]64[167]310
295 [141] 900
300 [141]700:[153][163]10)"valrror reading file: "a$:[141]600:[137]250
310 [160]1:[139]pt[177]40959[167]ad(j[170]1)[178]0:[137]330
320 j[178]j[170]1:ad(j)[178]pt:rc[178]rc[170]1:[139]rc[179]27[167]250
330 [153]"on reading: ":[141]820:[153]" (NULL)(NULL)right$(NULL)right$(NULL)chr$: wait":[141]700
340 [139]ad(k[170]1)[178]0[167]400
345 wc[178]wc[170]1
350 a$[178][199](wc[170]64):[153]""[163]10[170]wc)a$
360 [160]15:[159]15,8,15:[159]1,8,9,"0:"[170]a$[170]",s,w":[141]900:[139]er[167]430
370 [129]n[178]ad(k)[164]ad(k[170]1)[171]1:[152]1,[199]([194](n));:[130]n:[141]900:[139]er[167]480
380 [160]1:k[178]k[170]1:[139]wc[179]26[167]340
400 [153]"on writing: ":[139]rc[179]27[167]240
410 [141]700:[153][163]9)"atnnother copy [y/n]";:[133]b$:[139][200](b$,1)[178]"y"[167]180
420 [153]"load"[199](142);:[128]
430 [141]700:[139]er[179][177]63[167]470
440 [153][163]9)"ascile "a$" already exists.":[153][163]5)"(NULL)cratch existing file [y/n]";:[133]b$
450 [139][200](b$,1)[178]"y"[167][159]15,8,15,"s0:"[170]a$:[141]900:[141]700:[139](er[178]1)[175](et[178]1)[167]350
460 [153][163]5)"valxisting file "a$" not scratched.":[137]380
470 [153][163]8)"valrror opening file for: "a$:[141]600:[137]350
480 [141]700:[153][163]8)"valrror writing file for: "a$:[137]600
490 [159]15,8,15,"v0:":[137]350
500 [153]"load"[199](14)[163]8)"(NULL)(NULL)valvalstr$sqrclosestr$right$len(NULL)right$(NULL)(NULL)atn(NULL)(NULL)closelen(NULL)(NULL)right$val(NULL)":[142]
600 [153][163](40[171][195](er$)[171]10)[173]2)""er" "er$et""es" "
610 [153][163]11)"(NULL)ry again [y/n]";
620 [133]b$:[139][200](b$,1)[179][177]"y"[167][128]
700 [153]"";:[129]n[178]1[164]29:[153]" ";:[130]n:[153]:[153]"ononononononononon":[142]
800 [141]700:[153][163]4)" (NULL)emove new dictionary disk. "
810 [153][163]4)"right$nsert disk with existing files.":[137]840
820 [141] 700:[153][163]4)"(NULL)emove disk with existing files."
830 [153][163]4)" right$nsert new dictionary disk. "
840 [153]:[153][163]8)"left$it (NULL)val(NULL)(NULL)(NULL)(NULL) wait to proceed."
850 [161]b$:[139]b$[179][177][199](13)[167]850
860 [142]
900 [132]15,er,er$,et,es:[139]er[167][160]1:[160]15
910 [142]