3140 "," clear :wait 0:random 3150 dim A(7),Q$(7) 3160 poke 64272,2,1,18,95,219,223,55 3180 beep 1:print "MAULWURF-JAGD":call 64272 3200 data 12288,12293,12298,12303,12308,12313,12333 3210 data "Z","X","C","V","B","N","M" 3220 for I=1 to 7:read A(I):next I 3230 for I=1 to 7:read Q$(I):next I 3240 for I=1 to 200:next I 3250 beep 1:input "SCHWIERIGKEITSGRAD 1-5:";S:if S<1 or S>5 goto 3250 3270 S=(6-S)*10 3290 print "":call 64272:for I=1 to 7:poke A(I),94,37,9,37,94:next I 3300 for I=1 to 200:next I 3320 beep 1:print "":call 64272 3330 for J=1 to 30 3340 P=rnd 7 3350 poke A(P),96,80,16,80,96 3360 for I=1 to S:next I:Q$=inkey$ :if Q$=Q$(P) goto 3510 3370 poke A(P),120,20,36,20,120 3380 for I=1 to S:next I:Q$=inkey$ :if Q$=Q$(P) goto 3510 3390 poke A(P),94,37,9,37,94 3400 for I=1 to S:next I:Q$=inkey$ :if Q$=Q$(P) goto 3510 3410 poke A(P),96,80,16,80,96 3420 for I=1 to S:next I 3430 poke A(P),0,0,0,0,0 3440 next J 3470 pause str$ T;"VON 30 PUNKTEN" 3490 end 3510 T=T+1 3520 poke A(P),42,85,42,85,42 3530 goto 3420