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