5800 X=RESPR(450) : LBYTES flp1_SET_CODE,X : CALL X