home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / t / twi20.zip / TWIDEMO2.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-01  |  4KB  |  97 lines

  1. Program TWIDEMO2;
  2.  
  3. (***********************************************************************)
  4. (**        Text Windowing Interface Copyright David Pabst 1993        **)
  5. (**                        All Rights Reserved                        **)
  6. (**   Compuserve: 76547,2643     Relaynet: Pascal to David Pabst      **)
  7. (**                                                                   **)
  8. (** You may use, test, and\or develop software that uses TWI for      **)
  9. (** up to 1 month (31 days).  You should not release software that    **)
  10. (** uses TWI before your register. If you do, your first registration **)
  11. (** for that software must be put towards registering TWI.  Either way**)
  12. (** you must register after 31 days of use and demoing TWI.           **)
  13. (** TWI is shareware.                      YOU must register if this  **)
  14. (** software meets your needs.  Registration is $15 (US) Check or     **)
  15. (** money order.                                                      **)
  16. (**                                                                   **)
  17. (** $15 - David Pabst, 18 McAdams Road, Framingham, MA 01701, USA     **)
  18. (***********************************************************************)
  19.  
  20.  
  21. Uses Crt,TWI2;
  22.  
  23. var
  24.  Top, Bottom, J,
  25.  A, B , C , D , E , F , G , H , I : String;
  26.  Option, Fillchar                 : Char;
  27.  X, Y                             : Integer;
  28.  Done                             : Boolean;
  29.  
  30. Begin                                   (* Twi Demo 2 *)
  31.  DefaultColors;                         (* Set Colors To Defaults *)
  32.  Top := ('TWI Demo 2 Copyright 1993 David Pabst & DSP Software   All Rights Reserved      ');
  33.  Bottom := ('ESC Exit  C Cool Display');
  34.  Fillchar := ('▒');
  35.  DrawBackGround(Top,Bottom);            (* Set The back ground up *)
  36.  
  37.  A:=('TWIDEMO2.EXE shows that');        (* Shows a sample window *)
  38.  B:=('multiple windows can be');
  39.  C:=('opened at one time.');
  40.  D:=('TWIDEMO1 can scroll windows');
  41.  DrawSmallWindow(A,B,C,D,25,8);         (* Draw a small window at 25,8 *)
  42.  TextColor(4);                          (* Text Color red *)
  43.  WriteXy(34,13,' Press Return ');       (* Tell User To Press Return *)
  44.  WaitForReturn;                         (* Wait Until Return Is Pressed *)
  45.  ClearSmallWindow(25,8);                (* Clear Window After REturn *)
  46.  Done := false;
  47.  
  48.  FGC := 5;
  49.  BGC := 2;
  50.  LC  := 4;
  51.  DrawSmallWindow(' Press C or ESC ',' C Cool Display',' ESC Exit','',25,8);
  52.  DefaultColors;
  53.  
  54.  Repeat                                 (* Until... *)
  55.   option := readkey;                    (* Get input from Keyboard *)
  56.   option := upcase(option);
  57.   case option of
  58.    #27 : Begin                          (* If Escape is pressed *)
  59.           TwiClose;                     (* Close TWI Down *)
  60.          end;
  61.    'C' : Begin                          (* cool demo windowing demo *)
  62.            a:=('TWI Copyright David Pabst');   (* Init window vars *)
  63.            b:=('TWI Copyright DSP Software');
  64.            c:=('All Rights Reserved');
  65.            d:=('Press a key to stop output.');
  66.            e:=('Line 5');
  67.            f:=('Line 6');
  68.            g:=('Line 7');
  69.            h:=('Line 8');
  70.            i:=('Line 9');
  71.            j:=('Line 10');
  72.            Bottom := ('Pressing a Key Stops Output & Returns to Main Environment');
  73.            ChangeStatusLine(Top,Bottom); (* Change status lines *)
  74.            Done := false;
  75.            Window(1,2,80,24);
  76.            Repeat
  77.              Begin
  78.                 Randomize;               (* Randomize computer *)
  79.                  delay(125);             (* Delay 125 Milliseconds *)
  80.                  drawmediumwindow(a,b,c,d,e,f,(random(30)),(random(16)));
  81.                  drawsmallwindow(a,b,c,d,(random(45)),(random(17)));
  82.                  drawlargewindow(a,b,c,d,e,f,g,h,i,j,(random(25)),(random(13)));
  83.              End;
  84.            Until keypressed;             (* Until Keypressed *)
  85.            Bottom := ('ESC Exit  C Cool Display'); (* Change status line back *)
  86.            Window(1,1,80,25);
  87.            DrawBackGround(top,bottom); (* Reset BackGround;  *)
  88.            FGC := 5;
  89.            BGC := 2;
  90.            LC  := 4;
  91.            DrawSmallWindow(' Press C or ESC ',' C Cool Display',' ESC Exit','',25,8);
  92.            DefaultColors;
  93.          End;
  94.       End;
  95.  Until Done;
  96. End.                                   (* Twi Demo 2 *)
  97.