INTEGER A$BUF(200) INTEGER GETARG,GCTOI,SEM$TS INTEGER OPEN,MAPFD INTEGER CODE,SEMNUM,I,COUNT,ARGNUM INTEGER FD,PFD INTEGER SEMNAM(180) INTEGER USAGE(66) INTEGER PARSCL INTEGER AAAAA0(30) INTEGER AAAAB0(35) INTEGER AAAAC0(5) INTEGER AAAAD0(5) INTEGER AAAAE0(26) INTEGER AAAAF0(29) INTEGER AAAAG0(25) INTEGER AAAAH0(23) INTEGER AAAAI0(21) INTEGER AAAAJ0(27) DATA USAGE/213,243,225,231,229,186,160,243,229,237,225,160,173,168 *,227,160,252,160,228,160,252,160,238,160,252,160,247,160,252,160,2 *44,160,252,160,239,160,219,173,233,160,188,233,238,244,190,221,169 *,160,168,188,243,229,237,225,190,160,252,160,188,240,225,244,232,1 *90,169,0/ DATA AAAAA0/227,188,230,190,228,188,230,190,238,188,230,190,239,18 *8,230,190,247,188,230,190,244,188,230,190,233,188,239,233,190,0/ DATA AAAAB0/170,233,186,160,233,238,233,244,233,225,236,160,246,22 *5,236,245,229,160,231,242,229,225,244,229,242,160,244,232,225,238, *160,176,170,238,0/ DATA AAAAC0/170,233,170,238,0/ DATA AAAAD0/170,233,170,238,0/ DATA AAAAE0/238,239,160,225,246,225,233,236,225,226,236,229,160,24 *3,229,237,225,240,232,239,242,229,243,170,238,0/ DATA AAAAF0/170,243,186,160,233,238,246,225,236,233,228,160,243,22 *9,237,225,240,232,239,242,229,160,238,225,237,229,170,238,0/ DATA AAAAG0/170,243,186,160,243,229,237,225,240,232,239,242,229,16 *0,239,246,229,242,230,236,239,247,170,238,0/ DATA AAAAH0/170,243,186,160,239,238,160,225,160,242,229,237,239,24 *4,229,160,228,233,243,235,170,238,0/ DATA AAAAI0/170,243,186,160,230,233,236,229,160,238,239,244,160,23 *0,239,245,238,228,170,238,0/ DATA AAAAJ0/170,243,186,160,227,225,238,167,244,160,239,240,229,23 *8,160,243,229,237,225,240,232,239,242,229,170,238,0/ IF((PARSCL(AAAAA0,A$BUF).NE.-3))GOTO 10000 CALL ERROR(USAGE) 10000 I=0 IF((A$BUF(227-225+1).EQ.0))GOTO 10001 I=I+(1) 10001 IF((A$BUF(228-225+1).EQ.0))GOTO 10002 I=I+(1) 10002 IF((A$BUF(238-225+1).EQ.0))GOTO 10003 I=I+(1) 10003 IF((A$BUF(239-225+1).EQ.0))GOTO 10004 I=I+(1) 10004 IF((A$BUF(244-225+1).EQ.0))GOTO 10005 I=I+(1) 10005 IF((A$BUF(247-225+1).EQ.0))GOTO 10006 I=I+(1) 10006 IF((I.EQ.1))GOTO 10007 CALL ERROR(USAGE) 10007 IF((A$BUF(233-225+1).EQ.0))GOTO 10008 IF((A$BUF(239-225+1).EQ.0))GOTO 10009 COUNT=A$BUF(233-225+27) GOTO 10010 10009 CALL ERROR(USAGE) 10010 GOTO 10011 10008 COUNT=0 10011 IF((COUNT.LE.0))GOTO 10012 CALL PRINT(-15,AAAAB0,COUNT) CALL ERROR('.') 10012 ARGNUM=1 10013 IF((GETARG(ARGNUM,SEMNAM,180).EQ.-1))GOTO 10014 SEMNUM=0 IF((SEMNAM(1).EQ.173))GOTO 10016 IF((176.GT.SEMNAM(1)))GOTO 10017 IF((SEMNAM(1).GT.185))GOTO 10017 GOTO 10016 10017 GOTO 10015 10016 I=1 SEMNUM=GCTOI(SEMNAM,I,10) 10015 IF((A$BUF(227-225+1).EQ.0))GOTO 10018 CALL SEM$CL(SEMNUM,CODE) 10018 IF((A$BUF(228-225+1).EQ.0))GOTO 10019 CALL SEM$DR(SEMNUM,CODE) 10019 IF((A$BUF(238-225+1).EQ.0))GOTO 10020 CALL SEM$NF(SEMNUM,CODE) 10020 IF((A$BUF(247-225+1).EQ.0))GOTO 10021 CALL SEM$WT(SEMNUM,CODE) 10021 IF((A$BUF(244-225+1).EQ.0))GOTO 10022 I=SEM$TS(SEMNUM,CODE) IF((CODE.NE.0))GOTO 10023 CALL PRINT(-11,AAAAC0,I) 10023 CONTINUE 10022 IF((A$BUF(239-225+1).EQ.0))GOTO 10024 FD=OPEN(SEMNAM,1) IF((FD.EQ.-3))GOTO 10025 PFD=MAPFD(FD) IF((PFD.EQ.-3))GOTO 10026 CALL SEM$OU(PFD,1,SEMNUM,COUNT,CODE) GOTO 10027 10026 CODE=15 10027 GOTO 10028 10025 CODE=15 10028 CALL CLOSE(FD) IF((CODE.NE.0))GOTO 10029 CALL PRINT(-11,AAAAD0,SEMNUM) 10029 CONTINUE 10024 IF((CODE.NE.41))GOTO 10030 CALL PRINT(-15,AAAAE0) GOTO 10031 10030 IF((CODE.NE.6))GOTO 10032 CALL PRINT(-15,AAAAF0,SEMNAM) GOTO 10033 10032 IF((CODE.NE.50))GOTO 10034 CALL PRINT(-15,AAAAG0,SEMNAM) GOTO 10035 10034 IF((CODE.NE.38))GOTO 10036 CALL PRINT(-15,AAAAH0,SEMNAM) GOTO 10037 10036 IF((CODE.NE.15))GOTO 10038 CALL PRINT(-15,AAAAI0,SEMNAM) GOTO 10039 10038 IF((CODE.EQ.0))GOTO 10040 CALL PRINT(-15,AAAAJ0,SEMNAM) 10040 CONTINUE 10039 CONTINUE 10037 CONTINUE 10035 CONTINUE 10033 CONTINUE 10031 ARGNUM=ARGNUM+(1) GOTO 10013 10014 CALL SWT END C ---- Long Name Map ----