10 X=400
20 CLS
30 KEY OFF
40 GOSUB 490
50 A=12:B=A:C=A:D=A:E=A:F=14:G=10:H=A:I=A:J=G:K=F:L=A:M=A:N=A:O=A:P=A
60 GOSUB 350
70 A=0:GOSUB 340:E=0:GOSUB 340:I=0:GOSUB 340:M=0:GOSUB 340
80 B=0:GOSUB 340:F=0:GOSUB 340:J=0:GOSUB 340:N=0:GOSUB 340
90 C=0:GOSUB 340:G=0:GOSUB 340:K=0:GOSUB 340:O=0:GOSUB 340
100 D=0:GOSUB 340:H=0:GOSUB 340:L=0:GOSUB 340:P=0:GOSUB 340
110 X=300:FOR Z=0 TO 5000:NEXT Z
120 GOSUB 510
130 REM HAUPTTEIL
140 Q=INT(RND*(2)):IF Q=1 THEN A=12 ELSE A=0
150 IF U>=V THEN A=0:W=W+1
160 IF W=20 THEN W=0:U=0:GOSUB 490
170 IF U/Y=INT(U/Y) THEN FOR Z=0 TO 3000:NEXT Z:GOSUB 510
180 A$=INKEY$
190 IF A$=CHR$(27) THEN END
200 IF A$="+" THEN X=X+10
210 IF A$="-" THEN X=X-10:IF X<0 THEN X=0
220 GOSUB 340
230 P=L:L=H:H=D:D=O
240 C=N:B=M:M=I:I=E:E=A
250 IF K=14 THEN O=12 ELSE O=0
260 IF G=10 THEN K=14 ELSE K=0
270 IF C=12 THEN G=10 ELSE G=0
280 IF J=10 THEN N=12 ELSE N=0
290 IF F=14 THEN J=10 ELSE J=0
300 IF B=12 THEN F=14 ELSE F=0
310 U=U+1
320 GOTO 140
330 END
340 LOCATE 1,1
350 COLOR A:PRINT" ÜÜÜ  ";:COLOR E:PRINT" ÜÜÜ  ";:COLOR I:PRINT" ÜÜÜ  ";:COLOR M:PRINT" ÜÜÜ  "
360 COLOR A:PRINT"ÛÛÛÛÛ ";:COLOR E:PRINT"ÛÛÛÛÛ ";:COLOR I:PRINT"ÛÛÛÛÛ ";:COLOR M:PRINT"ÛÛÛÛÛ "
370 COLOR A:PRINT" ßßß  ";:COLOR E:PRINT" ßßß  ";:COLOR I:PRINT" ßßß  ";:COLOR M:PRINT" ßßß  "
380 COLOR B:PRINT" ÜÜÜ  ";:COLOR F:PRINT" ÜÜÜ  ";:COLOR J:PRINT" ÜÜÜ  ";:COLOR N:PRINT" ÜÜÜ  "
390 COLOR B:PRINT"ÛÛÛÛÛ ";:COLOR F:PRINT"ÛÛÛÛÛ ";:COLOR J:PRINT"ÛÛÛÛÛ ";:COLOR N:PRINT"ÛÛÛÛÛ "
400 COLOR B:PRINT" ßßß  ";:COLOR F:PRINT" ßßß  ";:COLOR J:PRINT" ßßß  ";:COLOR N:PRINT" ßßß  "
410 COLOR C:PRINT" ÜÜÜ  ";:COLOR G:PRINT" ÜÜÜ  ";:COLOR K:PRINT" ÜÜÜ  ";:COLOR O:PRINT" ÜÜÜ  "
420 COLOR C:PRINT"ÛÛÛÛÛ ";:COLOR G:PRINT"ÛÛÛÛÛ ";:COLOR K:PRINT"ÛÛÛÛÛ ";:COLOR O:PRINT"ÛÛÛÛÛ "
430 COLOR C:PRINT" ßßß  ";:COLOR G:PRINT" ßßß  ";:COLOR K:PRINT" ßßß  ";:COLOR O:PRINT" ßßß  "
440 COLOR D:PRINT" ÜÜÜ  ";:COLOR H:PRINT" ÜÜÜ  ";:COLOR L:PRINT" ÜÜÜ  ";:COLOR P:PRINT" ÜÜÜ  "
450 COLOR D:PRINT"ÛÛÛÛÛ ";:COLOR H:PRINT"ÛÛÛÛÛ ";:COLOR L:PRINT"ÛÛÛÛÛ ";:COLOR P:PRINT"ÛÛÛÛÛ "
460 COLOR D:PRINT" ßßß  ";:COLOR H:PRINT" ßßß  ";:COLOR L:PRINT" ßßß  ";:COLOR P:PRINT" ßßß  "
470 FOR Z=0 TO X:NEXT
480 RETURN
490 V=INT(RND*(20))+30
500 RETURN
510 Y=INT(RND*(10))+10
520 RETURN