home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
optmen.zip
/
LSCRTOP.PRG
< prev
next >
Wrap
Text File
|
1987-02-22
|
559b
|
26 lines
*
*
* Display standard title bar at top of screen
*
* Global variables - sday, stitle, sdate, sver
*
* by George Matthews - modified by Anthony T. DeHart - GENIE (ATDEHART)
Parameters mtitle
CLEAR
@ 1,0 TO 1,79 DOUBLE
@ 2,2 SAY sday
@ 3,(80 - LEN(stitle))/2 SAY stitle
@ 4,2 SAY sdate
@ 4,(79 - len(sver)) say sver
@ 5,0 TO 5,79 DOUBLE
STORE INT(LEN(mtitle)) TO msize
STORE (((80 - msize)/2) - 2) TO mstart
STORE ((msize + mstart) + 4) TO mstop
@ 5,mstart TO 7,mstop DOUBLE
@ 6,(80 - LEN(mtitle))/2 SAY mtitle
RETURN
* EOF lscrtop