1 REM Ins{nt av 2314 10 ; CHR$(12)" POL[RFUNKTIONSPLOTT" 20 ; 30 DIM X(91),Y(90) 40 N=90 50 ; "ABS([NDPUNKTEN)"; 60 INPUT Z 70 ; 80 ; "STEGL[NGDEN X-AXELN=";Z/17 90 ; "STEGL[NGDEN Y-AXELN=";Z/11 100 ; : ; "DENNA BER[KNING KAN TA ETT TAG" 110 FOR I=1 TO N 120 D=.069813*I 130 F=2*(1-COS(D)) 140 X(I)=INT(((F*COS(D)/Z+1)*17)+.5) 150 Y(I)=INT(((-F*SIN(D)/Z+1)*11)+.5) 160 NEXT I 170 ; CHR$(12) 180 FOR J=1 TO N 190 FOR I=1 TO N-J 200 A=X(I) : ; CUR(22,30)J;" ";I 210 B=Y(I) 220 IF B<=Y(I+1) THEN 270 230 X(I)=X(I+1) 240 Y(I)=Y(I+1) 250 X(I+1)=A 260 Y(I+1)=B 270 NEXT I 280 NEXT J 285 ; CUR(22,30)SPACE$(10) 290 T=1 300 FOR P=0 TO N-1 310 IF Y(P+1)>=0 THEN 330 320 NEXT P 330 FOR I=0 TO 22 340 T=T+P 350 P=0 360 IF T>N THEN 380 370 IF Y(T)=I THEN 430 380 IF I=11 THEN 410 390 ; TAB(17)"*"; 400 GOTO 870 410 S=N+1 420 GOTO 750 430 FOR L=T TO N 440 IF Y(L)>Y(T) THEN 460 450 P=P+1 460 NEXT L 470 IF P=1 THEN 570 480 FOR J=1 TO P 490 FOR L=1 TO P-J 500 C=X(T+L-1) : ; CUR(22,30)J;" ";L 510 A=X(T+L) 520 IF C<=A THEN 550 530 X(T+L-1)=A 540 X(T+L)=C 550 NEXT L 560 NEXT J 565 ; CUR(22,30)SPACE$(10) 570 IF I=11 THEN 740 580 L=-1 590 S=0 600 FOR K=0 TO P-1 610 IF X(T+K)=L THEN 700 620 L=X(T+K) 630 IF L=17 THEN 670 640 IF L<17 THEN 680 650 IF S=1 THEN 680 660 ; TAB(17)"*"; 670 S=1 680 IF L>34 THEN 870 690 ; TAB(L)"+"; 700 NEXT K 710 IF S=1 THEN 870 720 ; TAB(17)"*"; 730 GOTO 870 740 S=T 750 FOR J=0 TO 34 760 IF X(S)<>J THEN 840 770 ; "+"; 780 FOR K=S TO T+P-1 790 IF X(K)=X(S) THEN 820 800 S=K 810 GOTO 850 820 NEXT K 830 GOTO 850 840 ; "*"; 850 NEXT J 860 ; "X"; 870 ; 880 NEXT I 890 ; TAB(17)"y"; 900 REM 910 END