25 lines
373 B
Plaintext
25 lines
373 B
Plaintext
#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)
|