home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
tools
/
codeit
/
demom3.bas
< prev
next >
Wrap
BASIC Source File
|
1992-05-27
|
4KB
|
99 lines
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'DEMOM3.BAS Copyright (C) 1991-1992, Clear Software. ALL RIGHTS RESERVED.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'$INCLUDE: 'CITOOLS.BI'
'$INCLUDE: 'CIMENU3.BI'
'$INCLUDE: 'CIMOUSE.BI'
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
DEFINT A-Z
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
CONST TRUE = -1, FALSE = 0
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Initialize the mouse and dimention the arrays.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MouseInit
DIM p1$(1 TO 10)
DIM pHi(1 TO 10)
DIM pHlp$(1 TO 10)
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Define the array members for the menu choices and the highlight quick access
'keys.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
p1$(1) = "This Won't Hurt A Bit": pHi(1) = 19
p1$(2) = "Trust Me": pHi(2) = 1
p1$(3) = "I Was At The Library": pHi(3) = 1
p1$(4) = "I Told You So": pHi(4) = 12
p1$(5) = "Easy To Use": pHi(5) = 1
p1$(6) = "-": pHi(6) = 1
p1$(7) = "Exit": pHi(7) = 2
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Set the pop up menu colors.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
PopColors 7, 1, 7, 1, 7, 1, 1, 7, 8, 8, 15, 15
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Define the menu description array members and the description area and
'colors.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
pHlp$(1) = " The reason most of us don't believe doctors"
pHlp$(2) = " Chapter one in the `How To Sell Used Cars' manual"
pHlp$(3) = " What we wished our parents would have beleived"
pHlp$(4) = " A phrase we could all do without"
pHlp$(5) = " Famous software claims"
pHlp$(6) = ""
pHlp$(7) = " Exit the program"
PopDescript 1, 2, pHlp$(), 78, 15, 3
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Set user defined exit keys for F1 and F2.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
PopExitKeySet 1, CHR$(0) + CHR$(59)
PopExitKeySet 2, CHR$(0) + CHR$(60)
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Clear the screen, paint the background, and display the mouse cursor.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
CLS
COLOR 0, 7
ScreenPaint 2, 79, 2, 22, "."
DrawBox 1, 80, 1, 23, 2
MouseShow
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Make the menu visible and active. If the user chooses "Exit" from the menu
'or presses the escape key, exit the loop.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
WHILE x <> 7 AND x <> -27
x = PopMenu(6, 28, p1$(), pHi(), " Quotes and Claims ", 1, 1)
WEND
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Hide the mouse cursor, clean up the screen, and exit the program.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MouseHide
COLOR 7, 0
CLS
END