home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol134 / tp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  942 b   |  43 lines
  1. PROGRAM tp;
  2. CONST    maxn        = 512;
  3.     doomsday    = FALSE;
  4. TYPE    intarray    = ARRAY[1..maxn] OF INTEGER;
  5.     byte        = 0..255;
  6. VAR    x,y        : intarray;
  7.     n,i        : INTEGER;
  8.     dc        : byte;
  9.     answer        : CHAR;
  10.     penup        : BOOLEAN;
  11. PROCEDURE profile(VAR x,y : intarray;
  12.           VAR n   : INTEGER;
  13.           dc      : byte;
  14.           m       : INTEGER;
  15.           VAR p   : BOOLEAN);EXTERNAL;
  16. BEGIN
  17.  REPEAT
  18.  n  := 0;
  19.  WRITE('enter dc ---> ');
  20.  READ(dc);
  21.  WRITELN('put hipad in stream mode : hit return when ready !');
  22.  READ(answer);
  23.  WRITELN('commencing profile : ');
  24.  profile(x,y,n,dc,maxn,penup);
  25.  WRITELN('done : n = ',n:3);
  26.  IF penup 
  27.     THEN WRITELN('PEN CAME UP')
  28.     ELSE WRITELN('PEN NOT  UP');
  29.  WRITELN;
  30.  WRITE('Dump x and Y ?   ');
  31.  READ(answer);
  32.  IF answer IN ['y','Y']
  33.     THEN BEGIN
  34.           FOR i := 1 TO n DO
  35.            BEGIN
  36.             WRITE('x[',i:3,'] := ',x[i]);
  37.             WRITELN('        ','y[',i:3,'] := ',y[i]);
  38.            END;
  39.          END;
  40.  READ(answer);
  41.  UNTIL doomsday;
  42. END.
  43.