10 poke53265,peek(53265)and247
20 printchr$(147)
30 forx=1to24:printchr$(17);:next
40 poke53265,(peek(53265)and248)+7:print
50 print"     hello";
60 forp=6to0step-1
70 poke53265,(peek(53265)and248)+p
80 forx=1to50:next
90 next:goto40
run