popenout2.bas

来自「由一个古老的BASIC解释器改进而成, 保留了ANSI C固有的艺术美感.」· BAS 代码 · 共 8 行

10 print "Probando"
20 if osfamily$ = "windows" then co$= "find" else co$= "grep"
30 popen co$ + " ""PRINT"" > t.txt" for output as 1
40 list #1
50 close 1
60 print "Fin."
70 end