home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
baswind8.zip
/
TITLE.SUB
< prev
next >
Wrap
Text File
|
1990-09-14
|
3KB
|
70 lines
'
'
'******************************************************************************
' Function : TITLE *
' *
' Purpose: *
' *
' *
' Results: *
' *
' Usage : *
' *
' *
' Date Written : 09/01/90 - Date Tested: 09/01/90 - Author: James P Morgan *
' Date Modified: - : - : *
'-----------------------------------------------------------------------------*
' NOTE: *
'******************************************************************************
' *
' SUB PROGRAM NAME (PARAMETERS) STATIC/RECURSIVE *
'-----------------------------------------------------------------------------*
' *
SUB TITLE(WIN.TITLE$,RETURN.CODE%) STATIC
DEFINT A-Z 'make all short interger by default
RETURN.CODE%=0
VIDEO.RETURN.CODE%=0
ATTR%=&h70 'black on white
ROW%=1
COL%=1
MSG$=STRING$(80,220)
GOSUB CALL.FASTPRT
ROW%=2
MSG$=STRING$(80," ")
GOSUB CALL.FASTPRT
ROW%=3
TB%=40-((LEN(WIN.TITLE$)/2)-.5)
MSG$=SPACE$(TB%)+WIN.TITLE$+STRING$((80-TB%-LEN(WIN.TITLE$))," ")
GOSUB CALL.FASTPRT
ROW%=4
MSG$=STRING$(80," ")
GOSUB CALL.FASTPRT
ROW%=5
MSG$=STRING$(80,223)
GOSUB CALL.FASTPRT
ATTR%=&h01 'blue on black
ROW%=6
MSG$=STRING$(80,205)
GOSUB CALL.FASTPRT
COLOR 7,1
EXIT SUB 'return to caller
'
CALL.FASTPRT:
CALL FASTPRT(MSG$,ROW%,COL%,ATTR%,VIDEO.RETURN.CODE%)
RETURN
END SUB