Retro1.org codex

*NOSEQ 
.PROC,STAGE*I,S=(*A,*K,*N=).
.*        STAGE - PROCEDURE TO STAGE PERMANENT FILE FROM TAPE.
.*
.*        *STAGE.* - STAGE PERMANENT FILE FROM TAPE ALTERNATE STORAGE.
.*        *STAGE,O.* - STAGE PERMANENT FILE FROM OPTICAL DISK STORAGE.
.*        *STAGE,S.* - INITIATE *PFHELPR* JOB.
.IF,STR($S$,1,1).EQ.STR($#S$),SIF.
PFHELPR.
.ELSEIF,STR($S$,1,1).EQ.STR($O$),SIF.
PFROD.
.ELSE,SIF.
PFRES.
.ENDIF,SIF.