5 A(0)=99:B(0)=99 10 FORT=0TO29:PRINT:NEXTT 15 POKE11,34:POKE12,2 20 FORT=546TO558 30 READA:POKET,A 40 NEXTT 50 N=0:FORI=1TO3 55 A(I)=INT(10*RND(1)) 60 FORJ=0TOI-1 62 IFA(J)=A(I)GOTO55 65 NEXTJ 70 NEXTI 80 FORI=1TO3 85 B(I)=USR(1) 90 FORJ=0TOI-1 92 IFB(J)=B(I)GOTO85 95 NEXTJ 100 IFB(I)>9GOTO85 110 PRINTCHR$(B(I)+48); 120 NEXTI 130 PRINT" "; 140 A$="":B$="":C$="KEINE":N=N+1 145 A=0 150 FORI=1TO3:FORJ=1TO3 160 IFA(I)=B(J)THENGOSUB300 170 NEXTJ:NEXTI 180 IFA=3GOTO200 190 PRINTA$;B$;C$:GOTO80 200 PRINT" RICHTIG !!!!!" 230 PRINT:PRINT:PRINT:GOTO50 300 C$="" 310 IFI=JGOTO330 320 B$=B$+"GUT ":RETURN 330 A$=A$+"ASS ":A=A+1:RETURN 400 DATA32,237,254,32,147,254,168,169,0,32,193,175,96 OK