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