home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SUPRWIN3.ZIP / SUPRDEMO.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  1.9 KB  |  77 lines
  1.  
  2. program WinDemo ( input, output );
  3.  
  4. uses Crt,
  5.      Superwin;
  6.  
  7. var i,
  8.     BordNum : byte;
  9.  
  10. {
  11.  
  12. procedure PieceExplode ( X1,
  13.                          Y1,
  14.                          X2,
  15.                          Y2,
  16.                          Fore,
  17.                          Back,
  18.                          Speed,
  19.                          Jump      : byte;
  20.                          Border    : string;
  21.                          EffectsOn : boolean);
  22.  
  23. procedure ExplodeWindow ( X1,
  24.                           Y1,
  25.                           X2,
  26.                           Y2,
  27.                           Fore,
  28.                           Back,
  29.                           Speed,
  30.                           Jump      : byte;
  31.                           Border    : string;
  32.                           EffectsOn : boolean);
  33.  
  34. procedure SolidWindow ( X1,
  35.                         Y1,
  36.                         X2,
  37.                         Y2     : byte;
  38.                         Border : string );
  39.  
  40.  
  41.  
  42. These are preset borders :
  43.  
  44.   Border[1] := '++++-|';
  45.   Border[2] := '┌┐└┘─│';
  46.   Border[3] := '╔╗╚╝═║';
  47.   Border[4] := '╓╖╙╜─║';
  48.   Border[5] := '╒╕╘╛═│';    All these can be edited from the main file
  49.   Border[6] := '██████';
  50.   Border[7] := '░░░░░░';
  51.   Border[8] := '▒▒▒▒▒▒';
  52.   Border[9] := '▓▓▓▓▓▓';
  53.  
  54.  Border[10] is open for the user of the program to make
  55.  
  56. }
  57.  
  58.  
  59. begin
  60.  ClrScr;
  61.  write ( output, 'What border number do you want to use? ( 1 - 10 ) : ' );
  62.  readln ( input, BordNum );
  63.  writeln;
  64.  write ( output, 'Press <enter> for display!');
  65.  readln;
  66.  ClrScr;
  67.  for i := 1 to 6 do
  68.   PieceExplode ( i, i, 80-i, 24-i, i, 0, 10, 0, Border[BordNum], true );
  69.  for i := 7 to 11 do
  70.   ExplodeWindow ( i, i, 80-i, 24-i, i, 0, 5, 0, Border[BordNum], true );
  71.  GotoXy ( 30, 12 );
  72.  TextColor (15);
  73.  TextBackGround (1);
  74.  Write ( output , '  Thats All Folks!  ' );
  75.  readln;
  76. end.
  77.