RosettaCodeData/Task/Copy-stdin-to-stdout/VBScript/copy-stdin-to-stdout.vb
2023-07-01 13:44:08 -04:00

4 lines
88 B
VB.net

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