14 lines
155 B
Text
14 lines
155 B
Text
#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
|