isbpl/errorstream.isbpl

9 lines
147 B
Text

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