1030 "A" CLEAR : CLS : WAIT 0: PRINT "B=1/Z=2/BZ=3?": WAIT 
 1031 X$= INKEY$ : IF X$="" THEN 1031
 1032 X= VAL X$: IF X<1 OR X>3 THEN 1031
 1033 CLS : DIM A$(0)*24,B$(0)*24: GOTO 1037
 1034 A$= CHR$ ( RND 26+64): RETURN 
 1035 A$= CHR$ ( RND 10+47): RETURN 
 1036 ON  RND 4 GOTO 1034,1035,1034,1035
 1037 ON X GOSUB 1034,1035,1036
 1038 RANDOM : FOR I=130 TO 72 STEP -3: WAIT I:A$(0)=A$(0)+A$: PRINT A$(0): CLS : INPUT B$(0):B=B+1
 1039 IF A$(0)=B$(0) ON X GOSUB 1034,1035,1036: NEXT I: WAIT : PRINT "Super!": GOTO 1043
 1040 WAIT : PRINT "na ja..."+ STR$ (B-1)+" Punkte":I=72: NEXT I: FOR I=1 TO B
 1041 IF  MID$ (A$(0),I,1)= MID$ (B$(0),I,1) NEXT I
 1042 PRINT  LEFT$ (B$(0),I-1)+ CHR$ 249+"="+ MID$ (A$(0),I,1)
 1043 INPUT "nochmal?";A$: IF  ASC A$=74 THEN 1030
 1044 END