INTEGER FUNCTION SUBSYS(CMD)
      INTEGER CMD(1)
      INTEGER MKTEMP
      INTEGER SHELL
      INTEGER FD
      INTEGER RC
      INTEGER AAAAA0(5)
      DATA AAAAA0/170,243,170,238,0/
      FD=MKTEMP(3)
      IF((FD.NE.-3))GOTO 10000
        SUBSYS=-1
        RETURN
10000 CALL PRINT(FD,AAAAA0,CMD)
      CALL REWIND(FD)
      RC=SHELL(FD)
      CALL RMTEMP(FD)
      SUBSYS=RC
      RETURN
      END
C ---- Long Name Map ----
C forgetcmd                      forge0
C installationcmd                insta0
C setupports                     setuq0
C singlestep                     singl0
C timecmd                        timec0
C reserveport                    reser0
C searchfor                      searc0
C loginnamecmd                   logio0
C whencmd                        whenc0
C executenode                    execv0
C putbackcommand                 putba0
C results                        resul0
C getneta                        getne0
C initports                      initp0
C lookuplabel                    looku0
C dropcmd                        dropc0
C checklabels                    check0
C dumpcmd                        dumpc0
C dumpports                      dumpp0
C histinit                       histi0
C selectport                     selec0
C argstocmd                      argst0
C histlook                       histl0
C makeportlist                   makep0
C cleanupports                   clean0
C getnexttoken                   getng0
C histcmd                        histc0
C initconnect                    initc0
C nextunquotedchar               nextu0
C nextwhiletoken                 nextw0
C createlabel                    creat0
C gotocmd                        gotoc0
C clrargs                        clrar0
C enterlabel                     enter0
C exitcmd                        exitd0
C loginfo                        login0
C shtracecmd                     shtra0
C varscmd                        varsc0
C restorestate                   resto0
C vpsdcmd                        vpsdc0
C assigniports                   assig0
C histarg                        hista0
C execute                        execu0
C findlabel                      findl0
C makeiport                      makei0
C symboltrace                    symbo0
C indexcmd                       index0
C primoscmd                      primo0
C whilecmd                       while0
C clrports                       clrpo0
C initlabels                     initl0
C savestate                      saves0
C assignoports                   assih0
C histget                        histh0
C nargscmd                       nargs0
C makeoport                      makeo0
C getelement                     getel0
C stopcmd                        stopc0
C casecmd                        casec0
C stoplogging                    stopl0
C invokevar                      invom0
C datecmd                        datec0
C accessarg                      acces0
C echocmd                        echoc0
C invokeint                      invol0
C substrcmd                      subst0
C declarecmd                     decla0
C nettrace                       nettr0
C getnetlabel                    getnf0
C histfind                       histf0
C histsub                        hists0
C exitcasecmd                    exitc0
C histfree                       histg0
C histque                        histq0
C redirector                     redir0
C invokeext                      invok0
C takecmd                        takec0
C context                        conte0
C histexp                        histe0
C setupargs                      setup0
C clrlabels                      clrla0
C evalcmd                        evalc0
C evalnetsep                     evaln0
C linecmd                        linec0
C repeatcmd                      repea0
C elsecmd                        elsec0
C removecn                       remov0
C nodesepr                       nodes0
C initargs                       inita0
C initializeeverything           initi0
C processhello                   proce0
C assignports                    assii0
C filetype                       filet0
C quotecmd                       quote0
C argscmd                        argsc0
C argument                       argum0
C declaredcmd                    declb0
C startlogging                   start0