home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / input.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-02-10  |  768 b   |  34 lines
  1.  
  2.  
  3.  
  4. FUNCTION INPUT_DATA(X,Y,LEN:BYTE; ALPHANUMERIC:BOOLEAN;
  5.             MAXIMUM_VALUE,MINIMUM_VALUE:REAL):$STRING255;
  6.  
  7. {function to position cursor on terminal screen, enter data, and then 
  8. check the data to insure it is within acceptable limits...if it is not
  9. then the function erases the entry and prompts the user for re-entry..
  10. returns a string up to 80 char}
  11.  
  12. VAR
  13. DATA:$STRING255;
  14. I:BYTE;
  15.  
  16. BEGIN
  17.  
  18. MOVE_CURSOR(X,Y);
  19. READ(DATA);
  20. èWHILE (ALPHANUMERIC = TRUE) AND (LENGTH(DATA) > LEN) DO CORRECT(X,Y);
  21.  
  22. IF   LENGTH(DATA) = 0 THEN
  23. BEGIN
  24.     DATA:=' ';    
  25.     FOR I:=  1 TO (LEN-1) DO  APPEND (DATA,' ');
  26. END;
  27.  
  28. IF LENGTH(DATA) < LEN THEN
  29.     FOR I:= LENGTH(DATA) TO LEN DO     APPEND(DATA,' ');
  30.  
  31. INPUT_DATA:=DATA;
  32.  
  33. END;
  34.