10 PTR=49152
20 FOR A=0 TO 61
30 READ X,Y: POKE PTR+X,Y
40 NEXT X
50 POKE 198,0: WAIT 198,1
60 PRINT CHR$(147):END
70 DATA 40,0,41,0,44,194
80 DATA 65,123,44,137
90 DATA 65,123,64,122
100 DATA 64,42,64,57,64,45
...
https://www.youtube.com/watch?v=psL4liPjB58