50000 CLS
50010 PRINT "1 QUADRATISCHE GLEICHUNGEN"
50020 PRINT "2 KILL"
50030 PRINT "3 *WEITER* "
50040 INPUT W
50050 IF W=3 THEN GOTO 50080
50060 IF W=2 THEN GOTO 54030
50070 IF W=1 THEN GOTO 56700
50080 CLEAR
50090 CLS
50100 LOCATE 3,0
50110 PRINT "FREE : ";FRE E-(FRE E-X)
50120 Q$=INKEY$ :IF Q$<>"" THEN GOTO 50160
50130 X=X+800
50140 IF X>=FRE E THEN GOTO 50150 ELSE BEEP 1,80,7:GOTO 50100
50150 CLS
50160 LOCATE 3,0
50170 PRINT "FREE : ";FRE E
50180 FOR T=1 TO 500
50190 Q$=INKEY$ :IF Q$<>"" THEN GOTO 50320
50200 NEXT T
50210 BEEP 1
50220 CLS
50230 PRINT "HIMEM.SYS INSTALLED"
50240 PRINT ""
50250 PRINT "EMM386.EXE VER 2.1 LOADED"
50260 PRINT ""
50270 FOR S=1 TO 500 :NEXT S
50280 PRINT "ANSI.SYS FEHLERHAFT"
50290 PRINT ""
50300 PRINT "SUCHE EINE MAUS"
50310 FOR F=1 TO 800 :NEXT F
50320 CLS
50330 TX=10
50340 LOCATE 8,1
50350 PRINT "*************************"
50360 LOCATE 8,3
50370 PRINT "*************************"
50380 LOCATE 8,2
50390 PRINT "* M A R K U S   T U O R *"
50400 LOCATE TX,2
50410 PRINT " "
50420  FOR WAR=1 TO 5:NEXT WAR
50430 TX=TX+2
50440 IF TX=32 THEN GOTO 50460
50450 GOTO 50380
50460 LOCATE 8,2
50470 PRINT "* M A R K U S   T U O R *"
50480 BEEP 1,10,70
50490 BEEP 1,5,70
50500 FOR T=1 TO 800 :NEXT T
50510 CLS
50520 LOCATE 11,0
50530 PRINT "** AUSWAHL **"
50540 LOCATE 0,1
50550 PRINT "1:Melodie"
50560 LOCATE 0,2
50570 PRINT "2:Supergame"
50580 LOCATE 13,1
50590 PRINT "3:Double"
50600 LOCATE 13,2
50610 PRINT "4:Simball"
50620 LOCATE 13,3
50630 PRINT "5:Paint"
50640 LOCATE 23,1
50650 PRINT "6:Asci"
50660 LOCATE 23,2
50670 PRINT "7:Sound"
50680 LOCATE 23,3
50690 PRINT "8:Blackjack
50700 LOCATE 0,3
50710 INPUT A
50720 IF A=2 THEN GOTO 51310
50730 IF A=3 THEN GOTO 52350
50740 IF A=4 THEN GOTO 52440
50750 IF A=5 THEN GOTO 52710
50760 IF A=6 THEN GOTO 52810
50770 IF A=7 THEN GOTO 52870
50780 IF A=8 THEN GOTO 53330
50790 IF A=1 THEN GOTO 50940 ELSE GOTO 50800
50800 CLS
50810 LOCATE 10,0
50820 PRINT "** AUSWAHL II **"
50830 LOCATE 0,1
50840 PRINT " 9:Afterdark"
50850 LOCATE 0,2
50860 PRINT "10:Extender"
50870 LOCATE 13,1
50880 PRINT "11:WM-Simulator"
50890 LOCATE 0,3
50900 INPUT A
50910 IF A=10 THEN GOTO 54480
50920 IF A=11 THEN GOTO 54900
50930 IF A=9 THEN GOTO 53840 ELSE GOTO 50510
50940 REM "MELODIE*************"
50950 CLS :CLEAR
50960 LOCATE 9,1
50970 PRINT "** M E L O D I E **"
50980 FOR J=1 TO 500 : NEXT J
50990 CLS
51000 BEEP 1,120,100
51010 BEEP 1,85,100
51020 BEEP 1,85,100
51030 BEEP 1,75,100
51040 BEEP 1,65,100
51050 BEEP 1,85,100
51060 BEEP 1,65,100
51070 BEEP 1,75,100
51080 BEEP 1,120,100
51090 BEEP 1,85,100
51100 BEEP 1,85,100
51110 BEEP 1,75,100
51120 BEEP 1,65,100
51130 BEEP 1,85,200
51140 BEEP 1,91,100
51150 BEEP 1,120,100
51160 BEEP 1,85,100
51170 BEEP 1,85,100
51180 BEEP 1,75,100
51190 BEEP 1,65,100
51200 BEEP 1,60,100
51210 BEEP 1,65,100
51220 BEEP 1,75,100
51230 BEEP 1,85,100
51240 BEEP 1,91,100
51250 BEEP 1,120,100
51260 BEEP 1,105,100
51270 BEEP 1,91,100
51280 BEEP 1,85,200
51290 BEEP 1,85,200
51300 GOTO 50080
51310 REM *********SUPERGAME
51320 CLEAR
51330 TXB=0 :TXA=36
51340 CLS
51350 LOCATE TXB,1
51360 PRINT "SUPER"
51370 LOCATE TXA,1
51380 PRINT "GAME"
51390 TXA=TXA-1 :TXB=TXB+1
51400 IF TXA=20 THEN GOTO 51410 ELSE GOTO 51340
51410 FOR TT=1 TO 900 :NEXT TT
51420 CLS
51430 Y=1:P=0:QWE=0:ZX=35:G=8:L=3
51440 CLS
51450 LOCATE 10,0
51460 PRINT "LIVES:";L
51470 LOCATE 20,0
51480 PRINT "POINTS:";P
51490 IF SCH=0 THEN GOTO 51540
51500 PSET (SX,SY)
51510 PSET (SXA,SY)
51520 PSET (SXB,SY+1)
51530 PSET (SXC,SY+1)
51540 LOCATE 0,Y
51550 PRINT ">"
51560 IF QWE=0 THEN GOTO 51590
51570 LOCATE ZX,Z
51580 PRINT "*"
51590 A$=INKEY$
51600 IF A$="P" THEN GOSUB 52310
51610 IF Y=2 THEN FAL=FAL+1 ELSE FAL=0:FAUL=0
51620 IF FAL>90 THEN FAUL=1
51630 IF A$="8" THEN Y=Y-1
51640 IF A$="2" THEN Y=Y+1
51650 IF Y<1 THEN Y=1
51660 IF Y>3 THEN Y=3
51670 IF A$="S" THEN GOTO 51790
51680 IF SCH=1 THEN GOTO 51860
51690 R=R+1
51700 IF R>G THEN GOTO 51710 ELSE GOTO 51440
51710 RANDOMIZE
51720 Z=(RND 3)
51730 IF Z=2 AND FAUL=1 THEN GOTO 51710:FAUL=0
51740 ZX=ZX-2
51750 IF ZX<0 THEN L=L-1:ZX=39:BEEP 2,200,120
51760 IF L=0 THEN GOTO 52150
51770 R=0:QWE=1
51780 GOTO 51440
51790 REM SCHUSS****
51800 SCH=1
51810 AY=Y
51820 BEEP 1,10,70
51830 SX =5:SXA=6:SXB=5:SXC=6
51840 SY=(Y+1)*7+Y-4
51850 IF (SX-16)<0 THEN GOTO 51870
51860 PRESET (SX-16,SY)
51870 PSET (SX,SY)
51880 PSET (SXA,SY)
51890 PSET (SXB,SY+1)
51900 PSET (SXC,SY+1)
51910 IF (SX/6)<ZX+2 AND (SX/6)>ZX-1 AND AY=Z THEN GOTO 52080
51920 SX=SX+10
51930 SXA=SXA+10
51940 SXB=SXB+10
51950 SXC=SXC+10
51960 IF SX>238 THEN SCH=0
51970 LOCATE 0,Y
51980 PRINT " "
51990 B$=INKEY$
52000 IF B$="8" THEN Y=Y-1
52010 IF B$="2" THEN Y=Y+1
52020 IF Y<1 THEN Y=1
52030 IF Y>3 THEN Y=3
52040 LOCATE 0,Y
52050 PRINT ">"
52060 IF B$="S" THEN GOTO 51790
52070 GOTO 51690
52080 REM GETROFFEN******
52090 SCH=0
52100 P=P+1:MAL=MAL+1
52110 BEEP 2,20,100
52120 R=60:ZX=39
52130 IF MAL=2 THEN G=G-1:MAL=0
52140 GOTO 51440
52150 REM GAMEOVER**********
52160 CLS
52170 LOCATE 10,2
52180 PRINT "** GAME-OVER **"
52190 BEEP 1,100,400
52200 BEEP 1,100,400
52210 BEEP 1,100,100
52220 BEEP 1,100,400
52230 LOCATE 2,3
52240 PRINT "SIE HABEN ";P;"PUNKTE ERREICHT"
52250 BEEP 5,50,70
52260 QWE$=INKEY$ :IF QWE$="" THEN GOTO 52260
52270 CLS
52280 PRINT "NOCH EINMAL? J/N "
52290 INPUT FRA$
52300 IF FRA$="J" THEN GOTO 51310 ELSE GOTO 50080
52310 LOCATE 15,1
52320 PRINT "PAUSE"
52330 QWA$=INKEY$ :IF QWA$="" THEN GOTO 52310
52340 RETURN
52350 REM DOUBLE-GAME***********
52360 CLEAR
52370 CLS
52380 INPUT "NAME PLAYER A :";NA$
52390 LOCATE 0,1
52400 INPUT "NAME PLAYER B :";NB$
52410 CLS
52420 PRINT NA$;" BITTE GEBEN SIE EIN :"
52430 REM SIMBALL*******************
52440 CLS :CLEAR
52450 PRINT "X-GESCHWINDIGKEIT ?"
52460 INPUT GX
52470 PRINT "Y-GESCHWINDIGKEIT ?"
52480 INPUT G
52490 Y=10
52500 G=G+0.5
52510 Y=Y+G
52520 X=X+GX
52530 CLS
52540 PSET (X,Y)
52550 PSET (X-1,Y)
52560 PSET (X-1,Y-1)
52570 PSET (X,Y-1)
52580 PSET (X-2,Y)
52590 PSET (X-2,Y-1)
52600 PSET (X-1,Y-2)
52610 PSET (X,Y-2)
52620 PSET (X+1,Y-1)
52630 PSET (X+1,Y)
52640 PSET (X,Y+1)
52650 PSET (X-1,Y+1)
52660 FOR QWE=1 TO 10 :NEXT QWE
52670 IF Y>30 THEN G=0-(G-G/10):GOTO 52510
52680 IF Y<1 THEN G=0-G:GOTO 52510
52690 IF X>232 OR X<1 THEN GX=(0-1)*GX
52700 GOTO 52500
52710 CLS :CLEAR
52720 A=(0-1)
52730 A$=INKEY$
52740 IF A$="2" THEN Y=Y+1
52750 IF A$="8" THEN Y=Y-1
52760 IF A$="4" THEN X=X-1
52770 IF A$="6" THEN X=X+1
52780 IF A$="5" THEN A=A*(0-1)
52790 IF A=(0-1) THEN PSET (X,Y)
52800 GOTO 52730
52810 REM ASC
52820 QWE$=INKEY$ :IF QWE$="" THEN GOTO 52820
52830 CLS
52840 PRINT QWE$,ASC (QWE$)
52850 GOTO 52810
52860 REM **************SOUND
52870 CLS :CLEAR
52880 PRINT "1..ALARM"
52890 LOCATE 0,1
52900 PRINT "2..PHONE"
52910 LOCATE 0,2
52920 PRINT "3..SPACE"
52930 LOCATE 10,0
52940 PRINT "4..ALARM II
52950 LOCATE 10,1
52960 PRINT "5..SPACE II"
52970 LOCATE 0,3
52980 INPUT A
52990 IF A=1 THEN GOTO 53050
53000 IF A=2 THEN GOTO 53110
53010 IF A=3 THEN GOTO 53150
53020 IF A=4 THEN GOTO 53190
53030 IF A=5 THEN GOTO 53290
53040 GOTO 52870
53050 A=50:B=-2
53060 BEEP 1,A,15
53070 IF A<25 THEN B=2
53080 IF A>55 THEN B=-2
53090 A=A+B
53100 GOTO 53060
53110 BEEP 1,20,20
53120 BEEP 1,30,20
53130 BEEP 1,45,20
53140 GOTO 53110
53150 BEEP 1,X,20
53160 BEEP 1,X+10,20
53170 X=X+1
53180 GOTO 53150
53190 X=5:Y=55:ZX=2:ZY=-1
53200 BEEP 1,X,20
53210 BEEP 1,Y,20
53220 X=X+ZX
53230 Y=Y+ZY
53240 IF X>60 THEN ZX=-2
53250 IF X<5 THEN ZX=1
53260 IF Y<5 THEN ZY=1
53270 IF Y>60 THEN ZY=-1
53280 GOTO 53200
53290 BEEP 1,X,5
53300 X=X+1
53310 IF X=30 THEN X=1
53320 GOTO 53290
53330 CLS :CLEAR
53340 G=1000:DEP=0
53350 CLS :CLEAR K
53360 D=D+1
53370 LOCATE 37,0
53380 PRINT D
53390 PRINT "GELD :";G;" IM DEPOT :";DEP
53400 INPUT "IHR EINSATZ :";E
53410 IF E>G THEN GOTO 53400
53420 IF E<0 THEN GOTO 53400
53430 DE=E+DEP
53440 X=RND (11)
53450 CLS
53460 PRINT "IHRE KARTE: ";X
53470 K=K+X
53480 IF K>21 THEN GOTO 53610
53490 INPUT "NOCH EINE KARTE J/N? ";AUS$
53500 IF AUS$="J" THEN GOTO 53440
53510 IF AUS$="N" THEN GOTO 53520 ELSE GOTO 53490
53520 CLS
53530 CK=RND (8)+13
53540 Z=RND (7)
53550 IF Z=7 THEN CK=22
53560 PRINT "IHRE SUMME: ";K
53570 PRINT "MEINE SUMME: ";CK
53580 W$=INKEY$ :IF W$="" THEN GOTO 53580
53590 IF CK>21 THEN PRINT "ICH BIN UEBER 21!":G=G+DE:GOTO 53640
53600 IF K=CK THEN :GOTO 53700
53610 IF K>21 THEN PRINT "UEBER 21!!":G=G-E
53620 IF K<CK THEN PRINT "PECH GEHABT!!":G=G-E
53630 IF K>CK AND K<22 THEN PRINT "NICHT SCHLECHT !!":G=G+DE
53640 DEP=0
53650 FOR WAR=1 TO 300 :NEXT WAR
53660 W$=INKEY$ :IF W$="" THEN GOTO 53660
53670 IF (G+DEP)<1 THEN :CLS : PRINT "LEIDER HASTE PECH GHABT":GOTO 53760
53680 CLS
53690 GOTO 53350
53700 CLS
53710 PRINT "GELD GEHT AUFS DEPOT"
53720 DEP=DEP+2*E
53730 G=G-E
53740 FOR WAR=1 TO 300 :NEXT WAR
53750 GOTO 53670
53760 FOR WAR=1 TO 500 :NEXT WAR
53770 BEEP 4,10,80
53780 WAR$=INKEY$ :IF WAR$="" THEN GOTO 53780
53790 CLS
53800 INPUT "NOCH EIMAL? J/N ";F$
53810 IF F$="J" THEN GOTO 53330 ELSE :CLS :END
53820 REM ***********REKORD:
53830 REM 30147 VON PATRICK
53840 CLS :CLEAR
53850 X=100:XG=2
53860 Y=15:YG=2
53870 X=X+XG
53880 Y=Y+YG
53890 A=RND 3
53900 IF A=1 THEN XG=XG-1
53910 IF A=3 THEN XG=XG+1
53920 IF XG>3 THEN XG=3
53930 IF XG <-3 THEN XG=-3
53940 B=RND 3
53950 IF B=1 THEN YG=YG-1
53960 IF B=3 THEN YG=YG+1
53970 IF YG>3 THEN YG=3
53980 IF YG<-3 THEN YG=-3
53990 PSET (X,Y)
54000 IF X>238 OR X<1 THEN XG=XG*-1
54010 IF Y>30 OR Y<1 THEN YG=YG*-1
54020 GOTO 53870
54030 CLS :CLEAR
54040 S=5:R=0:AB=1:E=0
54050 PRINT S
54060 INPUT I
54070 INPUT "1/2/3 ?";W
54080 Z=RND (3)
54090 IF Z=W THEN S=S-I ELSE S=S+I
54100 R=R+1
54110 IF R=10 THEN GOTO 54130
54120 GOTO 54050
54130 CLS
54140 WAIT 20
54150 PRINT "ALSO:";S;" S."
54160 Z=RND (3)
54170 IF Z=2 THEN PRINT "OHNE H."
54180 IF Z=3 THEN PRINT "AUF N.P."
54190 W=RND (3)
54200 IF W=1 THEN PRINT "MIT ST."
54210 IF W=2 THEN PRINT "MIT RIEM."
54220 IF W=3 THEN PRINT "MIT PEIT."
54230 FOR T=1 TO 4000 :NEXT T
54240 CLS
54250 A=1
54260 PRINT " /~~~~~~~~~~"
54270 PRINT "|    |     |
54280 PRINT "|    |     |
54290 PRINT " \   \     |
54300 LOCATE 20,1
54310 PRINT A
54320 A=A+1
54330 REM B=RND (11-2*Z-W)
54340 REM IF B=1 THEN GOTO 4295
54350 ZU=RND (3)
54360 REM IF B<>1 AND ZU=1 THEN GOTO 4230
54370 FOR WART=1 TO 900 :NEXT WART
54380 IF A=S+1 THEN END
54390 REM GOTO 4200
54400 E=E+1
54410 IF E=1 THEN X=RND (5)+6 ELSE X=RND (6)+37
54420 IF E=2 THEN E=0
54430 Y=RND (13)+8
54440 Q=RND (10)+5
54450 V=RND (5)-3
54460 LINE (X,Y)-(X+Q,Y+V)
54470 GOTO 54300
54480 CLEAR :CLS
54490 X=10:Y=10:Q$="14":XB=200:YB=10:R$="4"
54500 LINE (0,0)-(230,0)
54510 LINE (0,0)-(0,30)
54520 LINE (0,30)-(230,30)
54530 LINE (230,0)-(230,30)
54540 PSET (X,Y)
54550 PSET (XB,YB)
54560 I$=INKEY$
54570 IF ASC (I$)=4 OR ASC (I$)=14 OR ASC (I$)=5 OR ASC (I$)=15 THEN Q$=I$
54580 IF I$="4" OR I$="8" OR I$="6" OR I$="2" THEN R$=I$
54590 P$=INKEY$
54600 IF P$=I$ AND P$<>"" THEN GOTO 54560
54610 IF P$<>I$ AND P$<>"" THEN I$=P$ :GOTO 54570
54620 IF ASC (Q$)=4  THEN Y=Y-1
54630 IF ASC (Q$)=14 OR Q$="14" THEN X=X+1
54640 IF ASC (Q$)=5 THEN Y=Y+1
54650 IF ASC (Q$)=15 THEN X=X-1
54660 IF R$="8" THEN YB=YB-1
54670 IF R$="6" THEN XB=XB+1
54680 IF R$="2" THEN YB=YB+1
54690 IF R$="4" THEN XB=XB-1
54700 IF X>230 OR X<0 OR Y>30 OR Y<0 OR POINT (X,Y)=1 THEN GOTO 54730
54710 IF POINT (XB,YB)=1 THEN GOTO 54780
54720 GOTO 54540
54730 BEEP 2,5,5
54740 PRINT "C R A S H"
54750 FOR WAR=1 TO 100:NEXT WAR
54760 PB=PB+1
54770 GOTO 54820
54780 BEEP 2,5,5
54790 PRINT "C R A S H"
54800 FOR WAR =1 TO 100:NEXT WAR
54810 PA=PA+1
54820 CLS
54830 LOCATE 12,1
54840 PRINT PA
54850 LOCATE 27,1
54860 PRINT PB
54870 WAR$=INKEY$ :IF WAR$="" THEN GOTO 54870
54880 CLS
54890 GOTO 54490
54900 CLS :CLEAR
54910 X=57:Y=44
54920 SA=4:SB=3:SC=2:SD=1:
54930 A=0:B=0:C=0:D=0:R=1:AR=1
54940 PA=4:PB=4:PC=4:PD=4
54950 IF MA>3 THEN MA=3
54960 IF MB>3 THEN MB=3
54970 IF MC>3 THEN MC=3
54980 IF MD>3 THEN MD=3
54990 IF MA<0 THEN MA=0
55000 IF MB<0 THEN MB=0
55010 IF MC<0 THEN MC=0
55020 IF MD<0 THEN MD=0
55030 IF A>B THEN PA=PA-1 ELSE PB=PB-1
55040 IF A>C THEN PA=PA-1 ELSE PC=PC-1
55050 IF A>D THEN PA=PA-1 ELSE PD=PD-1
55060 IF B>C THEN PB=PB-1 ELSE PC=PC-1
55070 IF B>D THEN PB=PB-1 ELSE PD=PD-1
55080 IF C>D THEN PC=PC-1 ELSE PD=PD-1
55090 CLS
55100 LOCATE 23,0
55110 PRINT "RUNDE:";AR
55120 LOCATE 1,PA-1
55130 PRINT "BRASILIEN";A
55140 LOCATE 1,PB-1
55150 PRINT "ITALIEN  ";B
55160 LOCATE 1, PC-1
55170 PRINT "SCHWEIZ  ";C
55180 LOCATE 1, PD-1
55190 PRINT "USA      ";D
55200 IF PA=1 THEN PA$="BRASILIEN":FSA=SA
55210 IF PA=2 THEN PB$="BRASILIEN":FSB=SA
55220 IF PB=1 THEN PA$="ITALIEN":FSA=SB
55230 IF PB=2 THEN PB$="ITALIEN":FSB=SB
55240 IF PC=1 THEN PA$="SCHWEIZ":FSA=SC
55250 IF PC=2 THEN PB$="SCHWEIZ":FSB=SC
55260 IF PD=1 THEN PA$="USA":FSA=SD
55270 IF PD=2 THEN PB$="USA":FSB=SD
55280 W$=INKEY$ :IF W$="" THEN GOTO 55280
55290 TA=0:TB=0:TC=0:TD=0
55300 IF AR=5 THEN GOTO 56170
55310 IF R=2 THEN GOTO 55610
55320 IF R=3 THEN GOTO 55890
55330 SR=RND (5)+5
55340 CHA=RND (X+SA-SB+MA)
55350 IF CHA>Y THEN TA=TA+1
55360 CHB=RND (X+SB-SA+MB)
55370 IF CHB>Y THEN TB=TB+1
55380 SR=SR-1
55390 IF SR=0 THEN GOTO 55400 ELSE GOTO 55340
55400 IF TA>TB THEN A=A+2:MA=MA+0.5:MB=MB-0.5
55410 IF TB>TA THEN B=B+2:MB=MB+0.5:MA=MA-0.5
55420 IF TA=TB THEN A=A+1:B=B+1
55430 SR=RND (5)+5
55440 CHA=RND (X+SC-SD+MC)
55450 IF CHA>Y THEN TC=TC+1
55460 CHB=RND (X+SD-SC+MD)
55470 IF CHB>Y THEN TD=TD+1
55480 SR=SR-1
55490 IF SR=0 THEN GOTO 55500 ELSE GOTO 55440
55500 IF TC>TD THEN C=C+2:MC=MC+0.5:MD=MD-0.5
55510 IF TD>TC THEN D=D+2:MD=MD+0.5:MC=MC-0.5
55520 IF TC=TD THEN C=C+1:D=D+1
55530 CLS
55540 LOCATE 1,1
55550 PRINT "BRASILIEN-ITALIEN ";TA;":";TB
55560 LOCATE 1,2
55570 PRINT "SCHWEIZ-USA       ";TC;":";TD
55580 W$=INKEY$ :IF W$="" THEN GOTO 55580
55590 R=2
55600 GOTO 54940
55610 SR=RND (5)+5
55620 CHA=RND (X+SA-SD+MA)
55630 IF CHA>Y THEN TA=TA+1
55640 CHB=RND (X+SD-SA+MD)
55650 IF CHB>Y THEN TD=TD+1
55660 SR=SR-1
55670 IF SR=0 THEN GOTO 55680 ELSE GOTO 55620
55680 IF TA>TD THEN A=A+2:MA=MA+0.5:MD=MD-0.5
55690 IF TD>TA THEN D=D+2:MD=MD+0.5:MA=MA-0.5
55700 IF TA=TD THEN A=A+1:D=D+1
55710 SR=RND (5)+5
55720 CHA=RND (X+SB-SC+MB)
55730 IF CHA>Y THEN TB=TB+1
55740 CHB=RND (X+SC-SB+MC)
55750 IF CHB>Y THEN TC=TC+1
55760 SR=SR-1
55770 IF SR=0 THEN GOTO 55780 ELSE GOTO 55720
55780 IF TB>TC THEN B=B+2:MB=MB+0.5:MC=MC-0.5
55790 IF TC>TB THEN C=C+2:MC=MC+0.5:MB=MB-0.5
55800 IF TC=TB THEN B=B+1:C=C+1
55810 CLS
55820 LOCATE 1,1
55830 PRINT "BRASILIEN-USA   ";TA;":";TD
55840 LOCATE 1,2
55850 PRINT "ITALIEN-SCHWEIZ ";TB;":";TC
55860 W$=INKEY$ :IF W$="" THEN GOTO 55860
55870 R=3
55880 GOTO 54940
55890 SR=RND (5)+5
55900 CHA=RND (X+SA-SC+MA)
55910 IF CHA>Y THEN TA=TA+1
55920 CHB=RND (X+SC-SA+MC)
55930 IF CHB>Y THEN TC=TC+1
55940 SR=SR-1
55950 IF SR=0 THEN GOTO 55960 ELSE GOTO 55900
55960 IF TA>TC THEN A=A+2:MA=MA+0.5:MC=MC-0.5
55970 IF TC>TA THEN C=C+2:MC=MC+0.5:MA=MA-0.5
55980 IF TA=TC THEN A=A+1:C=C+1
55990 SR=RND (5)+5
56000 CHA=RND (X+SB-SD+MB)
56010 IF CHA>Y THEN TB=TB+1
56020 CHB=RND (X+SD-SB+MD)
56030 IF CHB>Y THEN TD=TD+1
56040 SR=SR-1
56050 IF SR=0 THEN GOTO 56060 ELSE GOTO 56000
56060 IF TB>TD THEN B=B+2:MB=MB+0.5:MD=MD-0.5
56070 IF TD>TB THEN D=D+2:MD=MD+0.5:MB=MB-0.5
56080 IF TD=TB THEN B=B+1:D=D+1
56090 CLS
56100 LOCATE 1,1
56110 PRINT "BRASILIEN-SCHWEIZ ";TA;":";TC
56120 LOCATE 1,2
56130 PRINT "USA-ITALIEN       ";TD;":";TB
56140 W$=INKEY$ :IF W$="" THEN GOTO 56140
56150 R=1:AR=AR+1
56160 GOTO 54940
56170 CLS
56180 MA=0:MB=0:MC=0:MD=0
56190 LOCATE 1,0
56200 PRINT "FINAL :"
56210 LOCATE 1,1
56220 PRINT PA$;"-";PB$
56230 W$=INKEY$ :IF W$="" THEN GOTO 56230
56240 SR=RND (5)+5
56250 CHA=RND (X+FSA-FSB+2)
56260 IF CHA>Y THEN TA=TA+1
56270 CHB=RND (X+FSB-FSA)
56280 IF CHB>Y THEN TB=TB+1
56290 LOCATE 22,1
56300 PRINT TA;":";TB
56310 FOR T=1 TO 300 :NEXT T
56320 SR=SR-1
56330 IF SR=0 THEN GOTO 56340 ELSE GOTO 56250
56340 IF TA=TB THEN PRINT "VERLAENGERUNG!" ELSE GOTO 56380
56350 W$=INKEY$ :IF W$="" THEN GOTO 56350
56360 SR=3
56370 GOTO 56250
56380 CLS
56390 PRINT "SPIELENDE"
56400 FOR T=1 TO 400 :NEXT T
56410 LOCATE 1,2
56420 PRINT PA$;"-";PB$;" ";TA;":";TB
56430 W$=INKEY$ :IF W$="" THEN GOTO 56430
56440 CLS
56450 IF TA>TB THEN PRINT PA$;" IST WELTMEISTER!":WMS$=PA$:WMV$=PB$
56460 IF TB>TA THEN PRINT PB$;" IST WELTMEISTER!":WMS$=PB$:WMV$=PA$
56470 IF WMS$="BRASILIEN" THEN SA=SA+1
56480 IF WMS$="ITALIEN" THEN SB=SB+1
56490 IF WMS$="SCHWEIZ" THEN SC=SC+1
56500 IF WMS$="USA" THEN SD=SD+1
56510 IF WMV$="BRASILIEN" THEN MA=2
56520 IF WMV$="ITALIEN" THEN MB=2
56530 IF WMV$="SCHWEIZ" THEN MC=2
56540 IF WMV$="USA" THEN MD=2
56550 W$=INKEY$ :IF W$="" THEN GOTO 56520
56560 CLS
56570 GOTO 54930
56580 CLS
56590 KU=3 :GU=2*SQR 3:R=0
56600 GUU=(2*KU*GU)/(KU+GU)
56610 KUU=SQR (KU*GUU)
56620 GU=GUU
56630 KU=KUU
56640 REM R=R+1
56650 REM Z=INT (KU*10^(R-1))
56660 REM ZZ=(Z/10-INT (Z/10))*10
56670 REM LOCATE R+1,1
56680 PRINT KU
56690 GOTO 56600
56700 CLS :CLEAR :DEFDBL
56710 DEFDBL A,B,C
56720 LOCATE 8,1
56730 PRINT "QUADRATISCHE GLEICHUNGEN"
56740 Q$=INKEY$ :IF Q$="" THEN GOTO 56740
56750 CLS
56760 LOCATE 5,1
56770 PRINT "X^2"
56780 LOCATE 17,1
56790 PRINT "X"
56800 LOCATE 25,1
56810 PRINT "=  0"
56820 LOCATE 1,1
56830 INPUT A
56840 IF A=0 THEN GOTO 56820
56850 LOCATE 13,1
56860 INPUT B
56870 LOCATE 21,1
56880 INPUT C
56890 IF (SQU (B)-4*A*C)<0 THEN GOTO 57000
56900 AX=(-B+SQR (B*B-4*A*C))/(2*A)
56910 BX=(-B-SQR (B*B-4*A*C))/(2*A)
56920 LOCATE 1,2
56930 PRINT "LOESUNG(EN):"
56940 LOCATE 14,2
56950 PRINT USING "###########.######";AX
56960 LOCATE 14,3
56970 PRINT USING "###########.#######";BX
56980 Q$=INKEY$ :IF Q$="" THEN GOTO 56980
56990 GOTO 56700
57000 LOCATE 1,2
57010 PRINT "LOESUNG(EN):"
57020 LOCATE 15,2
57030 PRINT "KEINE LOESUNGEN"
57040 Q$=INKEY$ :IF Q$="" THEN GOTO 57040
57050 GOTO 56700
57060 CLEAR
57070 OPEN "COM:9600,N,8,1,A,L,&H1A,N,S"
57080 PRINT #1,0,0,0,0,0,0,0,0,99999
57090 PRINT "DATEN GESENDET":INPUT L
57100 A=A+1
57110 X=PEEK A
57120 PRINT  #1,A;
57130 PRINT #1,X
57140 GOTO 57100
