home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
168.img
/
XTMK42-2.ZIP
/
XTCTRWIN.XTS
< prev
next >
Wrap
Text File
|
1990-03-06
|
683b
|
29 lines
/*
Procedure CENTER_WINDOW: Open a new window, centered on the screen.
Includes title insertion and color.
CENTER_WINDOW, "Test Window", chan, height, width, color
Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
All rights reserved
For Crosstalk Mk. 4, Ver 2.0 - 01-19-90 by Sheldon T. Hall
*/
proc CENTER_WINDOW takes string BLURB, integer WINCHAN, HEIGHT, WIDTH, WINSHADE
B = " " + BLURB + " "
h = HEIGHT min 1
w = WIDTH min 1
r = screenheight\2
c = screenwidth\2
window WINCHAN, at (r-(h/2)) min 0, (c-(w/2)) min 0, size h, w, ...
color WINSHADE, border 3
if not null(BLURB) then title #WINCHAN, B
endproc