SUBROUTINE GETCMD(LIN,COL1,CURPOS,TERMC0)
INTEGER LIN(512),TERMC0
INTEGER COL1,CURPOS
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
INTEGER CURSOR,NLPOS,PREVC0,PREVS0,STATUS,SCANP0,TABPOS,FIRST
INTEGER LENGTH
INTEGER C
INTEGER SMARG0(7)
INTEGER AAAAC0
INTEGER AAAAE0
INTEGER AAAAG0
INTEGER AAAAI0
INTEGER AAAAK0
INTEGER AAAAL0
INTEGER AAAAM0
INTEGER AAAAN0
INTEGER AAAAO0(7)
INTEGER AAAAP0(5)
INTEGER AAAAQ0
INTEGER AAAAR0(5)
INTEGER AAAAA0
INTEGER AAAAB0
INTEGER AAAAS0
INTEGER AAAAT0
INTEGER AAAAU0(7)
INTEGER AAAAD0
INTEGER AAAAV0
INTEGER AAAAF0
INTEGER AAAAH0
INTEGER AAAAW0,AAAAX0
INTEGER AAAAJ0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
DATA SMARG0/205,193,210,199,201,206,0/
DATA AAAAO0/201,206,211,197,210,212,0/
DATA AAAAP0/195,193,211,197,0/
DATA AAAAR0/215,200,193,191,0/
DATA AAAAU0/206,207,195,200,193,210,0/
NLPOS=LENGTH(LIN)
IF((NLPOS.LE.0))GOTO 10006
IF((LIN(NLPOS).NE.138))GOTO 10006
GOTO 10007
10006 NLPOS=NLPOS+(1)
10005 GOTO 10007
10008 CURSOR=1
GOTO 10009
10010 CURSOR=NLPOS
GOTO 10009
10007 IF((CURPOS.LT.1))GOTO 10008
IF((CURPOS.GE.512))GOTO 10010
AAAAJ0=CURPOS
AAAAK0=1
GOTO 10004
10011 CONTINUE
10009 PREVC0=CURSOR
CALL WATCH
AAAAL0=NCHOI0
GOTO 10012
10013 CALL LITNN0('line .',CURLN0,9)
GOTO 10014
10015 CALL LITNN0('$=.',LASTL0,9)
GOTO 10014
10016 CALL LITNN0('#=.',TOPLN0,9)
GOTO 10014
10012 AAAAM0=AAAAL0-162
GOTO(10016,10015,10017,10017,10017,10017,10017,10017,10017,10017,
* 10017,10013),AAAAM0
10017 CALL MESG(0,9)
10014 IF((CURSOR.GE.WARNC0))GOTO 10018
CALL MESG(0,8)
10018 TERMC0=0
STATUS=-2
PREVS0=-3
FIRST=COL1
10019 IF((TERMC0.NE.0))GOTO 10020
LIN(NLPOS)=0
IF((STATUS.NE.-3))GOTO 10021
CALL T1OU(135)
GOTO 10022
10021 IF((PREVS0.NE.-3))GOTO 10023
CALL MESG(0,2)
10023 CONTINUE
10022 PREVS0=STATUS
STATUS=-2
GOTO 10024
10025 FIRST=CURSOR
GOTO 10028
10027 FIRST=CURSOR-NCOLS0+8
GOTO 10028
10024 IF((FIRST.GT.CURSOR))GOTO 10025
IF((FIRST.LT.CURSOR-NCOLS0+8))GOTO 10027
10026 GOTO 10028
10029 CALL LOAD(252,CMDRO0,7)
GOTO 10030
10031 CALL LOAD(188,CMDRO0,7)
GOTO 10030
10032 CALL LOAD(190,CMDRO0,7)
GOTO 10030
10028 IF((FIRST.EQ.COL1))GOTO 10029
IF((FIRST.GT.COL1))GOTO 10031
IF((FIRST.LT.COL1))GOTO 10032
10030 CALL LOADS0(LIN(FIRST),CMDRO0,8,NCOLS0)
IF((CURSOR.NE.WARNC0))GOTO 10033
IF((PREVC0.GE.WARNC0))GOTO 10033
CALL T1OU(135)
10033 IF((CURSOR.LT.WARNC0))GOTO 10034
CALL LITNN0('col .',CURSOR,8)
GOTO 10035
10034 IF((PREVC0.LT.WARNC0))GOTO 10036
CALL MESG(0,8)
10036 CONTINUE
10035 CALL POSIT0(CMDRO0,CURSOR+8-FIRST)
PREVC0=CURSOR
IF((PEEKC0.NE.0))GOTO 10037
CALL C1IN(C)
GOTO 10038
10037 C=PEEKC0
PEEKC0=0
10038 AAAAN0=C
GOTO 10039
10040 IF((C.NE.155))GOTO 10041
CALL C1IN(C)
GOTO 10042
10041 IF((INVER0.EQ.0))GOTO 10043
IF((193.GT.C))GOTO 10045
IF((C.GT.218))GOTO 10045
GOTO 10044
10045 IF((225.GT.C))GOTO 10043
IF((C.GT.250))GOTO 10043
GOTO 10044
10044 C=XOR(C,32)
10043 CONTINUE
10042 IF((INSER0.EQ.0))GOTO 10047
AAAAH0=1
AAAAI0=1
GOTO 10003
10047 IF((CURSOR.LT.512-1))GOTO 10050
STATUS=-3
CALL MESG(SMARG0,2)
10050 CONTINUE
10049 IF((STATUS.EQ.-3))GOTO 10019
LIN(CURSOR)=C
CURSOR=CURSOR+(1)
IF((NLPOS.GE.CURSOR))GOTO 10052
NLPOS=CURSOR
10052 IF((C.NE.138))GOTO 10053
TERMC0=141
10053 CONTINUE
10051 GOTO 10019
10055 AAAAJ0=CURSOR-1
AAAAK0=2
GOTO 10004
10057 AAAAD0=133
AAAAE0=1
GOTO 10001
10058 IF((STATUS.EQ.-3))GOTO 10019
CURSOR=TABPOS
10059 GOTO 10019
10060 CURSOR=1
GOTO 10019
10061 AAAAA0=C
AAAAB0=1
AAAAC0=1
GOTO 10000
10062 IF((STATUS.EQ.-3))GOTO 10019
CURSOR=SCANP0
10063 GOTO 10019
10064 AAAAJ0=CURSOR-1
AAAAK0=3
GOTO 10004
10065 IF((STATUS.EQ.-3))GOTO 10019
AAAAF0=1
AAAAG0=1
GOTO 10002
10067 CONTINUE
10066 GOTO 10019
10068 AAAAD0=133
AAAAE0=2
GOTO 10001
10069 IF((STATUS.EQ.-3))GOTO 10019
CURSOR=TABPOS
AAAAF0=PREVC0-TABPOS
AAAAG0=2
GOTO 10002
10071 CONTINUE
10070 GOTO 10019
10072 CURSOR=1
AAAAF0=PREVC0-1
AAAAG0=3
GOTO 10002
10074 AAAAA0=C
AAAAB0=0
AAAAC0=2
GOTO 10000
10075 IF((STATUS.EQ.-3))GOTO 10019
CURSOR=SCANP0
AAAAF0=PREVC0-SCANP0
AAAAG0=4
GOTO 10002
10077 CONTINUE
10076 GOTO 10019
10078 AAAAJ0=CURSOR+1
AAAAK0=4
GOTO 10004
10080 AAAAD0=137
AAAAE0=3
GOTO 10001
10081 IF((STATUS.EQ.-3))GOTO 10019
AAAAJ0=TABPOS
AAAAK0=5
GOTO 10004
10083 CONTINUE
10082 GOTO 10019
10084 CURSOR=NLPOS
FIRST=COL1
GOTO 10019
10085 AAAAA0=C
AAAAB0=1
AAAAC0=3
GOTO 10000
10086 IF((STATUS.EQ.-3))GOTO 10019
CURSOR=SCANP0
10087 GOTO 10019
10088 AAAAF0=1
AAAAG0=5
GOTO 10002
10090 AAAAD0=137
AAAAE0=4
GOTO 10001
10091 IF((STATUS.EQ.-3))GOTO 10019
AAAAF0=TABPOS-CURSOR
AAAAG0=6
GOTO 10002
10093 CONTINUE
10092 GOTO 10019
10094 AAAAF0=NLPOS-CURSOR
AAAAG0=7
GOTO 10002
10096 AAAAA0=C
AAAAB0=0
AAAAC0=4
GOTO 10000
10097 IF((STATUS.EQ.-3))GOTO 10019
AAAAF0=SCANP0-CURSOR
AAAAG0=8
GOTO 10002
10099 CONTINUE
10098 GOTO 10019
10100 CURSOR=NLPOS
TERMC0=C
GOTO 10019
10101 NLPOS=CURSOR
TERMC0=C
GOTO 10019
10102 TERMC0=C
GOTO 10019
10103 AAAAH0=1
AAAAI0=2
GOTO 10003
10104 IF((STATUS.EQ.-3))GOTO 10019
LIN(CURSOR)=160
10105 GOTO 10019
10106 AAAAH0=1
AAAAI0=3
GOTO 10003
10107 IF((STATUS.EQ.-3))GOTO 10019
LIN(CURSOR)=138
TERMC0=132
10108 GOTO 10019
10109 CONTINUE
10110 IF((LIN(CURSOR).NE.160))GOTO 10111
CURSOR=CURSOR+(1)
GOTO 10110
10111 AAAAD0=137
AAAAE0=5
GOTO 10001
10112 IF((STATUS.EQ.-3))GOTO 10113
AAAAH0=TABPOS-CURSOR
AAAAI0=4
GOTO 10003
10114 CONTINUE
10113 IF((STATUS.EQ.-3))GOTO 10115
GOTO 10118
10116 CURSOR=CURSOR+(1)
10118 IF((CURSOR.GE.TABPOS))GOTO 10117
LIN(CURSOR)=160
GOTO 10116
10117 CONTINUE
10115 CURSOR=PREVC0
GOTO 10019
10119 INSER0=1+0-INSER0
IF((INSER0.NE.0))GOTO 10120
CALL MESG(0,4)
GOTO 10019
10120 CALL MESG(AAAAO0,4)
10121 GOTO 10019
10122 INVER0=1+0-INVER0
IF((INVER0.NE.0))GOTO 10123
CALL MESG(0,3)
GOTO 10019
10123 CALL MESG(AAAAP0,3)
10124 GOTO 10019
10125 NLPOS=1
CURSOR=1
GOTO 10019
10126 CALL RESTO0
GOTO 10019
10039 AAAAQ0=AAAAN0-128
GOTO(10119,10096,10103,10102,10057,10102,10078,10055,10080,10101
*,10102,10061,10127,10074,10084,10127,10126,10088,10085,10094,10064
*,10100,10060,10109,10072,10122,10040,10068,10127,10090,10106,10040
*,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040
*,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040
*,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040
*,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040
*,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040
*,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040
*,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040
*,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040,10040
*,10040,10040,10040,10040,10040,10040,10125),AAAAQ0
10127 STATUS=-3
CALL MESG(AAAAR0,2)
10054 GOTO 10019
10020 LIN(NLPOS)=138
LIN(NLPOS+1)=0
CALL LOAD(252,CMDRO0,7)
IF((NLPOS.GT.COL1))GOTO 10128
CALL LOADS0(0,CMDRO0,8,NCOLS0)
GOTO 10129
10128 CALL LOADS0(LIN(COL1),CMDRO0,8,NCOLS0)
10129 IF((CURSOR.LT.WARNC0))GOTO 10130
CALL LITNN0('col .',CURSOR,8)
GOTO 10131
10130 IF((PREVC0.LT.WARNC0))GOTO 10132
CALL MESG(0,8)
10132 CONTINUE
10131 CURPOS=CURSOR
RETURN
10000 CALL C1IN(AAAAS0)
IF((INVER0.EQ.0))GOTO 10133
IF((193.GT.AAAAS0))GOTO 10135
IF((AAAAS0.GT.218))GOTO 10135
GOTO 10134
10135 IF((225.GT.AAAAS0))GOTO 10133
IF((AAAAS0.GT.250))GOTO 10133
GOTO 10134
10134 AAAAS0=XOR(AAAAS0,32)
10133 IF((AAAAS0.NE.AAAAA0))GOTO 10137
AAAAS0=LASTC0
10137 LASTC0=AAAAS0
IF((AAAAA0.EQ.140))GOTO 10139
IF((AAAAA0.EQ.142))GOTO 10139
GOTO 10138
10139 AAAAT0=-1
GOTO 10140
10138 AAAAT0=+1
10140 SCANP0=CURSOR
10141 IF((SCANP0.GE.1))GOTO 10142
IF((AAAAB0.NE.0))GOTO 10143
GOTO 10144
10143 SCANP0=NLPOS
GOTO 10145
10142 IF((SCANP0.LE.NLPOS))GOTO 10146
IF((AAAAB0.NE.0))GOTO 10147
GOTO 10144
10147 SCANP0=1
GOTO 10148
10146 SCANP0=SCANP0+(AAAAT0)
10148 CONTINUE
10145 IF((0.GE.SCANP0))GOTO 10149
IF((SCANP0.GE.NLPOS))GOTO 10149
IF((LIN(SCANP0).NE.AAAAS0))GOTO 10149
GOTO 10144
10149 CONTINUE
IF((SCANP0.NE.CURSOR))GOTO 10141
10144 IF((SCANP0.LE.0))GOTO 10151
IF((SCANP0.GE.NLPOS))GOTO 10151
IF((LIN(SCANP0).NE.AAAAS0))GOTO 10151
GOTO 10152
10151 STATUS=-3
CALL MESG(AAAAU0,2)
10150 GOTO 10152
10001 IF((AAAAD0.NE.133))GOTO 10153
AAAAV0=-1
TABPOS=CURSOR-1
GOTO 10157
10153 AAAAV0=+1
TABPOS=CURSOR+1
10154 GOTO 10157
10155 TABPOS=TABPOS+(AAAAV0)
10157 IF((0.GE.TABPOS))GOTO 10156
IF((TABPOS.GT.512))GOTO 10156
IF((TABST0(TABPOS).EQ.0))GOTO 10155
GOTO 10156
10156 IF((TABPOS.LT.1))GOTO 10160
IF((TABPOS.GE.512))GOTO 10160
GOTO 10161
10160 STATUS=-3
CALL MESG(SMARG0,2)
10159 GOTO 10161
10002 IF((CURSOR+AAAAF0.LE.NLPOS))GOTO 10162
STATUS=-3
CALL MESG(SMARG0,2)
GOTO 10165
10162 IF((AAAAF0.LE.0))GOTO 10164
CALL SCOPY(LIN,CURSOR+AAAAF0,LIN,CURSOR)
NLPOS=NLPOS-(AAAAF0)
10164 CONTINUE
10163 GOTO 10165
10003 IF((NLPOS+AAAAH0.LT.512))GOTO 10166
STATUS=-3
CALL MESG(SMARG0,2)
GOTO 10171
10166 AAAAW0=NLPOS
AAAAX0=NLPOS+AAAAH0
GOTO 10170
10168 AAAAW0=AAAAW0-(1)
AAAAX0=AAAAX0-(1)
10170 IF((AAAAW0.LT.CURSOR))GOTO 10169
LIN(AAAAX0)=LIN(AAAAW0)
GOTO 10168
10169 NLPOS=NLPOS+(AAAAH0)
10167 GOTO 10171
10004 IF((AAAAJ0.LT.1))GOTO 10173
IF((AAAAJ0.GE.512))GOTO 10173
GOTO 10172
10173 STATUS=-3
CALL MESG(SMARG0,2)
GOTO 10178
10172 CURSOR=AAAAJ0
GOTO 10177
10175 NLPOS=NLPOS+(1)
10177 IF((NLPOS.GE.CURSOR))GOTO 10176
LIN(NLPOS)=160
GOTO 10175
10176 CONTINUE
10174 GOTO 10178
10178 GOTO(10011,10019,10065,10019,10083),AAAAK0
GOTO 10178
10171 GOTO(10049,10104,10107,10114),AAAAI0
GOTO 10171
10165 GOTO(10067,10071,10019,10077,10019,10093,10019,10099),AAAAG0
GOTO 10165
10161 GOTO(10058,10069,10081,10091,10112),AAAAE0
GOTO 10161
10152 GOTO(10062,10075,10086,10097),AAAAC0
GOTO 10152
END
SUBROUTINE SEND(CHAR)
INTEGER CHAR
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((CURRO0.NE.NROWS0))GOTO 10179
IF((CURCO0.NE.NCOLS0))GOTO 10179
RETURN
10179 CALL T1OU(CHAR)
IF((CURCO0.NE.NCOLS0))GOTO 10180
IF((TERMT0.EQ.4))GOTO 10182
IF((TERMT0.EQ.16))GOTO 10182
IF((TERMT0.EQ.28))GOTO 10182
IF((TERMT0.EQ.3))GOTO 10182
IF((TERMT0.EQ.26))GOTO 10182
IF((TERMT0.EQ.34))GOTO 10182
CURCO0=1
CURRO0=CURRO0+(1)
10181 GOTO 10182
10180 CURCO0=CURCO0+(1)
10182 RETURN
END
SUBROUTINE POSIT0(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
INTEGER AAAAY0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((ROW.GT.NROWS0))GOTO 10183
IF((ROW.LT.1))GOTO 10183
IF((COL.GT.NCOLS0))GOTO 10183
IF((COL.LT.1))GOTO 10183
IF((ROW.NE.CURRO0))GOTO 10184
IF((COL.NE.CURCO0))GOTO 10184
GOTO 10183
10184 AAAAY0=TERMT0
GOTO 10185
10186 CALL ADDSP0(ROW,COL)
GOTO 10187
10188 CALL REGEN0(ROW,COL)
GOTO 10187
10189 CALL HPPOS(ROW,COL)
GOTO 10187
10190 CALL PEPOS(ROW,COL)
GOTO 10187
10191 CALL TVTPOS(ROW,COL)
GOTO 10187
10192 CALL GT40P0(ROW,COL)
GOTO 10187
10193 CALL BEEPOS(ROW,COL)
GOTO 10187
10194 CALL HAZPOS(ROW,COL)
GOTO 10187
10195 CALL CGPOS(ROW,COL)
GOTO 10187
10196 CALL ISCPOS(ROW,COL)
GOTO 10187
10197 CALL ADMPOS(ROW,COL)
GOTO 10187
10198 CALL IBMPOS(ROW,COL)
GOTO 10187
10199 CALL ANPPOS(ROW,COL)
GOTO 10187
10200 CALL NETPOS(ROW,COL)
GOTO 10187
10201 CALL H19POS(ROW,COL)
GOTO 10187
10202 CALL TRSPOS(ROW,COL)
GOTO 10187
10203 CALL BEE2P0(ROW,COL)
GOTO 10187
10204 CALL TERAK0(ROW,COL)
GOTO 10187
10205 CALL INFOP0(ROW,COL)
GOTO 10187
10206 CALL NBYPOS(ROW,COL)
GOTO 10187
10207 CALL ANSIP0(ROW,COL)
GOTO 10187
10208 CALL FORSY0(ROW,COL)
GOTO 10187
10185 GOTO(10186,10188,10190,10191,10192,10193,10193,10193,10193,10194
*,10195,10196,10197,10198,10199,10200,10201,10202,10189,10197,10197
*,10201,10201,10197,10197,10189,10194,10190,10189,10193,10193,10206
*,10207,10207,10208,10197,10197,10205,10189,10204,10194,10188,10197
*,10203),AAAAY0
10187 CONTINUE
10183 RETURN
END
SUBROUTINE B200C0(COORD)
INTEGER COORD
INTEGER ACC,TENS,UNITS
ACC=COORD-1
TENS=ACC/10
UNITS=ACC-10*TENS
ACC=UNITS+16*TENS
CALL T1OU(ACC)
RETURN
END
SUBROUTINE BEEPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((ROW.NE.CURRO0+1))GOTO 10209
IF((COL.NE.1))GOTO 10209
IF((TERMT0.EQ.8))GOTO 10209
CALL T1OU(138)
CURCO0=1
CURRO0=CURRO0+(1)
GOTO 10210
10209 IF((ROW.NE.1))GOTO 10211
IF((COL.NE.1))GOTO 10211
CALL T1OU(155)
CALL T1OU(200)
CURRO0=1
CURCO0=1
GOTO 10212
10211 IF((ROW.NE.CURRO0))GOTO 10213
IF((COL.LE.CURCO0))GOTO 10213
IF((COL.GT.CURCO0+4))GOTO 10213
10214 IF((CURCO0.EQ.COL))GOTO 10216
CALL T1OU(SCREE0(CURCO0,CURRO0))
CURCO0=CURCO0+(1)
GOTO 10214
10213 IF((ROW.NE.CURRO0))GOTO 10217
IF((COL.GE.CURCO0))GOTO 10217
IF((COL.LT.CURCO0-4))GOTO 10217
10218 IF((CURCO0.EQ.COL))GOTO 10220
CALL T1OU(136)
CURCO0=CURCO0-(1)
GOTO 10218
10217 CALL T1OU(155)
CALL T1OU(198)
IF((TERMT0.EQ.7))GOTO 10222
IF((TERMT0.EQ.9))GOTO 10222
GOTO 10221
10222 CALL B200C0(ROW)
CALL B200C0(COL)
GOTO 10223
10221 IF((TERMT0.EQ.6))GOTO 10225
IF((TERMT0.EQ.30))GOTO 10225
IF((TERMT0.EQ.31))GOTO 10225
GOTO 10224
10225 CALL T1OU(ROW+160-1)
CALL T1OU(COL+160-1)
GOTO 10226
10224 CALL SBEEC0(COL)
CALL SBEEC0(ROW)
10226 CONTINUE
10223 CURRO0=ROW
CURCO0=COL
10220 CONTINUE
10216 CONTINUE
10212 CONTINUE
10210 RETURN
END
SUBROUTINE BEE2P0(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
INTEGER I
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((CURRO0.LE.ROW))GOTO 10227
I=CURRO0
GOTO 10230
10228 I=I-(1)
10230 IF((I.LE.ROW))GOTO 10231
CALL T1OU(146)
GOTO 10228
10227 IF((CURRO0.GE.ROW))GOTO 10232
I=CURRO0
GOTO 10235
10233 I=I+(1)
10235 IF((I.GE.ROW))GOTO 10234
CALL T1OU(138)
GOTO 10233
10234 CONTINUE
10232 CONTINUE
10231 CURRO0=ROW
IF((COL.NE.1))GOTO 10236
CALL T1OU(141)
GOTO 10237
10236 CALL UHCM(COL)
10237 CURCO0=COL
RETURN
END
SUBROUTINE REGEN0(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((IABS(CURCO0-COL).GT.4))GOTO 10239
IF((CURRO0.NE.ROW))GOTO 10239
GOTO 10238
10239 CALL T1OU(155)
CALL T1OU(217)
CALL T1OU(160-1+ROW)
CALL T1OU(160-1+COL)
CURRO0=ROW
CURCO0=COL
GOTO 10240
10238 CONTINUE
10241 IF((ROW.GE.CURRO0))GOTO 10242
CALL T1OU(154)
CURRO0=CURRO0-(1)
GOTO 10241
10242 CONTINUE
10243 IF((ROW.LE.CURRO0))GOTO 10244
CALL T1OU(138)
CURRO0=CURRO0+(1)
CURCO0=1
GOTO 10243
10244 IF((COL.LE.CURCO0))GOTO 10245
10246 IF((COL.EQ.CURCO0))GOTO 10248
CALL T1OU(SCREE0(CURCO0,CURRO0))
CURCO0=CURCO0+(1)
GOTO 10246
10245 IF(((CURCO0-COL)*2.LE.NCOLS0))GOTO 10249
10250 IF((COL.EQ.CURCO0))GOTO 10254
CALL T1OU(134)
IF((CURCO0.NE.NCOLS0))GOTO 10252
CURCO0=1
GOTO 10250
10252 CURCO0=CURCO0+(1)
10253 GOTO 10250
10249 CONTINUE
10255 IF((COL.EQ.CURCO0))GOTO 10256
CALL T1OU(136)
CURCO0=CURCO0-(1)
GOTO 10255
10256 CONTINUE
10254 CONTINUE
10248 CONTINUE
10240 RETURN
END
SUBROUTINE HPPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
INTEGER UNITS,TENS
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((ROW.NE.CURRO0+1))GOTO 10257
IF((COL.NE.1))GOTO 10257
CALL T1OU(138)
CURCO0=1
CURRO0=CURRO0+(1)
GOTO 10258
10257 IF((ROW.NE.1))GOTO 10259
IF((COL.NE.1))GOTO 10259
CALL T1OU(155)
CALL T1OU(200)
CURRO0=1
CURCO0=1
GOTO 10260
10259 IF((ROW.NE.CURRO0))GOTO 10261
IF((COL.LE.CURCO0))GOTO 10261
IF((COL.GT.CURCO0+4))GOTO 10261
10262 IF((CURCO0.EQ.COL))GOTO 10264
CALL T1OU(SCREE0(CURCO0,CURRO0))
CURCO0=CURCO0+(1)
GOTO 10262
10261 IF((ROW.NE.CURRO0))GOTO 10265
IF((COL.GE.CURCO0))GOTO 10265
IF((COL.LT.CURCO0-4))GOTO 10265
10266 IF((CURCO0.EQ.COL))GOTO 10268
CALL T1OU(136)
CURCO0=CURCO0-(1)
GOTO 10266
10265 IF((2*IABS(CURRO0-ROW)+IABS(CURCO0-COL).GT.7))GOTO 10269
10270 IF((CURRO0.GE.ROW))GOTO 10271
CALL T1OU(155)
CALL T1OU(194)
CURRO0=CURRO0+(1)
GOTO 10270
10271 CONTINUE
10272 IF((CURRO0.LE.ROW))GOTO 10273
CALL T1OU(155)
CALL T1OU(193)
CURRO0=CURRO0-(1)
GOTO 10272
10273 CONTINUE
10274 IF((CURCO0.LE.COL))GOTO 10275
CALL T1OU(136)
CURCO0=CURCO0-(1)
GOTO 10274
10275 CONTINUE
10276 IF((CURCO0.GE.COL))GOTO 10278
CALL T1OU(SCREE0(CURCO0,CURRO0))
CURCO0=CURCO0+(1)
GOTO 10276
10269 CALL T1OU(155)
CALL T1OU(166)
CALL T1OU(225)
UNITS=MOD((ROW-1),10)
TENS=(ROW-1)/10
IF((TENS.EQ.0))GOTO 10279
CALL T1OU(TENS+176)
10279 CALL T1OU(UNITS+176)
CALL T1OU(249)
UNITS=MOD((COL-1),10)
TENS=(COL-1)/10
IF((TENS.EQ.0))GOTO 10280
CALL T1OU(TENS+176)
10280 CALL T1OU(UNITS+176)
CALL T1OU(195)
CURRO0=ROW
CURCO0=COL
10278 CONTINUE
10268 CONTINUE
10264 CONTINUE
10260 CONTINUE
10258 RETURN
END
SUBROUTINE IBMPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((ROW.NE.CURRO0))GOTO 10281
IF((IABS(COL-CURCO0).GE.4))GOTO 10281
10282 IF((CURCO0.GE.COL))GOTO 10283
CALL T1OU(SCREE0(CURCO0,CURRO0))
CURCO0=CURCO0+(1)
GOTO 10282
10283 CONTINUE
10284 IF((CURCO0.LE.COL))GOTO 10286
CALL T1OU(136)
CURCO0=CURCO0-(1)
GOTO 10284
10281 CALL T1OU(155)
CALL T1OU(217)
CALL T1OU(160-1+ROW)
CALL T1OU(160-1+COL)
CURRO0=ROW
CURCO0=COL
10286 RETURN
END
SUBROUTINE INFOP0(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((CURRO0.NE.ROW))GOTO 10288
IF((IABS(COL-CURCO0).GT.5))GOTO 10288
GOTO 10287
10288 CALL T1OU(155)
CALL T1OU(230)
CALL T1OU(160+COL-1)
CALL T1OU(160+ROW-1)
GOTO 10289
10287 CALL UHCM(COL)
10289 CURCO0=COL
CURRO0=ROW
RETURN
END
SUBROUTINE H19POS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((COL.GT.3))GOTO 10290
IF((ROW.NE.CURRO0+1))GOTO 10290
CURRO0=CURRO0+(1)
CURCO0=1
CALL T1OU(138)
10290 IF((ROW.NE.CURRO0))GOTO 10291
IF((IABS(COL-CURCO0).GE.4))GOTO 10291
10292 IF((CURCO0.GE.COL))GOTO 10293
CALL T1OU(SCREE0(CURCO0,CURRO0))
CURCO0=CURCO0+(1)
GOTO 10292
10293 CONTINUE
10294 IF((CURCO0.LE.COL))GOTO 10296
CALL T1OU(136)
CURCO0=CURCO0-(1)
GOTO 10294
10291 CALL T1OU(155)
CALL T1OU(217)
CALL T1OU(160-1+ROW)
CALL T1OU(160-1+COL)
CURRO0=ROW
CURCO0=COL
10296 RETURN
END
SUBROUTINE PEPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((CURRO0.NE.ROW))GOTO 10297
GOTO 10298
10297 IF((ROW.NE.CURRO0-1))GOTO 10299
CALL T1OU(155)
CALL T1OU(193)
CURRO0=CURRO0-(1)
GOTO 10300
10299 IF((ROW.NE.CURRO0+1))GOTO 10301
CALL T1OU(155)
CALL T1OU(194)
CURRO0=CURRO0+(1)
GOTO 10302
10301 CALL T1OU(155)
CALL T1OU(216)
CALL T1OU(ROW+160-1)
CURRO0=ROW
10302 CONTINUE
10300 CONTINUE
10298 IF((IABS(COL-CURCO0).LE.3))GOTO 10303
CALL T1OU(155)
CALL T1OU(217)
CALL T1OU(COL+160-1)
CURCO0=COL
GOTO 10304
10303 CALL UHCM(COL)
10304 RETURN
END
SUBROUTINE ADMPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((COL.GT.3))GOTO 10305
IF((ROW.NE.CURRO0+1))GOTO 10305
CURRO0=CURRO0+(1)
CURCO0=1
CALL T1OU(138)
10305 IF((CURRO0.NE.ROW))GOTO 10307
IF((IABS(COL-CURCO0).GT.3))GOTO 10307
GOTO 10306
10307 CALL T1OU(155)
CALL T1OU(189)
CALL T1OU(160+ROW-1)
CALL T1OU(160+COL-1)
GOTO 10308
10306 CALL UHCM(COL)
10308 CURCO0=COL
CURRO0=ROW
RETURN
END
SUBROUTINE UHCM(COL)
INTEGER COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
10309 IF((CURCO0.GE.COL))GOTO 10310
CALL T1OU(SCREE0(CURCO0,CURRO0))
CURCO0=CURCO0+(1)
GOTO 10309
10310 CONTINUE
10311 IF((CURCO0.LE.COL))GOTO 10312
CALL T1OU(136)
CURCO0=CURCO0-(1)
GOTO 10311
10312 RETURN
END
SUBROUTINE HAZPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((ROW.NE.CURRO0))GOTO 10313
IF((IABS(COL-CURCO0).GE.4))GOTO 10313
10314 IF((CURCO0.GE.COL))GOTO 10315
CALL T1OU(SCREE0(CURCO0,CURRO0))
CURCO0=CURCO0+(1)
GOTO 10314
10315 CONTINUE
10316 IF((CURCO0.LE.COL))GOTO 10318
CALL T1OU(136)
CURCO0=CURCO0-(1)
GOTO 10316
10313 CALL T1OU(155)
CALL T1OU(145)
CALL T1OU(COL-1)
CALL T1OU(ROW-1)
CURRO0=ROW
CURCO0=COL
10318 RETURN
END
SUBROUTINE NETPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
CALL T1OU(155)
CALL T1OU(189)
CALL T1OU(ROW-1)
CALL T1OU(COL-1)
CURRO0=ROW
CURCO0=COL
RETURN
END
SUBROUTINE GT40P0(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((ROW.EQ.CURRO0))GOTO 10319
IF((COL.EQ.CURCO0))GOTO 10319
CALL T1OU(155)
CALL T1OU(ROW+160-1)
CALL T1OU(COL+160-1)
CURRO0=ROW
CURCO0=COL
GOTO 10320
10319 IF((ROW.EQ.CURRO0))GOTO 10321
CALL T1OU(134)
CALL T1OU(ROW+160-1)
CURRO0=ROW
GOTO 10322
10321 IF((IABS(COL-CURCO0).GE.2))GOTO 10323
CALL UHCM(COL)
GOTO 10324
10323 CALL T1OU(149)
CALL T1OU(COL+160-1)
CURCO0=COL
10324 CONTINUE
10322 CONTINUE
10320 RETURN
END
SUBROUTINE ADDSP0(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
INTEGER NTABS,WHERE
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((CURRO0.NE.ROW))GOTO 10326
IF((COL.LT.CURCO0-7))GOTO 10326
GOTO 10325
10326 CALL T1OU(139)
CALL T1OU(192-1+ROW)
CURRO0=ROW
CURCO0=1
10325 IF((COL.LE.CURCO0+2))GOTO 10327
NTABS=(COL+1)/5
WHERE=NTABS*5+1
NTABS=NTABS-((CURCO0-1)/5)
IF((NTABS+IABS(WHERE-COL).GT.4))GOTO 10328
GOTO 10331
10329 NTABS=NTABS-(1)
10331 IF((NTABS.LE.0))GOTO 10330
CALL T1OU(137)
GOTO 10329
10330 CURCO0=WHERE
10328 CONTINUE
10327 IF((COL.LE.CURCO0+4))GOTO 10332
WHERE=COL-CURCO0
CALL T1OU(155)
CALL T1OU(133)
CALL T1OU(176+(WHERE/10))
CALL T1OU(176+MOD(WHERE,10))
CURCO0=COL
10332 CONTINUE
10333 IF((CURCO0.GE.COL))GOTO 10334
CALL T1OU(SCREE0(CURCO0,CURRO0))
CURCO0=CURCO0+(1)
GOTO 10333
10334 CONTINUE
10335 IF((CURCO0.LE.COL))GOTO 10336
CALL T1OU(136)
CURCO0=CURCO0-(1)
GOTO 10335
10336 RETURN
END
SUBROUTINE ANPPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((ROW.NE.CURRO0))GOTO 10337
GOTO 10338
10339 CALL T1OU(137)
GOTO 10344
10341 CALL T1OU(137)
CALL T1OU(137)
GOTO 10344
10342 CALL T1OU(136)
GOTO 10344
10343 CALL T1OU(136)
CALL T1OU(136)
GOTO 10344
10338 IF((COL.EQ.CURCO0+1))GOTO 10339
IF((COL.EQ.CURCO0+2))GOTO 10341
IF((COL.EQ.CURCO0-1))GOTO 10342
IF((COL.EQ.CURCO0-2))GOTO 10343
CALL T1OU(155)
CALL T1OU(195)
CALL T1OU(COL-1+160)
10340 GOTO 10344
10337 IF((COL.NE.CURCO0))GOTO 10345
GOTO 10346
10347 CALL T1OU(138)
GOTO 10352
10349 CALL T1OU(138)
CALL T1OU(138)
GOTO 10352
10350 CALL T1OU(139)
GOTO 10352
10351 CALL T1OU(139)
CALL T1OU(139)
GOTO 10352
10346 IF((ROW.EQ.CURRO0+1))GOTO 10347
IF((ROW.EQ.CURRO0+2))GOTO 10349
IF((ROW.EQ.CURRO0-1))GOTO 10350
IF((ROW.EQ.CURRO0-2))GOTO 10351
CALL T1OU(155)
CALL T1OU(210)
CALL T1OU(ROW-1+160)
10348 GOTO 10352
10345 CALL T1OU(155)
CALL T1OU(208)
CALL T1OU(ROW-1+160)
CALL T1OU(COL-1+160)
10352 CONTINUE
10344 CURRO0=ROW
CURCO0=COL
RETURN
END
SUBROUTINE CGCOO0(I)
INTEGER I
INTEGER UNITS,TENS,HUNDR0
UNITS=MOD(I,10)
I=I/(10)
TENS=MOD(I,10)
I=I/(10)
HUNDR0=MOD(I,10)
CALL T1OU(160+16+HUNDR0)
CALL T1OU(160+16+TENS)
CALL T1OU(160+16+UNITS)
RETURN
END
SUBROUTINE CGPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
INTEGER I,J
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((ROW.NE.CURRO0+1))GOTO 10353
IF((COL.NE.1))GOTO 10353
CALL T1OU(138)
CURCO0=1
CURRO0=CURRO0+(1)
GOTO 10354
10353 IF((ROW.NE.1))GOTO 10355
IF((COL.NE.1))GOTO 10355
CALL T1OU(156)
CURRO0=1
CURCO0=1
GOTO 10356
10355 IF((ROW.NE.CURRO0))GOTO 10357
IF((COL.LE.CURCO0))GOTO 10357
IF((COL.GT.CURCO0+7))GOTO 10357
10358 IF((CURCO0.EQ.COL))GOTO 10360
CALL T1OU(157)
CURCO0=CURCO0+(1)
GOTO 10358
10357 IF((((ROW.NE.CURRO0).OR.(COL.GE.CURCO0)).OR.(COL.LT.CURCO0-7
*)))GOTO 10361
10362 IF((CURCO0.EQ.COL))GOTO 10364
CALL T1OU(136)
CURCO0=CURCO0-(1)
GOTO 10362
10361 CALL T1OU(129)
CALL T1OU(213)
I=511-10*(ROW-1)
J=6*(COL-1)
CALL CGCOO0(J)
CALL CGCOO0(I)
CURRO0=ROW
CURCO0=COL
10364 CONTINUE
10360 CONTINUE
10356 CONTINUE
10354 RETURN
END
SUBROUTINE ISCPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((ROW.NE.1))GOTO 10365
IF((COL.NE.1))GOTO 10365
CALL T1OU(136)
GOTO 10366
10365 CALL T1OU(131)
CALL T1OU(COL-1)
CALL T1OU(ROW-1)
10366 CURRO0=ROW
CURCO0=COL
RETURN
END
SUBROUTINE SBEEC0(COORD)
INTEGER COORD
INTEGER WHERE
CALL T1OU(176)
WHERE=COORD-1
CALL T1OU(176+(WHERE/10))
CALL T1OU(176+MOD(WHERE,10))
RETURN
END
SUBROUTINE TERAK0(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((CURRO0.NE.ROW))GOTO 10368
IF((IABS(COL-CURCO0).GT.3))GOTO 10368
GOTO 10367
10368 CALL T1OU(158)
CALL T1OU(160+COL-1)
CALL T1OU(160+ROW-1)
GOTO 10369
10367 CALL UHCM(COL)
10369 CURCO0=COL
CURRO0=ROW
RETURN
END
SUBROUTINE TRSPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
10370 IF((CURRO0.EQ.ROW))GOTO 10371
IF((CURRO0.LE.ROW))GOTO 10372
CALL T1OU(155)
CURRO0=CURRO0-(1)
GOTO 10370
10372 CALL T1OU(154)
CURRO0=CURRO0+(1)
10373 GOTO 10370
10371 IF((CURCO0.EQ.COL))GOTO 10374
IF((COL.LE.CURCO0))GOTO 10375
10376 IF((COL.LE.CURCO0))GOTO 10378
CALL T1OU(153)
CURCO0=CURCO0+(1)
GOTO 10376
10375 IF((COL.GE.CURCO0/2))GOTO 10379
CALL T1OU(157)
CURCO0=1
10380 IF((CURCO0.GE.COL))GOTO 10382
CALL T1OU(153)
CURCO0=CURCO0+(1)
GOTO 10380
10379 CONTINUE
10383 IF((COL.GE.CURCO0))GOTO 10384
CALL T1OU(152)
CURCO0=CURCO0-(1)
GOTO 10383
10384 CONTINUE
10382 CONTINUE
10378 CONTINUE
10374 RETURN
END
SUBROUTINE TVTPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
INTEGER HORIR0,HORIA0,VERTR0,VERTA0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
HORIR0=IABS(COL-CURCO0)
HORIA0=COL-1
IF((ROW.GT.CURRO0))GOTO 10385
VERTR0=CURRO0-ROW
GOTO 10386
10385 VERTR0=NROWS0-(ROW-CURRO0)
10386 VERTA0=NROWS0-(ROW-1)
IF((1+HORIA0+VERTA0.GT.HORIR0+VERTR0))GOTO 10387
CALL T1OU(140)
CURRO0=1
CURCO0=1
10387 CONTINUE
10388 IF((CURRO0.EQ.ROW))GOTO 10389
CALL T1OU(139)
CURRO0=CURRO0-(1)
IF((CURRO0.GE.1))GOTO 10388
CURRO0=NROWS0
10390 GOTO 10388
10389 IF((CURCO0.LE.COL))GOTO 10398
GOTO 10394
10392 CURCO0=CURCO0-(1)
10394 IF((CURCO0.EQ.COL))GOTO 10395
CALL T1OU(136)
GOTO 10392
10396 CURCO0=CURCO0+(1)
10398 IF((CURCO0.EQ.COL))GOTO 10397
CALL T1OU(137)
GOTO 10396
10397 CONTINUE
10395 RETURN
END
SUBROUTINE NBYPOS(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
IF((COL.GT.3))GOTO 10399
IF((ROW.NE.CURRO0+1))GOTO 10399
CURRO0=CURRO0+(1)
CURCO0=1
CALL T1OU(138)
10399 IF((CURRO0.NE.ROW))GOTO 10401
IF((IABS(COL-CURCO0).GT.3))GOTO 10401
GOTO 10400
10401 CALL T1OU(150)
CALL T1OU(160+COL-1)
CALL T1OU(160+ROW-1)
GOTO 10402
10400 CALL UHCM(COL)
10402 CURCO0=COL
CURRO0=ROW
RETURN
END
SUBROUTINE ANSIP0(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
INTEGER UNITS,TENS
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
CALL T1OU(155)
CALL T1OU(219)
UNITS=MOD(ROW,10)
TENS=ROW/10
IF((TENS.EQ.0))GOTO 10403
CALL T1OU(TENS+176)
10403 CALL T1OU(UNITS+176)
CALL T1OU(187)
UNITS=MOD(COL,10)
TENS=COL/10
IF((TENS.EQ.0))GOTO 10404
CALL T1OU(TENS+176)
10404 CALL T1OU(UNITS+176)
CALL T1OU(200)
CURCO0=COL
CURRO0=ROW
RETURN
END
SUBROUTINE FORSY0(ROW,COL)
INTEGER ROW,COL
COMMON /CLINES/LINE10,LINE20,NLINE0,CURLN0,LASTL0
INTEGER LINE10,LINE20,NLINE0,CURLN0,LASTL0
COMMON /CPAT/PATAA0(256),TLPAT0(256),SUBSA0(256),TSETA0(256)
INTEGER PATAA0,TLPAT0,SUBSA0,TSETA0
COMMON /CTXT/TXTAA0(512)
INTEGER TXTAA0
COMMON /CFILE/SAVFI0(512)
INTEGER SAVFI0
COMMON /CBUFR$/LASTB0,FENCE0,FREEA0,LINE00,BUFAA0(65520)
INTEGER LASTB0,FENCE0,FREEA0,LINE00
INTEGER BUFAA0
INTEGER PREVL0(1),NEXTL0(1)
INTEGER GLOBM0(1),LINEL0(1)
INTEGER * 4 SEEKA0(1)
INTEGER MARKN0(1)
COMMON /CUNDO/LIMBO0,LIMCN0
INTEGER LIMBO0,LIMCN0
COMMON /CSCRAT/SCRAA0,SCREN0,SCRNA0(512),LOSTL0
INTEGER SCRAA0
INTEGER * 4 SCREN0
INTEGER SCRNA0
INTEGER LOSTL0
COMMON /CMISC/BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0,PEEKC0,SAV
*CO0
INTEGER BUFFE0,ERRCO0,SAVER0,PROBA0,ARGNO0,LASTC0
INTEGER PEEKC0,SAVCO0(512)
COMMON /CMARK/SAVKN0
INTEGER SAVKN0
COMMON /COPT/TABST0(512),TABSU0(512),UNPRI0,DDIRA0,ABSNO0,NCHOI0,O
*VERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GLOBA0
INTEGER TABST0,TABSU0,UNPRI0
INTEGER DDIRA0,ABSNO0,NCHOI0,OVERM0,WARNC0,FIRST0,TSPEE0,INDEN0,GL
*OBA0
COMMON /CTERM/TERMT0
INTEGER TERMT0
COMMON /CSCRN/SCREE0(128,51),MSGAL0(128),NROWS0,NCOLS0,CURRO0,CURC
*O0,TOPRO0,BOTRO0,CMDRO0,TOPLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,
*SCLEN0,SCTOP0,SCLIN0
INTEGER SCREE0
INTEGER MSGAL0,NROWS0,NCOLS0,CURRO0,CURCO0,TOPRO0,BOTRO0,CMDRO0,TO
*PLN0,INSER0,INVER0,FIRSU0,RELAA0,RELZA0,SCLEN0,SCTOP0,SCLIN0(51)
COMMON /CUNIX0/UNIXM0,BACKS0,NOTIN0,XMARK0,ESCAP0
INTEGER UNIXM0
INTEGER BACKS0,NOTIN0,XMARK0,ESCAP0
COMMON /CTTY/TTYST0
INTEGER TTYST0
EQUIVALENCE (PREVL0(1),BUFAA0(1)),(NEXTL0(1),BUFAA0(2)),(GLOBM0(1)
*,BUFAA0(3)),(SEEKA0(1),BUFAA0(4)),(LINEL0(1),BUFAA0(6)),(MARKN0(1)
*,BUFAA0(7))
CALL T1OU(156)
CALL T1OU(195)
CALL T1OU(ROW-1+160)
CALL T1OU(COL-1+160)
CURRO0=ROW
CURCO0=COL
RETURN
END
C ---- Long Name Map ----
C Toprow topro0
C Sctop sctop0
C inslines insli0
C Lostlines lostl0
C Indent inden0
C Invertcase inver0
C Fence fence0
C Topln topln0
C setcursor setcu0
C gt40pos gt40p0
C terakpos terak0
C Savfil savfi0
C Line0 line00
C Tspeed tspee0
C clrscreen clrsc0
C printverboseerrormessage print0
C Line1 line10
C Absnos absno0
C horiabs horia0
C uniquelyname uniqu0
C Line2 line20
C Limcnt limcn0
C Curcol curco0
C Insertmode inser0
C dologout dolog0
C doshell doshe0
C Nlines nline0
C Savcom savco0
C Peekc peekc0
C addspos addsp0
C fixscreen fixsc0
C Prevline prevl0
C Cmdrow cmdro0
C adjustwindow adjus0
C Bufferchanged buffe0
C Errcode errco0
C Firstcol first0
C Globals globa0
C updscreen updsc0
C Lastln lastl0
C Nextline nextl0
C Overlaycol overm0
C smargin smarg0
C Txt txtaa0
C Savknm savkn0
C Tabstr tabsu0
C Nrows nrows0
C Unixmode unixm0
C setscreen setsc0
C scanfortab scang0
C forsyspos forsy0
C Scrname scrna0
C Nchoise nchoi0
C litmesg litme0
C horirel horir0
C getrange getra0
C drawbox drawb0
C Seekaddr seeka0
C Limbo limbo0
C scanpos scanp0
C vertabs verta0
C garbagecollect garba0
C Subs subsa0
C Relz relza0
C dellines delli0
C displaymessage displ0
C loadstr loads0
C restorescreen resto0
C Tabstops tabst0
C Sclen sclen0
C cleartoeol clear0
C Buf bufaa0
C whereami where0
C Tset tseta0
C Argno argno0
C ansipos ansip0
C Unprintable unpri0
C regentpos regen0
C infopos infop0
C sendmesg sendm0
C termchar termc0
C Botrow botro0
C Markname markn0
C Probation proba0
C Lastcharscanned lastc0
C prevcursor prevc0
C Warncol warnc0
C initialize initi0
C overlay overl0
C Pat pataa0
C Lineleng linel0
C cunixswt cunix0
C decodemnemonic decod0
C Globmark globm0
C Termtype termt0
C Ncols ncols0
C scanforchar scanf0
C Currow curro0
C vertrel vertr0
C recvmesg recvm0
C Scr scraa0
C Firstaffected firsu0
C NOTINCCL notin0
C bee2pos bee2p0
C positioncursor posit0
C Msgalloc msgal0
C prevstatus prevs0
C hundreds hundr0
C hwinsdel hwins0
C litnnum litnn0
C Screenimage scree0
C gettermtype gette0
C sbeecoord sbeec0
C warndeleted warnd0
C Curln curln0
C Free freea0
C XMARK xmark0
C b200coord b200c0
C spinject spinj0
C Tlpat tlpat0
C Lastbf lastb0
C Saverrcode saver0
C Ddir ddira0
C Rela relaa0
C ESCAPE escap0
C senddelay sendd0
C Scline sclin0
C Ttystate ttyst0
C cgcoord cgcoo0
C Scrend scren0
C BACKSCAN backs0