Ralf Reköndt wrote:
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 ;-))
Sorry for double post, the server seems to e too slow ;-))
OK, "quit" simply means an "rts".
Cheers...Ralf
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
