1S=12348:C=42:forY=0to520step40:pokeS+Y,C:readL:forX=0toL:pokeS+Y+X,C
2pokeS+Y-X,C:next:next:DATA0,1,2,3,1,3,5,7,2,5,8,11,1,1
