width 80,25
console 0,25,0,0


100 clear 300,&hbfff
110 width 80,25:console 0,25,0,1:color 7,0,1

200 out &h51,&h0
210 out &h68,&h80
220 out &h64,&h90:out &h64,&hc8
230 out &h65,&h6f:out &h65,&h97
240 out &h68,&hc4
250 out &h51,&h20

300 l$="l"+chr$(13)+chr$(2)+chr$(0)
310 l=varptr(l$)+1

320 poke &hedc0,peek(l):poke &hedc1,peek(l+1):poke &hea68,255
330 mon
340 poke &hea68,0

400 printchr$(12);

500 i=inp(9)
510 if (i=191 or i=223) then 320
520 if i=253 then 600
530 goto 500

600 width 40
610 end