;***************************
; 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