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