Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	1
SC:TERSEQ.MET	FORTRAN IV

        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C FILE NAME TERSEQ
        C
        C
        C  SUBRUTINEN SKRIVER ESCAPE-SEKVENSER P] BILDSK[RMEN F\R HANTERING
        C  AV VT100 CURSOR , PROGRAMMERBARA TANGENTER M.M. , M.M.
        C
        C  OBS!         LOCAL EVENT FLAG 1 ANV[NDES AV RUTINEN !
        C
        C  ANROP :
        C  =======
        C             CALL TERSEQ(OPERAT,PARM1,PARM2)
        C
        C             D{r OPERAT anger operation enligt tabell (INTEGER),
        C
        C                 PARM1 och PARM2 {r parametrar f|r operationen.
        C
        C                 PARM1 OCH PARM2 [R INTEGER
        C
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
        C           WRITTEN  880720 /B-E TAPPER , AB UPPSALABUSS
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C             TABLE OF OPERATIONS AND PARAMETERS
        C
        C CODE  OPERATION               PARM1   PARM2   PARM3
        C ----  ---------               -----   -----   -----
        C
        C  100  ATTACH TERMINAL         IGNORE  IGNORE  IGNORE  (QIO FUNCTION)
        C
        C  101  DETACH TERMINAL         IGNORE  IGNORE  IGNORE  (QIO FUNCTION)
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	2
SC:TERSEQ.MET	FORTRAN IV

        C 20  SELECT KEYPAD APPLICAT. "       "       IGNORE                  =
        C
        C 21  SELECT KEYPAD NORMAL    "       "       "                       >
        C
        C 34  SEL.UK CHAR G0          "       "       "                       (A
        C
        C 35  SEL.US CHAR G0          "       "       "                       (B
        C
        C 36  SEL.GRAPHICS G0         "       "       "                       (0
        C
        C 37  SEL.ALT.CHAR G0         "       "       "                       (1
        C
        C 38  SEL.ALT.GRAPHICS G0     "       "       "                       (2
        C
        C 39  SEL.UK CHAR G1          "       "       "                       )A
        C
        C 40  SEL.US CHAR G1          "       "       "                       )B
        C
        C 41  SEL.GRAPHICS G1         "       "       "                       )0
        C
        C 42  SEL.ALT.CHAR G1         "       "       "                       )1
        C
        C 43  SEL.ALT.GRAPHICS G1     "       "       "                       )2
        C
        C 66  ALL LEDS OFF            "       "       IGNORE                  [0q
        C
        C 67  LED * ON                *       "       "                       [~1-5~q
        C
        C 71  SEL. CUR.KEY APPLIC.MODE"       "       IGNORE                  [?1h
        C
        C 72  SEL. CUR.KEY NORMAL MODE"       "       "                       [?1l
        C
        C 73  SEL. VT52               "       "       "                       [?2l
        C
        C 75  SEL.SMOOTH SCROLL       "       "       "                       [?4h
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	3
SC:TERSEQ.MET	FORTRAN IV

        C 76  SEL.JUMP SCROLL         "       "       "                       [?4l
        C
        C 83  AUTOREPEAT ON           "       "       "                       [?8h
        C
        C 84  AUTOREPEAT OFF          "       "       "                       [?8l
        C
        C 86  SEL.VT100               "       "       "       VALID IF IN VT52 MODE
        C                                                                     <
        C
        C  7  INVOKE G1 CHAR. SET     "       "       "                       ^N
        C
        C  8  INVOKE G0 CHAR. SET     "       "       "                       ^O
        C
        C 56  CLEAR ALL TABS          "       "       "                       [3g
        C
        C 14  SET TAB HERE            "       "       "                       H
        C
        C 49  CLEAR TAB HERE          "       "       "                       [0g
        C
        C 57  SELECT NEW LINE MODE    "       "       "                       [20h
        C
        C 58  DESELECT    "           "       "       "                       [20l
        C
        C 68  SELECT SCROLL REGION
        C     FROM LINE * TO N        *       N       "               [~*~;~N~r
        C
        C 79  ORIGIN MODE ON          IGNORE  IGNORE  "                       [?6h
        C
        C 80  ORIGIN MODE OFF         "       "       "                       [?6l
        C
        C 81  WRAPAROUND ON           "       "       "                       [?7h
        C
        C 82  WRAPAROUND OFF          "       "       "                       [?7l
        C
        C 77  SEL.INVERSE SCREEN      "       "       "                       [?5h
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	4
SC:TERSEQ.MET	FORTRAN IV

        C 78  SEL.NORMAL SCREEN       "       "       "                       [?5l
        C
        C 87  SEL. 80 CHAR            "       "       "                       [?3l
        C
        C 74  SEL. 132 CHAR           "       "       "                       [?3h
        C
        C  2  SOUND BELL              "       "       "                       ^G
        C
        C 16  PRINT ONLY              "       "       "                       W
        C
        C 17  PRINT OFF               "       "       "                       X
        C
        C 18  PRINT ON                "       "       "                       ~^~
        C
        C 22  PRINT PAGE              "       "       "                       ]
        C
        C  3  BACKSPACE               "       "       "                       ^H
        C
        C  4  TAB                     "       "       "                       ^I
        C
        C  5  LF                      "       "       "                       ^J
        C
        C  6  CR                      "       "       "                       ^M
        C
        C 13  CRLF                    "       "       "                       E
        C
        C 15  -LF                     "       "       "                       M
        C
        C 23  SAVE CURSOR             "       "       "                       7
        C
        C 24  RESTORE CURSOR          "       "       "                       8
        C
        C 44  MOVE CURSOR UP * LINES  *       "       "                       [~*~A
        C
        C 45  MOVE CURSOR DOWN * LIN. *       "       "                       [~*~B
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	5
SC:TERSEQ.MET	FORTRAN IV

        C 46  MOVE CURSOR RIGHT * COL.*       "       "                       [~*~C
        C
        C 47  MOVE CURSOR LEFT * COL. *       "       "                       [~*~D
        C
        C 48  MOVE CURSOR TO R,K      R       K       "               [~R~;~K~H
        C
        C 85  HOME                    "       "       IGNORE                  [H
        C
        C 59  CLEAR ALL CHAR. ATTRIB. "       "       "                       [0m
        C
        C 60  SEL. ALT. INTENSITY     "       "       "                       [1m
        C
        C 61  SEL. UNDERLINE          "       "       "                       [4m
        C
        C 62  SEL. FLASH              "       "       "                       [5m
        C
        C 63  SEL. INVERSE            "       "       "                       [7m
        C
        C 31  S H S W (NORMAL)        "       "       "                       #5
        C
        C 27  D H S W TOP             "       "       "                       #1
        C
        C 28  D H S W BOTTOM          "       "       "                       #2
        C
        C 29  D H D W TOP             "       "       "                       #3
        C
        C 30  D H D W BOTTOM          "       "       "                       #4
        C
        C 32  S H D W                 "       "       "                       #6
        C
        C 50  ERASE REST OF SCREEN    "       "       "                       [0J
        C
        C 51  ERASE R.O.S. BACKWARDS  "       "       "                       [1J
        C
        C 52  ERASE SCREEN,FREEZE CUR "       "       "                       [2J
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	6
SC:TERSEQ.MET	FORTRAN IV

        C 53  ERASE REST OF LINE      "       "       "                       [0K
        C
        C 54  ERASE R.O.L. BACKWARDS  "       "       "                       [1K
        C
        C 55  ERASE LINE,FREEZE CUR.  "       "       "                       [2K
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
        C
0001          SUBROUTINE TERSEQ(OPERAT,PARM1,PARM2)
        C
        C
        C
0002          INTEGER OPERAT          <TERMINAL OPERATION , SEE SORCE ABOVE
0003          INTEGER PARM1           <NUMERICAL PARAMETER
0004          INTEGER PARM2           <NUMERICAL PARAMETER
        C
0005          INTEGER IPARAM(6)       <6 WORD PARAMETER FIELD FOR WTQIO
0006          INTEGER IOWBT           <WRITE BREAK THROUGH FUNCTION
0007          INTEGER IOWLB           <WRITE LOGICAL BLOCK FUNCTION
0008          INTEGER IOATT           <ATTACH DEVICE FUNCTION
0009          INTEGER IODET           <DETACH DEVICE FUNCTION
0010          INTEGER IDS             <DIRECTIVE STATUS RETURN CODE
0011          BYTE PIC(30)            <BUFFER FOR ESQSEQ TO BE WRITTEN TO TERMINAL
0012          INTEGER PICLEN          <NUMBER OF CHAR IN PIC
0013          INTEGER I               <LOOP VARIABLE AND TEMPORARY STORAGE
0014          INTEGER J               <TEMPORARY STORAGE
0015          INTEGER K               <TEMPORARY STORAGE
0016          INTEGER L               <TEMPORARY STORAGE
        C
        C
        C
        C             INITIALIZE
        C
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	7
SC:TERSEQ.MET	FORTRAN IV

0017          DATA IOWBT/"000500/     <FUNKTIONSKOD F\R WRITE BREAK THROUGH
0018          DATA IOWLB/"000400/     <FUNKTIONSKOD F\R WRITE LOGICAL BLOCK
0019          DATA IOATT/"001400/     <FUNKTIONSKOD F\R ATTACH DEVICE
0020          DATA IODET/"002000/     <FUNKTIONSKOD F\R DETACH DEVICE
0021          PIC(1)="33              <ESCAPE ;DEFAULT
0022          PIC(2)="133             <[ ;DEFAULT
0023          PIC(3)="77              <? ;DEFAULT
        C
        C    ADRESSEN TILL PIC M]STE FINNAS I PARAMETERLISTAN TILL QIO
        C
        C
0024          CALL GETADR(IPARAM(1),PIC(1))
0025          IPARAM(3)=0                     <NO Vertical Format Control
        C
        C             ETABLERA PIC M.A.P. OPERAT
        C
        C
0026          'IF' (OPERAT.EQ.100)
0028          .  CALL WTQIO(IOATT,5,1,,,,IDS)
0029          .  IF (IDS.NE.1) STOP 'WTQIO ATTACH ERROR'
0031          .  RETURN
0032          'ELSIF'(OPERAT.EQ.101)
0036          .  CALL WTQIO(IODET,5,1,,,,IDS)
0037          .  IF (IDS.NE.1) STOP 'WTQIO DETACH ERROR'
0039          .  RETURN
0040          'ELSIF' (OPERAT.LE.11)
0044          .  PICLEN=1
0045          .  'IF' (OPERAT.LE.1)
0047          .  .  CHECK=.FALSE.
0048          .  'ELSIF' (OPERAT.LE.5)
0052          .  .  PIC(1)=OPERAT+5
0053          .  'ELSIF' (OPERAT.LE.8)
0057          .  .  PIC(1)=OPERAT+7
0058          .  'ELSIF' (OPERAT.EQ.12)
0062          .  .  PIC(1)=3
0063          .  'ELSE'
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	8
SC:TERSEQ.MET	FORTRAN IV

0065          .  .  STOP 'ILLEGAL OPERAT'
0066          .  'ENDIF'
0067          'ELSIF' (OPERAT.LE.24)
0071          .  PICLEN=2
0072          .  'IF' (OPERAT.EQ.12)
0074          .  .  PIC(2)='c'
0075          .  'ELSIF' (OPERAT.EQ.13)
0079          .  .  PIC(2)='E'
0080          .  'ELSIF' (OPERAT.EQ.14)
0084          .  .  PIC(2)='H'
0085          .  'ELSIF' (OPERAT.EQ.15)
0089          .  .  PIC(2)='M'
0090          .  'ELSIF' (OPERAT.EQ.16)
0094          .  .  PIC(2)='W'
0095          .  'ELSIF' (OPERAT.EQ.17)
0099          .  .  PIC(2)='X'
0100          .  'ELSIF' (OPERAT.EQ.18)
0104          .  .  PIC(2)='^'
0105          .  'ELSIF' (OPERAT.EQ.19)
0109          .  .  CHECK=.FALSE.
0110          .  'ELSIF' (OPERAT.EQ.20)
0114          .  .  PIC(2)='='
0115          .  'ELSIF' (OPERAT.EQ.21)
0119          .  .  PIC(2)='>'
0120          .  'ELSIF' (OPERAT.EQ.22)
0124          .  .  PIC(2)=']'
0125          .  'ELSIF' (OPERAT.EQ.23)
0129          .  .  PIC(2)='7'
0130          .  'ELSIF' (OPERAT.EQ.24)
0134          .  .  PIC(2)='8'
0135          .  'ENDIF'
0137          'ELSIF' (OPERAT.EQ.25)
0141          .  STOP 'ILLEGAL OPERAT'
0142          'ELSIF' (OPERAT.EQ.26)
0146          .  STOP 'ILLEGAL OPERAT'
0147          'ELSIF' (OPERAT.LE.32)
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	9
SC:TERSEQ.MET	FORTRAN IV

0151          .  PIC(2)='#'
0152          .  PIC(3)='1'+OPERAT-27
0153          .  PICLEN=3
0154          'ELSIF' (OPERAT.EQ.33)
0158          .  STOP 'ILLEGAL OPERAT'
0159          'ELSIF' (OPERAT.LE.43)
0163          .  PICLEN=3
0164          .  'IF' (OPERAT.LE.38)
0166          .  .  PIC(2)='('
0167          .  .  'IF' (OPERAT.LE.35)
0169          .  .  .  PIC(3)='A'+OPERAT-34
0170          .  .  'ELSE'
0172          .  .  .  PIC(3)='0'+OPERAT-36
0173          .  .  'ENDIF'
0174          .  'ELSE'
0176          .  .  PIC(2)=')'
0177          .  .  'IF' (OPERAT.LE.40)
0179          .  .  .  PIC(3)='A'+OPERAT-39
0180          .  .  'ELSE'
0182          .  .  .  PIC(3)='0'+OPERAT-41
0183          .  .  'ENDIF'
0184          .  'ENDIF'
0185          'ELSIF' (OPERAT.LE.47)
0189          .  PICLEN=4
0190          .  'IF' (PARM1.GT.999.OR.PARM1.LT.1)
0192          .  .  CHECK=.FALSE.
0193          .  'ELSIF' (PARM1.GT.99)
0197          .  .  PICLEN=6
0198          .  .  PIC(3)='0'+PARM1/100
0199          .  .  PARM1=PARM1-100*(PARM1/100)
0200          .  .  PIC(4)='0'+PARM1/10
0201          .  'ELSIF' (PARM1.GT.9)
0205          .  .  PICLEN=5
0206          .  .  PIC(3)='0'+PARM1/10
0207          .  'ENDIF'
0209          .  PIC(PICLEN-1)='0'+PARM1-10*(PARM1/10)
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	10
SC:TERSEQ.MET	FORTRAN IV

0210          .  PIC(PICLEN)='A'+OPERAT-44
0211          'ELSIF' (OPERAT.EQ.48.OR.OPERAT.EQ.68)
0215          .  J=3
0216          .  'IF' (PARM1.LT.1.OR.PARM1.GT.25)
0218          .  .  CHECK=.FALSE.
0219          .  'ELSIF' (PARM2.GT.132.AND.OPERAT.EQ.48)
0223          .  .  CHECK=.FALSE.
0224          .  'ELSIF' (PARM2.GT.25.AND.OPERAT.EQ.68)
0228          .  .  CHECK=.FALSE.
0229          .  'ELSIF' (PARM2.LT.1)
0233          .  .  CHECK=.FALSE.
0234          .  'ELSIF' (PARM1.GT.9)
0238          .  .  J=J+1
0239          .  .  PIC(3)='0'+PARM1/10
0240          .  'ENDIF'
0242          .  PIC(J)='0'+PARM1-10*(PARM1/10)
0243          .  PIC(J+1)=';'
0244          .  J=J+2
0245          .  'IF' (PARM2.GT.99)
0247          .  .  PIC(J)='0'+PARM2/100
0248          .  .  PARM2=PARM2-100*(PARM2/100)
0249          .  .  PIC(J+1)='0'+PARM2/10
0250          .  .  J=J+2
0251          .  'ELSIF' (PARM2.GT.9)
0255          .  .  PIC(J)='0'+PARM2/10
0256          .  .  J=J+1
0257          .  'ENDIF'
0259          .  PIC(J)='0'+PARM2-10*(PARM2/10)
0260          .  'IF' (OPERAT.EQ.48)  <MOVE CURSOR
0262          .  .  PIC(J+1)='H'
0263          .  'ELSE'            <SELECT SCROLLING REGION
0265          .  .  PIC(J+1)='r'
0266          .  'ENDIF'
0267          .  PICLEN=J+1
0268          'ELSIF' (OPERAT.EQ.49)
0272          .  PICLEN=4
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	11
SC:TERSEQ.MET	FORTRAN IV

0273          .  PIC(3)='0'
0274          .  PIC(4)='g'
0275          'ELSIF' (OPERAT.LE.55)
0279          .  PICLEN=4
0280          .  'IF' (OPERAT.LE.52)
0282          .  .  PIC(4)='J'
0283          .  .  PIC(3)='0'+OPERAT-50
0284          .  'ELSE'
0286          .  .  PIC(4)='K'
0287          .  .  PIC(3)='0'+OPERAT-53
0288          .  'ENDIF'
0289          'ELSIF' (OPERAT.EQ.56)
0293          .  PICLEN=4
0294          .  PIC(3)='3'
0295          .  PIC(4)='g'
0296          'ELSIF' (OPERAT.LE.58)
0300          .  PICLEN=5
0301          .  PIC(3)='2'
0302          .  PIC(4)='0'
0303          .  PIC(5)='h'
0304          .  IF (OPERAT.EQ.58) PIC(5)='l'
0306          'ELSIF' (OPERAT.LE.63)
0310          .  PICLEN=4
0311          .  PIC(4)='m'
0312          .  PIC(3)='0'+OPERAT-59
0313          .  IF (OPERAT.EQ.63) PIC(3)=PIC(3)+1
0315          .  IF (OPERAT.GE.61) PIC(3)=PIC(3)+2
0317          'ELSIF' (OPERAT.LE.65)
0321          .  STOP 'ILLEGAL OPERAT'
0322          'ELSIF' (OPERAT.LE.67)
0326          .  PICLEN=4
0327          .  PIC(4)='q'
0328          .  PIC(3)='0'
0329          .  'IF' (OPERAT.EQ.67)
0331          .  .  'IF' (PARM1.GT.5.OR.PARM1.LT.1)
0333          .  .  .  STOP 'ILLEGAL OPERAT'
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	12
SC:TERSEQ.MET	FORTRAN IV

0334          .  .  'ELSE'
0336          .  .  .  PIC(3)='0'+PARM1
0337          .  .  'ENDIF'
0338          .  'ENDIF'
0339          'ELSIF' (OPERAT.EQ.68)
0343          'ELSIF' (OPERAT.LE.70)
0347          .  STOP 'ILLEGAL OPERAT'
0348          'ELSIF' (OPERAT.LE.84)
0352          .  PICLEN=5
0353          .  PIC(5)='l'
0354          .  IF (MOD(OPERAT,2).NE.0) PIC(5)='h'
0356          .  'IF' (OPERAT.LE.72)
0358          .  .  PIC(4)='1'
0359          .  'ELSIF' (OPERAT.EQ.73)
0363          .  .  PIC(4)='2'
0364          .  .  PIC(5)='l'
0365          .  'ELSIF' (OPERAT.EQ.74)
0369          .  .  PIC(4)='3'
0370          .  .  PIC(5)='h'
0371          .  'ELSE'
0373          .  .  PIC(4)='4'+(OPERAT-75)/2
0374          .  'ENDIF'
0375          'ELSIF' (OPERAT.EQ.85)
0379          .  PICLEN=3
0380          .  PIC(3)='H'
0381          'ELSIF' (OPERAT.EQ.86)
0385          .  PICLEN=2
0386          .  PIC(2)='<'
0387          'ELSIF' (OPERAT.EQ.87)
0391          .  PICLEN=5
0392          .  PIC(4)='3'
0393          .  PIC(5)='l'
0394          'ELSE'
0396          .  STOP 'ILLEGAL OPERAT'
0397          'ENDIF'
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:22	PAGE	13
SC:TERSEQ.MET	FORTRAN IV

        C
        C             LENGTH OF EXTERNAL RECORD IS GIVEN BY PICLEN
        C
        C
0398          IPARAM(2)=PICLEN
        C
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C             EXECUTE
        C
        C     CALL WTQIO(IOWBT,5,1,,,IPARAM,IDS)      <REMOVE C FOR IOWBT
0399          CALL WTQIO(IOWLB,5,1,,,IPARAM,IDS)      <INSERT C FOR IOWBT
0400          'IF'(IDS.NE.1)
0402          .  STOP 'TERSEQ WTQIO IDS ERROR'
0403          'ENDIF'
        C
        C
0404          RETURN
        C
        C
0405          END


Errors detected:     0
SC:TERSEQ,SC:TERSEQ.MLS/-SP=SC:TERSEQ