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