RosettaCodeData/Task/Copy-stdin-to-stdout/VBScript/copy-stdin-to-stdout.vb

5 lines
88 B
VB.net

do
s=wscript.stdin.readline
wscript.stdout.writeline s
loop until asc(left(s,1))=26