home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / MENUGEN.ZIP / BMESS.PRG next >
Text File  |  1986-11-18  |  231b  |  13 lines
  1.    PARA r1,r2
  2.    IF LEN(r1)#0
  3.       @23,(39-LEN(r1)/2) SAY r1
  4.    ENDI
  5.    l2=LEN(r2)
  6.    IF l2#0
  7.       r3=SPAC(80)
  8.       r3=STUF(r3,(40-l2/2),l2,r2)
  9.       SET COLO TO gr/r
  10.       @24,0 SAY r3
  11.       SET COLO TO gr
  12.    ENDI
  13.