R/1/0/
TC/ NEWCTM QUIT/
R/QUIT/STOP(%LONGINTEGER RESULT1,RESULT2,  %C /
G I/                                 %INTEGER RESPVAL)///
TC/ROUTINE QUIT/
TC/NEWCTM QUIT/
R/QUIT/STOP(0,0,-1)/
E