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