Ralf Reköndt wrote:
Dilwyn Jones wrote:
Does anyone know of an extension to BASIC similar to PAUSE n which
does not return if a key is pressed. That is, a fixed pause.
Or anyone know how or ideas on how best to go about writing one? I
guess a suitable keyword name might be WAIT (just to get this
started - it wasn't listed in Rich Mellor's BASIC reference manual
anyway!)
I considered using job suspensions, but wasn't sure if this would
work
the same on all systems - I want to introduce short timings which
are
consistent on all systems and aren't affected by keypresses, so
the
game can run at a vaguely consistent speed on all systems.
Dilwyn Jones
S_Edit contains a command "EXT7" ("PAUSI" in "clear") in
"keyrow_asm",
which does what you want.
Cheers...Ralf
Ok, to short to examine...
PAUSI ticks_to suspend_job
pausi
vector ca.gtint,a2
subq.w #1,d3
bne quit
move.w 0(a6,a1.l),d3
addq.l #2,bv_rip(a6)
moveq #-1,d1
suba.l a1,a1
qdosmt mt.susjb
rts
Cheers...Ralf
NB: Sorry for old MAC_INC ;-))
Thank you Ralf.
I'll have a go at this later tonight.
Simpler than I thought!
Dilwyn Jones
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
