INTEGER GFDATA,SFDATA,GFNARG,LENGTH INTEGER * 4 GCTOL INTEGER A$BUF(200) INTEGER I,ISQUO0,STATE(4) INTEGER * 4 QBUF(8) INTEGER PATH(180) INTEGER USAGE(51) INTEGER PARSCL INTEGER AAAAA0(15) INTEGER AAAAB0(21) INTEGER AAAAC0 INTEGER AAAAD0 INTEGER AAAAE0(34) INTEGER AAAAF0(28) INTEGER AAAAG0(17) INTEGER AAAAH0(6) INTEGER AAAAI0(3) INTEGER AAAAJ0(22) DATA USAGE/213,243,225,231,229,186,160,241,245,239,244,225,160,219 *,173,243,160,188,241,245,239,244,225,160,246,225,236,245,229,190,2 *21,160,219,173,246,221,160,251,188,230,233,236,229,223,243,240,229 *,227,190,253,0/ DATA AAAAA0/173,243,188,242,243,190,160,238,188,233,231,238,190,24 *6,0/ DATA AAAAB0/233,237,240,242,239,240,229,242,160,241,245,239,244,22 *5,160,246,225,236,245,229,0/ DATA AAAAE0/170,243,186,160,227,225,238,167,244,160,231,229,244,16 *0,241,245,239,244,225,160,233,238,230,239,242,237,225,244,233,239, *238,170,238,0/ DATA AAAAF0/170,243,186,160,238,239,244,160,225,160,241,245,239,24 *4,225,160,228,233,242,229,227,244,239,242,249,170,238,0/ DATA AAAAG0/170,182,236,175,170,182,236,160,168,170,172,173,177,17 *6,236,169,0/ DATA AAAAH0/160,252,160,170,243,0/ DATA AAAAI0/170,238,0/ DATA AAAAJ0/170,243,186,160,227,225,238,167,244,160,243,229,244,16 *0,241,245,239,244,225,170,238,0/ IF((PARSCL(AAAAA0,A$BUF).NE.-3))GOTO 10000 CALL ERROR(USAGE) 10000 IF((A$BUF(243-225+1).EQ.0))GOTO 10001 I=1 QBUF(1)=GCTOL(A$BUF(A$BUF(243-225+27)),I,10) IF((I-1.NE.LENGTH(A$BUF(A$BUF(243-225+27)))))GOTO 10003 IF((QBUF(1).LT.0))GOTO 10003 GOTO 10002 10003 CALL ERROR(AAAAB0) 10002 CONTINUE 10001 STATE(1)=1 10004 AAAAC0=GFNARG(PATH,STATE) GOTO 10005 10006 GOTO 10007 10008 CALL ERROR(USAGE) GOTO 10009 10005 AAAAD0=AAAAC0+4 GOTO(10008,10010,10006),AAAAD0 10010 IF((A$BUF(243-225+1).NE.0))GOTO 10011 IF((GFDATA(1,PATH,QBUF,I,ISQUO0).NE.-3))GOTO 10012 IF((ISQUO0.NE.1))GOTO 10013 CALL PRINT(-15,AAAAE0,PATH) GOTO 10014 10013 CALL PRINT(-15,AAAAF0,PATH) 10014 GOTO 10015 10012 CALL PRINT(-11,AAAAG0,QBUF(4),QBUF(3),QBUF(5)) IF((A$BUF(246-225+1).EQ.0))GOTO 10016 CALL PRINT(-11,AAAAH0,PATH) 10016 CALL PRINT(-11,AAAAI0) 10015 GOTO 10017 10011 IF((SFDATA(1,PATH,QBUF,I,I).NE.-3))GOTO 10018 CALL PRINT(-15,AAAAJ0,PATH) 10018 CONTINUE 10017 CONTINUE 10009 CONTINUE GOTO 10004 10007 CALL SWT END C ---- Long Name Map ---- C isquotadir isquo0