INTEGER A$BUF(200) INTEGER I,L,JUNK,LEVEL,ENTRY(32),MAXLE0,STATE(4),AT INTEGER INFBUF(200),AUX(180),FPROT(180) INTEGER GETARG,GETLIN,TSCAN$,FOLLOW,REMOVE,VERIFY INTEGER PATH(180),SPATH(180) INTEGER EQUAL,GFNARG,GFDATA,FILTST INTEGER AAAAA0 INTEGER AAAAB0 INTEGER AAAAC0 INTEGER PARSCL INTEGER AAAAD0(15) INTEGER AAAAE0(52) INTEGER AAAAF0(13) INTEGER AAAAG0(12) INTEGER AAAAH0 INTEGER AAAAI0 INTEGER AAAAJ0 COMMON /SWT$CM/TERMB0(128),TERMC0,TERMD0,ECHAR0,KCHAR0,NLCHA0,EOFC *H0,ESCCH0,RTCHA0,ISPHA0,CPUTY0,ERRCO0,STDPO0(6),KILLR0(33),FDMEM0( *16,128),RESER0(846),FDBUF0(16384),PASSW0(7),BPLAB0(4),UTEMP0,FDLAS *0,PRTDE0(17),PRTFO0(9),UHASH0(37),UTEMQ0(4059),RESES0(985),CMDST0, *COMUN0,RTLAB0(4),FIRST0,ARGCA0,ARGVA0(256),TERMA0(6),TERMT0(7),LWO *RD0,LSHOA0,LSTOP0,LSNAA0,LSREF0(16384),RESET0(743),TSSTA0,TSGTA0,T *SATA0,TSEOS0,TSUNA0(32),TSPSA0(32),TSBFA0(32,32),TSPWA0(3,32),TSPA *T0(180),RESEU0(680),NEWSC0(85,51),RESEV0(785),CURSC0(85,51),RESEW0 *(785),TCCLE0(10),TCCLF0(10),TCCLG0(10),TCCUR0(10),TCCUS0(10),TCCUT *0(10),TCCUU0(10),TCCUV0(10),TCABS0(10),TCVER0(10),TCHOR0(10),TCINS *0(10),TCDEL0(10),TCSHI0(10),TCSHJ0(10),TCCOO0,TCSHK0,TCCOP0,TCSEQ0 *,TCSPE0,TCCLH0,TCLIN0,TCPOS0,TCWRA0,TCCLR0,TCCEO0,TCCEP0,TCABT0,TC *VES0,TCHOS0,TCHOM0,TCLEF0,TCUPL0,UNPRI0,COLCH0(51),COLCI0(51),ROWC *H0,ROWCI0,LASTC0(51),MAXRO0,MAXCO0,CURRO0,CURCO0,MSGRO0,MSGOW0(85) *,PADRO0,PADCO0,PADLE0,DISPL0,FNTAB0(128,20),LASTF0,TABSA0(85),INPU *T0(51),INPUU0(51),INBUF0(85),LASTD0,INSER0,INVER0,DUPLE0,INPUV0,PB *BUF0(400),PBPTR0,FNUSE0(20),DEFBU0(1000),LASTE0,NESTI0,RESEX0(1) INTEGER TERMB0,TERMC0,TERMD0,ECHAR0,KCHAR0,NLCHA0,EOFCH0,ESCCH0,RT *CHA0,ISPHA0,CPUTY0,ERRCO0,STDPO0,FDMEM0,RESER0,FDBUF0,PASSW0,BPLAB *0,UTEMP0,UHASH0,UTEMQ0,RESES0,CMDST0,COMUN0,RTLAB0,FIRST0,ARGCA0,A *RGVA0,TERMA0,TERMT0,LSHOA0,LSTOP0,LSNAA0,LSREF0,RESET0,FDLAS0,KILL *R0,PRTDE0,PRTFO0,LWORD0,TSSTA0,TSGTA0,TSATA0,TSEOS0,TSUNA0,TSPSA0, *TSBFA0,TSPWA0,TSPAT0,RESEU0,NEWSC0,RESEV0,CURSC0,RESEW0,TCCLE0,TCC *LF0,TCCLG0,TCCUR0,TCCUS0,TCCUT0,TCCUU0,TCCUV0,TCABS0,TCVER0,TCHOR0 *,TCINS0,TCDEL0,TCCLH0,TCLIN0,TCPOS0,TCSHI0,TCSHJ0,TCCOO0,TCSHK0,TC *COP0,TCSEQ0,TCDEM0,TCWRA0,TCCLR0,TCSPE0,TCCEO0,TCCEP0,TCABT0,TCVES *0,TCHOS0,UNPRI0,COLCH0,COLCI0,ROWCH0,ROWCI0,LASTC0,MAXRO0,MAXCO0,C *URRO0,CURCO0,MSGRO0,MSGOW0,PADRO0,PADCO0,PADLE0,DISPL0,FNTAB0,LAST *F0,TABSA0,INPUT0,INPUU0,INBUF0,LASTD0,INSER0,INVER0,DUPLE0,INPUV0, *PBBUF0,PBPTR0,FNUSE0,DEFBU0,LASTE0,NESTI0,TCHOM0,TCLEF0,TCUPL0,RES *EX0 INTEGER FDESC0(16),FDDEV0(1),FDUNI0(1),FDBUG0(1),FDBUH0(1),FDBUI0( *1),FDCOU0(1),FDBCO0(1),FDFLA0(1),FDVCS0(1),FDVCT0(1),FDOPS0(1),FDO *PT0(1),FDOPU0(1) INTEGER AAAAK0(2) INTEGER AAAAL0 INTEGER AAAAM0(20) INTEGER AAAAN0(10) INTEGER AAAAO0(7) INTEGER AAAAP0(17) INTEGER AAAAQ0(10) INTEGER AAAAR0 INTEGER AAAAS0(13) INTEGER AAAAU0(200),AAAAV0(180) INTEGER AAAAT0 INTEGER AAAAW0(38) EQUIVALENCE (FDMEM0,FDESC0),(FDDEV0,FDESC0(1)),(FDUNI0,FDESC0(2)), *(FDBUG0,FDESC0(3)),(FDBUH0,FDESC0(4)),(FDBUI0,FDESC0(5)),(FDCOU0,F *DESC0(6)),(FDBCO0,FDESC0(7)),(FDFLA0,FDESC0(8)),(FDVCS0,FDESC0(9)) *,(FDVCT0,FDESC0(10)),(FDOPS0,FDESC0(11)),(FDOPT0,FDESC0(12)),(FDOP *U0,FDESC0(13)) DATA AAAAD0/228,230,246,243,188,239,233,190,238,188,233,231,238,19 *0,0/ DATA AAAAE0/213,243,225,231,229,186,160,228,229,236,160,251,160,17 *3,168,228,252,230,252,243,219,188,236,229,246,229,236,243,190,221, *252,246,169,160,253,160,251,160,173,238,160,252,160,188,240,225,24 *4,232,190,160,253,0/ DATA AAAAF0/189,245,243,229,242,189,171,189,189,228,236,245,0/ DATA AAAAG0/175,228,229,246,175,243,244,228,233,238,177,0/ DATA AAAAK0/225,0/ DATA AAAAM0/238,239,238,173,229,237,240,244,249,160,228,233,242,22 *9,227,244,239,242,249,0/ DATA AAAAN0/240,242,239,244,229,227,244,229,228,0/ DATA AAAAO0/233,238,160,245,243,229,0/ DATA AAAAP0/228,229,236,229,244,229,160,240,242,239,244,229,227,24 *4,229,228,0/ DATA AAAAQ0/238,239,244,160,230,239,245,238,228,0/ DATA AAAAS0/227,225,238,167,244,160,228,229,236,229,244,229,0/ DATA AAAAW0/228,229,236,229,244,229,160,227,245,242,242,229,238,24 *4,160,228,233,242,229,227,244,239,242,249,160,226,249,160,238,225, *237,229,160,239,238,236,249,0/ IF((PARSCL(AAAAD0,A$BUF).NE.-3))GOTO 10003 CALL ERROR(AAAAE0) 10003 IF((A$BUF(243-225+1).EQ.2))GOTO 10004 A$BUF(243-225+27)=:77777 10004 MAXLE0=A$BUF(243-225+27) IF((A$BUF(230-225+1).EQ.0))GOTO 10005 CALL EXPAND(AAAAF0,FPROT,180) 10005 STATE(1)=1 10006 IF((GFNARG(PATH,STATE).EQ.-1))GOTO 10007 IF((EQUAL(PATH,AAAAG0).NE.1))GOTO 10008 PATH(1)=0 10008 AAAAA0=1 GOTO 10000 10009 GOTO 10006 10007 CALL SWT 10002 LEVEL=0 10010 AAAAH0=TSCAN$(PATH,ENTRY,LEVEL,MAXLE0,4+1) GOTO 10011 10012 GOTO 10013 10014 CALL AT$HOM(JUNK) AAAAB0=1 GOTO 10001 10015 GOTO 10016 10011 AAAAI0=AAAAH0+3 GOTO(10014,10012),AAAAI0 10016 CONTINUE GOTO 10010 10013 GOTO 10017 10001 IF((A$BUF(246-225+1).EQ.0))GOTO 10019 IF((VERIFY(PATH).NE.0))GOTO 10019 GOTO 10018 10019 AAAAJ0=0 IF((A$BUF(230-225+1).EQ.0))GOTO 10020 IF((GFDATA(6,PATH,INFBUF,AT,AUX).NE.-2))GOTO 10021 AAAAJ0=1 CALL SFDATA(6,AUX(2),FPROT,AT,0) GOTO 10022 10021 CALL SPROT$(PATH,AAAAK0) 10022 CONTINUE 10020 IF((REMOVE(PATH).NE.-3))GOTO 10023 AAAAL0=ERRCO0 GOTO 10024 10025 CALL ERRMSG(PATH,AAAAM0) GOTO 10026 10027 CALL ERRMSG(PATH,AAAAN0) GOTO 10026 10028 CALL ERRMSG(PATH,AAAAO0) GOTO 10026 10029 CALL ERRMSG(PATH,AAAAP0) GOTO 10026 10030 CALL ERRMSG(PATH,AAAAQ0) GOTO 10026 10024 AAAAR0=AAAAL0-4 GOTO(10028,10031,10031,10031,10031,10027,10031,10031,10031,100 *31,10030,10031,10031,10031,10025),AAAAR0 IF(AAAAL0.EQ.181)GOTO 10029 10031 CALL ERRMSG(PATH,AAAAS0) 10026 CONTINUE 10023 IF((AAAAJ0.NE.1))GOTO 10032 IF((FILTST(PATH,0,0,1,0,0,0,0).NE.1))GOTO 10032 CALL SFDATA(6,AUX(2),INFBUF,JUNK,0) 10032 CONTINUE 10018 GOTO 10033 10000 IF((A$BUF(230-225+1).EQ.0))GOTO 10034 IF((GFDATA(6,PATH,AAAAU0,AT,AAAAV0).EQ.-3))GOTO 10034 CALL SFDATA(6,AAAAV0(2),FPROT,AT,0) 10034 IF((PATH(1).NE.0))GOTO 10035 IF((A$BUF(246-225+1).NE.0))GOTO 10035 CALL REMARK(AAAAW0) GOTO 10036 10035 IF((A$BUF(243-225+1).EQ.0))GOTO 10037 IF((FOLLOW(PATH,0).EQ.-3))GOTO 10037 AAAAT0=1 AAAAC0=1 GOTO 10002 10038 CALL AT$HOM(JUNK) GOTO 10039 10037 AAAAT0=0 10039 IF((PATH(1).EQ.0))GOTO 10040 IF((AAAAT0.EQ.0))GOTO 10042 IF((A$BUF(228-225+1).NE.0))GOTO 10042 GOTO 10041 10042 AAAAB0=2 GOTO 10001 10043 CONTINUE 10041 CONTINUE 10040 IF((A$BUF(230-225+1).EQ.0))GOTO 10044 IF((AAAAT0.EQ.0))GOTO 10045 IF((A$BUF(228-225+1).EQ.0))GOTO 10045 GOTO 10044 10045 IF((FILTST(PATH,0,0,1,0,0,0,0).NE.1))GOTO 10046 CALL SFDATA(6,AAAAV0(2),AAAAU0,AT,0) 10046 CONTINUE 10044 CONTINUE 10036 GOTO 10047 10017 GOTO 10038 10033 GOTO(10015,10043),AAAAB0 GOTO 10033 10047 GOTO 10009 END INTEGER FUNCTION VERIFY(STR) INTEGER STR(1) INTEGER GETLIN INTEGER LINE(102) INTEGER AAAAX0(6) DATA AAAAX0/170,243,160,191,160,0/ CALL PRINT(-15,AAAAX0,STR) IF((GETLIN(LINE,-14).EQ.-1))GOTO 10048 IF((LINE(1).EQ.249))GOTO 10049 IF((LINE(1).EQ.217))GOTO 10049 GOTO 10048 10049 VERIFY=1 GOTO 10050 10048 VERIFY=0 10050 RETURN END SUBROUTINE ERRMSG(PATH,MSG) INTEGER PATH(1),MSG(1) CALL PRINT(-15,'*s: *s*n.',PATH,MSG) RETURN END C ---- Long Name Map ---- C Fdflags fdfla0 C Eofchar eofch0 C Inputstart input0 C Escchar escch0 C Invertcase inver0 C Tccoordchar tccoo0 C Tabs tabsa0 C Fdbufstart fdbug0 C Rtchar rtcha0 C Prtdest prtde0 C Tcdelline tcdel0 C Colchgstop colci0 C Rowchgstart rowch0 C Maxcol maxco0 C Echar echar0 C Tseos tseos0 C Tclinedelay tclin0 C Fnused fnuse0 C Termcount termd0 C Reservedio reser0 C Tsstate tssta0 C Tccursorright tccut0 C Tcabspos tcabs0 C Tcposdelay tcpos0 C Tchorlen tchos0 C Reservedopen reses0 C Lsna lsnaa0 C Tcseqtype tcseq0 C Unprintablechar unpri0 C Fdesc fdesc0 C Cputype cputy0 C Prtform prtfo0 C Tsbf tsbfa0 C Curcol curco0 C Lastfn lastf0 C Insertmode inser0 C Fdbuf fdbuf0 C Argv argva0 C Lstop lstop0 C Tcceollen tccep0 C Tcshiftchar tcshk0 C Inputwait inpuv0 C Fdunit fduni0 C Termcp termc0 C Kchar kchar0 C Fdmem fdmem0 C Fddev fddev0 C Fdvcstat1 fdvcs0 C Lastdef laste0 C Tcdelaytime tcdem0 C Fdvcstat2 fdvct0 C Killresp killr0 C Tccleardelay tcclh0 C Padrow padro0 C Fntab fntab0 C Reservednewscr resev0 C Reservedcurscr resew0 C Utempbuf utemq0 C Rtlabel rtlab0 C Lsho lshoa0 C Tcvertpos tcver0 C Tcwraparound tcwra0 C Tchomelen tchom0 C Tcceoslen tcceo0 C Fdbufend fdbui0 C Tcspeed tcspe0 C Tcleftlen tclef0 C Pbbuf pbbuf0 C Fdopstat1 fdops0 C Passwd passw0 C Newscr newsc0 C Curscr cursc0 C Duplex duple0 C Fdopstat2 fdopt0 C aclflag aclfl0 C Tccursorhome tccur0 C Fdopstat3 fdopu0 C Tspath tspat0 C Tsat tsata0 C Tccursorleft tccus0 C Colchgstart colch0 C maxlevels maxle0 C Reservedshell reset0 C Inbuf inbuf0 C Nestingcount nesti0 C Reservedtscan reseu0 C Defbuf defbu0 C Uhashtb uhash0 C Fdbuflen fdbuh0 C Cmdstat cmdst0 C Tchorpos tchor0 C Tcinsline tcins0 C Msgowner msgow0 C Fdlastfd fdlas0 C Termattr terma0 C Tsgt tsgta0 C Tcshiftout tcshj0 C Inputstop inpuu0 C Firstuse first0 C Tcshiftin tcshi0 C Displaytime displ0 C Fdcount fdcou0 C Termbuf termb0 C Lsref lsref0 C Tcabslen tcabt0 C Rowchgstop rowci0 C Maxrow maxro0 C Padcol padco0 C Lastcharscanned lastd0 C Msgrow msgro0 C Padlen padle0 C Stdporttbl stdpo0 C Argc argca0 C Termtype termt0 C Tccleartoeol tcclf0 C Tccursordown tccuv0 C Currow curro0 C Nlchar nlcha0 C Isphantom ispha0 C Tsun tsuna0 C Tsps tspsa0 C Reservedvthmisc resex0 C Tcuplen tcupl0 C Lastchar lastc0 C Utemptop utemp0 C Bplabel bplab0 C Tspw tspwa0 C Tcclearscreen tccle0 C Tccoordtype tccop0 C Tcvertlen tcves0 C Fdbcount fdbco0 C Comunit comun0 C Tccleartoeos tcclg0 C Tccursorup tccuu0 C Tcclrlen tcclr0 C Errcod errco0 C Lword lword0 C Pbptr pbptr0