home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / toolkid / popascii.dem < prev    next >
Encoding:
Text File  |  1988-03-04  |  713 b   |  23 lines
  1. PROGRAM GetASCII_DEMO;
  2.  
  3. USES CRT,IOSTUFF,POPASCII;
  4. VAR
  5.     Ch         : Char;
  6. {======================================================================}
  7. BEGIN
  8.   SetColor(LightGray,Blue);   { Set colors }
  9.   ClrScr;
  10.   SetChooseASCII(32,4);       { set location of ASCII box at 32,4 }
  11.   Repeat
  12.    WriteSt('Move box with arrow keys then hit Enter.',1,25);Clreol;
  13.  
  14.    Ch := ChooseASCII;         { pop up and select }
  15.    If Ch = #0 then exit;      { user hit escape in ChooseASCII }
  16.    FillScr(Ch);               { fill screen with selected character }
  17.  
  18.    GoToXY(1,25);ClrEol;
  19.    WriteSt('Do it again ?',1,25);Clreol;
  20.    Ch := ReadKey;
  21.   Until Ch in ['n','N'];      { Quit when user hits N }
  22. END.
  23.