home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / F / FN_SCBC.ZIP / UPLOAD.PPS < prev    next >
Text File  |  1995-09-02  |  920b  |  33 lines
  1. ;
  2. ;  Frontnet DownUp v1.00ß by Dront/Frontnet [UPLOAD VERSION]
  3. ;  This version must be used with Scanner v1.0 by Dront/Frontnet.
  4. ;
  5.  
  6. string parameters, ppeafter, temp
  7. integer returncode
  8.  
  9.     getuser
  10.     while (tokcount()>0) do
  11.         let parameters=parameters+" "+gettoken()
  12.     endwhile
  13.     newline
  14.     print "@POFF@@CLS@@X07Scanning Users..."
  15.  
  16.     shell true,returncode,ppepath()+"downup.exe","u "+replace(upper(u_name())," ","_")
  17.     let ppeafter=readline((ppepath()+"downup.cfg"),1)
  18.  
  19.     dispfile ppepath()+"\ansi\upload.ans",0
  20.     print "@PON@"
  21.     
  22.     if (readline((ppepath()+"downup.cfg"),3)="Y") then
  23.       ansipos 29,22
  24.       inputstr "Press enter to continue_",temp,@X08,1,mask_ascii(),highascii+newline
  25.     endif
  26.  
  27.     if (asc(left(ppeafter,1))<>32) then
  28.        call ppeafter
  29.     else
  30.        if (readline((ppepath()+"downup.cfg"),4)="Y") kbdstuff "U "+parameters
  31.     endif
  32. end
  33.