Lee Privett wrote:
> Something like
>
> 10 FOR F = 1 TO 25
> 20 PRINT CHR$(31);
> 25 A$ = INKEY$ : do something else with this (stops me
> using the Pause command so
)
> 30 DELAY (100)
> 40 END FOR F
>
> DELAY 100 gives a 100 millisecond delay
DEFine PROCedure DELAY(ms)
BEEP ms * 1000 / 72, 0
REPeat
IF NOT BEEPING THEN EXIT
END REPeat
END DEFine
Kidding, of course. I mean, it should work but would probably be
pretty annoying ;-)
Apart from that I think the only halfway decent time source is the
50Hz interrupt, but I'm not sure how to best utilize it from Basic.
I usually need a small assembler part to do it, but perhaps there's a
better way.
Marcel
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
