home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / MENUGEN.ZIP / WAIT.PRG < prev   
Text File  |  1986-11-18  |  153b  |  9 lines
  1.    PARA r1
  2.    r2='WAIT  '+r1
  3.    l1=LEN(r2)
  4.    r1=SPAC(80)
  5.    r1=STUF(r1,(40-l1/2),l1,r2)
  6.    SET COLO TO r/gr*
  7.    @24,0 SAY r1
  8.    SET COLO TO gr
  9.