home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / baswind8.zip / TITLE.SUB < prev    next >
Text File  |  1990-09-14  |  3KB  |  70 lines
  1. '
  2. '
  3. '******************************************************************************
  4. '                    Function : TITLE                                         *
  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    TITLE(WIN.TITLE$,RETURN.CODE%)                                 STATIC
  24.        DEFINT A-Z                            'make all short interger by default
  25.  
  26.        RETURN.CODE%=0
  27.  
  28.        VIDEO.RETURN.CODE%=0
  29.  
  30.        ATTR%=&h70                            'black on white
  31.  
  32.        ROW%=1
  33.        COL%=1
  34.        MSG$=STRING$(80,220)
  35.        GOSUB CALL.FASTPRT
  36.  
  37.        ROW%=2
  38.        MSG$=STRING$(80," ")
  39.        GOSUB CALL.FASTPRT
  40.  
  41.        ROW%=3
  42.        TB%=40-((LEN(WIN.TITLE$)/2)-.5)
  43.        MSG$=SPACE$(TB%)+WIN.TITLE$+STRING$((80-TB%-LEN(WIN.TITLE$))," ")
  44.        GOSUB CALL.FASTPRT
  45.  
  46.        ROW%=4
  47.        MSG$=STRING$(80," ")
  48.        GOSUB CALL.FASTPRT
  49.  
  50.        ROW%=5
  51.        MSG$=STRING$(80,223)
  52.        GOSUB CALL.FASTPRT
  53.  
  54.        ATTR%=&h01                            'blue on black
  55.  
  56.        ROW%=6
  57.        MSG$=STRING$(80,205)
  58.        GOSUB CALL.FASTPRT
  59.  
  60.        COLOR 7,1
  61.  
  62.        EXIT SUB                              'return to caller
  63.  
  64. '
  65. CALL.FASTPRT:
  66.        CALL FASTPRT(MSG$,ROW%,COL%,ATTR%,VIDEO.RETURN.CODE%)
  67.        RETURN
  68.  
  69. END SUB
  70.