home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbasic_1 / on_timer.bas < prev    next >
BASIC Source File  |  1992-06-28  |  211b  |  17 lines
  1. ON TIMER(1) GOSUB TimeUpdate
  2. TIMER ON
  3. CLS
  4. PRINT "Time: "; TIME$
  5. StartTime = TIMER
  6. WHILE TimePast < 3
  7. TimePast = TIMER - StartTime
  8. WEND
  9. END
  10.  
  11.  
  12.  
  13. TimeUpdate:
  14.     LOCATE 1, 7: PRINT TIME$
  15.     RETURN
  16.  
  17.