|
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: »PNAKSE.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNAKSE.K«
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.
0x0000…002d Line {l1=0x2b, l2=»1440 PROC AKSE(VI,HØ,SK,SE,MIN,MAX,TYP,TEX)«, l3=0x2b}
0x002d…0072 Line {l1=0x43, l2=»1450 REM **********************************************************«, l3=0x43}
0x0072…00b7 Line {l1=0x43, l2=»1460 REM *AKSE TEGNER EN AKSE MED VINKLEN VI I FORHOLD TIL VANDRET*«, l3=0x43}
0x00b7…00fc Line {l1=0x43, l2=»1470 REM *FRA MIN TIL MAX. SÆTTER TEKSTEN TEX MED BOGSTAVHØJDEN HØ*«, l3=0x43}
0x00fc…0141 Line {l1=0x43, l2=»1480 REM *PÅ AKSEN. SKALERINGEN BESTEMMES AF SK ANGIVET I ANTAL *«, l3=0x43}
0x0141…0186 Line {l1=0x43, l2=»1490 REM *STEPS PR. ENHED. ANTALLET AF DELSTREGER PR. ENHED BE- *«, l3=0x43}
0x0186…01cb Line {l1=0x43, l2=»1500 REM *STEMMES AF 1/SE. *«, l3=0x43}
0x01cb…0210 Line {l1=0x43, l2=»1510 REM **********************************************************«, l3=0x43}
0x0210…024c Line {l1=0x3a, l2=»1520 KX=COS(VI/180*PI);KY=SIN(VI/180*PI);HB=(18*2**(HØ-1))«, l3=0x3a}
0x024c…026e Line {l1=0x20, l2=»1530 IF SGN(MIN)<>SGN(MAX) THEN «, l3=0x20}
0x026e…0282 Line {l1=0x12, l2=»1540 MI=MIN;MX=MAX«, l3=0x12}
0x0282…028e Line {l1=0x0a, l2=»1550 ELSE «, l3=0x0a}
0x028e…02a8 Line {l1=0x18, l2=»1560 IF SGN(MIN)=1 THEN «, l3=0x18}
0x02a8…02be Line {l1=0x14, l2=»1570 MI=0;MX=MAX-MIN«, l3=0x14}
0x02be…02ca Line {l1=0x0a, l2=»1580 ELSE «, l3=0x0a}
0x02ca…02e0 Line {l1=0x14, l2=»1590 MX=0;MI=MIN-MAX«, l3=0x14}
0x02e0…02ed Line {l1=0x0b, l2=»1600 ENDIF «, l3=0x0b}
0x02ed…02fa Line {l1=0x0b, l2=»1610 ENDIF «, l3=0x0b}
0x02fa…0344 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}
0x0344…0362 Line {l1=0x1c, l2=»1630 EXEC FLYTABS(XMIN,YMIN)«, l3=0x1c}
0x0362…0382 Line {l1=0x1e, l2=»1640 EXEC TEGNABS(0,XMAX,YMAX)«, l3=0x1e}
0x0382…03a7 Line {l1=0x23, l2=»1650 EXEC TEGNREL((KY*20),(-KX*20))«, l3=0x23}
0x03a7…03d1 Line {l1=0x28, l2=»1660 EXEC TEGNREL((KX-KY)*20,(KX+KY)*20)«, l3=0x28}
0x03d1…03fc Line {l1=0x29, l2=»1670 EXEC TEGNREL((-KX-KY)*20,(KX-KY)*20)«, l3=0x29}
0x03fc…0421 Line {l1=0x23, l2=»1680 EXEC TEGNREL((KY*20),(-KX*20))«, l3=0x23}
0x0421…0440 Line {l1=0x1d, l2=»1690 IF 0<=KY AND KY<=1 THEN «, l3=0x1d}
0x0440…0479 Line {l1=0x37, l2=»1700 EXEC FLYTREL((KY*30),(-KX*30-HB*(SGN(KX-KY)+1)/2))«, l3=0x37}
0x0479…0485 Line {l1=0x0a, l2=»1710 ELSE «, l3=0x0a}
0x0485…04bf Line {l1=0x38, l2=»1720 EXEC FLYTREL((-KY*30),(KX*30-HB*(SGN(-KX+KY)+1)/2))«, l3=0x38}
0x04bf…04cc Line {l1=0x0b, l2=»1730 ENDIF «, l3=0x0b}
0x04cc…04e8 Line {l1=0x1a, l2=»1740 EXEC TEKST(0,HØ,TEX$)«, l3=0x1a}
0x04e8…0500 Line {l1=0x16, l2=»1750 IF TYP$<>"" THEN «, l3=0x16}
0x0500…0519 Line {l1=0x17, l2=»1760 SI=(MAX DIV SE)*SE«, l3=0x17}
0x0519…0549 Line {l1=0x2e, l2=»1770 FOR I=(SI+MI-MIN)*SK TO MI*SK STEP -SE*SK«, l3=0x2e}
0x0549…0577 Line {l1=0x2c, l2=»1780 EXEC FLYTABS((KX*I-KY*10),(KY*I+KX*10))«, l3=0x2c}
0x0577…059c Line {l1=0x23, l2=»1790 EXEC TEGNREL((KY*20),(-KX*20))«, l3=0x23}
0x059c…05bb Line {l1=0x1d, l2=»1800 IF 0<=KY AND KY<=1 THEN «, l3=0x1d}
0x05bb…05f1 Line {l1=0x34, l2=»1810 EXEC FLYTREL((KY*20),(-KX*20-HB*(SGN(KX)+1)/2))«, l3=0x34}
0x05f1…05fd Line {l1=0x0a, l2=»1820 ELSE «, l3=0x0a}
0x05fd…0633 Line {l1=0x34, l2=»1830 EXEC FLYTREL((-KY)*40,(KX)*40+HB*(SGN(KX)-1)/2)«, l3=0x34}
0x0633…0640 Line {l1=0x0b, l2=»1840 ENDIF «, l3=0x0b}
0x0640…065a Line {l1=0x18, l2=»1850 IF TYP$="LIN" THEN «, l3=0x18}
0x065a…0667 Line {l1=0x0b, l2=»1860 SII=SI«, l3=0x0b}
0x0667…0673 Line {l1=0x0a, l2=»1870 ELSE «, l3=0x0a}
0x0673…0684 Line {l1=0x0f, l2=»1880 SII=10**SI«, l3=0x0f}
0x0684…0691 Line {l1=0x0b, l2=»1890 ENDIF «, l3=0x0b}
0x0691…06af Line {l1=0x1c, l2=»1900 IF ABS(SII)<=9999 THEN «, l3=0x1c}
0x06af…06c9 Line {l1=0x18, l2=»1910 SJ=ROU(SII*100)/100«, l3=0x18}
0x06c9…06d5 Line {l1=0x0a, l2=»1920 ELSE «, l3=0x0a}
0x06d5…0707 Line {l1=0x30, l2=»1930 IF 9999<ABS(SII) AND ABS(SII)<=999999 THEN «, l3=0x30}
0x0707…0719 Line {l1=0x10, l2=»1940 SJ=ROU(SII)«, l3=0x10}
0x0719…0725 Line {l1=0x0a, l2=»1950 ELSE «, l3=0x0a}
0x0725…0732 Line {l1=0x0b, l2=»1960 SJ=SII«, l3=0x0b}
0x0732…073f Line {l1=0x0b, l2=»1970 ENDIF «, l3=0x0b}
0x073f…074c Line {l1=0x0b, l2=»1980 ENDIF «, l3=0x0b}
0x074c…0772 Line {l1=0x24, l2=»1990 IF SJ<>0 THEN EXEC TAL(0,HØ,SJ)«, l3=0x24}
0x0772…0781 Line {l1=0x0d, l2=»2000 SI=SI-SE«, l3=0x0d}
0x0781…078e Line {l1=0x0b, l2=»2010 NEXT I«, l3=0x0b}
0x078e…079b Line {l1=0x0b, l2=»2020 ENDIF «, l3=0x0b}
0x079b…07b0 Line {l1=0x13, l2=»2030 ENDPROC ;AKSE.«, l3=0x13}
0x07b0…07c0 00 00 37 33 30 20 50 52 4f 43 20 53 59 4d 42 4f ┆ 730 PROC SYMBO┆
0x07c0…07e0 4c 28 48 5c 4a 44 45 2c 46 49 47 55 52 29 1d 4b 30 37 34 30 20 52 45 4d 20 54 45 47 4e 45 52 20 ┆L(HØJDE,FIGUR) K0740 REM TEGNER ┆
0x07e0…0800 45 54 20 41 46 20 46 49 47 55 52 45 52 4e 45 3a 50 4c 55 53 2c 4b 4f 52 53 2c 46 49 52 4b 41 4e ┆ET AF FIGURERNE:PLUS,KORS,FIRKAN┆
0x0800…0820 54 2c 4f 54 54 45 4b 41 4e 54 2c 54 52 45 4b 41 4e 54 2c 54 49 4d 45 47 4c 41 53 4b 28 30 37 35 ┆T,OTTEKANT,TREKANT,TIMEGLASK(075┆
0x0820…0840 30 20 52 45 4d 20 4d 45 44 20 45 4e 20 41 46 20 48 5c 4a 44 45 52 4e 45 20 30 2c 31 2c 32 2c 33 ┆0 REM MED EN AF HØJDERNE 0,1,2,3┆
0x0840…0860 2c 34 2c 35 2e 28 2f 30 37 36 30 20 50 52 49 4e 54 20 22 4d 22 2b 43 48 52 28 34 38 2b 48 5c 4a ┆,4,5.(/0760 PRINT "M"+CHR(48+HØJ┆
0x0860…0880 44 45 29 2b 43 48 52 28 34 38 2b 46 49 47 55 52 29 2b 22 20 55 22 2f 15 30 37 37 30 20 45 4e 44 ┆DE)+CHR(48+FIGUR)+" U"/ 0770 END┆
0x0880…08a0 50 52 4f 43 20 3b 53 59 4d 42 4f 4c 2e 15 22 30 37 38 30 20 50 52 4f 43 20 54 45 4b 53 54 28 56 ┆PROC ;SYMBOL. "0780 PROC TEKST(V┆
0x08a0…08c0 49 4e 4b 45 4c 2c 48 5c 4a 44 45 2c 54 45 58 54 29 22 31 30 37 39 30 20 52 45 4d 20 55 44 53 4b ┆INKEL,HØJDE,TEXT)"10790 REM UDSK┆
0x08c0…08e0 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 56 4e 45 20 48 ┆RIVER EN TEKST MED DEN ANGIVNE H┆
0x08e0…0900 5c 4a 44 45 31 29 30 38 30 30 20 52 45 4d 20 4f 47 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f ┆ØJDE1)0800 REM OG VINKEL I FORHO┆
0x0900…0920 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 29 17 30 38 31 30 20 56 3d 49 4e 54 28 31 2b 56 49 ┆LD TIL VANDRET.) 0810 V=INT(1+VI┆
0x0920…0940 4e 4b 45 4c 2f 39 30 29 17 0c 30 38 32 30 20 48 3d 48 5c 4a 44 45 0c 30 30 38 33 30 20 50 52 49 ┆NKEL/90) 0820 H=HØJDE 00830 PRI┆
0x0940…0960 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 22 20 22 3b 54 ┆NT "S"+CHR(48+V)+CHR(48+H);" ";T┆
0x0960…0980 45 58 54 24 3b 22 5f 22 30 14 30 38 34 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 4b 53 54 2e 14 1e ┆EXT$;"_"0 0840 ENDPROC ;TEKST. ┆
0x0980…09a0 30 38 35 30 20 50 52 4f 43 20 54 41 4c 28 56 49 4e 4b 45 4c 2c 48 5c 4a 44 45 2c 4e 52 29 1e 3b ┆0850 PROC TAL(VINKEL,HØJDE,NR) ;┆
0x09a0…09c0 30 38 36 30 20 52 45 4d 20 55 44 53 4b 52 49 56 45 52 20 45 54 20 54 41 4c 20 4d 45 44 20 44 45 ┆0860 REM UDSKRIVER ET TAL MED DE┆
0x09c0…09e0 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 3b 1d 30 38 37 ┆N ANGIVNE HØJDE OG VINKEL I; 087┆
0x09e0…0a00 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 17 30 38 38 30 ┆0 REM FORHOLD TIL VANDRET. 0880┆
0x0a00…0a20 20 56 3d 49 4e 54 28 31 2b 56 49 4e 4b 45 4c 2f 39 30 29 17 0c 30 38 39 30 20 48 3d 48 5c 4a 44 ┆ V=INT(1+VINKEL/90) 0890 H=HØJD┆
0x0a20…0a40 45 0c 23 30 39 30 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 ┆E #0900 PRINT "S"+CHR(48+V)+CHR(┆
0x0a40…0a60 34 38 2b 48 29 3b 23 25 30 39 31 30 20 49 46 20 4e 52 3c 3d 2d 31 20 4f 52 20 4e 52 3d 30 20 4f ┆48+H);#%0910 IF NR<=-1 OR NR=0 O┆
0x0a60…0a80 52 20 31 3c 3d 4e 52 20 54 48 45 4e 20 25 11 30 39 32 30 20 50 52 49 4e 54 20 4e 52 3b 22 5f 22 ┆R 1<=NR THEN % 0920 PRINT NR;"_"┆
0x0a80…0aa0 11 0a 30 39 33 30 20 45 4c 53 45 20 0a 1d 30 39 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 ┆ 0930 ELSE 0940 PRINT USING "┆
0x0aa0…0ac0 20 23 2e 23 23 20 5f 22 3a 4e 52 1d 0b 30 39 35 30 20 45 4e 44 49 46 20 0b 12 30 39 36 30 20 45 ┆ #.## _":NR 0950 ENDIF 0960 E┆
0x0ac0…0ae0 4e 44 50 52 4f 43 20 3b 54 41 4c 2e 12 2b 31 33 33 30 20 50 52 4f 43 20 41 4b 53 45 28 56 49 2c ┆NDPROC ;TAL. +1330 PROC AKSE(VI,┆
0x0ae0…0b00 48 5c 2c 53 4b 2c 53 45 2c 4d 49 4e 2c 4d 41 58 2c 54 59 50 2c 54 45 58 29 2b 43 31 33 34 30 20 ┆HØ,SK,SE,MIN,MAX,TYP,TEX)+C1340 ┆
0x0b00…0b20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x0b20…0b40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 43 43 ┆******************************CC┆
0x0b40…0b60 31 33 35 30 20 52 45 4d 20 2a 41 4b 53 45 20 54 45 47 4e 45 52 20 45 4e 20 41 4b 53 45 20 4d 45 ┆1350 REM *AKSE TEGNER EN AKSE ME┆
0x0b60…0b80 44 20 56 49 4e 4b 4c 45 4e 20 56 49 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 ┆D VINKLEN VI I FORHOLD TIL VANDR┆
0x0b80…0ba0 45 54 2a 43 43 31 33 36 30 20 52 45 4d 20 2a 46 52 41 20 4d 49 4e 20 54 49 4c 20 4d 41 58 2e 20 ┆ET*CC1360 REM *FRA MIN TIL MAX. ┆
0x0ba0…0bc0 53 5b 54 54 45 52 20 54 45 4b 53 54 45 4e 20 54 45 58 20 4d 45 44 20 42 4f 47 53 54 41 56 48 5c ┆SÆTTER TEKSTEN TEX MED BOGSTAVHØ┆
0x0bc0…0be0 4a 44 45 4e 20 48 5c 2a 43 43 31 33 37 30 20 52 45 4d 20 2a 50 5d 20 41 4b 53 45 4e 2e 20 53 4b ┆JDEN HØ*CC1370 REM *PÅ AKSEN. SK┆
0x0be0…0c00 41 4c 45 52 49 4e 47 45 4e 20 42 45 53 54 45 4d 4d 45 53 20 41 46 20 53 4b 20 41 4e 47 49 56 45 ┆ALERINGEN BESTEMMES AF SK ANGIVE┆
0x0c00…0c20 54 20 49 20 41 4e 54 41 4c 20 20 20 2a 43 43 31 33 38 30 20 52 45 4d 20 2a 53 54 45 50 53 20 50 ┆T I ANTAL *CC1380 REM *STEPS P┆
0x0c20…0c40 52 2e 20 45 4e 48 45 44 2e 20 41 4e 54 41 4c 4c 45 54 20 41 46 20 44 45 4c 53 54 52 45 47 45 52 ┆R. ENHED. ANTALLET AF DELSTREGER┆
0x0c40…0c60 20 50 52 2e 20 45 4e 48 45 44 20 42 45 2d 20 20 20 2a 43 43 31 33 39 30 20 52 45 4d 20 2a 53 54 ┆ PR. ENHED BE- *CC1390 REM *ST┆
0x0c60…0c80 45 4d 4d 45 53 20 41 46 20 31 2f 53 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EMMES AF 1/SE. ┆
0x0c80…0ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 43 43 31 34 30 30 20 52 45 ┆ *CC1400 RE┆
0x0ca0…0cc0 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆M ******************************┆
0x0cc0…0ce0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 43 12 31 34 ┆****************************C 14┆
0x0ce0…0d00 31 30 20 50 49 3d 33 2e 31 34 31 35 39 32 36 35 12 16 31 34 32 30 20 4b 58 3d 43 4f 53 28 56 49 ┆10 PI=3.14159265 1420 KX=COS(VI┆
0x0d00…0d20 2f 31 38 30 2a 50 49 29 16 16 31 34 33 30 20 4b 59 3d 53 49 4e 28 56 49 2f 31 38 30 2a 50 49 29 ┆/180*PI) 1430 KY=SIN(VI/180*PI)┆
0x0d20…0d40 16 16 31 34 34 30 20 48 42 3d 28 31 34 2a 32 2a 2a 28 48 5c 2d 31 29 29 16 20 31 34 35 30 20 49 ┆ 1440 HB=(14*2**(HØ-1)) 1450 I┆
0x0d40…0d60 46 20 53 47 4e 28 4d 49 4e 29 3c 3e 53 47 4e 28 4d 41 58 29 20 54 48 45 4e 20 20 12 31 34 36 30 ┆F SGN(MIN)<>SGN(MAX) THEN 1460┆
0x0d60…0d80 20 4d 49 3d 4d 49 4e 3b 4d 58 3d 4d 41 58 12 0a 31 34 37 30 20 45 4c 53 45 20 0a 18 31 34 38 30 ┆ MI=MIN;MX=MAX 1470 ELSE 1480┆
0x0d80…0da0 20 49 46 20 53 47 4e 28 4d 49 4e 29 3d 31 20 54 48 45 4e 20 18 14 31 34 39 30 20 4d 49 3d 30 3b ┆ IF SGN(MIN)=1 THEN 1490 MI=0;┆
0x0da0…0dc0 4d 58 3d 4d 41 58 2d 4d 49 4e 14 0a 31 35 30 30 20 45 4c 53 45 20 0a 14 31 35 31 30 20 4d 58 3d ┆MX=MAX-MIN 1500 ELSE 1510 MX=┆
0x0dc0…0de0 30 3b 4d 49 3d 4d 49 4e 2d 4d 41 58 14 0b 31 35 32 30 20 45 4e 44 49 46 20 0b 0b 31 35 33 30 20 ┆0;MI=MIN-MAX 1520 ENDIF 1530 ┆
0x0de0…0e00 45 4e 44 49 46 20 0b 18 31 35 34 30 20 58 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 58 ┆ENDIF 1540 XMAX=(MX*SK+100)*KX┆
0x0e00…0e20 18 18 31 35 35 30 20 59 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 59 18 12 31 35 36 30 ┆ 1550 YMAX=(MX*SK+100)*KY 1560┆
0x0e20…0e40 20 58 4d 49 4e 3d 4d 49 2a 53 4b 2a 4b 58 12 12 31 35 37 30 20 59 4d 49 4e 3d 4d 49 2a 53 4b 2a ┆ XMIN=MI*SK*KX 1570 YMIN=MI*SK*┆
0x0e40…0e60 4b 59 12 1c 31 35 38 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 58 4d 49 4e 2c 59 4d 49 4e 29 ┆KY 1580 EXEC FLYTABS(XMIN,YMIN)┆
0x0e60…0e80 1c 1e 31 35 39 30 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 30 2c 58 4d 41 58 2c 59 4d 41 58 29 ┆ 1590 EXEC TEGNABS(0,XMAX,YMAX)┆
0x0e80…0ea0 1e 23 31 36 30 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 2a 32 30 29 2c 28 2d 4b 58 ┆ #1600 EXEC TEGNREL((KY*20),(-KX┆
0x0ea0…0ec0 2a 32 30 29 29 23 28 31 36 31 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 58 2d 4b 59 29 ┆*20))#(1610 EXEC TEGNREL((KX-KY)┆
0x0ec0…0ee0 2a 32 30 2c 28 4b 58 2b 4b 59 29 2a 32 30 29 28 29 31 36 32 30 20 45 58 45 43 20 54 45 47 4e 52 ┆*20,(KX+KY)*20)()1620 EXEC TEGNR┆
0x0ee0…0f00 45 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 36 33 30 ┆EL((-KX-KY)*20,(KX-KY)*20))#1630┆
0x0f00…0f20 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 2a 32 30 29 2c 28 2d 4b 58 2a 32 30 29 29 23 ┆ EXEC TEGNREL((KY*20),(-KX*20))#┆
0x0f20…0f40 1d 31 36 34 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 ┆ 1640 IF 0<=KY AND KY<=1 THEN 7┆
0x0f40…0f60 31 36 35 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 4b 59 2a 33 30 29 2c 28 2d 4b 58 2a 33 ┆1650 EXEC FLYTREL((KY*30),(-KX*3┆
0x0f60…0f80 30 2d 48 42 2a 28 53 47 4e 28 4b 58 2d 4b 59 29 2b 31 29 2f 32 29 29 37 0a 31 36 36 30 20 45 4c ┆0-HB*(SGN(KX-KY)+1)/2))7 1660 EL┆
0x0f80…0fa0 53 45 20 0a 38 31 36 37 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 2d 4b 59 2a 33 30 29 2c ┆SE 81670 EXEC FLYTREL((-KY*30),┆
0x0fa0…0fc0 28 4b 58 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 29 38 0b 31 ┆(KX*30-HB*(SGN(-KX+KY)+1)/2))8 1┆
0x0fc0…0fe0 36 38 30 20 45 4e 44 49 46 20 0b 1a 31 36 39 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 48 5c ┆680 ENDIF 1690 EXEC TEKST(0,HØ┆
0x0fe0…1000 2c 54 45 58 24 29 1a 25 31 37 30 30 20 53 49 3d 28 41 42 53 28 4d 41 58 29 20 44 49 56 20 53 45 ┆,TEX$) %1700 SI=(ABS(MAX) DIV SE┆
0x1000…1020 29 2a 53 45 2a 53 47 4e 28 4d 41 58 29 25 28 31 37 31 30 20 44 4d 41 58 3d 28 41 42 53 28 4d 58 ┆)*SE*SGN(MAX)%(1710 DMAX=(ABS(MX┆
0x1020…1040 29 20 44 49 56 20 53 45 29 2a 53 45 2a 53 47 4e 28 4d 58 29 2a 53 4b 28 24 31 37 32 30 20 46 4f ┆) DIV SE)*SE*SGN(MX)*SK($1720 FO┆
0x1040…1060 52 20 49 3d 44 4d 41 58 20 54 4f 20 4d 49 2a 53 4b 20 53 54 45 50 20 2d 53 45 2a 53 4b 24 2c 31 ┆R I=DMAX TO MI*SK STEP -SE*SK$,1┆
0x1060…1080 37 33 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 28 4b 58 2a 49 2d 4b 59 2a 31 30 29 2c 28 4b ┆730 EXEC FLYTABS((KX*I-KY*10),(K┆
0x1080…10a0 59 2a 49 2b 4b 58 2a 31 30 29 29 2c 23 31 37 34 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 ┆Y*I+KX*10)),#1740 EXEC TEGNREL((┆
0x10a0…10c0 4b 59 2a 32 30 29 2c 28 2d 4b 58 2a 32 30 29 29 23 1d 31 37 35 30 20 49 46 20 30 3c 3d 4b 59 20 ┆KY*20),(-KX*20))# 1750 IF 0<=KY ┆
0x10c0…10e0 41 4e 44 20 4b 59 3c 3d 31 20 54 48 45 4e 20 1d 34 31 37 36 30 20 45 58 45 43 20 46 4c 59 54 52 ┆AND KY<=1 THEN 41760 EXEC FLYTR┆
0x10e0…1100 45 4c 28 28 4b 59 2a 32 30 29 2c 28 2d 4b 58 2a 32 30 2d 48 42 2a 28 53 47 4e 28 4b 58 29 2b 31 ┆EL((KY*20),(-KX*20-HB*(SGN(KX)+1┆
0x1100…1120 29 2f 32 29 29 34 0a 31 37 37 30 20 45 4c 53 45 20 0a 34 31 37 38 30 20 45 58 45 43 20 46 4c 59 ┆)/2))4 1770 ELSE 41780 EXEC FLY┆
0x1120…1140 54 52 45 4c 28 28 2d 4b 59 29 2a 34 30 2c 28 4b 58 29 2a 34 30 2b 48 42 2a 28 53 47 4e 28 4b 58 ┆TREL((-KY)*40,(KX)*40+HB*(SGN(KX┆
0x1140…1160 29 2d 31 29 2f 32 29 34 0b 31 37 39 30 20 45 4e 44 49 46 20 0b 18 31 38 30 30 20 49 46 20 54 59 ┆)-1)/2)4 1790 ENDIF 1800 IF TY┆
0x1160…1180 50 24 3d 22 4c 49 4e 22 20 54 48 45 4e 20 18 0b 31 38 31 30 20 53 49 49 3d 53 49 0b 0a 31 38 32 ┆P$="LIN" THEN 1810 SII=SI 182┆
0x1180…11a0 30 20 45 4c 53 45 20 0a 0f 31 38 33 30 20 53 49 49 3d 31 30 2a 2a 53 49 0f 0b 31 38 34 30 20 45 ┆0 ELSE 1830 SII=10**SI 1840 E┆
0x11a0…11c0 4e 44 49 46 20 0b 1d 31 38 35 30 20 49 46 20 41 42 53 28 53 49 49 29 3c 3d 33 32 30 30 30 20 54 ┆NDIF 1850 IF ABS(SII)<=32000 T┆
0x11c0…11e0 48 45 4e 20 1d 18 31 38 35 32 20 53 4a 3d 52 4f 55 28 53 49 49 2a 31 30 30 29 2f 31 30 30 18 0a ┆HEN 1852 SJ=ROU(SII*100)/100 ┆
0x11e0…1200 31 38 35 34 20 45 4c 53 45 20 0a 0b 31 38 35 36 20 53 4a 3d 53 49 49 0b 0b 31 38 35 38 20 45 4e ┆1854 ELSE 1856 SJ=SII 1858 EN┆
0x1200…1220 44 49 46 20 0b 24 31 38 36 30 20 49 46 20 53 4a 3c 3e 30 20 54 48 45 4e 20 45 58 45 43 20 54 41 ┆DIF $1860 IF SJ<>0 THEN EXEC TA┆
0x1220…1240 4c 28 30 2c 48 5c 2c 53 4a 29 24 0d 31 38 37 30 20 53 49 3d 53 49 2d 53 45 0d 0b 31 38 38 30 20 ┆L(0,HØ,SJ)$ 1870 SI=SI-SE 1880 ┆
0x1240…1260 4e 45 58 54 20 49 0b 13 31 38 39 30 20 45 4e 44 50 52 4f 43 20 3b 41 4b 53 45 2e 13 1b 32 30 30 ┆NEXT I 1890 ENDPROC ;AKSE. 200┆
0x1260…1280 30 20 44 49 4d 20 4e 41 56 4e 24 28 32 30 29 2c 54 59 50 45 24 28 34 29 1b 1f 32 30 31 30 20 4e ┆0 DIM NAVN$(20),TYPE$(4) 2010 N┆
0x1280…12a0 41 56 4e 24 3d 22 44 44 45 20 50 4c 4f 54 54 45 52 20 44 45 4d 4f 2d 32 22 1f 0e 32 30 31 37 20 ┆AVN$="DDE PLOTTER DEMO-2" 2017 ┆
0x12a0…12c0 4f 55 54 50 55 54 20 50 31 0e 12 32 30 32 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 19 32 ┆OUTPUT P1 2020 EXEC PLOTINIT 2┆
0x12c0…12e0 30 33 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 30 2c 32 33 30 30 29 19 1a 32 30 34 30 20 45 ┆030 EXEC FLYTABS(0,2300) 2040 E┆
0x12e0…1300 58 45 43 20 54 45 4b 53 54 28 30 2c 34 2c 4e 41 56 4e 24 29 1a 0a 32 30 34 35 20 53 54 4f 50 20 ┆XEC TEKST(0,4,NAVN$) 2045 STOP ┆
0x1300…1320 0a 0e 32 30 34 37 20 4f 55 54 50 55 54 20 50 31 0e 15 32 30 35 30 20 4e 41 56 4e 24 3d 22 44 44 ┆ 2047 OUTPUT P1 2050 NAVN$="DD┆
0x1320…1340 45 2d 61 6b 73 65 22 15 1c 32 30 36 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 31 37 35 30 2c ┆E-akse" 2060 EXEC FLYTABS(1750,┆
0x1340…1360 31 31 35 30 29 1c 10 32 30 37 30 20 45 58 45 43 20 4e 55 4c 50 4b 54 10 1b 32 30 38 30 20 46 4f ┆1150) 2070 EXEC NULPKT 2080 FO┆
0x1360…1380 52 20 4d 3d 30 20 54 4f 20 33 31 35 20 53 54 45 50 20 39 30 1b 10 32 30 39 30 20 54 59 50 45 24 ┆R M=0 TO 315 STEP 90 2090 TYPE$┆
0x1380…13a0 3d 22 4c 49 4e 22 10 2b 32 31 30 30 20 45 58 45 43 20 41 4b 53 45 28 4d 2c 31 2c 32 30 30 2c 30 ┆="LIN" +2100 EXEC AKSE(M,1,200,0┆
0x13a0…13c0 2e 35 2c 30 2c 35 2c 54 59 50 45 24 2c 4e 41 56 4e 24 29 2b 10 32 31 31 30 20 54 59 50 45 24 3d ┆.5,0,5,TYPE$,NAVN$)+ 2110 TYPE$=┆
0x13c0…13e0 22 4c 4f 47 22 10 30 32 31 32 30 20 45 58 45 43 20 41 4b 53 45 28 28 4d 2b 34 35 29 2c 32 2c 32 ┆"LOG" 02120 EXEC AKSE((M+45),2,2┆
0x13e0…1400 36 30 2c 30 2e 35 2c 30 2c 35 2c 54 59 50 45 24 2c 4e 41 56 4e 24 29 30 0b 32 31 33 30 20 4e 45 ┆60,0.5,0,5,TYPE$,NAVN$)0 2130 NE┆
0x1400…1420 58 54 20 4d 0b 12 32 31 34 30 20 45 58 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a 32 31 35 30 20 53 ┆XT M 2140 EXEC PLOTSLUT 2150 S┆
0x1420…1440 54 4f 50 20 0a 00 00 4c 4f 54 54 45 52 45 4e 20 4f 47 20 4c 5c 46 54 45 52 20 50 45 4e 4e 45 4e ┆TOP LOTTEREN OG LØFTER PENNEN┆
0x1440…1460 2c 2a 29 30 31 33 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 54 49 4c 20 28 ┆,*)0130 REM FLYTTER PENNEN TIL (┆
0x1460…1480 30 2c 30 29 20 3d 20 48 4f 4d 45 2e 29 20 30 31 34 30 20 50 52 49 4e 54 20 22 3b 3a 49 20 30 44 ┆0,0) = HOME.) 0140 PRINT ";:I 0D┆
0x1480…14a0 20 3b 3a 49 20 30 44 20 30 20 55 20 48 22 20 17 30 31 35 30 20 45 4e 44 50 52 4f 43 20 3b 50 4c ┆ ;:I 0D 0 U H" 0150 ENDPROC ;PL┆
0x14a0…14c0 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 ┆ ┆
[…0x47…]