File ?=ECCE.

Directory of image this file is from
This file as a plain text file

RANDOM*(BIS-VON))+1+VON;
END;

PROCEDURE MISCHEN (VAR P:PAAR);
VAR
  I,WAHL:INTEGER;
BEGIN
  FOR I:=1 TO N-1 DO BEGIN
    WAHL:=ZUFALL(I,N);
    TAUSCHE(P[I],P[WAHL]);
  END;
END;

PROCEDURE TREAD(VAR TEXT:STRING);
VAR
  I:INTEGER;
BEGIN
I:=1;
REPEAT READ(TEXT[I]);
       I:=I+1;
UNTIL EOLN OR (I=MAX);
TEXT[I]:="@";
END;

PROCEDURE TWRITE (VAR TEXT:STRING);
VAR
  I:INTEGER;
BEGIN
I:=1;
REPEAT WRITE(TEXT[I]);
       I:=I+1;
UNTIL TEXT[I]="@"
END;

(*==========Hauptprogramm==========*)
BEGIN
WRITE("WIEVIELE PAARE SIND VORHANDEN");READLN;READ(ANZAHL);
  FOR I:=1 TO ANZAHL DO BEGIN
     WRITE("NAME DES ",I:3,".PAARES");
     READLN;TREAD(NAME[I])
  END;
  FOR I:=1 TO ANZAHL DO P[I]:=I;
  MISCHEN(P);
  FOR I:=1 TO ANZAHL DO BEGIN
    WRITE("HERR ");TWRITE(NAME[I]);WRITE(" TANZT MIT FRAU ");
    TWRITE(NAME[P[I]]);WRITELN;
  END;
END.



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search