home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / interpre / tsrbasic / clock.bas < prev    next >
Encoding:
BASIC Source File  |  1991-04-03  |  167 b   |  6 lines
  1. 100 print "Press ctrl-shift-b to terminate clock."
  2. 110 suspend 0, 0x30, 0x06, 18, 0, timer
  3. 120 if not timer then cls : end
  4. 130 display 0, 72, time()
  5. 140 goto 110
  6.