'===========================================================================
' Subject: PRECISE DELAY                      Date: 05-20-97 (15:00)       
'  Author: Nick Kochakian                     Code: QB, QBasic, PDS        
'  Origin: NickK@worldnet.att.net           Packet: DATETIME.ABC
'===========================================================================
DECLARE SUB halfpause ()
DECLARE SUB secpause ()
DECLARE SUB initdelay ()
'Good delay
'
'5/20/97 By: - Nick Kochakian -
'
'This program should help programmers out alot by making delays (or pauses)
'ALOT more accurate! I hope most of you will use this code in your games,
'demos, etc.
'
'If you have any comments or questions e-mail me at: nickk@worldnet.att.net

DIM SHARED cpusec
DIM SHARED ok$

CALL initdelay
'CALL secpause 'Pause for a second
'CALL halfpause 'Pause for a half of a second

END

'You have to add these 3 lines of code for the delay init to work
ok:
ok$ = "ok"
RETURN

SUB halfpause
'Pause for a half of a second

cntend = cpusec * .5
cnt = 0
DO
cnt = cnt + 1
LOOP UNTIL cnt >= cntend
END SUB

SUB initdelay
'Init the delay

ok$ = ""

TIMER ON
ON TIMER(1) GOSUB ok:
cpusec = 0
DO
cpusec = cpusec + 1
LOOP UNTIL ok$ = "ok"

END SUB

SUB secpause
'Pause for a second

cnt = 0
DO
cnt = cnt + 1
LOOP UNTIL cnt >= cpusec

END SUB