home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NANNWS24.ARC / BDEMO.PRG next >
Encoding:
Text File  |  1988-05-18  |  664 b   |  33 lines
  1. * ------------ bdemo ------------------------------
  2. * 9:34:04  2/17/1988 ldv
  3. * Carson Lee
  4. * copyright 1988 SourceMate Information Systems Inc.
  5. * a demonstration program which make use of the blink() functions
  6.  
  7.  set color to /w*
  8.  clear
  9.  
  10.  blinkon()
  11.  wait "We have a blinking display"
  12.  
  13.  blinkoff()
  14.  wait "We have a high intensity background"
  15.  
  16.  blinkon()
  17.  wait "We have a blinking display"
  18.  
  19.  blinkoff()
  20.  wait "We have a high intensity background"
  21.  
  22.  blinkon()
  23.  wait "We have a blinking display"
  24.  
  25.  set color to w
  26.  clear
  27.  
  28.  ? "End of demo"
  29.  ? "Adios, time to hit the beach !"
  30.  
  31. return
  32. * -------------- bdemo.prg.eof.ldv -------------------
  33.