home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / MENUGEN.ZIP / FMESS.PRG < prev    next >
Text File  |  1986-11-18  |  297b  |  16 lines
  1.    PARA r1
  2.    l1=LEN(r1)
  3.    IF l1#0
  4.       r2=SPAC(80)
  5.       r2=STUF(r2,(40-l1/2),l1,r1)
  6.       ans=INKE()
  7.       DO WHIL ans=0
  8.          SET COLO TO gr/r
  9.          @24,0 SAY r2
  10.          ans=INKE()
  11.          SET COLO TO gr/b
  12.          @24,0 SAY r2
  13.       ENDD
  14.       SET COLO TO gr
  15.    ENDI
  16.