@DEF DSK: DSK:,<DECUS.20-0137>
@LOAD ROOTS.FOR,APLIB/LIB
@SAVE ROOTS
@SET FILE PROTECTION ROOTS.EXE 771010
;(PUT ON SYS:ROOTS.EXE)