home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / EDITORES / TSCREDD2.ZIP / SCRDISK5.EXE / SMALLEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-04-22  |  296 b   |  16 lines
  1. Uses Crt,ScrEdit;
  2. {$I ScrDemo.003}
  3. Begin
  4. S_OpenScreenFile('ScrDemo.Scr');
  5. Initialize_Dupe_Fields_Buf;
  6. S_LoadScreen('Dupe_Fields');
  7. S_Cursor := S_InverseNormal;
  8.  
  9. Repeat
  10.   S_ReadScreen;
  11.   If  S_Enter Then
  12.       S_UserMsg := 'ENTER KEY PRESSED';
  13. Until S_Esc;
  14. S_CloseScreenFile;
  15. End.
  16.