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