1
0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-11-03 20:04:37 +00:00

Get keypress/getkey working for Apple /// properly

This commit is contained in:
dschmenk 2024-01-09 21:18:34 -08:00
parent dff6c2bd9b
commit d5c22b1ff0

View File

@ -287,18 +287,16 @@ def a3keypressed
byte count
dev_status(cmdsys.devcons, 5, @count)
if count and !a3keyqueue
if count
a3keyqueue = getc
fin
return a3keyqueue | $80
return a3keyqueue ?? a3keyqueue | $80 :: 0
end
def a3getkey
byte keycode
repeat
randnum = randnum + 123
if !a3keyqueue
a3keypressed
fin
a3keypressed
keycode = a3keyqueue
until keycode
a3keyqueue = 0