;***************************
; HSHDSK - HASH DISK
;
; Put on DSK0:[1,2]
;
; Modify to meet your
; desired specs where stated.
;
; This example will check
: [100,10] - [100,27] and
; [100,50] - [100,67] and
; [100,100]- [100,130]
;       on DSK2:
; (the AMUS Network)
;****************************
:T
ERASE DSK2:[]*.BAK                      ;importatn - ERASE {???} .BAK
ERASE DIRECT.LST                        ;important - don't modify
ERASE HASHCK.OLD                        ;important - don't modify
RENAME HASHCK.OLD=HASHCK.NEW            ;important - don't modify
DIRSEQ DSK2:[]/E                        ;VERY IMPORTANT - DIRSEQ {???} /E !!!
DIR/H = DSK2:[100,1?]                   ;  Start of "customizing" -
RENAME DIRHSH.ONE=DIRECT.LST            ;  yours may differ, but
DIR/H = DSK2:[100,2?]                   ;  note pattern and technique.
RENAME DIRHSH.TWO=DIRECT.LST
DIR/H = DSK2:[100,5?]
RENAME DIRHSH.THR=DIRECT.LST
DIR/H = DSK2:[100,6?]
RENAME DIRHSH.FOR=DIRECT.LST
DIR/H = DSK2:[100,10?]
RENAME DIRHSH.FIV=DIRECT.LST
DIR/H = DSK2:[100,11?]
RENAME DIRHSH.SIX=DIRECT.LST
DIR/H = DSK2:[100,12?]
RENAME DIRHSH.SEV=DIRECT.LST
DIR/H = DSK2:[100,13?]
RENAME DIRHSH.EIT=DIRECT.LST
APPEND HASHCK.NEW=DIRHSH.ONE,DIRHSH.TWO,DIRHSH.THR,DIRHSH.FOR,DIRHSH.FIV,DIRHSH.SIX,DIRHSH.SEV,DIRHSH.EIT
ERASE DIRHSH.*
RUN HASHCK                              ;This will create HASHCK.RPT
PRINT HASHCK.RPT

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.