100 PRINTCHR$(147);CHR$(144)
110 FORAD=704TO766:READDA:POKEAD,DA:NEXT: REM SPRITE
120 FORAD=49152TO49251:READDA:POKEAD,DA:    CS=CS+DA:NEXT:REM M-L PROGRAM
130 IFCS<>11879THENPRINT"ERROR IN DATA STATEMENTS":END
140 PRINT"ENTER SYS 49152 TO ACTIVATE SPRITE-BAR"
1000 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1001 DATA0,0,0,0,0,85,85,85,85,85,85,85,85,85
1002 DATA85,85,85,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1003 DATA0,0,0,0,0,0,0,0,0,0,0,0,169
2000 DATA11,160,7,153,247,7,136,208,250,169,24,160,0,24,153,0,208,105,48
2001 DATA200,200,144,247,169,96,141,16,208,169,8,141,10,208,169,56,141,12
2002 DATA208,169,127,141,28,208,141,27,208,141,29,208,141,23,208,141,21
2003 DATA208,169,1,141,37,208,120,169,74,160,192,141,20,3,140,21,3,88,96
2004 DATA24,173,134,2,141,38,208,165,214,10,10,10,105,34,160,14,153,255
2005 DATA207,136,136,208,249,76,49,234