Re: [ql-users] QL S*Basic : Time wait routine.

[Stephen Meech]

----- Original Message ----- From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, May 29, 2003 11:18 PM Subject: Re: [ql-users] QL S*Basic : Time wait routine. What - PAUSE 50 does not wait a second on QPC2??  It does over here - ie. wait 50 frames or until a key is pressed. Methinks you need one of Simon Goodwin's timers out of DIY Toolkit - if I can find them, I will send them across direct.... Thanks for forwarding the files.   Not going to help, I'm afraid.  Simon's TIMER_FRAMES_BAS indicates that QL2K has a frame-rate of about 24 here. It should be 50!   I've "improved" upon FT_BAS as follows:   100 CLS 110 INPUT "Number of seconds? ";d 120 PRINT 'Wait ';d;' seconds for -f test' 130 t=DATE 140 REPeat l:IF DATE<>t THEN EXIT l 150 t=DATE:PAUSE d*50:e=DATE-t 160 PRINT 'Delay should be ';d;' seconds' 170 PRINT 'Actual delay is ';e;' seconds' 180 PRINT 'Multiply -f by ';d/e so that it waits for a new DATE increment before starting to count and allows durations beyond the original 60 seconds for greater accuracy.   Stephen   --- -- Outgoing mail is probably Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.484 / Virus Database: 282 - Release Date: 27/05/2003