let>psoftBusyX=1871
let>psoftBusyY=182

SRT>waitPSoftReady
  wait>.2
  GetPixelColor>psoftBusyX,psoftBusyY,color
  while>color<>16777215
    GetPixelColor>psoftBusyX,psoftBusyY,color
    wait>.05
  endwhile
END>waitPSoftReady