home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / cl_save.zip / DEMO.PRG < prev    next >
Text File  |  1994-12-12  |  5KB  |  152 lines
  1.  
  2.   * *************************************************************************
  3.   *
  4.   *   DEMO.PRG / DEMO.EXE  for  SCRVSAVE.LIB
  5.   *
  6.   * -------------------------------------------------------------------------
  7.   *
  8.   *   Compile these PRG only with :
  9.   *
  10.   *     For example :      CLIPPER DEMO
  11.   *
  12.   *   Link the OBJ-Code togehter with SCRNSAVE.LIB :
  13.   *
  14.   *     For example :      RTLINK FI DEMO LI SCRNSAVE
  15.   *
  16.   * -------------------------------------------------------------------------
  17.   *
  18.   *   All rights reserved by
  19.   *
  20.   *   PC-Dienste Berg        &    Rudolf Albrecht
  21.   *
  22.   * *************************************************************************
  23.  
  24.     // To Start the Program
  25.     // ....................
  26.  
  27.     #Include "SCRNSAVE.CH"        // Header-File for Screen-Saver
  28.  
  29.     // Define condition
  30.     // ................
  31.  
  32.     Set Scoreboard Off
  33.  
  34.     Set SCRNSAVE TIME To 5        // Quickness of reaction  5 Seconds
  35.     Set SCRNSAVE TYPE To 1        // Screen-Saver Typ 1
  36.     Set SCRNSAVE KEY  To 1        // Value for Keyboard buffer by Interrupt
  37.  
  38.     Set SCRNSAVE ON               // To Start the Interrupt-Control
  39.  
  40.   * =========================================================================
  41.  
  42.     // Example  1                 Function INKEY(0)
  43.     // ..........                 =================
  44.  
  45.     Cls
  46.     DispBox( 0, 0, MaxRow(), MaxCol(), 1, "w/n" )
  47.     SetColor( "w+/b,n/w,,,w+/b" )
  48.     Scroll( 1, 1, MaxRow() -1, MaxCol() -1 )
  49.  
  50.     @ 2, 2 Say "Example by Function INKEY( 0 ) ...      "
  51.     @ 3, 2 Say "Press any key or wait for ScreenSaver > "
  52.     Inkey(0)
  53.  
  54.   * -------------------------------------------------------------------------
  55.  
  56.     // Example  2                 Function GET
  57.     // ..........                 ============
  58.  
  59.     cBuffer := Space(10)
  60.     @ 5, 2 Say "Example with Syntax : @ x,y GET ... > "
  61.     @ Row(), Col() Get cBuffer
  62.     Read
  63.  
  64.   * -------------------------------------------------------------------------
  65.  
  66.     // Example  3                 Function PROMPT
  67.     // ..........                 ===============
  68.  
  69.     Set SCRNSAVE TYPE To 2        // to change the screen-saver type
  70.  
  71.     @  7, 2 To 12, 13 Double
  72.     @  8, 3 Prompt " Prompt 1 "
  73.     @  9, 3 Prompt " Prompt 2 "
  74.     @ 10, 3 Prompt " Prompt 3 "
  75.     @ 11, 3 Prompt " Prompt 4 "
  76.     Menu To nWahl
  77.  
  78.   * -------------------------------------------------------------------------
  79.  
  80.     // Example  4                 Function  ACCEPT TO
  81.     // ..........                 ===================
  82.  
  83.     Set SCRNSAVE TYPE To 3        // to change the screen-saver type
  84.  
  85.     @ 13, 2 Say "Example with ACCEPT TO > "
  86.     Accept To cVar
  87.  
  88.   * -------------------------------------------------------------------------
  89.  
  90.     // Example  5                 Function INPUT TO
  91.     // ..........                 =================
  92.  
  93.     Set SCRNSAVE TYPE To 4        // to change the screen-saver type
  94.  
  95.     @ 15, 2 Say "Example with INPUT TO ..."
  96.     Input To nVar
  97.  
  98.   * -------------------------------------------------------------------------
  99.  
  100.     // Example  6                 Function WAIT
  101.     // ..........                 =============
  102.  
  103.     @ 18, 2 Say "Example WAIT ... or press any key to go on > "
  104.     Wait "" To nWait
  105.  
  106.   * -------------------------------------------------------------------------
  107.  
  108.     // Example  7                 Function MEMOEDIT
  109.     // ..........                 =================
  110.  
  111.     Set SCRNSAVE TYPE To 5        // to change the screen-saver type
  112.  
  113.     Set SCRNSAVE Off              // ─┐
  114.     Set SCRNSAVE TIME To 10       //  ├- to change reaction time (!!)
  115.     Set SCRNSAVE On               // ─┘
  116.  
  117.     @ 4, 40 To 11, 77
  118.     cText := "Here is MemoEdit ..."
  119.     cText := MemoEdit( cText, 5, 41, 10, 76 )
  120.  
  121.   * -------------------------------------------------------------------------
  122.  
  123.     // Examplel 8                 Function ACHOICE
  124.     // ..........                 ================
  125.  
  126.     Set SCRNSAVE TYPE To 6        // to change the screen-saver type
  127.  
  128.     @ 15, 40 To 21, 52
  129.     aArray := { " One     1 ",;
  130.                 " Two     2 ",;
  131.                 " Three   3 ",;
  132.                 " Four    4 ",;
  133.                 " Five    5 ",;
  134.                 " Six     6 ",;
  135.                 " Seven   7 ",;
  136.                 " Eight   8 ",;
  137.                 " Nine    9 " }
  138.     AChoice( 16, 41, 20, 51, aArray )
  139.  
  140.   * =========================================================================
  141.  
  142.     // the end of the demo
  143.     // ...................
  144.  
  145.     Set SCRNSAVE Off              // at the end always set ... off
  146.     SetPos( MaxRow(), 0 )         //                           ^^^
  147.     Quit
  148.  
  149.   * *************************************************************************
  150.  
  151.  
  152.