5 FORV=1TO25:PRINT:NEXT 10 PRINT"PLOTTINGPROGRAMM" 15 PRINT"----------------" 20 PRINT:PRINT 25 PRINT"DIE FUNKTION IST IN ZEILE 100 EINZUGEBEN." 30 PRINT:PRINT 35 INPUT"WEITER '*'";A$ 99 GOTO1000 100 Y=X^10 999 RETURN 1000 FORV=1TO25:PRINT:NEXT 1005 DIMX(25):DIMA(25) 1006 FORV=54051TO54172:POKEV,32:NEXT 1010 INPUT"X-MINIMUM";M 1015 PRINT 1020 INPUT"X-MAXIMUM";N 1025 PRINT:PRINT:PRINT 1030 X=(ABS(N)+ABS(M))/24 1040 FORV=0TO24 1050 X(V)=M+V*X 1060 NEXT 1070 FORV=0TO24 1080 X=X(V) 1090 GOSUB100 1100 IFYSTHENS=Y 1115 NEXT 1120 PRINT"SUPREMUM ";S 1125 PRINT 1130 PRINT"INFIMUM ";I 1140 PRINT:PRINT:PRINT 1150 INPUT"WEITER '*'";X$ 1160 FORV=1TO25:PRINT:NEXT 1200 F=(ABS(I)+ABS(S))/22 1210 IFSGN(S)-SGN(I)=0THEN1250 1220 FORV=1TO25 1230 POKE53795+V+32*INT(((I+S)/2)/F),25 1240 NEXT 1250 O=53797+32*INT(((I+S)/2)/F) 1260 IFSGN(M)-SGN(N)=0THEN1300 1270 P=12+INT(M/((ABS(M)+ABS(N))/24)) 1280 FORV=0TO24 1285 POKE53393-P+32*V,125 1290 NEXT 1300 FORV=0TO24 1310 IFV=0THEN1330 1330 X=X(V) 1340 GOSUB100 1350 A(V)=O+V-32*INT(Y/F) 1360 C=INT((Y-INT(Y))*8)+128 1370 IFPEEK(B)=25THEN1400 1380 IFC=136THENC=135 1390 POKEA(V),C 1400 NEXT 1500 POKE53690,88:POKE53691,62 1510 POKE53480,89:POKE53448,94 2000 GOTO1010 OK