home *** CD-ROM | disk | FTP | other *** search
/ The California Collection / TheCaliforniaCollection.cdr / his041 / findit.bas < prev    next >
Encoding:
BASIC Source File  |  1990-04-04  |  1.2 KB  |  56 lines
  1. for i = 1 to 16
  2. read filenam$
  3. shell "pk "+filenam$+" touch.com"
  4. gosub pkunzip.error
  5. if rerror=0 then beep:cls:print filenam$:exit for
  6. next i
  7. close
  8. end
  9.  
  10.  
  11.  
  12. pkunzip.error:
  13. ' 0       No error.
  14. ' 1       Warning error (such as failed CRC check).
  15. ' 2,3     Error in ZIP file.
  16. ' 4-8     Insufficient Memory.
  17. ' 9       File not found.  No ZIP files found.
  18. ' 10      Bad or illegal parameters specified.
  19. ' 11      No File Extracted (no file, ZIP file found)
  20. ' 50      Disk Full.
  21. ' 51      Unexpected EOF in ZIP file.
  22. ax%=&h4d*&h100
  23. reg 1,ax%
  24. call interrupt &h21
  25. rerror=reg(1)
  26. 'select case rerror
  27. 'case 0
  28. 'no error
  29. 'pkresult$=""
  30. 'case 1
  31. 'bad crc
  32. 'pkresult$="CRC Error"
  33. 'case 2,3
  34. 'pkresult$="Error in ZIP"
  35. 'case 4 to 8
  36. 'pkresult$="Insufficient Memory"
  37. 'case 9
  38. 'pkresult$="ZIP File Not Found"
  39. 'case 11
  40. ''if (rerror and &b1001) then pkresult$="Illegal ZIP File"
  41. 'pkresult$="Invalid ZIP File"
  42. 'case 50
  43. 'pkresult$="Disk Full"
  44. 'case 51
  45. 'pkresult$="Unexpected EOF in ZIP"
  46. 'case else
  47. 'pkresult$="Undefined Pkunzip Error"
  48. 'end select
  49. return
  50.  
  51.  
  52.  
  53. data "VOL6N17","VOL6N20","VOL6N22","VOL7N1","VOL7N14","VOL7N19"
  54. data "VOL7N5","VOL7N6","VOL7N7","VOL7N8","VOL7N9","VOL8N07","VOL8N13"
  55. data "VOL8N4","VOL8N5","VOL8N6"
  56.