repeat until keypressed;

Heute ist "Developers Shame Day" und deshalb darf ich mal uralten, furchtbar schlechten code raushauen. Das fällt mir insbesondere deshalb leicht, weil so ziemlich jeder code von mir ganz furchtbar schlecht ist, ich hab da also freie Wahl. Mein richtig alter code ist (lassen wir mal C64-Basic bei Seite) in Turbo Pascal und der Schnipsel unten ist eine Prozedur aus etwas, das mal ein genetischer Algorithmus werden sollte. Hier speziell die Prozedur für ein one-point-crossover, die ich offensichtlich das letzte mal (man beachte den Kommentar) im August 1998 angeschaut habe. Ja, es ist zum Fürchten, aber so soll's ja auch sein.