home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / TIMER.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-04-19  |  1.3 KB  |  23 lines
  1. 100 '**************************************************************************
  2. 110 '*** Accurate time by Rob Ryan 10-9-82                                    *
  3. 120 '*** Submitted to PCanada by Bob Zakrison on 12 Nov 1982.                 *
  4. 130 '*** Taken form The Source as public domain material.                     *
  5. 140 '*** Times invoked from the system timer to 1/100th of a second.          *
  6. 150 '*** Possibly useful for benchmarking operations.                         *
  7. 160 '**************************************************************************
  8. 170 '
  9. 180 DIM A(&H1F): B=0
  10. 190 FOR I=0 TO &H1E: READ A(I): B=B+A(I): NEXT
  11. 200 READ C: IF B<>C THEN PRINT "Error in data, please check.": END
  12. 210 DEF SEG=&HFE0 :FOR I=0 TO &H1E: POKE I,A(I): NEXT
  13. 220 BSAVE "Timer.rtn",0,&H1E
  14. 230 '*** H%=hours, M%=minutes, S%=seconds, T%=1/100 sec.
  15. 240 ROUT=0: CALL ROUT(H%,M%,S%,T%)
  16. 250 '
  17. 260 '*** USE THE FOLLOWING CODE TO PRINT IF DESIRED (IN OTHER PROGRAMS) ...
  18. 270  S=S%+(T%/100): PRINT USING "The time is: ##:##:##.##"; H%; M%; S
  19. 280 '
  20. 290 DATA &H55,&H8B,&HEC,&HB4,&H2C,&HCD,&H21,&H8B,&H7E,&HC,&H88,&H2D,&H8B
  21. 300 DATA &H7E,&HA,&H88,&HD,&H8B,&H7E,&H8,&H88,&H35,&H8B,&H7E,&H6,&H88,&H15
  22. 310 DATA &H5D,&HCA,&H8,&H0,&HBB5
  23.