Marcel Kilgus wrote:
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
I suppose you could cut the wire to the speaker (or turn the PC
speaker off) ;-)
He he, typically Marcel ingenious thinking, though!
Dilwyn Jones
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm