File LOT414.PS

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

PROGRAM LOTTO(OUT);
TYPE FELD=ARRAY [1..49] OF INTEGER;
VAR I:INTEGER;ZAHL:FELD;

PROCEDURE TAUSCH(VAR O,P:INTEGER);
VAR Q:INTEGER;
BEGIN
   Q:=P;P:=O;O:=Q;
END;

FUNCTION ZUFALL(A,B:INTEGER):INTEGER;
VAR ZUFALL:INTEGER;
BEGIN
   ZUFALL:=TRUNC(RANDOM*(B-A+1))+A
END;

BEGIN
FOR I:=1 TO 49 DO FELD[I]:=I;
FOR I:=1 TO 6 DO BEGIN
     ZAHL[I]:=ZUFALL(I,49);
     IF Z
                                    ***
                                  *...*
                                  *.....** 
                                 *........****
                                *....***......*******
                               *...**   ****.....**
                              *....*        *****
          *.*                *....*           *



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