Anonymous

alias Hello-World {
  /window -pkod +t @. -1 -1 80 100
  /set %w @.
  /clear @.
  /wintst
  /set %. $1- 
}
alias -l wintst {
  ;-------halt if $null-------
  if (!$window(%w)) halt 
  ;-------clear---------------
  else {
    /clear %w
    ;-------draw background-----
    /drawrect -f %w 1 1 0 0 76 101
    ;-------line.1--------------
    .timer -m 1 100 /drawline %w 3 1 10 20 10 60 
    .timer -m 1 150 /drawline %w 3 1 10 20 15 10 
    .timer -m 1 200 /drawline %w 3 1 15 10 15 50 
    .timer -m 1 250 /drawline %w 3 1 15 50 10 60   
    ;-------line.2--------------
    .timer -m 1 300 /drawline %w 3 1 10 40 30 40 
    .timer -m 1 350 /drawline %w 3 1 10 40 15 30 
    .timer -m 1 400 /drawline %w 3 1 15 30 35 30 
    .timer -m 1 450 /drawline %w 3 1 30 40 35 30
    ;-------line.3--------------
    .timer -m 1 500 /drawline %w 3 1 30 20 30 60 
    .timer -m 1 550 /drawline %w 3 1 30 20 35 10
    .timer -m 1 600 /drawline %w 3 1 35 10 35 50
    .timer -m 1 650 /drawline %w 3 1 35 50 30 60   
    ;-------line.4--------------
    .timer -m 1 700 /drawline %w 3 1 45 40 45 60
    .timer -m 1 750 /drawline %w 3 1 45 40 50 30
    .timer -m 1 800 /drawline %w 3 1 45 60 50 50
    .timer -m 1 850 /drawline %w 3 1 50 50 50 30
    ;-------line.5--------------
    .timer -m 1 900 /drawline %w 3 1 45 20 45 25
    .timer -m 1 950 /drawline %w 3 1 45 20 50 10
    .timer -m 1 1000 /drawline %w 3 1 45 25 50 15
    .timer -m 1 1050 /drawline %w 3 1 50 15 50 10
    ;-------period--------------
    .timer -m 1 1100 /drawdot %w 3 2 55 60 
    ;-------reset---------------
    .timer -m 1 1200 /wintst 
  }
}