1 FORM=1TO26:PRINT:NEXT 2 PRINT"M A S T E R M I N D":PRINT"-------------------" 3 PRINT:PRINT:PRINT"DU MUST EINE VIER- ODER" 4 PRINT"FUENFSTELLIGE ZAHL ER-" 5 PRINT"RATEN." 6 PRINT"JEDE ZIFFER KOMMT NUR" 7 PRINT"EINMAL VOR." 8 PRINT"SOLLTEST DU DIE ZAHL" 9 PRINT"NICHT ERRATEN,SO KANNST" 10 PRINT"DU SIE DURCH EINGABE" 11 PRINT"DES ZEICHENS'#'ABRUFEN" 12 PRINT:PRINT"SOLL DIE ZAHL 4 ODER 5" 13 PRINT"ZIFFERN HABEN":INPUTK:FORM=1TO26:PRINT:NEXTM 14 GOSUB3000 15 FOR X=1TO K 16 A=INT(10*(RND(12))) 17 IF A<0 OR A>9 THEN 16 19 GOTO1000 20 NEXT 25 PRINT:INPUTA$:PRINT; 26 V=V+1:Z=Z+1:IFZ>=5THENGOSUB3000 27 IFK=4ANDA$="#"THENPRINTAA;BB;CC;DD:PRINT:GOTO2004 28 IFK=5ANDA$="#"THENPRINTAA;BB;CC;DD;EE:PRINT:GOTO2004 31 AA$=LEFT$(A$,1):BB$=MID$(A$,2,1) 32 CC$=MID$(A$,3,1):DD$=MID$(A$,4,1) 33 EE$=RIGHT$(A$,1):A5=VAL(EE$) 34 A1=VAL(AA$):A2=VAL(BB$) 35 A3=VAL(CC$):A4=VAL(DD$) 40 GOTO500 500 IFA1=AATHENGOSUB600 501 IFA1=BBORA1=CCORA1=DDTHENGOSUB700 502 IFA2=BBTHENGOSUB600 503 IFA2=AAORA2=CCORA2=DDTHENGOSUB700 504 IFA3=CCTHENGOSUB600 505 IFA3=AAORA3=BBORA3=DDTHENGOSUB700 506 IFA4=DDTHENGOSUB600 507 IFA4=AAORA4=BBORA4=CCTHENGOSUB700 508 IFK=4THEN550 509 IFA5=EETHENGOSUB600 510 IFA1=EEORA2=EEORA3=EEORA4=EETHENGOSUB700 511 IFA5=AAORA5=BBORA5=CCORA5=DDTHENGOSUB700 550 PRINTTAB(5);V;TAB(15);J;TAB(21);N 551 J=0:N=0 552 GOTO25 600 J=J+1 601 IFJ=KTHENGOTO2000 603 RETURN 700 N=N+1 701 RETURN 1000 IFA=AAORA=BBORA=CCTHEN15 1004 IFK=4THEN1010 1005 IFA=EETHEN15 1010 ONXGOTO1100,1200,1300,1400,1500 1100 AA=A:GOTO20 1200 BB=A:GOTO20 1300 CC=A:GOTO20 1400 DD=A:GOTO20 1500 EE=A:GOTO20 2000 PRINTTAB(5);V;TAB(15);J;TAB(21);N 2002 PRINT:PRINT:PRINT"HERZLICHEN GLUECKWUNSCH" 2003 PRINT"DU HAST RICHTIG GERATEN" 2004 PRINT:PRINT:PRINT"WUENSCHT DU DIR EIN " 2005 PRINT"NEUES SPIEL J,N":INPUTY$ 2006 IFY$="J"THENRUN 2007 IFY$="N"THEN2010 2008 GOTO2005 2010 PRINT:PRINT"VIELEN DANK FUER DAS" 2011 PRINT"SPIEL. AUF WIEDERSEHEN":END 3000 PRINT:PRINT 3001 Z=0 3002 PRINT" VERSUCH PLATZ ZAHL" 3003 RETURN 4000 REM BESCHREIBUNG 4001 REM QUELLE: 4002 REM 4003 REM FUNKSCHAU 23 4004 REM JAHRGANG 1979 4005 REM DF9RY,KOHLB. 4006 REM DEN 23.12.1979 4007 REM 4008 REM PROGRAMMNAME: 4009 REM MASTERMIND 4010 REM ---------- OK