100 PROGRAM "PYX.bas"
  110 ALLOCATE 50
  120 CODE SR=HEX$("0,2A,F4,BF,E5,21")
  130 CODE EY=HEX$("0,0,6,4,B7,CB,15,CB,14,10,FA,C1,9,1,4,0,9,5E,23,56,D5,E1,1")
  140 CODE EX=HEX$("0,0,9,B7,11,1,40")
  150 CODE EA=HEX$("ED,52,36,41,C9,0")
  160 DEF PYX(PY,PX,CH)
  170   POKE EY,PY:POKE EX,PX:POKE EA+3,CH
  180   CALL USR(SR,0)
  190 END DEF