ClrText:Cls:GridOff:AxesOff:" ":" ":Locate 1,1,"WIEVIELE VERSUCHE":?->E:If E=0 Or Frac E<>0:Then Goto 8:IfEnd:63->M:0->V:0->P:0->S:0->T:0->C:Text 1,2,"VERSUCH NR":Do:V+1->V:Text 1,60-(Int (log V))*4,V:Int (25*Ran#)+15->A:Text 58,M-4," ":35+Int (Ran#*73)->M:Text 58,M-4,"=I=":For 1->B To 119 Step 4:GetKey->K:Text A,B," pi":A+1-Int (3*Ran#)->A:If A>45:Then 45->A:IfEnd:If A<14:Then 14->A:IfEnd:If K<>0 And K<>31 And S=0:Then 1->S:M->D:52->C:IfEnd:If K=31:Then While GetKey=31:WhileEnd:While GetKey<>31:WhileEnd:While GetKey=31:WhileEnd:IfEnd:If S=1:Then Text C,D,"":If CS:IfEnd:If Abs (A-C)<5 And Abs (B+5-D)<4:Then Goto 1:IfEnd:Text C,D," ":C-6->C:IfEnd:Next:Text A,120," ":Lbl 2:LpWhile V<>E:Goto 3:Lbl 1:IfEnd:IfEnd:T+1->T:P+Int ((50-A)/5)->P:0->S:Text C,D," ":Text A,B+2," *":Text A-6,B,"*":Text A+4,B-1,"*":Text A+5,B+10,"*":Text A-4,B+11,"*":Text A-6,B," ":Text A+4,B-1," ":Text A,B+5," ":119->B:Next:Goto 2:Lbl 3:Cls:Text 6,57,"+++ + + ++ +++":Text 11,57,"+ ++ + + + +":Text 16,57,"++ + ++ + + ++":Text 21,57,"+ + + + + +":Text 26,57,"+++ + + ++ +++":Text 6,1,"VERSUCHE:":Text 16,1,"TREFFER:":Text 26,1,"PUNKTE:":Text 40,1,"PUNKTE/TREFFER:":Text 50,1,"TREFFERQUOTE:":Text 6,40,E:Text 16,35,T:Text 26,34,P:If T>0:Then Text 40,66,Int ((P*10)/T)/10:Else Text 40,66,0:IfEnd:Int ((T/V)*100)->Q:Text 50,57,Q:If Q<>0:Then Int log Q->P:Else 0->P:IfEnd:Text 50,62+P*4,"/":PxlOn 50,62+P*4:PxlOn 54,64+P*4:PxlOff 1,1:While K=0:GetKey->K:WhileEnd:RclV-Win 2:GridOn:AxesOn:ClrText:Locate 1,3,"[EXE] NOCHMAL":Locate 1,5,"[ANDERE TASTE] ENDE"