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