home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / wpca / windo.sc < prev    next >
Encoding:
Text File  |  1989-05-25  |  1.0 KB  |  50 lines
  1. PROC MKWINDO(r,c,vert,cobor,comsg,msg1,msg2)
  2.  PRIVATE horiz,x
  3.  CURSOR OFF
  4.  IF LEN(msg1) > LEN(msg2) THEN
  5.   horiz = LEN(msg1)+6
  6.  ELSE
  7.   horiz = LEN(msg2)+6
  8.  ENDIF
  9.  IF c + horiz > 80 THEN
  10.   QUIT "MKWINDO() has encountered message too long to fit in message window"
  11.  ENDIF
  12.  IF TYPE(comsg) = "N" THEN
  13.   IF INT(comsg/16) = MOD(comsg,16) THEN
  14.    comsg = comsg + 1
  15.   ENDIF
  16.  ENDIF
  17.  IF vert < 4 THEN
  18.   vert = 4
  19.  ENDIF
  20.  IF MOD(vert,2) = 0 AND ISBLANK(msg2) THEN
  21.   vert = vert - 1
  22.  ENDIF
  23.  IF MOD(vert,2) = 1 AND NOT ISBLANK(msg2) THEN
  24.   vert = vert - 1
  25.  ENDIF
  26.  IF TYPE(cobor) = "N" THEN
  27.   STYLE ATTRIBUTE cobor
  28.  ELSE
  29.   EXECUTE "STYLE " + cobor
  30.  ENDIF
  31.  FOR x FROM r TO r+vert-1
  32.   @ x,c ?? SPACES(horiz)
  33.  ENDFOR
  34.  IF TYPE(comsg) = "N" THEN
  35.   STYLE ATTRIBUTE comsg
  36.  ELSE
  37.   EXECUTE "STYLE " + comsg
  38.  ENDIF
  39.  FOR x FROM r+1 TO r+vert-2
  40.   @ x,c+2 ?? SPACES(horiz-4)
  41.  ENDFOR
  42.  IF NOT ISBLANK(msg2) THEN
  43.   @ r+vert-1-vert/2,c+3 ?? msg1
  44.   @ row()+1,c+3 ?? msg2
  45.  ELSE
  46.   @ r+vert-1-INT(vert/2),c+3 ?? msg1
  47.  ENDIF
  48. ENDPROC
  49.  
  50.