home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / BASWIND8.ZIP / CAUTION.SUB < prev    next >
Encoding:
Text File  |  1990-09-14  |  2.7 KB  |  54 lines
  1. '
  2. '
  3. '******************************************************************************
  4. '                    Function : CAUTION                                       *
  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. '  With the new version of BASWIND for QB4, a 'general purpose' PROMPT/QUERY
  24. ' windowing routine was designed to replace CAUTION/WARNING/QUESTION .
  25. '  However this CAUTION subroutine was keep to provide downward compatibility
  26. ' with prior releases of BASWIND.
  27. '
  28. SUB    CAUTION(MSGLINES%,MSGDAT$(1),QUADRANT$,RETURN.CODE%)             STATIC
  29.  
  30.        DEFINT A-Z                            'make all short interger by default
  31.  
  32.        MSG1$="C  A  U  T  I  O  N"           'QUERY header
  33.        LEFT.BUTTON.MSG$ ="Cancel"
  34.        LEFT.BUTTON.REPLY$="Cc"               'valid keyboard responce for Cancel
  35.        RIGHT.BUTTON.MSG$="Continue"
  36.        RIGHT.BUTTON.REPLY$="Cc"
  37.        QUERY.TYPE%=0                         'notification/reply type
  38.  
  39.        CALL QUERY(MSGLINES%,MSGDAT$(),QUADRANT$,MSG1$,_
  40.                   LEFT.BUTTON.MSG$,_
  41.                   LEFT.BUTTON.REPLY$,_
  42.                   RIGHT.BUTTON.MSG$,_
  43.                   RIGHT.BUTTON.REPLY$,_
  44.                   QUERY.TYPE%,_
  45.                   RETURN.CODE%)
  46.  
  47.        MSG1$=""
  48.        LEFT.BUTTON.MSG$=""
  49.        LEFT.BUTTON.REPLY$=""
  50.        RIGHT.BUTTON.MSG$=""
  51.        RIGHT.BUTTON.REPLY$=""
  52.  
  53. END SUB
  54.