Research PDP7 development

[unix-history] / ind.b

diff --git a/ind.b b/ind.b
new file mode 100644 (file)
index 0000000..6b615de
--- /dev/null
+++ b/ind.b
@@ -0,0 +1,26 @@
+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;
+$)