123456789101112131415161718192021222324 |
- #include <dec.ocm>
- #include <prints.ocm>
- var fmt[byte 100]:
- var d, c:
- seq
- input ? c
- decin(input, d, c)
- while c<>EOF
- seq
- chan link:
- par
- printd(link, "XXXX %%%ds XXXXX*#00", d)
- var c, i:
- seq
- i:=0
- link ? c
- while c<>0
- seq
- i:=i+1
- fmt[byte i]:=c
- link ? c
- prints("XXXX %s XXXXX", "YYYYY")
- decin(input, d, c)
|