23 lines
449 B
Text
23 lines
449 B
Text
|
"#stream.isbpl" include
|
||
|
|
|
||
|
|
func main {
|
||
|
|
pop
|
||
|
|
def id "helloworld.isbpl" STREAM.create.file.out stream =id
|
||
|
|
def s "func main {\n \"Hello World!\\n\" puts\n 0\n}" _array =s
|
||
|
|
|
||
|
|
def i 0 =i
|
||
|
|
while { i s alen lt } {
|
||
|
|
( s i aget ) id STREAM.write stream
|
||
|
|
i inc
|
||
|
|
}
|
||
|
|
|
||
|
|
id STREAM.close stream
|
||
|
|
|
||
|
|
"Testing: \n" struppercase puts
|
||
|
|
"helloworld.isbpl" include
|
||
|
|
main pop
|
||
|
|
"TEST DONE\n" strlowercase puts
|
||
|
|
|
||
|
|
0
|
||
|
|
}
|