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