home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / HSLINK.CTL < prev    next >
Encoding:
Text File  |  1992-07-17  |  1.3 KB  |  54 lines
  1. flushout
  2. exec(adir hstemp%NODE%\*.* >hslst.%NODE%)
  3. inpclose
  4. inpopen(hslst.%NODE%)
  5.  
  6.   setequal(t=0)
  7.   linefeed(1)
  8.   setequal(a=/:UPLOADS/)
  9.   clearmem
  10.   setequal(c=0)
  11.  
  12. *stcalc
  13.   inpread
  14.   setequal(d=%ARESP%)
  15.   iseek(%var%d)
  16.   iftrue(goto (nfile))
  17.   if (&D)=() then goto (Nfile)
  18.   fcopy(hstemp%NODE%\%var%d,files\uploads\%var%d)
  19.   size(files\uploads\%var%d)
  20.   addvar(%var%t+%ARESP%=t)
  21.   cnvtk(%ARESP%)
  22.   addvar(%ARESP%+/:KUP/=o)
  23.   setequal(/KUP=%var%o)
  24.   multvar(%var%c*3=y)
  25.   say(&7&&CR&%var%d&CR&)
  26.   say(&14&Please enter a description for your file.  &10&The description can take up 3 lines.&CR&&CR&&15&   (----2----3----4----5----6----7---8----))
  27.   resetwrap
  28.   clearmem
  29.   wrapask %MIN1%%LEN40%(&3&1&12&: &15&*)
  30.   setequal(^1=%RESP%)
  31.   wrapask %LEN40%%CRON%(&3&2&12&: &15&*)
  32.   if (%RESP%)=(<CR>) then goto (nomore)
  33.   setequal(^2=%RESP%)
  34.   ask %LEN39%(&3&3&12&: &15&*)
  35.   setequal(^3=%RESP%)
  36.   *nomore
  37.   file(files\uploads\,%var%d,3)
  38.   log(--,%var%d Uploaded (HSLINK).)
  39.   appendto(logs\UPLOAD.%NODE%,%var%d uploaded at %TIME% on %DATE% by %NAME%.)
  40.   inc(c)
  41.   *nfile
  42.   kill(hstemp%NODE%\%var%d)
  43.   fendif(donecalc)
  44.   goto (stcalc)
  45.  
  46. *donecalc
  47.   inpclose
  48.   inc(c)
  49.   say(%BEEP%)
  50.   multvar(%XMIN%*60=o)
  51.   divvar(%var%t/%var%o=g)
  52.   setequal(/UPLOADS=%var%a)
  53. return
  54.