home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 04 / grdlage / timedemo.bas < prev   
Encoding:
BASIC Source File  |  1989-01-18  |  589 b   |  23 lines
  1. '* ------------------------------------------------------- *
  2. '*                  TIMEDEMO.BAS                           *
  3. '*  Listing 2: Permanente Zeitanzeige...                   *
  4. '* ------------------------------------------------------- *
  5. CLS : INPUT "Zeit: "; Q$ : IF Q$<>"" THEN TIME$ = Q$
  6. CLS
  7. TIMER ON : ON TIMER(1) GOSUB time
  8.  
  9. FOR I = 1 TO 10000
  10.   LOCATE 12,37
  11.   PRINT I
  12. NEXT I
  13. LOCATE 12,37
  14. PRINT "Ende"
  15. END
  16.  
  17. time:
  18.   ZE% = CSRLIN : SP% = POS(0)
  19.   LOCATE 1,72
  20.   PRINT TIME$
  21.   LOCATE ZE%,SP%
  22. RETURN
  23. '* ------------------------------------------------------- *