00010 def dsk: dsk:,<decus.20-0137> 00100 @LOAD BSTAT.FOR,APLIB/LIB,FORLKI/LIB 00200 @SAVE BSTAT 00300 @SET FILE PROTECTION BSTAT.EXE 771010 00400 ;(PUT ON SYS:BSTAT.EXE)