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