'BEGIN' 'COMMENT'
MIKADOSPIELHAUFEN I.,
'REAL' PSI, PI.,
'PROCEDURE' STAB.,
'BEGIN' PSI.=J1.,
LEER(P+2.5+30*COS(PSI),
Q+2.5+30*SIN(PSI)).,
LINE(P+2.5+45*COS(PSI+PI),
Q+2.5+45*SIN(PSI+PI))
'END'.,
PI.=3.14159., JI1.=JS1.,
JA1.=0., JE1.=PI.,
SERIE(5.0,5.0,26,18,STAB)
'END' MIKADOSPIELHAUFEN I.,

PSI = J1(); // JA1=0 … JE1=π
LEER(P+2.5+30*cos(PSI),
     Q+2.5+30*sin(PSI));
LINE(P+2.5+45*cos(PSI+π),
     Q+2.5+45*sin(PSI+π));
SERIE(5, 5, 26, 18, STAB);

Ungefähre Darstellung. S. 220: STAB legt in jede Zelle von SERIE(5,5,26,18) eine Strecke, deren Lage J1 zwischen 0° und 180° würfelt. Listing: 30 Einheiten in Richtung PSI, 45 entgegen (PSI+π), durch den Zellmittelpunkt. Der Fließtext spricht von 15 Einheiten (|45−30|). JS1 ist die Buchsaat von S. 122.

© Werke Georg Nees: Erben Eckhard Nees & Sandra Nees · Website © 2026 Eckhard Nees