|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »PNLINKRV.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNLINKRV.K«
2590 PROC LINKRV(XIN,XAX,XSKA,YSKA,XNUL,YNUL,LITY,AKSR,XTE,YTE) 2600 REM ********************************************************* 2610 REM *LINKRV PLOTTER EN KURVE AF FUNKTIONEN ANGIVET I PROCE- * 2620 REM *DUREN FUNK FRA XIN TIL XAX. HVIS XSKA OG/ELLER YSKA ER * 2630 REM *MINDRE END NUL FORETAGES EN AUTOMATISK BESTEMMELSE AF * 2640 REM *SKALERINGEN OG NULPUNKTET. ELLERS BENYTTES EN SKALERING* 2650 REM *BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT AF XNUL, * 2660 REM *YNUL. KURVEN PLOTTES MED DEN AF LITY VALGTE LINIETYPE. * 2670 REM *HVIS AKSR ER LIG MED EEN UDTEGNES DESUDEN KOORDINAT- * 2680 REM *AKSER MED TEKSTERNE XTE OG YTE PÅSAT, OG PLOTTERENS * 2690 REM *NULPUTNKT FASTSÆTTES. * 2700 REM ********************************************************* 2710 LIN$="LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL;YMI=9.2E18;YMX=-9.2E18 2720 FOR XK=XIN TO XAX STEP (XAX-XIN)/100 2730 EXEC FUNK(XK,FXK) 2740 IF FXK<=YMI THEN YMI=FXK 2750 IF FXK=>YMX THEN YMX=FXK 2760 NEXT XK 2770 EXEC KOSYS(XIN,XAX,YMI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$) 2780 EXEC FUNK(XIN,FXK) 2790 EXEC FLYTABS((XIN*XS+XØ),(FXK*YS+YØ)) 2800 FOR XK=XIN TO XAX STEP 10/XS 2810 EXEC FUNK(XK,FXK) 2820 EXEC TEGNABS(LITY,(XK*XS+XØ),(FXK*YS+YØ)) 2830 NEXT XK 2840 EXEC PENOP 2850 ENDPROC ;LINKRV.
0x0000…0041 Line {l1=0x3f, l2=»2590 PROC LINKRV(XIN,XAX,XSKA,YSKA,XNUL,YNUL,LITY,AKSR,XTE,YTE)«, l3=0x3f}
0x0041…0085 Line {l1=0x42, l2=»2600 REM *********************************************************«, l3=0x42}
0x0085…00c9 Line {l1=0x42, l2=»2610 REM *LINKRV PLOTTER EN KURVE AF FUNKTIONEN ANGIVET I PROCE- *«, l3=0x42}
0x00c9…010d Line {l1=0x42, l2=»2620 REM *DUREN FUNK FRA XIN TIL XAX. HVIS XSKA OG/ELLER YSKA ER *«, l3=0x42}
0x010d…0151 Line {l1=0x42, l2=»2630 REM *MINDRE END NUL FORETAGES EN AUTOMATISK BESTEMMELSE AF *«, l3=0x42}
0x0151…0195 Line {l1=0x42, l2=»2640 REM *SKALERINGEN OG NULPUNKTET. ELLERS BENYTTES EN SKALERING*«, l3=0x42}
0x0195…01d9 Line {l1=0x42, l2=»2650 REM *BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT AF XNUL, *«, l3=0x42}
0x01d9…021d Line {l1=0x42, l2=»2660 REM *YNUL. KURVEN PLOTTES MED DEN AF LITY VALGTE LINIETYPE. *«, l3=0x42}
0x021d…0261 Line {l1=0x42, l2=»2670 REM *HVIS AKSR ER LIG MED EEN UDTEGNES DESUDEN KOORDINAT- *«, l3=0x42}
0x0261…02a5 Line {l1=0x42, l2=»2680 REM *AKSER MED TEKSTERNE XTE OG YTE PÅSAT, OG PLOTTERENS *«, l3=0x42}
0x02a5…02e9 Line {l1=0x42, l2=»2690 REM *NULPUTNKT FASTSÆTTES. *«, l3=0x42}
0x02e9…032d Line {l1=0x42, l2=»2700 REM *********************************************************«, l3=0x42}
0x032d…0375 Line {l1=0x46, l2=»2710 LIN$="LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL;YMI=9.2E18;YMX=-9.2E18«, l3=0x46}
0x0375…03a0 Line {l1=0x29, l2=»2720 FOR XK=XIN TO XAX STEP (XAX-XIN)/100«, l3=0x29}
0x03a0…03b8 Line {l1=0x16, l2=»2730 EXEC FUNK(XK,FXK)«, l3=0x16}
0x03b8…03d7 Line {l1=0x1d, l2=»2740 IF FXK<=YMI THEN YMI=FXK«, l3=0x1d}
0x03d7…03f6 Line {l1=0x1d, l2=»2750 IF FXK=>YMX THEN YMX=FXK«, l3=0x1d}
0x03f6…0404 Line {l1=0x0c, l2=»2760 NEXT XK«, l3=0x0c}
0x0404…044b Line {l1=0x45, l2=»2770 EXEC KOSYS(XIN,XAX,YMI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$)«, l3=0x45}
0x044b…0464 Line {l1=0x17, l2=»2780 EXEC FUNK(XIN,FXK)«, l3=0x17}
0x0464…0490 Line {l1=0x2a, l2=»2790 EXEC FLYTABS((XIN*XS+XØ),(FXK*YS+YØ))«, l3=0x2a}
0x0490…04b3 Line {l1=0x21, l2=»2800 FOR XK=XIN TO XAX STEP 10/XS«, l3=0x21}
0x04b3…04cb Line {l1=0x16, l2=»2810 EXEC FUNK(XK,FXK)«, l3=0x16}
0x04cb…04fb Line {l1=0x2e, l2=»2820 EXEC TEGNABS(LITY,(XK*XS+XØ),(FXK*YS+YØ))«, l3=0x2e}
0x04fb…0509 Line {l1=0x0c, l2=»2830 NEXT XK«, l3=0x0c}
0x0509…051a Line {l1=0x0f, l2=»2840 EXEC PENOP«, l3=0x0f}
0x051a…0531 Line {l1=0x15, l2=»2850 ENDPROC ;LINKRV.«, l3=0x15}
0x0531…0540 00 00 20 43 41 53 45 20 46 49 47 55 52 24 20 ┆ CASE FIGUR$ ┆
0x0540…0560 4f 46 20 14 14 30 35 35 30 20 4f 55 54 50 55 54 20 54 45 52 4d 49 4e 41 4c 14 23 30 35 36 30 20 ┆OF 0550 OUTPUT TERMINAL #0560 ┆
0x0560…0580 50 52 49 4e 54 20 22 46 45 4a 4c 20 49 20 46 49 47 55 52 20 41 4e 47 49 56 45 4c 53 45 22 23 09 ┆PRINT "FEJL I FIGUR ANGIVELSE"# ┆
0x0580…05a0 30 35 37 30 20 46 3d 2d 31 09 10 30 35 38 30 20 57 48 45 4e 20 22 50 4c 55 53 22 10 08 30 35 39 ┆0570 F=-1 0580 WHEN "PLUS" 059┆
0x05a0…05c0 30 20 46 3d 30 08 10 30 36 30 30 20 57 48 45 4e 20 22 4b 4f 52 53 22 10 08 30 36 31 30 20 46 3d ┆0 F=0 0600 WHEN "KORS" 0610 F=┆
0x05c0…05e0 31 08 13 30 36 32 30 20 57 48 45 4e 20 22 46 49 52 4b 41 4e 54 22 13 08 30 36 33 30 20 46 3d 32 ┆1 0620 WHEN "FIRKANT" 0630 F=2┆
0x05e0…0600 08 14 30 36 34 30 20 57 48 45 4e 20 22 4f 54 54 45 4b 41 4e 54 22 14 08 30 36 35 30 20 46 3d 33 ┆ 0640 WHEN "OTTEKANT" 0650 F=3┆
0x0600…0620 08 13 30 36 36 30 20 57 48 45 4e 20 22 54 52 45 4b 41 4e 54 22 13 08 30 36 37 30 20 46 3d 34 08 ┆ 0660 WHEN "TREKANT" 0670 F=4 ┆
0x0620…0640 14 30 36 38 30 20 57 48 45 4e 20 22 54 49 4d 45 47 4c 41 53 22 14 08 30 36 39 30 20 46 3d 35 08 ┆ 0680 WHEN "TIMEGLAS" 0690 F=5 ┆
0x0640…0660 0d 30 37 30 30 20 45 4e 44 43 41 53 45 20 0d 2b 30 37 31 30 20 50 52 49 4e 54 20 22 4d 22 2b 43 ┆ 0700 ENDCASE +0710 PRINT "M"+C┆
0x0660…0680 48 52 28 34 38 2b 48 5c 4a 44 45 29 2b 43 48 52 28 34 38 2b 46 29 2b 22 20 55 22 2b 15 30 37 32 ┆HR(48+HØJDE)+CHR(48+F)+" U"+ 072┆
0x0680…06a0 30 20 45 4e 44 50 52 4f 43 20 3b 53 59 4d 42 4f 4c 2e 15 22 30 37 33 30 20 50 52 4f 43 20 54 45 ┆0 ENDPROC ;SYMBOL. "0730 PROC TE┆
0x06a0…06c0 4b 53 54 28 56 49 4e 4b 45 4c 2c 48 5c 4a 44 45 2c 54 45 58 54 29 22 45 30 37 34 30 20 52 45 4d ┆KST(VINKEL,HØJDE,TEXT)"E0740 REM┆
0x06c0…06e0 20 55 44 53 4b 52 49 56 45 52 20 45 4e 20 54 45 4b 53 54 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 ┆ UDSKRIVER EN TEKST MED DEN ANGI┆
0x06e0…0700 56 4e 45 20 48 5c 4a 44 45 20 4f 47 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 45 15 30 ┆VNE HØJDE OG VINKEL I FORHOLDE 0┆
0x0700…0720 37 35 30 20 52 45 4d 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 15 17 30 37 36 30 20 56 3d 49 4e 54 ┆750 REM TIL VANDRET. 0760 V=INT┆
0x0720…0740 28 31 2b 56 49 4e 4b 45 4c 2f 39 30 29 17 0c 30 37 37 30 20 48 3d 48 5c 4a 44 45 0c 30 30 37 38 ┆(1+VINKEL/90) 0770 H=HØJDE 0078┆
0x0740…0760 30 20 50 52 49 4e 54 20 22 53 22 2b 43 48 52 28 34 38 2b 56 29 2b 43 48 52 28 34 38 2b 48 29 3b ┆0 PRINT "S"+CHR(48+V)+CHR(48+H);┆
0x0760…0780 22 20 22 3b 54 45 58 54 24 3b 22 5f 22 30 14 30 37 39 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 4b ┆" ";TEXT$;"_"0 0790 ENDPROC ;TEK┆
0x0780…07a0 53 54 2e 14 1e 30 38 30 30 20 50 52 4f 43 20 54 41 4c 28 56 49 4e 4b 45 4c 2c 48 5c 4a 44 45 2c ┆ST. 0800 PROC TAL(VINKEL,HØJDE,┆
0x07a0…07c0 4e 52 29 1e 3b 30 38 31 30 20 52 45 4d 20 55 44 53 4b 52 49 56 45 52 20 45 54 20 54 41 4c 20 4d ┆NR) ;0810 REM UDSKRIVER ET TAL M┆
0x07c0…07e0 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 48 5c 4a 44 45 20 4f 47 20 56 49 4e 4b 45 4c 20 49 ┆ED DEN ANGIVNE HØJDE OG VINKEL I┆
0x07e0…0800 3b 1d 30 38 32 30 20 52 45 4d 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 1d ┆; 0820 REM FORHOLD TIL VANDRET. ┆
0x0800…0820 17 30 38 33 30 20 56 3d 49 4e 54 28 31 2b 56 49 4e 4b 45 4c 2f 39 30 29 17 0c 30 38 34 30 20 48 ┆ 0830 V=INT(1+VINKEL/90) 0840 H┆
0x0820…0840 3d 48 5c 4a 44 45 0c 23 30 38 35 30 20 50 52 49 4e 54 20 22 53 22 2b 43 48 52 28 34 38 2b 56 29 ┆=HØJDE #0850 PRINT "S"+CHR(48+V)┆
0x0840…0860 2b 43 48 52 28 34 38 2b 48 29 3b 23 25 30 38 36 30 20 49 46 20 4e 52 3c 3d 2d 31 20 4f 52 20 4e ┆+CHR(48+H);#%0860 IF NR<=-1 OR N┆
0x0860…0880 52 3d 30 20 4f 52 20 31 3c 3d 4e 52 20 54 48 45 4e 20 25 11 30 38 37 30 20 50 52 49 4e 54 20 4e ┆R=0 OR 1<=NR THEN % 0870 PRINT N┆
0x0880…08a0 52 3b 22 5f 22 11 0a 30 38 38 30 20 45 4c 53 45 20 0a 1d 30 38 39 30 20 50 52 49 4e 54 20 55 53 ┆R;"_" 0880 ELSE 0890 PRINT US┆
0x08a0…08c0 49 4e 47 20 22 20 23 2e 23 23 20 5f 22 3a 4e 52 1d 0b 30 39 30 30 20 45 4e 44 49 46 20 0b 12 30 ┆ING " #.## _":NR 0900 ENDIF 0┆
0x08c0…08e0 39 31 30 20 45 4e 44 50 52 4f 43 20 3b 54 41 4c 2e 12 10 30 39 32 30 20 50 52 4f 43 20 4e 55 4c ┆910 ENDPROC ;TAL. 0920 PROC NUL┆
0x08e0…0900 50 4b 54 10 1f 30 39 33 30 20 52 45 4d 20 46 41 53 54 53 5b 54 54 45 52 20 4e 55 4c 50 55 4e 4b ┆PKT 0930 REM FASTSÆTTER NULPUNK┆
0x0900…0920 54 45 54 2e 1f 0e 30 39 34 30 20 50 52 49 4e 54 20 22 4f 22 0e 15 30 39 35 30 20 45 4e 44 50 52 ┆TET. 0940 PRINT "O" 0950 ENDPR┆
0x0920…0940 4f 43 20 3b 4e 55 4c 50 4b 54 2e 15 20 30 39 36 30 20 50 52 4f 43 20 46 4c 59 54 50 4f 4c 28 56 ┆OC ;NULPKT. 0960 PROC FLYTPOL(V┆
0x0940…0960 49 4e 4b 45 4c 2c 4c 5b 4e 47 44 45 29 20 11 30 39 37 30 20 50 49 3d 33 2e 31 34 31 35 39 32 36 ┆INKEL,LÆNGDE) 0970 PI=3.1415926┆
0x0960…0980 11 25 30 39 38 30 20 58 3d 49 4e 54 28 4c 5b 4e 47 44 45 2a 43 4f 53 28 56 49 4e 4b 45 4c 2f 31 ┆ %0980 X=INT(LÆNGDE*COS(VINKEL/1┆
0x0980…09a0 38 30 2a 50 49 29 29 25 25 30 39 39 30 20 59 3d 49 4e 54 28 4c 5b 4e 47 44 45 2a 53 49 4e 28 56 ┆80*PI))%%0990 Y=INT(LÆNGDE*SIN(V┆
0x09a0…09c0 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 18 31 30 30 30 20 50 52 49 4e 54 20 22 55 20 52 22 ┆INKEL/180*PI))% 1000 PRINT "U R"┆
0x09c0…09e0 3b 58 3b 22 2c 22 3b 59 18 16 31 30 31 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 50 4f 4c 2e ┆;X;",";Y 1010 ENDPROC ;FLYTPOL.┆
0x09e0…0a00 16 20 31 30 32 30 20 50 52 4f 43 20 54 45 47 4e 50 4f 4c 28 56 49 4e 4b 45 4c 2c 4c 5b 4e 47 44 ┆ 1020 PROC TEGNPOL(VINKEL,LÆNGD┆
0x0a00…0a20 45 29 20 11 31 30 33 30 20 50 49 3d 33 2e 31 34 31 35 39 32 36 11 25 31 30 34 30 20 58 3d 49 4e ┆E) 1030 PI=3.1415926 %1040 X=IN┆
0x0a20…0a40 54 28 4c 5b 4e 47 44 45 2a 43 4f 53 28 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 25 31 30 ┆T(LÆNGDE*COS(VINKEL/180*PI))%%10┆
0x0a40…0a60 35 30 20 59 3d 49 4e 54 28 4c 5b 4e 47 44 45 2a 53 49 4e 28 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 ┆50 Y=INT(LÆNGDE*SIN(VINKEL/180*P┆
0x0a60…0a80 49 29 29 25 18 31 30 36 30 20 50 52 49 4e 54 20 22 44 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 31 ┆I))% 1060 PRINT "D R";X;",";Y 1┆
0x0a80…0aa0 30 37 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 50 4f 4c 2e 16 2b 31 34 39 30 20 50 52 4f 43 ┆070 ENDPROC ;TEGNPOL. +1490 PROC┆
0x0aa0…0ac0 20 41 4b 53 45 28 56 49 2c 48 5c 2c 53 4b 2c 53 45 2c 4d 49 4e 2c 4d 41 58 2c 54 59 50 2c 54 45 ┆ AKSE(VI,HØ,SK,SE,MIN,MAX,TYP,TE┆
0x0ac0…0ae0 58 29 2b 12 31 35 30 30 20 50 52 4f 43 20 52 4f 55 28 4b 2c 4c 29 12 11 31 35 31 30 20 41 3d 41 ┆X)+ 1500 PROC ROU(K,L) 1510 A=A┆
0x0ae0…0b00 42 53 28 4b 2a 31 30 30 29 11 0d 31 35 32 30 20 42 3d 49 4e 54 28 41 29 0d 18 31 35 33 30 20 49 ┆BS(K*100) 1520 B=INT(A) 1530 I┆
0x0b00…0b20 46 20 28 41 2d 42 29 3d 3e 30 2e 35 20 54 48 45 4e 20 18 1b 31 35 34 30 20 4c 3d 28 42 2b 31 29 ┆F (A-B)=>0.5 THEN 1540 L=(B+1)┆
0x0b20…0b40 2a 53 47 4e 28 4b 2a 31 30 30 29 2f 31 30 30 1b 0a 31 35 35 30 20 45 4c 53 45 20 0a 17 31 35 36 ┆*SGN(K*100)/100 1550 ELSE 156┆
0x0b40…0b60 30 20 4c 3d 42 2a 53 47 4e 28 4b 2a 31 30 30 29 2f 31 30 30 17 0b 31 35 37 30 20 45 4e 44 49 46 ┆0 L=B*SGN(K*100)/100 1570 ENDIF┆
0x0b60…0b80 20 0b 12 31 35 38 30 20 45 4e 44 50 52 4f 43 20 3b 52 4f 55 2e 12 12 31 35 39 30 20 50 49 3d 33 ┆ 1580 ENDPROC ;ROU. 1590 PI=3┆
0x0b80…0ba0 2e 31 34 31 35 39 32 36 35 12 16 31 36 30 30 20 4b 58 3d 43 4f 53 28 56 49 2f 31 38 30 2a 50 49 ┆.14159265 1600 KX=COS(VI/180*PI┆
0x0ba0…0bc0 29 16 16 31 36 31 30 20 4b 59 3d 53 49 4e 28 56 49 2f 31 38 30 2a 50 49 29 16 16 31 36 32 30 20 ┆) 1610 KY=SIN(VI/180*PI) 1620 ┆
0x0bc0…0be0 48 42 3d 28 31 34 2a 32 2a 2a 28 48 5c 2d 31 29 29 16 20 31 36 33 30 20 49 46 20 53 47 4e 28 4d ┆HB=(14*2**(HØ-1)) 1630 IF SGN(M┆
0x0be0…0c00 49 4e 29 3c 3e 53 47 4e 28 4d 41 58 29 20 54 48 45 4e 20 20 12 31 36 34 30 20 4d 49 3d 4d 49 4e ┆IN)<>SGN(MAX) THEN 1640 MI=MIN┆
0x0c00…0c20 3b 4d 58 3d 4d 41 58 12 0a 31 36 35 30 20 45 4c 53 45 20 0a 18 31 36 36 30 20 49 46 20 53 47 4e ┆;MX=MAX 1650 ELSE 1660 IF SGN┆
0x0c20…0c40 28 4d 49 4e 29 3d 31 20 54 48 45 4e 20 18 14 31 36 37 30 20 4d 49 3d 30 3b 4d 58 3d 4d 41 58 2d ┆(MIN)=1 THEN 1670 MI=0;MX=MAX-┆
0x0c40…0c60 4d 49 4e 14 0a 31 36 38 30 20 45 4c 53 45 20 0a 14 31 36 39 30 20 4d 58 3d 30 3b 4d 49 3d 4d 49 ┆MIN 1680 ELSE 1690 MX=0;MI=MI┆
0x0c60…0c80 4e 2d 4d 41 58 14 0b 31 37 30 30 20 45 4e 44 49 46 20 0b 0b 31 37 31 30 20 45 4e 44 49 46 20 0b ┆N-MAX 1700 ENDIF 1710 ENDIF ┆
0x0c80…0ca0 18 31 37 32 30 20 58 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 58 18 18 31 37 33 30 20 ┆ 1720 XMAX=(MX*SK+100)*KX 1730 ┆
0x0ca0…0cc0 59 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 59 18 12 31 37 34 30 20 58 4d 49 4e 3d 4d ┆YMAX=(MX*SK+100)*KY 1740 XMIN=M┆
0x0cc0…0ce0 49 2a 53 4b 2a 4b 58 12 12 31 37 35 30 20 59 4d 49 4e 3d 4d 49 2a 53 4b 2a 4b 59 12 20 31 37 36 ┆I*SK*KX 1750 YMIN=MI*SK*KY 176┆
0x0ce0…0d00 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 28 58 4d 49 4e 29 2c 28 59 4d 49 4e 29 29 20 20 31 ┆0 EXEC FLYTABS((XMIN),(YMIN)) 1┆
0x0d00…0d20 37 37 30 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 28 58 4d 41 58 29 2c 28 59 4d 41 58 29 29 20 ┆770 EXEC TEGNABS((XMAX),(YMAX)) ┆
0x0d20…0d40 23 31 37 38 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 29 2a 32 30 2c 28 2d 4b 58 29 ┆#1780 EXEC TEGNREL((KY)*20,(-KX)┆
0x0d40…0d60 2a 32 30 29 23 28 31 37 39 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 58 2d 4b 59 29 2a ┆*20)#(1790 EXEC TEGNREL((KX-KY)*┆
0x0d60…0d80 32 30 2c 28 4b 58 2b 4b 59 29 2a 32 30 29 28 29 31 38 30 30 20 45 58 45 43 20 54 45 47 4e 52 45 ┆20,(KX+KY)*20)()1800 EXEC TEGNRE┆
0x0d80…0da0 4c 28 28 2d 4b 58 2d 4b 59 29 2a 32 30 2c 28 4b 58 2d 4b 59 29 2a 32 30 29 29 23 31 38 31 30 20 ┆L((-KX-KY)*20,(KX-KY)*20))#1810 ┆
0x0da0…0dc0 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 29 2a 32 30 2c 28 2d 4b 58 29 2a 32 30 29 23 1d ┆EXEC TEGNREL((KY)*20,(-KX)*20)# ┆
0x0dc0…0de0 31 38 32 30 20 49 46 20 30 3c 3d 4b 59 20 41 4e 44 20 4b 59 3c 3d 31 20 54 48 45 4e 20 1d 37 31 ┆1820 IF 0<=KY AND KY<=1 THEN 71┆
0x0de0…0e00 38 33 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 4b 59 29 2a 33 30 2c 28 2d 4b 58 29 2a 33 ┆830 EXEC FLYTREL((KY)*30,(-KX)*3┆
0x0e00…0e20 30 2d 48 42 2a 28 53 47 4e 28 4b 58 2d 4b 59 29 2b 31 29 2f 32 29 37 0a 31 38 34 30 20 45 4c 53 ┆0-HB*(SGN(KX-KY)+1)/2)7 1840 ELS┆
0x0e20…0e40 45 20 0a 38 31 38 35 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 2d 4b 59 29 2a 33 30 2c 28 ┆E 81850 EXEC FLYTREL((-KY)*30,(┆
0x0e40…0e60 4b 58 29 2a 33 30 2d 48 42 2a 28 53 47 4e 28 2d 4b 58 2b 4b 59 29 2b 31 29 2f 32 29 38 0b 31 38 ┆KX)*30-HB*(SGN(-KX+KY)+1)/2)8 18┆
0x0e60…0e80 36 30 20 45 4e 44 49 46 20 0b 1a 31 38 37 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 48 5c 2c ┆60 ENDIF 1870 EXEC TEKST(0,HØ,┆
0x0e80…0ea0 54 45 58 24 29 1a 17 31 38 38 30 20 53 49 3d 28 4d 41 58 20 44 49 56 20 53 45 29 2a 53 45 17 2e ┆TEX$) 1880 SI=(MAX DIV SE)*SE .┆
0x0ea0…0ec0 31 39 30 30 20 46 4f 52 20 49 3d 28 53 49 2b 4d 49 2d 4d 49 4e 29 2a 53 4b 20 54 4f 20 4d 49 2a ┆1900 FOR I=(SI+MI-MIN)*SK TO MI*┆
0x0ec0…0ee0 53 4b 20 53 54 45 50 20 2d 53 45 2a 53 4b 2e 2c 31 39 31 30 20 45 58 45 43 20 46 4c 59 54 41 42 ┆SK STEP -SE*SK.,1910 EXEC FLYTAB┆
0x0ee0…0f00 53 28 28 4b 58 29 2a 49 2d 4b 59 2a 31 30 2c 28 4b 59 29 2a 49 2b 4b 58 2a 31 30 29 2c 23 31 39 ┆S((KX)*I-KY*10,(KY)*I+KX*10),#19┆
0x0f00…0f20 32 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 29 2a 32 30 2c 28 2d 4b 58 29 2a 32 30 ┆20 EXEC TEGNREL((KY)*20,(-KX)*20┆
0x0f20…0f40 29 23 1d 31 39 33 30 20 49 46 20 30 3c 3d 4b 59 20 41 4e 44 20 4b 59 3c 3d 31 20 54 48 45 4e 20 ┆)# 1930 IF 0<=KY AND KY<=1 THEN ┆
0x0f40…0f60 1d 34 31 39 34 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 4b 59 29 2a 32 30 2c 28 2d 4b 58 ┆ 41940 EXEC FLYTREL((KY)*20,(-KX┆
0x0f60…0f80 29 2a 32 30 2d 48 42 2a 28 53 47 4e 28 4b 58 29 2b 31 29 2f 32 29 34 0a 31 39 35 30 20 45 4c 53 ┆)*20-HB*(SGN(KX)+1)/2)4 1950 ELS┆
0x0f80…0fa0 45 20 0a 34 31 39 36 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 2d 4b 59 29 2a 34 30 2c 28 ┆E 41960 EXEC FLYTREL((-KY)*40,(┆
0x0fa0…0fc0 4b 58 29 2a 34 30 2b 48 42 2a 28 53 47 4e 28 4b 58 29 2d 31 29 2f 32 29 34 0b 31 39 37 30 20 45 ┆KX)*40+HB*(SGN(KX)-1)/2)4 1970 E┆
0x0fc0…0fe0 4e 44 49 46 20 0b 18 31 39 38 30 20 49 46 20 54 59 50 24 3d 22 4c 49 4e 22 20 54 48 45 4e 20 18 ┆NDIF 1980 IF TYP$="LIN" THEN ┆
0x0fe0…1000 0b 31 39 39 30 20 53 49 49 3d 53 49 0b 0a 32 30 30 30 20 45 4c 53 45 20 0a 0f 32 30 31 30 20 53 ┆ 1990 SII=SI 2000 ELSE 2010 S┆
0x1000…1020 49 49 3d 31 30 2a 2a 53 49 0f 0b 32 30 32 30 20 45 4e 44 49 46 20 0b 15 32 30 33 30 20 45 58 45 ┆II=10**SI 2020 ENDIF 2030 EXE┆
0x1020…1040 43 20 52 4f 55 28 53 49 49 2c 53 4a 29 15 24 32 30 34 30 20 49 46 20 53 4a 3c 3e 30 20 54 48 45 ┆C ROU(SII,SJ) $2040 IF SJ<>0 THE┆
0x1040…1060 4e 20 45 58 45 43 20 54 41 4c 28 30 2c 48 5c 2c 53 4a 29 24 0d 32 30 35 30 20 53 49 3d 53 49 2d ┆N EXEC TAL(0,HØ,SJ)$ 2050 SI=SI-┆
0x1060…1080 53 45 0d 0b 32 30 36 30 20 4e 45 58 54 20 49 0b 13 32 30 37 30 20 45 4e 44 50 52 4f 43 20 3b 41 ┆SE 2060 NEXT I 2070 ENDPROC ;A┆
0x1080…10a0 4b 53 45 2e 13 3b 32 30 38 30 20 50 52 4f 43 20 4b 4f 4f 52 44 28 58 49 2c 58 58 2c 59 49 2c 59 ┆KSE. ;2080 PROC KOORD(XI,XX,YI,Y┆
0x10a0…10c0 58 2c 58 43 2c 59 43 2c 58 30 2c 59 30 2c 58 54 50 2c 59 54 50 2c 41 4b 2c 58 54 58 2c 59 54 58 ┆X,XC,YC,X0,Y0,XTP,YTP,AK,XTX,YTX┆
0x10c0…10e0 29 3b 1c 32 30 39 30 20 49 46 20 58 43 3c 3d 30 20 4f 52 20 59 43 3c 3d 30 20 54 48 45 4e 20 1c ┆); 2090 IF XC<=0 OR YC<=0 THEN ┆
0x10e0…1100 1c 32 31 30 30 20 58 43 2c 59 43 3d 49 4e 54 28 32 33 30 30 2f 28 59 58 2d 59 49 29 29 1c 35 32 ┆ 2100 XC,YC=INT(2300/(YX-YI)) 52┆
0x1100…1120 31 31 30 20 49 46 20 58 43 3d 3e 33 35 30 30 2f 28 58 58 2d 58 49 29 20 54 48 45 4e 20 58 43 2c ┆110 IF XC=>3500/(XX-XI) THEN XC,┆
0x1120…1140 59 43 3d 49 4e 54 28 33 35 30 30 2f 28 58 58 2d 58 49 29 29 35 18 32 31 32 30 20 58 4f 3d 2d 58 ┆YC=INT(3500/(XX-XI))5 2120 XO=-X┆
0x1140…1160 49 2a 58 43 3b 59 4f 3d 2d 59 49 2a 59 43 18 11 32 31 33 30 20 58 46 3d 2d 32 30 3b 59 46 3d 39 ┆I*XC;YO=-YI*YC 2130 XF=-20;YF=9┆
0x1160…1180 30 11 0a 32 31 34 30 20 45 4c 53 45 20 0a 18 32 31 35 30 20 58 43 3d 58 43 2a 31 30 30 3b 59 43 ┆0 2140 ELSE 2150 XC=XC*100;YC┆
0x1180…11a0 3d 59 43 2a 31 30 30 18 18 32 31 36 30 20 58 4f 3d 58 30 2a 31 30 30 3b 59 4f 3d 59 30 2a 31 30 ┆=YC*100 2160 XO=X0*100;YO=Y0*10┆
0x11a0…11c0 30 18 14 32 31 37 30 20 58 46 3d 2d 34 32 30 3b 59 46 3d 2d 31 36 30 14 0b 32 31 38 30 20 45 4e ┆0 2170 XF=-420;YF=-160 2180 EN┆
0x11c0…11e0 44 49 46 20 0b 20 32 31 39 30 20 49 46 20 30 3c 3d 58 4f 20 41 4e 44 20 58 4f 3c 3d 33 35 30 30 ┆DIF 2190 IF 0<=XO AND XO<=3500┆
0x11e0…1200 20 54 48 45 4e 20 20 0b 32 32 30 30 20 58 50 4f 3d 58 4f 0b 0a 32 32 31 30 20 45 4c 53 45 20 0a ┆ THEN 2200 XPO=XO 2210 ELSE ┆
0x1200…1220 12 32 32 32 30 20 49 46 20 58 4f 3c 30 20 54 48 45 4e 20 12 0a 32 32 33 30 20 58 50 4f 3d 30 0a ┆ 2220 IF XO<0 THEN 2230 XPO=0 ┆
0x1220…1240 0a 32 32 34 30 20 45 4c 53 45 20 0a 0d 32 32 35 30 20 58 50 4f 3d 33 35 30 30 0d 0b 32 32 36 30 ┆ 2240 ELSE 2250 XPO=3500 2260┆
0x1240…1260 20 45 4e 44 49 46 20 0b 0b 32 32 37 30 20 45 4e 44 49 46 20 0b 20 32 32 38 30 20 49 46 20 30 3c ┆ ENDIF 2270 ENDIF 2280 IF 0<┆
0x1260…1280 3d 59 4f 20 41 4e 44 20 59 4f 3c 3d 32 33 30 30 20 54 48 45 4e 20 20 0b 32 32 39 30 20 59 50 4f ┆=YO AND YO<=2300 THEN 2290 YPO┆
0x1280…12a0 3d 59 4f 0b 0a 32 33 30 30 20 45 4c 53 45 20 0a 12 32 33 31 30 20 49 46 20 59 4f 3c 30 20 54 48 ┆=YO 2300 ELSE 2310 IF YO<0 TH┆
0x12a0…12c0 45 4e 20 12 0a 32 33 32 30 20 59 50 4f 3d 30 0a 0a 32 33 33 30 20 45 4c 53 45 20 0a 0d 32 33 34 ┆EN 2320 YPO=0 2330 ELSE 234┆
0x12c0…12e0 30 20 59 50 4f 3d 32 33 30 30 0d 0b 32 33 35 30 20 45 4e 44 49 46 20 0b 0b 32 33 36 30 20 45 4e ┆0 YPO=2300 2350 ENDIF 2360 EN┆
0x12e0…1300 44 49 46 20 0b 24 32 33 37 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 28 58 50 4f 2b 58 46 29 ┆DIF $2370 EXEC FLYTABS((XPO+XF)┆
0x1300…1320 2c 28 59 50 4f 2b 59 46 29 29 24 10 32 33 38 30 20 45 58 45 43 20 4e 55 4c 50 4b 54 10 13 32 33 ┆,(YPO+YF))$ 2380 EXEC NULPKT 23┆
0x1320…1340 39 30 20 49 46 20 41 4b 3c 3e 30 20 54 48 45 4e 20 13 13 32 34 30 30 20 58 44 3d 49 4e 54 28 32 ┆90 IF AK<>0 THEN 2400 XD=INT(2┆
0x1340…1360 30 30 2f 58 43 29 13 26 32 34 31 30 20 49 46 20 32 30 30 3c 3d 58 43 20 41 4e 44 20 58 43 3c 34 ┆00/XC) &2410 IF 200<=XC AND XC<4┆
0x1360…1380 30 30 20 54 48 45 4e 20 58 44 3d 30 2e 35 26 28 32 34 32 30 20 49 46 20 34 30 30 3c 3d 58 43 20 ┆00 THEN XD=0.5&(2420 IF 400<=XC ┆
0x1380…13a0 41 4e 44 20 58 43 3c 31 38 30 30 20 54 48 45 4e 20 58 44 3d 30 2e 32 35 28 1c 32 34 33 30 20 49 ┆AND XC<1800 THEN XD=0.25( 2430 I┆
0x13a0…13c0 46 20 31 38 30 30 3c 3d 58 43 20 54 48 45 4e 20 58 44 3d 30 2e 31 1c 29 32 34 34 30 20 45 58 45 ┆F 1800<=XC THEN XD=0.1 )2440 EXE┆
0x13c0…13e0 43 20 41 4b 53 45 28 30 2c 31 2c 58 43 2c 58 44 2c 58 49 2c 58 58 2c 58 54 50 24 2c 58 54 58 24 ┆C AKSE(0,1,XC,XD,XI,XX,XTP$,XTX$┆
0x13e0…1400 29 29 13 32 34 35 30 20 59 44 3d 49 4e 54 28 32 30 30 2f 59 43 29 13 26 32 34 36 30 20 49 46 20 ┆)) 2450 YD=INT(200/YC) &2460 IF ┆
0x1400…1420 32 30 30 3c 3d 59 43 20 41 4e 44 20 59 43 3c 34 30 30 20 54 48 45 4e 20 59 44 3d 30 2e 35 26 28 ┆200<=YC AND YC<400 THEN YD=0.5&(┆
0x1420…1440 32 34 37 30 20 49 46 20 34 30 30 3c 3d 59 43 20 41 4e 44 20 59 43 3c 31 38 30 30 20 54 48 45 4e ┆2470 IF 400<=YC AND YC<1800 THEN┆
0x1440…1460 20 59 44 3d 30 2e 32 35 28 1c 32 34 38 30 20 49 46 20 31 38 30 30 3c 3d 59 43 20 54 48 45 4e 20 ┆ YD=0.25( 2480 IF 1800<=YC THEN ┆
0x1460…1480 59 44 3d 30 2e 31 1c 2a 32 34 39 30 20 45 58 45 43 20 41 4b 53 45 28 39 30 2c 31 2c 59 43 2c 59 ┆YD=0.1 *2490 EXEC AKSE(90,1,YC,Y┆
0x1480…14a0 44 2c 59 49 2c 59 58 2c 59 54 50 24 2c 59 54 58 24 29 2a 0b 32 35 30 30 20 45 4e 44 49 46 20 0b ┆D,YI,YX,YTP$,YTX$)* 2500 ENDIF ┆
0x14a0…14c0 18 32 35 31 30 20 58 30 3d 58 4f 2d 58 50 4f 3b 59 30 3d 59 4f 2d 59 50 4f 18 14 32 35 32 30 20 ┆ 2510 X0=XO-XPO;Y0=YO-YPO 2520 ┆
0x14c0…14e0 45 4e 44 50 52 4f 43 20 3b 4b 4f 4f 52 44 2e 14 3a 32 35 33 30 20 50 52 4f 43 20 4c 49 4e 4b 52 ┆ENDPROC ;KOORD. :2530 PROC LINKR┆
0x14e0…1500 56 28 58 49 4e 2c 58 41 58 2c 58 53 4b 41 2c 59 53 4b 41 2c 58 4e 55 4c 2c 59 4e 55 4c 2c 41 4b ┆V(XIN,XAX,XSKA,YSKA,XNUL,YNUL,AK┆
0x1500…1520 53 52 2c 58 54 45 2c 59 54 45 29 3a 10 32 35 34 30 20 44 49 4d 20 4c 49 4e 24 28 33 29 10 0f 32 ┆SR,XTE,YTE): 2540 DIM LIN$(3) 2┆
0x1520…1540 35 35 30 20 4c 49 4e 24 3d 22 4c 49 4e 22 0f 24 32 35 36 30 20 58 53 3d 58 53 4b 41 3b 59 53 3d ┆550 LIN$="LIN" $2560 XS=XSKA;YS=┆
0x1540…1560 59 53 4b 41 3b 58 5c 3d 58 4e 55 4c 3b 59 5c 3d 59 4e 55 4c 24 1b 32 35 37 30 20 59 4d 49 3d 39 ┆YSKA;XØ=XNUL;YØ=YNUL$ 2570 YMI=9┆
0x1560…1580 2e 32 45 31 38 3b 59 4d 58 3d 2d 39 2e 32 45 31 38 1b 29 32 35 38 30 20 46 4f 52 20 58 4b 3d 58 ┆.2E18;YMX=-9.2E18 )2580 FOR XK=X┆
0x1580…15a0 49 4e 20 54 4f 20 58 41 58 20 53 54 45 50 20 28 58 41 58 2d 58 49 4e 29 2f 31 30 30 29 16 32 35 ┆IN TO XAX STEP (XAX-XIN)/100) 25┆
0x15a0…15c0 39 30 20 45 58 45 43 20 46 55 4e 4b 28 58 4b 2c 46 58 4b 29 16 1d 32 36 30 30 20 49 46 20 46 58 ┆90 EXEC FUNK(XK,FXK) 2600 IF FX┆
0x15c0…15e0 4b 3c 3d 59 4d 49 20 54 48 45 4e 20 59 4d 49 3d 46 58 4b 1d 1d 32 36 31 30 20 49 46 20 46 58 4b ┆K<=YMI THEN YMI=FXK 2610 IF FXK┆
0x15e0…1600 3d 3e 59 4d 58 20 54 48 45 4e 20 59 4d 58 3d 46 58 4b 1d 0c 32 36 32 30 20 4e 45 58 54 20 58 4b ┆=>YMX THEN YMX=FXK 2620 NEXT XK┆
0x1600…1620 0c 45 32 36 33 30 20 45 58 45 43 20 4b 4f 4f 52 44 28 58 49 4e 2c 58 41 58 2c 59 4d 49 2c 59 4d ┆ E2630 EXEC KOORD(XIN,XAX,YMI,YM┆
0x1620…1640 58 2c 58 53 2c 59 53 2c 58 5c 2c 59 5c 2c 4c 49 4e 24 2c 4c 49 4e 24 2c 41 4b 53 52 2c 58 54 45 ┆X,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE┆
0x1640…1660 24 2c 59 54 45 24 29 45 17 32 36 34 30 20 45 58 45 43 20 46 55 4e 4b 28 58 49 4e 2c 46 58 49 29 ┆$,YTE$)E 2640 EXEC FUNK(XIN,FXI)┆
0x1660…1680 17 2a 32 36 35 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 28 58 49 4e 2a 58 53 2b 58 5c 29 2c ┆ *2650 EXEC FLYTABS((XIN*XS+XØ),┆
0x1680…16a0 28 46 58 49 2a 59 53 2b 59 5c 29 29 2a 21 32 36 36 30 20 46 4f 52 20 58 4b 3d 58 49 4e 20 54 4f ┆(FXI*YS+YØ))*!2660 FOR XK=XIN TO┆
0x16a0…16c0 20 58 41 58 20 53 54 45 50 20 31 30 2f 58 53 21 16 32 36 37 30 20 45 58 45 43 20 46 55 4e 4b 28 ┆ XAX STEP 10/XS! 2670 EXEC FUNK(┆
0x16c0…16e0 58 4b 2c 46 58 4b 29 16 29 32 36 38 30 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 28 58 4b 2a 58 ┆XK,FXK) )2680 EXEC TEGNABS((XK*X┆
0x16e0…1700 53 2b 58 5c 29 2c 28 46 58 4b 2a 59 53 2b 59 5c 29 29 29 0c 32 36 39 30 20 4e 45 58 54 20 58 4b ┆S+XØ),(FXK*YS+YØ))) 2690 NEXT XK┆
0x1700…1720 0c 0f 32 37 30 30 20 45 58 45 43 20 50 45 4e 4f 50 0f 15 32 37 31 30 20 45 4e 44 50 52 4f 43 20 ┆ 2700 EXEC PENOP 2710 ENDPROC ┆
0x1720…1740 3b 4c 49 4e 4b 52 56 2e 15 14 33 39 30 30 20 50 52 4f 43 20 46 55 4e 4b 28 58 2c 46 58 29 14 0e ┆;LINKRV. 3900 PROC FUNK(X,FX) ┆
0x1740…1760 33 39 31 30 20 46 58 3d 4c 4f 47 28 58 29 0e 13 33 39 32 30 20 45 4e 44 50 52 4f 43 20 3b 46 55 ┆3910 FX=LOG(X) 3920 ENDPROC ;FU┆
0x1760…1780 4e 4b 2e 13 25 34 30 30 30 20 44 49 4d 20 58 54 45 4b 24 28 31 30 29 2c 59 54 45 4b 24 28 31 30 ┆NK. %4000 DIM XTEK$(10),YTEK$(10┆
0x1780…17a0 29 2c 54 59 50 45 24 28 33 29 25 22 34 30 31 30 20 58 54 45 4b 24 3d 22 58 2d 41 4b 53 45 22 3b ┆),TYPE$(3)%"4010 XTEK$="X-AKSE";┆
0x17a0…17c0 59 54 45 4b 24 3d 22 59 2d 41 4b 53 45 22 22 12 34 30 32 30 20 45 58 45 43 20 50 4c 4f 54 49 4e ┆YTEK$="Y-AKSE"" 4020 EXEC PLOTIN┆
0x17c0…17e0 49 54 12 2d 34 30 33 30 20 45 58 45 43 20 4c 49 4e 4b 52 56 28 31 2c 31 30 30 2c 30 2c 30 2c 30 ┆IT -4030 EXEC LINKRV(1,100,0,0,0┆
0x17e0…1800 2c 30 2c 31 2c 58 54 45 4b 24 2c 59 54 45 4b 24 29 2d 0a 34 30 34 30 20 53 54 4f 50 20 0a 00 00 ┆,0,1,XTEK$,YTEK$)- 4040 STOP ┆
0x1800…1820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2c…]