0 READA,B:FORC=0TO12:FORD=ATOA+C:POKE6^4+D,42:NEXT:A=A+B-41:NEXT:IFBGOTO:DATA-8,81,,80,632,1,640,