3765 IF PEEK(6)<>128 THEN FOR i=1 TO 5:READ a:POKE a,&26:POKE a+1,&B7:NEXT:DATA 35462,35597,35740,35885,36072