home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / XTNOPAUS.XTS < prev    next >
Encoding:
Text File  |  1990-03-06  |  628 b   |  29 lines
  1.  
  2. /*
  3.  
  4.     Procedure NOPAUSE:  Opens a centered window, displays a message,
  5.                 keeps going.
  6.  
  7.     NOPAUSE "Connecting at 1200 baud...", window
  8.  
  9.     Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
  10.     All rights reserved
  11.     For Crosstalk Mk. 4, Ver 2.0 - 10-19-89 by Sheldon T. Hall
  12.  
  13. */
  14.  
  15. include XTCTRWIN            --    Uses CENTER_WINDOW
  16.  
  17. proc NOPAUSE takes string MESSAGE, integer WINCHAN
  18.  
  19.     width = length(MESSAGE) - (count(MESSAGE,chr(1)) * 2) + 2
  20.  
  21.     Winshade = wincolor(0,-1,27) -- Same as Alt-E popup window
  22.  
  23.     CENTER_WINDOW '', WINCHAN, 3, WIDTH, WINSHADE
  24.  
  25.     print #WINCHAN, at 1,1, MESSAGE;
  26.  
  27. endProc
  28.  
  29.