home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
baswind8.zip
/
WARNING.SUB
< prev
next >
Wrap
Text File
|
1990-09-14
|
3KB
|
57 lines
'
'$PAGE
'
'******************************************************************************
' Function : WARNING *
' *
' 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 WARNING subroutine was keep to provide downward compatibility
' with prior releases of BASWIND.
'
SUB WARNING(MSGLINES%,MSGDAT$(1),QUADRANT$,RETURN.CODE%) STATIC
DEFINT A-Z 'make all short interger by default
MSG1$="W A R N I N G" 'QUERY header
LEFT.BUTTON.MSG$ ="Cancel"
LEFT.BUTTON.REPLY$="Cc" 'valid keyboard responce for Cancel
RIGHT.BUTTON.MSG$="Continue"
RIGHT.BUTTON.REPLY$="Cc"
QUERY.TYPE%=1 'high visibility promply/reply
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