BEGIN "TEST"

SIMPLE PROCEDURE LOSERR(INTEGER RSP) ;
    BEGIN
    DEFINE !BREAK = " '45000000000" ;
    EXTERNAL INTEGER JOBSA ;

    IF "a" ≤ RSP ≤ "z" THEN RSP ← RSP - '40 ;
    IF RSP="X"
	THEN START!CODE !BREAK '16,'40000 END
	ELSE IF RSP="S"
	    THEN START!CODE MOVE 1,JOBSA; JRST (1) END
	    ELSE IF RSP="D" THEN START!CODE !BREAK '16,'3000000 END;
    END "LOSERR";

OUTSTR("STARTING "); WHILE TRUE DO BEGIN OUTSTR("WELL?"); LOSERR(INCHWL) END;

END "TEST";