alias Test {
  /window -pkod +t @. -1 -1 75 100
  /clear @.
  /wintst
}
alias -l wintst {
  ;-------clear---------------
  /clear @.
  ;-------draw background-----
  /drawrect -f @. 1 1 0 0 76 101
  ;-------line.1--------------
  .timer -m 1 100 /drawline @. 3 1 10 20 10 60
  .timer -m 1 100 /drawline @. 3 1 10 20 15 10
  .timer -m 1 100 /drawline @. 3 1 15 10 15 50
  .timer -m 1 100 /drawline @. 3 1 15 50 10 60   
  ;-------line.2--------------
  .timer -m 1 250 /drawline @. 3 1 10 40 30 40
  .timer -m 1 250 /drawline @. 3 1 10 40 15 30
  .timer -m 1 250 /drawline @. 3 1 15 30 35 30
  .timer -m 1 250 /drawline @. 3 1 30 40 35 30
  ;-------line.3--------------
  .timer -m 1 400 /drawline @. 3 1 30 20 30 60
  .timer -m 1 400 /drawline @. 3 1 30 20 35 10
  .timer -m 1 400 /drawline @. 3 1 35 10 35 50
  .timer -m 1 400 /drawline @. 3 1 35 50 30 60   
  ;-------line.4--------------
  .timer -m 1 550 /drawline @. 3 1 45 40 45 60
  ;-------line.5--------------
  .timer -m 1 700 /drawline @. 3 1 45 20 45 25
  ;-------period--------------
  .timer -m 1 850 /drawdot @. 3 1 55 63
  ;-------reset---------------
  .timer -m 1 1050 /wintst
}