5748108 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n module1.bas
   1: ' Module1
   2: Option Explicit
   3: 
   4: Sub subC8 (ByVal p0006 As Single)
   5: Dim l0008 As Single
   6: Dim l000A As Integer
   7:     l0008 = Timer
   8:     Do While Timer - l0008 < p0006
   9:       l000A = DoEvents()
  10:       If  Timer < l0008 Then
  11:          l0008 = l0008 - 24 * 60 * 60
  12:       End If
  13:    Loop
  14: End Sub
5748109 [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:05:08