home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
baswind8.zip
/
QUESTION.SUB
< prev
next >
Wrap
Text File
|
1990-09-14
|
3KB
|
57 lines
'
'
'******************************************************************************
'Question.sub Function : QUESTION *
' *
' Purpose: *
' *
' *
' Results: *
' *
' Usage : *
' *
' *
' Date Written : 09/01/90 - Date Tested: 09/01/90 - Author: James P Morgan *
' Date Modified: - : - : *
'-----------------------------------------------------------------------------*
' NOTE: *
'******************************************************************************
' *
' SUB PROGRAM NAME (PARAMETERS) STATIC/RECURSIVE *
'-----------------------------------------------------------------------------*
' *
'============================================================================
'
'
' With the new version of BASWIND for QB4, a 'general purpose' PROMPT/QUERY
' windowing routine was designed to replace CAUTION/WARNING/QUESTION .
' However this QUESTION subroutine was keep to provide downward compatibility
' with prior releases of BASWIND.
'
SUB QUESTION(MSGLINES%,MSGDAT$(1),QUADRANT$,RETURN.CODE%) STATIC
DEFINT A-Z 'make short intergers as default
MSG1$="Q U E S T I O N" 'QUERY window header
LEFT.BUTTON.MSG$ ="No"
LEFT.BUTTON.REPLY$="Nn" 'valid keyboard response to NO
RIGHT.BUTTON.MSG$="Yes"
RIGHT.BUTTON.REPLY$="Yy"
QUERY.TYPE%=0 'notIfication/reply type window
CALL QUERY(MSGLINES%,MSGDAT$(),QUADRANT$,MSG1$,_
LEFT.BUTTON.MSG$,_
LEFT.BUTTON.REPLY$,_
RIGHT.BUTTON.MSG$,_
RIGHT.BUTTON.REPLY$,_
QUERY.TYPE%,_
RETURN.CODE%)
MSG1$=""
LEFT.BUTTON.MSG$=""
LEFT.BUTTON.REPLY$=""
RIGHT.BUTTON.MSG$=""
RIGHT.BUTTON.REPLY$=""
END SUB