home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / pl / numeral.pl < prev    next >
Encoding:
Text File  |  1986-09-22  |  158 b   |  11 lines
  1. BEGIN
  2. $ PL PROGRAM FOR NUMERAL AND UNKNOWN SYMBOL TESTING ----
  3. CONST N = 1000;
  4. INTEGER ARRAY A[50000];
  5. BOOLEAN FOUND;
  6. FOUND:= A[N] & N;
  7. END.
  8. $
  9. $
  10. $
  11.