home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
RBBS in a Box Volume 1 #3.1
/
RBBSIABOX31.cdr
/
wpca
/
windo.sc
< prev
next >
Wrap
Text File
|
1989-05-25
|
1KB
|
50 lines
PROC MKWINDO(r,c,vert,cobor,comsg,msg1,msg2)
PRIVATE horiz,x
CURSOR OFF
IF LEN(msg1) > LEN(msg2) THEN
horiz = LEN(msg1)+6
ELSE
horiz = LEN(msg2)+6
ENDIF
IF c + horiz > 80 THEN
QUIT "MKWINDO() has encountered message too long to fit in message window"
ENDIF
IF TYPE(comsg) = "N" THEN
IF INT(comsg/16) = MOD(comsg,16) THEN
comsg = comsg + 1
ENDIF
ENDIF
IF vert < 4 THEN
vert = 4
ENDIF
IF MOD(vert,2) = 0 AND ISBLANK(msg2) THEN
vert = vert - 1
ENDIF
IF MOD(vert,2) = 1 AND NOT ISBLANK(msg2) THEN
vert = vert - 1
ENDIF
IF TYPE(cobor) = "N" THEN
STYLE ATTRIBUTE cobor
ELSE
EXECUTE "STYLE " + cobor
ENDIF
FOR x FROM r TO r+vert-1
@ x,c ?? SPACES(horiz)
ENDFOR
IF TYPE(comsg) = "N" THEN
STYLE ATTRIBUTE comsg
ELSE
EXECUTE "STYLE " + comsg
ENDIF
FOR x FROM r+1 TO r+vert-2
@ x,c+2 ?? SPACES(horiz-4)
ENDFOR
IF NOT ISBLANK(msg2) THEN
@ r+vert-1-vert/2,c+3 ?? msg1
@ row()+1,c+3 ?? msg2
ELSE
@ r+vert-1-INT(vert/2),c+3 ?? msg1
ENDIF
ENDPROC