|
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: »DEMO2.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »DEMO2.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. 2100 DIM NAVN$(20),TYPE$(4) 2110 NAVN$="DDE PLOTTER DEMO-2" 2120 OUTPUT P1 2130 EXEC PLOTINIT 2140 EXEC FLYTABS(0,2300) 2150 EXEC TEKST(0,4,NAVN$) 2190 EXEC FLYTABS(1750,1150) 2200 EXEC NULPKT 2210 FOR M=0 TO 315 STEP 90 2220 TYPE$="LIN" 2225 NAVN$="LIN-akse" 2230 EXEC AKSE(M,1,200,0.5,0,5,TYPE$,NAVN$) 2240 TYPE$="LOG" 2245 NAVN$="LOG-akse" 2250 EXEC AKSE((M+45),2,450,0.5,0,3,TYPE$,NAVN$) 2260 NEXT M 2270 NAVN$="DEMO-2 SLUT" 2280 EXEC PLOTINIT 2290 EXEC TEKST(0,1,NAVN$) 2300 EXEC PLOTSLUT 2310 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…163a Line {l1=0x1b, l2=»2100 DIM NAVN$(20),TYPE$(4)«, l3=0x1b}
0x163a…165b Line {l1=0x1f, l2=»2110 NAVN$="DDE PLOTTER DEMO-2"«, l3=0x1f}
0x165b…166b Line {l1=0x0e, l2=»2120 OUTPUT P1«, l3=0x0e}
0x166b…167f Line {l1=0x12, l2=»2130 EXEC PLOTINIT«, l3=0x12}
0x167f…169a Line {l1=0x19, l2=»2140 EXEC FLYTABS(0,2300)«, l3=0x19}
0x169a…16b6 Line {l1=0x1a, l2=»2150 EXEC TEKST(0,4,NAVN$)«, l3=0x1a}
0x16b6…16d4 Line {l1=0x1c, l2=»2190 EXEC FLYTABS(1750,1150)«, l3=0x1c}
0x16d4…16e6 Line {l1=0x10, l2=»2200 EXEC NULPKT«, l3=0x10}
0x16e6…1703 Line {l1=0x1b, l2=»2210 FOR M=0 TO 315 STEP 90«, l3=0x1b}
0x1703…1715 Line {l1=0x10, l2=»2220 TYPE$="LIN"«, l3=0x10}
0x1715…172c Line {l1=0x15, l2=»2225 NAVN$="LIN-akse"«, l3=0x15}
0x172c…1759 Line {l1=0x2b, l2=»2230 EXEC AKSE(M,1,200,0.5,0,5,TYPE$,NAVN$)«, l3=0x2b}
0x1759…176b Line {l1=0x10, l2=»2240 TYPE$="LOG"«, l3=0x10}
0x176b…1782 Line {l1=0x15, l2=»2245 NAVN$="LOG-akse"«, l3=0x15}
0x1782…17b4 Line {l1=0x30, l2=»2250 EXEC AKSE((M+45),2,450,0.5,0,3,TYPE$,NAVN$)«, l3=0x30}
0x17b4…17c1 Line {l1=0x0b, l2=»2260 NEXT M«, l3=0x0b}
0x17c1…17db Line {l1=0x18, l2=»2270 NAVN$="DEMO-2 SLUT"«, l3=0x18}
0x17db…17ef Line {l1=0x12, l2=»2280 EXEC PLOTINIT«, l3=0x12}
0x17ef…180b Line {l1=0x1a, l2=»2290 EXEC TEKST(0,1,NAVN$)«, l3=0x1a}
0x180b…181f Line {l1=0x12, l2=»2300 EXEC PLOTSLUT«, l3=0x12}
0x181f…182b Line {l1=0x0a, l2=»2310 STOP «, l3=0x0a}
0x182b…1840 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccc┆
0x1840…1860 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┆
[…0x29…]
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 ┆