aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Mouse-position/EasyLang/mouse-position.easy
View file

@ -1,6 +1,5 @@
move 10 80
on mouse_move
clear
gclear
drawgrid
text mouse_x & " " & mouse_y
gtext 12 82 mouse_x & " " & mouse_y
.

39
Task/Mouse-position/Uxntal/mouse-position.uxnatl
View file

@ -1,27 +1,24 @@
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2
%<space> { [ LIT2 20 -Console/write ] DEO }
%<newline> { [ LIT2 0a -Console/write ] DEO }
|10 @Console/vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|90 @Mouse/vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2
|0100
;on-mouse .Mouse/vector DEO2
BRK
BRK
@on-mouse
.Mouse/x DEI2 print-hex2
#20 .Console/write DEO
.Mouse/y DEI2 print-hex2
#0a .Console/write DEO
BRK
.Mouse/x DEI2 <phex>
<space>
.Mouse/y DEI2 <phex>
<newline>
BRK
@print-hex
DUP #04 SFT print-digit #0f AND print-digit
JMP2r
@print-hex2
SWP print-hex print-hex
JMP2r
@print-digit
DUP #09 GTH #27 MUL ADD #30 ADD .Console/write DEO
JMP2r
@<phex> ( short* -: )
SWP /b
&b ( byte -: )
DUP #04 SFT /c
&c ( byte -: )
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
JMP2r