10 A=64 20 GOTO 240 30 POKE 530,1 40 POKE 57088,127 50 K=PEEK(57088) 60 IF K=127 THEN A=148 70 IF K=191 THEN A=149 80 IF K=223 THEN A=219 90 IF K=239 THEN A=210 100 IF K=247 THEN A=43 110 IF K=251 THEN A=46 120 IF K=253 THEN A=171 130 POKE 57088,191 140 K=PEEK(57088) 150 IF K=127 THEN A=170 160 IF K=191 THEN A=187 170 IF K=223 THEN A=161 180 IF K=239 THEN 500 190 IF K=247 THEN 310 200 IF K=251 THEN A=32 210 POKE 530,0 220 IF A=255 THEN 30 230 IF A=B THEN 30 240 B=A 250 FOR S=53248 TO 54271 260 POKE S,A 270 NEXT S 280 GOTO 30 310 FOR X=0 TO 15 320 B=48+X 330 IF X>9 THEN 380 340 POKE 53263+32*X,B 350 POKE 54256-32*X,B 360 POKE 53728+X,B 370 POKE 53791-X,B 380 POKE 53248+33*X,210 390 POKE 54271-33*X,208 400 POKE 53279+31*X,207 410 POKE 54240-31*X,209 420 NEXT X 430 A=255 440 GOTO 30 500 RESTORE:FOR X=1 TO 20 510 READ AD 520 READ DA 530 POKE AD,DA 540 NEXT X 542 A=255:B=255 545 GOTO 30 550 DATA 53648,131,53647,131,53872,132,53871,132 560 DATA 53649,198,53646,196,53873,195,53870,197 570 DATA 53682,190,53842,189,53837,190,53677,189 580 DATA 53715,200,53811,202,53804,199,53708,201 590 DATA 53747,139,53779,139,53740,140,53772,140 OK