home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / PAUSE.UTL < prev    next >
Encoding:
Text File  |  1997-07-08  |  114 b   |  8 lines
  1. procedure pause(uu$)
  2.    print uu$;
  3.    loop
  4.       uu$=key$
  5.       while len%(uu$)=0
  6.       endloop
  7.    endproc
  8.