home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 January / 1994-01a.d64 / unscratch (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  76 lines
  1. 10 rem copyright 1994 - compute publications intl ltd - all right reserved
  2. 100 poke 53280,0:poke53281,0:poke646,13
  3. 110 print "[147] unscratch disk files"
  4. 120 print " randy clemmons
  5. 130 [141]630:[143] init directory-ease
  6. 140 [153] "load un-scratch disk files"
  7. 150 [153] " disk unit # (8-11) ?close8 cmdcmdcmdcmd";
  8. 160 [133] u$:u[178][197](u$):[139] u[179]8 [176] u[177]11 [167] [153] "ononon": [137]150
  9. 170 [153] "load enter * (wildcard) or filename"
  10. 180 [153] " enter $ to display directory"
  11. 190 n$[178]"":[133]" ";n$: [139] n$[178]"" [167]580
  12. 200 v[178]16:q[178]32:f[178]256:t[178]18:s[178]1:w[178]0
  13. 210 z$[178][199](0):n$[178][200](n$,v): l[178][195](n$)
  14. 220 [139] n$[178]"$" [167] [153]"load":[158]828:[141]600:[137]140
  15. 230 [139] [201](n$,1)[179][177]"*" [167]250
  16. 240 l[178]l[171]1:n$[178][200](n$,l): w[178]1:[137]270
  17. 250 [139] l[178]v [167]270
  18. 260 [129] x[178]l[170]1 [164] v: n$[178]n$[170][199](160): [130]: l[178]v
  19. 270 [159] 1,u,15,"i0": [141]560
  20. 280 [159] 2,u,2,"#": [141]560
  21. 290 [152]1,"u1:";2;0;t;s: [141]560
  22. 300 [152]1,"b-p:";2;0: [161]#2,a$,b$
  23. 310 tr[178][198](a$[170]z$): sc[178][198](b$[170]z$): h[178]2
  24. 320 [152]1,"b-p:";2;h:[161]#2,t$
  25. 330 c[178][198](t$[170]z$): [139] c[177]0 [167]370
  26. 340 [161]#2,a$,b$: f$[178]"": [129] x[178]1 [164] v
  27. 350 [161]#2,t$: f$[178]f$[170]t$: [130]: [139] f$[178]"" [167]390
  28. 360 [139] l[178]0 [176] n$[178][200](f$,l) [167]430
  29. 370 h[178]h[170]q: [139] h[179]f [167]320
  30. 380 [139] tr[177]0 [167] t[178]tr: s[178]sc: [137]290
  31. 390 [139] w [167] [153] " end of search":[137]580
  32. 400 [153] " filename:  ";n$
  33. 410 [153] " end of search":[137]550
  34. 430 a[178][198](a$[170]z$): b[178][198](b$[170]z$)
  35. 440 [153] "load found:  ";f$
  36. 445 [143] if n$<>"" then 490
  37. 450 [153] " at track";a;" sector";b
  38. 460 [153] " restore this file (y/n) ? ncmdcmdcmd";
  39. 470 [133] ky$: [139] ky$[178]"y" [167]490
  40. 480 [137] 545
  41. 490 [153] " 1=seq  2=prg  3=usr  4=rel"
  42. 500 [153] " enter file-type (1-4) ? 2cmdcmdcmd";
  43. 510 [133] p$:p[178][197](p$):[139] p[179]1 [176] p[177]4 [167] [153] "ononononon": [137]490
  44. 520 [152]1,"b-p:";2;h: [152]2,[199](p[170]128);
  45. 530 [152]1,"u2:";2;0;t;s:[141]560
  46. 540 [139] p [167] [153] " un-scratched file:  ";f$:[141]590
  47. 545 [139] w [167] 370
  48. 550 [160] 2: [160] 1:[128]
  49. 560 [132]1,e,m$,j,k: [139] e[178]0 [167] [142]
  50. 570 [153] " error: ";e;m$;j;k
  51. 580 [160] 2: [160] 1:[128]
  52. 590 [129] t[178]1 [164] 1000:[130]t:[142]
  53. 600 [153]" press a key to continue"
  54. 610 [161] ky$:[139] ky$[178]"" [167]610
  55. 620 [142]
  56. 630 [143]  ** directory-ease
  57. 640 [129]i[178] 828 [164] 929 :[135]da:[151]i,da:[130]i:[142]
  58. 650 [131] 169,8,170,160,0,32
  59. 660 [131] 186,255,169,1,162,154
  60. 670 [131] 160,3,32,189,255,32
  61. 680 [131] 192,255,162,8,32,198
  62. 690 [131] 255,32,228,255,32,228
  63. 700 [131] 255,32,225,255,240,49
  64. 710 [131] 32,228,255,32,228,255
  65. 720 [131] 165,144,208,39,32,228
  66. 730 [131] 255,141,160,3,32,228
  67. 740 [131] 255,174,160,3,32,205
  68. 750 [131] 189,169,32,32,210,255
  69. 760 [131] 32,228,255,240,6,32
  70. 770 [131] 210,255,76,126,3,169
  71. 780 [131] 13,32,210,255,76,91
  72. 790 [131] 3,32,204,255,169,8
  73. 800 [131] 32,195,255,96,36,48
  74. 810 [131] 58,42,61,83,0,0
  75. 0 
  76.