home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / CLOCK.SCR < prev    next >
Text File  |  1991-11-22  |  226b  |  14 lines

  1. > windowpos(0,0)
  2. > windowtitle('Time')
  3. > windowsize(24,14)
  4. > windowprms(OFF,0,0)
  5. > watch(OFF,ON,0)
  6. > windowshow()
  7. > timeout = 1
  8. > loop:
  9. > message('   ' + time + '   ')
  10. > if (wait() != 0)
  11. > end
  12. > endif
  13. > goto loop
  14.