'{$STAMP BS2}
Heading  VAR Byte

  PAUSE 200
  SEROUT 5,188+$8000,[0]

DO
  SEROUT 5,32+$8000,["!CM0?"]
  SERIN  5,32+$8000,[Heading]
  DEBUG  ? Heading
  PAUSE  200

LOOP