home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / BASWIND8.ZIP / QUESTION.SUB < prev    next >
Encoding:
Text File  |  1990-09-14  |  2.8 KB  |  57 lines
  1. '
  2. '
  3. '******************************************************************************
  4. 'Question.sub        Function : QUESTION                                      *
  5. '                                                                             *
  6. ' Purpose:                                                                    *
  7. '                                                                             *
  8. '                                                                             *
  9. ' Results:                                                                    *
  10. '                                                                             *
  11. ' Usage  :                                                                    *
  12. '                                                                             *
  13. '                                                                             *
  14. ' Date Written : 09/01/90 - Date Tested: 09/01/90 - Author: James P Morgan    *
  15. ' Date Modified:          -            :          -       :                   *
  16. '-----------------------------------------------------------------------------*
  17. ' NOTE:                                                                       *
  18. '******************************************************************************
  19. '                                                                             *
  20. '     SUB PROGRAM NAME          (PARAMETERS)                 STATIC/RECURSIVE *
  21. '-----------------------------------------------------------------------------*
  22. '                                                                             *
  23. '============================================================================
  24. '
  25. '
  26. '  With the new version of BASWIND for QB4, a 'general purpose' PROMPT/QUERY
  27. ' windowing routine was designed to replace CAUTION/WARNING/QUESTION .
  28. '  However this QUESTION subroutine was keep to provide downward compatibility
  29. ' with prior releases of BASWIND.
  30. '
  31. SUB    QUESTION(MSGLINES%,MSGDAT$(1),QUADRANT$,RETURN.CODE%)            STATIC
  32.  
  33.        DEFINT A-Z                               'make short intergers as default
  34.  
  35.        MSG1$="Q  U  E  S  T  I  O  N"           'QUERY window header
  36.        LEFT.BUTTON.MSG$ ="No"
  37.        LEFT.BUTTON.REPLY$="Nn"                  'valid keyboard response to NO
  38.        RIGHT.BUTTON.MSG$="Yes"
  39.        RIGHT.BUTTON.REPLY$="Yy"
  40.        QUERY.TYPE%=0                            'notIfication/reply type window
  41.  
  42.        CALL QUERY(MSGLINES%,MSGDAT$(),QUADRANT$,MSG1$,_
  43.                   LEFT.BUTTON.MSG$,_
  44.                   LEFT.BUTTON.REPLY$,_
  45.                   RIGHT.BUTTON.MSG$,_
  46.                   RIGHT.BUTTON.REPLY$,_
  47.                   QUERY.TYPE%,_
  48.                   RETURN.CODE%)
  49.  
  50.        MSG1$=""
  51.        LEFT.BUTTON.MSG$=""
  52.        LEFT.BUTTON.REPLY$=""
  53.        RIGHT.BUTTON.MSG$=""
  54.        RIGHT.BUTTON.REPLY$=""
  55.  
  56. END SUB
  57.