1 a$="<space><space><space>*<left><left><down>*<space>*<left><left><left><left><down>*<space><space><space>*<left><left><left><left><left><left><down>*<space><space><space><space><space>*
<left><left><left><left><left><left><down>*<space><space><space>*<left><left><left><left><down>*<space>*<left><left><down>*<left><left><left><left>"
2 b$="<up><up><up><up><up><up><up><up><up><up><up><up><up><up><up><up><up><up><right><right><right><right><right><right>"
3 poke53280,.:poke53281,.:print"<clr+home><white><down><down><down>"sp
c(10)a$a$a$b$a$a$a$b$a$a$a$
4 poke648,48:c$="<green><light green><yellow><white><yellow><light green>"
5 a=a+1:ifa>6thena=1
6 printmid$(c$,a,1):goto5:rem648,4