SCREEN 1,320,246,2,1
 WINDOW 2,,,16,1
 Hauptprogramma:
 CLEAR
 COLOR 1,0
 CLS
 COLOR 1,2
 rund:
 LINE (37,2)-(271,119),3,bf
 LINE (36,1)-(272,120),2,b
 LINE (35,0)-(273,121),2,b
 REM
 LINE (37,128)-(151,206),3,bf
 LINE (36,127)-(152,207),2,b
 LINE (35,126)-(153,208),2,b
 REM
 LINE (68,150)-(122,180),0,bf
 LINE (67,149)-(123,181),2,b
 LINE (40,186)-(65,203),1,b
 LINE (124,186)-(148,203),1,b
 LINE (133,195)-(138,195),1
 REM
 LINE (39,5)-(54,16),2,b
 LINE (40,6)-(53,15),0,bf
 REM
 LINE (160,128)-(271,172),3,bf
 LINE (159,127)-(272,173),2,b
 LINE (158,126)-(273,174),2,b
 CIRCLE (253,139),6,2,,,1
 CIRCLE (253,162),6,2,,,1
 REM
 LINE(160,182)-(271,206),2,bf
 LINE(159,181)-(272,207),3,b
 LINE(158,180)-(273,208),3,b
 CIRCLE (253,194),6,1,,,1
 LINE(39,215)-(271,239),3,bf
 LINE(38,214)-(272,240),2,b
 LINE(37,213)-(273,241),2,b
 linie:
 FOR ww=1 TO 6
 vv=vv+16
 LINE (39,5+vv)-(54,16+vv),2,b
 LINE (40,6+vv)-(53,15+vv),0,bf
 NEXT ww
 COLOR 1,3
 LOCATE 2,9:PRINT"Addition..............(+)"
 LOCATE 4,9:PRINT"Subtraktion...........(-)"
 LOCATE 6,9:PRINT"Multiplikation........(*)"
 LOCATE 8,9:PRINT"Division..............(:)"
 LOCATE 10,9:PRINT"Wurzelziehen..........(!)"
 LOCATE 12,9:PRINT"Prozentrechnen........(%)"
 LOCATE 14,9:PRINT"Gemischt..............(?)"
 LOCATE 18,6:PRINT"Aufgabenanzahl"
 LOCATE 25,7:PRINT "+"
 LOCATE 18,22:PRINT"Start...."
 LOCATE 21,22:PRINT"Nochmal.."
 COLOR 2,3
 LOCATE 29,8:PRINT"©1989 by PARAGON SOFTWARE"
 COLOR 1,2
 LOCATE 25,22:PRINT"Ciao....."
 Mueller:           
 CLEAR
 CIRCLE(253,162),6,2,,,1
 COLOR 1,0
 LOCATE 21,11:PRINT " 1  "
 LINE (40,6)-(53,15),0,bf
 FOR i=1 TO 6
 cc=cc+16
 LINE (40,6+cc)-(53,15+cc),0,bf
 NEXT
 ll=-1
 Versuch:
 IF ll<>-1 THEN Erneut
 WHILE MOUSE(0)<>0
 x=MOUSE(1)
 y=MOUSE(2)
 IF x>41 AND x<55 AND y>5 AND y<17    THEN ll=0:GOTO Einheit
 IF x>41 AND x<55 AND y>21 AND y<33   THEN ll=16:GOTO Einheit
 IF x>41 AND x<55 AND y>37 AND y<49   THEN ll=32:GOTO Einheit
 IF x>41 AND x<55 AND y>53 AND y<65   THEN ll=48:GOTO Einheit
 IF x>41 AND x<55 AND y>69 AND y<81   THEN ll=64:GOTO Einheit
 IF x>41 AND x<55 AND y>85 AND y<97   THEN ll=80:GOTO Einheit
 IF x>41 AND x<55 AND y>101 AND y<113 THEN ll=96:GOTO Einheit
 IF x>249 AND x<262 AND y>190 AND y<200 THEN CLS:WINDOW CLOSE 2:SCREEN CLOSE 1:SYSTEM
 IF x>38 AND x<274 AND y>214 AND y<242 THEN GOSUB AboutMe
 WEND
 Einheit:
 IF MOUSE(0)<>0 THEN
 LINE (40,6+ll)-(53,15+ll),1,bf
 END IF
 WHILE 1
 IF MOUSE(0)<>0 THEN GOTO Versuch
 WEND
 Erneut:
 COLOR 1,0
 x=MOUSE(1)
 y=MOUSE(2)
 IF MOUSE(0)<>0 THEN
 IF x>42 AND x<67 AND y>187 AND y<204 THEN Plus
 IF x>126 AND x<150 AND y>187 AND y<204 THEN Minus
 IF x>249 AND x<262 AND y>134 AND y<145 THEN CIRCLE(253,139),6,1,,,1:GOTO Eigen
 IF x>249 AND x<262 AND y>157 AND y<168 THEN CIRCLE(253,162),6,1,,,1:GOTO Mueller
 IF x>249 AND x<262 AND y>190 AND y<200 THEN CLS:WINDOW CLOSE 2:SCREEN CLOSE 1:SYSTEM
 END IF
 GOTO Erneut
 AboutMe:
   COLOR 2,3
   LOCATE 29,8:PRINT" written by  V.Stepprath "
   WHILE MOUSE(0)<>0:WEND
   LOCATE 29,8:PRINT"©1989 by PARAGON SOFTWARE"
   COLOR 1,0
 RETURN
 Plus:
 pp=pp+1
 LOCATE 21,11:PRINT  pp
 FOR zr=1 TO 350:NEXT zr
 GOTO Erneut
 Minus:
 pp=pp-1
 IF pp<1 THEN pp=1
 LOCATE 21,11:PRINT  pp
 FOR zr =1 TO 350:NEXT zr
 GOTO Erneut
 Eigen:
 WHILE MOUSE(0)<>0:WEND
 IF pp<1 THEN pp=1
 FOR kr=1 TO 252 
 LINE (0+kr,0)-(0,0+kr),3,bf
 LINE (250-kr,320)-(320,250-kr),3,bf
 NEXT kr
 COLOR 2,3
 CLS
 COLOR 1,3
 CLS
 Rse:
 pr:
 LINE(19,14)-(291,177),1,b
 LINE(18,13)-(292,178),1,b
 LINE(20,15)-(290,176),2,bf
 LINE(20,187)-(290,230),0,bf
 LINE(19,186)-(291,231),2,b
 LINE(18,185)-(292,232),2,b
 COLOR 1,2
 REM
 LINE(25,189)-(44,202),2,b
 LINE(26,190)-(43,201),2,b
 LINE(25,213)-(44,226),2,b
 LINE(26,214)-(43,225),2,b
 COLOR 3,0
 LOCATE 25,5:PRINT "T"
 LOCATE 28,5:PRINT "R"
 LOCATE 25,7:PRINT"TIP.:"
 LOCATE 28,7:PRINT"Rest:"
 COLOR 1,0
 va=TIMER
 Mpm:
 cn=cn+1
 IF cn=pp+1 THEN Quote
 LINE (20,15)-(290,176),2,bf
 COLOR 1,0
 LOCATE 25,12:PRINT "                        "
 LOCATE 28,12:PRINT"                         "
 IF dep=2 THEN Gemischtb
 Verteilunga:
 IF ll=10 THEN ll=0
 IF ll=0 THEN Additionb
 IF ll=16 THEN Subtraktionb
 IF ll=32 THEN Multiplikationb
 IF ll=48 THEN Divisionb
 IF ll=64 THEN Wurzelziehenb
 IF ll=80 THEN Prozentrechnenb
 IF ll=96 OR zg=96 THEN Gemischtb
 Gemischtb:
 dep=2
 RANDOMIZE TIMER
 ll=INT(RND*150)
 IF ll=96 THEN Gemischtb
 zg=96
 GOTO Verteilunga
 
 Additionb:
 COLOR 3,2
 LOCATE 4,16:PRINT"ADDITION"
 RANDOMIZE TIMER
 m=INT(RND*679)
 k=INT(RND*783)
 er=m+k
 COLOR 1,2
 LOCATE 7,4:PRINT"Rechne: ";m"+";k
 GOTO Eingabea
 
 Subtraktionb:
 COLOR 3,2
 LOCATE 4,14:PRINT"SUBTRAKTION"
 mi:
 RANDOMIZE TIMER
 m=INT(RND*467)
 k=INT(RND*789)
 IF m>k THEN mi
 er=k-m
 COLOR 1,2
 LOCATE 7,4:PRINT"Rechne: ";k;"-";m
 GOTO Eingabea
 Multiplikationb:
 COLOR 3,2
 LOCATE 4,13:PRINT"MULTIPLIKATION"
 RANDOMIZE TIMER
 m=INT(RND*22)
 k=INT(RND*29)
 er=m*k
 COLOR 1,2
 LOCATE 7,4:PRINT"Rechne: ";k;"*";m
 GOTO Eingabea
 Divisionb:
 COLOR 3,2
 LOCATE 4,16:PRINT"DIVISION"
 di:
 RANDOMIZE TIMER
 m=INT(RND*2345)
 k=INT(RND*490)
 IF k<1 THEN di
 IF k>m THEN di
 IF m/k>INT(m/k) THEN di
 er=m/k
 COLOR 1,2
 LOCATE 7,4:PRINT"Rechne: ";m;":";k
 GOTO Eingabea
 Wurzelziehenb:
 COLOR 3,2
 LOCATE 4,14:PRINT"WURZELZIEHEN"
 wu:
 m=INT(RND*6200)                                 
 IF SQR(m)>INT(SQR(m)) THEN wu
 er=SQR(m)
 COLOR 1,2
 LOCATE 7,4:PRINT"Nenne die Wurzel aus ";m
 GOTO Eingabea
 Prozentrechnenb:
 COLOR 3,2
 LOCATE 4,14:PRINT"PROZENTRECHNEN"
 proz:
 RANDOMIZE TIMER
 m=INT(RND*101)
 k=INT(RND*2694)
 IF (k/100)*m>INT((k/100)*m) THEN proz
 er=k/100*m
 COLOR 1,2
 LOCATE 7,4:PRINT"Rechne: ";m;"%";" von ";k
 Eingabea:
 COLOR 1,2
 LOCATE 10,12:PRINT "          "
 LOCATE 10,4:INPUT"Ergebnis:",e$
 IF UCASE$(e$)="T" THEN GOTO Tippreihe
 IF UCASE$(e$)="R" THEN Tippreihe
 IF VAL(e$)<er OR VAL(e$)>er THEN Falsch
 IF VAL(e$)=er THEN Richtig
 END
 GOTO Mpm
 Richtig:
 ri=ri+1
 LOCATE 15,4:PRINT"Richtig gerechnet !"
 LOCATE 21,27:PRINT"[RETURN]"
 GOTO Dauer
 Falsch:
 fa=fa+1
 LOCATE 14,4:PRINT "Leider Falsch...."
 LOCATE 16,4:PRINT "Das Ergebnis lautet ";er
 LOCATE 21,27:PRINT "[RETURN]"
 Dauer:
 wa$=INKEY$
 IF wa$=CHR$(13) THEN Mpm
 GOTO Dauer
 
 Tippreihe:
 IF e$="r" OR e$="R" THEN 
 COLOR 1,0
 LOCATE 28,12:PRINT"Noch ";pp-cn;" Aufgaben !"
 GOTO Eingabea
 END IF
 IF er<10 THEN Verneinung
 RANDOMIZE TIMER
 tt=INT(RND*35)
 IF tt=17 OR tt=27 THEN Tipp
 GOTO Tippreihe
 Tipp:
 pom=CLNG(RND*2)
 IF pom>2 OR pom<1 THEN Tipp
 IF pom=1 THEN GOTO Plu
 IF pom=2 THEN GOTO Min
 Hilfe:
 COLOR 1,0
 LOCATE 25,12:PRINT"Wähle      oder"
 LOCATE 25,tt:PRINT  er
 IF tt=17 THEN gg=10
 IF tt=27 THEN gg=-10
 LOCATE 25,tt+gg:PRINT er+zuf+1
 COLOR 1,2
 GOTO Eingabea
 Plu:
 zuf=INT(RND*15)
 GOTO Hilfe
 Min:
 baf=INT(RND*10)
 zuf=-baf
 GOTO Hilfe
 Verneinung:
 COLOR 1,0
 LOCATE 25,12:PRINT"Das rechnest du sebst !"
 GOTO Eingabea
 Quote:
 vb=TIMER
 LINE(20,15)-(290,176),2,bf
 COLOR 3,2
 LOCATE 4,10:PRINT"QUOTE NACH";pp;"AUFGABEN"
 COLOR 1,0
 LOCATE 25,12:PRINT"                       "
 LOCATE 28,12:PRINT"                       "
 COLOR 1,2
 LOCATE 9,5:PRINT"Richtig....:";ri
 LOCATE 11,5:PRINT"Falsch.....:";fa
 LOCATE 13,5:PRINT"Zeit im Ø..:";INT((vb-va)/pp);"sek."
 LOCATE 15,5:PRINT"Leistung...:";INT((100/pp)*ri);"%"
 LOCATE 21,27:PRINT"[RETURN]"
 geschaftb:
 A$=INKEY$
 IF A$=CHR$(13) THEN Hauptprogramma
 GOTO geschaftb