INTEGER A$BUF(200)
      INTEGER I,L,OLDI,ROW,COL,PTR(8),BUF(32767)
      INTEGER GETLIN,WIDTH
      INTEGER USAGE(64)
      INTEGER AAAAA0
      INTEGER PARSCL
      INTEGER AAAAB0(27)
      INTEGER AAAAC0(17)
      INTEGER AAAAD0(4)
      INTEGER AAAAE0(6)
      INTEGER AAAAF0(4)
      INTEGER AAAAG0(15)
      DATA USAGE/213,243,225,231,229,186,160,227,239,236,160,251,173,227
     *,188,227,239,236,243,190,252,173,231,188,231,245,244,244,229,242,1
     *90,252,173,233,188,233,238,228,229,238,244,190,252,173,236,188,236
     *,233,238,229,243,190,252,173,247,188,247,233,228,244,232,190,253,0
     */
      DATA AAAAB0/227,188,242,233,190,231,188,242,233,190,233,188,242,23
     *3,190,236,188,242,233,190,244,247,188,242,233,190,0/
      DATA AAAAC0/244,239,239,160,237,225,238,249,160,227,239,236,245,23
     *7,238,243,0/
      DATA AAAAD0/170,163,248,0/
      DATA AAAAE0/170,243,170,163,248,0/
      DATA AAAAF0/170,163,248,0/
      DATA AAAAG0/244,239,239,160,237,225,238,249,160,236,233,238,229,24
     *3,0/
      IF((PARSCL(AAAAB0,A$BUF).NE.-3))GOTO 10001
        CALL ERROR(USAGE)
10001 IF((A$BUF(244-225+1).EQ.0))GOTO 10002
        IF((A$BUF(227-225+1).EQ.2))GOTO 10003
          A$BUF(227-225+27)=5
10003   IF((A$BUF(231-225+1).EQ.2))GOTO 10004
          A$BUF(231-225+27)=2
10004   IF((A$BUF(233-225+1).EQ.2))GOTO 10005
          A$BUF(233-225+27)=0
10005   IF((A$BUF(236-225+1).EQ.2))GOTO 10006
          A$BUF(236-225+27)=22
10006   IF((A$BUF(247-225+1).EQ.2))GOTO 10007
          A$BUF(247-225+27)=14
10007   GOTO 10008
10002   IF((A$BUF(227-225+1).EQ.2))GOTO 10009
          A$BUF(227-225+27)=2
10009   IF((A$BUF(231-225+1).EQ.2))GOTO 10010
          A$BUF(231-225+27)=5
10010   IF((A$BUF(233-225+1).EQ.2))GOTO 10011
          A$BUF(233-225+27)=0
10011   IF((A$BUF(236-225+1).EQ.2))GOTO 10012
          A$BUF(236-225+27)=54
10012   IF((A$BUF(247-225+1).EQ.2))GOTO 10013
          A$BUF(247-225+27)=30
10013 CONTINUE
10008 IF((A$BUF(227-225+27).LE.8))GOTO 10014
        CALL ERROR(AAAAC0)
10014 AAAAA0=1
      GOTO 10000
10018 GOTO 10017
10015 AAAAA0=2
      GOTO 10000
10019 CONTINUE
10017 IF((PTR(1).EQ.0))GOTO 10016
10020     CALL PRINT(-11,AAAAD0,MAX0(A$BUF(233-225+27),0))
          COL=1
          GOTO 10023
10021     COL=COL+(1)
10023     IF((COL.GT.A$BUF(227-225+27)))GOTO 10022
          IF((PTR(COL).EQ.0))GOTO 10022
            CALL PRINT(-11,AAAAE0,BUF(PTR(COL)+1),MAX0(0,A$BUF(247-225+2
     *7)-WIDTH(BUF(PTR(COL)+1))))
            IF((COL.EQ.A$BUF(227-225+27)))GOTO 10024
              CALL PRINT(-11,AAAAF0,MAX0(0,A$BUF(231-225+27)))
10024       PTR(COL)=BUF(PTR(COL)+0)
          GOTO 10021
10022     CALL PUTCH(138,-11)
        IF((PTR(1).NE.0))GOTO 10020
      GOTO 10015
10016 CALL SWT
10000 I=1
      OLDI=1
      L=0
      COL=1
      GOTO 10027
10025 COL=COL+(1)
10027 IF((COL.GT.A$BUF(227-225+27)))GOTO 10026
        IF((L.NE.-1))GOTO 10028
          PTR(COL)=0
          GOTO 10029
10028     PTR(COL)=I
          ROW=1
          GOTO 10032
10030     ROW=ROW+(1)
10032     IF((ROW.GT.A$BUF(236-225+27)))GOTO 10031
            IF((I.LE.32767-(300+1)+1))GOTO 10033
              CALL ERROR(AAAAG0)
10033       L=GETLIN(BUF(I+1),-10,300)
            IF((L.NE.-1))GOTO 10034
              GOTO 10031
10034       IF((BUF(I+1+L-1).NE.138))GOTO 10035
              BUF(I+1+L-1)=0
              L=L-(1)
10035       OLDI=I
            I=I+(L+2)
            BUF(OLDI+0)=I
          GOTO 10030
10031     IF((I.NE.PTR(COL)))GOTO 10036
            PTR(COL)=0
            GOTO 10037
10036       BUF(OLDI+0)=0
10037   CONTINUE
10029 GOTO 10025
10026 GOTO 10038
10038 GOTO(10018,10019),AAAAA0
      GOTO 10038
      END
      INTEGER FUNCTION WIDTH(BUF)
      INTEGER BUF(300)
      INTEGER I,C
      WIDTH=0
      I=1
      GOTO 10041
10039 I=I+(1)
10041 IF((BUF(I).EQ.0))GOTO 10040
        C=OR(BUF(I),128)
        GOTO 10042
10043     WIDTH=WIDTH+(1)
        GOTO 10044
10045     WIDTH=WIDTH-(1)
        GOTO 10044
10042   IF((C.LT.160))GOTO 10046
        IF((C.GE.255))GOTO 10046
        GOTO 10043
10046   IF((C.EQ.136))GOTO 10045
10044 GOTO 10039
10040 RETURN
      END
C ---- Long Name Map ----
C fillbuf                        fillb0