go dat
sw user sem7
de-sy a b
get
go p-3
s-a-v 1 x(b) 0 1 .01
s-c t=1000
c-e
step n
po
s-d-a x x(b)
en t gh
Gm Hm

s-d-a y gh

s-l d
pl
SCREEN
set-interactive