Commodore 64 BASIC v2 example code 15(1.2kB)

10 PTR=49152:FOR A=0 TO 139:READ X,Y 20 POKE PTR+X,Y:NEXT A:POKE 198,0 30 WAIT 198,1:PRINT CHR$(147):END 40 DATA 40,0,41,0,64,35,43,231,64,67 50 DATA 64,40,65,41,43,164,65,123 60 DATA 44,47,65,123,43,89,64,35 70 DATA 43,125,64,35,43,224,64,65 80 DATA 64,61,64,67,64,40,65,41 90 DATA 44,133,65,125,65,125,64,35 100 DATA 43,224,64,66,64,61,64,67 ... https://www.youtube.com/watch?v=SQliT4YOPfE