home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / interpre / pl / chaintst.pl next >
Text File  |  1986-09-21  |  118b  |  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.