      INTEGER A$BUF(200)
      INTEGER FNAME(102)
      INTEGER STATE(4)
      INTEGER GFNARG
      INTEGER FD
      INTEGER OPEN
      INTEGER AAAAA0
      INTEGER PARSCL
      INTEGER AAAAB0(9)
      INTEGER AAAAC0
      INTEGER AAAAD0
      INTEGER AAAAE0(102),AAAAF0(4),AAAAG0
      INTEGER AAAAH0,AAAAI0
      INTEGER GETLIN
      DATA AAAAB0/237,239,238,188,233,231,238,190,0/
      IF((PARSCL(AAAAB0,A$BUF).NE.-3))GOTO 10001
        CALL ERROR('Usage: show [-m|-o] { <file> }.')
10001 STATE(1)=1
10002   AAAAC0=GFNARG(FNAME,STATE)
        GOTO 10003
10004     GOTO 10005
10006     CALL PRINT(-15,'*s: can''t open*n.',FNAME)
        GOTO 10007
10008     FD=OPEN(FNAME,1)
          IF((FD.NE.-3))GOTO 10009
            CALL PRINT(-15,'*s: can''t open*n.',FNAME)
            GOTO 10010
10009       AAAAA0=1
            GOTO 10000
10011       CALL CLOSE(FD)
10010   GOTO 10007
10003   AAAAD0=AAAAC0+4
        GOTO(10006,10008,10004),AAAAD0
10007 CONTINUE
      GOTO 10002
10005 CALL SWT
10000 AAAAI0=GETLIN(AAAAE0,FD)
      GOTO 10014
10012 AAAAI0=GETLIN(AAAAE0,FD)
10014 IF((AAAAI0.EQ.-1))GOTO 10013
        AAAAH0=1
        GOTO 10017
10015   AAAAH0=AAAAH0+(1)
10017   IF((AAAAH0.GT.AAAAI0))GOTO 10016
          AAAAG0=OR(AAAAE0(AAAAH0),128)
          IF((AAAAE0(AAAAH0).EQ.138))GOTO 10018
          IF((AAAAG0.LT.160))GOTO 10019
          IF((AAAAG0.EQ.255))GOTO 10019
          GOTO 10018
10019       IF((A$BUF(237-225+1).EQ.0))GOTO 10020
              CALL CTOMN(AAAAG0,AAAAF0)
              CALL PRINT(-11,'<*s>.',AAAAF0)
              GOTO 10021
10020         IF((A$BUF(239-225+1).EQ.0))GOTO 10022
                CALL PRINT(-11,'<*3,-8,0i>.',AAAAG0)
                GOTO 10023
10022           CALL PUTCH(222,-11)
                IF((AAAAG0.NE.255))GOTO 10024
                  CALL PUTCH(163,-11)
                  GOTO 10025
10024             CALL PUTCH(AAAAG0+192-128,-11)
10025         CONTINUE
10023       CONTINUE
10021       GOTO 10026
10018       CALL PUTCH(AAAAE0(AAAAH0),-11)
10026   GOTO 10015
10016 GOTO 10012
10013 GOTO 10027
10027 GOTO 10011
      END
C ---- Long Name Map ----
C linesize                       lines0