9610 S=54272:RESTORE:FORI=0TO24:READQ:POKEI+S,Q:NEXT
9620 DATA142,6,0,0,33,15,255,125,6,0,0,33,15,255,88,3,0,0,33,15,255,0,0,240,15
9630 FORI=4TO18STEP7:POKES+I,0:NEXT
9640 FORI=4TO18STEP7:POKES+I,33:NEXT