X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fsrc%2Fpascal%2FKNOBEL.PS;fp=sw%2Fsrc%2Fpascal%2FKNOBEL.PS;h=fec72c1797fcf3371c2f6ecd627b081935c19fac;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/src/pascal/KNOBEL.PS b/sw/src/pascal/KNOBEL.PS
new file mode 100644
index 0000000..fec72c1
--- /dev/null
+++ b/sw/src/pascal/KNOBEL.PS
@@ -0,0 +1,30 @@
+PROGRAM KNOBELEI(OUTPUT);
+
+   CONST MAX=80;
+
+   VAR   A, B, I, J, Z: INTEGER;
+         ZEILE, NEU: ARRAY[1..MAX] OF INTEGER;
+
+BEGIN
+   ZEILE[1] := 1;  ZEILE[2] := 0;
+   WRITELN("1");
+
+   REPEAT  (******* ZEILE *******)
+      A := ZEILE[1];   I := 1;   J := 1;
+      REPEAT  (******* GRUPPE *******)
+         Z := 0;
+         REPEAT  (******* ZIFFER *******)
+            Z := Z + 1;
+            I := I + 1;   B := ZEILE[I]
+         UNTIL A<>B;
+         NEU[J] := Z;   NEU[J+1] := A;   J := J + 2;
+         A := B
+      UNTIL B=0;
+      ZEILE[J] := 0;
+      FOR I := 1 TO J-1 DO BEGIN
+                           ZEILE[I] := NEU[I];
+                           WRITE( ZEILE[I] :1 )
+                           END;
+      WRITELN
+   UNTIL J>MAX
+END.