10 REM LOTTOZAHLENPROGRAMM
20 RANDOMIZE
30 PRINT"WIEVIEL TIPPREIHEN WUENSCHEN SIE";\INPUT Z
40 FOR J=1 TO 5\PRINT\NEXT J
50  PRINT"HIER SIND UNSERE VORAUSSAGEN FUER DIE NAECHSTE ZIEHUNG";
55 PRINT" 6 AUS 49"
60 PRINT"ALLE ANGABEN OHNE GEWAEHR!!!"
70 PRINT \PRINT
80 FOR I=1 TO Z
85 FOR J=1 TO 6\L(J)=48*RND(J)+1.5
90 L(J)=INT(L(J))\NEXTJ
100  FOR J=1 TO 5
105 FOR K=J+1 TO 6
110 IF L(J)=L(K) THEN 140\NEXT K
120 NEXT J
130 GOTO 150
140L(K)=INT(48*RND(J)+1.5)\GOTO 100
150 FOR J=1 TO 5
160 FOR K=J+1 TO 6\IF L(J)<L(K) THEN 170\W=L(J)\L(J)=L(K)\L(K)=W
170 NEXT K
180 NEXT J
190 PRINT I;".TE REIHE",
200 FOR D=1 TO 6\PRINT L(D);\NEXT D
205PRINT
210NEXT I
220 PRINT\PRINT\PRINT
225PRINT"VIEL  ERFOLG"
230PRINT\PRINT"FALLS SIE GEWINNEN,SIND 50%BEI MIR ABZULIEFERN!"
240 PRINT TAB(55);"IHR COMPUTER"
250 PRINT TAB(60);"PDP8/E"
260 END