10 POKE785,64738-INT(64738/256)*256
20 POKE786,INT(64738/256)
30 PRINT USR(0)