15 lines
155 B
Plaintext
15 lines
155 B
Plaintext
|
#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
|