home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
picklist
/
demo.prg
< prev
next >
Wrap
Text File
|
1992-07-12
|
1KB
|
30 lines
/*
Program Name: DEMO.PRG Copyright: Rent Roll Inc. (c) 1992
Date Created: 07/12/92 Language.: Clipper 5.1
Time Created: 18:29:58 Author...: Stephen L. Woolstenhulme
*/
function demo
local getlist := {}
local cCode := ' '
local cScrn := savescreen( 0, 0, maxrow(), maxcol() )
local nRow := row(), nCol := col()
local cColor := setcolor()
setcolor( 'w+/b, n/w,,,n/w' )
set scoreboard off
@ 0, 0, maxrow(), maxcol() box "████████░"
use demo alias demo
@ 8, 10, 15, maxcol() - 10 box "████████ "
@ 12, 20 say 'Traffic Source.:' get cCode picture '@!' ;
valid demo->( picklist() )
read
@ 13, 20 say ' You chose.: ' + cCode
inkey( 0 )
setcolor( cColor )
restscreen( 0, 0, maxrow(), maxcol(), cScrn )
setpos( nRow, nCol )
return NIL