home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / prompt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  628 b   |  26 lines
  1. PROGRAM PROMPTX;{$I+,M-,C-,F-}
  2. TYPE 
  3. BYTE = 0..255;
  4. $STRING255 = STRING 255;
  5.  
  6.  
  7. PROCEDURE PROMPT (X,Y,LENGTH: BYTE; P:$STRING255;
  8.              PROTECTED_FIELD_DESIRED:BOOLEAN);
  9.  
  10. {procedure to position the cursor on the terminal, display a 
  11. prompting message, and provide underline char for an answer}
  12.  
  13. VAR
  14. UNDERLINE: STRING 255;
  15. I:INTEGER;
  16. BEGIN
  17.     UNDERLINE:='_';
  18.     FOR  I:= 1 TO LENGTH DO APPEND (UNDERLINE,'_');
  19.     IF PROTECTED_FIELD_DESIRED = FALSE THEN
  20. WRITE  (CHR(27),'=',CHR(Y+31),CHR(X+31),P,UNDERLINE)
  21.     ELSE
  22. WRITE (CHR(27),'=',CHR(Y+31),CHR(X+31),CHR(27),')',P,
  23.     UNDERLINE,CHR(27),'(');
  24. END;
  25. BEGIN END.
  26.