|
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: »DEMO1.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »DEMO1.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. 1110 PROC STIPREL(STREG,MLRUM,XS,YS) 1120 REM **************************************************** 1130 REM *STIPREL TEGNER RELATIVT EN STIPLET LINIE TIL XS,YS* 1140 REM *MED STREGLÆNGDEN STREG OG MELLEMRUMSLÆNGDEN MLRUM.* 1150 REM **************************************************** 1160 PROC ROUF(T,A,R,S) 1170 T=T+S;D=A;A=ROU(T);R=A-D 1180 ENDPROC ;ROUF. 1190 L=SQR(XS**2+YS**2) 1200 XL,YL,XA,YA,XR,YR=0 1210 IF L<>0 AND STREG<>0 THEN 1220 SX=STREG*XS/L;SY=STREG*YS/L;MX=MLRUM*XS/L;MY=MLRUM*YS/L 1230 EXEC ROUF(XL,XA,XR,SX) 1240 EXEC ROUF(YL,YA,YR,SY) 1250 WHILE SGN(XS-XA)=SGN(XS) AND SGN(YS-YA)=SGN(YS) DO 1260 EXEC TEGNREL(XR,YR) 1270 EXEC ROUF(XL,XA,XR,MX) 1280 EXEC ROUF(YL,YA,YR,MY) 1290 EXEC FLYTREL(XR,YR) 1300 EXEC ROUF(XL,XA,XR,SX) 1310 EXEC ROUF(YL,YA,YR,SY) 1320 ENDWHILE 1330 EXEC ROUF(XL,XA,XR,-SX) 1340 EXEC ROUF(YL,YA,YR,-SY) 1350 IF SGN(XS-XA)=SGN(XS) AND SGN(YS-YA)=SGN(YS) THEN 1360 EXEC TEGNREL((XS-XA),(YS-YA)) 1370 ELSE 1380 EXEC FLYTREL((XS-XA),(YS-YA)) 1390 ENDIF 1400 ELSE 1410 EXEC FLYTREL(XS,YS) 1420 ENDIF 1430 ENDPROC ;STIPREL. 1500 DIM NAVN$(20) 1507 OUTPUT P1 1510 EXEC PLOTINIT 1520 NAVN$="DDE PLOTTER DEMO-1" 1530 EXEC FLYTABS(0,2300) 1540 EXEC TEKST(0,4,NAVN$) 1550 EXEC FLYTABS(1000,300) 1560 EXEC NULPKT 1570 EXEC TEGNABS(0,1800,1800) 1580 EXEC FLYTREL(-1800,0) 1590 EXEC TEGNABS(7,1800,0) 1600 EXEC STIPREL(100,50,0,1800) 1610 EXEC STIPREL(10,100,-1800,0) 1620 EXEC TEGNPOL(225,1272.79) 1630 EXEC FLYTPOL(-45,1272.79) 1640 EXEC TEGNREL(-900,900) 1650 EXEC FLYTABS(115,650) 1660 NAVN$="DDE" 1670 EXEC TEKST(90,5,NAVN$) 1680 EXEC FLYTABS(720,1600) 1690 EXEC TEKST(0,4,NAVN$) 1700 EXEC FLYTABS(1600,970) 1710 EXEC TEKST(270,3,NAVN$) 1720 EXEC FLYTABS(935,130) 1730 EXEC TEKST(180,2,NAVN$) 1740 NAVN$="DEMO-1 SLUT" 1750 EXEC FLYTABS(-1000,-300) 1760 EXEC TEKST(0,1,NAVN$) 1770 EXEC PLOTSLUT 1780 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…0e93 Line {l1=0x24, l2=»1110 PROC STIPREL(STREG,MLRUM,XS,YS)«, l3=0x24}
0x0e93…0ed2 Line {l1=0x3d, l2=»1120 REM ****************************************************«, l3=0x3d}
0x0ed2…0f11 Line {l1=0x3d, l2=»1130 REM *STIPREL TEGNER RELATIVT EN STIPLET LINIE TIL XS,YS*«, l3=0x3d}
0x0f11…0f50 Line {l1=0x3d, l2=»1140 REM *MED STREGLÆNGDEN STREG OG MELLEMRUMSLÆNGDEN MLRUM.*«, l3=0x3d}
0x0f50…0f8f Line {l1=0x3d, l2=»1150 REM ****************************************************«, l3=0x3d}
0x0f8f…0fa8 Line {l1=0x17, l2=»1160 PROC ROUF(T,A,R,S)«, l3=0x17}
0x0fa8…0fc7 Line {l1=0x1d, l2=»1170 T=T+S;D=A;A=ROU(T);R=A-D«, l3=0x1d}
0x0fc7…0fdc Line {l1=0x13, l2=»1180 ENDPROC ;ROUF.«, l3=0x13}
0x0fdc…0ff5 Line {l1=0x17, l2=»1190 L=SQR(XS**2+YS**2)«, l3=0x17}
0x0ff5…100f Line {l1=0x18, l2=»1200 XL,YL,XA,YA,XR,YR=0«, l3=0x18}
0x100f…1030 Line {l1=0x1f, l2=»1210 IF L<>0 AND STREG<>0 THEN «, l3=0x1f}
0x1030…106e Line {l1=0x3c, l2=»1220 SX=STREG*XS/L;SY=STREG*YS/L;MX=MLRUM*XS/L;MY=MLRUM*YS/L«, l3=0x3c}
0x106e…108b Line {l1=0x1b, l2=»1230 EXEC ROUF(XL,XA,XR,SX)«, l3=0x1b}
0x108b…10a8 Line {l1=0x1b, l2=»1240 EXEC ROUF(YL,YA,YR,SY)«, l3=0x1b}
0x10a8…10e2 Line {l1=0x38, l2=»1250 WHILE SGN(XS-XA)=SGN(XS) AND SGN(YS-YA)=SGN(YS) DO «, l3=0x38}
0x10e2…10fc Line {l1=0x18, l2=»1260 EXEC TEGNREL(XR,YR)«, l3=0x18}
0x10fc…1119 Line {l1=0x1b, l2=»1270 EXEC ROUF(XL,XA,XR,MX)«, l3=0x1b}
0x1119…1136 Line {l1=0x1b, l2=»1280 EXEC ROUF(YL,YA,YR,MY)«, l3=0x1b}
0x1136…1150 Line {l1=0x18, l2=»1290 EXEC FLYTREL(XR,YR)«, l3=0x18}
0x1150…116d Line {l1=0x1b, l2=»1300 EXEC ROUF(XL,XA,XR,SX)«, l3=0x1b}
0x116d…118a Line {l1=0x1b, l2=»1310 EXEC ROUF(YL,YA,YR,SY)«, l3=0x1b}
0x118a…119a Line {l1=0x0e, l2=»1320 ENDWHILE «, l3=0x0e}
0x119a…11b8 Line {l1=0x1c, l2=»1330 EXEC ROUF(XL,XA,XR,-SX)«, l3=0x1c}
0x11b8…11d6 Line {l1=0x1c, l2=»1340 EXEC ROUF(YL,YA,YR,-SY)«, l3=0x1c}
0x11d6…120f Line {l1=0x37, l2=»1350 IF SGN(XS-XA)=SGN(XS) AND SGN(YS-YA)=SGN(YS) THEN «, l3=0x37}
0x120f…1233 Line {l1=0x22, l2=»1360 EXEC TEGNREL((XS-XA),(YS-YA))«, l3=0x22}
0x1233…123f Line {l1=0x0a, l2=»1370 ELSE «, l3=0x0a}
0x123f…1263 Line {l1=0x22, l2=»1380 EXEC FLYTREL((XS-XA),(YS-YA))«, l3=0x22}
0x1263…1270 Line {l1=0x0b, l2=»1390 ENDIF «, l3=0x0b}
0x1270…127c Line {l1=0x0a, l2=»1400 ELSE «, l3=0x0a}
0x127c…1296 Line {l1=0x18, l2=»1410 EXEC FLYTREL(XS,YS)«, l3=0x18}
0x1296…12a3 Line {l1=0x0b, l2=»1420 ENDIF «, l3=0x0b}
0x12a3…12bb Line {l1=0x16, l2=»1430 ENDPROC ;STIPREL.«, l3=0x16}
0x12bb…12cf Line {l1=0x12, l2=»1500 DIM NAVN$(20)«, l3=0x12}
0x12cf…12df Line {l1=0x0e, l2=»1507 OUTPUT P1«, l3=0x0e}
0x12df…12f3 Line {l1=0x12, l2=»1510 EXEC PLOTINIT«, l3=0x12}
0x12f3…1314 Line {l1=0x1f, l2=»1520 NAVN$="DDE PLOTTER DEMO-1"«, l3=0x1f}
0x1314…132f Line {l1=0x19, l2=»1530 EXEC FLYTABS(0,2300)«, l3=0x19}
0x132f…134b Line {l1=0x1a, l2=»1540 EXEC TEKST(0,4,NAVN$)«, l3=0x1a}
0x134b…1368 Line {l1=0x1b, l2=»1550 EXEC FLYTABS(1000,300)«, l3=0x1b}
0x1368…137a Line {l1=0x10, l2=»1560 EXEC NULPKT«, l3=0x10}
0x137a…139a Line {l1=0x1e, l2=»1570 EXEC TEGNABS(0,1800,1800)«, l3=0x1e}
0x139a…13b6 Line {l1=0x1a, l2=»1580 EXEC FLYTREL(-1800,0)«, l3=0x1a}
0x13b6…13d3 Line {l1=0x1b, l2=»1590 EXEC TEGNABS(7,1800,0)«, l3=0x1b}
0x13d3…13f5 Line {l1=0x20, l2=»1600 EXEC STIPREL(100,50,0,1800)«, l3=0x20}
0x13f5…1418 Line {l1=0x21, l2=»1610 EXEC STIPREL(10,100,-1800,0)«, l3=0x21}
0x1418…1438 Line {l1=0x1e, l2=»1620 EXEC TEGNPOL(225,1272.79)«, l3=0x1e}
0x1438…1458 Line {l1=0x1e, l2=»1630 EXEC FLYTPOL(-45,1272.79)«, l3=0x1e}
0x1458…1475 Line {l1=0x1b, l2=»1640 EXEC TEGNREL(-900,900)«, l3=0x1b}
0x1475…1491 Line {l1=0x1a, l2=»1650 EXEC FLYTABS(115,650)«, l3=0x1a}
0x1491…14a3 Line {l1=0x10, l2=»1660 NAVN$="DDE"«, l3=0x10}
0x14a3…14c0 Line {l1=0x1b, l2=»1670 EXEC TEKST(90,5,NAVN$)«, l3=0x1b}
0x14c0…14dd Line {l1=0x1b, l2=»1680 EXEC FLYTABS(720,1600)«, l3=0x1b}
0x14dd…14f9 Line {l1=0x1a, l2=»1690 EXEC TEKST(0,4,NAVN$)«, l3=0x1a}
0x14f9…1516 Line {l1=0x1b, l2=»1700 EXEC FLYTABS(1600,970)«, l3=0x1b}
0x1516…1534 Line {l1=0x1c, l2=»1710 EXEC TEKST(270,3,NAVN$)«, l3=0x1c}
0x1534…1550 Line {l1=0x1a, l2=»1720 EXEC FLYTABS(935,130)«, l3=0x1a}
0x1550…156e Line {l1=0x1c, l2=»1730 EXEC TEKST(180,2,NAVN$)«, l3=0x1c}
0x156e…1588 Line {l1=0x18, l2=»1740 NAVN$="DEMO-1 SLUT"«, l3=0x18}
0x1588…15a7 Line {l1=0x1d, l2=»1750 EXEC FLYTABS(-1000,-300)«, l3=0x1d}
0x15a7…15c3 Line {l1=0x1a, l2=»1760 EXEC TEKST(0,1,NAVN$)«, l3=0x1a}
0x15c3…15d7 Line {l1=0x12, l2=»1770 EXEC PLOTSLUT«, l3=0x12}
0x15d7…15e3 Line {l1=0x0a, l2=»1780 STOP «, l3=0x0a}
0x15e3…1600 00 00 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 ┆ ccccccccccccccccccccccccccc┆
0x1600…1620 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┆
[…0x3b…]
0x1d80…1da0 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 ┆