home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
vrac
/
cl_save.zip
/
DEMO.PRG
< prev
next >
Wrap
Text File
|
1994-12-12
|
5KB
|
152 lines
* *************************************************************************
*
* DEMO.PRG / DEMO.EXE for SCRVSAVE.LIB
*
* -------------------------------------------------------------------------
*
* Compile these PRG only with :
*
* For example : CLIPPER DEMO
*
* Link the OBJ-Code togehter with SCRNSAVE.LIB :
*
* For example : RTLINK FI DEMO LI SCRNSAVE
*
* -------------------------------------------------------------------------
*
* All rights reserved by
*
* PC-Dienste Berg & Rudolf Albrecht
*
* *************************************************************************
// To Start the Program
// ....................
#Include "SCRNSAVE.CH" // Header-File for Screen-Saver
// Define condition
// ................
Set Scoreboard Off
Set SCRNSAVE TIME To 5 // Quickness of reaction 5 Seconds
Set SCRNSAVE TYPE To 1 // Screen-Saver Typ 1
Set SCRNSAVE KEY To 1 // Value for Keyboard buffer by Interrupt
Set SCRNSAVE ON // To Start the Interrupt-Control
* =========================================================================
// Example 1 Function INKEY(0)
// .......... =================
Cls
DispBox( 0, 0, MaxRow(), MaxCol(), 1, "w/n" )
SetColor( "w+/b,n/w,,,w+/b" )
Scroll( 1, 1, MaxRow() -1, MaxCol() -1 )
@ 2, 2 Say "Example by Function INKEY( 0 ) ... "
@ 3, 2 Say "Press any key or wait for ScreenSaver > "
Inkey(0)
* -------------------------------------------------------------------------
// Example 2 Function GET
// .......... ============
cBuffer := Space(10)
@ 5, 2 Say "Example with Syntax : @ x,y GET ... > "
@ Row(), Col() Get cBuffer
Read
* -------------------------------------------------------------------------
// Example 3 Function PROMPT
// .......... ===============
Set SCRNSAVE TYPE To 2 // to change the screen-saver type
@ 7, 2 To 12, 13 Double
@ 8, 3 Prompt " Prompt 1 "
@ 9, 3 Prompt " Prompt 2 "
@ 10, 3 Prompt " Prompt 3 "
@ 11, 3 Prompt " Prompt 4 "
Menu To nWahl
* -------------------------------------------------------------------------
// Example 4 Function ACCEPT TO
// .......... ===================
Set SCRNSAVE TYPE To 3 // to change the screen-saver type
@ 13, 2 Say "Example with ACCEPT TO > "
Accept To cVar
* -------------------------------------------------------------------------
// Example 5 Function INPUT TO
// .......... =================
Set SCRNSAVE TYPE To 4 // to change the screen-saver type
@ 15, 2 Say "Example with INPUT TO ..."
Input To nVar
* -------------------------------------------------------------------------
// Example 6 Function WAIT
// .......... =============
@ 18, 2 Say "Example WAIT ... or press any key to go on > "
Wait "" To nWait
* -------------------------------------------------------------------------
// Example 7 Function MEMOEDIT
// .......... =================
Set SCRNSAVE TYPE To 5 // to change the screen-saver type
Set SCRNSAVE Off // ─┐
Set SCRNSAVE TIME To 10 // ├- to change reaction time (!!)
Set SCRNSAVE On // ─┘
@ 4, 40 To 11, 77
cText := "Here is MemoEdit ..."
cText := MemoEdit( cText, 5, 41, 10, 76 )
* -------------------------------------------------------------------------
// Examplel 8 Function ACHOICE
// .......... ================
Set SCRNSAVE TYPE To 6 // to change the screen-saver type
@ 15, 40 To 21, 52
aArray := { " One 1 ",;
" Two 2 ",;
" Three 3 ",;
" Four 4 ",;
" Five 5 ",;
" Six 6 ",;
" Seven 7 ",;
" Eight 8 ",;
" Nine 9 " }
AChoice( 16, 41, 20, 51, aArray )
* =========================================================================
// the end of the demo
// ...................
Set SCRNSAVE Off // at the end always set ... off
SetPos( MaxRow(), 0 ) // ^^^
Quit
* *************************************************************************