.ENABLE SUBSTITUTION
.ASKS FILE ENTER FILE NAME
.IF <SYSTEM> = 5 MCR MAC 'FILE','FILE'/-SP/CR/NL:BEX/NL:CND/NL:ME=HEXMACS,'FILE'
.IF <SYSTEM> = 5 .EXIT
.OPEN 'FILE'.CMD
.DATA 'FILE','FILE'/-SP/CR/NL:BEX/NL:CND/NL:ME=-
.DATA LB:[11,10]RSXMC/PA:1,-
.IF FILE = "READ" .OR .IF FILE = "WRITE" .DATA LB:[1,1]EXEMC/ML,-
.DATA SY:'<UIC>'HEXMACS,'FILE'
.CLOSE
MAC @'FILE'
PIP 'FILE'.CMD;0/DE
