tst.ocm 373 B

123456789101112131415161718192021222324
  1. #include <dec.ocm>
  2. #include <prints.ocm>
  3. var fmt[byte 100]:
  4. var d, c:
  5. seq
  6. input ? c
  7. decin(input, d, c)
  8. while c<>EOF
  9. seq
  10. chan link:
  11. par
  12. printd(link, "XXXX %%%ds XXXXX*#00", d)
  13. var c, i:
  14. seq
  15. i:=0
  16. link ? c
  17. while c<>0
  18. seq
  19. i:=i+1
  20. fmt[byte i]:=c
  21. link ? c
  22. prints("XXXX %s XXXXX", "YYYYY")
  23. decin(input, d, c)