home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / pl / chaintst.pl next >
Encoding:
Text File  |  1986-09-21  |  118 b   |  5 lines

  1. $ PL PROGRAM CHAIN TESTING FOR SCANNER...
  2. BEGIN
  3.   INTEGER dna, dan, AND, NDA;
  4.   DNA:= DAN + DNA + AND - NDA;
  5. END.