Directory of image this file is from
This file as a plain text file
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