home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / correct.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-02-10  |  768 b   |  48 lines
  1.  
  2. PROCEDURE CORRECT(X,Y:BYTE);
  3. {procedure called by function input data...} 
  4.  
  5. VAR
  6. I,A,B:INTEGER;
  7. ALPHANUMERIC:BOOLEAN;
  8. LEN:BYTE;
  9. DATA:$STRING255;
  10. èBEGIN
  11.  
  12.     ERASE_LINES (20,2);
  13.     WRITE (CHR(7));
  14.     MOVE_CURSOR (1,20);
  15.  
  16.     IF (ALPHANUMERIC = TRUE) AND (LENGTH(DATA) > LEN) THEN
  17.        WRITE('TERM TOO LONG ');
  18.  
  19.     
  20.     MOVE_CURSOR(X,Y);
  21.     WRITE (' ');
  22.     A:=X;
  23.     B:=Y;
  24.  
  25.     FOR  I:=1 TO  LENGTH(DATA) DO
  26.     BEGIN
  27.         MOVE_CURSOR(A,B);
  28.         WRITE(' ');
  29.         A:=A+1;
  30.     END;
  31.  
  32.     MOVE_CURSOR(X,Y);
  33.     WRITE('_');
  34.     A:=X;
  35.     B:=Y;
  36.     FOR I:= 1 TO (LEN-1)  DO
  37.     BEGIN
  38.         MOVE_CURSOR(A,B);
  39.         WRITE('_');
  40.         A:=A+1;
  41.     END;
  42.  
  43.     MOVE_CURSOR(X,Y);
  44.     READ(DATA);
  45.     ERASE_LINES(20,1);
  46.  
  47. END;
  48.