ack/lang/occam/test/key.ocm

15 lines
155 B
Plaintext
Raw Permalink Normal View History

1987-02-25 17:14:10 +00:00
#include "dec.ocm"
var ch:
seq
output ! RAW
input ? ch
seq i=[0 for 10]
seq
decout(output, ch, 0)
output ! '*n'
input ? ch
output ! TEXT