Copy stdin to stdout: Difference between revisions
add freebasic
No edit summary |
(add freebasic) |
||
Line 111:
{{works with|gforth|0.7.3}}
<lang forth>stdin slurp-fid type bye</lang>
=={{header|FreeBASIC}}==
<lang freebasic>#define FIN 255 'eof is already a reserved word
#include "crt/stdio.bi" 'provides the C functions getchar and putchar
dim as ubyte char
do
char = getchar()
if char = FIN then exit do else putchar(char)
loop</lang>
=={{header|Frink}}==
| |||