key.ocm 155 B

1234567891011121314
  1. #include "dec.ocm"
  2. var ch:
  3. seq
  4. output ! RAW
  5. input ? ch
  6. seq i=[0 for 10]
  7. seq
  8. decout(output, ch, 0)
  9. output ! '*n'
  10. input ? ch
  11. output ! TEXT