10 PRINT "TYPE A POSITIVE INTEGER"›20 PRINT "RANGING FROM 0 TO 65,535"›30 INPUT X›40 LET HIBYTE=INT(X/256)›50 LET LOBYTE=X-HIBYTE*256›60 POKE 1536,LOBYTE›70 POKE 1537,HIBYTE›80 END››