home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l180 / 1.ddi / ERROR.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-02-07  |  3.2 KB  |  105 lines
  1.   ' ************************************************
  2.   ' **  Name:          ERROR                      **
  3.   ' **  Type:          Toolbox                    **
  4.   ' **  Module:        ERROR.BAS                  **
  5.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  6.   ' ************************************************
  7.   ' USAGE:           No command line parameters
  8.   ' .MAK FILE:       (none)
  9.   ' PARAMETERS:      (none)
  10.   ' VARIABLES:       (none)
  11.   
  12.   ' Subprogram
  13.     DECLARE SUB ErrorMessage (message$)
  14.   
  15.   ' Demonstrate the subprogram
  16.   
  17.     ErrorMessage "This is a sample message for ErrorMessage"
  18.   
  19.  
  20.   ' ************************************************
  21.   ' **  Name:          ErrorMessage               **
  22.   ' **  Type:          Subprogram                 **
  23.   ' **  Module:        ERROR.BAS                  **
  24.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  25.   ' ************************************************
  26.   '
  27.   ' Displays an error message and then exits to the system.
  28.   '
  29.   ' EXAMPLE OF USE: ErrorMessage "This is a sample message for ErrorMessage"
  30.   ' PARAMETERS:     message$         String to be displayed in the error box
  31.   ' VARIABLES:      lm%              Length of message$ during processing
  32.   '                 col%             Screen character column for left edge
  33.   '                                  of error box
  34.   ' MODULE LEVEL
  35.   '  DECLARATIONS:  DECLARE SUB ErrorMessage (message$)
  36.   '
  37.     SUB ErrorMessage (message$) STATIC
  38.       
  39.       ' Define color constants
  40.         CONST BLACK = 0
  41.         CONST BLUE = 1
  42.         CONST GREEN = 2
  43.         CONST CYAN = 3
  44.         CONST RED = 4
  45.         CONST MAGENTA = 5
  46.         CONST BROWN = 6
  47.         CONST WHITE = 7
  48.         CONST BRIGHT = 8
  49.         CONST BLINK = 16
  50.         CONST YELLOW = BROWN + BRIGHT
  51.       
  52.       ' Trim off spaces on each end of message
  53.         message$ = LTRIM$(RTRIM$(message$))
  54.       
  55.       ' Make message length an odd number
  56.         IF LEN(message$) MOD 2 = 0 THEN
  57.             message$ = message$ + " "
  58.         END IF
  59.       
  60.       ' Minimum length of message is 9 characters
  61.         DO WHILE LEN(message$) < 9
  62.             message$ = " " + message$ + " "
  63.         LOOP
  64.       
  65.       ' Maximum length of message is 75
  66.         message$ = LEFT$(message$, 75)
  67.       
  68.       ' Initialization of display
  69.         SCREEN 0
  70.         WIDTH 80
  71.         CLS
  72.       
  73.       ' Calculate screen locations
  74.         lm% = LEN(message$)
  75.         col% = 38 - lm% \ 2
  76.       
  77.       ' Create the error box
  78.         COLOR RED + BRIGHT, RED
  79.         LOCATE 9, col%
  80.         PRINT CHR$(201); STRING$(lm% + 2, 205); CHR$(187)
  81.         LOCATE 10, col%
  82.         PRINT CHR$(186); SPACE$(lm% + 2); CHR$(186)
  83.         LOCATE 11, col%
  84.         PRINT CHR$(186); SPACE$(lm% + 2); CHR$(186)
  85.         LOCATE 12, col%
  86.         PRINT CHR$(200); STRING$(lm% + 2, 205); CHR$(188)
  87.       
  88.       ' The title
  89.         COLOR CYAN + BRIGHT, RED
  90.         LOCATE 10, 36
  91.         PRINT "* ERROR *";
  92.       
  93.       ' The message$
  94.         COLOR YELLOW, RED
  95.         LOCATE 11, col% + 2
  96.         PRINT message$;
  97.       
  98.       ' System will prompt for "any key"
  99.         COLOR WHITE, BLACK
  100.         LOCATE 22, 1
  101.         SYSTEM
  102.       
  103.     END SUB
  104.  
  105.