VAR RESTORE

   FlagSet 3 ' just booted

   IF MyAddr=0 THEN
       DO
           DO
               INPUT "Enter Node address (1-998) >", a$
               MyAddr=int(val("0"+a$))
           LOOP UNTIL MyAddr >0 AND MyAddr<999

           DO
               INPUT "Enter Node Task Name       >", a$
               MyJob=a$
           LOOP UNTIL MyJob<>""

           PRINT "Is this correct? (Y/N)";
           DO:INPUT a$:a$=UCASE$(a$):LOOP UNTIL a$="Y" OR a$="N"
       LOOP WHILE a$="N"

       VAR SAVE MyAddr,MyJob

       FlagSet 6 ' Just completed setup - need INIT
   END IF

   tp = checkstring(ep, "SHIFTCTRL");
   if(tp){
       getargs(&tp,11,",");
       if(argc<1)error("Syntax");
       iret=(getint(argv[0],0,31)<<20); // push threshold
       iret|=(getint(argv[2],0,31)<<25); // pull threshold
       if(argc>3 && *argv[4])iret|=(getint(argv[4],0,1)<<16); // autopush
       if(argc>5 && *argv[6])iret|=(getint(argv[6],0,1)<<17); // autopull
       if(argc>7 && *argv[8])iret|=(getint(argv[8],0,1)<<18); // IN_SHIFTDIR
       if(argc>9 && *argv[10])iret|=(getint(argv[10],0,1)<<19); // OUT_SHIFTDIR
       targ=T_INT;
       return;
   }