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