mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-01-23 10:59:55 +00:00
27 lines
447 B
Brainfuck
27 lines
447 B
Brainfuck
main $(
|
|
extrn read, write;
|
|
auto i, c, state, line 100;
|
|
|
|
loop:
|
|
state = i = 0;
|
|
loop1:
|
|
c = read();
|
|
if(c==4) return;
|
|
if(c==';' & state==0) state = 2;
|
|
if((c<'0' ^ c>'9'&c<'a' ^ c>'z') & state==0) state = 1;
|
|
line[i] = c;
|
|
i = i+1;
|
|
if(c!=012) goto loop1;
|
|
if(state==2 ^ i==1) goto noi;
|
|
write(' ');
|
|
write(' ');
|
|
noi:
|
|
i = 0;
|
|
loop3:
|
|
c = line[i];
|
|
write(c);
|
|
i = i+1;
|
|
if(c!=012) goto loop3;
|
|
goto loop;
|
|
$)
|