I = X'02'
23000 IF (DSTRNG(I) .EQ. DELIM .OR. I .GE. X'7E') GOTO 23002
        CALL DSP$ (DSTRNG(I))
        I = I + X'01'
        GOTO 23000