home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / toolkid / iostuff.dem < prev    next >
Encoding:
Text File  |  1988-04-05  |  2.5 KB  |  93 lines
  1. USES IOSTUFF,MENUBOX,POPASCII,CRT;
  2. VAR
  3.   Ch : Char;
  4.   IOStuffExit : Boolean;
  5.   Big,Show    : Boolean;
  6.   MenuText    : String[255];
  7.   SN,Dum,II   : Integer;
  8.   F,B         : Integer;
  9. BEGIN
  10. MenuText :=(   'Hide Cursor/'+
  11.                'Big Cursor/'+
  12.                'SaveScreen/'+
  13.                'RestoreScreen/'+
  14.                'PartRestore/'+
  15.                'FillScreen/'+
  16.                'WriteCh/'+
  17.                'Exit/');
  18. ClrScr;
  19. SetMenuBox(6,6,MenuText);
  20. SetChooseASCII(35,5);
  21. IOStuffExit := False;
  22. Repeat Case PickMenuBox of
  23. 'H' : Begin
  24.        ShowCursor;
  25.        Show := true;
  26.        WriteSt('Hit Spacebar to hide and show cursor.',1,25);
  27.        Repeat
  28.         Ch := ReadKey;
  29.         If Ch = ' ' then Show := not Show;
  30.         If Show then ShowCursor else HideCursor;
  31.        Until Ch <> ' ';
  32.        GoToXY(1,25);ClrEol;
  33.       End;
  34. 'B' : Begin
  35.        ShowCursor;
  36.        BigCursor;
  37.        Big := true;
  38.        WriteSt('Hit Spacebar to Toggle big and line cursor.',1,25);
  39.        Repeat
  40.         Ch := ReadKey;
  41.         If Ch = ' ' then Big := not Big;
  42.         If Big then BigCursor else LineCursor;
  43.        Until Ch <> ' ';
  44.        GoToXY(1,25);ClrEol;
  45.       End;
  46. 'S' : Begin
  47.        WriteSt('First choose a character             ',1,25);
  48.        FillScr(ChooseASCII);
  49.        Repeat
  50.         WriteSt('Now enter the SaveScreen number (0-5)',1,25);
  51.         Val(ReadKey,SN,Dum);
  52.        Until SN in [0..5];
  53.        SaveScreen(SN);
  54.        ClrScr;
  55.        ResetBox;
  56.       End;
  57. 'R' : Begin
  58.        Repeat
  59.         WriteSt('Enter the SaveScreen number to restore (0-5)',1,25);
  60.         Val(ReadKey,SN,Dum);
  61.        Until SN in [0..5];
  62.        RestoreScreen(SN);
  63.        ResetBox;
  64.       End;
  65. 'P' : Begin
  66.        WriteSt('First choose a character             ',1,25);
  67.        FillScr(ChooseASCII);
  68.        SavePartScreen(30,5,60,15);
  69.        WriteSt('Have now saved part of screen.  Hit any key to clear',1,25);
  70.        Ch := ReadKey;
  71.        ClrScr;
  72.        WriteSt('Hit any key to restore part of screen',1,25);
  73.        Ch := ReadKey;
  74.        RestorePartScreen(30,5,60,15);
  75.        ResetBox;
  76.       End;
  77. 'F' : Begin
  78.        WriteSt('First choose a character             ',1,25);
  79.        FillScr(ChooseASCII);
  80.        ResetBox;
  81.       End;
  82. 'W' : Begin
  83.        WriteSt('  WriteCh writes characters on the screen -- ',5,20);
  84.        WriteSt('  even funny ones like ',5,21);
  85.        For II := 1 to 32 do WriteCh(Chr(II),27+II,21);
  86.       End;
  87. 'E',#0 : IOStuffExit := True;
  88.  End; {case}
  89. Until IOStuffExit;
  90. LineCursor;
  91. ClrScr;
  92. END.
  93.