home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / beehive / bbs / picsuncr.arc / PICS16U.PAS next >
Pascal/Delphi Source File  |  1991-08-11  |  2KB  |  62 lines
  1. { PICS16U.PAS - PICS vers 1.6 with Uncrunch support }
  2. { 06mar88 - Uncrunch mods by W. Brimhall / Znode 52 (602) 996-8739 }
  3.  
  4. { Rename this program to PICS.PAS and compile to produce PICS.COM
  5.   and overlay files. PICSUNCR.PAS must be compiled seperately to produce
  6.   PICSUNCR.CHN which must be present in same file area with PICS.COM. }
  7.  
  8. program PICS;
  9. {$C-}
  10. const
  11.   version = 'PICS v1.6u';
  12.   ver_date = '06mar88';
  13. { ver_date = '6/20/87';  Original PICS16 vers date }
  14. {$I PICSDEF.INC}
  15. {$I PICSTYPE.INC}
  16. {$I PICSVAR.INC}
  17. {$I picsvar1.unc}  { New file with global uncrunching variables }
  18. {$I ACCESS.BOX}
  19. var
  20.   DatF: DataFile;
  21.   IdxF: IndexFile;
  22. {$I pics.MCH}      { Make sure this matches your .MCH file name }
  23. {$I pics.MDM}      { Make sure this matches your .MDM file name }
  24. {$I pics.CLK}      { Make sure this matches your .CLK file name }
  25. {$I PICSKIO.INC}
  26. {$I PICSKMS.INC}
  27. {$I PICSKMS1.INC}
  28. {$I PICSKMS2.INC}
  29. {$I GETKEY.BOX}
  30. {$I PICS0A.INC}
  31. {$I PICS0B.INC}
  32. {$I PICS0C.INC}
  33. {$I PICS0D.INC}
  34. {$I PICS0E.INC}
  35. {$I PICS0F.INC}
  36. {$I PICS0G.INC}
  37. {$I ADDKEY.BOX}
  38. {$I DELKEY.BOX}
  39. {$I PICS0H.INC}
  40. {$I PICS0H1.INC}
  41. {$I PICS0I.INC}
  42. {$I PICS2A.INC}
  43. {$I PICS2B.INC}
  44. {$I PICS2B1.INC}
  45. {$I PICS2C.INC}
  46. {$I PICS2C1.unc}  { New file replaces PICS2C1.INC for uncrunching }
  47. {$I PICS2D.INC}
  48. {$I PICS2E.INC}
  49. {$I PICS2F.INC}
  50. {$I PICS2F1.INC}
  51. {$I PICS2G.INC}
  52. {$I PICS2H.INC}
  53. {$I PICS2H1.INC}
  54. {$I PICS2I.INC}
  55. {$I PICS2J.INC}
  56. {$I PICS2K.INC}
  57. {$I PICS2L.INC}
  58. {$I PICS3A.INC}
  59. {$I PICSMAIN.unc} { New file replaces PICSMAIN.INC for uncrunching }
  60.  
  61. {End PICS }
  62.