home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
DBASE
/
VPI1_303.ZIP
/
MENUDEMO.PRG
< prev
next >
Wrap
Text File
|
1991-12-31
|
1KB
|
59 lines
DO WHILE t
CLS
TEXT
Choice can be made by using upper case letter of each line
0.Exit to DOS
1. Sound Tear
2. Sound Ring
3. Screen Swap
4. Return to VP-Info
ENDTEXT
CURSOR 4,7
sel=menu(4,17,15)
DO CASE
CASE sel=0
QUIT
CASE sel=1
SOUND 5
CASE sel=2
SOUND 7
CASE sel=3
SCREEN 1,2
CLS
SCREEN t
CASE sel=4
CANCEL
CASE sel=65 ; timeout
PERFORM scrnsave
OTHERWISE
?sel
DELAY 1
ENDCA
ENDDO
PROCEDURE scrnsave
CLS
WINDOW 10,10,20,70,:color
sys_color=:color
DO WHILE t
WINDOW
ERASE
IF ifkey()
dummy=inkey()
BREAK
ENDIF
w=int(60*rand())
h=int(19*rand())
IF sys_color<>7
:color=rand()*127
ENDIF
WIND h+1,w+1,h+5,w+13 double
? " Press "
? " any key "
? " to resume."
DELAY 1.5
ENDDO
:color=sys_color
CLS
ENDP