home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / ZVIEW.CTL < prev   
Encoding:
Text File  |  1992-07-21  |  1.8 KB  |  94 lines
  1. DefPause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  2. DefPif(s:stop,n:nonstop)
  3.         
  4.         *sv
  5. Display(display\VIEWZ)
  6. Say(&3&Please enter the name of the file to view&12&: &14&(            )&15&*)
  7. Back(13)
  8. MenuAsk%nocr%%CRON%%LEN12%(*)
  9. if (%RESP%)=(<CR>) then goto (ret)
  10. AddDef(.%DEFEXT%)
  11. SeekFall(%RESP%)
  12. If (%ARESP%)=(INVALID) Then goto (invfn)
  13. if (%ARESP%)=(No) then goto (nothere)
  14. If (%ARESP%)=(NOT ENOUGH) Then goto (notenuf)
  15. SelFarea(%ARESP%)
  16. Kill(ZipInfo.txt)
  17. Say(&CR&&CR&&15&Reading the archive file, Please Wait!)
  18. setequal(e=%RESP%)
  19. seek(zipview.bat)
  20. ifnottrue(goto (intview))
  21. Exec(ZipView.bat %FILPATH%%var%e)
  22. *stview
  23. Seek(zipinfo.txt)
  24. IfNotTrue (goto (cont))
  25. inpopen(zipinfo.txt)
  26. do
  27. inpread
  28. get (%ARESP%,1,7)
  29. notif (%ARESP%)=() then if (%ARESP%)=( Length) then loadmem (control\zipview.ctl)
  30. eofloop
  31.  
  32. *odisp
  33. inpclose
  34. view (zipinfo.txt)
  35. goto (cont)
  36.  
  37.         *cont
  38. linefeed(1)
  39. Enter
  40. SelFarea(/:LASTDOWN/)
  41. Return
  42.  
  43.   *badsel
  44. LoadSub(control\macros\badsel.ctl)
  45. Return
  46.  
  47.   *invfn
  48. Display(Display\INVALID)
  49. FlushOut
  50. SelFarea(/:LASTDOWN/)
  51. Enter
  52. Return
  53.  
  54.   *nothere
  55. Display(display\notfnd)
  56. SelFarea(/:LASTDOWN/)
  57. Return
  58.  
  59.   *Notenuf
  60. Say(&CR&)
  61. Display (display\fbadsel)
  62. SelFarea(/:LASTDOWN/)
  63. Return
  64.         *invfn
  65. Display(Display\INVALID)
  66. flushout
  67. selfarea(/:LASTDOWN/)
  68. Enter
  69. goto (fname)
  70.         *notenuf
  71. Display (Display\fbadsec)
  72. selfarea(/:LASTDOWN/)
  73. return        
  74.         *NotHere
  75. Display(Display\notfnd)
  76. goto (fname)
  77.  
  78. *ret
  79. linefeed(1)
  80. return
  81. *intview
  82. len(%var%e)
  83. upcase(e)
  84. addvar(%aresp%+-2=f)
  85. get(&e,%var%f,3)
  86. if (%aresp%)=(ZIP) then goto (ZIP)
  87. exec(av %FILPATH%%var%e >zipinfo.txt,)
  88. view(zipinfo.txt)
  89. goto (cont)
  90.  
  91. *zip
  92. exec(pkzip -v %FILPATH%%var%e >zipinfo.txt,)
  93. goto (stview)
  94.