'HEAD'   TEST STRAN SOURCE FILE
      'OUTFILE' CTYPEFTM.FR
      INTEGER FUNCTION CTYPE (ICHAR)
      INTEGER ICHAR
      'IF' (ICHAR .GE. CHAR0 .AND. ICHAR .LE. CHAR9)
         CTYPE = DIGIT
         'ELSE'
         'IF' (ICHAR .GE. CHARA .AND. ICHAR .LE. CHARZ)
            CTYPE = LETTER
            'ELSE'
            CTYPE = ICHAR
            'ENDIF'
         'ENDIF'
      RETURN
      END
      'OUTFILE' LSTARTFTM.FR
      SUBROUTINE LSTART
      'IF' (OUTPTR .GT. 7)
         CALL PUTC (EOL)
         'ENDIF'
      OUTPTR = 7
      RETURN
      END
      'OUTFILE' PLNFTM.FR
      SUBROUTINE PLN (/DUMMY/)
      INTEGER DUMMY, TS, GCHAR
      IF (OUTPTR .GT. 7) CALL PUTC (EOL)
      CALL SET (BBLANK, NAME, 3)
      CALL ESP (LN, NAME, 1, 5)
      'DOLOOP' TS = 1, 5
         CALL PUTC (GCHAR (NAME, TS))
         'END'
      OUTPTR = 7
      RETURN
      END
      'OUTFILE' PSTRFTM.FR
      SUBROUTINE PSTR (STR)
      INTEGER STR(80), III, GCHAR
      'DOLOOP' III = 1, 80
         CHAR = GCHAR (STR, III)
         'IF' (CHAR .NE. SLASH)
            'IF' (CHAR .EQ. SEMI)
               CALL PUTC (EOL)
               'ELSE'
               CALL PUTC (CHAR)
               'ENDIF'
            'END'
         'ENDIF'
      RETURN
      END
      'OUTFILE' GOLNFTM.FR
      SUBROUTINE GOLN (/DUMMY/)
      INTEGER DUMMY, GOMSG (2), GCHAR
      DATA     GOMSG    /'GO TO /'/
      CALL PSTR (GOMSG)
      CALL SET (BBLANK, NAME, 3)
      CALL ESP (LN, NAME, 1, 5)
      'DOLOOP' II = 1, 5
         CALL PUTC (GCHAR (NAME, II))
         'END'
      CALL PUTC (EOL)
      RETURN
      END