.( testgraph - simple graphic test) : testgraph 10 40 10 40 screen FF 0 0 calccol boxf 50 80 50 80 screen 0 FF 0 calccol boxf 90 C0 10 40 screen 0 0 FF calccol boxf ; .( testmouse - simple mouse test) var tmp1 var tmp2 var tmpc : testmouse 50 tmp1 ! 50 tmp2 ! until kb@ if done then mouse@ dup 0 = if [ FF FF FF calccol ] tmpc ! then dup 1 = if [ 00 FF FF calccol ] tmpc ! then dup 2 = if [ FF 00 FF calccol ] tmpc ! then 3 = if [ FF FF 00 calccol ] tmpc ! then tmp2 @ + tmp2 ! tmp1 @ + tmp1 ! 10 tmp1 @ 26F bound tmp1 ! 10 tmp2 @ 1CF bound tmp2 ! tmp1 @ dup 5 + tmp2 @ dup 5 + screen tmpc @ boxf update loop ; rh tmp1 rh tmp2 rh tmpc