5748209 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n timtes.bas
   1: DECLARE SUB SLEEPA (T!)
   2: CLS
   3: c = 1
   4: BigNM = 50
   5: 1
   6: a = TIMER
   7: SLEEPA .5
   8: b = TIMER
   9: LOCATE c + 0, 1: PRINT " "; b
  10: LOCATE c + 1, 1: PRINT "-"; a
  11: LOCATE c + 2, 1: PRINT "컴컴컴컴컴�"
  12: LOCATE c + 3, 1: PRINT b - a; "                    "
  13: LOCATE c + 4, 1: PRINT "Off by "; ABS(CDBL(b - a - .5)); "         "
  14: LOCATE c + 5, 1: PRINT "Heighest Offset: "; HiF#
  15: f# = CDBL(b - a - .5)
  16: IF ABS(f#) > HiF# THEN HiF# = ABS(f#)
  17: nm = nm + 1
  18: IF INKEY$ = "" = 0 OR nm = BigNM THEN  ELSE GOTO 1
  19: LOCATE c + 5, 1: PRINT "Heighest Offset: "; HiF#
  20: 
  21: SUB SLEEPA (T)
  22: a = TIMER + T - .05
  23: 9 IF TIMER > a THEN GOTO 10 ELSE GOTO 9
  24: 10 END SUB
  25:
5748210 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:10:10