0 IFPEEK(50307)=120THENPOKE50257,0:REM ZEILE 0 BITTE KANN GELOESCHT WERDEN!
100 REM TITEL
110 POKE53280,0:POKE53281,0:PRINT"[147]";CHR$(8);CHR$(142)
120 X=INT(RND(0)*15):IFX=0THEN120
130 POKE646,X
140 PRINT""
150 PRINT"             "
160 PRINT"          "
170 PRINT"               "
180 PRINT"        "
190 PRINT"          "
200 PRINT"" :POKE646,INT(RND(1)*15)
210 PRINT"       [146][180]     "
220 PRINT"   [146][181]  "
230 PRINT" [161]    [146][161]    "
240 PRINT"    [161]   "
250 PRINT"       [146][182]     "
260 FORT=1TO50
270 GETA$:IFA$<>""THENCLR:GOTO300
280 NEXT
290 GOTO120
300 CLR:REM HAUPTMENUE
310 POKE204,1:
320 POKE53280,0:POKE53281,0:PRINT"[147]"
325 TN$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":VO$="-----"
327 DF=999999999999:VO$="------":FL$=VO$:UM$=VO$
330 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
340 PRINT"[194][158] MATHE-GENIE WRITTEN BY A.WALSLEBEN   [146][194]";TN$;
360 PRINT"[194] AUSWAHL UEBER CURSOR-STEUERUNG+RETURN[194]";TN$;
380 PRINT"[194]   QUADRAT         [194]   RECHTECK       [194]";TN$;
400 PRINT"[194]   VIELECK         [194]   DREIECK        [194]";TN$;
420 PRINT"[194]   KREIS           [194]   QUADER         [194]";TN$;
440 PRINT"[194]   WUERFEL         [194]   SEGMENT        [194]";TN$;
460 PRINT"[194]   ELLIPSE         [194]   KREISRING      [194]";TN$;
480 PRINT"[194]   SEKTOR          [194]   TRAPEZ         [194]";TN$;
500 PRINT"[194]   KEGEL           [194]   PYRAMDIE       [194]";TN$;
520 PRINT"[194]   ZYLINDER        [194]   I N F O[146]        [194]";TN$;
540 PRINT"[194]   PRIMFAKTORZER.  [194]   POTENZEN       [194]";
550 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
560 POKE646,7
570 Y=6:X=1:X(1)=X:Y(1)=Y:POKE214,Y:POKE211,X:SYS58732:PRINT" [209] [146]"
580 GETA$:IFA$=""THEN580
590 IFA$=CHR$(13)THEN690
600 IFA$=""THENX=X+20:IFX>21THENX=1
610 IFA$="[157]"THENX=X-20:IFX<1THENX=21
620 IFA$=""THENY=Y+2:IFY>22THENY=6
630 IFA$="[145]"THENY=Y-2:IFY<6THENY=22
640 IFX<>X(1)ORY(1)<>YTHEN660
650 GOTO 580
660 GOSUB4270
670 POKE214,Y:POKE211,X:SYS58732:PRINT" [209] [146]"
680 GOTO 580
690 REM WELCHES FELD
700 IFY=6THEN790:REM FELD I
710 IFY=8THEN1130:REM FELD II
720 IFY=10THEN1430:REM FELD III
730 IFY=12THEN1740:REM FELD IIII
740 IFY=14THEN2040:REM FELD V
750 IFY=16THEN2280:REM FELD VI
760 IFY=18THEN2500:REM FELD VII
770 IFY=20THEN2690:REM FELD VIII
780 IFY=22THEN2930:REM FELD IX
790 IFX<>1THEN950:REM RECHTECK
800 REM QUADRAT
810 FE$=" QUADRAT [146]"
820 GOSUB3700:REM MODUL FUER UEBERSCHR. BRAUCHT VARI. FE$
830 FL=0:UM=0:VO=0:TA$="":EI=0:PP$=""
840 PRINT"[146]SEITENLAENGE A ?";
845 Z=7:GR=DF:REM GRENZE
850 GOSUB3780:REM MODUL II FUER TASTATURABFRAGE
860 FL=EI*EI:UM=4*EI:VO=0:EI(1)=EI:EI(2)=0
870 UM$="A*4":FL$="A*A"
880 GOSUB4360 :REM WERTE AUSGEBEN
910 GOSUB4190:REM MODUL OB NOCHMAL
920 IFJ=0THEN300
930 IFJ=1THEN800
940 GOTO 910
950 REM RECHTECK
960 FE$=" RECHTECK "
970 GOSUB3700
980 FL=0:UM=0:VO=0:TA$="":EI=0:PP$=""
990 PRINT"[146]SEITENLAENGE A ?";
995 Z=7:GR=DF
1000 GOSUB3780
1010 EI(1)=EI
1020 PRINTCHR$(13);"SEITENLAENGE B ?";
1025 Z=9:GR=DF
1030 GOSUB3780
1040 EI(2)=EI
1050 FL=EI(1)*EI(2):UM=2*EI(1)+2*EI(2):VO=0:FL$="A*B":UM$="2*A+2*B"
1060 GOSUB4360:REM WERTE AUSGEBEN
1090 GOSUB4190
1100 IFJ=1THEN950
1110 IF J=0THEN300
1120 GOTO 1090
1130 REM FELD II
1140 IFX<>1THEN1300
1150 FE$=" VIELECK ":GOSUB3700
1160 FL=0:UM=0:VO=0:TA$="":EI=0:PP$=""
1165 Z=7:GR=DF
1170 PRINT:PRINT"SEITENLAENGE A ?        [157][157][157][157][157][157][157]";:GOSUB3780
1180 EI(1)=EI:IFEI(1)=0THENPRINT"[145][145][145]":GOTO1170
1185 Z=9:GR=10
1190 PRINT:PRINT"SEITENZAHL N ?        [157][157][157][157][157][157][157]";:GOSUB3780
1200 EI(2)=EI:IFEI(2)<3THENPRINT"[145][145][145]":GOTO1190
1210 VO=0:UM=EI(1)*EI(2):UM$="A*N"
1220 R=EI(1)/2/TAN((null)/EI(2))
1230 FL=EI(1)*R*EI(2):R=0:FL$="A*(A/2/TAN([255]/N))*N"
1240 GOSUB4360:REM WERTE AUSGEBEN
1270 GOSUB4190
1280 IFJ=0THEN 300
1290 IFJ=1THEN 1130
1300 REM DREIECK
1310 FE$=" DREIECK "
1320 GOSUB3700
1325 Z=7:GR=DF
1330 PRINT:PRINT"GRUNDSEITE A ?";:GOSUB3780
1340 EI(1)=EI
1345 Z=9:GR=DF
1350 PRINT:PRINT"HOEHE      H ?";:GOSUB3780
1360 EI(2)=EI
1370 FL=EI(1)*EI(2)/2:UM=0:VO=0:FL$="A*H/2"
1380 GOSUB4360 :REM WERTE AUSGEBEN
1400 GOSUB4190
1410 IFJ=0THEN300
1420 IFJ=1THEN1300
1430 REM FELD III
1440 IFX<>1THEN1580
1450 REM KREIS
1460 FE$=" KREIS "
1470 GOSUB3700
1475 Z=7:GR=DF
1480 PRINT:PRINT"RADIUS   R ?";:GOSUB3780
1490 EI(1)=EI
1500 FL=EI(1)*EI(1)*(null):UM=2*EI(1)*(null):VO=0
1510 FL$="R^2*[255]":UM$="2*R*[255]"
1520 GOSUB4360 :REM WERTE AUSGEBEN
1550 GOSUB4190
1560 IF J=0THEN 300
1570 IF J=1THEN 1430
1580 REM QUADER
1590 FE$=" QUADER  ":GOSUB3700
1595 Z=7:GR=DF
1600 PRINT:PRINT"LAENGE A ?";:GOSUB3780:EI(1)=EI
1605 Z=9:GR=DF
1610 PRINT:PRINT"BREITE B ?";:GOSUB3780:EI(2)=EI
1615 Z=11:GR=DF
1620 PRINT:PRINT"HOEHE  H ?";:GOSUB3780:EI(3)=EI
1630 VO=EI(1)*EI(2)*EI(3)
1640 VO$="A*B*H":UM$="A*4+B*4+H*4":FL$="2*(A*B)+2*(A*H)+2*(B*H)
1650 FL[178]2[172](EI(1)[172]EI(2))[170]2[172](EI(1)[172]EI(3))[170]2[172](EI(2)[172]EI(3))
1660 UM[178]EI(1)[172]4[170]EI(2)[172]4[170]EI(3)[172]4
1670 [141]4360 :[143] WERTE AUSGEBEN
1710 [141]4190
1720 [139]J[178]0[167]300
1730 [139]J[178]1[167]1580
1740 [143] FELD IIII
1750 [139]X[179][177]1[167]1880
1760 FE$[178]" WUERFEL ":[141]3700
1765 Z[178]7:GR[178]DF
1770 [153]:[153]"SEITENLAENGE A ? ";:[141]3780:EI(1)[178]EI
1780 FL[178]EI(1)[172]EI(1)[172]6:FL$[178]"A*A*6":UM$[178]"A*12":VO$[178]"A*A*A"
1790 UM[178]EI(1)[172]12
1800 VO[178]EI(1)[172]EI(1)[172]EI(1)
1810 [141]4360:[143] WERTE AUSGEBEN
1850 [141]4190
1860 [139]J[178]0[167]300
1870 [137] 1760
1880 [143] SEGMENT
1890 FE$[178]" SEGMENT ":[141]3700:[153]:[153]
1895 Z[178]7:GR[178]DF
1900 [153]:[153]"ONONHOEHE  H ? ";:[141]3780:EI(1)[178]EI:[139]EI[178]0[167]1900
1910 [153]:[153]
1915 Z[178]9:GR[178]DF
1920 [153]:[153]"ONONSEHNE  A ? ";:[141]3780:EI(2)[178]EI:[139]EI[178]0[167]1920
1930 R[178]EI(1)[173]2[170]EI(2)[172]EI(2)[173](8[172]EI(1))
1935 [139]EI(2)[177]2[172]R[167]1880
1940 L[178][186](EI(2)[172]EI(2)[170]((16[173]3)[172](EI(1)[172]EI(1))))
1950 FL[178].5[172](L[172]R[171]EI(2)[172](R[171]EI(1)))
1960 UM[178]L[170]EI(2):VO[178]0
1970 UM$[178]"A+L":FL$[178]".5*(L*R-(A*(R-H)))"
1980 [141]4360:[143] WERTE AUSGEBEN
1990 [153]:[153]"BOGEN  L  =     "L:[153]:[153]"RADIUS R  =     "R
2010 [141]4190
2020 [139]J[178]0[167] 300
2030 [137]1890
2040 [143] FELD V
2050 [139] X[179][177]1[167]2180
2060 [143] ELLIPSE
2070 FE$[178]" ELLIPSE ":[141]3700
2075 Z[178]7:GR[178]DF
2080 [153]:[153]"HAUPTACHSE A ? ";:[141]3780:EI(1)[178]EI
2085 Z[178]9:GR[178]DF
2090 [153]:[153]"NEBENACHSE B ? ";:[141]3780:EI(2)[178]EI
2100 FL[178]EI(1)[172]EI(2)[172][255][173]4:VO[178]0
2110 FL$[178]"A*B*(null)/4"
2120 UM[178]0
2130 [141]4360:[143] WERTE AUSGEBEN
2150 [141]4190
2160 [139]J[178]0[167]300
2170 [137] 2060
2180 [143] KREISRING
2190 FE$[178]" KREISRING ":[141]3700
2195 Z[178]7:GR[178]DF
2200 [153]:[153]"INNENRADIUS  R1 ? ";:[141]3780:EI(1)[178]EI
2205 Z[178]9:GR[178]DF
2210 [153]:[153]"AUSSENRADIUS R2 ? ";:[141]3780:EI(2)[178]EI
2220 FL[178](EI(2)[170]EI(1))[172](EI(2)[171]EI(1))[172][255]
2230 UM[178]2[172]EI(2)[172][255] :VO[178]0:UM$[178]"2*R2*(null)":FL$[178]"((R1+R2)*(R2-R1)*(null))"
2240 [141]4360:[143] WERTE AUSGEBEN
2260 [141]4190:[139]J[178]0[167]300
2270 [137]2190
2280 [143] FELD VI
2290 [139]X[179][177]1[167]2410
2300 [143] SEKTOR
2310 FE$[178]" SEKTOR ":[141]3700
2315 Z[178]7:GR[178]DF
2320 [153]:[153]"RADIUS       R ? ";:[141]3780:EI(1)[178]EI
2325 Z[178]9:GR[178]360
2330 [153]:[153]"ZENTRIWINKEL W ? ";:[141]3780:EI(2)[178]EI
2340 FL[178]EI(1)[172]EI(1)[172][255][172]EI(2)[173]360:VO[178]0:UM$[178]"":FL$[178]"R*R*(null)*W/360"
2350 UM[178]2[172]EI(1)[172](1[170]EI(2)[173]360[172][255]):UM$[178]"2*R*(1+W/360*(null))
2360 GOSUB4360:REM WERTE AUSGEBEN
2390 GOSUB4190:IFJ=0THEN300
2400 GOTO2300
2410 REM TRAPEZ
2420 FE$=" TRAPEZ ":GOSUB3700
2425 Z=7:GR=DF
2430 PRINT:PRINT"SEITENLAENGE A ? ";:GOSUB3780:EI(1)=EI
2435 Z=9:GR=DF
2440 PRINT:PRINT"SEITENLAENGE B ? ";:GOSUB3780:EI(2)=EI
2445 Z=11:GR=DF
2450 PRINT:PRINT"HOEHE        H ? ";:GOSUB3780:EI(3)=EI:PRINT
2460 VO=0:FL=(EI(1)+EI(2))/2*EI(3):UM=0:VO$=UM$:FL$="(A+B)/2*H"
2470 GOSUB4360:REM WERTE AUSGEBEN
2480 GOSUB4190:IFJ=0THEN300
2490 IFJ=1THEN2410
2500 REM FELD VII
2510 IFX<>1THEN2610
2520 REM KEGEL
2530 FE$=" KEGEL ":GOSUB3700
2535 Z=7:GR=DF
2540 PRINT:PRINT"RADIUS  R ? ";:GOSUB3780:EI(1)=EI
2545 Z=9:GR=DF
2550 PRINT:PRINT"HOEHE   H ? ";:GOSUB3780:EI(2)=EI
2560 FL=0:UM=0:VO=(1/3)*EI(2)*(EI(1)^2)*(null):VO$="(1/3)*H*(R^2)*[255]
2570 UM$[178]FL$
2580 [141]4360:[143] WERTE AUSGEBEN
2585 [141]4190
2590 [139]J[178]0[167]300
2600 [137]2520
2610 [143] PYRAMIDE
2620 FE$[178]" PYRAMIDE ":[141]3700
2625 Z[178]7:GR[178]DF
2630 [153]:[153]"SEITENLAENGE A ? ";:[141]3780:EI(1)[178]EI
2635 Z[178]9:GR[178]DF
2640 [153]:[153]"HOEHE        H ? ";:[141]3780:EI(2)[178]EI
2650 FL[178]0:UM[178]0:VO[178](EI(1)[172]EI(2))[172](EI(2)[173]3):UM$[178]FL$:VO$[178]"(A*H)*(H/3)"
2660 [141]4360:[143] WERTE AUSGEBEN
2665 [141]4190
2670 [139]J[178]0[167]300
2680 [137] 2610
2690 [143] FELD VIII
2700 [139]X[179][177]1[167]2790
2710 FE$[178]" ZYLINDER ":[141]3700
2715 Z[178]7:GR[178]DF
2720 [153]:[153]"RADIUS  R ? ";:[141]3780:EI(1)[178]EI
2725 Z[178]9:GR[178]DF
2730 [153]:[153]"HOEHE   H ? ";:[141]3780:EI(2)[178]EI
2740 FL[178]0:UM[178]0:VO[178]EI(1)[174]2[172][255][172]EI(2):VO$[178]"R^2*(null)*H"
2750 [141]4360:[143] WERTE AUSGEBEN
2760 [141]4190:[139]J[178]0[167]300
2770 [137] 2710
2780 [128]
2790 [143] INFO
2800 [153]"LOADSYS":[153]:[153]:[153]:TA[178]6:
2805 TT$[178]"      PEEK                         PEEK"
2810 [153][163]TA)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^":[153]TT$
2825 [153][163]TA)"PEEK          (C)            PEEK":[153]TT$
2835 [153][163]TA)"PEEK        INPUT 64         PEEK":[153]TT$:[153]TT$:[153]TT$
2855 [153][163]TA)"PEEK                ORTANTANTANTANTANTAN^ PEEK"
2860 [153][163]TA)"PEEK                PEEKRETURNPEEK PEEK"
2865 [153][163]TA)"PEEK                /TANTANTANTANTANTANEXP PEEK"
2870 [153][163]TA)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
2880 [161]A$:[139]A$[178]""[167]2880
2910 [138]
2920 [128]
2930 [143] FELD IX
2940 [139]X[179][177]1[167]3430
2950 [143] PRIMFAKTOR-ZERLEGUNG
2960 FE$[178]"PRIMFAKTORZER.":[141]3700
2965 EI$[178]"":Z[178]7:GR[178]50000
2970 [153]:[153]"ZAHL  ? ";:[141]3780
2980 EI(1)[178]EI:ZZ[178]EI
2990 [139]EI(1)[179][177][181](EI(1))[176]EI(1)[179]1[167]2970
3000 :
3010 T[178]2
3020 [153]:[153]:[153]EI(1);"=";
3030 [141]3130
3040 T[178]3
3050 [139]EI(1)[178]1[167]3100
3060 [139]T[177][186](EI(1))[167]3100
3070 [141]3130
3080 T[178]T[170]2
3090 [137]3050
3100 [139]EI(1)[178]1[167][153]"CMD ":[137]3120
3110 [139]EI$[179][177]""[167]EI$[178][202](EI$,1,[195](EI$)[171]1)[170][196](EI(1))
3115 [139]EI(1)[178]ZZ[167][153]" PRIMZAHL!!":[137]3120
3117 [153]EI(1)
3120 N[178]0:[141]4190:[139]J[178]0[167]300
3125 [137]2950
3130 Q[178]EI(1)[173]T
3140 [139]Q[179][177][181](Q)[167]3160
3150 [153]T;"*";:EI(1)[178]Q:EI$[178]EI$[170][196](T)[170]" * ":[137]3130
3160 [142]
3430 [143] POTENZ-RECHNUNG
3440 FE$[178]" POTENZEN "
3450 [141]3700
3455 Z[178]7:GR[178]500
3460 [153]:[153]"BASIS    ?        CMDCMDCMDCMDCMDCMDCMD";:[141]3780:EI(1)[178]EI
3470 Z[178]9:[141]4430:JS[178]1:[143] GR BERECHNEN
3480 [153]:[153]"EXPONENT ?        CMDCMDCMDCMDCMDCMDCMD";:[141]3780:EI(2)[178]EI
3500 ER[178]EI(1)[174]EI(2)
3510 [153]:[153]"ERGEBNIS = ";ER
3520 [141]4190:[139]J[178]1[167]3430
3530 [137]300
3700 [143] MODUL FUER UEBERSCHRIFT
3710 [151]53280,0:[151]53281,0:[153]"LOAD";
3720 ZZ$[178]"    ***                          *** WAIT"
3730 [129]T[178]1[164]3:[153]ZZ$:[130]
3740 [153]"";[163]15);FE$
3750 [153]"SYS GEBEN SIE DIE ENTSPRECHENDEN"
3760 [153]" DATEN EIN UND DRUECKEN SIE 'RETURN'"
3770 [142]:[143] ENDE MODUL I
3780 [143] MODUL TASTATURABFRAGE
3790 A$[178]"":AA[178]0:PP$[178]"":QQ$[178]"":EI[178]0:
3800 [151]211,17:[151]214,Z:[158]58732:[153]"             CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD_";
3810 [161]A$:[139]A$[178]""[167]3810
3820 [139]A$[178][199](13)[167] 3950
3830 [139]A$[178][199](20)[167]3900
3840 [139]A$[178]"."     [167]3870
3850 AA[178][198](A$)
3860 [139] AA[179]48 [176] AA[177]57 [167]3810
3870 [153][199](20);A$;"_";
3880 PP$[178]PP$[170]A$
3885 [139][195](PP$)[177]11[167][161]A$:[139]A$[179][177][199](13)[167]3885
3887 [139]A$[178][199](13)[167]3950
3890 [137] 3810
3900 [139][195](PP$)[178]0[167] 3810
3910 [153]A$;A$;"_";
3920 QQ$[178][200](PP$,[195](PP$)[171]1)
3930 PP$[178]QQ$:QQ$[178]""
3940 [137] 3810
3950 [153][199](20);:EI[178][197](PP$)
3955 [139](EI[178]0[175]JS[178]0)[176]EI[177]GR[167]3790
3956 [153]:[142]
4190 [143] MODUL OB NOCHMAL
4200 [141]4290:[143] FORMELN AUSGEBEN
4210 [151]211,0:[151]214,23:[158]58732
4220 [153]"SYS         NOCHMAL (J/N) ?                WAIT";
4225 [151]198,0:
4230 [161]A$:[139]A$[178]""[167]4230
4235 J[178]0
4240 [139]A$[178]"J"[167]J[178]1
4250 [142]
4260 [137]4230
4270 [151]214,Y(1):[151]211,X(1):[158]58732:[153]"   ":Y(1)[178]Y:X(1)[178]X
4280 [142]
4290 A$[178][202](FE$,1,4):[139]A$[178]"PRI"[176]A$[178]" PO"[167][142]
4300 [143] FORMELN AUSGEBEN
4301 [151]211,0:[151]214,19:[158]58732
4310 [153]"             F O R M E L N              ";
4320 [153]"WAITFLAECHE    =   ";FL$
4330 [153]"UMFANG     =   ";UM$
4340 [153]"VOLUMEN    =   ";VO$
4350 [142]
4360 [143] MODUL WERTE AUSGEBEN
4370 :
4380 [139]FL[179][177]0[167][153]:[153]"FLAECHE   =     "FL
4390 [139]UM[179][177]0[167][153]:[153]"UMFANG    =     "UM
4410 [139]VO[179][177]0[167][153]:[153]"VOLUMEN   =     "VO
4420 [142]
4430 [143] OVERFLOW FUER POTENZRECHNUNG
4440 GR[178]126:PO[178]EI(1)
4450 [139]PO[179]3[167]4600
4460 GR[178]38:[139]PO[179]11[167]4600
4470 GR[178]24:[139]PO[179]40[167]4600
4480 GR[178]19:[139]PO[179]101[167]4600
4490 GR[178]18:[139]PO[179]131[167]4600
4500 GR[178]17:[139]PO[179]176[167]4600
4510 GR[178]16:[139]PO[179]246[167]4600
4520 GR[178]15:[139]PO[179]351[167]4600
4530 GR[178]14
4600 [142]