home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / WNDTOOL5.ZIP / CAUTION.SUB < prev    next >
Text File  |  1989-04-26  |  3KB  |  52 lines
  1. '
  2. '$PAGE
  3. '
  4. '******************************************************************************
  5. '                    Function :                                               *
  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. '  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 CAUTION subroutine was keep to provide downward compatibility
  29. ' with prior releases of BASWIND.
  30. '
  31. SUB    CAUTION(MSGLINES%,MSGDAT$(1),QUADRANT$,RETURN.CODE%)             STATIC
  32.  
  33.        DEFINT A-Z                            'make all short interger by default
  34.  
  35.        MSG1$="C  A  U  T  I  O  N"           'QUERY header
  36.        LEFT.BUTTON.MSG$ ="Cancel"
  37.        LEFT.BUTTON.REPLY$="Cc"               'valid keyboard responce for Cancel
  38.        RIGHT.BUTTON.MSG$="Continue"
  39.        RIGHT.BUTTON.REPLY$="Cc"
  40.        QUERY.TYPE%=0                         'notification/reply type
  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.        EXIT SUB
  51. END SUB
  52.