.ENABLE SUBSTITUTION
.A: .ASKS S NAME OF PROGRAM
MAC 'S'='S'
TKB @'S'
PIP 'S'.OBJ;*/DE
PIP 'S'.TSK/PU
.GOTO A