diff --git a/gui/wireworld/wireworld.tal b/gui/wireworld/wireworld.tal index c651a72..90406ce 100644 --- a/gui/wireworld/wireworld.tal +++ b/gui/wireworld/wireworld.tal @@ -14,7 +14,7 @@ @color $1 @pointer &x $2 &y $2 - @timer &frame $1 &play $1 + @timer &play $1 ( @|vectors ) @@ -44,13 +44,13 @@ BRK @on-frame ( -> ) + .Mouse/state DEI #00 EQU [ JMP BRK ] .timer/play LDZ [ JMP BRK ] + ( every 4th ) - .timer/frame LDZk + [ LIT &f $1 ] INCk ,&f STR #03 AND ?&no-run - run - &no-run - LDZk INC SWP STZ + run &no-run BRK