program PICS; {$C-} const version = 'PICS v1.6'; ver_date = '6/20/87'; {$I PICSDEF.INC} {$I PICSTYPE.INC} {$I PICSVAR.INC} {$I ACCESS.BOX} var DatF: DataFile; IdxF: IndexFile; {$I PICS.MCH} {$I PICS.MDM} {$I PICS.CLK} {$I PICSKIO.INC} {$I PICSKMS.INC} {$I PICSKMS1.INC} {$I PICSKMS2.INC} {$I GETKEY.BOX} {$I PICS0A.INC} {$I PICS0B.INC} {$I PICS0C.INC} {$I PICS0D.INC} {$I PICS0E.INC} {$I PICS0F.INC} {$I PICS0G.INC} {$I ADDKEY.BOX} {$I DELKEY.BOX} {$I PICS0H.INC} {$I PICS0H1.INC} {$I PICS0I.INC} {$I PICS2A.INC} {$I PICS2B.INC} {$I PICS2B1.INC} {$I PICS2C.INC} {$I PICS2C1.INC} {$I PICS2D.INC} {$I PICS2E.INC} {$I PICS2F.INC} {$I PICS2F1.INC} {$I PICS2G.INC} {$I PICS2H.INC} {$I PICS2H1.INC} {$I PICS2I.INC} {$I PICS2J.INC} {$I PICS2K.INC} {$I PICS2L.INC} {$I PICS3A.INC} {$I PICSMAIN.INC} {End PICS }