10 REM WINKELFUNKTIONEN 15 K=57.29577952 20 FORV=1TO26:PRINT:NEXT 30 PRINT"WINKELFUNKTIONEN" 40 PRINT 50 INPUT"DEG ODER RAD";X$ 55 X=0 60 IFX$="DEG"THENX=1:GOTO80 70 IFX$<>"RAD"THEN40 80 FORV=1TO26:PRINT:NEXT 100 PRINT"FUNKTIONEN" 105 PRINT 110 PRINT"1 > SIN" 115 PRINT 120 PRINT"2 > COS" 125 PRINT 130 PRINT"3 > TAN" 135 PRINT 140 PRINT"4 > COT" 145 PRINT 150 PRINT"5 > ARCSIN" 155 PRINT 160 PRINT"6 > ARCCOS" 165 PRINT 170 PRINT"7 > ARCTAN" 175 PRINT 180 PRINT"8 > ARCCOT" 185 PRINT 190 PRINT 195 INPUTF 200 IFF>8THEN90 205 FORV=1TO26:PRINT:NEXT 210 ONFGOTO1100,1200,1300,1400,1500,1600,1700,1800 220 GOTO100 1000 PRINT:PRINT 1010 PRINT"WEITER > W" 1020 PRINT 1030 PRINT"ZURUECK > Z" 1040 PRINT 1050 L=57088:POKE530,1 1060 POKEL,239 1070 IFPEEK(L)=127THEN200 1080 POKEL,253 1090 IFPEEK(L)=223THENRUN 1095 GOTO1060 1100 REM SIN 1110 INPUT"SIN";Y 1111 PRINT 1112 PRINT"SIN ";Y;" = "; 1120 IFX=1THENY=Y/K 1130 Z=SIN(Y) 1150 PRINTZ 1160 GOTO1000 1200 REM COS 1210 INPUT"COS";Y 1215 PRINT 1220 PRINT"COS ";Y;" = "; 1230 IFX=1THENY=Y/K 1240 Z=COS(Y) 1250 PRINTZ 1260 GOTO1000 1300 REM TAN 1310 INPUT"TAN";Y 1320 PRINT 1330 PRINT"TAN ";Y;" = "; 1340 IFX=1THENY=Y/K 1350 PRINTTAN(Y) 1360 GOTO1000 1400 REM COT 1410 INPUT"COT";Y 1415 IFY=0THENPRINT:PRINT"NICHT DEFINIERT !":PRINT:GOTO1410 1420 PRINT 1430 PRINT"COT ";Y;" = "; 1440 IFX=1THENY=Y/K 1450 PRINT1/TAN(Y) 1460 GOTO1000 1500 REM ARCSIN 1510 INPUT"ARCSIN";Y 1520 PRINT 1530 IFY<(-1)ORY>1THENPRINT"NICHT DEFINIERT !":PRINT:GOTO1500 1531 IFY=1THENZ=1.570796326:GOTO1560 1532 IFY=(-1)THENZ=(-1.570796326):GOTO1560 1540 PRINT"ARCSIN ";Y;" = "; 1550 Z=ATN(Y/SQR(1-Y^2)) 1560 IFX=1THENZ=Z*K 1570 PRINTZ 1580 GOTO1000 1600 REM ARCCOS 1610 INPUT"ARCCOS";Y 1615 PRINT 1620 IFY<(-1)ORY>1THENPRINT"NICHT DEFINIERT !":PRINT:GOTO1600 1625 IFY=0THENZ=1.570796326:GOTO1640 1626 IFY=(-1)THENZ=3.141592653:GOTO1640 1627 IFY=1THENZ=0:GOTO1640 1630 Z=ATN(SQR(1-Y^2)/Y) 1640 IFX=1THENZ=Z*K 1650 PRINTZ 1660 GOTO1000 1700 REM ARCTAN 1710 INPUT"ARCTAN";Y 1715 PRINT 1730 PRINT"ARCTAN ";Y;" = "; 1740 Z=ATN (Y) 1750 IFX=1THENZ=Z*K 1760 PRINTZ 1770 GOTO1000 1800 REM ARCCOT 1810 INPUT"ARCCOT";Y 1815 PRINT 1820 PRINT"ARCCOT ";Y;" = "; 1830 IFY=0THENZ=3.141592653:GOTO1850 1840 Z=ATN(1/Y) 1845 IFZ<0THENZ=Z+3.141592653 1850 IFX=1THENZ=Z*K 1860 PRINTZ 1870 GOTO1000 OK