home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VPI1_330.ZIP / MENUDEMO.PRG < prev    next >
Encoding:
Text File  |  1991-12-31  |  1011 b   |  59 lines
  1. DO WHILE t
  2.    CLS
  3.    TEXT
  4. Choice can be made by using upper case letter of each line
  5.     0.Exit to DOS
  6.  
  7.     1. Sound Tear
  8.     2. Sound Ring
  9.     3. Screen Swap
  10.     4. Return to VP-Info
  11.    ENDTEXT
  12.    CURSOR 4,7
  13.    sel=menu(4,17,15)
  14.    DO CASE
  15.    CASE sel=0
  16.       QUIT
  17.    CASE sel=1
  18.       SOUND 5
  19.    CASE sel=2
  20.       SOUND 7
  21.    CASE sel=3
  22.       SCREEN 1,2
  23.       CLS
  24.       SCREEN t
  25.    CASE sel=4
  26.       CANCEL
  27.    CASE sel=65 ; timeout
  28.       PERFORM scrnsave
  29.    OTHERWISE
  30.       ?sel
  31.       DELAY 1
  32.    ENDCA
  33. ENDDO
  34. PROCEDURE scrnsave
  35.    CLS
  36.    WINDOW 10,10,20,70,:color
  37.    sys_color=:color
  38.    DO WHILE t
  39.       WINDOW
  40.       ERASE
  41.       IF ifkey()
  42.          dummy=inkey()
  43.          BREAK
  44.       ENDIF
  45.       w=int(60*rand())
  46.       h=int(19*rand())
  47.       IF sys_color<>7
  48.          :color=rand()*127
  49.       ENDIF
  50.       WIND h+1,w+1,h+5,w+13 double
  51.       ? "   Press   "
  52.       ? "  any key  "
  53.       ? " to resume."
  54.       DELAY 1.5
  55.    ENDDO
  56.    :color=sys_color
  57.    CLS
  58. ENDP
  59.