home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / ZIPVIEW.CTL < prev   
Encoding:
Text File  |  1992-09-02  |  3.5 KB  |  137 lines
  1. *EXLP
  2.  Say(&CR&&7& Length  Method   Size  Ratio   Date    Time   CRC-32  Attr  Name&11&)
  3.  InpRead
  4.  Say(──────────────────────────────────────────────────────────────────&15&)
  5.  
  6. setequal(l=0)
  7. setequal(p=2)
  8. resetpause
  9.  
  10. DO
  11.  fEndIf(eloop)
  12.  InpRead
  13.  SetEqual(h=%ARESP%)
  14.  Get (%ARESP%,1,3)
  15.  If (%ARESP%)=( --) then goto (elp)
  16.  inc(l)
  17.  Say(%var%h)
  18.  inc(p)
  19.  if (&p)=(/screenlen) then jump (pause)
  20. LOOP
  21.  
  22. *ELP
  23.  InpRead
  24.  Say(&11&──────────────────────────────────────────────────────────────────)
  25.  get (%aresp%,1,50)
  26.  Say(&12&%ARESP%)
  27.  InpClose
  28.  say (&CR&&14&  %var%l File(s) in archive)
  29.  
  30. *ELOOP
  31.  MenuAsk %MIN1%%LEN1% (&CR&&3&Would you like to &11&(&7&R&11&)ead Textfile, (&7&D&11&)ownload File, (&7&L)&11&ist, (&7&Q&11&)uit?&14& *)
  32.  BigIf (d:download,r:read,q:quit,l:list)
  33.  Goto (eloop)
  34.  
  35. *LIST
  36.  InpClose
  37.  InpOpen(zipinfo.txt)
  38.  linefeed(1)
  39.  
  40. DO
  41.  InpRead
  42.  Get (%ARESP%,1,7)
  43.  NotIf (%ARESP%)=() then if (%ARESP%)=( Length) then goto (exlp)
  44. EofLoop
  45.  
  46. *QUIT
  47.  InpClose
  48.  SelFArea (/:lastdown/)
  49.  Return
  50.  
  51. *READ
  52.  Say(&CR&&3&Please enter the name of the file to read&12&: &14&(            )&15&*)
  53.  Back(13)
  54.  MenuAsk%CRON%%LEN12%(*)
  55.  if (%RESP%)=(<CR>) then goto (eloop)
  56.  Say(&CR&&11&Retriving &7&%RESP%&11&, Please Wait!&7&)
  57.  Exec(md zvtemp>nul,) ;create temporary dir
  58.  Zap(yes,Yes)
  59.  Exec(del zvtemp <yes >nul,)
  60.  Exec(pkunzip %FILPATH%%var%e %RESP% zvtemp\ >nul,)
  61.  View (zvtemp\%RESP%)
  62.  Exec(del zvtemp <yes >nul,)
  63.  Enter
  64.  Goto (eloop)
  65.  
  66. *DOWNLOAD
  67.  Say(&3&&CR&Please enter the name of the file to download&12&: &14&(            )&15&*)
  68.  Back(13)
  69.  MenuAsk%CRON%%LEN12%(*)
  70.  if (%RESP%)=(<CR>) then goto (eloop)
  71.  Say(&CR&&11&Retriving &7&%RESP%&11&, Please Wait!&7&)
  72.  Exec(md zvtemp >nul,) ;create temporary dir
  73.  Zap(yes,Yes)
  74.  Exec(del zvtemp <yes,)
  75.  Exec(pkunzip %FILPATH%%var%e %RESP% zvtemp\ >nul,)
  76.  SetEqual(d=%RESP%)
  77.  Seek(zvtemp\%RESP%)
  78.  IfNotTrue (goto (eloop))
  79.  
  80. *PICKP
  81.  Display (Display\DN-PROTS)
  82.  MenuAsk %MIN1% (&3&Which transfer protocol would you like to use?&11&(or Q to Quit)&12&: &15&*)
  83.  Find(%RESP%,\)      ;make sure they didnt stick a backslash in there
  84.  NotIf (%ARESP%)=(0) Then Goto (eloop)
  85.  BigIf(q:eloop)
  86.  SetEqual(b=%RESP%)
  87.  Seek(protocol\%var%b-VD.BT)    ;check to see If protocol exists..
  88.  IfNotTrue(Goto (pickp))
  89.  Len(%var%b)
  90.  NotIf (%ARESP%)=(1) then goto (nobat)
  91.  Say(&CR&&3&       Would you like to download this file? &9&[   ]&14&*)
  92.  Back(4)
  93.  YesNoAsk(*)
  94.  If (%RESP%)=(No) Then Goto (eloop)
  95.  Say(&CR&&11&We're sending the file you requested. Please get ready to receive it now.)
  96.  If (%LOCAL%)=(TRUE) Then Goto (eloop)
  97.  FixFile(protocol\%var%b-vd.bt,protocol\%var%b-vd.bat)
  98.  InitClock
  99.  Exec(protocol\%var%b-vd.BAT│)
  100.  Kill(protocol\%var%b-vd.bat)
  101.  If (%LOCAL%)=(FALSE) Then toglocal
  102.  NotIf (%ARESP%)=(0) Then Goto (nsc)
  103.  XferTime
  104.  SetEqual(e=%ARESP%)
  105.  Size(zvtemp\%var%d)
  106.  MultVar(%XMIN%*60=o)
  107.  DivVar(%ARESP%/%var%o=g)         ;calculate CPS rate
  108.  CnvtK(%ARESP%)
  109.  AddVar(%ARESP%+/:KDOWN/=o)
  110.  SetEqual(/KDOWN=%var%o)
  111.  Say(%BEEP%*)
  112.  Log(--,%var%d Downloaded from Zip:%var%e.)
  113.  Log(--,Rate: %var%g CPS)
  114.  AppendTo(logs\DOWNLOAD.%NODE%,%var%d downloaded by %NAME% at %TIME% on %DATE%.)
  115.  SetEqual(a=/:DOWNLOADS/)
  116.  inc(a)
  117.  SetEqual(/DOWNLOADS=%var%a)
  118.  If (%LOCAL%)=(TRUE) Then toglocal
  119.  Display (Display\SUCCESS)
  120.  Exec(del zvtemp <yes)
  121.  Enter
  122.  Goto (eloop)
  123.  
  124. *NOBAT
  125.  Say(&CR&&15&No batch protocols allowed for transfering this file.&CR&)
  126.  Goto (pickp)
  127.  
  128. *nsc
  129. toglocal
  130. goto (eloop)
  131.  
  132. *pause
  133. setequal(p=1)
  134. pauseprompt
  135. if (%ARESP%)=(STOP) then goto (elp)
  136. ret
  137.