home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / WNDTOOL5.ZIP / ROW25.SUB < prev    next >
Text File  |  1989-04-26  |  3KB  |  62 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. '============================================================================
  27. '
  28. SUB    ROW25(MSG$)                                                    STATIC
  29.  
  30.        DEFINT A-Z                             'make all short integer by default
  31.  
  32.        DAT$=STRING$(80," ")                   'initialize to spaces
  33.        ROW%=25                                'put them on line 25
  34.        COL%=1                                 'starting in column 1
  35.        ATTR%=&H19                             'use high white on blue
  36.  
  37.        CALL FASTPRT(DAT$,ROW%,COL%,ATTR%)     'direct memory i/o wont cause line feed
  38.  
  39.        DAT$=""                                'free string space used
  40.  
  41.        IF MSG$="" THEN                        'any message to display on row 25?
  42.            EXIT SUB                           'no (in effect just force line 25 clear)
  43.        END IF
  44. '
  45. 'split the message in half
  46. '
  47.        LOCATE 25,((40-(LEN(MSG$)/2))-.5)-3
  48.  
  49.        COLOR 31,1
  50.        PRINT CHR$(15);"  ";
  51.  
  52.        COLOR 15,1
  53.        PRINT MSG$;"  ";
  54.  
  55.        COLOR 31,1
  56.        PRINT CHR$(15);
  57.  
  58.        COLOR 7,1
  59.  
  60.        EXIT SUB                               'return to caller
  61. END SUB
  62.