8 lines
217 B
Text
8 lines
217 B
Text
|
#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
|