|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »DEMO4.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »DEMO4.K«
0100 REM *************************************************** 0110 REM *PROCEDURERNE I DENNE FIL ER DE NØDVENDIGE GRUND- * 0120 REM *ELEMENTER TIL STYRING AF PLOTTEREN, OG ER DEFOR * 0130 REM *DIREKTE AFHÆNGIG AF DEN ANVENDTE PLOTTER. * 0140 REM *PROCEDURERNE HER KAN KUN ANVENDES TIL STYRING AF * 0150 REM * * 0160 REM * HI PLØT * 0170 REM *MODEL DMP-3,DMP-4,DMP-6,DMP-7 * 0180 REM *FRA HOUSTON INSTRUMENT * 0190 REM * * 0200 REM *DDE 1982* 0210 REM *************************************************** 0220 REM LIN ANVENDES I PROCEDUREN LINKRV. 0230 REM XT,YT ANVENDES I PROCEDUREN LOGKRV. 0240 DIM LIN$(3),XT$(3),YT$(3) 0250 REM ROU AFRUNDER ET REELT TAL TIL HELTAL 0260 REM OG ANVENDES I PROCEDURERNE STIPREL OG AKSE. 0270 DEF ROU(Z)=INT(Z+0.5) 0280 PI=3.1415926 0290 PROC PLOTINIT 0300 REM ÅBNER PLOTTEREN OG LØFTER PENNEN, 0310 REM FLYTTER PENNEN TIL (0,0) = HOME. 0320 PRINT "I;: I;: U H" 0330 ENDPROC ;PLOTINIT. 0340 PROC PLOTSLUT 0350 REM AFBRYDER PLOTTEREN. 0360 PRINT "@" 0370 ENDPROC ;PLOTSLUT. 0380 PROC PLOTTEST 0390 REM KØRER PLOTTERENS SELVTEST PROGRAM. 0400 PRINT "T" 0410 ENDPROC ;PLOTTEST. 0420 PROC NULPKT 0430 REM FASTSÆTTER NULPUNKTET. 0440 PRINT "O" 0450 ENDPROC ;NULPKT. 0460 PROC PENNED 0470 REM SÆTTER PENNEN NED PÅ PAPIRET. 0480 PRINT "D" 0490 ENDPROC ;PENNED. 0500 PROC PENOP 0510 REM HÆVER PENNEN OP FRA PAPIRET. 0520 PRINT "U" 0530 ENDPROC ;PENOP. 0540 PROC FLYTABS(X,Y) 0550 REM FLYTTER PENNEN ABSOLUT TIL KOORDINATERNE (X,Y). 0560 X=INT(X);Y=INT(Y) 0570 PRINT "U A";X;",";Y 0580 ENDPROC ;FLYTABS. 0590 PROC TEGNABS(LINTYP,X,Y) 0600 REM TEGNER LINIE ABSOLUT TIL KOORDINATERNE (X,Y) 0610 REM MED DEN ANGIVNE LINIETYPE. 0620 X=INT(X);Y=INT(Y) 0630 PRINT "D A L"+CHR(48+LINTYP);X;",";Y 0640 ENDPROC ;TEGNABS. 0650 PROC FLYTREL(X,Y) 0660 REM FLYTTER PENNEN RELATIVT TIL KOORDINATERNE (X,Y). 0670 X=INT(X);Y=INT(Y) 0680 PRINT "U R";X;",";Y 0690 ENDPROC ;FLYTREL. 0700 PROC TEGNREL(X,Y) 0710 REM TEGNER LINIE RELATIVT TIL KOORDINATERNE (X,Y). 0720 X=INT(X);Y=INT(Y) 0730 PRINT "D R L0";X;",";Y 0740 ENDPROC ;FLYTREL. 0750 PROC FLYTPOL(VINKEL,LÆNGDE) 0760 REM FLYTTER PENNEN DEN ANGIVNE LÆNGDE OG MED DEN 0770 REM ANFGIVNE VINKEL I FORHOLD TIL VANDRET. 0780 X=INT(LÆNGDE*COS(VINKEL/180*PI)) 0790 Y=INT(LÆNGDE*SIN(VINKEL/180*PI)) 0800 PRINT "U R";X;",";Y 0810 ENDPROC ;FLYTPOL. 0820 PROC TEGNPOL(VINKEL,LÆNGDE) 0830 REM TEGNER EN LINIE MED DEN ANGIVNE LÆNGDE OG MED 0840 REM DE ANGIVNE VINKEL I FORHOLD TIL VANDRET. 0850 X=INT(LÆNGDE*COS(VINKEL/180*PI)) 0860 Y=INT(LÆNGDE*SIN(VINKEL/180*PI)) 0870 PRINT "D R";X;",";Y 0880 ENDPROC ;TEGNPOL. 0890 PROC SYMBOL(HØJDE,FIGUR) 0900 REM TEGNER ET AF FIGURERNE:PLUS(0),KORS(1),FIRKANT(2),OTTEKANT(3), 0910 REM TREKANT(4),TIMEGLAS(5), MED EN AF HØJDERNE 0,1,2,3,4,5. 0920 PRINT "M"+CHR(48+HØJDE)+CHR(48+FIGUR)+" U" 0930 ENDPROC ;SYMBOL. 0940 PROC TEKST(VINKEL,HØJDE,TEXT) 0950 REM UDSKRIVER EN TEKST MED DEN ANGIVNE HØJDE 0960 REM OG VINKEL I FORHOLD TIL VANDRET. 0970 V=1+((360-VINKEL) DIV 90) MOD 4 0980 PRINT "S"+CHR(48+V)+CHR(48+HØJDE);" ";TEXT$;"_" 0990 ENDPROC ;TEKST. 1000 PROC TAL(VINKEL,HØJDE,NR) 1010 REM UDSKRIVER ET TAL MED DEN ANGIVNE HØJDE OG VINKEL I 1020 REM FORHOLD TIL VANDRET. 1030 V=1+((360-VINKEL) DIV 90) MOD 4 1040 PRINT "S"+CHR(48+V)+CHR(48+HØJDE); 1050 IF NR<=-1 OR NR=0 OR 1<=NR THEN 1060 PRINT NR;"_" 1070 ELSE 1080 PRINT USING " #.## _":NR 1090 ENDIF 1100 ENDPROC ;TAL. 1440 PROC AKSE(VI,HØ,SK,SE,MIN,MAX,TYP,TEX) 1450 REM ********************************************************** 1460 REM *AKSE TEGNER EN AKSE MED VINKLEN VI I FORHOLD TIL VANDRET* 1470 REM *FRA MIN TIL MAX. SÆTTER TEKSTEN TEX MED BOGSTAVHØJDEN HØ* 1480 REM *PÅ AKSEN. SKALERINGEN BESTEMMES AF SK ANGIVET I ANTAL * 1490 REM *STEPS PR. ENHED. ANTALLET AF DELSTREGER PR. ENHED BE- * 1500 REM *STEMMES AF 1/SE. * 1510 REM ********************************************************** 1520 KX=COS(VI/180*PI);KY=SIN(VI/180*PI);HB=(18*2**(HØ-1)) 1530 IF SGN(MIN)<>SGN(MAX) THEN 1540 MI=MIN;MX=MAX 1550 ELSE 1560 IF SGN(MIN)=1 THEN 1570 MI=0;MX=MAX-MIN 1580 ELSE 1590 MX=0;MI=MIN-MAX 1600 ENDIF 1610 ENDIF 1620 XMAX=(MX*SK+100)*KX;YMAX=(MX*SK+100)*KY;XMIN=MI*SK*KX;YMIN=MI*SK*KY 1630 EXEC FLYTABS(XMIN,YMIN) 1640 EXEC TEGNABS(0,XMAX,YMAX) 1650 EXEC TEGNREL((KY*20),(-KX*20)) 1660 EXEC TEGNREL((KX-KY)*20,(KX+KY)*20) 1670 EXEC TEGNREL((-KX-KY)*20,(KX-KY)*20) 1680 EXEC TEGNREL((KY*20),(-KX*20)) 1690 IF 0<=KY AND KY<=1 THEN 1700 EXEC FLYTREL((KY*30),(-KX*30-HB*(SGN(KX-KY)+1)/2)) 1710 ELSE 1720 EXEC FLYTREL((-KY*30),(KX*30-HB*(SGN(-KX+KY)+1)/2)) 1730 ENDIF 1740 EXEC TEKST(0,HØ,TEX$) 1750 IF TYP$<>"" THEN 1760 SI=(MAX DIV SE)*SE 1770 FOR I=(SI+MI-MIN)*SK TO MI*SK STEP -SE*SK 1780 EXEC FLYTABS((KX*I-KY*10),(KY*I+KX*10)) 1790 EXEC TEGNREL((KY*20),(-KX*20)) 1800 IF 0<=KY AND KY<=1 THEN 1810 EXEC FLYTREL((KY*20),(-KX*20-HB*(SGN(KX)+1)/2)) 1820 ELSE 1830 EXEC FLYTREL((-KY)*40,(KX)*40+HB*(SGN(KX)-1)/2) 1840 ENDIF 1850 IF TYP$="LIN" THEN 1860 SII=SI 1870 ELSE 1880 SII=10**SI 1890 ENDIF 1900 IF ABS(SII)<=9999 THEN 1910 SJ=ROU(SII*100)/100 1920 ELSE 1930 IF 9999<ABS(SII) AND ABS(SII)<=999999 THEN 1940 SJ=ROU(SII) 1950 ELSE 1960 SJ=SII 1970 ENDIF 1980 ENDIF 1990 IF SJ<>0 THEN EXEC TAL(0,HØ,SJ) 2000 SI=SI-SE 2010 NEXT I 2020 ENDIF 2030 ENDPROC ;AKSE. 2040 PROC KOSYS(XI,XX,YI,YX,XC,YC,X0,Y0,XTP,YTP,AK,XTX,YTX) 2050 REM ****************************************************** 2060 REM *KOSYS FORETAGER EN AUTOSKALERING OG EN AUTONULPUNKTS* 2070 REM *BESTEMMELSE, HVIS XC OG/ELLER YC ER MINDRE END ELLER* 2080 REM *LIG MED NUL. SKALERINGEN XC,YC BESTEMMES DA AF XI,XX* 2090 REM *OG YI,YX. ELLERS ANVENDES DE UDEFRA ANGIVNE SKALE- * 2100 REM *RINGER XC,YC OG DE UDEFRA ANGIVNE NULPUNKTER XØ,YØ. * 2110 REM *DESUDEN VIL KOORD, HVIS AK ER LIG MED EEN, UDTEGNE * 2120 REM *KOORDINATAKSERNE, SÆTTE TEKSTERNE XTX OG YTX PÅ * 2130 REM *AKSERNE OG ENDELIG UDSKRIVE EN SKALA, SOM VIL VÆRE * 2140 REM *LINIÆR, HVIS XTP(YTP) ER LIG "LIN" OG EKSPONENTIAL, * 2150 REM *HVIS XTP(YTP) ER FORSKELLIG FRA "LIN". * 2160 REM ****************************************************** 2170 PROC XYDBST(XYC,XYD) 2180 XYD=INT(200/XYC) 2190 IF 200<=XYC AND XYC<400 THEN XYD=0.5 2200 IF 400<=XYC AND XYC<1800 THEN XYD=0.25 2210 IF 1800<=XYC THEN XYD=0.1 2220 ENDPROC ;XYDBST. 2230 SL=3500;SB=2300 2240 IF XC<=0 OR YC<=0 THEN 2250 XC,YC=INT(SB/(YX-YI)) 2260 IF XC=>SL/(XX-XI) THEN XC,YC=INT(SL/(XX-XI)) 2270 XO=-XI*XC;YO=-YI*YC;XF=-20;YF=90 2280 IF 0<=XO AND XO<=SL THEN 2290 XPO=XO 2300 ELSE 2310 IF XO<0 THEN 2320 XPO=0 2330 ELSE 2340 XPO=SL 2350 ENDIF 2360 ENDIF 2370 IF 0<=YO AND YO<=SB THEN 2380 YPO=YO 2390 ELSE 2400 IF YO<0 THEN 2410 YPO=0 2420 ELSE 2430 YPO=SB 2440 ENDIF 2450 ENDIF 2460 ELSE 2470 XC=XC*10;YC=YC*10;XPO,XO=X0*10;YPO,YO=Y0*10;XF=-420;YF=-160 2480 ENDIF 2490 IF AK=1 THEN 2500 EXEC FLYTABS((XPO+XF),(YPO+YF)) 2510 EXEC NULPKT 2520 EXEC XYDBST(XC,XD) 2530 EXEC AKSE(0,1,XC,XD,XI,XX,XTP$,XTX$) 2540 EXEC XYDBST(YC,YD) 2550 EXEC AKSE(90,1,YC,YD,YI,YX,YTP$,YTX$) 2560 ENDIF 2570 X0=XO-XPO;Y0=YO-YPO 2580 ENDPROC ;KOSYS. 3320 PROC PARKRV(TST,TSL,DT,XSKA,YSKA,XNUL,YNUL,LITY,AKSR,XTE,YTE) 3330 REM ********************************************************* 3340 REM *PARKRV FORETAGER EN AFBILDNING AF PARAMETERFREMSTILLIN-* 3350 REM *GEN ANGIVET I PROCEDUREN PARM MED PARAMETEREN T LØBENDE* 3360 REM *FRA TST TIL TSL MED ET STEP PÅ DT. HVIS XSKA OG/ELLER * 3370 REM *YSKA ER MINDRE END NUL FORETAGES EN AUTOMATISK BESTEM- * 3380 REM *MELSE AF SKALERINGEN OG NULPUNKTET. ELLERS BENNYTTES EN* 3390 REM *SKALERING BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT * 3400 REM *AF XNUL,YNUL. KURVEN TEGNES MED DEN AF LITY VALGTE LI- * 3410 REM *NIETYPE. HVIS AKSR ER LIG MED EEN UDTEGNES DESUDEN * 3420 REM *KOORDINATAKSER MED TEKSTERNE XTE,YTE PÅSAT, OG PLOTTE- * 3430 REM *RENS NULPUNKT FASTSÆTTES. * 3440 REM ********************************************************* 3450 LIN$="LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL 3460 XMI,YMI=9.2E18;XMX,YMX=-9.2E18 3470 FOR TK=TST TO TSL STEP DT 3480 EXEC PARM(TK,XK,YK) 3490 IF XK<=XMI THEN XMI=XK 3500 IF XK=>XMX THEN XMX=XK 3510 IF YK<=YMI THEN YMI=YK 3520 IF YK=>YMX THEN YMX=YK 3530 NEXT TK 3540 EXEC KOSYS(XMI,XMX,YMI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$) 3550 EXEC PARM(T,XK,YK) 3560 EXEC FLYTABS((XK*XS+XØ),(YK*YS+YØ)) 3570 FOR TK=TST TO TSL STEP DT 3580 EXEC PARM(TK,XK,YK) 3590 EXEC TEGNABS(LITY,(XK*XS+XØ),(YK*YS+YØ)) 3600 NEXT TK 3610 EXEC PENOP 3620 ENDPROC ;PARKRV. 4000 DIM NAVN$(20),XTEKST$(1),YTEKST$(1) 4010 OUTPUT P1 4020 EXEC PLOTINIT 4030 NAVN$="DDE PLOTTER DEMO-4" 4040 EXEC FLYTABS(0,2300) 4050 EXEC TEKST(0,4,NAVN$) 4060 PROC PARM(T,X,Y) 4070 X=5*R*COS(T/180*PI) 4080 Y=2*R*SIN(T/180*PI) 4090 ENDPROC ;PARM. 4100 XTEKST$="X";YTEKST$="Y" 4110 FOR R=5 TO 1 STEP -1 4120 EXEC PARKRV(0,360,4,3,3,110,130,0,(R-4),XTEKST$,YTEKST$) 4130 NEXT R 4140 STOP
0x0000…003e Line {l1=0x3c, l2=»0100 REM ***************************************************«, l3=0x3c}
0x003e…007c Line {l1=0x3c, l2=»0110 REM *PROCEDURERNE I DENNE FIL ER DE NØDVENDIGE GRUND- *«, l3=0x3c}
0x007c…00ba Line {l1=0x3c, l2=»0120 REM *ELEMENTER TIL STYRING AF PLOTTEREN, OG ER DEFOR *«, l3=0x3c}
0x00ba…00f8 Line {l1=0x3c, l2=»0130 REM *DIREKTE AFHÆNGIG AF DEN ANVENDTE PLOTTER. *«, l3=0x3c}
0x00f8…0136 Line {l1=0x3c, l2=»0140 REM *PROCEDURERNE HER KAN KUN ANVENDES TIL STYRING AF *«, l3=0x3c}
0x0136…0174 Line {l1=0x3c, l2=»0150 REM * *«, l3=0x3c}
0x0174…01b2 Line {l1=0x3c, l2=»0160 REM * HI PLØT *«, l3=0x3c}
0x01b2…01f0 Line {l1=0x3c, l2=»0170 REM *MODEL DMP-3,DMP-4,DMP-6,DMP-7 *«, l3=0x3c}
0x01f0…022e Line {l1=0x3c, l2=»0180 REM *FRA HOUSTON INSTRUMENT *«, l3=0x3c}
0x022e…026c Line {l1=0x3c, l2=»0190 REM * *«, l3=0x3c}
0x026c…02aa Line {l1=0x3c, l2=»0200 REM *DDE 1982*«, l3=0x3c}
0x02aa…02e8 Line {l1=0x3c, l2=»0210 REM ***************************************************«, l3=0x3c}
0x02e8…0314 Line {l1=0x2a, l2=»0220 REM LIN ANVENDES I PROCEDUREN LINKRV.«, l3=0x2a}
0x0314…0342 Line {l1=0x2c, l2=»0230 REM XT,YT ANVENDES I PROCEDUREN LOGKRV.«, l3=0x2c}
0x0342…0362 Line {l1=0x1e, l2=»0240 DIM LIN$(3),XT$(3),YT$(3)«, l3=0x1e}
0x0362…0391 Line {l1=0x2d, l2=»0250 REM ROU AFRUNDER ET REELT TAL TIL HELTAL«, l3=0x2d}
0x0391…03c7 Line {l1=0x34, l2=»0260 REM OG ANVENDES I PROCEDURERNE STIPREL OG AKSE.«, l3=0x34}
0x03c7…03e3 Line {l1=0x1a, l2=»0270 DEF ROU(Z)=INT(Z+0.5)«, l3=0x1a}
0x03e3…03f6 Line {l1=0x11, l2=»0280 PI=3.1415926«, l3=0x11}
0x03f6…040a Line {l1=0x12, l2=»0290 PROC PLOTINIT«, l3=0x12}
0x040a…0436 Line {l1=0x2a, l2=»0300 REM ÅBNER PLOTTEREN OG LØFTER PENNEN,«, l3=0x2a}
0x0436…0461 Line {l1=0x29, l2=»0310 REM FLYTTER PENNEN TIL (0,0) = HOME.«, l3=0x29}
0x0461…047b Line {l1=0x18, l2=»0320 PRINT "I;: I;: U H"«, l3=0x18}
0x047b…0494 Line {l1=0x17, l2=»0330 ENDPROC ;PLOTINIT.«, l3=0x17}
0x0494…04a8 Line {l1=0x12, l2=»0340 PROC PLOTSLUT«, l3=0x12}
0x04a8…04c6 Line {l1=0x1c, l2=»0350 REM AFBRYDER PLOTTEREN.«, l3=0x1c}
0x04c6…04d6 Line {l1=0x0e, l2=»0360 PRINT "@"«, l3=0x0e}
0x04d6…04ef Line {l1=0x17, l2=»0370 ENDPROC ;PLOTSLUT.«, l3=0x17}
0x04ef…0503 Line {l1=0x12, l2=»0380 PROC PLOTTEST«, l3=0x12}
0x0503…0530 Line {l1=0x2b, l2=»0390 REM KØRER PLOTTERENS SELVTEST PROGRAM.«, l3=0x2b}
0x0530…0540 Line {l1=0x0e, l2=»0400 PRINT "T"«, l3=0x0e}
0x0540…0559 Line {l1=0x17, l2=»0410 ENDPROC ;PLOTTEST.«, l3=0x17}
0x0559…056b Line {l1=0x10, l2=»0420 PROC NULPKT«, l3=0x10}
0x056b…058c Line {l1=0x1f, l2=»0430 REM FASTSÆTTER NULPUNKTET.«, l3=0x1f}
0x058c…059c Line {l1=0x0e, l2=»0440 PRINT "O"«, l3=0x0e}
0x059c…05b3 Line {l1=0x15, l2=»0450 ENDPROC ;NULPKT.«, l3=0x15}
0x05b3…05c5 Line {l1=0x10, l2=»0460 PROC PENNED«, l3=0x10}
0x05c5…05ed Line {l1=0x26, l2=»0470 REM SÆTTER PENNEN NED PÅ PAPIRET.«, l3=0x26}
0x05ed…05fd Line {l1=0x0e, l2=»0480 PRINT "D"«, l3=0x0e}
0x05fd…0614 Line {l1=0x15, l2=»0490 ENDPROC ;PENNED.«, l3=0x15}
0x0614…0625 Line {l1=0x0f, l2=»0500 PROC PENOP«, l3=0x0f}
0x0625…064c Line {l1=0x25, l2=»0510 REM HÆVER PENNEN OP FRA PAPIRET.«, l3=0x25}
0x064c…065c Line {l1=0x0e, l2=»0520 PRINT "U"«, l3=0x0e}
0x065c…0672 Line {l1=0x14, l2=»0530 ENDPROC ;PENOP.«, l3=0x14}
0x0672…068a Line {l1=0x16, l2=»0540 PROC FLYTABS(X,Y)«, l3=0x16}
0x068a…06c4 Line {l1=0x38, l2=»0550 REM FLYTTER PENNEN ABSOLUT TIL KOORDINATERNE (X,Y).«, l3=0x38}
0x06c4…06dc Line {l1=0x16, l2=»0560 X=INT(X);Y=INT(Y)«, l3=0x16}
0x06dc…06f6 Line {l1=0x18, l2=»0570 PRINT "U A";X;",";Y«, l3=0x18}
0x06f6…070e Line {l1=0x16, l2=»0580 ENDPROC ;FLYTABS.«, l3=0x16}
0x070e…072d Line {l1=0x1d, l2=»0590 PROC TEGNABS(LINTYP,X,Y)«, l3=0x1d}
0x072d…0764 Line {l1=0x35, l2=»0600 REM TEGNER LINIE ABSOLUT TIL KOORDINATERNE (X,Y)«, l3=0x35}
0x0764…0789 Line {l1=0x23, l2=»0610 REM MED DEN ANGIVNE LINIETYPE.«, l3=0x23}
0x0789…07a1 Line {l1=0x16, l2=»0620 X=INT(X);Y=INT(Y)«, l3=0x16}
0x07a1…07cc Line {l1=0x29, l2=»0630 PRINT "D A L"+CHR(48+LINTYP);X;",";Y«, l3=0x29}
0x07cc…07e4 Line {l1=0x16, l2=»0640 ENDPROC ;TEGNABS.«, l3=0x16}
0x07e4…07fc Line {l1=0x16, l2=»0650 PROC FLYTREL(X,Y)«, l3=0x16}
0x07fc…0837 Line {l1=0x39, l2=»0660 REM FLYTTER PENNEN RELATIVT TIL KOORDINATERNE (X,Y).«, l3=0x39}
0x0837…084f Line {l1=0x16, l2=»0670 X=INT(X);Y=INT(Y)«, l3=0x16}
0x084f…0869 Line {l1=0x18, l2=»0680 PRINT "U R";X;",";Y«, l3=0x18}
0x0869…0881 Line {l1=0x16, l2=»0690 ENDPROC ;FLYTREL.«, l3=0x16}
0x0881…0899 Line {l1=0x16, l2=»0700 PROC TEGNREL(X,Y)«, l3=0x16}
0x0899…08d2 Line {l1=0x37, l2=»0710 REM TEGNER LINIE RELATIVT TIL KOORDINATERNE (X,Y).«, l3=0x37}
0x08d2…08ea Line {l1=0x16, l2=»0720 X=INT(X);Y=INT(Y)«, l3=0x16}
0x08ea…0907 Line {l1=0x1b, l2=»0730 PRINT "D R L0";X;",";Y«, l3=0x1b}
0x0907…091f Line {l1=0x16, l2=»0740 ENDPROC ;FLYTREL.«, l3=0x16}
0x091f…0941 Line {l1=0x20, l2=»0750 PROC FLYTPOL(VINKEL,LÆNGDE)«, l3=0x20}
0x0941…0978 Line {l1=0x35, l2=»0760 REM FLYTTER PENNEN DEN ANGIVNE LÆNGDE OG MED DEN«, l3=0x35}
0x0978…09a9 Line {l1=0x2f, l2=»0770 REM ANFGIVNE VINKEL I FORHOLD TIL VANDRET.«, l3=0x2f}
0x09a9…09d0 Line {l1=0x25, l2=»0780 X=INT(LÆNGDE*COS(VINKEL/180*PI))«, l3=0x25}
0x09d0…09f7 Line {l1=0x25, l2=»0790 Y=INT(LÆNGDE*SIN(VINKEL/180*PI))«, l3=0x25}
0x09f7…0a11 Line {l1=0x18, l2=»0800 PRINT "U R";X;",";Y«, l3=0x18}
0x0a11…0a29 Line {l1=0x16, l2=»0810 ENDPROC ;FLYTPOL.«, l3=0x16}
0x0a29…0a4b Line {l1=0x20, l2=»0820 PROC TEGNPOL(VINKEL,LÆNGDE)«, l3=0x20}
0x0a4b…0a83 Line {l1=0x36, l2=»0830 REM TEGNER EN LINIE MED DEN ANGIVNE LÆNGDE OG MED«, l3=0x36}
0x0a83…0ab6 Line {l1=0x31, l2=»0840 REM DE ANGIVNE VINKEL I FORHOLD TIL VANDRET.«, l3=0x31}
0x0ab6…0add Line {l1=0x25, l2=»0850 X=INT(LÆNGDE*COS(VINKEL/180*PI))«, l3=0x25}
0x0add…0b04 Line {l1=0x25, l2=»0860 Y=INT(LÆNGDE*SIN(VINKEL/180*PI))«, l3=0x25}
0x0b04…0b1e Line {l1=0x18, l2=»0870 PRINT "D R";X;",";Y«, l3=0x18}
0x0b1e…0b36 Line {l1=0x16, l2=»0880 ENDPROC ;TEGNPOL.«, l3=0x16}
0x0b36…0b55 Line {l1=0x1d, l2=»0890 PROC SYMBOL(HØJDE,FIGUR)«, l3=0x1d}
0x0b55…0b9e Line {l1=0x47, l2=»0900 REM TEGNER ET AF FIGURERNE:PLUS(0),KORS(1),FIRKANT(2),OTTEKANT(3),«, l3=0x47}
0x0b9e…0be0 Line {l1=0x40, l2=»0910 REM TREKANT(4),TIMEGLAS(5), MED EN AF HØJDERNE 0,1,2,3,4,5.«, l3=0x40}
0x0be0…0c11 Line {l1=0x2f, l2=»0920 PRINT "M"+CHR(48+HØJDE)+CHR(48+FIGUR)+" U"«, l3=0x2f}
0x0c11…0c28 Line {l1=0x15, l2=»0930 ENDPROC ;SYMBOL.«, l3=0x15}
0x0c28…0c4c Line {l1=0x22, l2=»0940 PROC TEKST(VINKEL,HØJDE,TEXT)«, l3=0x22}
0x0c4c…0c7f Line {l1=0x31, l2=»0950 REM UDSKRIVER EN TEKST MED DEN ANGIVNE HØJDE«, l3=0x31}
0x0c7f…0caa Line {l1=0x29, l2=»0960 REM OG VINKEL I FORHOLD TIL VANDRET.«, l3=0x29}
0x0caa…0cd0 Line {l1=0x24, l2=»0970 V=1+((360-VINKEL) DIV 90) MOD 4«, l3=0x24}
0x0cd0…0d06 Line {l1=0x34, l2=»0980 PRINT "S"+CHR(48+V)+CHR(48+HØJDE);" ";TEXT$;"_"«, l3=0x34}
0x0d06…0d1c Line {l1=0x14, l2=»0990 ENDPROC ;TEKST.«, l3=0x14}
0x0d1c…0d3c Line {l1=0x1e, l2=»1000 PROC TAL(VINKEL,HØJDE,NR)«, l3=0x1e}
0x0d3c…0d79 Line {l1=0x3b, l2=»1010 REM UDSKRIVER ET TAL MED DEN ANGIVNE HØJDE OG VINKEL I«, l3=0x3b}
0x0d79…0d98 Line {l1=0x1d, l2=»1020 REM FORHOLD TIL VANDRET.«, l3=0x1d}
0x0d98…0dbe Line {l1=0x24, l2=»1030 V=1+((360-VINKEL) DIV 90) MOD 4«, l3=0x24}
0x0dbe…0de7 Line {l1=0x27, l2=»1040 PRINT "S"+CHR(48+V)+CHR(48+HØJDE);«, l3=0x27}
0x0de7…0e0e Line {l1=0x25, l2=»1050 IF NR<=-1 OR NR=0 OR 1<=NR THEN «, l3=0x25}
0x0e0e…0e21 Line {l1=0x11, l2=»1060 PRINT NR;"_"«, l3=0x11}
0x0e21…0e2d Line {l1=0x0a, l2=»1070 ELSE «, l3=0x0a}
0x0e2d…0e4c Line {l1=0x1d, l2=»1080 PRINT USING " #.## _":NR«, l3=0x1d}
0x0e4c…0e59 Line {l1=0x0b, l2=»1090 ENDIF «, l3=0x0b}
0x0e59…0e6d Line {l1=0x12, l2=»1100 ENDPROC ;TAL.«, l3=0x12}
0x0e6d…0e9a Line {l1=0x2b, l2=»1440 PROC AKSE(VI,HØ,SK,SE,MIN,MAX,TYP,TEX)«, l3=0x2b}
0x0e9a…0edf Line {l1=0x43, l2=»1450 REM **********************************************************«, l3=0x43}
0x0edf…0f24 Line {l1=0x43, l2=»1460 REM *AKSE TEGNER EN AKSE MED VINKLEN VI I FORHOLD TIL VANDRET*«, l3=0x43}
0x0f24…0f69 Line {l1=0x43, l2=»1470 REM *FRA MIN TIL MAX. SÆTTER TEKSTEN TEX MED BOGSTAVHØJDEN HØ*«, l3=0x43}
0x0f69…0fae Line {l1=0x43, l2=»1480 REM *PÅ AKSEN. SKALERINGEN BESTEMMES AF SK ANGIVET I ANTAL *«, l3=0x43}
0x0fae…0ff3 Line {l1=0x43, l2=»1490 REM *STEPS PR. ENHED. ANTALLET AF DELSTREGER PR. ENHED BE- *«, l3=0x43}
0x0ff3…1038 Line {l1=0x43, l2=»1500 REM *STEMMES AF 1/SE. *«, l3=0x43}
0x1038…107d Line {l1=0x43, l2=»1510 REM **********************************************************«, l3=0x43}
0x107d…10b9 Line {l1=0x3a, l2=»1520 KX=COS(VI/180*PI);KY=SIN(VI/180*PI);HB=(18*2**(HØ-1))«, l3=0x3a}
0x10b9…10db Line {l1=0x20, l2=»1530 IF SGN(MIN)<>SGN(MAX) THEN «, l3=0x20}
0x10db…10ef Line {l1=0x12, l2=»1540 MI=MIN;MX=MAX«, l3=0x12}
0x10ef…10fb Line {l1=0x0a, l2=»1550 ELSE «, l3=0x0a}
0x10fb…1115 Line {l1=0x18, l2=»1560 IF SGN(MIN)=1 THEN «, l3=0x18}
0x1115…112b Line {l1=0x14, l2=»1570 MI=0;MX=MAX-MIN«, l3=0x14}
0x112b…1137 Line {l1=0x0a, l2=»1580 ELSE «, l3=0x0a}
0x1137…114d Line {l1=0x14, l2=»1590 MX=0;MI=MIN-MAX«, l3=0x14}
0x114d…115a Line {l1=0x0b, l2=»1600 ENDIF «, l3=0x0b}
0x115a…1167 Line {l1=0x0b, l2=»1610 ENDIF «, l3=0x0b}
0x1167…11b1 Line {l1=0x48, l2=»1620 XMAX=(MX*SK+100)*KX;YMAX=(MX*SK+100)*KY;XMIN=MI*SK*KX;YMIN=MI*SK*KY«, l3=0x48}
0x11b1…11cf Line {l1=0x1c, l2=»1630 EXEC FLYTABS(XMIN,YMIN)«, l3=0x1c}
0x11cf…11ef Line {l1=0x1e, l2=»1640 EXEC TEGNABS(0,XMAX,YMAX)«, l3=0x1e}
0x11ef…1214 Line {l1=0x23, l2=»1650 EXEC TEGNREL((KY*20),(-KX*20))«, l3=0x23}
0x1214…123e Line {l1=0x28, l2=»1660 EXEC TEGNREL((KX-KY)*20,(KX+KY)*20)«, l3=0x28}
0x123e…1269 Line {l1=0x29, l2=»1670 EXEC TEGNREL((-KX-KY)*20,(KX-KY)*20)«, l3=0x29}
0x1269…128e Line {l1=0x23, l2=»1680 EXEC TEGNREL((KY*20),(-KX*20))«, l3=0x23}
0x128e…12ad Line {l1=0x1d, l2=»1690 IF 0<=KY AND KY<=1 THEN «, l3=0x1d}
0x12ad…12e6 Line {l1=0x37, l2=»1700 EXEC FLYTREL((KY*30),(-KX*30-HB*(SGN(KX-KY)+1)/2))«, l3=0x37}
0x12e6…12f2 Line {l1=0x0a, l2=»1710 ELSE «, l3=0x0a}
0x12f2…132c Line {l1=0x38, l2=»1720 EXEC FLYTREL((-KY*30),(KX*30-HB*(SGN(-KX+KY)+1)/2))«, l3=0x38}
0x132c…1339 Line {l1=0x0b, l2=»1730 ENDIF «, l3=0x0b}
0x1339…1355 Line {l1=0x1a, l2=»1740 EXEC TEKST(0,HØ,TEX$)«, l3=0x1a}
0x1355…136d Line {l1=0x16, l2=»1750 IF TYP$<>"" THEN «, l3=0x16}
0x136d…1386 Line {l1=0x17, l2=»1760 SI=(MAX DIV SE)*SE«, l3=0x17}
0x1386…13b6 Line {l1=0x2e, l2=»1770 FOR I=(SI+MI-MIN)*SK TO MI*SK STEP -SE*SK«, l3=0x2e}
0x13b6…13e4 Line {l1=0x2c, l2=»1780 EXEC FLYTABS((KX*I-KY*10),(KY*I+KX*10))«, l3=0x2c}
0x13e4…1409 Line {l1=0x23, l2=»1790 EXEC TEGNREL((KY*20),(-KX*20))«, l3=0x23}
0x1409…1428 Line {l1=0x1d, l2=»1800 IF 0<=KY AND KY<=1 THEN «, l3=0x1d}
0x1428…145e Line {l1=0x34, l2=»1810 EXEC FLYTREL((KY*20),(-KX*20-HB*(SGN(KX)+1)/2))«, l3=0x34}
0x145e…146a Line {l1=0x0a, l2=»1820 ELSE «, l3=0x0a}
0x146a…14a0 Line {l1=0x34, l2=»1830 EXEC FLYTREL((-KY)*40,(KX)*40+HB*(SGN(KX)-1)/2)«, l3=0x34}
0x14a0…14ad Line {l1=0x0b, l2=»1840 ENDIF «, l3=0x0b}
0x14ad…14c7 Line {l1=0x18, l2=»1850 IF TYP$="LIN" THEN «, l3=0x18}
0x14c7…14d4 Line {l1=0x0b, l2=»1860 SII=SI«, l3=0x0b}
0x14d4…14e0 Line {l1=0x0a, l2=»1870 ELSE «, l3=0x0a}
0x14e0…14f1 Line {l1=0x0f, l2=»1880 SII=10**SI«, l3=0x0f}
0x14f1…14fe Line {l1=0x0b, l2=»1890 ENDIF «, l3=0x0b}
0x14fe…151c Line {l1=0x1c, l2=»1900 IF ABS(SII)<=9999 THEN «, l3=0x1c}
0x151c…1536 Line {l1=0x18, l2=»1910 SJ=ROU(SII*100)/100«, l3=0x18}
0x1536…1542 Line {l1=0x0a, l2=»1920 ELSE «, l3=0x0a}
0x1542…1574 Line {l1=0x30, l2=»1930 IF 9999<ABS(SII) AND ABS(SII)<=999999 THEN «, l3=0x30}
0x1574…1586 Line {l1=0x10, l2=»1940 SJ=ROU(SII)«, l3=0x10}
0x1586…1592 Line {l1=0x0a, l2=»1950 ELSE «, l3=0x0a}
0x1592…159f Line {l1=0x0b, l2=»1960 SJ=SII«, l3=0x0b}
0x159f…15ac Line {l1=0x0b, l2=»1970 ENDIF «, l3=0x0b}
0x15ac…15b9 Line {l1=0x0b, l2=»1980 ENDIF «, l3=0x0b}
0x15b9…15df Line {l1=0x24, l2=»1990 IF SJ<>0 THEN EXEC TAL(0,HØ,SJ)«, l3=0x24}
0x15df…15ee Line {l1=0x0d, l2=»2000 SI=SI-SE«, l3=0x0d}
0x15ee…15fb Line {l1=0x0b, l2=»2010 NEXT I«, l3=0x0b}
0x15fb…1608 Line {l1=0x0b, l2=»2020 ENDIF «, l3=0x0b}
0x1608…161d Line {l1=0x13, l2=»2030 ENDPROC ;AKSE.«, l3=0x13}
0x161d…165a Line {l1=0x3b, l2=»2040 PROC KOSYS(XI,XX,YI,YX,XC,YC,X0,Y0,XTP,YTP,AK,XTX,YTX)«, l3=0x3b}
0x165a…169b Line {l1=0x3f, l2=»2050 REM ******************************************************«, l3=0x3f}
0x169b…16dc Line {l1=0x3f, l2=»2060 REM *KOSYS FORETAGER EN AUTOSKALERING OG EN AUTONULPUNKTS*«, l3=0x3f}
0x16dc…171d Line {l1=0x3f, l2=»2070 REM *BESTEMMELSE, HVIS XC OG/ELLER YC ER MINDRE END ELLER*«, l3=0x3f}
0x171d…175e Line {l1=0x3f, l2=»2080 REM *LIG MED NUL. SKALERINGEN XC,YC BESTEMMES DA AF XI,XX*«, l3=0x3f}
0x175e…179f Line {l1=0x3f, l2=»2090 REM *OG YI,YX. ELLERS ANVENDES DE UDEFRA ANGIVNE SKALE- *«, l3=0x3f}
0x179f…17e0 Line {l1=0x3f, l2=»2100 REM *RINGER XC,YC OG DE UDEFRA ANGIVNE NULPUNKTER XØ,YØ. *«, l3=0x3f}
0x17e0…1821 Line {l1=0x3f, l2=»2110 REM *DESUDEN VIL KOORD, HVIS AK ER LIG MED EEN, UDTEGNE *«, l3=0x3f}
0x1821…1862 Line {l1=0x3f, l2=»2120 REM *KOORDINATAKSERNE, SÆTTE TEKSTERNE XTX OG YTX PÅ *«, l3=0x3f}
0x1862…18a3 Line {l1=0x3f, l2=»2130 REM *AKSERNE OG ENDELIG UDSKRIVE EN SKALA, SOM VIL VÆRE *«, l3=0x3f}
0x18a3…18e4 Line {l1=0x3f, l2=»2140 REM *LINIÆR, HVIS XTP(YTP) ER LIG "LIN" OG EKSPONENTIAL, *«, l3=0x3f}
0x18e4…1925 Line {l1=0x3f, l2=»2150 REM *HVIS XTP(YTP) ER FORSKELLIG FRA "LIN". *«, l3=0x3f}
0x1925…1966 Line {l1=0x3f, l2=»2160 REM ******************************************************«, l3=0x3f}
0x1966…1981 Line {l1=0x19, l2=»2170 PROC XYDBST(XYC,XYD)«, l3=0x19}
0x1981…1998 Line {l1=0x15, l2=»2180 XYD=INT(200/XYC)«, l3=0x15}
0x1998…19c3 Line {l1=0x29, l2=»2190 IF 200<=XYC AND XYC<400 THEN XYD=0.5«, l3=0x29}
0x19c3…19f0 Line {l1=0x2b, l2=»2200 IF 400<=XYC AND XYC<1800 THEN XYD=0.25«, l3=0x2b}
0x19f0…1a10 Line {l1=0x1e, l2=»2210 IF 1800<=XYC THEN XYD=0.1«, l3=0x1e}
0x1a10…1a27 Line {l1=0x15, l2=»2220 ENDPROC ;XYDBST.«, l3=0x15}
0x1a27…1a3d Line {l1=0x14, l2=»2230 SL=3500;SB=2300«, l3=0x14}
0x1a3d…1a5b Line {l1=0x1c, l2=»2240 IF XC<=0 OR YC<=0 THEN «, l3=0x1c}
0x1a5b…1a77 Line {l1=0x1a, l2=»2250 XC,YC=INT(SB/(YX-YI))«, l3=0x1a}
0x1a77…1aaa Line {l1=0x31, l2=»2260 IF XC=>SL/(XX-XI) THEN XC,YC=INT(SL/(XX-XI))«, l3=0x31}
0x1aaa…1ad1 Line {l1=0x25, l2=»2270 XO=-XI*XC;YO=-YI*YC;XF=-20;YF=90«, l3=0x25}
0x1ad1…1af1 Line {l1=0x1e, l2=»2280 IF 0<=XO AND XO<=SL THEN «, l3=0x1e}
0x1af1…1afe Line {l1=0x0b, l2=»2290 XPO=XO«, l3=0x0b}
0x1afe…1b0a Line {l1=0x0a, l2=»2300 ELSE «, l3=0x0a}
0x1b0a…1b1e Line {l1=0x12, l2=»2310 IF XO<0 THEN «, l3=0x12}
0x1b1e…1b2a Line {l1=0x0a, l2=»2320 XPO=0«, l3=0x0a}
0x1b2a…1b36 Line {l1=0x0a, l2=»2330 ELSE «, l3=0x0a}
0x1b36…1b43 Line {l1=0x0b, l2=»2340 XPO=SL«, l3=0x0b}
0x1b43…1b50 Line {l1=0x0b, l2=»2350 ENDIF «, l3=0x0b}
0x1b50…1b5d Line {l1=0x0b, l2=»2360 ENDIF «, l3=0x0b}
0x1b5d…1b7d Line {l1=0x1e, l2=»2370 IF 0<=YO AND YO<=SB THEN «, l3=0x1e}
0x1b7d…1b8a Line {l1=0x0b, l2=»2380 YPO=YO«, l3=0x0b}
0x1b8a…1b96 Line {l1=0x0a, l2=»2390 ELSE «, l3=0x0a}
0x1b96…1baa Line {l1=0x12, l2=»2400 IF YO<0 THEN «, l3=0x12}
0x1baa…1bb6 Line {l1=0x0a, l2=»2410 YPO=0«, l3=0x0a}
0x1bb6…1bc2 Line {l1=0x0a, l2=»2420 ELSE «, l3=0x0a}
0x1bc2…1bcf Line {l1=0x0b, l2=»2430 YPO=SB«, l3=0x0b}
0x1bcf…1bdc Line {l1=0x0b, l2=»2440 ENDIF «, l3=0x0b}
0x1bdc…1be9 Line {l1=0x0b, l2=»2450 ENDIF «, l3=0x0b}
0x1be9…1bf5 Line {l1=0x0a, l2=»2460 ELSE «, l3=0x0a}
0x1bf5…1c37 Line {l1=0x40, l2=»2470 XC=XC*10;YC=YC*10;XPO,XO=X0*10;YPO,YO=Y0*10;XF=-420;YF=-160«, l3=0x40}
0x1c37…1c44 Line {l1=0x0b, l2=»2480 ENDIF «, l3=0x0b}
0x1c44…1c58 Line {l1=0x12, l2=»2490 IF AK=1 THEN «, l3=0x12}
0x1c58…1c7e Line {l1=0x24, l2=»2500 EXEC FLYTABS((XPO+XF),(YPO+YF))«, l3=0x24}
0x1c7e…1c90 Line {l1=0x10, l2=»2510 EXEC NULPKT«, l3=0x10}
0x1c90…1ca9 Line {l1=0x17, l2=»2520 EXEC XYDBST(XC,XD)«, l3=0x17}
0x1ca9…1cd4 Line {l1=0x29, l2=»2530 EXEC AKSE(0,1,XC,XD,XI,XX,XTP$,XTX$)«, l3=0x29}
0x1cd4…1ced Line {l1=0x17, l2=»2540 EXEC XYDBST(YC,YD)«, l3=0x17}
0x1ced…1d19 Line {l1=0x2a, l2=»2550 EXEC AKSE(90,1,YC,YD,YI,YX,YTP$,YTX$)«, l3=0x2a}
0x1d19…1d26 Line {l1=0x0b, l2=»2560 ENDIF «, l3=0x0b}
0x1d26…1d40 Line {l1=0x18, l2=»2570 X0=XO-XPO;Y0=YO-YPO«, l3=0x18}
0x1d40…1d56 Line {l1=0x14, l2=»2580 ENDPROC ;KOSYS.«, l3=0x14}
0x1d56…1d9a Line {l1=0x42, l2=»3320 PROC PARKRV(TST,TSL,DT,XSKA,YSKA,XNUL,YNUL,LITY,AKSR,XTE,YTE)«, l3=0x42}
0x1d9a…1dde Line {l1=0x42, l2=»3330 REM *********************************************************«, l3=0x42}
0x1dde…1e22 Line {l1=0x42, l2=»3340 REM *PARKRV FORETAGER EN AFBILDNING AF PARAMETERFREMSTILLIN-*«, l3=0x42}
0x1e22…1e66 Line {l1=0x42, l2=»3350 REM *GEN ANGIVET I PROCEDUREN PARM MED PARAMETEREN T LØBENDE*«, l3=0x42}
0x1e66…1eaa Line {l1=0x42, l2=»3360 REM *FRA TST TIL TSL MED ET STEP PÅ DT. HVIS XSKA OG/ELLER *«, l3=0x42}
0x1eaa…1eee Line {l1=0x42, l2=»3370 REM *YSKA ER MINDRE END NUL FORETAGES EN AUTOMATISK BESTEM- *«, l3=0x42}
0x1eee…1f32 Line {l1=0x42, l2=»3380 REM *MELSE AF SKALERINGEN OG NULPUNKTET. ELLERS BENNYTTES EN*«, l3=0x42}
0x1f32…1f76 Line {l1=0x42, l2=»3390 REM *SKALERING BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT *«, l3=0x42}
0x1f76…1fba Line {l1=0x42, l2=»3400 REM *AF XNUL,YNUL. KURVEN TEGNES MED DEN AF LITY VALGTE LI- *«, l3=0x42}
0x1fba…1ffe Line {l1=0x42, l2=»3410 REM *NIETYPE. HVIS AKSR ER LIG MED EEN UDTEGNES DESUDEN *«, l3=0x42}
0x1ffe…2042 Line {l1=0x42, l2=»3420 REM *KOORDINATAKSER MED TEKSTERNE XTE,YTE PÅSAT, OG PLOTTE- *«, l3=0x42}
0x2042…2086 Line {l1=0x42, l2=»3430 REM *RENS NULPUNKT FASTSÆTTES. *«, l3=0x42}
0x2086…20ca Line {l1=0x42, l2=»3440 REM *********************************************************«, l3=0x42}
0x20ca…20fb Line {l1=0x2f, l2=»3450 LIN$="LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL«, l3=0x2f}
0x20fb…2120 Line {l1=0x23, l2=»3460 XMI,YMI=9.2E18;XMX,YMX=-9.2E18«, l3=0x23}
0x2120…2140 Line {l1=0x1e, l2=»3470 FOR TK=TST TO TSL STEP DT«, l3=0x1e}
0x2140…215a Line {l1=0x18, l2=»3480 EXEC PARM(TK,XK,YK)«, l3=0x18}
0x215a…2177 Line {l1=0x1b, l2=»3490 IF XK<=XMI THEN XMI=XK«, l3=0x1b}
0x2177…2194 Line {l1=0x1b, l2=»3500 IF XK=>XMX THEN XMX=XK«, l3=0x1b}
0x2194…21b1 Line {l1=0x1b, l2=»3510 IF YK<=YMI THEN YMI=YK«, l3=0x1b}
0x21b1…21ce Line {l1=0x1b, l2=»3520 IF YK=>YMX THEN YMX=YK«, l3=0x1b}
0x21ce…21dc Line {l1=0x0c, l2=»3530 NEXT TK«, l3=0x0c}
0x21dc…2223 Line {l1=0x45, l2=»3540 EXEC KOSYS(XMI,XMX,YMI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$)«, l3=0x45}
0x2223…223c Line {l1=0x17, l2=»3550 EXEC PARM(T,XK,YK)«, l3=0x17}
0x223c…2266 Line {l1=0x28, l2=»3560 EXEC FLYTABS((XK*XS+XØ),(YK*YS+YØ))«, l3=0x28}
0x2266…2286 Line {l1=0x1e, l2=»3570 FOR TK=TST TO TSL STEP DT«, l3=0x1e}
0x2286…22a0 Line {l1=0x18, l2=»3580 EXEC PARM(TK,XK,YK)«, l3=0x18}
0x22a0…22cf Line {l1=0x2d, l2=»3590 EXEC TEGNABS(LITY,(XK*XS+XØ),(YK*YS+YØ))«, l3=0x2d}
0x22cf…22dd Line {l1=0x0c, l2=»3600 NEXT TK«, l3=0x0c}
0x22dd…22ee Line {l1=0x0f, l2=»3610 EXEC PENOP«, l3=0x0f}
0x22ee…2305 Line {l1=0x15, l2=»3620 ENDPROC ;PARKRV.«, l3=0x15}
0x2305…232f Line {l1=0x28, l2=»4000 DIM NAVN$(20),XTEKST$(1),YTEKST$(1)«, l3=0x28}
0x232f…233f Line {l1=0x0e, l2=»4010 OUTPUT P1«, l3=0x0e}
0x233f…2353 Line {l1=0x12, l2=»4020 EXEC PLOTINIT«, l3=0x12}
0x2353…2374 Line {l1=0x1f, l2=»4030 NAVN$="DDE PLOTTER DEMO-4"«, l3=0x1f}
0x2374…238f Line {l1=0x19, l2=»4040 EXEC FLYTABS(0,2300)«, l3=0x19}
0x238f…23ab Line {l1=0x1a, l2=»4050 EXEC TEKST(0,4,NAVN$)«, l3=0x1a}
0x23ab…23c2 Line {l1=0x15, l2=»4060 PROC PARM(T,X,Y)«, l3=0x15}
0x23c2…23dc Line {l1=0x18, l2=»4070 X=5*R*COS(T/180*PI)«, l3=0x18}
0x23dc…23f6 Line {l1=0x18, l2=»4080 Y=2*R*SIN(T/180*PI)«, l3=0x18}
0x23f6…240b Line {l1=0x13, l2=»4090 ENDPROC ;PARM.«, l3=0x13}
0x240b…2429 Line {l1=0x1c, l2=»4100 XTEKST$="X";YTEKST$="Y"«, l3=0x1c}
0x2429…2444 Line {l1=0x19, l2=»4110 FOR R=5 TO 1 STEP -1«, l3=0x19}
0x2444…2483 Line {l1=0x3d, l2=»4120 EXEC PARKRV(0,360,4,3,3,110,130,0,(R-4),XTEKST$,YTEKST$)«, l3=0x3d}
0x2483…2490 Line {l1=0x0b, l2=»4130 NEXT R«, l3=0x0b}
0x2490…249c Line {l1=0x0a, l2=»4140 STOP «, l3=0x0a}
0x249c…24a0 00 00 63 63 ┆ cc┆
0x24a0…24c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x15…]
0x2760…2780 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆