isbpl/errorstream.isbpl

10 lines
157 B
Text

native eputchar
func eputs {
def str _array =str
def i 1 neg =i
while { ( i 1 + =i ) ( i str alen lt ) } {
str i aget eputchar
}
}