|
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 - metrics - downloadIndex: 5 D I M P
Length: 327680 (0x50000)
Description: Bits:30005281 Grafikpakke til COMAL & DMP-7
Types: 5¼" Floppy Disk, ImdContainer
| basis | type | name | artifact |
|---|---|---|---|
| 10 | K | DEMO1 | ⟦3c633639d⟧ Mikados TextFile, Mikados_K |
| 10 | K | DEMO2 | ⟦c120cb5f4⟧ Mikados TextFile, Mikados_K |
| 10 | K | DEMO3 | ⟦5b5f12340⟧ Mikados TextFile, Mikados_K |
| 10 | K | DEMO4 | ⟦77d69bb20⟧ Mikados TextFile, Mikados_K |
| 10 | K | PNAKSE | ⟦aeb49e740⟧ Mikados TextFile, Mikados_K |
| 4 | K | PNDEMO1 | ⟦defa6368a⟧ Mikados TextFile, Mikados_K |
| 2 | K | PNDEMO2 | ⟦623b48260⟧ Mikados TextFile, Mikados_K |
| 4 | K | PNDEMO3 | ⟦855bd73b8⟧ Mikados TextFile, Mikados_K |
| 10 | K | PNDEMO4 | ⟦806583663⟧ Mikados TextFile, Mikados_K |
| 10 | K | PNGRAFIK | ⟦fb5dedfa4⟧ Mikados TextFile, Mikados_K |
| 10 | K | PNINTFAC | ⟦edf3ba022⟧ Mikados TextFile, Mikados_K |
| 6 | K | PNKOSYS | ⟦f8ad108c4⟧ Mikados TextFile, Mikados_K |
| 10 | K | PNLINKRV | ⟦060b3fdd3⟧ Mikados TextFile, Mikados_K |
| 5 | K | PNLOGKRV | ⟦f66904ce0⟧ Mikados TextFile, Mikados_K |
| 10 | K | PNPARKRV | ⟦c0bf48c7b⟧ Mikados TextFile, Mikados_K |
| 10 | K | PNSTPREL | ⟦3979fb75e⟧ Mikados TextFile, Mikados_K |
0x00000…00030 (0, 0, 1) DiskLabel {plidn=»PLADELAGER«, ledig={DA 0018,05 (0x018500)}, plart=»COMA «, pldto=»24.11.1982«, plbtg=»DDE «, pluda=» «}
0x00030…00040 1f 00 02 10 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00040…00060 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 ┆ ┆
[…0x5…]
0x00100…00200 (0, 0, 2) EmptyDirSect
[…0x3…]
0x00500…00600 (0, 0, 6) DirSect {
0x00500…00600 dent = [ // 0x500 @0x0
0x00500…00600 [0x00]: DirEnt {name=»PNAKSE «, typ=»K«, seg=»A«, seg0={DA 0005,0f (0x005f00)}}
0x00500…00600 [0x01]:
0x00500…00600 [0x02]:
0x00500…00600 [0x03]:
0x00500…00600 [0x04]:
0x00500…00600 [0x05]:
0x00500…00600 [0x06]:
0x00500…00600 [0x07]:
0x00500…00600 [0x08]:
0x00500…00600 [0x09]:
0x00500…00600 [0x0a]:
0x00500…00600 [0x0b]:
0x00500…00600 [0x0c]:
0x00500…00600 [0x0d]:
0x00500…00600 [0x0e]:
0x00500…00600 [0x0f]:
0x00500…00600 [0x10]:
0x00500…00600 [0x11]:
0x00500…00600 [0x12]:
0x00500…00600 ]
0x00500…00600 }
0x00600…00700 (0, 0, 7) EmptyDirSect
[…0x4…]
0x00b00…00c00 (0, 0, 12) DirSect {
0x00b00…00c00 dent = [ // 0xb00 @0x0
0x00b00…00c00 [0x00]: DirEnt {name=»PNDEMO2 «, typ=»K«, seg=»A«, seg0={DA 000b,05 (0x00b500)}}
0x00b00…00c00 [0x01]:
0x00b00…00c00 [0x02]:
0x00b00…00c00 [0x03]:
0x00b00…00c00 [0x04]:
0x00b00…00c00 [0x05]:
0x00b00…00c00 [0x06]:
0x00b00…00c00 [0x07]:
0x00b00…00c00 [0x08]:
0x00b00…00c00 [0x09]:
0x00b00…00c00 [0x0a]:
0x00b00…00c00 [0x0b]:
0x00b00…00c00 [0x0c]:
0x00b00…00c00 [0x0d]:
0x00b00…00c00 [0x0e]:
0x00b00…00c00 [0x0f]:
0x00b00…00c00 [0x10]:
0x00b00…00c00 [0x11]:
0x00b00…00c00 [0x12]:
0x00b00…00c00 ]
0x00b00…00c00 }
0x00c00…00d00 (0, 0, 13) EmptyDirSect
[…0x2…]
0x00f00…01000 (0, 0, 16) DirSect {
0x00f00…01000 dent = [ // 0xf00 @0x0
0x00f00…01000 [0x00]: DirEnt {name=»PNDEMO4 «, typ=»K«, seg=»A«, seg0={DA 0017,0b (0x017b00)}}
0x00f00…01000 [0x01]:
0x00f00…01000 [0x02]:
0x00f00…01000 [0x03]:
0x00f00…01000 [0x04]:
0x00f00…01000 [0x05]:
0x00f00…01000 [0x06]:
0x00f00…01000 [0x07]:
0x00f00…01000 [0x08]:
0x00f00…01000 [0x09]:
0x00f00…01000 [0x0a]:
0x00f00…01000 [0x0b]:
0x00f00…01000 [0x0c]:
0x00f00…01000 [0x0d]:
0x00f00…01000 [0x0e]:
0x00f00…01000 [0x0f]:
0x00f00…01000 [0x10]:
0x00f00…01000 [0x11]:
0x00f00…01000 [0x12]:
0x00f00…01000 ]
0x00f00…01000 }
0x01000…01100 (0, 1, 1) EmptyDirSect
0x01100…01200 (0, 1, 2) DirSect {
0x01100…01200 dent = [ // 0x1100 @0x0
0x01100…01200 [0x00]: DirEnt {name=»PNKOSYS «, typ=»K«, seg=»A«, seg0={DA 0007,0d (0x007d00)}}
0x01100…01200 [0x01]: DirEnt {name=»PNLINKRV«, typ=»K«, seg=»A«, seg0={DA 0008,09 (0x008900)}}
0x01100…01200 [0x02]:
0x01100…01200 [0x03]:
0x01100…01200 [0x04]:
0x01100…01200 [0x05]:
0x01100…01200 [0x06]:
0x01100…01200 [0x07]:
0x01100…01200 [0x08]:
0x01100…01200 [0x09]:
0x01100…01200 [0x0a]:
0x01100…01200 [0x0b]:
0x01100…01200 [0x0c]:
0x01100…01200 [0x0d]:
0x01100…01200 [0x0e]:
0x01100…01200 [0x0f]:
0x01100…01200 [0x10]:
0x01100…01200 [0x11]:
0x01100…01200 [0x12]:
0x01100…01200 ]
0x01100…01200 }
0x01200…01300 (0, 1, 3) EmptyDirSect
[…0x4…]
0x01700…01800 (0, 1, 8) DirSect {
0x01700…01800 dent = [ // 0x1700 @0x0
0x01700…01800 [0x00]: DirEnt {name=»PNLOGKRV«, typ=»K«, seg=»A«, seg0={DA 000a,07 (0x00a700)}}
0x01700…01800 [0x01]:
0x01700…01800 [0x02]:
0x01700…01800 [0x03]:
0x01700…01800 [0x04]:
0x01700…01800 [0x05]:
0x01700…01800 [0x06]:
0x01700…01800 [0x07]:
0x01700…01800 [0x08]:
0x01700…01800 [0x09]:
0x01700…01800 [0x0a]:
0x01700…01800 [0x0b]:
0x01700…01800 [0x0c]:
0x01700…01800 [0x0d]:
0x01700…01800 [0x0e]:
0x01700…01800 [0x0f]:
0x01700…01800 [0x10]:
0x01700…01800 [0x11]:
0x01700…01800 [0x12]:
0x01700…01800 ]
0x01700…01800 }
0x01800…01900 (0, 1, 9) EmptyDirSect
0x01900…01a00 (0, 1, 10) DirSect {
0x01900…01a00 dent = [ // 0x1900 @0x0
0x01900…01a00 [0x00]: DirEnt {name=»PNSTPREL«, typ=»K«, seg=»A«, seg0={DA 0005,05 (0x005500)}}
0x01900…01a00 [0x01]:
0x01900…01a00 [0x02]:
0x01900…01a00 [0x03]:
0x01900…01a00 [0x04]:
0x01900…01a00 [0x05]:
0x01900…01a00 [0x06]:
0x01900…01a00 [0x07]:
0x01900…01a00 [0x08]:
0x01900…01a00 [0x09]:
0x01900…01a00 [0x0a]:
0x01900…01a00 [0x0b]:
0x01900…01a00 [0x0c]:
0x01900…01a00 [0x0d]:
0x01900…01a00 [0x0e]:
0x01900…01a00 [0x0f]:
0x01900…01a00 [0x10]:
0x01900…01a00 [0x11]:
0x01900…01a00 [0x12]:
0x01900…01a00 ]
0x01900…01a00 }
0x01a00…01b00 (0, 1, 11) EmptyDirSect
[…0xe…]
0x02900…02a00 (1, 0, 10) DirSect {
0x02900…02a00 dent = [ // 0x2900 @0x0
0x02900…02a00 [0x00]: DirEnt {name=»PNDEMO1 «, typ=»K«, seg=»A«, seg0={DA 000b,01 (0x00b100)}}
0x02900…02a00 [0x01]:
0x02900…02a00 [0x02]:
0x02900…02a00 [0x03]:
0x02900…02a00 [0x04]:
0x02900…02a00 [0x05]:
0x02900…02a00 [0x06]:
0x02900…02a00 [0x07]:
0x02900…02a00 [0x08]:
0x02900…02a00 [0x09]:
0x02900…02a00 [0x0a]:
0x02900…02a00 [0x0b]:
0x02900…02a00 [0x0c]:
0x02900…02a00 [0x0d]:
0x02900…02a00 [0x0e]:
0x02900…02a00 [0x0f]:
0x02900…02a00 [0x10]:
0x02900…02a00 [0x11]:
0x02900…02a00 [0x12]:
0x02900…02a00 ]
0x02900…02a00 }
0x02a00…02b00 (1, 0, 11) EmptyDirSect
0x02b00…02c00 (1, 0, 12) DirSect {
0x02b00…02c00 dent = [ // 0x2b00 @0x0
0x02b00…02c00 [0x00]: DirEnt {name=»PNINTFAC«, typ=»K«, seg=»A«, seg0={DA 0004,01 (0x004100)}}
0x02b00…02c00 [0x01]:
0x02b00…02c00 [0x02]:
0x02b00…02c00 [0x03]:
0x02b00…02c00 [0x04]:
0x02b00…02c00 [0x05]:
0x02b00…02c00 [0x06]:
0x02b00…02c00 [0x07]:
0x02b00…02c00 [0x08]:
0x02b00…02c00 [0x09]:
0x02b00…02c00 [0x0a]:
0x02b00…02c00 [0x0b]:
0x02b00…02c00 [0x0c]:
0x02b00…02c00 [0x0d]:
0x02b00…02c00 [0x0e]:
0x02b00…02c00 [0x0f]:
0x02b00…02c00 [0x10]:
0x02b00…02c00 [0x11]:
0x02b00…02c00 [0x12]:
0x02b00…02c00 ]
0x02b00…02c00 }
0x02c00…02d00 (1, 0, 13) EmptyDirSect
0x02d00…02e00 (1, 0, 14) DirSect {
0x02d00…02e00 dent = [ // 0x2d00 @0x0
0x02d00…02e00 [0x00]: DirEnt {name=»PNDEMO3 «, typ=»K«, seg=»A«, seg0={DA 000b,09 (0x00b900)}}
0x02d00…02e00 [0x01]:
0x02d00…02e00 [0x02]:
0x02d00…02e00 [0x03]:
0x02d00…02e00 [0x04]:
0x02d00…02e00 [0x05]:
0x02d00…02e00 [0x06]:
0x02d00…02e00 [0x07]:
0x02d00…02e00 [0x08]:
0x02d00…02e00 [0x09]:
0x02d00…02e00 [0x0a]:
0x02d00…02e00 [0x0b]:
0x02d00…02e00 [0x0c]:
0x02d00…02e00 [0x0d]:
0x02d00…02e00 [0x0e]:
0x02d00…02e00 [0x0f]:
0x02d00…02e00 [0x10]:
0x02d00…02e00 [0x11]:
0x02d00…02e00 [0x12]:
0x02d00…02e00 ]
0x02d00…02e00 }
0x02e00…02f00 (1, 0, 15) EmptyDirSect
[…0x2…]
0x03100…03200 (1, 1, 2) DirSect {
0x03100…03200 dent = [ // 0x3100 @0x0
0x03100…03200 [0x00]: DirEnt {name=»PNPARKRV«, typ=»K«, seg=»A«, seg0={DA 000e,05 (0x00e500)}}
0x03100…03200 [0x01]:
0x03100…03200 [0x02]:
0x03100…03200 [0x03]:
0x03100…03200 [0x04]:
0x03100…03200 [0x05]:
0x03100…03200 [0x06]:
0x03100…03200 [0x07]:
0x03100…03200 [0x08]:
0x03100…03200 [0x09]:
0x03100…03200 [0x0a]:
0x03100…03200 [0x0b]:
0x03100…03200 [0x0c]:
0x03100…03200 [0x0d]:
0x03100…03200 [0x0e]:
0x03100…03200 [0x0f]:
0x03100…03200 [0x10]:
0x03100…03200 [0x11]:
0x03100…03200 [0x12]:
0x03100…03200 ]
0x03100…03200 }
0x03200…03300 (1, 1, 3) EmptyDirSect
[…0x2…]
0x03500…03600 (1, 1, 6) DirSect {
0x03500…03600 dent = [ // 0x3500 @0x0
0x03500…03600 [0x00]: DirEnt {name=»DEMO1 «, typ=»K«, seg=»A«, seg0={DA 000e,0f (0x00ef00)}}
0x03500…03600 [0x01]:
0x03500…03600 [0x02]:
0x03500…03600 [0x03]:
0x03500…03600 [0x04]:
0x03500…03600 [0x05]:
0x03500…03600 [0x06]:
0x03500…03600 [0x07]:
0x03500…03600 [0x08]:
0x03500…03600 [0x09]:
0x03500…03600 [0x0a]:
0x03500…03600 [0x0b]:
0x03500…03600 [0x0c]:
0x03500…03600 [0x0d]:
0x03500…03600 [0x0e]:
0x03500…03600 [0x0f]:
0x03500…03600 [0x10]:
0x03500…03600 [0x11]:
0x03500…03600 [0x12]:
0x03500…03600 ]
0x03500…03600 }
0x03600…03700 (1, 1, 7) EmptyDirSect
0x03700…03800 (1, 1, 8) DirSect {
0x03700…03800 dent = [ // 0x3700 @0x0
0x03700…03800 [0x00]: DirEnt {name=»DEMO2 «, typ=»K«, seg=»A«, seg0={DA 0010,0d (0x010d00)}}
0x03700…03800 [0x01]:
0x03700…03800 [0x02]:
0x03700…03800 [0x03]:
0x03700…03800 [0x04]:
0x03700…03800 [0x05]:
0x03700…03800 [0x06]:
0x03700…03800 [0x07]:
0x03700…03800 [0x08]:
0x03700…03800 [0x09]:
0x03700…03800 [0x0a]:
0x03700…03800 [0x0b]:
0x03700…03800 [0x0c]:
0x03700…03800 [0x0d]:
0x03700…03800 [0x0e]:
0x03700…03800 [0x0f]:
0x03700…03800 [0x10]:
0x03700…03800 [0x11]:
0x03700…03800 [0x12]:
0x03700…03800 ]
0x03700…03800 }
0x03800…03900 (1, 1, 9) EmptyDirSect
0x03900…03a00 (1, 1, 10) DirSect {
0x03900…03a00 dent = [ // 0x3900 @0x0
0x03900…03a00 [0x00]: DirEnt {name=»PNGRAFIK«, typ=»K«, seg=»A«, seg0={DA 000b,0d (0x00bd00)}}
0x03900…03a00 [0x01]: DirEnt {name=»DEMO3 «, typ=»K«, seg=»A«, seg0={DA 0012,0b (0x012b00)}}
0x03900…03a00 [0x02]:
0x03900…03a00 [0x03]:
0x03900…03a00 [0x04]:
0x03900…03a00 [0x05]:
0x03900…03a00 [0x06]:
0x03900…03a00 [0x07]:
0x03900…03a00 [0x08]:
0x03900…03a00 [0x09]:
0x03900…03a00 [0x0a]:
0x03900…03a00 [0x0b]:
0x03900…03a00 [0x0c]:
0x03900…03a00 [0x0d]:
0x03900…03a00 [0x0e]:
0x03900…03a00 [0x0f]:
0x03900…03a00 [0x10]:
0x03900…03a00 [0x11]:
0x03900…03a00 [0x12]:
0x03900…03a00 ]
0x03900…03a00 }
0x03a00…03b00 (1, 1, 11) EmptyDirSect
0x03b00…03c00 (1, 1, 12) DirSect {
0x03b00…03c00 dent = [ // 0x3b00 @0x0
0x03b00…03c00 [0x00]: DirEnt {name=»DEMO4 «, typ=»K«, seg=»A«, seg0={DA 0015,03 (0x015300)}}
0x03b00…03c00 [0x01]:
0x03b00…03c00 [0x02]:
0x03b00…03c00 [0x03]:
0x03b00…03c00 [0x04]:
0x03b00…03c00 [0x05]:
0x03b00…03c00 [0x06]:
0x03b00…03c00 [0x07]:
0x03b00…03c00 [0x08]:
0x03b00…03c00 [0x09]:
0x03b00…03c00 [0x0a]:
0x03b00…03c00 [0x0b]:
0x03b00…03c00 [0x0c]:
0x03b00…03c00 [0x0d]:
0x03b00…03c00 [0x0e]:
0x03b00…03c00 [0x0f]:
0x03b00…03c00 [0x10]:
0x03b00…03c00 [0x11]:
0x03b00…03c00 [0x12]:
0x03b00…03c00 ]
0x03b00…03c00 }
0x03c00…03d00 (1, 1, 13) EmptyDirSect
[…0x4…]
0x04100…04120 (2, 0, 2) ExtentHdr {name=»PNINTFAC«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0004,0b (0x004b00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0004,0b (0x004b00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x04120…04140 3c 30 31 30 30 20 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 ┆<0100 REM **********************┆
0x04140…04160 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 3c 3c 30 ┆*****************************<<0┆
0x04160…04180 31 31 30 20 52 45 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 49 20 44 45 4e 4e 45 20 46 49 ┆110 REM *PROCEDURERNE I DENNE FI┆
0x04180…041a0 4c 20 45 52 20 44 45 20 4e 5c 44 56 45 4e 44 49 47 45 20 47 52 55 4e 44 2d 20 2a 3c 3c 30 31 32 ┆L ER DE NØDVENDIGE GRUND- *<<012┆
0x041a0…041c0 30 20 52 45 4d 20 2a 45 4c 45 4d 45 4e 54 45 52 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 ┆0 REM *ELEMENTER TIL STYRING AF ┆
0x041c0…041e0 50 4c 4f 54 54 45 52 45 4e 2c 20 4f 47 20 45 52 20 44 45 46 4f 52 20 20 2a 3c 3c 30 31 33 30 20 ┆PLOTTEREN, OG ER DEFOR *<<0130 ┆
0x041e0…04200 52 45 4d 20 2a 44 49 52 45 4b 54 45 20 41 46 48 5b 4e 47 49 47 20 41 46 20 44 45 4e 20 41 4e 56 ┆REM *DIREKTE AFHÆNGIG AF DEN ANV┆
0x04200…04220 (2, 0, 3) 45 4e 44 54 45 20 50 4c 4f 54 54 45 52 2e 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 34 30 20 52 45 ┆ENDTE PLOTTER. *<<0140 RE┆
0x04220…04240 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 48 45 52 20 4b 41 4e 20 4b 55 4e 20 41 4e 56 45 ┆M *PROCEDURERNE HER KAN KUN ANVE┆
0x04240…04260 4e 44 45 53 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 2a 3c 3c 30 31 35 30 20 52 45 4d 20 ┆NDES TIL STYRING AF *<<0150 REM ┆
0x04260…04280 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* ┆
0x04280…042a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 36 30 20 52 45 4d 20 2a 20 ┆ *<<0160 REM * ┆
0x042a0…042c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 49 20 50 4c 5c 54 20 20 20 20 20 ┆ HI PLØT ┆
0x042c0…042e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 37 30 20 52 45 4d 20 2a 4d 4f 44 ┆ *<<0170 REM *MOD┆
0x042e0…04300 45 4c 20 20 20 20 20 20 20 20 44 4d 50 2d 33 2c 44 4d 50 2d 34 2c 44 4d 50 2d 36 2c 44 4d 50 2d ┆EL DMP-3,DMP-4,DMP-6,DMP-┆
0x04300…04320 (2, 0, 4) 37 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 38 30 20 52 45 4d 20 2a 46 52 41 20 20 ┆7 *<<0180 REM *FRA ┆
0x04320…04340 20 20 20 20 20 20 20 20 20 20 48 4f 55 53 54 4f 4e 20 49 4e 53 54 52 55 4d 45 4e 54 20 20 20 20 ┆ HOUSTON INSTRUMENT ┆
0x04340…04360 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 39 30 20 52 45 4d 20 2a 20 20 20 20 20 20 20 ┆ *<<0190 REM * ┆
0x04360…04380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04380…043a0 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 32 30 30 20 52 45 4d 20 2a 44 44 45 20 20 20 20 20 20 ┆ *<<0200 REM *DDE ┆
0x043a0…043c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x043c0…043e0 20 20 20 20 31 39 38 32 2a 3c 3c 30 32 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 1982*<<0210 REM ************┆
0x043e0…04400 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 2a 2a ┆********************************┆
0x04400…04420 (2, 0, 5) 2a 2a 2a 2a 2a 2a 2a 3c 2a 30 32 32 30 20 52 45 4d 20 4c 49 4e 20 41 4e 56 45 4e 44 45 53 20 49 ┆*******<*0220 REM LIN ANVENDES I┆
0x04420…04440 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 49 4e 4b 52 56 2e 2a 2c 30 32 33 30 20 52 45 4d 20 58 54 ┆ PROCEDUREN LINKRV.*,0230 REM XT┆
0x04440…04460 2c 59 54 20 41 4e 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 4f 47 4b 52 56 ┆,YT ANVENDES I PROCEDUREN LOGKRV┆
0x04460…04480 2e 2c 1e 30 32 34 30 20 44 49 4d 20 4c 49 4e 24 28 33 29 2c 58 54 24 28 33 29 2c 59 54 24 28 33 ┆., 0240 DIM LIN$(3),XT$(3),YT$(3┆
0x04480…044a0 29 1e 2d 30 32 35 30 20 52 45 4d 20 52 4f 55 20 41 46 52 55 4e 44 45 52 20 45 54 20 52 45 45 4c ┆) -0250 REM ROU AFRUNDER ET REEL┆
0x044a0…044c0 54 20 54 41 4c 20 54 49 4c 20 48 45 4c 54 41 4c 2d 34 30 32 36 30 20 52 45 4d 20 4f 47 20 41 4e ┆T TAL TIL HELTAL-40260 REM OG AN┆
0x044c0…044e0 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 52 4e 45 20 53 54 49 50 52 45 4c 20 4f 47 ┆VENDES I PROCEDURERNE STIPREL OG┆
0x044e0…04500 20 41 4b 53 45 2e 34 1a 30 32 37 30 20 44 45 46 20 52 4f 55 28 5a 29 3d 49 4e 54 28 5a 2b 30 2e ┆ AKSE.4 0270 DEF ROU(Z)=INT(Z+0.┆
0x04500…04520 (2, 0, 6) 35 29 1a 11 30 32 38 30 20 50 49 3d 33 2e 31 34 31 35 39 32 36 11 12 30 32 39 30 20 50 52 4f 43 ┆5) 0280 PI=3.1415926 0290 PROC┆
0x04520…04540 20 50 4c 4f 54 49 4e 49 54 12 2a 30 33 30 30 20 52 45 4d 20 5d 42 4e 45 52 20 50 4c 4f 54 54 45 ┆ PLOTINIT *0300 REM ÅBNER PLOTTE┆
0x04540…04560 52 45 4e 20 4f 47 20 4c 5c 46 54 45 52 20 50 45 4e 4e 45 4e 2c 2a 29 30 33 31 30 20 52 45 4d 20 ┆REN OG LØFTER PENNEN,*)0310 REM ┆
0x04560…04580 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 54 49 4c 20 28 30 2c 30 29 20 3d 20 48 4f 4d 45 2e ┆FLYTTER PENNEN TIL (0,0) = HOME.┆
0x04580…045a0 29 18 30 33 32 30 20 50 52 49 4e 54 20 22 49 3b 3a 20 49 3b 3a 20 55 20 48 22 18 17 30 33 33 30 ┆) 0320 PRINT "I;: I;: U H" 0330┆
0x045a0…045c0 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 49 4e 49 54 2e 17 12 30 33 34 30 20 50 52 4f 43 20 50 ┆ ENDPROC ;PLOTINIT. 0340 PROC P┆
0x045c0…045e0 4c 4f 54 53 4c 55 54 12 1c 30 33 35 30 20 52 45 4d 20 41 46 42 52 59 44 45 52 20 50 4c 4f 54 54 ┆LOTSLUT 0350 REM AFBRYDER PLOTT┆
0x045e0…04600 45 52 45 4e 2e 1c 0e 30 33 36 30 20 50 52 49 4e 54 20 22 40 22 0e 17 30 33 37 30 20 45 4e 44 50 ┆EREN. 0360 PRINT "@" 0370 ENDP┆
0x04600…04620 (2, 0, 7) 52 4f 43 20 3b 50 4c 4f 54 53 4c 55 54 2e 17 12 30 33 38 30 20 50 52 4f 43 20 50 4c 4f 54 54 45 ┆ROC ;PLOTSLUT. 0380 PROC PLOTTE┆
0x04620…04640 53 54 12 2b 30 33 39 30 20 52 45 4d 20 4b 5c 52 45 52 20 50 4c 4f 54 54 45 52 45 4e 53 20 53 45 ┆ST +0390 REM KØRER PLOTTERENS SE┆
0x04640…04660 4c 56 54 45 53 54 20 50 52 4f 47 52 41 4d 2e 2b 0e 30 34 30 30 20 50 52 49 4e 54 20 22 54 22 0e ┆LVTEST PROGRAM.+ 0400 PRINT "T" ┆
0x04660…04680 17 30 34 31 30 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 54 45 53 54 2e 17 10 30 34 32 30 20 50 ┆ 0410 ENDPROC ;PLOTTEST. 0420 P┆
0x04680…046a0 52 4f 43 20 4e 55 4c 50 4b 54 10 1f 30 34 33 30 20 52 45 4d 20 46 41 53 54 53 5b 54 54 45 52 20 ┆ROC NULPKT 0430 REM FASTSÆTTER ┆
0x046a0…046c0 4e 55 4c 50 55 4e 4b 54 45 54 2e 1f 0e 30 34 34 30 20 50 52 49 4e 54 20 22 4f 22 0e 15 30 34 35 ┆NULPUNKTET. 0440 PRINT "O" 045┆
0x046c0…046e0 30 20 45 4e 44 50 52 4f 43 20 3b 4e 55 4c 50 4b 54 2e 15 10 30 34 36 30 20 50 52 4f 43 20 50 45 ┆0 ENDPROC ;NULPKT. 0460 PROC PE┆
0x046e0…04700 4e 4e 45 44 10 26 30 34 37 30 20 52 45 4d 20 53 5b 54 54 45 52 20 50 45 4e 4e 45 4e 20 4e 45 44 ┆NNED &0470 REM SÆTTER PENNEN NED┆
0x04700…04720 (2, 0, 8) 20 50 5d 20 50 41 50 49 52 45 54 2e 26 0e 30 34 38 30 20 50 52 49 4e 54 20 22 44 22 0e 15 30 34 ┆ PÅ PAPIRET.& 0480 PRINT "D" 04┆
0x04720…04740 39 30 20 45 4e 44 50 52 4f 43 20 3b 50 45 4e 4e 45 44 2e 15 0f 30 35 30 30 20 50 52 4f 43 20 50 ┆90 ENDPROC ;PENNED. 0500 PROC P┆
0x04740…04760 45 4e 4f 50 0f 25 30 35 31 30 20 52 45 4d 20 48 5b 56 45 52 20 50 45 4e 4e 45 4e 20 4f 50 20 46 ┆ENOP %0510 REM HÆVER PENNEN OP F┆
0x04760…04780 52 41 20 50 41 50 49 52 45 54 2e 25 0e 30 35 32 30 20 50 52 49 4e 54 20 22 55 22 0e 14 30 35 33 ┆RA PAPIRET.% 0520 PRINT "U" 053┆
0x04780…047a0 30 20 45 4e 44 50 52 4f 43 20 3b 50 45 4e 4f 50 2e 14 16 30 35 34 30 20 50 52 4f 43 20 46 4c 59 ┆0 ENDPROC ;PENOP. 0540 PROC FLY┆
0x047a0…047c0 54 41 42 53 28 58 2c 59 29 16 38 30 35 35 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e ┆TABS(X,Y) 80550 REM FLYTTER PENN┆
0x047c0…047e0 45 4e 20 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c ┆EN ABSOLUT TIL KOORDINATERNE (X,┆
0x047e0…04800 59 29 2e 38 16 30 35 36 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 35 37 ┆Y).8 0560 X=INT(X);Y=INT(Y) 057┆
0x04800…04820 (2, 0, 9) 30 20 50 52 49 4e 54 20 22 55 20 41 22 3b 58 3b 22 2c 22 3b 59 18 16 30 35 38 30 20 45 4e 44 50 ┆0 PRINT "U A";X;",";Y 0580 ENDP┆
0x04820…04840 52 4f 43 20 3b 46 4c 59 54 41 42 53 2e 16 1d 30 35 39 30 20 50 52 4f 43 20 54 45 47 4e 41 42 53 ┆ROC ;FLYTABS. 0590 PROC TEGNABS┆
0x04840…04860 28 4c 49 4e 54 59 50 2c 58 2c 59 29 1d 35 30 36 30 30 20 52 45 4d 20 54 45 47 4e 45 52 20 4c 49 ┆(LINTYP,X,Y) 50600 REM TEGNER LI┆
0x04860…04880 4e 49 45 20 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 ┆NIE ABSOLUT TIL KOORDINATERNE (X┆
0x04880…048a0 2c 59 29 35 23 30 36 31 30 20 52 45 4d 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 49 ┆,Y)5#0610 REM MED DEN ANGIVNE LI┆
0x048a0…048c0 4e 49 45 54 59 50 45 2e 23 16 30 36 32 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 ┆NIETYPE.# 0620 X=INT(X);Y=INT(Y)┆
0x048c0…048e0 16 29 30 36 33 30 20 50 52 49 4e 54 20 22 44 20 41 20 4c 22 2b 43 48 52 28 34 38 2b 4c 49 4e 54 ┆ )0630 PRINT "D A L"+CHR(48+LINT┆
0x048e0…04900 59 50 29 3b 58 3b 22 2c 22 3b 59 29 16 30 36 34 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 41 ┆YP);X;",";Y) 0640 ENDPROC ;TEGNA┆
0x04900…04920 (2, 0, 10) 42 53 2e 16 16 30 36 35 30 20 50 52 4f 43 20 46 4c 59 54 52 45 4c 28 58 2c 59 29 16 39 30 36 36 ┆BS. 0650 PROC FLYTREL(X,Y) 9066┆
0x04920…04940 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 52 45 4c 41 54 49 56 54 20 54 49 ┆0 REM FLYTTER PENNEN RELATIVT TI┆
0x04940…04960 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 39 16 30 36 37 30 20 58 3d 49 ┆L KOORDINATERNE (X,Y).9 0670 X=I┆
0x04960…04980 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 36 38 30 20 50 52 49 4e 54 20 22 55 20 52 22 ┆NT(X);Y=INT(Y) 0680 PRINT "U R"┆
0x04980…049a0 3b 58 3b 22 2c 22 3b 59 18 16 30 36 39 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e ┆;X;",";Y 0690 ENDPROC ;FLYTREL.┆
0x049a0…049c0 16 16 30 37 30 30 20 50 52 4f 43 20 54 45 47 4e 52 45 4c 28 58 2c 59 29 16 37 30 37 31 30 20 52 ┆ 0700 PROC TEGNREL(X,Y) 70710 R┆
0x049c0…049e0 45 4d 20 54 45 47 4e 45 52 20 4c 49 4e 49 45 20 52 45 4c 41 54 49 56 54 20 54 49 4c 20 4b 4f 4f ┆EM TEGNER LINIE RELATIVT TIL KOO┆
0x049e0…04a00 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 37 16 30 37 32 30 20 58 3d 49 4e 54 28 58 29 ┆RDINATERNE (X,Y).7 0720 X=INT(X)┆
0x04a00…04a20 (2, 0, 11) 3b 59 3d 49 4e 54 28 59 29 16 1b 30 37 33 30 20 50 52 49 4e 54 20 22 44 20 52 20 4c 30 22 3b 58 ┆;Y=INT(Y) 0730 PRINT "D R L0";X┆
0x04a20…04a40 3b 22 2c 22 3b 59 1b 16 30 37 34 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e 16 20 ┆;",";Y 0740 ENDPROC ;FLYTREL. ┆
0x04a40…04a60 30 37 35 30 20 50 52 4f 43 20 46 4c 59 54 50 4f 4c 28 56 49 4e 4b 45 4c 2c 4c 5b 4e 47 44 45 29 ┆0750 PROC FLYTPOL(VINKEL,LÆNGDE)┆
0x04a60…04a80 20 35 30 37 36 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 44 45 4e 20 41 4e ┆ 50760 REM FLYTTER PENNEN DEN AN┆
0x04a80…04aa0 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d 45 44 20 44 45 4e 35 2f 30 37 37 30 20 52 45 ┆GIVNE LÆNGDE OG MED DEN5/0770 RE┆
0x04aa0…04ac0 4d 20 41 4e 46 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 ┆M ANFGIVNE VINKEL I FORHOLD TIL ┆
0x04ac0…04ae0 56 41 4e 44 52 45 54 2e 2f 25 30 37 38 30 20 58 3d 49 4e 54 28 4c 5b 4e 47 44 45 2a 43 4f 53 28 ┆VANDRET./%0780 X=INT(LÆNGDE*COS(┆
0x04ae0…04b00 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 25 30 37 39 30 20 59 3d 49 4e 54 28 4c 5b 4e 47 ┆VINKEL/180*PI))%%0790 Y=INT(LÆNG┆
0x04b00…04b20 (2, 0, 12) ExtentHdr {name=»PNINTFAC«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0004,01 (0x004100)}, nextfile={DA 0005,05 (0x005500)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x04b20…04b40 44 45 2a 53 49 4e 28 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 18 30 38 30 30 20 50 52 49 ┆DE*SIN(VINKEL/180*PI))% 0800 PRI┆
0x04b40…04b60 4e 54 20 22 55 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 38 31 30 20 45 4e 44 50 52 4f 43 20 3b ┆NT "U R";X;",";Y 0810 ENDPROC ;┆
0x04b60…04b80 46 4c 59 54 50 4f 4c 2e 16 20 30 38 32 30 20 50 52 4f 43 20 54 45 47 4e 50 4f 4c 28 56 49 4e 4b ┆FLYTPOL. 0820 PROC TEGNPOL(VINK┆
0x04b80…04ba0 45 4c 2c 4c 5b 4e 47 44 45 29 20 36 30 38 33 30 20 52 45 4d 20 54 45 47 4e 45 52 20 45 4e 20 4c ┆EL,LÆNGDE) 60830 REM TEGNER EN L┆
0x04ba0…04bc0 49 4e 49 45 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d ┆INIE MED DEN ANGIVNE LÆNGDE OG M┆
0x04bc0…04be0 45 44 36 31 30 38 34 30 20 52 45 4d 20 44 45 20 41 4e 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 ┆ED610840 REM DE ANGIVNE VINKEL I┆
0x04be0…04c00 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 31 25 30 38 35 30 20 58 3d 49 4e ┆ FORHOLD TIL VANDRET.1%0850 X=IN┆
0x04c00…04c20 (2, 0, 13) 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 30 38 ┆T(LÆNGDE*COS(VINKEL/180*PI))%%08┆
0x04c20…04c40 36 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 ┆60 Y=INT(LÆNGDE*SIN(VINKEL/180*P┆
0x04c40…04c60 49 29 29 25 18 30 38 37 30 20 50 52 49 4e 54 20 22 44 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 ┆I))% 0870 PRINT "D R";X;",";Y 0┆
0x04c60…04c80 38 38 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 50 4f 4c 2e 16 1d 30 38 39 30 20 50 52 4f 43 ┆880 ENDPROC ;TEGNPOL. 0890 PROC┆
0x04c80…04ca0 20 53 59 4d 42 4f 4c 28 48 5c 4a 44 45 2c 46 49 47 55 52 29 1d 47 30 39 30 30 20 52 45 4d 20 54 ┆ SYMBOL(HØJDE,FIGUR) G0900 REM T┆
0x04ca0…04cc0 45 47 4e 45 52 20 45 54 20 41 46 20 46 49 47 55 52 45 52 4e 45 3a 50 4c 55 53 28 30 29 2c 4b 4f ┆EGNER ET AF FIGURERNE:PLUS(0),KO┆
0x04cc0…04ce0 52 53 28 31 29 2c 46 49 52 4b 41 4e 54 28 32 29 2c 4f 54 54 45 4b 41 4e 54 28 33 29 2c 47 40 30 ┆RS(1),FIRKANT(2),OTTEKANT(3),G@0┆
0x04ce0…04d00 39 31 30 20 52 45 4d 20 54 52 45 4b 41 4e 54 28 34 29 2c 54 49 4d 45 47 4c 41 53 28 35 29 2c 20 ┆910 REM TREKANT(4),TIMEGLAS(5), ┆
0x04d00…04d20 (2, 0, 14) 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 2c 34 2c 35 2e 40 ┆MED EN AF HØJDERNE 0,1,2,3,4,5.@┆
0x04d20…04d40 2f 30 39 32 30 20 50 52 49 4e 54 20 22 4d 22 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 2b 43 48 ┆/0920 PRINT "M"+CHR(48+HØJDE)+CH┆
0x04d40…04d60 52 28 34 38 2b 46 49 47 55 52 29 2b 22 20 55 22 2f 15 30 39 33 30 20 45 4e 44 50 52 4f 43 20 3b ┆R(48+FIGUR)+" U"/ 0930 ENDPROC ;┆
0x04d60…04d80 53 59 4d 42 4f 4c 2e 15 22 30 39 34 30 20 50 52 4f 43 20 54 45 4b 53 54 28 56 49 4e 4b 45 4c 2c ┆SYMBOL. "0940 PROC TEKST(VINKEL,┆
0x04d80…04da0 48 5c 4a 44 45 2c 54 45 58 54 29 22 31 30 39 35 30 20 52 45 4d 20 55 44 53 4b 52 49 56 45 52 20 ┆HØJDE,TEXT)"10950 REM UDSKRIVER ┆
0x04da0…04dc0 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 5c 4a 44 45 31 29 ┆EN TEKST MED DEN ANGIVNE HØJDE1)┆
0x04dc0…04de0 30 39 36 30 20 52 45 4d 20 4f 47 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c ┆0960 REM OG VINKEL I FORHOLD TIL┆
0x04de0…04e00 20 56 41 4e 44 52 45 54 2e 29 24 30 39 37 30 20 56 3d 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c ┆ VANDRET.)$0970 V=1+((360-VINKEL┆
0x04e00…04e20 (2, 0, 15) 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 34 30 39 38 30 20 50 52 49 4e 54 20 22 53 22 2b ┆) DIV 90) MOD 4$40980 PRINT "S"+┆
0x04e20…04e40 43 48 52 28 34 38 2b 56 29 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 3b 22 20 22 3b 54 45 58 54 ┆CHR(48+V)+CHR(48+HØJDE);" ";TEXT┆
0x04e40…04e60 24 3b 22 5f 22 34 14 30 39 39 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 4b 53 54 2e 14 1e 31 30 30 ┆$;"_"4 0990 ENDPROC ;TEKST. 100┆
0x04e60…04e80 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 31 30 31 ┆0 PROC TAL(VINKEL,HØJDE,NR) ;101┆
0x04e80…04ea0 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 4e 20 41 ┆0 REM UDSKRIVER ET TAL MED DEN A┆
0x04ea0…04ec0 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 31 30 32 30 20 52 ┆NGIVNE HØJDE OG VINKEL I; 1020 R┆
0x04ec0…04ee0 45 4d 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 1d 24 31 30 33 30 20 56 3d ┆EM FORHOLD TIL VANDRET. $1030 V=┆
0x04ee0…04f00 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 27 31 ┆1+((360-VINKEL) DIV 90) MOD 4$'1┆
0x04f00…04f20 (2, 0, 16) 30 34 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 ┆040 PRINT "S"+CHR(48+V)+CHR(48+H┆
0x04f20…04f40 5c 4a 44 45 29 3b 27 25 31 30 35 30 20 49 46 20 4e 52 3c 3d 2d 31 20 4f 52 20 4e 52 3d 30 20 4f ┆ØJDE);'%1050 IF NR<=-1 OR NR=0 O┆
0x04f40…04f60 52 20 31 3c 3d 4e 52 20 54 48 45 4e 20 25 11 31 30 36 30 20 50 52 49 4e 54 20 4e 52 3b 22 5f 22 ┆R 1<=NR THEN % 1060 PRINT NR;"_"┆
0x04f60…04f80 11 0a 31 30 37 30 20 45 4c 53 45 20 0a 1d 31 30 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 ┆ 1070 ELSE 1080 PRINT USING "┆
0x04f80…04fa0 20 23 2e 23 23 20 5f 22 3a 4e 52 1d 0b 31 30 39 30 20 45 4e 44 49 46 20 0b 12 31 31 30 30 20 45 ┆ #.## _":NR 1090 ENDIF 1100 E┆
0x04fa0…04fc0 4e 44 50 52 4f 43 20 3b 54 41 4c 2e 12 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆NDPROC ;TAL. ┆
0x04fc0…04fe0 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 ┆ ┆
[…0x1…]
0x05000…05100 (2, 1, 1) 0x00[0x100]
[…0x4…]
0x05500…05520 (2, 1, 6) ExtentHdr {name=»PNSTPREL«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0005,0f (0x005f00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x05520…05540 24 31 31 31 30 20 50 52 4f 43 20 53 54 49 50 52 45 4c 28 53 54 52 45 47 2c 4d 4c 52 55 4d 2c 58 ┆$1110 PROC STIPREL(STREG,MLRUM,X┆
0x05540…05560 53 2c 59 53 29 24 3d 31 31 32 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆S,YS)$=1120 REM ****************┆
0x05560…05580 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 2a 2a ┆********************************┆
0x05580…055a0 2a 2a 2a 2a 3d 3d 31 31 33 30 20 52 45 4d 20 2a 53 54 49 50 52 45 4c 20 54 45 47 4e 45 52 20 52 ┆****==1130 REM *STIPREL TEGNER R┆
0x055a0…055c0 45 4c 41 54 49 56 54 20 45 4e 20 53 54 49 50 4c 45 54 20 4c 49 4e 49 45 20 54 49 4c 20 58 53 2c ┆ELATIVT EN STIPLET LINIE TIL XS,┆
0x055c0…055e0 59 53 2a 3d 3d 31 31 34 30 20 52 45 4d 20 2a 4d 45 44 20 53 54 52 45 47 4c 5b 4e 47 44 45 4e 20 ┆YS*==1140 REM *MED STREGLÆNGDEN ┆
0x055e0…05600 53 54 52 45 47 20 4f 47 20 4d 45 4c 4c 45 4d 52 55 4d 53 4c 5b 4e 47 44 45 4e 20 4d 4c 52 55 4d ┆STREG OG MELLEMRUMSLÆNGDEN MLRUM┆
0x05600…05620 (2, 1, 7) 2e 2a 3d 3d 31 31 35 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆.*==1150 REM *******************┆
0x05620…05640 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 2a 2a ┆********************************┆
0x05640…05660 2a 3d 17 31 31 36 30 20 50 52 4f 43 20 52 4f 55 46 28 54 2c 41 2c 52 2c 53 29 17 1d 31 31 37 30 ┆*= 1160 PROC ROUF(T,A,R,S) 1170┆
0x05660…05680 20 54 3d 54 2b 53 3b 44 3d 41 3b 41 3d 52 4f 55 28 54 29 3b 52 3d 41 2d 44 1d 13 31 31 38 30 20 ┆ T=T+S;D=A;A=ROU(T);R=A-D 1180 ┆
0x05680…056a0 45 4e 44 50 52 4f 43 20 3b 52 4f 55 46 2e 13 17 31 31 39 30 20 4c 3d 53 51 52 28 58 53 2a 2a 32 ┆ENDPROC ;ROUF. 1190 L=SQR(XS**2┆
0x056a0…056c0 2b 59 53 2a 2a 32 29 17 18 31 32 30 30 20 58 4c 2c 59 4c 2c 58 41 2c 59 41 2c 58 52 2c 59 52 3d ┆+YS**2) 1200 XL,YL,XA,YA,XR,YR=┆
0x056c0…056e0 30 18 1f 31 32 31 30 20 49 46 20 4c 3c 3e 30 20 41 4e 44 20 53 54 52 45 47 3c 3e 30 20 54 48 45 ┆0 1210 IF L<>0 AND STREG<>0 THE┆
0x056e0…05700 4e 20 1f 3c 31 32 32 30 20 53 58 3d 53 54 52 45 47 2a 58 53 2f 4c 3b 53 59 3d 53 54 52 45 47 2a ┆N <1220 SX=STREG*XS/L;SY=STREG*┆
0x05700…05720 (2, 1, 8) 59 53 2f 4c 3b 4d 58 3d 4d 4c 52 55 4d 2a 58 53 2f 4c 3b 4d 59 3d 4d 4c 52 55 4d 2a 59 53 2f 4c ┆YS/L;MX=MLRUM*XS/L;MY=MLRUM*YS/L┆
0x05720…05740 3c 1b 31 32 33 30 20 45 58 45 43 20 52 4f 55 46 28 58 4c 2c 58 41 2c 58 52 2c 53 58 29 1b 1b 31 ┆< 1230 EXEC ROUF(XL,XA,XR,SX) 1┆
0x05740…05760 32 34 30 20 45 58 45 43 20 52 4f 55 46 28 59 4c 2c 59 41 2c 59 52 2c 53 59 29 1b 38 31 32 35 30 ┆240 EXEC ROUF(YL,YA,YR,SY) 81250┆
0x05760…05780 20 57 48 49 4c 45 20 53 47 4e 28 58 53 2d 58 41 29 3d 53 47 4e 28 58 53 29 20 41 4e 44 20 53 47 ┆ WHILE SGN(XS-XA)=SGN(XS) AND SG┆
0x05780…057a0 4e 28 59 53 2d 59 41 29 3d 53 47 4e 28 59 53 29 20 44 4f 20 38 18 31 32 36 30 20 45 58 45 43 20 ┆N(YS-YA)=SGN(YS) DO 8 1260 EXEC ┆
0x057a0…057c0 54 45 47 4e 52 45 4c 28 58 52 2c 59 52 29 18 1b 31 32 37 30 20 45 58 45 43 20 52 4f 55 46 28 58 ┆TEGNREL(XR,YR) 1270 EXEC ROUF(X┆
0x057c0…057e0 4c 2c 58 41 2c 58 52 2c 4d 58 29 1b 1b 31 32 38 30 20 45 58 45 43 20 52 4f 55 46 28 59 4c 2c 59 ┆L,XA,XR,MX) 1280 EXEC ROUF(YL,Y┆
0x057e0…05800 41 2c 59 52 2c 4d 59 29 1b 18 31 32 39 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 58 52 2c 59 ┆A,YR,MY) 1290 EXEC FLYTREL(XR,Y┆
0x05800…05820 (2, 1, 9) 52 29 18 1b 31 33 30 30 20 45 58 45 43 20 52 4f 55 46 28 58 4c 2c 58 41 2c 58 52 2c 53 58 29 1b ┆R) 1300 EXEC ROUF(XL,XA,XR,SX) ┆
0x05820…05840 1b 31 33 31 30 20 45 58 45 43 20 52 4f 55 46 28 59 4c 2c 59 41 2c 59 52 2c 53 59 29 1b 0e 31 33 ┆ 1310 EXEC ROUF(YL,YA,YR,SY) 13┆
0x05840…05860 32 30 20 45 4e 44 57 48 49 4c 45 20 0e 1c 31 33 33 30 20 45 58 45 43 20 52 4f 55 46 28 58 4c 2c ┆20 ENDWHILE 1330 EXEC ROUF(XL,┆
0x05860…05880 58 41 2c 58 52 2c 2d 53 58 29 1c 1c 31 33 34 30 20 45 58 45 43 20 52 4f 55 46 28 59 4c 2c 59 41 ┆XA,XR,-SX) 1340 EXEC ROUF(YL,YA┆
0x05880…058a0 2c 59 52 2c 2d 53 59 29 1c 37 31 33 35 30 20 49 46 20 53 47 4e 28 58 53 2d 58 41 29 3d 53 47 4e ┆,YR,-SY) 71350 IF SGN(XS-XA)=SGN┆
0x058a0…058c0 28 58 53 29 20 41 4e 44 20 53 47 4e 28 59 53 2d 59 41 29 3d 53 47 4e 28 59 53 29 20 54 48 45 4e ┆(XS) AND SGN(YS-YA)=SGN(YS) THEN┆
0x058c0…058e0 20 37 22 31 33 36 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 58 53 2d 58 41 29 2c 28 59 53 ┆ 7"1360 EXEC TEGNREL((XS-XA),(YS┆
0x058e0…05900 2d 59 41 29 29 22 0a 31 33 37 30 20 45 4c 53 45 20 0a 22 31 33 38 30 20 45 58 45 43 20 46 4c 59 ┆-YA))" 1370 ELSE "1380 EXEC FLY┆
0x05900…05920 (2, 1, 10) 54 52 45 4c 28 28 58 53 2d 58 41 29 2c 28 59 53 2d 59 41 29 29 22 0b 31 33 39 30 20 45 4e 44 49 ┆TREL((XS-XA),(YS-YA))" 1390 ENDI┆
0x05920…05940 46 20 0b 0a 31 34 30 30 20 45 4c 53 45 20 0a 18 31 34 31 30 20 45 58 45 43 20 46 4c 59 54 52 45 ┆F 1400 ELSE 1410 EXEC FLYTRE┆
0x05940…05960 4c 28 58 53 2c 59 53 29 18 0b 31 34 32 30 20 45 4e 44 49 46 20 0b 16 31 34 33 30 20 45 4e 44 50 ┆L(XS,YS) 1420 ENDIF 1430 ENDP┆
0x05960…05980 52 4f 43 20 3b 53 54 49 50 52 45 4c 2e 16 00 00 44 50 52 4f 43 20 3b 53 54 49 50 52 45 4c 2e 16 ┆ROC ;STIPREL. DPROC ;STIPREL. ┆
0x05980…059a0 00 00 30 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 58 53 2c 59 53 29 18 0b 31 33 31 30 20 45 ┆ 00 EXEC FLYTREL(XS,YS) 1310 E┆
0x059a0…059c0 4e 44 49 46 20 0b 16 31 33 32 30 20 45 4e 44 50 52 4f 43 20 3b 53 54 49 50 52 45 4c 2e 16 00 00 ┆NDIF 1320 ENDPROC ;STIPREL. ┆
0x059c0…059e0 33 33 30 20 52 45 4d 20 2a 53 54 49 50 52 45 4c 20 54 45 47 4e 45 52 20 52 45 4c 41 54 49 56 54 ┆330 REM *STIPREL TEGNER RELATIVT┆
0x059e0…05a00 20 45 4e 20 53 54 49 50 4c 45 54 20 4c 49 4e 49 45 20 54 49 4c 20 58 53 2c 59 58 2a 3d 3d 31 33 ┆ EN STIPLET LINIE TIL XS,YX*==13┆
0x05a00…05a20 (2, 1, 11) 34 30 20 52 45 4d 20 2a 4d 45 44 20 53 54 52 45 47 4c 5b 4e 47 44 45 4e 20 53 54 52 45 47 20 4f ┆40 REM *MED STREGLÆNGDEN STREG O┆
0x05a20…05a40 47 20 4d 45 4c 4c 45 4d 52 55 4d 53 4c 5b 4e 47 44 45 4e 20 4d 4c 52 55 4d 2e 2a 3d 00 00 00 00 ┆G MELLEMRUMSLÆNGDEN MLRUM.*= ┆
0x05a40…05a60 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 ┆ ┆
[…0x5…]
0x05b00…05c00 (2, 1, 12) 0x00[0x100]
[…0x3…]
0x05f00…05f20 (2, 1, 16) ExtentHdr {name=»PNAKSE «, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 0006,09 (0x006900)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0006,09 (0x006900)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x05f20…05f40 2b 31 34 34 30 20 50 52 4f 43 20 41 4b 53 45 28 56 49 2c 48 5c 2c 53 4b 2c 53 45 2c 4d 49 4e 2c ┆+1440 PROC AKSE(VI,HØ,SK,SE,MIN,┆
0x05f40…05f60 4d 41 58 2c 54 59 50 2c 54 45 58 29 2b 43 31 34 35 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆MAX,TYP,TEX)+C1450 REM *********┆
0x05f60…05f80 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 2a 2a ┆********************************┆
0x05f80…05fa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 43 43 31 34 36 30 20 52 45 4d 20 2a 41 4b 53 ┆*****************CC1460 REM *AKS┆
0x05fa0…05fc0 45 20 54 45 47 4e 45 52 20 45 4e 20 41 4b 53 45 20 4d 45 44 20 56 49 4e 4b 4c 45 4e 20 56 49 20 ┆E TEGNER EN AKSE MED VINKLEN VI ┆
0x05fc0…05fe0 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2a 43 43 31 34 37 30 20 52 45 4d ┆I FORHOLD TIL VANDRET*CC1470 REM┆
0x05fe0…06000 20 2a 46 52 41 20 4d 49 4e 20 54 49 4c 20 4d 41 58 2e 20 53 5b 54 54 45 52 20 54 45 4b 53 54 45 ┆ *FRA MIN TIL MAX. SÆTTER TEKSTE┆
0x06000…06020 (3, 0, 1) 4e 20 54 45 58 20 4d 45 44 20 42 4f 47 53 54 41 56 48 5c 4a 44 45 4e 20 48 5c 2a 43 43 31 34 38 ┆N TEX MED BOGSTAVHØJDEN HØ*CC148┆
0x06020…06040 30 20 52 45 4d 20 2a 50 5d 20 41 4b 53 45 4e 2e 20 53 4b 41 4c 45 52 49 4e 47 45 4e 20 42 45 53 ┆0 REM *PÅ AKSEN. SKALERINGEN BES┆
0x06040…06060 54 45 4d 4d 45 53 20 41 46 20 53 4b 20 41 4e 47 49 56 45 54 20 49 20 41 4e 54 41 4c 20 20 20 2a ┆TEMMES AF SK ANGIVET I ANTAL *┆
0x06060…06080 43 43 31 34 39 30 20 52 45 4d 20 2a 53 54 45 50 53 20 50 52 2e 20 45 4e 48 45 44 2e 20 41 4e 54 ┆CC1490 REM *STEPS PR. ENHED. ANT┆
0x06080…060a0 41 4c 4c 45 54 20 41 46 20 44 45 4c 53 54 52 45 47 45 52 20 50 52 2e 20 45 4e 48 45 44 20 42 45 ┆ALLET AF DELSTREGER PR. ENHED BE┆
0x060a0…060c0 2d 20 20 20 2a 43 43 31 35 30 30 20 52 45 4d 20 2a 53 54 45 4d 4d 45 53 20 41 46 20 31 2f 53 45 ┆- *CC1500 REM *STEMMES AF 1/SE┆
0x060c0…060e0 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆. ┆
0x060e0…06100 20 20 20 20 20 20 20 20 20 2a 43 43 31 35 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *CC1510 REM ***********┆
0x06100…06120 (3, 0, 2) 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 2a 2a ┆********************************┆
0x06120…06140 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 43 3a 31 35 32 30 20 4b 58 3d 43 4f 53 28 56 49 2f ┆***************C:1520 KX=COS(VI/┆
0x06140…06160 31 38 30 2a 50 49 29 3b 4b 59 3d 53 49 4e 28 56 49 2f 31 38 30 2a 50 49 29 3b 48 42 3d 28 31 38 ┆180*PI);KY=SIN(VI/180*PI);HB=(18┆
0x06160…06180 2a 32 2a 2a 28 48 5c 2d 31 29 29 3a 20 31 35 33 30 20 49 46 20 53 47 4e 28 4d 49 4e 29 3c 3e 53 ┆*2**(HØ-1)): 1530 IF SGN(MIN)<>S┆
0x06180…061a0 47 4e 28 4d 41 58 29 20 54 48 45 4e 20 20 12 31 35 34 30 20 4d 49 3d 4d 49 4e 3b 4d 58 3d 4d 41 ┆GN(MAX) THEN 1540 MI=MIN;MX=MA┆
0x061a0…061c0 58 12 0a 31 35 35 30 20 45 4c 53 45 20 0a 18 31 35 36 30 20 49 46 20 53 47 4e 28 4d 49 4e 29 3d ┆X 1550 ELSE 1560 IF SGN(MIN)=┆
0x061c0…061e0 31 20 54 48 45 4e 20 18 14 31 35 37 30 20 4d 49 3d 30 3b 4d 58 3d 4d 41 58 2d 4d 49 4e 14 0a 31 ┆1 THEN 1570 MI=0;MX=MAX-MIN 1┆
0x061e0…06200 35 38 30 20 45 4c 53 45 20 0a 14 31 35 39 30 20 4d 58 3d 30 3b 4d 49 3d 4d 49 4e 2d 4d 41 58 14 ┆580 ELSE 1590 MX=0;MI=MIN-MAX ┆
0x06200…06220 (3, 0, 3) 0b 31 36 30 30 20 45 4e 44 49 46 20 0b 0b 31 36 31 30 20 45 4e 44 49 46 20 0b 48 31 36 32 30 20 ┆ 1600 ENDIF 1610 ENDIF H1620 ┆
0x06220…06240 58 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 58 3b 59 4d 41 58 3d 28 4d 58 2a 53 4b 2b ┆XMAX=(MX*SK+100)*KX;YMAX=(MX*SK+┆
0x06240…06260 31 30 30 29 2a 4b 59 3b 58 4d 49 4e 3d 4d 49 2a 53 4b 2a 4b 58 3b 59 4d 49 4e 3d 4d 49 2a 53 4b ┆100)*KY;XMIN=MI*SK*KX;YMIN=MI*SK┆
0x06260…06280 2a 4b 59 48 1c 31 36 33 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 58 4d 49 4e 2c 59 4d 49 4e ┆*KYH 1630 EXEC FLYTABS(XMIN,YMIN┆
0x06280…062a0 29 1c 1e 31 36 34 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 ┆) 1640 EXEC TEGNABS(0,XMAX,YMAX┆
0x062a0…062c0 29 1e 23 31 36 35 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 ┆) #1650 EXEC TEGNREL((KY*20),(-K┆
0x062c0…062e0 58 2a 32 30 29 29 23 28 31 36 36 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 58 2d 4b 59 ┆X*20))#(1660 EXEC TEGNREL((KX-KY┆
0x062e0…06300 29 2a 32 30 2c 28 4b 58 2b 4b 59 29 2a 32 30 29 28 29 31 36 37 30 20 45 58 45 43 20 54 45 47 4e ┆)*20,(KX+KY)*20)()1670 EXEC TEGN┆
0x06300…06320 (3, 0, 4) 52 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 38 ┆REL((-KX-KY)*20,(KX-KY)*20))#168┆
0x06320…06340 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 2a 32 30 29 29 ┆0 EXEC TEGNREL((KY*20),(-KX*20))┆
0x06340…06360 23 1d 31 36 39 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 ┆# 1690 IF 0<=KY AND KY<=1 THEN ┆
0x06360…06380 37 31 37 30 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 ┆71700 EXEC FLYTREL((KY*30),(-KX*┆
0x06380…063a0 33 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 37 31 30 20 45 ┆30-HB*(SGN(KX-KY)+1)/2))7 1710 E┆
0x063a0…063c0 4c 53 45 20 0a 38 31 37 32 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 2d 4b 59 2a 33 30 29 ┆LSE 81720 EXEC FLYTREL((-KY*30)┆
0x063c0…063e0 2c 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 ┆,(KX*30-HB*(SGN(-KX+KY)+1)/2))8 ┆
0x063e0…06400 31 37 33 30 20 45 4e 44 49 46 20 0b 1a 31 37 34 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 48 ┆1730 ENDIF 1740 EXEC TEKST(0,H┆
0x06400…06420 (3, 0, 5) 5c 2c 54 45 58 24 29 1a 16 31 37 35 30 20 49 46 20 54 59 50 24 3c 3e 22 22 20 54 48 45 4e 20 16 ┆Ø,TEX$) 1750 IF TYP$<>"" THEN ┆
0x06420…06440 17 31 37 36 30 20 53 49 3d 28 4d 41 58 20 44 49 56 20 53 45 29 2a 53 45 17 2e 31 37 37 30 20 46 ┆ 1760 SI=(MAX DIV SE)*SE .1770 F┆
0x06440…06460 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 53 4b 20 53 54 45 ┆OR I=(SI+MI-MIN)*SK TO MI*SK STE┆
0x06460…06480 50 20 2d 53 45 2a 53 4b 2e 2c 31 37 38 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 28 4b 58 2a ┆P -SE*SK.,1780 EXEC FLYTABS((KX*┆
0x06480…064a0 49 2d 4b 59 2a 31 30 29 2c 28 4b 59 2a 49 2b 4b 58 2a 31 30 29 29 2c 23 31 37 39 30 20 45 58 45 ┆I-KY*10),(KY*I+KX*10)),#1790 EXE┆
0x064a0…064c0 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 1d 31 38 30 ┆C TEGNREL((KY*20),(-KX*20))# 180┆
0x064c0…064e0 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 34 31 38 31 30 ┆0 IF 0<=KY AND KY<=1 THEN 41810┆
0x064e0…06500 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 4b 59 2a 32 30 29 2c 28 2d 4b 58 2a 32 30 2d 48 42 ┆ EXEC FLYTREL((KY*20),(-KX*20-HB┆
0x06500…06520 (3, 0, 6) 2a 28 53 47 4e 28 4b 58 29 2b 31 29 2f 32 29 29 34 0a 31 38 32 30 20 45 4c 53 45 20 0a 34 31 38 ┆*(SGN(KX)+1)/2))4 1820 ELSE 418┆
0x06520…06540 33 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 4b 58 29 2a 34 30 ┆30 EXEC FLYTREL((-KY)*40,(KX)*40┆
0x06540…06560 2b 48 42 2a 28 53 47 4e 28 4b 58 29 2d 31 29 2f 32 29 34 0b 31 38 34 30 20 45 4e 44 49 46 20 0b ┆+HB*(SGN(KX)-1)/2)4 1840 ENDIF ┆
0x06560…06580 18 31 38 35 30 20 49 46 20 54 59 50 24 3d 22 4c 49 4e 22 20 54 48 45 4e 20 18 0b 31 38 36 30 20 ┆ 1850 IF TYP$="LIN" THEN 1860 ┆
0x06580…065a0 53 49 49 3d 53 49 0b 0a 31 38 37 30 20 45 4c 53 45 20 0a 0f 31 38 38 30 20 53 49 49 3d 31 30 2a ┆SII=SI 1870 ELSE 1880 SII=10*┆
0x065a0…065c0 2a 53 49 0f 0b 31 38 39 30 20 45 4e 44 49 46 20 0b 1c 31 39 30 30 20 49 46 20 41 42 53 28 53 49 ┆*SI 1890 ENDIF 1900 IF ABS(SI┆
0x065c0…065e0 49 29 3c 3d 39 39 39 39 20 54 48 45 4e 20 1c 18 31 39 31 30 20 53 4a 3d 52 4f 55 28 53 49 49 2a ┆I)<=9999 THEN 1910 SJ=ROU(SII*┆
0x065e0…06600 31 30 30 29 2f 31 30 30 18 0a 31 39 32 30 20 45 4c 53 45 20 0a 30 31 39 33 30 20 49 46 20 39 39 ┆100)/100 1920 ELSE 01930 IF 99┆
0x06600…06620 (3, 0, 7) 39 39 3c 41 42 53 28 53 49 49 29 20 41 4e 44 20 41 42 53 28 53 49 49 29 3c 3d 39 39 39 39 39 39 ┆99<ABS(SII) AND ABS(SII)<=999999┆
0x06620…06640 20 54 48 45 4e 20 30 10 31 39 34 30 20 53 4a 3d 52 4f 55 28 53 49 49 29 10 0a 31 39 35 30 20 45 ┆ THEN 0 1940 SJ=ROU(SII) 1950 E┆
0x06640…06660 4c 53 45 20 0a 0b 31 39 36 30 20 53 4a 3d 53 49 49 0b 0b 31 39 37 30 20 45 4e 44 49 46 20 0b 0b ┆LSE 1960 SJ=SII 1970 ENDIF ┆
0x06660…06680 31 39 38 30 20 45 4e 44 49 46 20 0b 24 31 39 39 30 20 49 46 20 53 4a 3c 3e 30 20 54 48 45 4e 20 ┆1980 ENDIF $1990 IF SJ<>0 THEN ┆
0x06680…066a0 45 58 45 43 20 54 41 4c 28 30 2c 48 5c 2c 53 4a 29 24 0d 32 30 30 30 20 53 49 3d 53 49 2d 53 45 ┆EXEC TAL(0,HØ,SJ)$ 2000 SI=SI-SE┆
0x066a0…066c0 0d 0b 32 30 31 30 20 4e 45 58 54 20 49 0b 0b 32 30 32 30 20 45 4e 44 49 46 20 0b 13 32 30 33 30 ┆ 2010 NEXT I 2020 ENDIF 2030┆
0x066c0…066e0 20 45 4e 44 50 52 4f 43 20 3b 41 4b 53 45 2e 13 00 00 37 33 30 20 50 52 4f 43 20 53 59 4d 42 4f ┆ ENDPROC ;AKSE. 730 PROC SYMBO┆
0x066e0…06700 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 ┆
0x06700…06720 (3, 0, 8) 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┆
0x06720…06740 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┆
0x06740…06760 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┆
0x06760…06780 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┆
0x06780…067a0 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┆
0x067a0…067c0 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┆
0x067c0…067e0 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┆
0x067e0…06800 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┆
0x06800…06820 (3, 0, 9) 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┆
0x06820…06840 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┆
0x06840…06860 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┆
0x06860…06880 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┆
0x06880…068a0 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. ┆
0x068a0…068c0 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) ;┆
0x068c0…068e0 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┆
0x068e0…06900 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┆
0x06900…06920 (3, 0, 10) ExtentHdr {name=»PNAKSE «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0007,03 (0x007300)}, prevext={DA 0005,0f (0x005f00)}, nextfile={DA 0007,03 (0x007300)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x06920…06940 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┆
0x06940…06960 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┆
0x06960…06980 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(┆
0x06980…069a0 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┆
0x069a0…069c0 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;"_"┆
0x069c0…069e0 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 "┆
0x069e0…06a00 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┆
0x06a00…06a20 (3, 0, 11) 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,┆
0x06a20…06a40 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 ┆
0x06a40…06a60 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 ****************************┆
0x06a60…06a80 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┆
0x06a80…06aa0 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┆
0x06aa0…06ac0 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┆
0x06ac0…06ae0 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. ┆
0x06ae0…06b00 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Ø┆
0x06b00…06b20 (3, 0, 12) 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┆
0x06b20…06b40 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┆
0x06b40…06b60 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┆
0x06b60…06b80 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┆
0x06b80…06ba0 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┆
0x06ba0…06bc0 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. ┆
0x06bc0…06be0 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┆
0x06be0…06c00 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 ******************************┆
0x06c00…06c20 (3, 0, 13) 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┆
0x06c20…06c40 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┆
0x06c40…06c60 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)┆
0x06c60…06c80 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┆
0x06c80…06ca0 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┆
0x06ca0…06cc0 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┆
0x06cc0…06ce0 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;┆
0x06ce0…06d00 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=┆
0x06d00…06d20 (3, 0, 14) 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 ┆
0x06d20…06d40 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┆
0x06d40…06d60 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┆
0x06d60…06d80 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*┆
0x06d80…06da0 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)┆
0x06da0…06dc0 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)┆
0x06dc0…06de0 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┆
0x06de0…06e00 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)┆
0x06e00…06e20 (3, 0, 15) 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┆
0x06e20…06e40 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┆
0x06e40…06e60 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))#┆
0x06e60…06e80 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┆
0x06e80…06ea0 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┆
0x06ea0…06ec0 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┆
0x06ec0…06ee0 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),┆
0x06ee0…06f00 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┆
0x06f00…06f20 (3, 0, 16) 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Ø┆
0x06f20…06f40 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┆
0x06f40…06f60 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┆
0x06f60…06f80 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┆
0x06f80…06fa0 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┆
0x06fa0…06fc0 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┆
0x06fc0…06fe0 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((┆
0x06fe0…07000 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 ┆
0x07000…07020 (3, 1, 1) 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┆
0x07020…07040 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┆
0x07040…07060 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┆
0x07060…07080 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┆
0x07080…070a0 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┆
0x070a0…070c0 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┆
0x070c0…070e0 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┆
0x070e0…07100 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┆
0x07100…07120 (3, 1, 2) 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 ┆
0x07120…07140 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┆
0x07140…07160 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┆
0x07160…07180 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 ┆
0x07180…071a0 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┆
0x071a0…071c0 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┆
0x071c0…071e0 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 ┆
0x071e0…07200 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┆
0x07200…07220 (3, 1, 3) 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┆
0x07220…07240 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 ┆
0x07240…07260 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┆
0x07260…07280 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,┆
0x07280…072a0 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┆
0x072a0…072c0 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$┆
0x072c0…072e0 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┆
0x072e0…07300 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$=┆
0x07300…07320 (3, 1, 4) ExtentHdr {name=»PNAKSE «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0006,09 (0x006900)}, nextfile={DA 0007,0d (0x007d00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x07320…07340 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┆
0x07340…07360 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┆
0x07360…07380 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┆
0x07380…073a0 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┆
0x073a0…073c0 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 (┆
0x073c0…073e0 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┆
0x073e0…07400 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┆
0x07400…07500 (3, 1, 5) 0x00[0x100]
[…0x8…]
0x07d00…07d20 (3, 1, 14) ExtentHdr {name=»PNKOSYS «, typ=»K«, seg=»A«, next=0x01, basis=0x0006, nextext={DA 0008,03 (0x008300)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0008,03 (0x008300)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x07d20…07d40 3b 32 30 34 30 20 50 52 4f 43 20 4b 4f 53 59 53 28 58 49 2c 58 58 2c 59 49 2c 59 58 2c 58 43 2c ┆;2040 PROC KOSYS(XI,XX,YI,YX,XC,┆
0x07d40…07d60 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 29 3b 3f 32 30 ┆YC,X0,Y0,XTP,YTP,AK,XTX,YTX);?20┆
0x07d60…07d80 35 30 20 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 ┆50 REM *************************┆
0x07d80…07da0 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 3f 3f 32 ┆*****************************??2┆
0x07da0…07dc0 30 36 30 20 52 45 4d 20 2a 4b 4f 53 59 53 20 46 4f 52 45 54 41 47 45 52 20 45 4e 20 41 55 54 4f ┆060 REM *KOSYS FORETAGER EN AUTO┆
0x07dc0…07de0 53 4b 41 4c 45 52 49 4e 47 20 4f 47 20 45 4e 20 41 55 54 4f 4e 55 4c 50 55 4e 4b 54 53 2a 3f 3f ┆SKALERING OG EN AUTONULPUNKTS*??┆
0x07de0…07e00 32 30 37 30 20 52 45 4d 20 2a 42 45 53 54 45 4d 4d 45 4c 53 45 2c 20 48 56 49 53 20 58 43 20 4f ┆2070 REM *BESTEMMELSE, HVIS XC O┆
0x07e00…07e20 (3, 1, 15) 47 2f 45 4c 4c 45 52 20 59 43 20 45 52 20 4d 49 4e 44 52 45 20 45 4e 44 20 45 4c 4c 45 52 2a 3f ┆G/ELLER YC ER MINDRE END ELLER*?┆
0x07e20…07e40 3f 32 30 38 30 20 52 45 4d 20 2a 4c 49 47 20 4d 45 44 20 4e 55 4c 2e 20 53 4b 41 4c 45 52 49 4e ┆?2080 REM *LIG MED NUL. SKALERIN┆
0x07e40…07e60 47 45 4e 20 58 43 2c 59 43 20 42 45 53 54 45 4d 4d 45 53 20 44 41 20 41 46 20 58 49 2c 58 58 2a ┆GEN XC,YC BESTEMMES DA AF XI,XX*┆
0x07e60…07e80 3f 3f 32 30 39 30 20 52 45 4d 20 2a 4f 47 20 59 49 2c 59 58 2e 20 45 4c 4c 45 52 53 20 41 4e 56 ┆??2090 REM *OG YI,YX. ELLERS ANV┆
0x07e80…07ea0 45 4e 44 45 53 20 44 45 20 55 44 45 46 52 41 20 41 4e 47 49 56 4e 45 20 53 4b 41 4c 45 2d 20 20 ┆ENDES DE UDEFRA ANGIVNE SKALE- ┆
0x07ea0…07ec0 2a 3f 3f 32 31 30 30 20 52 45 4d 20 2a 52 49 4e 47 45 52 20 58 43 2c 59 43 20 4f 47 20 44 45 20 ┆*??2100 REM *RINGER XC,YC OG DE ┆
0x07ec0…07ee0 55 44 45 46 52 41 20 41 4e 47 49 56 4e 45 20 4e 55 4c 50 55 4e 4b 54 45 52 20 58 5c 2c 59 5c 2e ┆UDEFRA ANGIVNE NULPUNKTER XØ,YØ.┆
0x07ee0…07f00 20 2a 3f 3f 32 31 31 30 20 52 45 4d 20 2a 44 45 53 55 44 45 4e 20 56 49 4c 20 4b 4f 4f 52 44 2c ┆ *??2110 REM *DESUDEN VIL KOORD,┆
0x07f00…07f20 (3, 1, 16) 20 48 56 49 53 20 41 4b 20 45 52 20 4c 49 47 20 4d 45 44 20 45 45 4e 2c 20 55 44 54 45 47 4e 45 ┆ HVIS AK ER LIG MED EEN, UDTEGNE┆
0x07f20…07f40 20 20 2a 3f 3f 32 31 32 30 20 52 45 4d 20 2a 4b 4f 4f 52 44 49 4e 41 54 41 4b 53 45 52 4e 45 2c ┆ *??2120 REM *KOORDINATAKSERNE,┆
0x07f40…07f60 20 53 5b 54 54 45 20 54 45 4b 53 54 45 52 4e 45 20 58 54 58 20 4f 47 20 59 54 58 20 50 5d 20 20 ┆ SÆTTE TEKSTERNE XTX OG YTX PÅ ┆
0x07f60…07f80 20 20 20 2a 3f 3f 32 31 33 30 20 52 45 4d 20 2a 41 4b 53 45 52 4e 45 20 4f 47 20 45 4e 44 45 4c ┆ *??2130 REM *AKSERNE OG ENDEL┆
0x07f80…07fa0 49 47 20 55 44 53 4b 52 49 56 45 20 45 4e 20 53 4b 41 4c 41 2c 20 53 4f 4d 20 56 49 4c 20 56 5b ┆IG UDSKRIVE EN SKALA, SOM VIL VÆ┆
0x07fa0…07fc0 52 45 20 20 2a 3f 3f 32 31 34 30 20 52 45 4d 20 2a 4c 49 4e 49 5b 52 2c 20 48 56 49 53 20 58 54 ┆RE *??2140 REM *LINIÆR, HVIS XT┆
0x07fc0…07fe0 50 28 59 54 50 29 20 45 52 20 4c 49 47 20 22 4c 49 4e 22 20 4f 47 20 45 4b 53 50 4f 4e 45 4e 54 ┆P(YTP) ER LIG "LIN" OG EKSPONENT┆
0x07fe0…08000 49 41 4c 2c 20 2a 3f 3f 32 31 35 30 20 52 45 4d 20 2a 48 56 49 53 20 58 54 50 28 59 54 50 29 20 ┆IAL, *??2150 REM *HVIS XTP(YTP) ┆
0x08000…08020 (4, 0, 1) 45 52 20 46 4f 52 53 4b 45 4c 4c 49 47 20 46 52 41 20 22 4c 49 4e 22 2e 20 20 20 20 20 20 20 20 ┆ER FORSKELLIG FRA "LIN". ┆
0x08020…08040 20 20 20 20 20 20 2a 3f 3f 32 31 36 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *??2160 REM **************┆
0x08040…08060 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 2a 2a ┆********************************┆
0x08060…08080 2a 2a 2a 2a 2a 2a 2a 2a 3f 19 32 31 37 30 20 50 52 4f 43 20 58 59 44 42 53 54 28 58 59 43 2c 58 ┆********? 2170 PROC XYDBST(XYC,X┆
0x08080…080a0 59 44 29 19 15 32 31 38 30 20 58 59 44 3d 49 4e 54 28 32 30 30 2f 58 59 43 29 15 29 32 31 39 30 ┆YD) 2180 XYD=INT(200/XYC) )2190┆
0x080a0…080c0 20 49 46 20 32 30 30 3c 3d 58 59 43 20 41 4e 44 20 58 59 43 3c 34 30 30 20 54 48 45 4e 20 58 59 ┆ IF 200<=XYC AND XYC<400 THEN XY┆
0x080c0…080e0 44 3d 30 2e 35 29 2b 32 32 30 30 20 49 46 20 34 30 30 3c 3d 58 59 43 20 41 4e 44 20 58 59 43 3c ┆D=0.5)+2200 IF 400<=XYC AND XYC<┆
0x080e0…08100 31 38 30 30 20 54 48 45 4e 20 58 59 44 3d 30 2e 32 35 2b 1e 32 32 31 30 20 49 46 20 31 38 30 30 ┆1800 THEN XYD=0.25+ 2210 IF 1800┆
0x08100…08120 (4, 0, 2) 3c 3d 58 59 43 20 54 48 45 4e 20 58 59 44 3d 30 2e 31 1e 15 32 32 32 30 20 45 4e 44 50 52 4f 43 ┆<=XYC THEN XYD=0.1 2220 ENDPROC┆
0x08120…08140 20 3b 58 59 44 42 53 54 2e 15 14 32 32 33 30 20 53 4c 3d 33 35 30 30 3b 53 42 3d 32 33 30 30 14 ┆ ;XYDBST. 2230 SL=3500;SB=2300 ┆
0x08140…08160 1c 32 32 34 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 1a 32 ┆ 2240 IF XC<=0 OR YC<=0 THEN 2┆
0x08160…08180 32 35 30 20 58 43 2c 59 43 3d 49 4e 54 28 53 42 2f 28 59 58 2d 59 49 29 29 1a 31 32 32 36 30 20 ┆250 XC,YC=INT(SB/(YX-YI)) 12260 ┆
0x08180…081a0 49 46 20 58 43 3d 3e 53 4c 2f 28 58 58 2d 58 49 29 20 54 48 45 4e 20 58 43 2c 59 43 3d 49 4e 54 ┆IF XC=>SL/(XX-XI) THEN XC,YC=INT┆
0x081a0…081c0 28 53 4c 2f 28 58 58 2d 58 49 29 29 31 25 32 32 37 30 20 58 4f 3d 2d 58 49 2a 58 43 3b 59 4f 3d ┆(SL/(XX-XI))1%2270 XO=-XI*XC;YO=┆
0x081c0…081e0 2d 59 49 2a 59 43 3b 58 46 3d 2d 32 30 3b 59 46 3d 39 30 25 1e 32 32 38 30 20 49 46 20 30 3c 3d ┆-YI*YC;XF=-20;YF=90% 2280 IF 0<=┆
0x081e0…08200 58 4f 20 41 4e 44 20 58 4f 3c 3d 53 4c 20 54 48 45 4e 20 1e 0b 32 32 39 30 20 58 50 4f 3d 58 4f ┆XO AND XO<=SL THEN 2290 XPO=XO┆
0x08200…08220 (4, 0, 3) 0b 0a 32 33 30 30 20 45 4c 53 45 20 0a 12 32 33 31 30 20 49 46 20 58 4f 3c 30 20 54 48 45 4e 20 ┆ 2300 ELSE 2310 IF XO<0 THEN ┆
0x08220…08240 12 0a 32 33 32 30 20 58 50 4f 3d 30 0a 0a 32 33 33 30 20 45 4c 53 45 20 0a 0b 32 33 34 30 20 58 ┆ 2320 XPO=0 2330 ELSE 2340 X┆
0x08240…08260 50 4f 3d 53 4c 0b 0b 32 33 35 30 20 45 4e 44 49 46 20 0b 0b 32 33 36 30 20 45 4e 44 49 46 20 0b ┆PO=SL 2350 ENDIF 2360 ENDIF ┆
0x08260…08280 1e 32 33 37 30 20 49 46 20 30 3c 3d 59 4f 20 41 4e 44 20 59 4f 3c 3d 53 42 20 54 48 45 4e 20 1e ┆ 2370 IF 0<=YO AND YO<=SB THEN ┆
0x08280…082a0 0b 32 33 38 30 20 59 50 4f 3d 59 4f 0b 0a 32 33 39 30 20 45 4c 53 45 20 0a 12 32 34 30 30 20 49 ┆ 2380 YPO=YO 2390 ELSE 2400 I┆
0x082a0…082c0 46 20 59 4f 3c 30 20 54 48 45 4e 20 12 0a 32 34 31 30 20 59 50 4f 3d 30 0a 0a 32 34 32 30 20 45 ┆F YO<0 THEN 2410 YPO=0 2420 E┆
0x082c0…082e0 4c 53 45 20 0a 0b 32 34 33 30 20 59 50 4f 3d 53 42 0b 0b 32 34 34 30 20 45 4e 44 49 46 20 0b 0b ┆LSE 2430 YPO=SB 2440 ENDIF ┆
0x082e0…08300 32 34 35 30 20 45 4e 44 49 46 20 0b 0a 32 34 36 30 20 45 4c 53 45 20 0a 40 32 34 37 30 20 58 43 ┆2450 ENDIF 2460 ELSE @2470 XC┆
0x08300…08320 (4, 0, 4) ExtentHdr {name=»PNKOSYS «, typ=»K«, seg=»B«, next=0x01, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0007,0d (0x007d00)}, nextfile={DA 0008,09 (0x008900)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x08320…08340 3d 58 43 2a 31 30 3b 59 43 3d 59 43 2a 31 30 3b 58 50 4f 2c 58 4f 3d 58 30 2a 31 30 3b 59 50 4f ┆=XC*10;YC=YC*10;XPO,XO=X0*10;YPO┆
0x08340…08360 2c 59 4f 3d 59 30 2a 31 30 3b 58 46 3d 2d 34 32 30 3b 59 46 3d 2d 31 36 30 40 0b 32 34 38 30 20 ┆,YO=Y0*10;XF=-420;YF=-160@ 2480 ┆
0x08360…08380 45 4e 44 49 46 20 0b 12 32 34 39 30 20 49 46 20 41 4b 3d 31 20 54 48 45 4e 20 12 24 32 35 30 30 ┆ENDIF 2490 IF AK=1 THEN $2500┆
0x08380…083a0 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 28 58 50 4f 2b 58 46 29 2c 28 59 50 4f 2b 59 46 29 29 ┆ EXEC FLYTABS((XPO+XF),(YPO+YF))┆
0x083a0…083c0 24 10 32 35 31 30 20 45 58 45 43 20 4e 55 4c 50 4b 54 10 17 32 35 32 30 20 45 58 45 43 20 58 59 ┆$ 2510 EXEC NULPKT 2520 EXEC XY┆
0x083c0…083e0 44 42 53 54 28 58 43 2c 58 44 29 17 29 32 35 33 30 20 45 58 45 43 20 41 4b 53 45 28 30 2c 31 2c ┆DBST(XC,XD) )2530 EXEC AKSE(0,1,┆
0x083e0…08400 58 43 2c 58 44 2c 58 49 2c 58 58 2c 58 54 50 24 2c 58 54 58 24 29 29 17 32 35 34 30 20 45 58 45 ┆XC,XD,XI,XX,XTP$,XTX$)) 2540 EXE┆
0x08400…08420 (4, 0, 5) 43 20 58 59 44 42 53 54 28 59 43 2c 59 44 29 17 2a 32 35 35 30 20 45 58 45 43 20 41 4b 53 45 28 ┆C XYDBST(YC,YD) *2550 EXEC AKSE(┆
0x08420…08440 39 30 2c 31 2c 59 43 2c 59 44 2c 59 49 2c 59 58 2c 59 54 50 24 2c 59 54 58 24 29 2a 0b 32 35 36 ┆90,1,YC,YD,YI,YX,YTP$,YTX$)* 256┆
0x08440…08460 30 20 45 4e 44 49 46 20 0b 18 32 35 37 30 20 58 30 3d 58 4f 2d 58 50 4f 3b 59 30 3d 59 4f 2d 59 ┆0 ENDIF 2570 X0=XO-XPO;Y0=YO-Y┆
0x08460…08480 50 4f 18 14 32 35 38 30 20 45 4e 44 50 52 4f 43 20 3b 4b 4f 53 59 53 2e 14 00 00 2d 59 50 4f 18 ┆PO 2580 ENDPROC ;KOSYS. -YPO ┆
0x08480…084a0 14 32 36 36 30 20 45 4e 44 50 52 4f 43 20 3b 4b 4f 53 59 53 2e 14 00 00 00 00 00 00 00 00 00 00 ┆ 2660 ENDPROC ;KOSYS. ┆
0x084a0…084c0 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 ┆ ┆
[…0x2…]
0x08500…08600 (4, 0, 6) 0x00[0x100]
[…0x3…]
0x08900…08920 (4, 0, 10) ExtentHdr {name=»PNLINKRV«, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 0009,03 (0x009300)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0009,03 (0x009300)}, f99=41 08 00 fe 00 00 00 00 00 00 ┆A ┆}
0x08920…08940 3f 32 35 39 30 20 50 52 4f 43 20 4c 49 4e 4b 52 56 28 58 49 4e 2c 58 41 58 2c 58 53 4b 41 2c 59 ┆?2590 PROC LINKRV(XIN,XAX,XSKA,Y┆
0x08940…08960 53 4b 41 2c 58 4e 55 4c 2c 59 4e 55 4c 2c 4c 49 54 59 2c 41 4b 53 52 2c 58 54 45 2c 59 54 45 29 ┆SKA,XNUL,YNUL,LITY,AKSR,XTE,YTE)┆
0x08960…08980 3f 42 32 36 30 30 20 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 ┆?B2600 REM *********************┆
0x08980…089a0 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 2a 2a ┆********************************┆
0x089a0…089c0 2a 2a 2a 2a 42 42 32 36 31 30 20 52 45 4d 20 2a 4c 49 4e 4b 52 56 20 50 4c 4f 54 54 45 52 20 45 ┆****BB2610 REM *LINKRV PLOTTER E┆
0x089c0…089e0 4e 20 4b 55 52 56 45 20 41 46 20 46 55 4e 4b 54 49 4f 4e 45 4e 20 41 4e 47 49 56 45 54 20 49 20 ┆N KURVE AF FUNKTIONEN ANGIVET I ┆
0x089e0…08a00 50 52 4f 43 45 2d 20 2a 42 42 32 36 32 30 20 52 45 4d 20 2a 44 55 52 45 4e 20 46 55 4e 4b 20 46 ┆PROCE- *BB2620 REM *DUREN FUNK F┆
0x08a00…08a20 (4, 0, 11) 52 41 20 58 49 4e 20 54 49 4c 20 58 41 58 2e 20 48 56 49 53 20 58 53 4b 41 20 4f 47 2f 45 4c 4c ┆RA XIN TIL XAX. HVIS XSKA OG/ELL┆
0x08a20…08a40 45 52 20 59 53 4b 41 20 45 52 20 2a 42 42 32 36 33 30 20 52 45 4d 20 2a 4d 49 4e 44 52 45 20 45 ┆ER YSKA ER *BB2630 REM *MINDRE E┆
0x08a40…08a60 4e 44 20 4e 55 4c 20 46 4f 52 45 54 41 47 45 53 20 45 4e 20 41 55 54 4f 4d 41 54 49 53 4b 20 42 ┆ND NUL FORETAGES EN AUTOMATISK B┆
0x08a60…08a80 45 53 54 45 4d 4d 45 4c 53 45 20 41 46 20 20 2a 42 42 32 36 34 30 20 52 45 4d 20 2a 53 4b 41 4c ┆ESTEMMELSE AF *BB2640 REM *SKAL┆
0x08a80…08aa0 45 52 49 4e 47 45 4e 20 4f 47 20 4e 55 4c 50 55 4e 4b 54 45 54 2e 20 45 4c 4c 45 52 53 20 42 45 ┆ERINGEN OG NULPUNKTET. ELLERS BE┆
0x08aa0…08ac0 4e 59 54 54 45 53 20 45 4e 20 53 4b 41 4c 45 52 49 4e 47 2a 42 42 32 36 35 30 20 52 45 4d 20 2a ┆NYTTES EN SKALERING*BB2650 REM *┆
0x08ac0…08ae0 42 45 53 54 45 4d 54 20 41 46 20 58 53 4b 41 2c 59 53 4b 41 2c 20 4f 47 20 45 54 20 4e 55 4c 50 ┆BESTEMT AF XSKA,YSKA, OG ET NULP┆
0x08ae0…08b00 55 4e 4b 54 20 42 45 53 54 45 4d 54 20 41 46 20 58 4e 55 4c 2c 20 20 2a 42 42 32 36 36 30 20 52 ┆UNKT BESTEMT AF XNUL, *BB2660 R┆
0x08b00…08b20 (4, 0, 12) 45 4d 20 2a 59 4e 55 4c 2e 20 4b 55 52 56 45 4e 20 50 4c 4f 54 54 45 53 20 4d 45 44 20 44 45 4e ┆EM *YNUL. KURVEN PLOTTES MED DEN┆
0x08b20…08b40 20 41 46 20 4c 49 54 59 20 56 41 4c 47 54 45 20 4c 49 4e 49 45 54 59 50 45 2e 20 2a 42 42 32 36 ┆ AF LITY VALGTE LINIETYPE. *BB26┆
0x08b40…08b60 37 30 20 52 45 4d 20 2a 48 56 49 53 20 41 4b 53 52 20 45 52 20 4c 49 47 20 4d 45 44 20 45 45 4e ┆70 REM *HVIS AKSR ER LIG MED EEN┆
0x08b60…08b80 20 55 44 54 45 47 4e 45 53 20 44 45 53 55 44 45 4e 20 4b 4f 4f 52 44 49 4e 41 54 2d 20 20 20 2a ┆ UDTEGNES DESUDEN KOORDINAT- *┆
0x08b80…08ba0 42 42 32 36 38 30 20 52 45 4d 20 2a 41 4b 53 45 52 20 4d 45 44 20 54 45 4b 53 54 45 52 4e 45 20 ┆BB2680 REM *AKSER MED TEKSTERNE ┆
0x08ba0…08bc0 58 54 45 20 4f 47 20 59 54 45 20 50 5d 53 41 54 2c 20 4f 47 20 50 4c 4f 54 54 45 52 45 4e 53 20 ┆XTE OG YTE PÅSAT, OG PLOTTERENS ┆
0x08bc0…08be0 20 20 20 2a 42 42 32 36 39 30 20 52 45 4d 20 2a 4e 55 4c 50 55 54 4e 4b 54 20 46 41 53 54 53 5b ┆ *BB2690 REM *NULPUTNKT FASTSÆ┆
0x08be0…08c00 54 54 45 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TTES. ┆
0x08c00…08c20 (4, 0, 13) 20 20 20 20 20 20 20 2a 42 42 32 37 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *BB2700 REM *************┆
0x08c20…08c40 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 2a 2a ┆********************************┆
0x08c40…08c60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 42 46 32 37 31 30 20 4c 49 4e 24 3d 22 4c 49 4e 22 3b 58 53 ┆************BF2710 LIN$="LIN";XS┆
0x08c60…08c80 3d 58 53 4b 41 3b 59 53 3d 59 53 4b 41 3b 58 5c 3d 58 4e 55 4c 3b 59 5c 3d 59 4e 55 4c 3b 59 4d ┆=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL;YM┆
0x08c80…08ca0 49 3d 39 2e 32 45 31 38 3b 59 4d 58 3d 2d 39 2e 32 45 31 38 46 29 32 37 32 30 20 46 4f 52 20 58 ┆I=9.2E18;YMX=-9.2E18F)2720 FOR X┆
0x08ca0…08cc0 4b 3d 58 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 ┆K=XIN TO XAX STEP (XAX-XIN)/100)┆
0x08cc0…08ce0 16 32 37 33 30 20 45 58 45 43 20 46 55 4e 4b 28 58 4b 2c 46 58 4b 29 16 1d 32 37 34 30 20 49 46 ┆ 2730 EXEC FUNK(XK,FXK) 2740 IF┆
0x08ce0…08d00 20 46 58 4b 3c 3d 59 4d 49 20 54 48 45 4e 20 59 4d 49 3d 46 58 4b 1d 1d 32 37 35 30 20 49 46 20 ┆ FXK<=YMI THEN YMI=FXK 2750 IF ┆
0x08d00…08d20 (4, 0, 14) 46 58 4b 3d 3e 59 4d 58 20 54 48 45 4e 20 59 4d 58 3d 46 58 4b 1d 0c 32 37 36 30 20 4e 45 58 54 ┆FXK=>YMX THEN YMX=FXK 2760 NEXT┆
0x08d20…08d40 20 58 4b 0c 45 32 37 37 30 20 45 58 45 43 20 4b 4f 53 59 53 28 58 49 4e 2c 58 41 58 2c 59 4d 49 ┆ XK E2770 EXEC KOSYS(XIN,XAX,YMI┆
0x08d40…08d60 2c 59 4d 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 ┆,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,┆
0x08d60…08d80 58 54 45 24 2c 59 54 45 24 29 45 17 32 37 38 30 20 45 58 45 43 20 46 55 4e 4b 28 58 49 4e 2c 46 ┆XTE$,YTE$)E 2780 EXEC FUNK(XIN,F┆
0x08d80…08da0 58 4b 29 17 2a 32 37 39 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 28 58 49 4e 2a 58 53 2b 58 ┆XK) *2790 EXEC FLYTABS((XIN*XS+X┆
0x08da0…08dc0 5c 29 2c 28 46 58 4b 2a 59 53 2b 59 5c 29 29 2a 21 32 38 30 30 20 46 4f 52 20 58 4b 3d 58 49 4e ┆Ø),(FXK*YS+YØ))*!2800 FOR XK=XIN┆
0x08dc0…08de0 20 54 4f 20 58 41 58 20 53 54 45 50 20 31 30 2f 58 53 21 16 32 38 31 30 20 45 58 45 43 20 46 55 ┆ TO XAX STEP 10/XS! 2810 EXEC FU┆
0x08de0…08e00 4e 4b 28 58 4b 2c 46 58 4b 29 16 2e 32 38 32 30 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 4c 49 ┆NK(XK,FXK) .2820 EXEC TEGNABS(LI┆
0x08e00…08e20 (4, 0, 15) 54 59 2c 28 58 4b 2a 58 53 2b 58 5c 29 2c 28 46 58 4b 2a 59 53 2b 59 5c 29 29 2e 0c 32 38 33 30 ┆TY,(XK*XS+XØ),(FXK*YS+YØ)). 2830┆
0x08e20…08e40 20 4e 45 58 54 20 58 4b 0c 0f 32 38 34 30 20 45 58 45 43 20 50 45 4e 4f 50 0f 15 32 38 35 30 20 ┆ NEXT XK 2840 EXEC PENOP 2850 ┆
0x08e40…08e60 45 4e 44 50 52 4f 43 20 3b 4c 49 4e 4b 52 56 2e 15 00 00 20 43 41 53 45 20 46 49 47 55 52 24 20 ┆ENDPROC ;LINKRV. CASE FIGUR$ ┆
0x08e60…08e80 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 ┆
0x08e80…08ea0 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"# ┆
0x08ea0…08ec0 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┆
0x08ec0…08ee0 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=┆
0x08ee0…08f00 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┆
0x08f00…08f20 (4, 0, 16) 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┆
0x08f20…08f40 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 ┆
0x08f40…08f60 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 ┆
0x08f60…08f80 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┆
0x08f80…08fa0 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┆
0x08fa0…08fc0 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┆
0x08fc0…08fe0 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┆
0x08fe0…09000 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┆
0x09000…09020 (4, 1, 1) 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┆
0x09020…09040 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┆
0x09040…09060 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┆
0x09060…09080 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);┆
0x09080…090a0 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┆
0x090a0…090c0 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,┆
0x090c0…090e0 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┆
0x090e0…09100 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┆
0x09100…09120 (4, 1, 2) 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. ┆
0x09120…09140 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┆
0x09140…09160 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)┆
0x09160…09180 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┆
0x09180…091a0 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┆
0x091a0…091c0 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┆
0x091c0…091e0 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┆
0x091e0…09200 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┆
0x09200…09220 (4, 1, 3) 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┆
0x09220…09240 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┆
0x09240…09260 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┆
0x09260…09280 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┆
0x09280…092a0 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┆
0x092a0…092c0 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┆
0x092c0…092e0 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"┆
0x092e0…09300 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.┆
0x09300…09320 (4, 1, 4) ExtentHdr {name=»PNLINKRV«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0009,0d (0x009d00)}, prevext={DA 0008,09 (0x008900)}, nextfile={DA 0009,0d (0x009d00)}, f99=41 08 00 20 00 00 00 00 00 00 ┆A ┆}
0x09320…09340 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┆
0x09340…09360 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┆
0x09360…09380 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┆
0x09380…093a0 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┆
0x093a0…093c0 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┆
0x093c0…093e0 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┆
0x093e0…09400 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┆
0x09400…09420 (4, 1, 5) 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┆
0x09420…09440 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┆
0x09440…09460 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)┆
0x09460…09480 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┆
0x09480…094a0 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┆
0x094a0…094c0 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┆
0x094c0…094e0 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┆
0x094e0…09500 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 ┆
0x09500…09520 (4, 1, 6) 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┆
0x09520…09540 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┆
0x09540…09560 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┆
0x09560…09580 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-┆
0x09580…095a0 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┆
0x095a0…095c0 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 ┆
0x095c0…095e0 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 ┆
0x095e0…09600 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┆
0x09600…09620 (4, 1, 7) 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┆
0x09620…09640 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┆
0x09640…09660 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)) ┆
0x09660…09680 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)┆
0x09680…096a0 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)*┆
0x096a0…096c0 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┆
0x096c0…096e0 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 ┆
0x096e0…09700 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)# ┆
0x09700…09720 (4, 1, 8) 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┆
0x09720…09740 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┆
0x09740…09760 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┆
0x09760…09780 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,(┆
0x09780…097a0 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┆
0x097a0…097c0 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Ø,┆
0x097c0…097e0 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 .┆
0x097e0…09800 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*┆
0x09800…09820 (4, 1, 9) 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┆
0x09820…09840 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┆
0x09840…09860 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┆
0x09860…09880 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 ┆
0x09880…098a0 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┆
0x098a0…098c0 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┆
0x098c0…098e0 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,(┆
0x098e0…09900 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┆
0x09900…09920 (4, 1, 10) 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 ┆
0x09920…09940 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┆
0x09940…09960 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┆
0x09960…09980 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┆
0x09980…099a0 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-┆
0x099a0…099c0 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┆
0x099c0…099e0 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┆
0x099e0…09a00 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┆
0x09a00…09a20 (4, 1, 11) 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 ┆
0x09a20…09a40 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┆
0x09a40…09a60 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,┆
0x09a60…09a80 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┆
0x09a80…09aa0 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┆
0x09aa0…09ac0 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┆
0x09ac0…09ae0 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┆
0x09ae0…09b00 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┆
0x09b00…09b20 (4, 1, 12) 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┆
0x09b20…09b40 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 ┆
0x09b40…09b60 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 ┆
0x09b60…09b80 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┆
0x09b80…09ba0 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<┆
0x09ba0…09bc0 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┆
0x09bc0…09be0 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┆
0x09be0…09c00 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┆
0x09c00…09c20 (4, 1, 13) 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┆
0x09c20…09c40 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)┆
0x09c40…09c60 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┆
0x09c60…09c80 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┆
0x09c80…09ca0 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┆
0x09ca0…09cc0 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 ┆
0x09cc0…09ce0 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┆
0x09ce0…09d00 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┆
0x09d00…09d20 (4, 1, 14) ExtentHdr {name=»PNLINKRV«, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0009,03 (0x009300)}, nextfile={DA 000a,07 (0x00a700)}, f99=41 08 00 20 00 00 00 00 00 00 ┆A ┆}
0x09d20…09d40 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$┆
0x09d40…09d60 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 ┆
0x09d60…09d80 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&(┆
0x09d80…09da0 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┆
0x09da0…09dc0 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 ┆
0x09dc0…09de0 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┆
0x09de0…09e00 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 ┆
0x09e00…09e20 (4, 1, 15) 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 ┆
0x09e20…09e40 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┆
0x09e40…09e60 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┆
0x09e60…09e80 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┆
0x09e80…09ea0 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=┆
0x09ea0…09ec0 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┆
0x09ec0…09ee0 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┆
0x09ee0…09f00 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┆
0x09f00…09f20 (4, 1, 16) 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┆
0x09f20…09f40 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┆
0x09f40…09f60 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┆
0x09f60…09f80 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┆
0x09f80…09fa0 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┆
0x09fa0…09fc0 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)┆
0x09fc0…09fe0 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Ø),┆
0x09fe0…0a000 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┆
0x0a000…0a020 (5, 0, 1) 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(┆
0x0a020…0a040 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┆
0x0a040…0a060 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┆
0x0a060…0a080 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 ┆
0x0a080…0a0a0 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) ┆
0x0a0a0…0a0c0 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┆
0x0a0c0…0a0e0 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┆
0x0a0e0…0a100 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";┆
0x0a100…0a120 (5, 0, 2) 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┆
0x0a120…0a140 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┆
0x0a140…0a160 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 ┆
0x0a160…0a180 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 ┆ ┆
[…0x4…]
0x0a200…0a300 (5, 0, 3) 0x00[0x100]
[…0x4…]
0x0a700…0a720 (5, 0, 8) ExtentHdr {name=»PNLOGKRV«, typ=»K«, seg=»A«, next=0x01, basis=0x0005, nextext={DA 000a,0c (0x00ac00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000a,0c (0x00ac00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0a720…0a740 44 32 38 36 30 20 50 52 4f 43 20 4c 4f 47 4b 52 56 28 58 49 4e 2c 58 41 58 2c 58 53 4b 41 2c 59 ┆D2860 PROC LOGKRV(XIN,XAX,XSKA,Y┆
0x0a740…0a760 53 4b 41 2c 58 4e 55 4c 2c 59 4e 55 4c 2c 54 59 59 50 2c 4c 49 54 59 2c 41 4b 53 52 2c 58 54 45 ┆SKA,XNUL,YNUL,TYYP,LITY,AKSR,XTE┆
0x0a760…0a780 2c 59 54 45 29 44 42 32 38 37 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆,YTE)DB2870 REM ****************┆
0x0a780…0a7a0 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 2a 2a ┆********************************┆
0x0a7a0…0a7c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 42 42 32 38 38 30 20 52 45 4d 20 2a 4c 4f 47 4b 52 56 20 50 4c 4f 54 ┆*********BB2880 REM *LOGKRV PLOT┆
0x0a7c0…0a7e0 54 45 52 20 45 4e 20 4b 55 52 56 45 20 41 46 20 46 55 4e 4b 54 49 4f 4e 45 4e 20 41 4e 47 49 56 ┆TER EN KURVE AF FUNKTIONEN ANGIV┆
0x0a7e0…0a800 45 54 20 49 20 50 52 4f 43 45 2d 20 2a 42 42 32 38 39 30 20 52 45 4d 20 2a 44 55 52 45 4e 20 46 ┆ET I PROCE- *BB2890 REM *DUREN F┆
0x0a800…0a820 (5, 0, 9) 55 4e 4b 20 46 52 41 20 58 49 4e 20 54 49 4c 20 58 41 58 2e 20 48 56 49 53 20 58 53 4b 41 20 4f ┆UNK FRA XIN TIL XAX. HVIS XSKA O┆
0x0a820…0a840 47 2f 45 4c 4c 45 52 20 59 53 4b 41 20 45 52 20 2a 42 42 32 39 30 30 20 52 45 4d 20 2a 4d 49 4e ┆G/ELLER YSKA ER *BB2900 REM *MIN┆
0x0a840…0a860 44 52 45 20 45 4e 44 20 4e 55 4c 20 46 4f 52 45 54 41 47 45 53 20 45 4e 20 41 55 54 4f 4d 41 54 ┆DRE END NUL FORETAGES EN AUTOMAT┆
0x0a860…0a880 49 53 4b 20 42 45 53 54 45 4d 4d 45 4c 53 45 20 41 46 20 20 2a 42 42 32 39 31 30 20 52 45 4d 20 ┆ISK BESTEMMELSE AF *BB2910 REM ┆
0x0a880…0a8a0 2a 53 4b 41 4c 45 52 49 4e 47 45 4e 20 4f 47 20 4e 55 4c 50 55 4e 4b 54 45 54 2e 20 45 4c 4c 45 ┆*SKALERINGEN OG NULPUNKTET. ELLE┆
0x0a8a0…0a8c0 52 53 20 42 45 4e 59 54 54 45 53 20 45 4e 20 53 4b 41 4c 45 52 49 4e 47 2a 42 42 32 39 32 30 20 ┆RS BENYTTES EN SKALERING*BB2920 ┆
0x0a8c0…0a8e0 52 45 4d 20 2a 42 45 53 54 45 4d 54 20 41 46 20 58 53 4b 41 2c 59 53 4b 41 2c 20 4f 47 20 45 54 ┆REM *BESTEMT AF XSKA,YSKA, OG ET┆
0x0a8e0…0a900 20 4e 55 4c 50 55 4e 4b 54 20 42 45 53 54 45 4d 54 20 41 46 20 58 4e 55 4c 2c 20 20 2a 42 42 32 ┆ NULPUNKT BESTEMT AF XNUL, *BB2┆
0x0a900…0a920 (5, 0, 10) 39 33 30 20 52 45 4d 20 2a 59 4e 55 4c 2e 20 4b 55 52 56 45 4e 20 50 4c 4f 54 54 45 53 20 4d 45 ┆930 REM *YNUL. KURVEN PLOTTES ME┆
0x0a920…0a940 44 20 44 45 4e 20 41 46 20 4c 49 54 59 20 56 41 4c 47 54 45 20 4c 49 4e 49 45 54 59 50 45 2e 20 ┆D DEN AF LITY VALGTE LINIETYPE. ┆
0x0a940…0a960 2a 42 42 32 39 34 30 20 52 45 4d 20 2a 41 46 42 49 4c 44 4e 49 4e 47 53 46 4f 52 4d 45 4e 20 42 ┆*BB2940 REM *AFBILDNINGSFORMEN B┆
0x0a960…0a980 45 53 54 45 4d 4d 45 53 20 41 46 20 54 59 59 50 2e 20 48 56 49 53 20 54 59 59 50 20 45 52 20 4c ┆ESTEMMES AF TYYP. HVIS TYYP ER L┆
0x0a980…0a9a0 49 47 20 20 2a 42 42 32 39 35 30 20 52 45 4d 20 2a 4d 45 44 20 22 58 4c 4f 47 22 20 45 52 20 31 ┆IG *BB2950 REM *MED "XLOG" ER 1┆
0x0a9a0…0a9c0 2e 20 41 4b 53 45 4e 20 4c 4f 47 41 52 49 54 4d 49 53 4b 2c 20 48 56 49 53 20 54 59 59 50 20 45 ┆. AKSEN LOGARITMISK, HVIS TYYP E┆
0x0a9c0…0a9e0 52 20 4c 49 47 20 20 20 2a 42 42 32 39 36 30 20 52 45 4d 20 2a 4d 45 44 20 22 59 4c 4f 47 22 20 ┆R LIG *BB2960 REM *MED "YLOG" ┆
0x0a9e0…0aa00 45 52 20 32 2e 20 41 4b 53 45 4e 20 4c 4f 47 41 52 49 54 4d 49 53 4b 2c 20 4f 47 20 48 56 49 53 ┆ER 2. AKSEN LOGARITMISK, OG HVIS┆
0x0aa00…0aa20 (5, 0, 11) 20 54 59 59 50 20 45 52 20 4c 49 47 2a 42 42 32 39 37 30 20 52 45 4d 20 2a 4d 45 44 20 22 44 4c ┆ TYYP ER LIG*BB2970 REM *MED "DL┆
0x0aa20…0aa40 4f 47 22 20 46 5d 53 20 45 4e 20 44 4f 42 42 45 4c 54 4c 4f 47 41 52 49 54 4d 49 53 4b 20 41 46 ┆OG" FÅS EN DOBBELTLOGARITMISK AF┆
0x0aa40…0aa60 42 49 4c 44 4e 49 4e 47 2e 20 20 20 20 20 20 20 2a 42 42 32 39 38 30 20 52 45 4d 20 2a 48 56 49 ┆BILDNING. *BB2980 REM *HVI┆
0x0aa60…0aa80 53 20 41 4b 53 52 20 45 52 20 46 4f 52 53 4b 45 4c 49 47 20 46 52 41 20 4e 55 4c 20 55 44 54 45 ┆S AKSR ER FORSKELIG FRA NUL UDTE┆
0x0aa80…0aaa0 47 4e 45 53 20 44 45 53 55 44 45 4e 20 4b 4f 4f 52 44 49 2d 2a 42 42 32 39 39 30 20 52 45 4d 20 ┆GNES DESUDEN KOORDI-*BB2990 REM ┆
0x0aaa0…0aac0 2a 4e 41 54 41 4b 53 45 52 20 4d 45 44 20 54 45 4b 53 54 45 52 4e 45 20 58 54 45 20 4f 47 20 59 ┆*NATAKSER MED TEKSTERNE XTE OG Y┆
0x0aac0…0aae0 54 45 20 50 5d 53 41 54 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 42 42 33 30 30 30 20 ┆TE PÅSAT. *BB3000 ┆
0x0aae0…0ab00 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 ****************************┆
0x0ab00…0ab20 (5, 0, 12) 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 42 49 33 ┆*****************************BI3┆
0x0ab20…0ab40 30 31 30 20 58 4e 3d 58 49 4e 3b 58 41 3d 58 41 58 3b 58 53 3d 58 53 4b 41 3b 59 53 3d 59 53 4b ┆010 XN=XIN;XA=XAX;XS=XSKA;YS=YSK┆
0x0ab40…0ab60 41 3b 58 5c 3d 58 4e 55 4c 3b 59 5c 3d 59 4e 55 4c 3b 59 4d 49 3d 39 2e 32 45 31 38 3b 59 4d 58 ┆A;XØ=XNUL;YØ=YNUL;YMI=9.2E18;YMX┆
0x0ab60…0ab80 3d 2d 39 2e 32 45 31 38 49 29 33 30 32 30 20 46 4f 52 20 58 4b 3d 58 49 4e 20 54 4f 20 58 41 58 ┆=-9.2E18I)3020 FOR XK=XIN TO XAX┆
0x0ab80…0aba0 20 53 54 45 50 20 28 58 41 58 2d 58 49 4e 29 2f 31 30 30 29 16 33 30 33 30 20 45 58 45 43 20 46 ┆ STEP (XAX-XIN)/100) 3030 EXEC F┆
0x0aba0…0abc0 55 4e 4b 28 58 4b 2c 46 58 4b 29 16 1d 33 30 34 30 20 49 46 20 46 58 4b 3c 3d 59 4d 49 20 54 48 ┆UNK(XK,FXK) 3040 IF FXK<=YMI TH┆
0x0abc0…0abe0 45 4e 20 59 4d 49 3d 46 58 4b 1d 1d 33 30 35 30 20 49 46 20 46 58 4b 3d 3e 59 4d 58 20 54 48 45 ┆EN YMI=FXK 3050 IF FXK=>YMX THE┆
0x0abe0…0ac00 4e 20 59 4d 58 3d 46 58 4b 1d 0c 33 30 36 30 20 4e 45 58 54 20 58 4b 0c 1a 33 30 37 30 20 49 46 ┆N YMX=FXK 3060 NEXT XK 3070 IF┆
0x0ac00…0ac20 (5, 0, 13) ExtentHdr {name=»PNLOGKRV«, typ=»K«, seg=»B«, next=0x01, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 000a,07 (0x00a700)}, nextfile={DA 000b,01 (0x00b100)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x0ac20…0ac40 20 54 59 59 50 24 3d 22 59 4c 4f 47 22 20 54 48 45 4e 20 1a 32 33 30 38 30 20 58 54 24 3d 22 4c ┆ TYYP$="YLOG" THEN 23080 XT$="L┆
0x0ac40…0ac60 49 4e 22 3b 59 54 24 3d 22 4c 4f 47 22 3b 59 4d 49 3d 4c 4f 47 28 59 4d 49 29 3b 59 4d 58 3d 4c ┆IN";YT$="LOG";YMI=LOG(YMI);YMX=L┆
0x0ac60…0ac80 4f 47 28 59 4d 58 29 32 0a 33 30 39 30 20 45 4c 53 45 20 0a 1a 33 31 30 30 20 49 46 20 54 59 59 ┆OG(YMX)2 3090 ELSE 3100 IF TYY┆
0x0ac80…0aca0 50 24 3d 22 44 4c 4f 47 22 20 54 48 45 4e 20 1a 48 33 31 31 30 20 58 54 24 3d 22 4c 4f 47 22 3b ┆P$="DLOG" THEN H3110 XT$="LOG";┆
0x0aca0…0acc0 59 54 24 3d 22 4c 4f 47 22 3b 58 4e 3d 4c 4f 47 28 58 4e 29 3b 58 41 3d 4c 4f 47 28 58 41 29 3b ┆YT$="LOG";XN=LOG(XN);XA=LOG(XA);┆
0x0acc0…0ace0 59 4d 49 3d 4c 4f 47 28 59 4d 49 29 3b 59 4d 58 3d 4c 4f 47 28 59 4d 58 29 48 0a 33 31 32 30 20 ┆YMI=LOG(YMI);YMX=LOG(YMX)H 3120 ┆
0x0ace0…0ad00 45 4c 53 45 20 0a 2e 33 31 33 30 20 58 54 24 3d 22 4c 4f 47 22 3b 59 54 24 3d 22 4c 49 4e 22 3b ┆ELSE .3130 XT$="LOG";YT$="LIN";┆
0x0ad00…0ad20 (5, 0, 14) 58 4e 3d 4c 4f 47 28 58 4e 29 3b 58 41 3d 4c 4f 47 28 58 41 29 2e 0b 33 31 34 30 20 45 4e 44 49 ┆XN=LOG(XN);XA=LOG(XA). 3140 ENDI┆
0x0ad20…0ad40 46 20 0b 0b 33 31 35 30 20 45 4e 44 49 46 20 0b 41 33 31 36 30 20 45 58 45 43 20 4b 4f 53 59 53 ┆F 3150 ENDIF A3160 EXEC KOSYS┆
0x0ad40…0ad60 28 58 4e 2c 58 41 2c 59 4d 49 2c 59 4d 58 2c 58 53 2c 59 53 2c 58 5c 2c 59 5c 2c 58 54 24 2c 59 ┆(XN,XA,YMI,YMX,XS,YS,XØ,YØ,XT$,Y┆
0x0ad60…0ad80 54 24 2c 41 4b 53 52 2c 58 54 45 24 2c 59 54 45 24 29 41 17 33 31 37 30 20 45 58 45 43 20 46 55 ┆T$,AKSR,XTE$,YTE$)A 3170 EXEC FU┆
0x0ad80…0ada0 4e 4b 28 58 49 4e 2c 46 58 4b 29 17 23 33 31 38 30 20 49 46 20 59 54 24 3d 22 4c 4f 47 22 20 54 ┆NK(XIN,FXK) #3180 IF YT$="LOG" T┆
0x0ada0…0adc0 48 45 4e 20 46 58 4b 3d 4c 4f 47 28 46 58 4b 29 23 29 33 31 39 30 20 45 58 45 43 20 46 4c 59 54 ┆HEN FXK=LOG(FXK)#)3190 EXEC FLYT┆
0x0adc0…0ade0 41 42 53 28 28 58 4e 2a 58 53 2b 58 5c 29 2c 28 46 58 4b 2a 59 53 2b 59 5c 29 29 29 1f 33 32 30 ┆ABS((XN*XS+XØ),(FXK*YS+YØ))) 320┆
0x0ade0…0ae00 30 20 46 4f 52 20 58 4b 3d 58 4e 20 54 4f 20 58 41 20 53 54 45 50 20 31 30 2f 58 53 1f 17 33 32 ┆0 FOR XK=XN TO XA STEP 10/XS 32┆
0x0ae00…0ae20 (5, 0, 15) 31 30 20 49 46 20 58 54 24 3d 22 4c 49 4e 22 20 54 48 45 4e 20 17 16 33 32 32 30 20 45 58 45 43 ┆10 IF XT$="LIN" THEN 3220 EXEC┆
0x0ae20…0ae40 20 46 55 4e 4b 28 58 4b 2c 46 58 4b 29 16 0a 33 32 33 30 20 45 4c 53 45 20 0a 0f 33 32 34 30 20 ┆ FUNK(XK,FXK) 3230 ELSE 3240 ┆
0x0ae40…0ae60 58 4b 4b 3d 31 30 2a 2a 58 4b 0f 17 33 32 35 30 20 45 58 45 43 20 46 55 4e 4b 28 58 4b 4b 2c 46 ┆XKK=10**XK 3250 EXEC FUNK(XKK,F┆
0x0ae60…0ae80 58 4b 29 17 0b 33 32 36 30 20 45 4e 44 49 46 20 0b 23 33 32 37 30 20 49 46 20 59 54 24 3d 22 4c ┆XK) 3260 ENDIF #3270 IF YT$="L┆
0x0ae80…0aea0 4f 47 22 20 54 48 45 4e 20 46 58 4b 3d 4c 4f 47 28 46 58 4b 29 23 2e 33 32 38 30 20 45 58 45 43 ┆OG" THEN FXK=LOG(FXK)#.3280 EXEC┆
0x0aea0…0aec0 20 54 45 47 4e 41 42 53 28 4c 49 54 59 2c 28 58 4b 2a 58 53 2b 58 5c 29 2c 28 46 58 4b 2a 59 53 ┆ TEGNABS(LITY,(XK*XS+XØ),(FXK*YS┆
0x0aec0…0aee0 2b 59 5c 29 29 2e 0c 33 32 39 30 20 4e 45 58 54 20 58 4b 0c 0f 33 33 30 30 20 45 58 45 43 20 50 ┆+YØ)). 3290 NEXT XK 3300 EXEC P┆
0x0aee0…0af00 45 4e 4f 50 0f 15 33 33 31 30 20 45 4e 44 50 52 4f 43 20 3b 4c 4f 47 4b 52 56 2e 15 00 00 20 45 ┆ENOP 3310 ENDPROC ;LOGKRV. E┆
0x0af00…0af20 (5, 0, 16) 4e 44 50 52 4f 43 20 3b 4c 4f 47 4b 52 56 2e 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆NDPROC ;LOGKRV. ┆
0x0af20…0af40 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 ┆ ┆
[…0x6…]
0x0b000…0b100 (5, 1, 1) 0x00[0x100]
0x0b100…0b120 (5, 1, 2) ExtentHdr {name=»PNDEMO1 «, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000b,05 (0x00b500)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0b120…0b140 12 31 35 30 30 20 44 49 4d 20 4e 41 56 4e 24 28 32 30 29 12 0e 31 35 30 37 20 4f 55 54 50 55 54 ┆ 1500 DIM NAVN$(20) 1507 OUTPUT┆
0x0b140…0b160 20 50 31 0e 12 31 35 31 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 1f 31 35 32 30 20 4e 41 ┆ P1 1510 EXEC PLOTINIT 1520 NA┆
0x0b160…0b180 56 4e 24 3d 22 44 44 45 20 50 4c 4f 54 54 45 52 20 44 45 4d 4f 2d 31 22 1f 19 31 35 33 30 20 45 ┆VN$="DDE PLOTTER DEMO-1" 1530 E┆
0x0b180…0b1a0 58 45 43 20 46 4c 59 54 41 42 53 28 30 2c 32 33 30 30 29 19 1a 31 35 34 30 20 45 58 45 43 20 54 ┆XEC FLYTABS(0,2300) 1540 EXEC T┆
0x0b1a0…0b1c0 45 4b 53 54 28 30 2c 34 2c 4e 41 56 4e 24 29 1a 1b 31 35 35 30 20 45 58 45 43 20 46 4c 59 54 41 ┆EKST(0,4,NAVN$) 1550 EXEC FLYTA┆
0x0b1c0…0b1e0 42 53 28 31 30 30 30 2c 33 30 30 29 1b 10 31 35 36 30 20 45 58 45 43 20 4e 55 4c 50 4b 54 10 1e ┆BS(1000,300) 1560 EXEC NULPKT ┆
0x0b1e0…0b200 31 35 37 30 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 30 2c 31 38 30 30 2c 31 38 30 30 29 1e 1a ┆1570 EXEC TEGNABS(0,1800,1800) ┆
0x0b200…0b220 (5, 1, 3) 31 35 38 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 2d 31 38 30 30 2c 30 29 1a 1b 31 35 39 30 ┆1580 EXEC FLYTREL(-1800,0) 1590┆
0x0b220…0b240 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 37 2c 31 38 30 30 2c 30 29 1b 20 31 36 30 30 20 45 58 ┆ EXEC TEGNABS(7,1800,0) 1600 EX┆
0x0b240…0b260 45 43 20 53 54 49 50 52 45 4c 28 31 30 30 2c 35 30 2c 30 2c 31 38 30 30 29 20 21 31 36 31 30 20 ┆EC STIPREL(100,50,0,1800) !1610 ┆
0x0b260…0b280 45 58 45 43 20 53 54 49 50 52 45 4c 28 31 30 2c 31 30 30 2c 2d 31 38 30 30 2c 30 29 21 1e 31 36 ┆EXEC STIPREL(10,100,-1800,0)! 16┆
0x0b280…0b2a0 32 30 20 45 58 45 43 20 54 45 47 4e 50 4f 4c 28 32 32 35 2c 31 32 37 32 2e 37 39 29 1e 1e 31 36 ┆20 EXEC TEGNPOL(225,1272.79) 16┆
0x0b2a0…0b2c0 33 30 20 45 58 45 43 20 46 4c 59 54 50 4f 4c 28 2d 34 35 2c 31 32 37 32 2e 37 39 29 1e 1b 31 36 ┆30 EXEC FLYTPOL(-45,1272.79) 16┆
0x0b2c0…0b2e0 34 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 2d 39 30 30 2c 39 30 30 29 1b 1a 31 36 35 30 20 ┆40 EXEC TEGNREL(-900,900) 1650 ┆
0x0b2e0…0b300 45 58 45 43 20 46 4c 59 54 41 42 53 28 31 31 35 2c 36 35 30 29 1a 10 31 36 36 30 20 4e 41 56 4e ┆EXEC FLYTABS(115,650) 1660 NAVN┆
0x0b300…0b320 (5, 1, 4) 24 3d 22 44 44 45 22 10 1b 31 36 37 30 20 45 58 45 43 20 54 45 4b 53 54 28 39 30 2c 35 2c 4e 41 ┆$="DDE" 1670 EXEC TEKST(90,5,NA┆
0x0b320…0b340 56 4e 24 29 1b 1b 31 36 38 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 37 32 30 2c 31 36 30 30 ┆VN$) 1680 EXEC FLYTABS(720,1600┆
0x0b340…0b360 29 1b 1a 31 36 39 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 34 2c 4e 41 56 4e 24 29 1a 1b 31 ┆) 1690 EXEC TEKST(0,4,NAVN$) 1┆
0x0b360…0b380 37 30 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 31 36 30 30 2c 39 37 30 29 1b 1c 31 37 31 30 ┆700 EXEC FLYTABS(1600,970) 1710┆
0x0b380…0b3a0 20 45 58 45 43 20 54 45 4b 53 54 28 32 37 30 2c 33 2c 4e 41 56 4e 24 29 1c 1a 31 37 32 30 20 45 ┆ EXEC TEKST(270,3,NAVN$) 1720 E┆
0x0b3a0…0b3c0 58 45 43 20 46 4c 59 54 41 42 53 28 39 33 35 2c 31 33 30 29 1a 1c 31 37 33 30 20 45 58 45 43 20 ┆XEC FLYTABS(935,130) 1730 EXEC ┆
0x0b3c0…0b3e0 54 45 4b 53 54 28 31 38 30 2c 32 2c 4e 41 56 4e 24 29 1c 18 31 37 34 30 20 4e 41 56 4e 24 3d 22 ┆TEKST(180,2,NAVN$) 1740 NAVN$="┆
0x0b3e0…0b400 44 45 4d 4f 2d 31 20 53 4c 55 54 22 18 1d 31 37 35 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 ┆DEMO-1 SLUT" 1750 EXEC FLYTABS(┆
0x0b400…0b420 (5, 1, 5) 2d 31 30 30 30 2c 2d 33 30 30 29 1d 1a 31 37 36 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 31 ┆-1000,-300) 1760 EXEC TEKST(0,1┆
0x0b420…0b440 2c 4e 41 56 4e 24 29 1a 12 31 37 37 30 20 45 58 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a 31 37 38 ┆,NAVN$) 1770 EXEC PLOTSLUT 178┆
0x0b440…0b460 30 20 53 54 4f 50 20 0a 00 00 41 56 4e 24 3d 22 44 45 4d 4f 2d 31 20 53 4c 55 54 22 18 1d 31 37 ┆0 STOP AVN$="DEMO-1 SLUT" 17┆
0x0b460…0b480 35 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 2d 31 30 30 30 2c 2d 33 30 30 29 1d 1a 31 37 36 ┆50 EXEC FLYTABS(-1000,-300) 176┆
0x0b480…0b4a0 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 31 2c 4e 41 56 4e 24 29 1a 12 31 37 37 30 20 45 58 ┆0 EXEC TEKST(0,1,NAVN$) 1770 EX┆
0x0b4a0…0b4c0 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a 31 37 38 30 20 53 54 4f 50 20 0a 00 00 00 00 00 00 00 00 ┆EC PLOTSLUT 1780 STOP ┆
0x0b4c0…0b4e0 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 ┆ ┆
[…0x1…]
0x0b500…0b520 (5, 1, 6) ExtentHdr {name=»PNDEMO2 «, typ=»K«, seg=»A«, next=0x01, basis=0x0002, nextext={DA 000b,07 (0x00b700)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000b,07 (0x00b700)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0b520…0b540 1b 32 31 30 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 31 ┆ 2100 DIM NAVN$(20),TYPE$(4) 21┆
0x0b540…0b560 31 30 20 4e 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 ┆10 NAVN$="DDE PLOTTER DEMO-2" 2┆
0x0b560…0b580 31 32 30 20 4f 55 54 50 55 54 20 50 31 0e 12 32 31 33 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 ┆120 OUTPUT P1 2130 EXEC PLOTINI┆
0x0b580…0b5a0 54 12 19 32 31 34 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 31 ┆T 2140 EXEC FLYTABS(0,2300) 21┆
0x0b5a0…0b5c0 35 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 34 2c 4e 41 56 4e 24 29 1a 1c 32 31 39 30 20 45 ┆50 EXEC TEKST(0,4,NAVN$) 2190 E┆
0x0b5c0…0b5e0 58 45 43 20 46 4c 59 54 41 42 53 28 31 37 35 30 2c 31 31 35 30 29 1c 10 32 32 30 30 20 45 58 45 ┆XEC FLYTABS(1750,1150) 2200 EXE┆
0x0b5e0…0b600 43 20 4e 55 4c 50 4b 54 10 1b 32 32 31 30 20 46 4f 52 20 4d 3d 30 20 54 4f 20 33 31 35 20 53 54 ┆C NULPKT 2210 FOR M=0 TO 315 ST┆
0x0b600…0b620 (5, 1, 7) 45 50 20 39 30 1b 10 32 32 32 30 20 54 59 50 45 24 3d 22 4c 49 4e 22 10 15 32 32 32 35 20 4e 41 ┆EP 90 2220 TYPE$="LIN" 2225 NA┆
0x0b620…0b640 56 4e 24 3d 22 4c 49 4e 2d 61 6b 73 65 22 15 2b 32 32 33 30 20 45 58 45 43 20 41 4b 53 45 28 4d ┆VN$="LIN-akse" +2230 EXEC AKSE(M┆
0x0b640…0b660 2c 31 2c 32 30 30 2c 30 2e 35 2c 30 2c 35 2c 54 59 50 45 24 2c 4e 41 56 4e 24 29 2b 10 32 32 34 ┆,1,200,0.5,0,5,TYPE$,NAVN$)+ 224┆
0x0b660…0b680 30 20 54 59 50 45 24 3d 22 4c 4f 47 22 10 15 32 32 34 35 20 4e 41 56 4e 24 3d 22 4c 4f 47 2d 61 ┆0 TYPE$="LOG" 2245 NAVN$="LOG-a┆
0x0b680…0b6a0 6b 73 65 22 15 30 32 32 35 30 20 45 58 45 43 20 41 4b 53 45 28 28 4d 2b 34 35 29 2c 32 2c 34 35 ┆kse" 02250 EXEC AKSE((M+45),2,45┆
0x0b6a0…0b6c0 30 2c 30 2e 35 2c 30 2c 33 2c 54 59 50 45 24 2c 4e 41 56 4e 24 29 30 0b 32 32 36 30 20 4e 45 58 ┆0,0.5,0,3,TYPE$,NAVN$)0 2260 NEX┆
0x0b6c0…0b6e0 54 20 4d 0b 18 32 32 37 30 20 4e 41 56 4e 24 3d 22 44 45 4d 4f 2d 32 20 53 4c 55 54 22 18 12 32 ┆T M 2270 NAVN$="DEMO-2 SLUT" 2┆
0x0b6e0…0b700 32 38 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 1a 32 32 39 30 20 45 58 45 43 20 54 45 4b ┆280 EXEC PLOTINIT 2290 EXEC TEK┆
0x0b700…0b720 (5, 1, 8) ExtentHdr {name=»PNDEMO2 «, typ=»K«, seg=»B«, next=0x01, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 000b,05 (0x00b500)}, nextfile={DA 000b,09 (0x00b900)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x0b720…0b740 53 54 28 30 2c 31 2c 4e 41 56 4e 24 29 1a 12 32 33 30 30 20 45 58 45 43 20 50 4c 4f 54 53 4c 55 ┆ST(0,1,NAVN$) 2300 EXEC PLOTSLU┆
0x0b740…0b760 54 12 0a 32 33 31 30 20 53 54 4f 50 20 0a 00 00 45 58 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a 32 ┆T 2310 STOP EXEC PLOTSLUT 2┆
0x0b760…0b780 33 31 30 20 53 54 4f 50 20 0a 00 00 31 0e 12 32 31 33 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 ┆310 STOP 1 2130 EXEC PLOTINI┆
0x0b780…0b7a0 54 12 19 32 31 34 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 31 ┆T 2140 EXEC FLYTABS(0,2300) 21┆
0x0b7a0…0b7c0 35 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 34 2c 4e 41 56 4e 24 29 1a 0a 32 31 36 30 20 53 ┆50 EXEC TEKST(0,4,NAVN$) 2160 S┆
0x0b7c0…0b7e0 54 4f 50 20 0a 0e 32 31 37 30 20 4f 55 54 50 55 54 20 50 31 0e 15 32 31 38 30 20 4e 41 56 4e 24 ┆TOP 2170 OUTPUT P1 2180 NAVN$┆
0x0b7e0…0b800 3d 22 44 44 45 2d 61 6b 73 65 22 15 1c 32 31 39 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 31 ┆="DDE-akse" 2190 EXEC FLYTABS(1┆
0x0b800…0b900 (5, 1, 9) 0x00[0x100]
0x0b900…0b920 (5, 1, 10) ExtentHdr {name=»PNDEMO3 «, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000b,0d (0x00bd00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0b920…0b940 33 33 30 30 30 20 44 49 4d 20 4e 41 56 4e 24 28 33 30 29 2c 54 59 50 45 24 28 34 29 2c 58 54 45 ┆33000 DIM NAVN$(30),TYPE$(4),XTE┆
0x0b940…0b960 4b 53 54 24 28 31 30 29 2c 59 54 45 4b 53 54 24 28 31 30 29 33 1f 33 30 31 30 20 4e 41 56 4e 24 ┆KST$(10),YTEKST$(10)3 3010 NAVN$┆
0x0b960…0b980 3d 22 44 44 45 20 50 4c 4f 54 54 45 52 20 44 45 4d 4f 2d 33 22 1f 0e 33 30 32 30 20 4f 55 54 50 ┆="DDE PLOTTER DEMO-3" 3020 OUTP┆
0x0b980…0b9a0 55 54 20 50 31 0e 12 33 30 33 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 19 33 30 34 30 20 ┆UT P1 3030 EXEC PLOTINIT 3040 ┆
0x0b9a0…0b9c0 45 58 45 43 20 46 4c 59 54 41 42 53 28 30 2c 32 34 30 30 29 19 1a 33 30 35 30 20 45 58 45 43 20 ┆EXEC FLYTABS(0,2400) 3050 EXEC ┆
0x0b9c0…0b9e0 54 45 4b 53 54 28 30 2c 32 2c 4e 41 56 4e 24 29 1a 14 33 30 38 30 20 50 52 4f 43 20 46 55 4e 4b ┆TEKST(0,2,NAVN$) 3080 PROC FUNK┆
0x0b9e0…0ba00 28 58 2c 46 58 29 14 16 33 30 39 30 20 46 58 3d 58 2a 58 2a 58 2b 58 2a 58 2d 58 2b 54 54 16 13 ┆(X,FX) 3090 FX=X*X*X+X*X-X+TT ┆
0x0ba00…0ba20 (5, 1, 11) 33 31 30 30 20 45 4e 44 50 52 4f 43 20 3b 46 55 4e 4b 2e 13 1f 33 31 31 30 20 58 54 45 4b 53 54 ┆3100 ENDPROC ;FUNK. 3110 XTEKST┆
0x0ba20…0ba40 24 3d 22 58 22 3b 59 54 45 4b 53 54 24 3d 22 46 28 58 29 22 1f 27 33 31 32 30 20 4e 41 56 4e 24 ┆$="X";YTEKST$="F(X)" '3120 NAVN$┆
0x0ba40…0ba60 3d 22 46 28 78 29 20 3d 20 78 2a 2a 33 20 2b 20 78 2a 2a 32 20 2d 20 78 20 2b 20 31 22 27 09 33 ┆="F(x) = x**3 + x**2 - x + 1"' 3┆
0x0ba60…0ba80 31 33 30 20 54 54 3d 31 09 34 33 31 34 30 20 45 58 45 43 20 4c 49 4e 4b 52 56 28 2d 32 2c 31 2e ┆130 TT=1 43140 EXEC LINKRV(-2,1.┆
0x0ba80…0baa0 35 2c 30 2c 30 2c 30 2c 30 2c 30 2c 31 2c 58 54 45 4b 53 54 24 2c 59 54 45 4b 53 54 24 29 34 19 ┆5,0,0,0,0,0,1,XTEKST$,YTEKST$)4 ┆
0x0baa0…0bac0 33 31 35 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 30 2c 2d 31 30 30 29 19 18 33 31 36 30 20 ┆3150 EXEC FLYTREL(0,-100) 3160 ┆
0x0bac0…0bae0 45 58 45 43 20 54 45 47 4e 52 45 4c 28 35 30 2c 35 30 29 18 18 33 31 37 30 20 45 58 45 43 20 46 ┆EXEC TEGNREL(50,50) 3170 EXEC F┆
0x0bae0…0bb00 4c 59 54 52 45 4c 28 31 35 2c 31 35 29 18 1a 33 31 38 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 ┆LYTREL(15,15) 3180 EXEC TEKST(0┆
0x0bb00…0bb20 (5, 1, 12) 2c 32 2c 4e 41 56 4e 24 29 1a 09 33 32 31 30 20 54 54 3d 31 09 12 33 32 32 30 20 45 58 45 43 20 ┆,2,NAVN$) 3210 TT=1 3220 EXEC ┆
0x0bb20…0bb40 50 4c 4f 54 49 4e 49 54 12 3a 33 32 33 30 20 45 58 45 43 20 4c 49 4e 4b 52 56 28 2d 32 2c 31 2e ┆PLOTINIT :3230 EXEC LINKRV(-2,1.┆
0x0bb40…0bb60 35 2c 34 30 2c 31 30 2c 32 37 30 2c 32 30 30 2c 30 2c 31 2c 58 54 45 4b 53 54 24 2c 59 54 45 4b ┆5,40,10,270,200,0,1,XTEKST$,YTEK┆
0x0bb60…0bb80 53 54 24 29 3a 12 33 32 37 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 1a 33 32 38 30 20 46 ┆ST$): 3270 EXEC PLOTINIT 3280 F┆
0x0bb80…0bba0 4f 52 20 54 54 3d 2d 31 20 54 4f 20 32 20 53 54 45 50 20 31 1a 43 33 32 39 30 20 45 58 45 43 20 ┆OR TT=-1 TO 2 STEP 1 C3290 EXEC ┆
0x0bba0…0bbc0 4c 49 4e 4b 52 56 28 2d 32 2c 31 2e 35 2c 32 30 2c 32 30 2c 33 30 30 2c 37 35 2c 28 54 54 2b 32 ┆LINKRV(-2,1.5,20,20,300,75,(TT+2┆
0x0bbc0…0bbe0 29 2c 28 54 54 2b 32 29 2c 58 54 45 4b 53 54 24 2c 59 54 45 4b 53 54 24 29 43 0c 33 33 30 30 20 ┆),(TT+2),XTEKST$,YTEKST$)C 3300 ┆
0x0bbe0…0bc00 4e 45 58 54 20 54 54 0c 18 33 33 31 30 20 4e 41 56 4e 24 3d 22 44 45 4d 4f 2d 33 20 53 4c 55 54 ┆NEXT TT 3310 NAVN$="DEMO-3 SLUT┆
0x0bc00…0bc20 (5, 1, 13) 22 18 12 33 33 32 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 1a 33 33 33 30 20 45 58 45 43 ┆" 3320 EXEC PLOTINIT 3330 EXEC┆
0x0bc20…0bc40 20 54 45 4b 53 54 28 30 2c 31 2c 4e 41 56 4e 24 29 1a 12 33 33 34 30 20 45 58 45 43 20 50 4c 4f ┆ TEKST(0,1,NAVN$) 3340 EXEC PLO┆
0x0bc40…0bc60 54 53 4c 55 54 12 0a 33 33 35 30 20 53 54 4f 50 20 0a 00 00 12 33 33 32 30 20 45 58 45 43 20 50 ┆TSLUT 3350 STOP 3320 EXEC P┆
0x0bc60…0bc80 4c 4f 54 49 4e 49 54 12 1a 33 33 33 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 31 2c 4e 41 56 ┆LOTINIT 3330 EXEC TEKST(0,1,NAV┆
0x0bc80…0bca0 4e 24 29 1a 12 33 33 34 30 20 45 58 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a 33 33 35 30 20 53 54 ┆N$) 3340 EXEC PLOTSLUT 3350 ST┆
0x0bca0…0bcc0 4f 50 20 0a 00 00 53 54 4f 50 20 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆OP STOP ┆
0x0bcc0…0bce0 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 ┆ ┆
[…0x1…]
0x0bd00…0bd20 (5, 1, 14) ExtentHdr {name=»PNGRAFIK«, typ=»K«, seg=»A«, next=0x03, basis=0x000a, nextext={DA 000c,07 (0x00c700)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000c,07 (0x00c700)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0bd20…0bd40 3c 30 31 30 30 20 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 ┆<0100 REM **********************┆
0x0bd40…0bd60 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 3c 3c 30 ┆*****************************<<0┆
0x0bd60…0bd80 31 31 30 20 52 45 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 49 20 44 45 4e 4e 45 20 46 49 ┆110 REM *PROCEDURERNE I DENNE FI┆
0x0bd80…0bda0 4c 20 45 52 20 44 45 20 4e 5c 44 56 45 4e 44 49 47 45 20 47 52 55 4e 44 2d 20 2a 3c 3c 30 31 32 ┆L ER DE NØDVENDIGE GRUND- *<<012┆
0x0bda0…0bdc0 30 20 52 45 4d 20 2a 45 4c 45 4d 45 4e 54 45 52 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 ┆0 REM *ELEMENTER TIL STYRING AF ┆
0x0bdc0…0bde0 50 4c 4f 54 54 45 52 45 4e 2c 20 4f 47 20 45 52 20 44 45 46 4f 52 20 20 2a 3c 3c 30 31 33 30 20 ┆PLOTTEREN, OG ER DEFOR *<<0130 ┆
0x0bde0…0be00 52 45 4d 20 2a 44 49 52 45 4b 54 45 20 41 46 48 5b 4e 47 49 47 20 41 46 20 44 45 4e 20 41 4e 56 ┆REM *DIREKTE AFHÆNGIG AF DEN ANV┆
0x0be00…0be20 (5, 1, 15) 45 4e 44 54 45 20 50 4c 4f 54 54 45 52 2e 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 34 30 20 52 45 ┆ENDTE PLOTTER. *<<0140 RE┆
0x0be20…0be40 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 48 45 52 20 4b 41 4e 20 4b 55 4e 20 41 4e 56 45 ┆M *PROCEDURERNE HER KAN KUN ANVE┆
0x0be40…0be60 4e 44 45 53 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 2a 3c 3c 30 31 35 30 20 52 45 4d 20 ┆NDES TIL STYRING AF *<<0150 REM ┆
0x0be60…0be80 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* ┆
0x0be80…0bea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 36 30 20 52 45 4d 20 2a 20 ┆ *<<0160 REM * ┆
0x0bea0…0bec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 49 20 50 4c 5c 54 20 20 20 20 20 ┆ HI PLØT ┆
0x0bec0…0bee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 37 30 20 52 45 4d 20 2a 4d 4f 44 ┆ *<<0170 REM *MOD┆
0x0bee0…0bf00 45 4c 20 20 20 20 20 20 20 20 44 4d 50 2d 33 2c 44 4d 50 2d 34 2c 44 4d 50 2d 36 2c 44 4d 50 2d ┆EL DMP-3,DMP-4,DMP-6,DMP-┆
0x0bf00…0bf20 (5, 1, 16) 37 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 38 30 20 52 45 4d 20 2a 46 52 41 20 20 ┆7 *<<0180 REM *FRA ┆
0x0bf20…0bf40 20 20 20 20 20 20 20 20 20 20 48 4f 55 53 54 4f 4e 20 49 4e 53 54 52 55 4d 45 4e 54 20 20 20 20 ┆ HOUSTON INSTRUMENT ┆
0x0bf40…0bf60 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 39 30 20 52 45 4d 20 2a 20 20 20 20 20 20 20 ┆ *<<0190 REM * ┆
0x0bf60…0bf80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bf80…0bfa0 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 32 30 30 20 52 45 4d 20 2a 44 44 45 20 20 20 20 20 20 ┆ *<<0200 REM *DDE ┆
0x0bfa0…0bfc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bfc0…0bfe0 20 20 20 20 31 39 38 32 2a 3c 3c 30 32 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 1982*<<0210 REM ************┆
0x0bfe0…0c000 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 2a 2a ┆********************************┆
0x0c000…0c020 (6, 0, 1) 2a 2a 2a 2a 2a 2a 2a 3c 2a 30 32 32 30 20 52 45 4d 20 4c 49 4e 20 41 4e 56 45 4e 44 45 53 20 49 ┆*******<*0220 REM LIN ANVENDES I┆
0x0c020…0c040 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 49 4e 4b 52 56 2e 2a 2c 30 32 33 30 20 52 45 4d 20 58 54 ┆ PROCEDUREN LINKRV.*,0230 REM XT┆
0x0c040…0c060 2c 59 54 20 41 4e 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 4f 47 4b 52 56 ┆,YT ANVENDES I PROCEDUREN LOGKRV┆
0x0c060…0c080 2e 2c 1e 30 32 34 30 20 44 49 4d 20 4c 49 4e 24 28 33 29 2c 58 54 24 28 33 29 2c 59 54 24 28 33 ┆., 0240 DIM LIN$(3),XT$(3),YT$(3┆
0x0c080…0c0a0 29 1e 2d 30 32 35 30 20 52 45 4d 20 52 4f 55 20 41 46 52 55 4e 44 45 52 20 45 54 20 52 45 45 4c ┆) -0250 REM ROU AFRUNDER ET REEL┆
0x0c0a0…0c0c0 54 20 54 41 4c 20 54 49 4c 20 48 45 4c 54 41 4c 2d 34 30 32 36 30 20 52 45 4d 20 4f 47 20 41 4e ┆T TAL TIL HELTAL-40260 REM OG AN┆
0x0c0c0…0c0e0 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 52 4e 45 20 53 54 49 50 52 45 4c 20 4f 47 ┆VENDES I PROCEDURERNE STIPREL OG┆
0x0c0e0…0c100 20 41 4b 53 45 2e 34 1a 30 32 37 30 20 44 45 46 20 52 4f 55 28 5a 29 3d 49 4e 54 28 5a 2b 30 2e ┆ AKSE.4 0270 DEF ROU(Z)=INT(Z+0.┆
0x0c100…0c120 (6, 0, 2) 35 29 1a 11 30 32 38 30 20 50 49 3d 33 2e 31 34 31 35 39 32 36 11 12 30 32 39 30 20 50 52 4f 43 ┆5) 0280 PI=3.1415926 0290 PROC┆
0x0c120…0c140 20 50 4c 4f 54 49 4e 49 54 12 2a 30 33 30 30 20 52 45 4d 20 5d 42 4e 45 52 20 50 4c 4f 54 54 45 ┆ PLOTINIT *0300 REM ÅBNER PLOTTE┆
0x0c140…0c160 52 45 4e 20 4f 47 20 4c 5c 46 54 45 52 20 50 45 4e 4e 45 4e 2c 2a 29 30 33 31 30 20 52 45 4d 20 ┆REN OG LØFTER PENNEN,*)0310 REM ┆
0x0c160…0c180 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 54 49 4c 20 28 30 2c 30 29 20 3d 20 48 4f 4d 45 2e ┆FLYTTER PENNEN TIL (0,0) = HOME.┆
0x0c180…0c1a0 29 14 30 33 32 30 20 50 52 49 4e 54 20 22 49 3b 3a 20 55 20 48 22 14 17 30 33 33 30 20 45 4e 44 ┆) 0320 PRINT "I;: U H" 0330 END┆
0x0c1a0…0c1c0 50 52 4f 43 20 3b 50 4c 4f 54 49 4e 49 54 2e 17 12 30 33 34 30 20 50 52 4f 43 20 50 4c 4f 54 53 ┆PROC ;PLOTINIT. 0340 PROC PLOTS┆
0x0c1c0…0c1e0 4c 55 54 12 1c 30 33 35 30 20 52 45 4d 20 41 46 42 52 59 44 45 52 20 50 4c 4f 54 54 45 52 45 4e ┆LUT 0350 REM AFBRYDER PLOTTEREN┆
0x0c1e0…0c200 2e 1c 0e 30 33 36 30 20 50 52 49 4e 54 20 22 40 22 0e 17 30 33 37 30 20 45 4e 44 50 52 4f 43 20 ┆. 0360 PRINT "@" 0370 ENDPROC ┆
0x0c200…0c220 (6, 0, 3) 3b 50 4c 4f 54 53 4c 55 54 2e 17 12 30 33 38 30 20 50 52 4f 43 20 50 4c 4f 54 54 45 53 54 12 2b ┆;PLOTSLUT. 0380 PROC PLOTTEST +┆
0x0c220…0c240 30 33 39 30 20 52 45 4d 20 4b 5c 52 45 52 20 50 4c 4f 54 54 45 52 45 4e 53 20 53 45 4c 56 54 45 ┆0390 REM KØRER PLOTTERENS SELVTE┆
0x0c240…0c260 53 54 20 50 52 4f 47 52 41 4d 2e 2b 0e 30 34 30 30 20 50 52 49 4e 54 20 22 54 22 0e 17 30 34 31 ┆ST PROGRAM.+ 0400 PRINT "T" 041┆
0x0c260…0c280 30 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 54 45 53 54 2e 17 10 30 34 32 30 20 50 52 4f 43 20 ┆0 ENDPROC ;PLOTTEST. 0420 PROC ┆
0x0c280…0c2a0 4e 55 4c 50 4b 54 10 1f 30 34 33 30 20 52 45 4d 20 46 41 53 54 53 5b 54 54 45 52 20 4e 55 4c 50 ┆NULPKT 0430 REM FASTSÆTTER NULP┆
0x0c2a0…0c2c0 55 4e 4b 54 45 54 2e 1f 0e 30 34 34 30 20 50 52 49 4e 54 20 22 4f 22 0e 15 30 34 35 30 20 45 4e ┆UNKTET. 0440 PRINT "O" 0450 EN┆
0x0c2c0…0c2e0 44 50 52 4f 43 20 3b 4e 55 4c 50 4b 54 2e 15 10 30 34 36 30 20 50 52 4f 43 20 50 45 4e 4e 45 44 ┆DPROC ;NULPKT. 0460 PROC PENNED┆
0x0c2e0…0c300 10 26 30 34 37 30 20 52 45 4d 20 53 5b 54 54 45 52 20 50 45 4e 4e 45 4e 20 4e 45 44 20 50 5d 20 ┆ &0470 REM SÆTTER PENNEN NED PÅ ┆
0x0c300…0c320 (6, 0, 4) 50 41 50 49 52 45 54 2e 26 0e 30 34 38 30 20 50 52 49 4e 54 20 22 44 22 0e 15 30 34 39 30 20 45 ┆PAPIRET.& 0480 PRINT "D" 0490 E┆
0x0c320…0c340 4e 44 50 52 4f 43 20 3b 50 45 4e 4e 45 44 2e 15 0f 30 35 30 30 20 50 52 4f 43 20 50 45 4e 4f 50 ┆NDPROC ;PENNED. 0500 PROC PENOP┆
0x0c340…0c360 0f 25 30 35 31 30 20 52 45 4d 20 48 5b 56 45 52 20 50 45 4e 4e 45 4e 20 4f 50 20 46 52 41 20 50 ┆ %0510 REM HÆVER PENNEN OP FRA P┆
0x0c360…0c380 41 50 49 52 45 54 2e 25 0e 30 35 32 30 20 50 52 49 4e 54 20 22 55 22 0e 14 30 35 33 30 20 45 4e ┆APIRET.% 0520 PRINT "U" 0530 EN┆
0x0c380…0c3a0 44 50 52 4f 43 20 3b 50 45 4e 4f 50 2e 14 16 30 35 34 30 20 50 52 4f 43 20 46 4c 59 54 41 42 53 ┆DPROC ;PENOP. 0540 PROC FLYTABS┆
0x0c3a0…0c3c0 28 58 2c 59 29 16 38 30 35 35 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 41 ┆(X,Y) 80550 REM FLYTTER PENNEN A┆
0x0c3c0…0c3e0 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 38 ┆BSOLUT TIL KOORDINATERNE (X,Y).8┆
0x0c3e0…0c400 16 30 35 36 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 35 37 30 20 50 52 ┆ 0560 X=INT(X);Y=INT(Y) 0570 PR┆
0x0c400…0c420 (6, 0, 5) 49 4e 54 20 22 55 20 41 22 3b 58 3b 22 2c 22 3b 59 18 16 30 35 38 30 20 45 4e 44 50 52 4f 43 20 ┆INT "U A";X;",";Y 0580 ENDPROC ┆
0x0c420…0c440 3b 46 4c 59 54 41 42 53 2e 16 1d 30 35 39 30 20 50 52 4f 43 20 54 45 47 4e 41 42 53 28 4c 49 4e ┆;FLYTABS. 0590 PROC TEGNABS(LIN┆
0x0c440…0c460 54 59 50 2c 58 2c 59 29 1d 35 30 36 30 30 20 52 45 4d 20 54 45 47 4e 45 52 20 4c 49 4e 49 45 20 ┆TYP,X,Y) 50600 REM TEGNER LINIE ┆
0x0c460…0c480 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 35 ┆ABSOLUT TIL KOORDINATERNE (X,Y)5┆
0x0c480…0c4a0 23 30 36 31 30 20 52 45 4d 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 49 4e 49 45 54 ┆#0610 REM MED DEN ANGIVNE LINIET┆
0x0c4a0…0c4c0 59 50 45 2e 23 16 30 36 32 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 29 30 36 ┆YPE.# 0620 X=INT(X);Y=INT(Y) )06┆
0x0c4c0…0c4e0 33 30 20 50 52 49 4e 54 20 22 44 20 41 20 4c 22 2b 43 48 52 28 34 38 2b 4c 49 4e 54 59 50 29 3b ┆30 PRINT "D A L"+CHR(48+LINTYP);┆
0x0c4e0…0c500 58 3b 22 2c 22 3b 59 29 16 30 36 34 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 41 42 53 2e 16 ┆X;",";Y) 0640 ENDPROC ;TEGNABS. ┆
0x0c500…0c520 (6, 0, 6) 16 30 36 35 30 20 50 52 4f 43 20 46 4c 59 54 52 45 4c 28 58 2c 59 29 16 39 30 36 36 30 20 52 45 ┆ 0650 PROC FLYTREL(X,Y) 90660 RE┆
0x0c520…0c540 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 52 45 4c 41 54 49 56 54 20 54 49 4c 20 4b 4f ┆M FLYTTER PENNEN RELATIVT TIL KO┆
0x0c540…0c560 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 39 16 30 36 37 30 20 58 3d 49 4e 54 28 58 ┆ORDINATERNE (X,Y).9 0670 X=INT(X┆
0x0c560…0c580 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 36 38 30 20 50 52 49 4e 54 20 22 55 20 52 22 3b 58 3b 22 ┆);Y=INT(Y) 0680 PRINT "U R";X;"┆
0x0c580…0c5a0 2c 22 3b 59 18 16 30 36 39 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e 16 16 30 37 ┆,";Y 0690 ENDPROC ;FLYTREL. 07┆
0x0c5a0…0c5c0 30 30 20 50 52 4f 43 20 54 45 47 4e 52 45 4c 28 58 2c 59 29 16 37 30 37 31 30 20 52 45 4d 20 54 ┆00 PROC TEGNREL(X,Y) 70710 REM T┆
0x0c5c0…0c5e0 45 47 4e 45 52 20 4c 49 4e 49 45 20 52 45 4c 41 54 49 56 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e ┆EGNER LINIE RELATIVT TIL KOORDIN┆
0x0c5e0…0c600 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 37 16 30 37 32 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 ┆ATERNE (X,Y).7 0720 X=INT(X);Y=I┆
0x0c600…0c620 (6, 0, 7) 4e 54 28 59 29 16 1b 30 37 33 30 20 50 52 49 4e 54 20 22 44 20 52 20 4c 30 22 3b 58 3b 22 2c 22 ┆NT(Y) 0730 PRINT "D R L0";X;","┆
0x0c620…0c640 3b 59 1b 16 30 37 34 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e 16 20 30 37 35 30 ┆;Y 0740 ENDPROC ;FLYTREL. 0750┆
0x0c640…0c660 20 50 52 4f 43 20 46 4c 59 54 50 4f 4c 28 56 49 4e 4b 45 4c 2c 4c 5b 4e 47 44 45 29 20 35 30 37 ┆ PROC FLYTPOL(VINKEL,LÆNGDE) 507┆
0x0c660…0c680 36 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 44 45 4e 20 41 4e 47 49 56 4e ┆60 REM FLYTTER PENNEN DEN ANGIVN┆
0x0c680…0c6a0 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d 45 44 20 44 45 4e 35 2f 30 37 37 30 20 52 45 4d 20 41 4e ┆E LÆNGDE OG MED DEN5/0770 REM AN┆
0x0c6a0…0c6c0 46 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 ┆FGIVNE VINKEL I FORHOLD TIL VAND┆
0x0c6c0…0c6e0 52 45 54 2e 2f 25 30 37 38 30 20 58 3d 49 4e 54 28 4c 5b 4e 47 44 45 2a 43 4f 53 28 56 49 4e 4b ┆RET./%0780 X=INT(LÆNGDE*COS(VINK┆
0x0c6e0…0c700 45 4c 2f 31 38 30 2a 50 49 29 29 25 25 30 37 39 30 20 59 3d 49 4e 54 28 4c 5b 4e 47 44 45 2a 53 ┆EL/180*PI))%%0790 Y=INT(LÆNGDE*S┆
0x0c700…0c720 (6, 0, 8) ExtentHdr {name=»PNGRAFIK«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 000d,01 (0x00d100)}, prevext={DA 000b,0d (0x00bd00)}, nextfile={DA 000d,01 (0x00d100)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x0c720…0c740 49 4e 28 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 18 30 38 30 30 20 50 52 49 4e 54 20 22 ┆IN(VINKEL/180*PI))% 0800 PRINT "┆
0x0c740…0c760 55 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 38 31 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 ┆U R";X;",";Y 0810 ENDPROC ;FLYT┆
0x0c760…0c780 50 4f 4c 2e 16 20 30 38 32 30 20 50 52 4f 43 20 54 45 47 4e 50 4f 4c 28 56 49 4e 4b 45 4c 2c 4c ┆POL. 0820 PROC TEGNPOL(VINKEL,L┆
0x0c780…0c7a0 5b 4e 47 44 45 29 20 36 30 38 33 30 20 52 45 4d 20 54 45 47 4e 45 52 20 45 4e 20 4c 49 4e 49 45 ┆ÆNGDE) 60830 REM TEGNER EN LINIE┆
0x0c7a0…0c7c0 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d 45 44 36 31 ┆ MED DEN ANGIVNE LÆNGDE OG MED61┆
0x0c7c0…0c7e0 30 38 34 30 20 52 45 4d 20 44 45 20 41 4e 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 ┆0840 REM DE ANGIVNE VINKEL I FOR┆
0x0c7e0…0c800 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 31 25 30 38 35 30 20 58 3d 49 4e 54 28 4c 5b ┆HOLD TIL VANDRET.1%0850 X=INT(LÆ┆
0x0c800…0c820 (6, 0, 9) 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 30 38 36 30 20 59 ┆NGDE*COS(VINKEL/180*PI))%%0860 Y┆
0x0c820…0c840 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 49 29 29 25 ┆=INT(LÆNGDE*SIN(VINKEL/180*PI))%┆
0x0c840…0c860 18 30 38 37 30 20 50 52 49 4e 54 20 22 44 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 38 38 30 20 ┆ 0870 PRINT "D R";X;",";Y 0880 ┆
0x0c860…0c880 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 50 4f 4c 2e 16 1d 30 38 39 30 20 50 52 4f 43 20 53 59 4d ┆ENDPROC ;TEGNPOL. 0890 PROC SYM┆
0x0c880…0c8a0 42 4f 4c 28 48 5c 4a 44 45 2c 46 49 47 55 52 29 1d 47 30 39 30 30 20 52 45 4d 20 54 45 47 4e 45 ┆BOL(HØJDE,FIGUR) G0900 REM TEGNE┆
0x0c8a0…0c8c0 52 20 45 54 20 41 46 20 46 49 47 55 52 45 52 4e 45 3a 50 4c 55 53 28 30 29 2c 4b 4f 52 53 28 31 ┆R ET AF FIGURERNE:PLUS(0),KORS(1┆
0x0c8c0…0c8e0 29 2c 46 49 52 4b 41 4e 54 28 32 29 2c 4f 54 54 45 4b 41 4e 54 28 33 29 2c 47 40 30 39 31 30 20 ┆),FIRKANT(2),OTTEKANT(3),G@0910 ┆
0x0c8e0…0c900 52 45 4d 20 54 52 45 4b 41 4e 54 28 34 29 2c 54 49 4d 45 47 4c 41 53 28 35 29 2c 20 4d 45 44 20 ┆REM TREKANT(4),TIMEGLAS(5), MED ┆
0x0c900…0c920 (6, 0, 10) 45 4e 20 41 46 20 48 5c 4a 44 45 52 4e 45 20 30 2c 31 2c 32 2c 33 2c 34 2c 35 2e 40 2f 30 39 32 ┆EN AF HØJDERNE 0,1,2,3,4,5.@/092┆
0x0c920…0c940 30 20 50 52 49 4e 54 20 22 4d 22 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 2b 43 48 52 28 34 38 ┆0 PRINT "M"+CHR(48+HØJDE)+CHR(48┆
0x0c940…0c960 2b 46 49 47 55 52 29 2b 22 20 55 22 2f 15 30 39 33 30 20 45 4e 44 50 52 4f 43 20 3b 53 59 4d 42 ┆+FIGUR)+" U"/ 0930 ENDPROC ;SYMB┆
0x0c960…0c980 4f 4c 2e 15 22 30 39 34 30 20 50 52 4f 43 20 54 45 4b 53 54 28 56 49 4e 4b 45 4c 2c 48 5c 4a 44 ┆OL. "0940 PROC TEKST(VINKEL,HØJD┆
0x0c980…0c9a0 45 2c 54 45 58 54 29 22 31 30 39 35 30 20 52 45 4d 20 55 44 53 4b 52 49 56 45 52 20 45 4e 20 54 ┆E,TEXT)"10950 REM UDSKRIVER EN T┆
0x0c9a0…0c9c0 45 4b 53 54 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 48 5c 4a 44 45 31 29 30 39 36 30 ┆EKST MED DEN ANGIVNE HØJDE1)0960┆
0x0c9c0…0c9e0 20 52 45 4d 20 4f 47 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e ┆ REM OG VINKEL I FORHOLD TIL VAN┆
0x0c9e0…0ca00 44 52 45 54 2e 29 24 30 39 37 30 20 56 3d 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c 29 20 44 49 ┆DRET.)$0970 V=1+((360-VINKEL) DI┆
0x0ca00…0ca20 (6, 0, 11) 56 20 39 30 29 20 4d 4f 44 20 34 24 34 30 39 38 30 20 50 52 49 4e 54 20 22 53 22 2b 43 48 52 28 ┆V 90) MOD 4$40980 PRINT "S"+CHR(┆
0x0ca20…0ca40 34 38 2b 56 29 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 3b 22 20 22 3b 54 45 58 54 24 3b 22 5f ┆48+V)+CHR(48+HØJDE);" ";TEXT$;"_┆
0x0ca40…0ca60 22 34 14 30 39 39 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 4b 53 54 2e 14 1e 31 30 30 30 20 50 52 ┆"4 0990 ENDPROC ;TEKST. 1000 PR┆
0x0ca60…0ca80 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 31 30 31 30 20 52 45 ┆OC TAL(VINKEL,HØJDE,NR) ;1010 RE┆
0x0ca80…0caa0 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 4e 20 41 4e 47 49 56 ┆M UDSKRIVER ET TAL MED DEN ANGIV┆
0x0caa0…0cac0 4e 45 20 48 5c 4a 44 45 20 4f 47 20 56 49 4e 4b 45 4c 20 49 3b 1d 31 30 32 30 20 52 45 4d 20 46 ┆NE HØJDE OG VINKEL I; 1020 REM F┆
0x0cac0…0cae0 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 1d 24 31 30 33 30 20 56 3d 31 2b 28 28 ┆ORHOLD TIL VANDRET. $1030 V=1+((┆
0x0cae0…0cb00 33 36 30 2d 56 49 4e 4b 45 4c 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 27 31 30 34 30 20 ┆360-VINKEL) DIV 90) MOD 4$'1040 ┆
0x0cb00…0cb20 (6, 0, 12) 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 5c 4a 44 45 ┆PRINT "S"+CHR(48+V)+CHR(48+HØJDE┆
0x0cb20…0cb40 29 3b 27 25 31 30 35 30 20 49 46 20 4e 52 3c 3d 2d 31 20 4f 52 20 4e 52 3d 30 20 4f 52 20 31 3c ┆);'%1050 IF NR<=-1 OR NR=0 OR 1<┆
0x0cb40…0cb60 3d 4e 52 20 54 48 45 4e 20 25 11 31 30 36 30 20 50 52 49 4e 54 20 4e 52 3b 22 5f 22 11 0a 31 30 ┆=NR THEN % 1060 PRINT NR;"_" 10┆
0x0cb60…0cb80 37 30 20 45 4c 53 45 20 0a 1d 31 30 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 23 2e 23 ┆70 ELSE 1080 PRINT USING " #.#┆
0x0cb80…0cba0 23 20 5f 22 3a 4e 52 1d 0b 31 30 39 30 20 45 4e 44 49 46 20 0b 12 31 31 30 30 20 45 4e 44 50 52 ┆# _":NR 1090 ENDIF 1100 ENDPR┆
0x0cba0…0cbc0 4f 43 20 3b 54 41 4c 2e 12 2b 31 34 34 30 20 50 52 4f 43 20 41 4b 53 45 28 56 49 2c 48 5c 2c 53 ┆OC ;TAL. +1440 PROC AKSE(VI,HØ,S┆
0x0cbc0…0cbe0 4b 2c 53 45 2c 4d 49 4e 2c 4d 41 58 2c 54 59 50 2c 54 45 58 29 2b 43 31 34 35 30 20 52 45 4d 20 ┆K,SE,MIN,MAX,TYP,TEX)+C1450 REM ┆
0x0cbe0…0cc00 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 2a 2a ┆********************************┆
0x0cc00…0cc20 (6, 0, 13) 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 31 34 36 30 ┆**************************CC1460┆
0x0cc20…0cc40 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 44 20 56 49 ┆ REM *AKSE TEGNER EN AKSE MED VI┆
0x0cc40…0cc60 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 45 54 2a 43 ┆NKLEN VI I FORHOLD TIL VANDRET*C┆
0x0cc60…0cc80 43 31 34 37 30 20 52 45 4d 20 2a 46 52 41 20 4d 49 4e 20 54 49 4c 20 4d 41 58 2e 20 53 5b 54 54 ┆C1470 REM *FRA MIN TIL MAX. SÆTT┆
0x0cc80…0cca0 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 4a 44 45 4e ┆ER TEKSTEN TEX MED BOGSTAVHØJDEN┆
0x0cca0…0ccc0 20 48 5c 2a 43 43 31 34 38 30 20 52 45 4d 20 2a 50 5d 20 41 4b 53 45 4e 2e 20 53 4b 41 4c 45 52 ┆ HØ*CC1480 REM *PÅ AKSEN. SKALER┆
0x0ccc0…0cce0 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 54 20 49 20 ┆INGEN BESTEMMES AF SK ANGIVET I ┆
0x0cce0…0cd00 41 4e 54 41 4c 20 20 20 2a 43 43 31 34 39 30 20 52 45 4d 20 2a 53 54 45 50 53 20 50 52 2e 20 45 ┆ANTAL *CC1490 REM *STEPS PR. E┆
0x0cd00…0cd20 (6, 0, 14) 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 20 50 52 2e ┆NHED. ANTALLET AF DELSTREGER PR.┆
0x0cd20…0cd40 20 45 4e 48 45 44 20 42 45 2d 20 20 20 2a 43 43 31 35 30 30 20 52 45 4d 20 2a 53 54 45 4d 4d 45 ┆ ENHED BE- *CC1500 REM *STEMME┆
0x0cd40…0cd60 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 20 20 20 20 ┆S AF 1/SE. ┆
0x0cd60…0cd80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 43 43 31 35 31 30 20 52 45 4d 20 2a 2a ┆ *CC1510 REM **┆
0x0cd80…0cda0 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 2a 2a ┆********************************┆
0x0cda0…0cdc0 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 3a 31 35 32 30 20 4b ┆************************C:1520 K┆
0x0cdc0…0cde0 58 3d 43 4f 53 28 56 49 2f 31 38 30 2a 50 49 29 3b 4b 59 3d 53 49 4e 28 56 49 2f 31 38 30 2a 50 ┆X=COS(VI/180*PI);KY=SIN(VI/180*P┆
0x0cde0…0ce00 49 29 3b 48 42 3d 28 31 38 2a 32 2a 2a 28 48 5c 2d 31 29 29 3a 20 31 35 33 30 20 49 46 20 53 47 ┆I);HB=(18*2**(HØ-1)): 1530 IF SG┆
0x0ce00…0ce20 (6, 0, 15) 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 35 34 30 20 4d 49 3d ┆N(MIN)<>SGN(MAX) THEN 1540 MI=┆
0x0ce20…0ce40 4d 49 4e 3b 4d 58 3d 4d 41 58 12 0a 31 35 35 30 20 45 4c 53 45 20 0a 18 31 35 36 30 20 49 46 20 ┆MIN;MX=MAX 1550 ELSE 1560 IF ┆
0x0ce40…0ce60 53 47 4e 28 4d 49 4e 29 3d 31 20 54 48 45 4e 20 18 14 31 35 37 30 20 4d 49 3d 30 3b 4d 58 3d 4d ┆SGN(MIN)=1 THEN 1570 MI=0;MX=M┆
0x0ce60…0ce80 41 58 2d 4d 49 4e 14 0a 31 35 38 30 20 45 4c 53 45 20 0a 14 31 35 39 30 20 4d 58 3d 30 3b 4d 49 ┆AX-MIN 1580 ELSE 1590 MX=0;MI┆
0x0ce80…0cea0 3d 4d 49 4e 2d 4d 41 58 14 0b 31 36 30 30 20 45 4e 44 49 46 20 0b 0b 31 36 31 30 20 45 4e 44 49 ┆=MIN-MAX 1600 ENDIF 1610 ENDI┆
0x0cea0…0cec0 46 20 0b 48 31 36 32 30 20 58 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 58 3b 59 4d 41 ┆F H1620 XMAX=(MX*SK+100)*KX;YMA┆
0x0cec0…0cee0 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 59 3b 58 4d 49 4e 3d 4d 49 2a 53 4b 2a 4b 58 3b 59 ┆X=(MX*SK+100)*KY;XMIN=MI*SK*KX;Y┆
0x0cee0…0cf00 4d 49 4e 3d 4d 49 2a 53 4b 2a 4b 59 48 1c 31 36 33 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 ┆MIN=MI*SK*KYH 1630 EXEC FLYTABS(┆
0x0cf00…0cf20 (6, 0, 16) 58 4d 49 4e 2c 59 4d 49 4e 29 1c 1e 31 36 34 30 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 30 2c ┆XMIN,YMIN) 1640 EXEC TEGNABS(0,┆
0x0cf20…0cf40 58 4d 41 58 2c 59 4d 41 58 29 1e 23 31 36 35 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b ┆XMAX,YMAX) #1650 EXEC TEGNREL((K┆
0x0cf40…0cf60 59 2a 32 30 29 2c 28 2d 4b 58 2a 32 30 29 29 23 28 31 36 36 30 20 45 58 45 43 20 54 45 47 4e 52 ┆Y*20),(-KX*20))#(1660 EXEC TEGNR┆
0x0cf60…0cf80 45 4c 28 28 4b 58 2d 4b 59 29 2a 32 30 2c 28 4b 58 2b 4b 59 29 2a 32 30 29 28 29 31 36 37 30 20 ┆EL((KX-KY)*20,(KX+KY)*20)()1670 ┆
0x0cf80…0cfa0 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 2d 4b 58 2d 4b 59 29 2a 32 30 2c 28 4b 58 2d 4b 59 29 ┆EXEC TEGNREL((-KX-KY)*20,(KX-KY)┆
0x0cfa0…0cfc0 2a 32 30 29 29 23 31 36 38 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 2a 32 30 29 2c ┆*20))#1680 EXEC TEGNREL((KY*20),┆
0x0cfc0…0cfe0 28 2d 4b 58 2a 32 30 29 29 23 1d 31 36 39 30 20 49 46 20 30 3c 3d 4b 59 20 41 4e 44 20 4b 59 3c ┆(-KX*20))# 1690 IF 0<=KY AND KY<┆
0x0cfe0…0d000 3d 31 20 54 48 45 4e 20 1d 37 31 37 30 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 4b 59 2a ┆=1 THEN 71700 EXEC FLYTREL((KY*┆
0x0d000…0d020 (6, 1, 1) 33 30 29 2c 28 2d 4b 58 2a 33 30 2d 48 42 2a 28 53 47 4e 28 4b 58 2d 4b 59 29 2b 31 29 2f 32 29 ┆30),(-KX*30-HB*(SGN(KX-KY)+1)/2)┆
0x0d020…0d040 29 37 0a 31 37 31 30 20 45 4c 53 45 20 0a 38 31 37 32 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c ┆)7 1710 ELSE 81720 EXEC FLYTREL┆
0x0d040…0d060 28 28 2d 4b 59 2a 33 30 29 2c 28 4b 58 2a 33 30 2d 48 42 2a 28 53 47 4e 28 2d 4b 58 2b 4b 59 29 ┆((-KY*30),(KX*30-HB*(SGN(-KX+KY)┆
0x0d060…0d080 2b 31 29 2f 32 29 29 38 0b 31 37 33 30 20 45 4e 44 49 46 20 0b 1a 31 37 34 30 20 45 58 45 43 20 ┆+1)/2))8 1730 ENDIF 1740 EXEC ┆
0x0d080…0d0a0 54 45 4b 53 54 28 30 2c 48 5c 2c 54 45 58 24 29 1a 16 31 37 35 30 20 49 46 20 54 59 50 24 3c 3e ┆TEKST(0,HØ,TEX$) 1750 IF TYP$<>┆
0x0d0a0…0d0c0 22 22 20 54 48 45 4e 20 16 17 31 37 36 30 20 53 49 3d 28 4d 41 58 20 44 49 56 20 53 45 29 2a 53 ┆"" THEN 1760 SI=(MAX DIV SE)*S┆
0x0d0c0…0d0e0 45 17 2e 31 37 37 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 ┆E .1770 FOR I=(SI+MI-MIN)*SK TO ┆
0x0d0e0…0d100 4d 49 2a 53 4b 20 53 54 45 50 20 2d 53 45 2a 53 4b 2e 2c 31 37 38 30 20 45 58 45 43 20 46 4c 59 ┆MI*SK STEP -SE*SK.,1780 EXEC FLY┆
0x0d100…0d120 (6, 1, 2) ExtentHdr {name=»PNGRAFIK«, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 000d,0b (0x00db00)}, prevext={DA 000c,07 (0x00c700)}, nextfile={DA 000d,0b (0x00db00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x0d120…0d140 54 41 42 53 28 28 4b 58 2a 49 2d 4b 59 2a 31 30 29 2c 28 4b 59 2a 49 2b 4b 58 2a 31 30 29 29 2c ┆TABS((KX*I-KY*10),(KY*I+KX*10)),┆
0x0d140…0d160 23 31 37 39 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 2a ┆#1790 EXEC TEGNREL((KY*20),(-KX*┆
0x0d160…0d180 32 30 29 29 23 1d 31 38 30 30 20 49 46 20 30 3c 3d 4b 59 20 41 4e 44 20 4b 59 3c 3d 31 20 54 48 ┆20))# 1800 IF 0<=KY AND KY<=1 TH┆
0x0d180…0d1a0 45 4e 20 1d 34 31 38 31 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 4b 59 2a 32 30 29 2c 28 ┆EN 41810 EXEC FLYTREL((KY*20),(┆
0x0d1a0…0d1c0 2d 4b 58 2a 32 30 2d 48 42 2a 28 53 47 4e 28 4b 58 29 2b 31 29 2f 32 29 29 34 0a 31 38 32 30 20 ┆-KX*20-HB*(SGN(KX)+1)/2))4 1820 ┆
0x0d1c0…0d1e0 45 4c 53 45 20 0a 34 31 38 33 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 2d 4b 59 29 2a 34 ┆ELSE 41830 EXEC FLYTREL((-KY)*4┆
0x0d1e0…0d200 30 2c 28 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 38 34 ┆0,(KX)*40+HB*(SGN(KX)-1)/2)4 184┆
0x0d200…0d220 (6, 1, 3) 30 20 45 4e 44 49 46 20 0b 18 31 38 35 30 20 49 46 20 54 59 50 24 3d 22 4c 49 4e 22 20 54 48 45 ┆0 ENDIF 1850 IF TYP$="LIN" THE┆
0x0d220…0d240 4e 20 18 0b 31 38 36 30 20 53 49 49 3d 53 49 0b 0a 31 38 37 30 20 45 4c 53 45 20 0a 0f 31 38 38 ┆N 1860 SII=SI 1870 ELSE 188┆
0x0d240…0d260 30 20 53 49 49 3d 31 30 2a 2a 53 49 0f 0b 31 38 39 30 20 45 4e 44 49 46 20 0b 1c 31 39 30 30 20 ┆0 SII=10**SI 1890 ENDIF 1900 ┆
0x0d260…0d280 49 46 20 41 42 53 28 53 49 49 29 3c 3d 39 39 39 39 20 54 48 45 4e 20 1c 18 31 39 31 30 20 53 4a ┆IF ABS(SII)<=9999 THEN 1910 SJ┆
0x0d280…0d2a0 3d 52 4f 55 28 53 49 49 2a 31 30 30 29 2f 31 30 30 18 0a 31 39 32 30 20 45 4c 53 45 20 0a 30 31 ┆=ROU(SII*100)/100 1920 ELSE 01┆
0x0d2a0…0d2c0 39 33 30 20 49 46 20 39 39 39 39 3c 41 42 53 28 53 49 49 29 20 41 4e 44 20 41 42 53 28 53 49 49 ┆930 IF 9999<ABS(SII) AND ABS(SII┆
0x0d2c0…0d2e0 29 3c 3d 39 39 39 39 39 39 20 54 48 45 4e 20 30 10 31 39 34 30 20 53 4a 3d 52 4f 55 28 53 49 49 ┆)<=999999 THEN 0 1940 SJ=ROU(SII┆
0x0d2e0…0d300 29 10 0a 31 39 35 30 20 45 4c 53 45 20 0a 0b 31 39 36 30 20 53 4a 3d 53 49 49 0b 0b 31 39 37 30 ┆) 1950 ELSE 1960 SJ=SII 1970┆
0x0d300…0d320 (6, 1, 4) 20 45 4e 44 49 46 20 0b 0b 31 39 38 30 20 45 4e 44 49 46 20 0b 24 31 39 39 30 20 49 46 20 53 4a ┆ ENDIF 1980 ENDIF $1990 IF SJ┆
0x0d320…0d340 3c 3e 30 20 54 48 45 4e 20 45 58 45 43 20 54 41 4c 28 30 2c 48 5c 2c 53 4a 29 24 0d 32 30 30 30 ┆<>0 THEN EXEC TAL(0,HØ,SJ)$ 2000┆
0x0d340…0d360 20 53 49 3d 53 49 2d 53 45 0d 0b 32 30 31 30 20 4e 45 58 54 20 49 0b 0b 32 30 32 30 20 45 4e 44 ┆ SI=SI-SE 2010 NEXT I 2020 END┆
0x0d360…0d380 49 46 20 0b 13 32 30 33 30 20 45 4e 44 50 52 4f 43 20 3b 41 4b 53 45 2e 13 3b 32 30 34 30 20 50 ┆IF 2030 ENDPROC ;AKSE. ;2040 P┆
0x0d380…0d3a0 52 4f 43 20 4b 4f 53 59 53 28 58 49 2c 58 58 2c 59 49 2c 59 58 2c 58 43 2c 59 43 2c 58 30 2c 59 ┆ROC KOSYS(XI,XX,YI,YX,XC,YC,X0,Y┆
0x0d3a0…0d3c0 30 2c 58 54 50 2c 59 54 50 2c 41 4b 2c 58 54 58 2c 59 54 58 29 3b 3f 32 30 35 30 20 52 45 4d 20 ┆0,XTP,YTP,AK,XTX,YTX);?2050 REM ┆
0x0d3c0…0d3e0 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 2a 2a ┆********************************┆
0x0d3e0…0d400 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3f 3f 32 30 36 30 20 52 45 4d ┆**********************??2060 REM┆
0x0d400…0d420 (6, 1, 5) 20 2a 4b 4f 53 59 53 20 46 4f 52 45 54 41 47 45 52 20 45 4e 20 41 55 54 4f 53 4b 41 4c 45 52 49 ┆ *KOSYS FORETAGER EN AUTOSKALERI┆
0x0d420…0d440 4e 47 20 4f 47 20 45 4e 20 41 55 54 4f 4e 55 4c 50 55 4e 4b 54 53 2a 3f 3f 32 30 37 30 20 52 45 ┆NG OG EN AUTONULPUNKTS*??2070 RE┆
0x0d440…0d460 4d 20 2a 42 45 53 54 45 4d 4d 45 4c 53 45 2c 20 48 56 49 53 20 58 43 20 4f 47 2f 45 4c 4c 45 52 ┆M *BESTEMMELSE, HVIS XC OG/ELLER┆
0x0d460…0d480 20 59 43 20 45 52 20 4d 49 4e 44 52 45 20 45 4e 44 20 45 4c 4c 45 52 2a 3f 3f 32 30 38 30 20 52 ┆ YC ER MINDRE END ELLER*??2080 R┆
0x0d480…0d4a0 45 4d 20 2a 4c 49 47 20 4d 45 44 20 4e 55 4c 2e 20 53 4b 41 4c 45 52 49 4e 47 45 4e 20 58 43 2c ┆EM *LIG MED NUL. SKALERINGEN XC,┆
0x0d4a0…0d4c0 59 43 20 42 45 53 54 45 4d 4d 45 53 20 44 41 20 41 46 20 58 49 2c 58 58 2a 3f 3f 32 30 39 30 20 ┆YC BESTEMMES DA AF XI,XX*??2090 ┆
0x0d4c0…0d4e0 52 45 4d 20 2a 4f 47 20 59 49 2c 59 58 2e 20 45 4c 4c 45 52 53 20 41 4e 56 45 4e 44 45 53 20 44 ┆REM *OG YI,YX. ELLERS ANVENDES D┆
0x0d4e0…0d500 45 20 55 44 45 46 52 41 20 41 4e 47 49 56 4e 45 20 53 4b 41 4c 45 2d 20 20 2a 3f 3f 32 31 30 30 ┆E UDEFRA ANGIVNE SKALE- *??2100┆
0x0d500…0d520 (6, 1, 6) 20 52 45 4d 20 2a 52 49 4e 47 45 52 20 58 43 2c 59 43 20 4f 47 20 44 45 20 55 44 45 46 52 41 20 ┆ REM *RINGER XC,YC OG DE UDEFRA ┆
0x0d520…0d540 41 4e 47 49 56 4e 45 20 4e 55 4c 50 55 4e 4b 54 45 52 20 58 5c 2c 59 5c 2e 20 2a 3f 3f 32 31 31 ┆ANGIVNE NULPUNKTER XØ,YØ. *??211┆
0x0d540…0d560 30 20 52 45 4d 20 2a 44 45 53 55 44 45 4e 20 56 49 4c 20 4b 4f 4f 52 44 2c 20 48 56 49 53 20 41 ┆0 REM *DESUDEN VIL KOORD, HVIS A┆
0x0d560…0d580 4b 20 45 52 20 4c 49 47 20 4d 45 44 20 45 45 4e 2c 20 55 44 54 45 47 4e 45 20 20 2a 3f 3f 32 31 ┆K ER LIG MED EEN, UDTEGNE *??21┆
0x0d580…0d5a0 32 30 20 52 45 4d 20 2a 4b 4f 4f 52 44 49 4e 41 54 41 4b 53 45 52 4e 45 2c 20 53 5b 54 54 45 20 ┆20 REM *KOORDINATAKSERNE, SÆTTE ┆
0x0d5a0…0d5c0 54 45 4b 53 54 45 52 4e 45 20 58 54 58 20 4f 47 20 59 54 58 20 50 5d 20 20 20 20 20 2a 3f 3f 32 ┆TEKSTERNE XTX OG YTX PÅ *??2┆
0x0d5c0…0d5e0 31 33 30 20 52 45 4d 20 2a 41 4b 53 45 52 4e 45 20 4f 47 20 45 4e 44 45 4c 49 47 20 55 44 53 4b ┆130 REM *AKSERNE OG ENDELIG UDSK┆
0x0d5e0…0d600 52 49 56 45 20 45 4e 20 53 4b 41 4c 41 2c 20 53 4f 4d 20 56 49 4c 20 56 5b 52 45 20 20 2a 3f 3f ┆RIVE EN SKALA, SOM VIL VÆRE *??┆
0x0d600…0d620 (6, 1, 7) 32 31 34 30 20 52 45 4d 20 2a 4c 49 4e 49 5b 52 2c 20 48 56 49 53 20 58 54 50 28 59 54 50 29 20 ┆2140 REM *LINIÆR, HVIS XTP(YTP) ┆
0x0d620…0d640 45 52 20 4c 49 47 20 22 4c 49 4e 22 20 4f 47 20 45 4b 53 50 4f 4e 45 4e 54 49 41 4c 2c 20 2a 3f ┆ER LIG "LIN" OG EKSPONENTIAL, *?┆
0x0d640…0d660 3f 32 31 35 30 20 52 45 4d 20 2a 48 56 49 53 20 58 54 50 28 59 54 50 29 20 45 52 20 46 4f 52 53 ┆?2150 REM *HVIS XTP(YTP) ER FORS┆
0x0d660…0d680 4b 45 4c 4c 49 47 20 46 52 41 20 22 4c 49 4e 22 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆KELLIG FRA "LIN". *┆
0x0d680…0d6a0 3f 3f 32 31 36 30 20 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 ┆??2160 REM *********************┆
0x0d6a0…0d6c0 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 2a 2a ┆********************************┆
0x0d6c0…0d6e0 2a 3f 19 32 31 37 30 20 50 52 4f 43 20 58 59 44 42 53 54 28 58 59 43 2c 58 59 44 29 19 15 32 31 ┆*? 2170 PROC XYDBST(XYC,XYD) 21┆
0x0d6e0…0d700 38 30 20 58 59 44 3d 49 4e 54 28 32 30 30 2f 58 59 43 29 15 29 32 31 39 30 20 49 46 20 32 30 30 ┆80 XYD=INT(200/XYC) )2190 IF 200┆
0x0d700…0d720 (6, 1, 8) 3c 3d 58 59 43 20 41 4e 44 20 58 59 43 3c 34 30 30 20 54 48 45 4e 20 58 59 44 3d 30 2e 35 29 2b ┆<=XYC AND XYC<400 THEN XYD=0.5)+┆
0x0d720…0d740 32 32 30 30 20 49 46 20 34 30 30 3c 3d 58 59 43 20 41 4e 44 20 58 59 43 3c 31 38 30 30 20 54 48 ┆2200 IF 400<=XYC AND XYC<1800 TH┆
0x0d740…0d760 45 4e 20 58 59 44 3d 30 2e 32 35 2b 1e 32 32 31 30 20 49 46 20 31 38 30 30 3c 3d 58 59 43 20 54 ┆EN XYD=0.25+ 2210 IF 1800<=XYC T┆
0x0d760…0d780 48 45 4e 20 58 59 44 3d 30 2e 31 1e 15 32 32 32 30 20 45 4e 44 50 52 4f 43 20 3b 58 59 44 42 53 ┆HEN XYD=0.1 2220 ENDPROC ;XYDBS┆
0x0d780…0d7a0 54 2e 15 14 32 32 33 30 20 53 4c 3d 31 34 35 30 3b 53 42 3d 31 30 30 30 14 1c 32 32 34 30 20 49 ┆T. 2230 SL=1450;SB=1000 2240 I┆
0x0d7a0…0d7c0 46 20 58 43 3c 3d 30 20 4f 52 20 59 43 3c 3d 30 20 54 48 45 4e 20 1c 1a 32 32 35 30 20 58 43 2c ┆F XC<=0 OR YC<=0 THEN 2250 XC,┆
0x0d7c0…0d7e0 59 43 3d 49 4e 54 28 53 42 2f 28 59 58 2d 59 49 29 29 1a 31 32 32 36 30 20 49 46 20 58 43 3d 3e ┆YC=INT(SB/(YX-YI)) 12260 IF XC=>┆
0x0d7e0…0d800 53 4c 2f 28 58 58 2d 58 49 29 20 54 48 45 4e 20 58 43 2c 59 43 3d 49 4e 54 28 53 4c 2f 28 58 58 ┆SL/(XX-XI) THEN XC,YC=INT(SL/(XX┆
0x0d800…0d820 (6, 1, 9) 2d 58 49 29 29 31 25 32 32 37 30 20 58 4f 3d 2d 58 49 2a 58 43 3b 59 4f 3d 2d 59 49 2a 59 43 3b ┆-XI))1%2270 XO=-XI*XC;YO=-YI*YC;┆
0x0d820…0d840 58 46 3d 2d 32 30 3b 59 46 3d 39 30 25 1e 32 32 38 30 20 49 46 20 30 3c 3d 58 4f 20 41 4e 44 20 ┆XF=-20;YF=90% 2280 IF 0<=XO AND ┆
0x0d840…0d860 58 4f 3c 3d 53 4c 20 54 48 45 4e 20 1e 0b 32 32 39 30 20 58 50 4f 3d 58 4f 0b 0a 32 33 30 30 20 ┆XO<=SL THEN 2290 XPO=XO 2300 ┆
0x0d860…0d880 45 4c 53 45 20 0a 12 32 33 31 30 20 49 46 20 58 4f 3c 30 20 54 48 45 4e 20 12 0a 32 33 32 30 20 ┆ELSE 2310 IF XO<0 THEN 2320 ┆
0x0d880…0d8a0 58 50 4f 3d 30 0a 0a 32 33 33 30 20 45 4c 53 45 20 0a 0b 32 33 34 30 20 58 50 4f 3d 53 4c 0b 0b ┆XPO=0 2330 ELSE 2340 XPO=SL ┆
0x0d8a0…0d8c0 32 33 35 30 20 45 4e 44 49 46 20 0b 0b 32 33 36 30 20 45 4e 44 49 46 20 0b 1e 32 33 37 30 20 49 ┆2350 ENDIF 2360 ENDIF 2370 I┆
0x0d8c0…0d8e0 46 20 30 3c 3d 59 4f 20 41 4e 44 20 59 4f 3c 3d 53 42 20 54 48 45 4e 20 1e 0b 32 33 38 30 20 59 ┆F 0<=YO AND YO<=SB THEN 2380 Y┆
0x0d8e0…0d900 50 4f 3d 59 4f 0b 0a 32 33 39 30 20 45 4c 53 45 20 0a 12 32 34 30 30 20 49 46 20 59 4f 3c 30 20 ┆PO=YO 2390 ELSE 2400 IF YO<0 ┆
0x0d900…0d920 (6, 1, 10) 54 48 45 4e 20 12 0a 32 34 31 30 20 59 50 4f 3d 30 0a 0a 32 34 32 30 20 45 4c 53 45 20 0a 0b 32 ┆THEN 2410 YPO=0 2420 ELSE 2┆
0x0d920…0d940 34 33 30 20 59 50 4f 3d 53 42 0b 0b 32 34 34 30 20 45 4e 44 49 46 20 0b 0b 32 34 35 30 20 45 4e ┆430 YPO=SB 2440 ENDIF 2450 EN┆
0x0d940…0d960 44 49 46 20 0b 0a 32 34 36 30 20 45 4c 53 45 20 0a 40 32 34 37 30 20 58 43 3d 58 43 2a 31 30 3b ┆DIF 2460 ELSE @2470 XC=XC*10;┆
0x0d960…0d980 59 43 3d 59 43 2a 31 30 3b 58 50 4f 2c 58 4f 3d 58 30 2a 31 30 3b 59 50 4f 2c 59 4f 3d 59 30 2a ┆YC=YC*10;XPO,XO=X0*10;YPO,YO=Y0*┆
0x0d980…0d9a0 31 30 3b 58 46 3d 2d 34 32 30 3b 59 46 3d 2d 31 36 30 40 0b 32 34 38 30 20 45 4e 44 49 46 20 0b ┆10;XF=-420;YF=-160@ 2480 ENDIF ┆
0x0d9a0…0d9c0 12 32 34 39 30 20 49 46 20 41 4b 3d 31 20 54 48 45 4e 20 12 24 32 35 30 30 20 45 58 45 43 20 46 ┆ 2490 IF AK=1 THEN $2500 EXEC F┆
0x0d9c0…0d9e0 4c 59 54 41 42 53 28 28 58 50 4f 2b 58 46 29 2c 28 59 50 4f 2b 59 46 29 29 24 10 32 35 31 30 20 ┆LYTABS((XPO+XF),(YPO+YF))$ 2510 ┆
0x0d9e0…0da00 45 58 45 43 20 4e 55 4c 50 4b 54 10 17 32 35 32 30 20 45 58 45 43 20 58 59 44 42 53 54 28 58 43 ┆EXEC NULPKT 2520 EXEC XYDBST(XC┆
0x0da00…0da20 (6, 1, 11) 2c 58 44 29 17 29 32 35 33 30 20 45 58 45 43 20 41 4b 53 45 28 30 2c 31 2c 58 43 2c 58 44 2c 58 ┆,XD) )2530 EXEC AKSE(0,1,XC,XD,X┆
0x0da20…0da40 49 2c 58 58 2c 58 54 50 24 2c 58 54 58 24 29 29 17 32 35 34 30 20 45 58 45 43 20 58 59 44 42 53 ┆I,XX,XTP$,XTX$)) 2540 EXEC XYDBS┆
0x0da40…0da60 54 28 59 43 2c 59 44 29 17 2a 32 35 35 30 20 45 58 45 43 20 41 4b 53 45 28 39 30 2c 31 2c 59 43 ┆T(YC,YD) *2550 EXEC AKSE(90,1,YC┆
0x0da60…0da80 2c 59 44 2c 59 49 2c 59 58 2c 59 54 50 24 2c 59 54 58 24 29 2a 0b 32 35 36 30 20 45 4e 44 49 46 ┆,YD,YI,YX,YTP$,YTX$)* 2560 ENDIF┆
0x0da80…0daa0 20 0b 18 32 35 37 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 38 ┆ 2570 X0=XO-XPO;Y0=YO-YPO 258┆
0x0daa0…0dac0 30 20 45 4e 44 50 52 4f 43 20 3b 4b 4f 53 59 53 2e 14 42 34 30 30 30 20 50 52 4f 43 20 50 41 52 ┆0 ENDPROC ;KOSYS. B4000 PROC PAR┆
0x0dac0…0dae0 4b 52 56 28 54 53 54 2c 54 53 4c 2c 44 54 2c 58 53 4b 41 2c 59 53 4b 41 2c 58 4e 55 4c 2c 59 4e ┆KRV(TST,TSL,DT,XSKA,YSKA,XNUL,YN┆
0x0dae0…0db00 55 4c 2c 4c 49 54 59 2c 41 4b 53 52 2c 58 54 45 2c 59 54 45 29 42 42 34 30 31 30 20 52 45 4d 20 ┆UL,LITY,AKSR,XTE,YTE)BB4010 REM ┆
0x0db00…0db20 (6, 1, 12) ExtentHdr {name=»PNGRAFIK«, typ=»K«, seg=»D«, next=0x03, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 000d,01 (0x00d100)}, nextfile={DA 000e,05 (0x00e500)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x0db20…0db40 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 2a 2a ┆********************************┆
0x0db40…0db60 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 42 42 34 30 32 30 20 ┆*************************BB4020 ┆
0x0db60…0db80 52 45 4d 20 2a 50 41 52 4b 52 56 20 46 4f 52 45 54 41 47 45 52 20 45 4e 20 41 46 42 49 4c 44 4e ┆REM *PARKRV FORETAGER EN AFBILDN┆
0x0db80…0dba0 49 4e 47 20 41 46 20 50 41 52 41 4d 45 54 45 52 46 52 45 4d 53 54 49 4c 4c 49 4e 2d 2a 42 42 34 ┆ING AF PARAMETERFREMSTILLIN-*BB4┆
0x0dba0…0dbc0 30 33 30 20 52 45 4d 20 2a 47 45 4e 20 41 4e 47 49 56 45 54 20 49 20 50 52 4f 43 45 44 55 52 45 ┆030 REM *GEN ANGIVET I PROCEDURE┆
0x0dbc0…0dbe0 4e 20 50 41 52 4d 20 4d 45 44 20 50 41 52 41 4d 45 54 45 52 45 4e 20 54 20 4c 5c 42 45 4e 44 45 ┆N PARM MED PARAMETEREN T LØBENDE┆
0x0dbe0…0dc00 2a 42 42 34 30 34 30 20 52 45 4d 20 2a 46 52 41 20 54 53 54 20 54 49 4c 20 54 53 4c 20 4d 45 44 ┆*BB4040 REM *FRA TST TIL TSL MED┆
0x0dc00…0dc20 (6, 1, 13) 20 45 54 20 53 54 45 50 20 50 5d 20 44 54 2e 20 48 56 49 53 20 58 53 4b 41 20 4f 47 2f 45 4c 4c ┆ ET STEP PÅ DT. HVIS XSKA OG/ELL┆
0x0dc20…0dc40 45 52 20 20 2a 42 42 34 30 35 30 20 52 45 4d 20 2a 59 53 4b 41 20 45 52 20 4d 49 4e 44 52 45 20 ┆ER *BB4050 REM *YSKA ER MINDRE ┆
0x0dc40…0dc60 45 4e 44 20 4e 55 4c 20 46 4f 52 45 54 41 47 45 53 20 45 4e 20 41 55 54 4f 4d 41 54 49 53 4b 20 ┆END NUL FORETAGES EN AUTOMATISK ┆
0x0dc60…0dc80 42 45 53 54 45 4d 2d 20 2a 42 42 34 30 36 30 20 52 45 4d 20 2a 4d 45 4c 53 45 20 41 46 20 53 4b ┆BESTEM- *BB4060 REM *MELSE AF SK┆
0x0dc80…0dca0 41 4c 45 52 49 4e 47 45 4e 20 4f 47 20 4e 55 4c 50 55 4e 4b 54 45 54 2e 20 45 4c 4c 45 52 53 20 ┆ALERINGEN OG NULPUNKTET. ELLERS ┆
0x0dca0…0dcc0 42 45 4e 4e 59 54 54 45 53 20 45 4e 2a 42 42 34 30 37 30 20 52 45 4d 20 2a 53 4b 41 4c 45 52 49 ┆BENNYTTES EN*BB4070 REM *SKALERI┆
0x0dcc0…0dce0 4e 47 20 42 45 53 54 45 4d 54 20 41 46 20 58 53 4b 41 2c 59 53 4b 41 2c 20 4f 47 20 45 54 20 4e ┆NG BESTEMT AF XSKA,YSKA, OG ET N┆
0x0dce0…0dd00 55 4c 50 55 4e 4b 54 20 42 45 53 54 45 4d 54 20 2a 42 42 34 30 38 30 20 52 45 4d 20 2a 41 46 20 ┆ULPUNKT BESTEMT *BB4080 REM *AF ┆
0x0dd00…0dd20 (6, 1, 14) 58 4e 55 4c 2c 59 4e 55 4c 2e 20 4b 55 52 56 45 4e 20 54 45 47 4e 45 53 20 4d 45 44 20 44 45 4e ┆XNUL,YNUL. KURVEN TEGNES MED DEN┆
0x0dd20…0dd40 20 41 46 20 4c 49 54 59 20 56 41 4c 47 54 45 20 4c 49 2d 20 2a 42 42 34 30 39 30 20 52 45 4d 20 ┆ AF LITY VALGTE LI- *BB4090 REM ┆
0x0dd40…0dd60 2a 4e 49 45 54 59 50 45 2e 20 48 56 49 53 20 41 4b 53 52 20 45 52 20 4c 49 47 20 4d 45 44 20 45 ┆*NIETYPE. HVIS AKSR ER LIG MED E┆
0x0dd60…0dd80 45 4e 20 55 44 54 45 47 4e 45 53 20 44 45 53 55 44 45 4e 20 20 20 20 20 2a 42 42 34 31 30 30 20 ┆EN UDTEGNES DESUDEN *BB4100 ┆
0x0dd80…0dda0 52 45 4d 20 2a 4b 4f 4f 52 44 49 4e 41 54 41 4b 53 45 52 20 4d 45 44 20 54 45 4b 53 54 45 52 4e ┆REM *KOORDINATAKSER MED TEKSTERN┆
0x0dda0…0ddc0 45 20 58 54 45 2c 59 54 45 20 50 5d 53 41 54 2c 20 4f 47 20 50 4c 4f 54 54 45 2d 20 2a 42 42 34 ┆E XTE,YTE PÅSAT, OG PLOTTE- *BB4┆
0x0ddc0…0dde0 31 31 30 20 52 45 4d 20 2a 52 45 4e 53 20 4e 55 4c 50 55 4e 4b 54 20 46 41 53 54 53 5b 54 54 45 ┆110 REM *RENS NULPUNKT FASTSÆTTE┆
0x0dde0…0de00 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆S. ┆
0x0de00…0de20 (6, 1, 15) 2a 42 42 34 31 32 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*BB4120 REM ********************┆
0x0de20…0de40 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 2a 2a ┆********************************┆
0x0de40…0de60 2a 2a 2a 2a 2a 42 2f 34 31 33 30 20 4c 49 4e 24 3d 22 4c 49 4e 22 3b 58 53 3d 58 53 4b 41 3b 59 ┆*****B/4130 LIN$="LIN";XS=XSKA;Y┆
0x0de60…0de80 53 3d 59 53 4b 41 3b 58 5c 3d 58 4e 55 4c 3b 59 5c 3d 59 4e 55 4c 2f 23 34 31 34 30 20 58 4d 49 ┆S=YSKA;XØ=XNUL;YØ=YNUL/#4140 XMI┆
0x0de80…0dea0 2c 59 4d 49 3d 39 2e 32 45 31 38 3b 58 4d 58 2c 59 4d 58 3d 2d 39 2e 32 45 31 38 23 1e 34 31 35 ┆,YMI=9.2E18;XMX,YMX=-9.2E18# 415┆
0x0dea0…0dec0 30 20 46 4f 52 20 54 4b 3d 54 53 54 20 54 4f 20 54 53 4c 20 53 54 45 50 20 44 54 1e 18 34 31 36 ┆0 FOR TK=TST TO TSL STEP DT 416┆
0x0dec0…0dee0 30 20 45 58 45 43 20 50 41 52 4d 28 54 4b 2c 58 4b 2c 59 4b 29 18 1b 34 31 37 30 20 49 46 20 58 ┆0 EXEC PARM(TK,XK,YK) 4170 IF X┆
0x0dee0…0df00 4b 3c 3d 58 4d 49 20 54 48 45 4e 20 58 4d 49 3d 58 4b 1b 1b 34 31 38 30 20 49 46 20 58 4b 3d 3e ┆K<=XMI THEN XMI=XK 4180 IF XK=>┆
0x0df00…0df20 (6, 1, 16) 58 4d 58 20 54 48 45 4e 20 58 4d 58 3d 58 4b 1b 1b 34 31 39 30 20 49 46 20 59 4b 3c 3d 59 4d 49 ┆XMX THEN XMX=XK 4190 IF YK<=YMI┆
0x0df20…0df40 20 54 48 45 4e 20 59 4d 49 3d 59 4b 1b 1b 34 32 30 30 20 49 46 20 59 4b 3d 3e 59 4d 58 20 54 48 ┆ THEN YMI=YK 4200 IF YK=>YMX TH┆
0x0df40…0df60 45 4e 20 59 4d 58 3d 59 4b 1b 0c 34 32 31 30 20 4e 45 58 54 20 54 4b 0c 45 34 32 32 30 20 45 58 ┆EN YMX=YK 4210 NEXT TK E4220 EX┆
0x0df60…0df80 45 43 20 4b 4f 53 59 53 28 58 4d 49 2c 58 4d 58 2c 59 4d 49 2c 59 4d 58 2c 58 53 2c 59 53 2c 58 ┆EC KOSYS(XMI,XMX,YMI,YMX,XS,YS,X┆
0x0df80…0dfa0 5c 2c 59 5c 2c 4c 49 4e 24 2c 4c 49 4e 24 2c 41 4b 53 52 2c 58 54 45 24 2c 59 54 45 24 29 45 17 ┆Ø,YØ,LIN$,LIN$,AKSR,XTE$,YTE$)E ┆
0x0dfa0…0dfc0 34 32 33 30 20 45 58 45 43 20 50 41 52 4d 28 54 2c 58 4b 2c 59 4b 29 17 28 34 32 34 30 20 45 58 ┆4230 EXEC PARM(T,XK,YK) (4240 EX┆
0x0dfc0…0dfe0 45 43 20 46 4c 59 54 41 42 53 28 28 58 4b 2a 58 53 2b 58 5c 29 2c 28 59 4b 2a 59 53 2b 59 5c 29 ┆EC FLYTABS((XK*XS+XØ),(YK*YS+YØ)┆
0x0dfe0…0e000 29 28 1e 34 32 35 30 20 46 4f 52 20 54 4b 3d 54 53 54 20 54 4f 20 54 53 4c 20 53 54 45 50 20 44 ┆)( 4250 FOR TK=TST TO TSL STEP D┆
0x0e000…0e020 (7, 0, 1) 54 1e 18 34 32 36 30 20 45 58 45 43 20 50 41 52 4d 28 54 4b 2c 58 4b 2c 59 4b 29 18 2d 34 32 37 ┆T 4260 EXEC PARM(TK,XK,YK) -427┆
0x0e020…0e040 30 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 4c 49 54 59 2c 28 58 4b 2a 58 53 2b 58 5c 29 2c 28 ┆0 EXEC TEGNABS(LITY,(XK*XS+XØ),(┆
0x0e040…0e060 59 4b 2a 59 53 2b 59 5c 29 29 2d 0c 34 32 38 30 20 4e 45 58 54 20 54 4b 0c 0f 34 32 39 30 20 45 ┆YK*YS+YØ))- 4280 NEXT TK 4290 E┆
0x0e060…0e080 58 45 43 20 50 45 4e 4f 50 0f 15 34 33 30 30 20 45 4e 44 50 52 4f 43 20 3b 50 41 52 4b 52 56 2e ┆XEC PENOP 4300 ENDPROC ;PARKRV.┆
0x0e080…0e0a0 15 15 34 33 31 30 20 50 52 4f 43 20 50 41 52 4d 28 54 2c 58 2c 59 29 15 18 34 33 32 30 20 58 3d ┆ 4310 PROC PARM(T,X,Y) 4320 X=┆
0x0e0a0…0e0c0 35 2a 52 2a 43 4f 53 28 54 2f 31 38 30 2a 50 49 29 18 18 34 33 33 30 20 59 3d 32 2a 52 2a 53 49 ┆5*R*COS(T/180*PI) 4330 Y=2*R*SI┆
0x0e0c0…0e0e0 4e 28 54 2f 31 38 30 2a 50 49 29 18 13 34 33 34 30 20 45 4e 44 50 52 4f 43 20 3b 50 41 52 4d 2e ┆N(T/180*PI) 4340 ENDPROC ;PARM.┆
0x0e0e0…0e100 13 1e 34 33 35 30 20 44 49 4d 20 58 54 45 4b 53 54 24 28 31 29 2c 59 54 45 4b 53 54 24 28 31 29 ┆ 4350 DIM XTEKST$(1),YTEKST$(1)┆
0x0e100…0e120 (7, 0, 2) 1e 1c 34 33 36 30 20 58 54 45 4b 53 54 24 3d 22 58 22 3b 59 54 45 4b 53 54 24 3d 22 59 22 1c 0e ┆ 4360 XTEKST$="X";YTEKST$="Y" ┆
0x0e120…0e140 34 33 37 30 20 4f 55 54 50 55 54 20 50 31 0e 12 34 33 38 30 20 45 58 45 43 20 50 4c 4f 54 49 4e ┆4370 OUTPUT P1 4380 EXEC PLOTIN┆
0x0e140…0e160 49 54 12 19 34 33 38 35 20 46 4f 52 20 52 3d 35 20 54 4f 20 31 20 53 54 45 50 20 2d 31 19 3d 34 ┆IT 4385 FOR R=5 TO 1 STEP -1 =4┆
0x0e160…0e180 33 39 30 20 45 58 45 43 20 50 41 52 4b 52 56 28 30 2c 33 36 30 2c 31 2c 33 2c 33 2c 31 31 30 2c ┆390 EXEC PARKRV(0,360,1,3,3,110,┆
0x0e180…0e1a0 31 33 30 2c 52 2c 28 52 2d 34 29 2c 58 54 45 4b 53 54 24 2c 59 54 45 4b 53 54 24 29 3d 0b 34 33 ┆130,R,(R-4),XTEKST$,YTEKST$)= 43┆
0x0e1a0…0e1c0 39 35 20 4e 45 58 54 20 52 0b 0a 34 34 30 30 20 53 54 4f 50 20 0a 00 00 63 63 63 63 63 63 63 63 ┆95 NEXT R 4400 STOP cccccccc┆
0x0e1c0…0e1e0 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┆
[…0x1…]
0x0e200…0e300 (7, 0, 3) 0x63[0x100]
[…0x1…]
0x0e400…0e420 (7, 0, 5) 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┆
[…0x6…]
0x0e4e0…0e500 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 ┆
0x0e500…0e520 (7, 0, 6) ExtentHdr {name=»PNPARKRV«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000e,0f (0x00ef00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0e520…0e540 42 33 33 32 30 20 50 52 4f 43 20 50 41 52 4b 52 56 28 54 53 54 2c 54 53 4c 2c 44 54 2c 58 53 4b ┆B3320 PROC PARKRV(TST,TSL,DT,XSK┆
0x0e540…0e560 41 2c 59 53 4b 41 2c 58 4e 55 4c 2c 59 4e 55 4c 2c 4c 49 54 59 2c 41 4b 53 52 2c 58 54 45 2c 59 ┆A,YSKA,XNUL,YNUL,LITY,AKSR,XTE,Y┆
0x0e560…0e580 54 45 29 42 42 33 33 33 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TE)BB3330 REM ******************┆
0x0e580…0e5a0 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 2a 2a ┆********************************┆
0x0e5a0…0e5c0 2a 2a 2a 2a 2a 2a 2a 42 42 33 33 34 30 20 52 45 4d 20 2a 50 41 52 4b 52 56 20 46 4f 52 45 54 41 ┆*******BB3340 REM *PARKRV FORETA┆
0x0e5c0…0e5e0 47 45 52 20 45 4e 20 41 46 42 49 4c 44 4e 49 4e 47 20 41 46 20 50 41 52 41 4d 45 54 45 52 46 52 ┆GER EN AFBILDNING AF PARAMETERFR┆
0x0e5e0…0e600 45 4d 53 54 49 4c 4c 49 4e 2d 2a 42 42 33 33 35 30 20 52 45 4d 20 2a 47 45 4e 20 41 4e 47 49 56 ┆EMSTILLIN-*BB3350 REM *GEN ANGIV┆
0x0e600…0e620 (7, 0, 7) 45 54 20 49 20 50 52 4f 43 45 44 55 52 45 4e 20 50 41 52 4d 20 4d 45 44 20 50 41 52 41 4d 45 54 ┆ET I PROCEDUREN PARM MED PARAMET┆
0x0e620…0e640 45 52 45 4e 20 54 20 4c 5c 42 45 4e 44 45 2a 42 42 33 33 36 30 20 52 45 4d 20 2a 46 52 41 20 54 ┆EREN T LØBENDE*BB3360 REM *FRA T┆
0x0e640…0e660 53 54 20 54 49 4c 20 54 53 4c 20 4d 45 44 20 45 54 20 53 54 45 50 20 50 5d 20 44 54 2e 20 48 56 ┆ST TIL TSL MED ET STEP PÅ DT. HV┆
0x0e660…0e680 49 53 20 58 53 4b 41 20 4f 47 2f 45 4c 4c 45 52 20 20 2a 42 42 33 33 37 30 20 52 45 4d 20 2a 59 ┆IS XSKA OG/ELLER *BB3370 REM *Y┆
0x0e680…0e6a0 53 4b 41 20 45 52 20 4d 49 4e 44 52 45 20 45 4e 44 20 4e 55 4c 20 46 4f 52 45 54 41 47 45 53 20 ┆SKA ER MINDRE END NUL FORETAGES ┆
0x0e6a0…0e6c0 45 4e 20 41 55 54 4f 4d 41 54 49 53 4b 20 42 45 53 54 45 4d 2d 20 2a 42 42 33 33 38 30 20 52 45 ┆EN AUTOMATISK BESTEM- *BB3380 RE┆
0x0e6c0…0e6e0 4d 20 2a 4d 45 4c 53 45 20 41 46 20 53 4b 41 4c 45 52 49 4e 47 45 4e 20 4f 47 20 4e 55 4c 50 55 ┆M *MELSE AF SKALERINGEN OG NULPU┆
0x0e6e0…0e700 4e 4b 54 45 54 2e 20 45 4c 4c 45 52 53 20 42 45 4e 4e 59 54 54 45 53 20 45 4e 2a 42 42 33 33 39 ┆NKTET. ELLERS BENNYTTES EN*BB339┆
0x0e700…0e720 (7, 0, 8) 30 20 52 45 4d 20 2a 53 4b 41 4c 45 52 49 4e 47 20 42 45 53 54 45 4d 54 20 41 46 20 58 53 4b 41 ┆0 REM *SKALERING BESTEMT AF XSKA┆
0x0e720…0e740 2c 59 53 4b 41 2c 20 4f 47 20 45 54 20 4e 55 4c 50 55 4e 4b 54 20 42 45 53 54 45 4d 54 20 2a 42 ┆,YSKA, OG ET NULPUNKT BESTEMT *B┆
0x0e740…0e760 42 33 34 30 30 20 52 45 4d 20 2a 41 46 20 58 4e 55 4c 2c 59 4e 55 4c 2e 20 4b 55 52 56 45 4e 20 ┆B3400 REM *AF XNUL,YNUL. KURVEN ┆
0x0e760…0e780 54 45 47 4e 45 53 20 4d 45 44 20 44 45 4e 20 41 46 20 4c 49 54 59 20 56 41 4c 47 54 45 20 4c 49 ┆TEGNES MED DEN AF LITY VALGTE LI┆
0x0e780…0e7a0 2d 20 2a 42 42 33 34 31 30 20 52 45 4d 20 2a 4e 49 45 54 59 50 45 2e 20 48 56 49 53 20 41 4b 53 ┆- *BB3410 REM *NIETYPE. HVIS AKS┆
0x0e7a0…0e7c0 52 20 45 52 20 4c 49 47 20 4d 45 44 20 45 45 4e 20 55 44 54 45 47 4e 45 53 20 44 45 53 55 44 45 ┆R ER LIG MED EEN UDTEGNES DESUDE┆
0x0e7c0…0e7e0 4e 20 20 20 20 20 2a 42 42 33 34 32 30 20 52 45 4d 20 2a 4b 4f 4f 52 44 49 4e 41 54 41 4b 53 45 ┆N *BB3420 REM *KOORDINATAKSE┆
0x0e7e0…0e800 52 20 4d 45 44 20 54 45 4b 53 54 45 52 4e 45 20 58 54 45 2c 59 54 45 20 50 5d 53 41 54 2c 20 4f ┆R MED TEKSTERNE XTE,YTE PÅSAT, O┆
0x0e800…0e820 (7, 0, 9) 47 20 50 4c 4f 54 54 45 2d 20 2a 42 42 33 34 33 30 20 52 45 4d 20 2a 52 45 4e 53 20 4e 55 4c 50 ┆G PLOTTE- *BB3430 REM *RENS NULP┆
0x0e820…0e840 55 4e 4b 54 20 46 41 53 54 53 5b 54 54 45 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UNKT FASTSÆTTES. ┆
0x0e840…0e860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 42 42 33 34 34 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆ *BB3440 REM ******┆
0x0e860…0e880 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 2a 2a ┆********************************┆
0x0e880…0e8a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 42 2f 33 34 35 30 20 4c 49 4e 24 3d 22 ┆*******************B/3450 LIN$="┆
0x0e8a0…0e8c0 4c 49 4e 22 3b 58 53 3d 58 53 4b 41 3b 59 53 3d 59 53 4b 41 3b 58 5c 3d 58 4e 55 4c 3b 59 5c 3d ┆LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=┆
0x0e8c0…0e8e0 59 4e 55 4c 2f 23 33 34 36 30 20 58 4d 49 2c 59 4d 49 3d 39 2e 32 45 31 38 3b 58 4d 58 2c 59 4d ┆YNUL/#3460 XMI,YMI=9.2E18;XMX,YM┆
0x0e8e0…0e900 58 3d 2d 39 2e 32 45 31 38 23 1e 33 34 37 30 20 46 4f 52 20 54 4b 3d 54 53 54 20 54 4f 20 54 53 ┆X=-9.2E18# 3470 FOR TK=TST TO TS┆
0x0e900…0e920 (7, 0, 10) 4c 20 53 54 45 50 20 44 54 1e 18 33 34 38 30 20 45 58 45 43 20 50 41 52 4d 28 54 4b 2c 58 4b 2c ┆L STEP DT 3480 EXEC PARM(TK,XK,┆
0x0e920…0e940 59 4b 29 18 1b 33 34 39 30 20 49 46 20 58 4b 3c 3d 58 4d 49 20 54 48 45 4e 20 58 4d 49 3d 58 4b ┆YK) 3490 IF XK<=XMI THEN XMI=XK┆
0x0e940…0e960 1b 1b 33 35 30 30 20 49 46 20 58 4b 3d 3e 58 4d 58 20 54 48 45 4e 20 58 4d 58 3d 58 4b 1b 1b 33 ┆ 3500 IF XK=>XMX THEN XMX=XK 3┆
0x0e960…0e980 35 31 30 20 49 46 20 59 4b 3c 3d 59 4d 49 20 54 48 45 4e 20 59 4d 49 3d 59 4b 1b 1b 33 35 32 30 ┆510 IF YK<=YMI THEN YMI=YK 3520┆
0x0e980…0e9a0 20 49 46 20 59 4b 3d 3e 59 4d 58 20 54 48 45 4e 20 59 4d 58 3d 59 4b 1b 0c 33 35 33 30 20 4e 45 ┆ IF YK=>YMX THEN YMX=YK 3530 NE┆
0x0e9a0…0e9c0 58 54 20 54 4b 0c 45 33 35 34 30 20 45 58 45 43 20 4b 4f 53 59 53 28 58 4d 49 2c 58 4d 58 2c 59 ┆XT TK E3540 EXEC KOSYS(XMI,XMX,Y┆
0x0e9c0…0e9e0 4d 49 2c 59 4d 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 ┆MI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKS┆
0x0e9e0…0ea00 52 2c 58 54 45 24 2c 59 54 45 24 29 45 17 33 35 35 30 20 45 58 45 43 20 50 41 52 4d 28 54 2c 58 ┆R,XTE$,YTE$)E 3550 EXEC PARM(T,X┆
0x0ea00…0ea20 (7, 0, 11) 4b 2c 59 4b 29 17 28 33 35 36 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 28 58 4b 2a 58 53 2b ┆K,YK) (3560 EXEC FLYTABS((XK*XS+┆
0x0ea20…0ea40 58 5c 29 2c 28 59 4b 2a 59 53 2b 59 5c 29 29 28 1e 33 35 37 30 20 46 4f 52 20 54 4b 3d 54 53 54 ┆XØ),(YK*YS+YØ))( 3570 FOR TK=TST┆
0x0ea40…0ea60 20 54 4f 20 54 53 4c 20 53 54 45 50 20 44 54 1e 18 33 35 38 30 20 45 58 45 43 20 50 41 52 4d 28 ┆ TO TSL STEP DT 3580 EXEC PARM(┆
0x0ea60…0ea80 54 4b 2c 58 4b 2c 59 4b 29 18 2d 33 35 39 30 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 4c 49 54 ┆TK,XK,YK) -3590 EXEC TEGNABS(LIT┆
0x0ea80…0eaa0 59 2c 28 58 4b 2a 58 53 2b 58 5c 29 2c 28 59 4b 2a 59 53 2b 59 5c 29 29 2d 0c 33 36 30 30 20 4e ┆Y,(XK*XS+XØ),(YK*YS+YØ))- 3600 N┆
0x0eaa0…0eac0 45 58 54 20 54 4b 0c 0f 33 36 31 30 20 45 58 45 43 20 50 45 4e 4f 50 0f 15 33 36 32 30 20 45 4e ┆EXT TK 3610 EXEC PENOP 3620 EN┆
0x0eac0…0eae0 44 50 52 4f 43 20 3b 50 41 52 4b 52 56 2e 15 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆DPROC ;PARKRV. ccccccccccccccc┆
0x0eae0…0eb00 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┆
0x0eb00…0ec00 (7, 0, 12) 0x63[0x100]
[…0x2…]
0x0ee00…0ee20 (7, 0, 15) 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┆
[…0x6…]
0x0eee0…0ef00 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 ┆
0x0ef00…0ef20 (7, 0, 16) ExtentHdr {name=»DEMO1 «, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 000f,09 (0x00f900)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000f,09 (0x00f900)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0ef20…0ef40 3c 30 31 30 30 20 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 ┆<0100 REM **********************┆
0x0ef40…0ef60 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 3c 3c 30 ┆*****************************<<0┆
0x0ef60…0ef80 31 31 30 20 52 45 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 49 20 44 45 4e 4e 45 20 46 49 ┆110 REM *PROCEDURERNE I DENNE FI┆
0x0ef80…0efa0 4c 20 45 52 20 44 45 20 4e 5c 44 56 45 4e 44 49 47 45 20 47 52 55 4e 44 2d 20 2a 3c 3c 30 31 32 ┆L ER DE NØDVENDIGE GRUND- *<<012┆
0x0efa0…0efc0 30 20 52 45 4d 20 2a 45 4c 45 4d 45 4e 54 45 52 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 ┆0 REM *ELEMENTER TIL STYRING AF ┆
0x0efc0…0efe0 50 4c 4f 54 54 45 52 45 4e 2c 20 4f 47 20 45 52 20 44 45 46 4f 52 20 20 2a 3c 3c 30 31 33 30 20 ┆PLOTTEREN, OG ER DEFOR *<<0130 ┆
0x0efe0…0f000 52 45 4d 20 2a 44 49 52 45 4b 54 45 20 41 46 48 5b 4e 47 49 47 20 41 46 20 44 45 4e 20 41 4e 56 ┆REM *DIREKTE AFHÆNGIG AF DEN ANV┆
0x0f000…0f020 (7, 1, 1) 45 4e 44 54 45 20 50 4c 4f 54 54 45 52 2e 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 34 30 20 52 45 ┆ENDTE PLOTTER. *<<0140 RE┆
0x0f020…0f040 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 48 45 52 20 4b 41 4e 20 4b 55 4e 20 41 4e 56 45 ┆M *PROCEDURERNE HER KAN KUN ANVE┆
0x0f040…0f060 4e 44 45 53 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 2a 3c 3c 30 31 35 30 20 52 45 4d 20 ┆NDES TIL STYRING AF *<<0150 REM ┆
0x0f060…0f080 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* ┆
0x0f080…0f0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 36 30 20 52 45 4d 20 2a 20 ┆ *<<0160 REM * ┆
0x0f0a0…0f0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 49 20 50 4c 5c 54 20 20 20 20 20 ┆ HI PLØT ┆
0x0f0c0…0f0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 37 30 20 52 45 4d 20 2a 4d 4f 44 ┆ *<<0170 REM *MOD┆
0x0f0e0…0f100 45 4c 20 20 20 20 20 20 20 20 44 4d 50 2d 33 2c 44 4d 50 2d 34 2c 44 4d 50 2d 36 2c 44 4d 50 2d ┆EL DMP-3,DMP-4,DMP-6,DMP-┆
0x0f100…0f120 (7, 1, 2) 37 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 38 30 20 52 45 4d 20 2a 46 52 41 20 20 ┆7 *<<0180 REM *FRA ┆
0x0f120…0f140 20 20 20 20 20 20 20 20 20 20 48 4f 55 53 54 4f 4e 20 49 4e 53 54 52 55 4d 45 4e 54 20 20 20 20 ┆ HOUSTON INSTRUMENT ┆
0x0f140…0f160 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 39 30 20 52 45 4d 20 2a 20 20 20 20 20 20 20 ┆ *<<0190 REM * ┆
0x0f160…0f180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f180…0f1a0 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 32 30 30 20 52 45 4d 20 2a 44 44 45 20 20 20 20 20 20 ┆ *<<0200 REM *DDE ┆
0x0f1a0…0f1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f1c0…0f1e0 20 20 20 20 31 39 38 32 2a 3c 3c 30 32 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 1982*<<0210 REM ************┆
0x0f1e0…0f200 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 2a 2a ┆********************************┆
0x0f200…0f220 (7, 1, 3) 2a 2a 2a 2a 2a 2a 2a 3c 2a 30 32 32 30 20 52 45 4d 20 4c 49 4e 20 41 4e 56 45 4e 44 45 53 20 49 ┆*******<*0220 REM LIN ANVENDES I┆
0x0f220…0f240 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 49 4e 4b 52 56 2e 2a 2c 30 32 33 30 20 52 45 4d 20 58 54 ┆ PROCEDUREN LINKRV.*,0230 REM XT┆
0x0f240…0f260 2c 59 54 20 41 4e 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 4f 47 4b 52 56 ┆,YT ANVENDES I PROCEDUREN LOGKRV┆
0x0f260…0f280 2e 2c 1e 30 32 34 30 20 44 49 4d 20 4c 49 4e 24 28 33 29 2c 58 54 24 28 33 29 2c 59 54 24 28 33 ┆., 0240 DIM LIN$(3),XT$(3),YT$(3┆
0x0f280…0f2a0 29 1e 2d 30 32 35 30 20 52 45 4d 20 52 4f 55 20 41 46 52 55 4e 44 45 52 20 45 54 20 52 45 45 4c ┆) -0250 REM ROU AFRUNDER ET REEL┆
0x0f2a0…0f2c0 54 20 54 41 4c 20 54 49 4c 20 48 45 4c 54 41 4c 2d 34 30 32 36 30 20 52 45 4d 20 4f 47 20 41 4e ┆T TAL TIL HELTAL-40260 REM OG AN┆
0x0f2c0…0f2e0 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 52 4e 45 20 53 54 49 50 52 45 4c 20 4f 47 ┆VENDES I PROCEDURERNE STIPREL OG┆
0x0f2e0…0f300 20 41 4b 53 45 2e 34 1a 30 32 37 30 20 44 45 46 20 52 4f 55 28 5a 29 3d 49 4e 54 28 5a 2b 30 2e ┆ AKSE.4 0270 DEF ROU(Z)=INT(Z+0.┆
0x0f300…0f320 (7, 1, 4) 35 29 1a 11 30 32 38 30 20 50 49 3d 33 2e 31 34 31 35 39 32 36 11 12 30 32 39 30 20 50 52 4f 43 ┆5) 0280 PI=3.1415926 0290 PROC┆
0x0f320…0f340 20 50 4c 4f 54 49 4e 49 54 12 2a 30 33 30 30 20 52 45 4d 20 5d 42 4e 45 52 20 50 4c 4f 54 54 45 ┆ PLOTINIT *0300 REM ÅBNER PLOTTE┆
0x0f340…0f360 52 45 4e 20 4f 47 20 4c 5c 46 54 45 52 20 50 45 4e 4e 45 4e 2c 2a 29 30 33 31 30 20 52 45 4d 20 ┆REN OG LØFTER PENNEN,*)0310 REM ┆
0x0f360…0f380 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 54 49 4c 20 28 30 2c 30 29 20 3d 20 48 4f 4d 45 2e ┆FLYTTER PENNEN TIL (0,0) = HOME.┆
0x0f380…0f3a0 29 18 30 33 32 30 20 50 52 49 4e 54 20 22 49 3b 3a 20 49 3b 3a 20 55 20 48 22 18 17 30 33 33 30 ┆) 0320 PRINT "I;: I;: U H" 0330┆
0x0f3a0…0f3c0 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 49 4e 49 54 2e 17 12 30 33 34 30 20 50 52 4f 43 20 50 ┆ ENDPROC ;PLOTINIT. 0340 PROC P┆
0x0f3c0…0f3e0 4c 4f 54 53 4c 55 54 12 1c 30 33 35 30 20 52 45 4d 20 41 46 42 52 59 44 45 52 20 50 4c 4f 54 54 ┆LOTSLUT 0350 REM AFBRYDER PLOTT┆
0x0f3e0…0f400 45 52 45 4e 2e 1c 0e 30 33 36 30 20 50 52 49 4e 54 20 22 40 22 0e 17 30 33 37 30 20 45 4e 44 50 ┆EREN. 0360 PRINT "@" 0370 ENDP┆
0x0f400…0f420 (7, 1, 5) 52 4f 43 20 3b 50 4c 4f 54 53 4c 55 54 2e 17 12 30 33 38 30 20 50 52 4f 43 20 50 4c 4f 54 54 45 ┆ROC ;PLOTSLUT. 0380 PROC PLOTTE┆
0x0f420…0f440 53 54 12 2b 30 33 39 30 20 52 45 4d 20 4b 5c 52 45 52 20 50 4c 4f 54 54 45 52 45 4e 53 20 53 45 ┆ST +0390 REM KØRER PLOTTERENS SE┆
0x0f440…0f460 4c 56 54 45 53 54 20 50 52 4f 47 52 41 4d 2e 2b 0e 30 34 30 30 20 50 52 49 4e 54 20 22 54 22 0e ┆LVTEST PROGRAM.+ 0400 PRINT "T" ┆
0x0f460…0f480 17 30 34 31 30 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 54 45 53 54 2e 17 10 30 34 32 30 20 50 ┆ 0410 ENDPROC ;PLOTTEST. 0420 P┆
0x0f480…0f4a0 52 4f 43 20 4e 55 4c 50 4b 54 10 1f 30 34 33 30 20 52 45 4d 20 46 41 53 54 53 5b 54 54 45 52 20 ┆ROC NULPKT 0430 REM FASTSÆTTER ┆
0x0f4a0…0f4c0 4e 55 4c 50 55 4e 4b 54 45 54 2e 1f 0e 30 34 34 30 20 50 52 49 4e 54 20 22 4f 22 0e 15 30 34 35 ┆NULPUNKTET. 0440 PRINT "O" 045┆
0x0f4c0…0f4e0 30 20 45 4e 44 50 52 4f 43 20 3b 4e 55 4c 50 4b 54 2e 15 10 30 34 36 30 20 50 52 4f 43 20 50 45 ┆0 ENDPROC ;NULPKT. 0460 PROC PE┆
0x0f4e0…0f500 4e 4e 45 44 10 26 30 34 37 30 20 52 45 4d 20 53 5b 54 54 45 52 20 50 45 4e 4e 45 4e 20 4e 45 44 ┆NNED &0470 REM SÆTTER PENNEN NED┆
0x0f500…0f520 (7, 1, 6) 20 50 5d 20 50 41 50 49 52 45 54 2e 26 0e 30 34 38 30 20 50 52 49 4e 54 20 22 44 22 0e 15 30 34 ┆ PÅ PAPIRET.& 0480 PRINT "D" 04┆
0x0f520…0f540 39 30 20 45 4e 44 50 52 4f 43 20 3b 50 45 4e 4e 45 44 2e 15 0f 30 35 30 30 20 50 52 4f 43 20 50 ┆90 ENDPROC ;PENNED. 0500 PROC P┆
0x0f540…0f560 45 4e 4f 50 0f 25 30 35 31 30 20 52 45 4d 20 48 5b 56 45 52 20 50 45 4e 4e 45 4e 20 4f 50 20 46 ┆ENOP %0510 REM HÆVER PENNEN OP F┆
0x0f560…0f580 52 41 20 50 41 50 49 52 45 54 2e 25 0e 30 35 32 30 20 50 52 49 4e 54 20 22 55 22 0e 14 30 35 33 ┆RA PAPIRET.% 0520 PRINT "U" 053┆
0x0f580…0f5a0 30 20 45 4e 44 50 52 4f 43 20 3b 50 45 4e 4f 50 2e 14 16 30 35 34 30 20 50 52 4f 43 20 46 4c 59 ┆0 ENDPROC ;PENOP. 0540 PROC FLY┆
0x0f5a0…0f5c0 54 41 42 53 28 58 2c 59 29 16 38 30 35 35 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e ┆TABS(X,Y) 80550 REM FLYTTER PENN┆
0x0f5c0…0f5e0 45 4e 20 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c ┆EN ABSOLUT TIL KOORDINATERNE (X,┆
0x0f5e0…0f600 59 29 2e 38 16 30 35 36 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 35 37 ┆Y).8 0560 X=INT(X);Y=INT(Y) 057┆
0x0f600…0f620 (7, 1, 7) 30 20 50 52 49 4e 54 20 22 55 20 41 22 3b 58 3b 22 2c 22 3b 59 18 16 30 35 38 30 20 45 4e 44 50 ┆0 PRINT "U A";X;",";Y 0580 ENDP┆
0x0f620…0f640 52 4f 43 20 3b 46 4c 59 54 41 42 53 2e 16 1d 30 35 39 30 20 50 52 4f 43 20 54 45 47 4e 41 42 53 ┆ROC ;FLYTABS. 0590 PROC TEGNABS┆
0x0f640…0f660 28 4c 49 4e 54 59 50 2c 58 2c 59 29 1d 35 30 36 30 30 20 52 45 4d 20 54 45 47 4e 45 52 20 4c 49 ┆(LINTYP,X,Y) 50600 REM TEGNER LI┆
0x0f660…0f680 4e 49 45 20 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 ┆NIE ABSOLUT TIL KOORDINATERNE (X┆
0x0f680…0f6a0 2c 59 29 35 23 30 36 31 30 20 52 45 4d 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 49 ┆,Y)5#0610 REM MED DEN ANGIVNE LI┆
0x0f6a0…0f6c0 4e 49 45 54 59 50 45 2e 23 16 30 36 32 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 ┆NIETYPE.# 0620 X=INT(X);Y=INT(Y)┆
0x0f6c0…0f6e0 16 29 30 36 33 30 20 50 52 49 4e 54 20 22 44 20 41 20 4c 22 2b 43 48 52 28 34 38 2b 4c 49 4e 54 ┆ )0630 PRINT "D A L"+CHR(48+LINT┆
0x0f6e0…0f700 59 50 29 3b 58 3b 22 2c 22 3b 59 29 16 30 36 34 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 41 ┆YP);X;",";Y) 0640 ENDPROC ;TEGNA┆
0x0f700…0f720 (7, 1, 8) 42 53 2e 16 16 30 36 35 30 20 50 52 4f 43 20 46 4c 59 54 52 45 4c 28 58 2c 59 29 16 39 30 36 36 ┆BS. 0650 PROC FLYTREL(X,Y) 9066┆
0x0f720…0f740 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 52 45 4c 41 54 49 56 54 20 54 49 ┆0 REM FLYTTER PENNEN RELATIVT TI┆
0x0f740…0f760 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 39 16 30 36 37 30 20 58 3d 49 ┆L KOORDINATERNE (X,Y).9 0670 X=I┆
0x0f760…0f780 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 36 38 30 20 50 52 49 4e 54 20 22 55 20 52 22 ┆NT(X);Y=INT(Y) 0680 PRINT "U R"┆
0x0f780…0f7a0 3b 58 3b 22 2c 22 3b 59 18 16 30 36 39 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e ┆;X;",";Y 0690 ENDPROC ;FLYTREL.┆
0x0f7a0…0f7c0 16 16 30 37 30 30 20 50 52 4f 43 20 54 45 47 4e 52 45 4c 28 58 2c 59 29 16 37 30 37 31 30 20 52 ┆ 0700 PROC TEGNREL(X,Y) 70710 R┆
0x0f7c0…0f7e0 45 4d 20 54 45 47 4e 45 52 20 4c 49 4e 49 45 20 52 45 4c 41 54 49 56 54 20 54 49 4c 20 4b 4f 4f ┆EM TEGNER LINIE RELATIVT TIL KOO┆
0x0f7e0…0f800 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 37 16 30 37 32 30 20 58 3d 49 4e 54 28 58 29 ┆RDINATERNE (X,Y).7 0720 X=INT(X)┆
0x0f800…0f820 (7, 1, 9) 3b 59 3d 49 4e 54 28 59 29 16 1b 30 37 33 30 20 50 52 49 4e 54 20 22 44 20 52 20 4c 30 22 3b 58 ┆;Y=INT(Y) 0730 PRINT "D R L0";X┆
0x0f820…0f840 3b 22 2c 22 3b 59 1b 16 30 37 34 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e 16 20 ┆;",";Y 0740 ENDPROC ;FLYTREL. ┆
0x0f840…0f860 30 37 35 30 20 50 52 4f 43 20 46 4c 59 54 50 4f 4c 28 56 49 4e 4b 45 4c 2c 4c 5b 4e 47 44 45 29 ┆0750 PROC FLYTPOL(VINKEL,LÆNGDE)┆
0x0f860…0f880 20 35 30 37 36 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 44 45 4e 20 41 4e ┆ 50760 REM FLYTTER PENNEN DEN AN┆
0x0f880…0f8a0 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d 45 44 20 44 45 4e 35 2f 30 37 37 30 20 52 45 ┆GIVNE LÆNGDE OG MED DEN5/0770 RE┆
0x0f8a0…0f8c0 4d 20 41 4e 46 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 ┆M ANFGIVNE VINKEL I FORHOLD TIL ┆
0x0f8c0…0f8e0 56 41 4e 44 52 45 54 2e 2f 25 30 37 38 30 20 58 3d 49 4e 54 28 4c 5b 4e 47 44 45 2a 43 4f 53 28 ┆VANDRET./%0780 X=INT(LÆNGDE*COS(┆
0x0f8e0…0f900 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 25 30 37 39 30 20 59 3d 49 4e 54 28 4c 5b 4e 47 ┆VINKEL/180*PI))%%0790 Y=INT(LÆNG┆
0x0f900…0f920 (7, 1, 10) ExtentHdr {name=»DEMO1 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0010,03 (0x010300)}, prevext={DA 000e,0f (0x00ef00)}, nextfile={DA 0010,03 (0x010300)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x0f920…0f940 44 45 2a 53 49 4e 28 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 18 30 38 30 30 20 50 52 49 ┆DE*SIN(VINKEL/180*PI))% 0800 PRI┆
0x0f940…0f960 4e 54 20 22 55 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 38 31 30 20 45 4e 44 50 52 4f 43 20 3b ┆NT "U R";X;",";Y 0810 ENDPROC ;┆
0x0f960…0f980 46 4c 59 54 50 4f 4c 2e 16 20 30 38 32 30 20 50 52 4f 43 20 54 45 47 4e 50 4f 4c 28 56 49 4e 4b ┆FLYTPOL. 0820 PROC TEGNPOL(VINK┆
0x0f980…0f9a0 45 4c 2c 4c 5b 4e 47 44 45 29 20 36 30 38 33 30 20 52 45 4d 20 54 45 47 4e 45 52 20 45 4e 20 4c ┆EL,LÆNGDE) 60830 REM TEGNER EN L┆
0x0f9a0…0f9c0 49 4e 49 45 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d ┆INIE MED DEN ANGIVNE LÆNGDE OG M┆
0x0f9c0…0f9e0 45 44 36 31 30 38 34 30 20 52 45 4d 20 44 45 20 41 4e 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 ┆ED610840 REM DE ANGIVNE VINKEL I┆
0x0f9e0…0fa00 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 31 25 30 38 35 30 20 58 3d 49 4e ┆ FORHOLD TIL VANDRET.1%0850 X=IN┆
0x0fa00…0fa20 (7, 1, 11) 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 30 38 ┆T(LÆNGDE*COS(VINKEL/180*PI))%%08┆
0x0fa20…0fa40 36 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 ┆60 Y=INT(LÆNGDE*SIN(VINKEL/180*P┆
0x0fa40…0fa60 49 29 29 25 18 30 38 37 30 20 50 52 49 4e 54 20 22 44 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 ┆I))% 0870 PRINT "D R";X;",";Y 0┆
0x0fa60…0fa80 38 38 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 50 4f 4c 2e 16 1d 30 38 39 30 20 50 52 4f 43 ┆880 ENDPROC ;TEGNPOL. 0890 PROC┆
0x0fa80…0faa0 20 53 59 4d 42 4f 4c 28 48 5c 4a 44 45 2c 46 49 47 55 52 29 1d 47 30 39 30 30 20 52 45 4d 20 54 ┆ SYMBOL(HØJDE,FIGUR) G0900 REM T┆
0x0faa0…0fac0 45 47 4e 45 52 20 45 54 20 41 46 20 46 49 47 55 52 45 52 4e 45 3a 50 4c 55 53 28 30 29 2c 4b 4f ┆EGNER ET AF FIGURERNE:PLUS(0),KO┆
0x0fac0…0fae0 52 53 28 31 29 2c 46 49 52 4b 41 4e 54 28 32 29 2c 4f 54 54 45 4b 41 4e 54 28 33 29 2c 47 40 30 ┆RS(1),FIRKANT(2),OTTEKANT(3),G@0┆
0x0fae0…0fb00 39 31 30 20 52 45 4d 20 54 52 45 4b 41 4e 54 28 34 29 2c 54 49 4d 45 47 4c 41 53 28 35 29 2c 20 ┆910 REM TREKANT(4),TIMEGLAS(5), ┆
0x0fb00…0fb20 (7, 1, 12) 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 2c 34 2c 35 2e 40 ┆MED EN AF HØJDERNE 0,1,2,3,4,5.@┆
0x0fb20…0fb40 2f 30 39 32 30 20 50 52 49 4e 54 20 22 4d 22 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 2b 43 48 ┆/0920 PRINT "M"+CHR(48+HØJDE)+CH┆
0x0fb40…0fb60 52 28 34 38 2b 46 49 47 55 52 29 2b 22 20 55 22 2f 15 30 39 33 30 20 45 4e 44 50 52 4f 43 20 3b ┆R(48+FIGUR)+" U"/ 0930 ENDPROC ;┆
0x0fb60…0fb80 53 59 4d 42 4f 4c 2e 15 22 30 39 34 30 20 50 52 4f 43 20 54 45 4b 53 54 28 56 49 4e 4b 45 4c 2c ┆SYMBOL. "0940 PROC TEKST(VINKEL,┆
0x0fb80…0fba0 48 5c 4a 44 45 2c 54 45 58 54 29 22 31 30 39 35 30 20 52 45 4d 20 55 44 53 4b 52 49 56 45 52 20 ┆HØJDE,TEXT)"10950 REM UDSKRIVER ┆
0x0fba0…0fbc0 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 5c 4a 44 45 31 29 ┆EN TEKST MED DEN ANGIVNE HØJDE1)┆
0x0fbc0…0fbe0 30 39 36 30 20 52 45 4d 20 4f 47 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c ┆0960 REM OG VINKEL I FORHOLD TIL┆
0x0fbe0…0fc00 20 56 41 4e 44 52 45 54 2e 29 24 30 39 37 30 20 56 3d 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c ┆ VANDRET.)$0970 V=1+((360-VINKEL┆
0x0fc00…0fc20 (7, 1, 13) 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 34 30 39 38 30 20 50 52 49 4e 54 20 22 53 22 2b ┆) DIV 90) MOD 4$40980 PRINT "S"+┆
0x0fc20…0fc40 43 48 52 28 34 38 2b 56 29 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 3b 22 20 22 3b 54 45 58 54 ┆CHR(48+V)+CHR(48+HØJDE);" ";TEXT┆
0x0fc40…0fc60 24 3b 22 5f 22 34 14 30 39 39 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 4b 53 54 2e 14 1e 31 30 30 ┆$;"_"4 0990 ENDPROC ;TEKST. 100┆
0x0fc60…0fc80 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 31 30 31 ┆0 PROC TAL(VINKEL,HØJDE,NR) ;101┆
0x0fc80…0fca0 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 4e 20 41 ┆0 REM UDSKRIVER ET TAL MED DEN A┆
0x0fca0…0fcc0 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 31 30 32 30 20 52 ┆NGIVNE HØJDE OG VINKEL I; 1020 R┆
0x0fcc0…0fce0 45 4d 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 1d 24 31 30 33 30 20 56 3d ┆EM FORHOLD TIL VANDRET. $1030 V=┆
0x0fce0…0fd00 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 27 31 ┆1+((360-VINKEL) DIV 90) MOD 4$'1┆
0x0fd00…0fd20 (7, 1, 14) 30 34 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 ┆040 PRINT "S"+CHR(48+V)+CHR(48+H┆
0x0fd20…0fd40 5c 4a 44 45 29 3b 27 25 31 30 35 30 20 49 46 20 4e 52 3c 3d 2d 31 20 4f 52 20 4e 52 3d 30 20 4f ┆ØJDE);'%1050 IF NR<=-1 OR NR=0 O┆
0x0fd40…0fd60 52 20 31 3c 3d 4e 52 20 54 48 45 4e 20 25 11 31 30 36 30 20 50 52 49 4e 54 20 4e 52 3b 22 5f 22 ┆R 1<=NR THEN % 1060 PRINT NR;"_"┆
0x0fd60…0fd80 11 0a 31 30 37 30 20 45 4c 53 45 20 0a 1d 31 30 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 ┆ 1070 ELSE 1080 PRINT USING "┆
0x0fd80…0fda0 20 23 2e 23 23 20 5f 22 3a 4e 52 1d 0b 31 30 39 30 20 45 4e 44 49 46 20 0b 12 31 31 30 30 20 45 ┆ #.## _":NR 1090 ENDIF 1100 E┆
0x0fda0…0fdc0 4e 44 50 52 4f 43 20 3b 54 41 4c 2e 12 24 31 31 31 30 20 50 52 4f 43 20 53 54 49 50 52 45 4c 28 ┆NDPROC ;TAL. $1110 PROC STIPREL(┆
0x0fdc0…0fde0 53 54 52 45 47 2c 4d 4c 52 55 4d 2c 58 53 2c 59 53 29 24 3d 31 31 32 30 20 52 45 4d 20 2a 2a 2a ┆STREG,MLRUM,XS,YS)$=1120 REM ***┆
0x0fde0…0fe00 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 2a 2a ┆********************************┆
0x0fe00…0fe20 (7, 1, 15) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3d 3d 31 31 33 30 20 52 45 4d 20 2a 53 54 49 ┆*****************==1130 REM *STI┆
0x0fe20…0fe40 50 52 45 4c 20 54 45 47 4e 45 52 20 52 45 4c 41 54 49 56 54 20 45 4e 20 53 54 49 50 4c 45 54 20 ┆PREL TEGNER RELATIVT EN STIPLET ┆
0x0fe40…0fe60 4c 49 4e 49 45 20 54 49 4c 20 58 53 2c 59 53 2a 3d 3d 31 31 34 30 20 52 45 4d 20 2a 4d 45 44 20 ┆LINIE TIL XS,YS*==1140 REM *MED ┆
0x0fe60…0fe80 53 54 52 45 47 4c 5b 4e 47 44 45 4e 20 53 54 52 45 47 20 4f 47 20 4d 45 4c 4c 45 4d 52 55 4d 53 ┆STREGLÆNGDEN STREG OG MELLEMRUMS┆
0x0fe80…0fea0 4c 5b 4e 47 44 45 4e 20 4d 4c 52 55 4d 2e 2a 3d 3d 31 31 35 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆LÆNGDEN MLRUM.*==1150 REM ******┆
0x0fea0…0fec0 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 2a 2a ┆********************************┆
0x0fec0…0fee0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3d 17 31 31 36 30 20 50 52 4f 43 20 52 4f 55 46 28 54 ┆**************= 1160 PROC ROUF(T┆
0x0fee0…0ff00 2c 41 2c 52 2c 53 29 17 1d 31 31 37 30 20 54 3d 54 2b 53 3b 44 3d 41 3b 41 3d 52 4f 55 28 54 29 ┆,A,R,S) 1170 T=T+S;D=A;A=ROU(T)┆
0x0ff00…0ff20 (7, 1, 16) 3b 52 3d 41 2d 44 1d 13 31 31 38 30 20 45 4e 44 50 52 4f 43 20 3b 52 4f 55 46 2e 13 17 31 31 39 ┆;R=A-D 1180 ENDPROC ;ROUF. 119┆
0x0ff20…0ff40 30 20 4c 3d 53 51 52 28 58 53 2a 2a 32 2b 59 53 2a 2a 32 29 17 18 31 32 30 30 20 58 4c 2c 59 4c ┆0 L=SQR(XS**2+YS**2) 1200 XL,YL┆
0x0ff40…0ff60 2c 58 41 2c 59 41 2c 58 52 2c 59 52 3d 30 18 1f 31 32 31 30 20 49 46 20 4c 3c 3e 30 20 41 4e 44 ┆,XA,YA,XR,YR=0 1210 IF L<>0 AND┆
0x0ff60…0ff80 20 53 54 52 45 47 3c 3e 30 20 54 48 45 4e 20 1f 3c 31 32 32 30 20 53 58 3d 53 54 52 45 47 2a 58 ┆ STREG<>0 THEN <1220 SX=STREG*X┆
0x0ff80…0ffa0 53 2f 4c 3b 53 59 3d 53 54 52 45 47 2a 59 53 2f 4c 3b 4d 58 3d 4d 4c 52 55 4d 2a 58 53 2f 4c 3b ┆S/L;SY=STREG*YS/L;MX=MLRUM*XS/L;┆
0x0ffa0…0ffc0 4d 59 3d 4d 4c 52 55 4d 2a 59 53 2f 4c 3c 1b 31 32 33 30 20 45 58 45 43 20 52 4f 55 46 28 58 4c ┆MY=MLRUM*YS/L< 1230 EXEC ROUF(XL┆
0x0ffc0…0ffe0 2c 58 41 2c 58 52 2c 53 58 29 1b 1b 31 32 34 30 20 45 58 45 43 20 52 4f 55 46 28 59 4c 2c 59 41 ┆,XA,XR,SX) 1240 EXEC ROUF(YL,YA┆
0x0ffe0…10000 2c 59 52 2c 53 59 29 1b 38 31 32 35 30 20 57 48 49 4c 45 20 53 47 4e 28 58 53 2d 58 41 29 3d 53 ┆,YR,SY) 81250 WHILE SGN(XS-XA)=S┆
0x10000…10020 (8, 0, 1) 47 4e 28 58 53 29 20 41 4e 44 20 53 47 4e 28 59 53 2d 59 41 29 3d 53 47 4e 28 59 53 29 20 44 4f ┆GN(XS) AND SGN(YS-YA)=SGN(YS) DO┆
0x10020…10040 20 38 18 31 32 36 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 58 52 2c 59 52 29 18 1b 31 32 37 ┆ 8 1260 EXEC TEGNREL(XR,YR) 127┆
0x10040…10060 30 20 45 58 45 43 20 52 4f 55 46 28 58 4c 2c 58 41 2c 58 52 2c 4d 58 29 1b 1b 31 32 38 30 20 45 ┆0 EXEC ROUF(XL,XA,XR,MX) 1280 E┆
0x10060…10080 58 45 43 20 52 4f 55 46 28 59 4c 2c 59 41 2c 59 52 2c 4d 59 29 1b 18 31 32 39 30 20 45 58 45 43 ┆XEC ROUF(YL,YA,YR,MY) 1290 EXEC┆
0x10080…100a0 20 46 4c 59 54 52 45 4c 28 58 52 2c 59 52 29 18 1b 31 33 30 30 20 45 58 45 43 20 52 4f 55 46 28 ┆ FLYTREL(XR,YR) 1300 EXEC ROUF(┆
0x100a0…100c0 58 4c 2c 58 41 2c 58 52 2c 53 58 29 1b 1b 31 33 31 30 20 45 58 45 43 20 52 4f 55 46 28 59 4c 2c ┆XL,XA,XR,SX) 1310 EXEC ROUF(YL,┆
0x100c0…100e0 59 41 2c 59 52 2c 53 59 29 1b 0e 31 33 32 30 20 45 4e 44 57 48 49 4c 45 20 0e 1c 31 33 33 30 20 ┆YA,YR,SY) 1320 ENDWHILE 1330 ┆
0x100e0…10100 45 58 45 43 20 52 4f 55 46 28 58 4c 2c 58 41 2c 58 52 2c 2d 53 58 29 1c 1c 31 33 34 30 20 45 58 ┆EXEC ROUF(XL,XA,XR,-SX) 1340 EX┆
0x10100…10120 (8, 0, 2) 45 43 20 52 4f 55 46 28 59 4c 2c 59 41 2c 59 52 2c 2d 53 59 29 1c 37 31 33 35 30 20 49 46 20 53 ┆EC ROUF(YL,YA,YR,-SY) 71350 IF S┆
0x10120…10140 47 4e 28 58 53 2d 58 41 29 3d 53 47 4e 28 58 53 29 20 41 4e 44 20 53 47 4e 28 59 53 2d 59 41 29 ┆GN(XS-XA)=SGN(XS) AND SGN(YS-YA)┆
0x10140…10160 3d 53 47 4e 28 59 53 29 20 54 48 45 4e 20 37 22 31 33 36 30 20 45 58 45 43 20 54 45 47 4e 52 45 ┆=SGN(YS) THEN 7"1360 EXEC TEGNRE┆
0x10160…10180 4c 28 28 58 53 2d 58 41 29 2c 28 59 53 2d 59 41 29 29 22 0a 31 33 37 30 20 45 4c 53 45 20 0a 22 ┆L((XS-XA),(YS-YA))" 1370 ELSE "┆
0x10180…101a0 31 33 38 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 58 53 2d 58 41 29 2c 28 59 53 2d 59 41 ┆1380 EXEC FLYTREL((XS-XA),(YS-YA┆
0x101a0…101c0 29 29 22 0b 31 33 39 30 20 45 4e 44 49 46 20 0b 0a 31 34 30 30 20 45 4c 53 45 20 0a 18 31 34 31 ┆))" 1390 ENDIF 1400 ELSE 141┆
0x101c0…101e0 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 58 53 2c 59 53 29 18 0b 31 34 32 30 20 45 4e 44 49 ┆0 EXEC FLYTREL(XS,YS) 1420 ENDI┆
0x101e0…10200 46 20 0b 16 31 34 33 30 20 45 4e 44 50 52 4f 43 20 3b 53 54 49 50 52 45 4c 2e 16 12 31 35 30 30 ┆F 1430 ENDPROC ;STIPREL. 1500┆
0x10200…10220 (8, 0, 3) 20 44 49 4d 20 4e 41 56 4e 24 28 32 30 29 12 0e 31 35 30 37 20 4f 55 54 50 55 54 20 50 31 0e 12 ┆ DIM NAVN$(20) 1507 OUTPUT P1 ┆
0x10220…10240 31 35 31 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 1f 31 35 32 30 20 4e 41 56 4e 24 3d 22 ┆1510 EXEC PLOTINIT 1520 NAVN$="┆
0x10240…10260 44 44 45 20 50 4c 4f 54 54 45 52 20 44 45 4d 4f 2d 31 22 1f 19 31 35 33 30 20 45 58 45 43 20 46 ┆DDE PLOTTER DEMO-1" 1530 EXEC F┆
0x10260…10280 4c 59 54 41 42 53 28 30 2c 32 33 30 30 29 19 1a 31 35 34 30 20 45 58 45 43 20 54 45 4b 53 54 28 ┆LYTABS(0,2300) 1540 EXEC TEKST(┆
0x10280…102a0 30 2c 34 2c 4e 41 56 4e 24 29 1a 1b 31 35 35 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 31 30 ┆0,4,NAVN$) 1550 EXEC FLYTABS(10┆
0x102a0…102c0 30 30 2c 33 30 30 29 1b 10 31 35 36 30 20 45 58 45 43 20 4e 55 4c 50 4b 54 10 1e 31 35 37 30 20 ┆00,300) 1560 EXEC NULPKT 1570 ┆
0x102c0…102e0 45 58 45 43 20 54 45 47 4e 41 42 53 28 30 2c 31 38 30 30 2c 31 38 30 30 29 1e 1a 31 35 38 30 20 ┆EXEC TEGNABS(0,1800,1800) 1580 ┆
0x102e0…10300 45 58 45 43 20 46 4c 59 54 52 45 4c 28 2d 31 38 30 30 2c 30 29 1a 1b 31 35 39 30 20 45 58 45 43 ┆EXEC FLYTREL(-1800,0) 1590 EXEC┆
0x10300…10320 (8, 0, 4) ExtentHdr {name=»DEMO1 «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 000f,09 (0x00f900)}, nextfile={DA 0010,0d (0x010d00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x10320…10340 20 54 45 47 4e 41 42 53 28 37 2c 31 38 30 30 2c 30 29 1b 20 31 36 30 30 20 45 58 45 43 20 53 54 ┆ TEGNABS(7,1800,0) 1600 EXEC ST┆
0x10340…10360 49 50 52 45 4c 28 31 30 30 2c 35 30 2c 30 2c 31 38 30 30 29 20 21 31 36 31 30 20 45 58 45 43 20 ┆IPREL(100,50,0,1800) !1610 EXEC ┆
0x10360…10380 53 54 49 50 52 45 4c 28 31 30 2c 31 30 30 2c 2d 31 38 30 30 2c 30 29 21 1e 31 36 32 30 20 45 58 ┆STIPREL(10,100,-1800,0)! 1620 EX┆
0x10380…103a0 45 43 20 54 45 47 4e 50 4f 4c 28 32 32 35 2c 31 32 37 32 2e 37 39 29 1e 1e 31 36 33 30 20 45 58 ┆EC TEGNPOL(225,1272.79) 1630 EX┆
0x103a0…103c0 45 43 20 46 4c 59 54 50 4f 4c 28 2d 34 35 2c 31 32 37 32 2e 37 39 29 1e 1b 31 36 34 30 20 45 58 ┆EC FLYTPOL(-45,1272.79) 1640 EX┆
0x103c0…103e0 45 43 20 54 45 47 4e 52 45 4c 28 2d 39 30 30 2c 39 30 30 29 1b 1a 31 36 35 30 20 45 58 45 43 20 ┆EC TEGNREL(-900,900) 1650 EXEC ┆
0x103e0…10400 46 4c 59 54 41 42 53 28 31 31 35 2c 36 35 30 29 1a 10 31 36 36 30 20 4e 41 56 4e 24 3d 22 44 44 ┆FLYTABS(115,650) 1660 NAVN$="DD┆
0x10400…10420 (8, 0, 5) 45 22 10 1b 31 36 37 30 20 45 58 45 43 20 54 45 4b 53 54 28 39 30 2c 35 2c 4e 41 56 4e 24 29 1b ┆E" 1670 EXEC TEKST(90,5,NAVN$) ┆
0x10420…10440 1b 31 36 38 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 37 32 30 2c 31 36 30 30 29 1b 1a 31 36 ┆ 1680 EXEC FLYTABS(720,1600) 16┆
0x10440…10460 39 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 34 2c 4e 41 56 4e 24 29 1a 1b 31 37 30 30 20 45 ┆90 EXEC TEKST(0,4,NAVN$) 1700 E┆
0x10460…10480 58 45 43 20 46 4c 59 54 41 42 53 28 31 36 30 30 2c 39 37 30 29 1b 1c 31 37 31 30 20 45 58 45 43 ┆XEC FLYTABS(1600,970) 1710 EXEC┆
0x10480…104a0 20 54 45 4b 53 54 28 32 37 30 2c 33 2c 4e 41 56 4e 24 29 1c 1a 31 37 32 30 20 45 58 45 43 20 46 ┆ TEKST(270,3,NAVN$) 1720 EXEC F┆
0x104a0…104c0 4c 59 54 41 42 53 28 39 33 35 2c 31 33 30 29 1a 1c 31 37 33 30 20 45 58 45 43 20 54 45 4b 53 54 ┆LYTABS(935,130) 1730 EXEC TEKST┆
0x104c0…104e0 28 31 38 30 2c 32 2c 4e 41 56 4e 24 29 1c 18 31 37 34 30 20 4e 41 56 4e 24 3d 22 44 45 4d 4f 2d ┆(180,2,NAVN$) 1740 NAVN$="DEMO-┆
0x104e0…10500 31 20 53 4c 55 54 22 18 1d 31 37 35 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 2d 31 30 30 30 ┆1 SLUT" 1750 EXEC FLYTABS(-1000┆
0x10500…10520 (8, 0, 6) 2c 2d 33 30 30 29 1d 1a 31 37 36 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 31 2c 4e 41 56 4e ┆,-300) 1760 EXEC TEKST(0,1,NAVN┆
0x10520…10540 24 29 1a 12 31 37 37 30 20 45 58 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a 31 37 38 30 20 53 54 4f ┆$) 1770 EXEC PLOTSLUT 1780 STO┆
0x10540…10560 50 20 0a 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 ┆P ccccccccccccccccccccccccccc┆
0x10560…10580 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┆
[…0x4…]
0x10600…10700 (8, 0, 7) 0x63[0x100]
[…0x5…]
0x10c00…10c20 (8, 0, 13) 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┆
[…0x6…]
0x10ce0…10d00 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 ┆
0x10d00…10d20 (8, 0, 14) ExtentHdr {name=»DEMO2 «, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 0011,07 (0x011700)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0011,07 (0x011700)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x10d20…10d40 3c 30 31 30 30 20 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 ┆<0100 REM **********************┆
0x10d40…10d60 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 3c 3c 30 ┆*****************************<<0┆
0x10d60…10d80 31 31 30 20 52 45 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 49 20 44 45 4e 4e 45 20 46 49 ┆110 REM *PROCEDURERNE I DENNE FI┆
0x10d80…10da0 4c 20 45 52 20 44 45 20 4e 5c 44 56 45 4e 44 49 47 45 20 47 52 55 4e 44 2d 20 2a 3c 3c 30 31 32 ┆L ER DE NØDVENDIGE GRUND- *<<012┆
0x10da0…10dc0 30 20 52 45 4d 20 2a 45 4c 45 4d 45 4e 54 45 52 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 ┆0 REM *ELEMENTER TIL STYRING AF ┆
0x10dc0…10de0 50 4c 4f 54 54 45 52 45 4e 2c 20 4f 47 20 45 52 20 44 45 46 4f 52 20 20 2a 3c 3c 30 31 33 30 20 ┆PLOTTEREN, OG ER DEFOR *<<0130 ┆
0x10de0…10e00 52 45 4d 20 2a 44 49 52 45 4b 54 45 20 41 46 48 5b 4e 47 49 47 20 41 46 20 44 45 4e 20 41 4e 56 ┆REM *DIREKTE AFHÆNGIG AF DEN ANV┆
0x10e00…10e20 (8, 0, 15) 45 4e 44 54 45 20 50 4c 4f 54 54 45 52 2e 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 34 30 20 52 45 ┆ENDTE PLOTTER. *<<0140 RE┆
0x10e20…10e40 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 48 45 52 20 4b 41 4e 20 4b 55 4e 20 41 4e 56 45 ┆M *PROCEDURERNE HER KAN KUN ANVE┆
0x10e40…10e60 4e 44 45 53 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 2a 3c 3c 30 31 35 30 20 52 45 4d 20 ┆NDES TIL STYRING AF *<<0150 REM ┆
0x10e60…10e80 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* ┆
0x10e80…10ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 36 30 20 52 45 4d 20 2a 20 ┆ *<<0160 REM * ┆
0x10ea0…10ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 49 20 50 4c 5c 54 20 20 20 20 20 ┆ HI PLØT ┆
0x10ec0…10ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 37 30 20 52 45 4d 20 2a 4d 4f 44 ┆ *<<0170 REM *MOD┆
0x10ee0…10f00 45 4c 20 20 20 20 20 20 20 20 44 4d 50 2d 33 2c 44 4d 50 2d 34 2c 44 4d 50 2d 36 2c 44 4d 50 2d ┆EL DMP-3,DMP-4,DMP-6,DMP-┆
0x10f00…10f20 (8, 0, 16) 37 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 38 30 20 52 45 4d 20 2a 46 52 41 20 20 ┆7 *<<0180 REM *FRA ┆
0x10f20…10f40 20 20 20 20 20 20 20 20 20 20 48 4f 55 53 54 4f 4e 20 49 4e 53 54 52 55 4d 45 4e 54 20 20 20 20 ┆ HOUSTON INSTRUMENT ┆
0x10f40…10f60 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 39 30 20 52 45 4d 20 2a 20 20 20 20 20 20 20 ┆ *<<0190 REM * ┆
0x10f60…10f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x10f80…10fa0 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 32 30 30 20 52 45 4d 20 2a 44 44 45 20 20 20 20 20 20 ┆ *<<0200 REM *DDE ┆
0x10fa0…10fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x10fc0…10fe0 20 20 20 20 31 39 38 32 2a 3c 3c 30 32 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 1982*<<0210 REM ************┆
0x10fe0…11000 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 2a 2a ┆********************************┆
0x11000…11020 (8, 1, 1) 2a 2a 2a 2a 2a 2a 2a 3c 2a 30 32 32 30 20 52 45 4d 20 4c 49 4e 20 41 4e 56 45 4e 44 45 53 20 49 ┆*******<*0220 REM LIN ANVENDES I┆
0x11020…11040 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 49 4e 4b 52 56 2e 2a 2c 30 32 33 30 20 52 45 4d 20 58 54 ┆ PROCEDUREN LINKRV.*,0230 REM XT┆
0x11040…11060 2c 59 54 20 41 4e 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 4f 47 4b 52 56 ┆,YT ANVENDES I PROCEDUREN LOGKRV┆
0x11060…11080 2e 2c 1e 30 32 34 30 20 44 49 4d 20 4c 49 4e 24 28 33 29 2c 58 54 24 28 33 29 2c 59 54 24 28 33 ┆., 0240 DIM LIN$(3),XT$(3),YT$(3┆
0x11080…110a0 29 1e 2d 30 32 35 30 20 52 45 4d 20 52 4f 55 20 41 46 52 55 4e 44 45 52 20 45 54 20 52 45 45 4c ┆) -0250 REM ROU AFRUNDER ET REEL┆
0x110a0…110c0 54 20 54 41 4c 20 54 49 4c 20 48 45 4c 54 41 4c 2d 34 30 32 36 30 20 52 45 4d 20 4f 47 20 41 4e ┆T TAL TIL HELTAL-40260 REM OG AN┆
0x110c0…110e0 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 52 4e 45 20 53 54 49 50 52 45 4c 20 4f 47 ┆VENDES I PROCEDURERNE STIPREL OG┆
0x110e0…11100 20 41 4b 53 45 2e 34 1a 30 32 37 30 20 44 45 46 20 52 4f 55 28 5a 29 3d 49 4e 54 28 5a 2b 30 2e ┆ AKSE.4 0270 DEF ROU(Z)=INT(Z+0.┆
0x11100…11120 (8, 1, 2) 35 29 1a 11 30 32 38 30 20 50 49 3d 33 2e 31 34 31 35 39 32 36 11 12 30 32 39 30 20 50 52 4f 43 ┆5) 0280 PI=3.1415926 0290 PROC┆
0x11120…11140 20 50 4c 4f 54 49 4e 49 54 12 2a 30 33 30 30 20 52 45 4d 20 5d 42 4e 45 52 20 50 4c 4f 54 54 45 ┆ PLOTINIT *0300 REM ÅBNER PLOTTE┆
0x11140…11160 52 45 4e 20 4f 47 20 4c 5c 46 54 45 52 20 50 45 4e 4e 45 4e 2c 2a 29 30 33 31 30 20 52 45 4d 20 ┆REN OG LØFTER PENNEN,*)0310 REM ┆
0x11160…11180 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 54 49 4c 20 28 30 2c 30 29 20 3d 20 48 4f 4d 45 2e ┆FLYTTER PENNEN TIL (0,0) = HOME.┆
0x11180…111a0 29 18 30 33 32 30 20 50 52 49 4e 54 20 22 49 3b 3a 20 49 3b 3a 20 55 20 48 22 18 17 30 33 33 30 ┆) 0320 PRINT "I;: I;: U H" 0330┆
0x111a0…111c0 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 49 4e 49 54 2e 17 12 30 33 34 30 20 50 52 4f 43 20 50 ┆ ENDPROC ;PLOTINIT. 0340 PROC P┆
0x111c0…111e0 4c 4f 54 53 4c 55 54 12 1c 30 33 35 30 20 52 45 4d 20 41 46 42 52 59 44 45 52 20 50 4c 4f 54 54 ┆LOTSLUT 0350 REM AFBRYDER PLOTT┆
0x111e0…11200 45 52 45 4e 2e 1c 0e 30 33 36 30 20 50 52 49 4e 54 20 22 40 22 0e 17 30 33 37 30 20 45 4e 44 50 ┆EREN. 0360 PRINT "@" 0370 ENDP┆
0x11200…11220 (8, 1, 3) 52 4f 43 20 3b 50 4c 4f 54 53 4c 55 54 2e 17 12 30 33 38 30 20 50 52 4f 43 20 50 4c 4f 54 54 45 ┆ROC ;PLOTSLUT. 0380 PROC PLOTTE┆
0x11220…11240 53 54 12 2b 30 33 39 30 20 52 45 4d 20 4b 5c 52 45 52 20 50 4c 4f 54 54 45 52 45 4e 53 20 53 45 ┆ST +0390 REM KØRER PLOTTERENS SE┆
0x11240…11260 4c 56 54 45 53 54 20 50 52 4f 47 52 41 4d 2e 2b 0e 30 34 30 30 20 50 52 49 4e 54 20 22 54 22 0e ┆LVTEST PROGRAM.+ 0400 PRINT "T" ┆
0x11260…11280 17 30 34 31 30 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 54 45 53 54 2e 17 10 30 34 32 30 20 50 ┆ 0410 ENDPROC ;PLOTTEST. 0420 P┆
0x11280…112a0 52 4f 43 20 4e 55 4c 50 4b 54 10 1f 30 34 33 30 20 52 45 4d 20 46 41 53 54 53 5b 54 54 45 52 20 ┆ROC NULPKT 0430 REM FASTSÆTTER ┆
0x112a0…112c0 4e 55 4c 50 55 4e 4b 54 45 54 2e 1f 0e 30 34 34 30 20 50 52 49 4e 54 20 22 4f 22 0e 15 30 34 35 ┆NULPUNKTET. 0440 PRINT "O" 045┆
0x112c0…112e0 30 20 45 4e 44 50 52 4f 43 20 3b 4e 55 4c 50 4b 54 2e 15 10 30 34 36 30 20 50 52 4f 43 20 50 45 ┆0 ENDPROC ;NULPKT. 0460 PROC PE┆
0x112e0…11300 4e 4e 45 44 10 26 30 34 37 30 20 52 45 4d 20 53 5b 54 54 45 52 20 50 45 4e 4e 45 4e 20 4e 45 44 ┆NNED &0470 REM SÆTTER PENNEN NED┆
0x11300…11320 (8, 1, 4) 20 50 5d 20 50 41 50 49 52 45 54 2e 26 0e 30 34 38 30 20 50 52 49 4e 54 20 22 44 22 0e 15 30 34 ┆ PÅ PAPIRET.& 0480 PRINT "D" 04┆
0x11320…11340 39 30 20 45 4e 44 50 52 4f 43 20 3b 50 45 4e 4e 45 44 2e 15 0f 30 35 30 30 20 50 52 4f 43 20 50 ┆90 ENDPROC ;PENNED. 0500 PROC P┆
0x11340…11360 45 4e 4f 50 0f 25 30 35 31 30 20 52 45 4d 20 48 5b 56 45 52 20 50 45 4e 4e 45 4e 20 4f 50 20 46 ┆ENOP %0510 REM HÆVER PENNEN OP F┆
0x11360…11380 52 41 20 50 41 50 49 52 45 54 2e 25 0e 30 35 32 30 20 50 52 49 4e 54 20 22 55 22 0e 14 30 35 33 ┆RA PAPIRET.% 0520 PRINT "U" 053┆
0x11380…113a0 30 20 45 4e 44 50 52 4f 43 20 3b 50 45 4e 4f 50 2e 14 16 30 35 34 30 20 50 52 4f 43 20 46 4c 59 ┆0 ENDPROC ;PENOP. 0540 PROC FLY┆
0x113a0…113c0 54 41 42 53 28 58 2c 59 29 16 38 30 35 35 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e ┆TABS(X,Y) 80550 REM FLYTTER PENN┆
0x113c0…113e0 45 4e 20 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c ┆EN ABSOLUT TIL KOORDINATERNE (X,┆
0x113e0…11400 59 29 2e 38 16 30 35 36 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 35 37 ┆Y).8 0560 X=INT(X);Y=INT(Y) 057┆
0x11400…11420 (8, 1, 5) 30 20 50 52 49 4e 54 20 22 55 20 41 22 3b 58 3b 22 2c 22 3b 59 18 16 30 35 38 30 20 45 4e 44 50 ┆0 PRINT "U A";X;",";Y 0580 ENDP┆
0x11420…11440 52 4f 43 20 3b 46 4c 59 54 41 42 53 2e 16 1d 30 35 39 30 20 50 52 4f 43 20 54 45 47 4e 41 42 53 ┆ROC ;FLYTABS. 0590 PROC TEGNABS┆
0x11440…11460 28 4c 49 4e 54 59 50 2c 58 2c 59 29 1d 35 30 36 30 30 20 52 45 4d 20 54 45 47 4e 45 52 20 4c 49 ┆(LINTYP,X,Y) 50600 REM TEGNER LI┆
0x11460…11480 4e 49 45 20 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 ┆NIE ABSOLUT TIL KOORDINATERNE (X┆
0x11480…114a0 2c 59 29 35 23 30 36 31 30 20 52 45 4d 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 49 ┆,Y)5#0610 REM MED DEN ANGIVNE LI┆
0x114a0…114c0 4e 49 45 54 59 50 45 2e 23 16 30 36 32 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 ┆NIETYPE.# 0620 X=INT(X);Y=INT(Y)┆
0x114c0…114e0 16 29 30 36 33 30 20 50 52 49 4e 54 20 22 44 20 41 20 4c 22 2b 43 48 52 28 34 38 2b 4c 49 4e 54 ┆ )0630 PRINT "D A L"+CHR(48+LINT┆
0x114e0…11500 59 50 29 3b 58 3b 22 2c 22 3b 59 29 16 30 36 34 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 41 ┆YP);X;",";Y) 0640 ENDPROC ;TEGNA┆
0x11500…11520 (8, 1, 6) 42 53 2e 16 16 30 36 35 30 20 50 52 4f 43 20 46 4c 59 54 52 45 4c 28 58 2c 59 29 16 39 30 36 36 ┆BS. 0650 PROC FLYTREL(X,Y) 9066┆
0x11520…11540 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 52 45 4c 41 54 49 56 54 20 54 49 ┆0 REM FLYTTER PENNEN RELATIVT TI┆
0x11540…11560 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 39 16 30 36 37 30 20 58 3d 49 ┆L KOORDINATERNE (X,Y).9 0670 X=I┆
0x11560…11580 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 36 38 30 20 50 52 49 4e 54 20 22 55 20 52 22 ┆NT(X);Y=INT(Y) 0680 PRINT "U R"┆
0x11580…115a0 3b 58 3b 22 2c 22 3b 59 18 16 30 36 39 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e ┆;X;",";Y 0690 ENDPROC ;FLYTREL.┆
0x115a0…115c0 16 16 30 37 30 30 20 50 52 4f 43 20 54 45 47 4e 52 45 4c 28 58 2c 59 29 16 37 30 37 31 30 20 52 ┆ 0700 PROC TEGNREL(X,Y) 70710 R┆
0x115c0…115e0 45 4d 20 54 45 47 4e 45 52 20 4c 49 4e 49 45 20 52 45 4c 41 54 49 56 54 20 54 49 4c 20 4b 4f 4f ┆EM TEGNER LINIE RELATIVT TIL KOO┆
0x115e0…11600 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 37 16 30 37 32 30 20 58 3d 49 4e 54 28 58 29 ┆RDINATERNE (X,Y).7 0720 X=INT(X)┆
0x11600…11620 (8, 1, 7) 3b 59 3d 49 4e 54 28 59 29 16 1b 30 37 33 30 20 50 52 49 4e 54 20 22 44 20 52 20 4c 30 22 3b 58 ┆;Y=INT(Y) 0730 PRINT "D R L0";X┆
0x11620…11640 3b 22 2c 22 3b 59 1b 16 30 37 34 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e 16 20 ┆;",";Y 0740 ENDPROC ;FLYTREL. ┆
0x11640…11660 30 37 35 30 20 50 52 4f 43 20 46 4c 59 54 50 4f 4c 28 56 49 4e 4b 45 4c 2c 4c 5b 4e 47 44 45 29 ┆0750 PROC FLYTPOL(VINKEL,LÆNGDE)┆
0x11660…11680 20 35 30 37 36 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 44 45 4e 20 41 4e ┆ 50760 REM FLYTTER PENNEN DEN AN┆
0x11680…116a0 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d 45 44 20 44 45 4e 35 2f 30 37 37 30 20 52 45 ┆GIVNE LÆNGDE OG MED DEN5/0770 RE┆
0x116a0…116c0 4d 20 41 4e 46 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 ┆M ANFGIVNE VINKEL I FORHOLD TIL ┆
0x116c0…116e0 56 41 4e 44 52 45 54 2e 2f 25 30 37 38 30 20 58 3d 49 4e 54 28 4c 5b 4e 47 44 45 2a 43 4f 53 28 ┆VANDRET./%0780 X=INT(LÆNGDE*COS(┆
0x116e0…11700 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 25 30 37 39 30 20 59 3d 49 4e 54 28 4c 5b 4e 47 ┆VINKEL/180*PI))%%0790 Y=INT(LÆNG┆
0x11700…11720 (8, 1, 8) ExtentHdr {name=»DEMO2 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0012,01 (0x012100)}, prevext={DA 0010,0d (0x010d00)}, nextfile={DA 0012,01 (0x012100)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x11720…11740 44 45 2a 53 49 4e 28 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 18 30 38 30 30 20 50 52 49 ┆DE*SIN(VINKEL/180*PI))% 0800 PRI┆
0x11740…11760 4e 54 20 22 55 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 38 31 30 20 45 4e 44 50 52 4f 43 20 3b ┆NT "U R";X;",";Y 0810 ENDPROC ;┆
0x11760…11780 46 4c 59 54 50 4f 4c 2e 16 20 30 38 32 30 20 50 52 4f 43 20 54 45 47 4e 50 4f 4c 28 56 49 4e 4b ┆FLYTPOL. 0820 PROC TEGNPOL(VINK┆
0x11780…117a0 45 4c 2c 4c 5b 4e 47 44 45 29 20 36 30 38 33 30 20 52 45 4d 20 54 45 47 4e 45 52 20 45 4e 20 4c ┆EL,LÆNGDE) 60830 REM TEGNER EN L┆
0x117a0…117c0 49 4e 49 45 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d ┆INIE MED DEN ANGIVNE LÆNGDE OG M┆
0x117c0…117e0 45 44 36 31 30 38 34 30 20 52 45 4d 20 44 45 20 41 4e 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 ┆ED610840 REM DE ANGIVNE VINKEL I┆
0x117e0…11800 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 31 25 30 38 35 30 20 58 3d 49 4e ┆ FORHOLD TIL VANDRET.1%0850 X=IN┆
0x11800…11820 (8, 1, 9) 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 30 38 ┆T(LÆNGDE*COS(VINKEL/180*PI))%%08┆
0x11820…11840 36 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 ┆60 Y=INT(LÆNGDE*SIN(VINKEL/180*P┆
0x11840…11860 49 29 29 25 18 30 38 37 30 20 50 52 49 4e 54 20 22 44 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 ┆I))% 0870 PRINT "D R";X;",";Y 0┆
0x11860…11880 38 38 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 50 4f 4c 2e 16 1d 30 38 39 30 20 50 52 4f 43 ┆880 ENDPROC ;TEGNPOL. 0890 PROC┆
0x11880…118a0 20 53 59 4d 42 4f 4c 28 48 5c 4a 44 45 2c 46 49 47 55 52 29 1d 47 30 39 30 30 20 52 45 4d 20 54 ┆ SYMBOL(HØJDE,FIGUR) G0900 REM T┆
0x118a0…118c0 45 47 4e 45 52 20 45 54 20 41 46 20 46 49 47 55 52 45 52 4e 45 3a 50 4c 55 53 28 30 29 2c 4b 4f ┆EGNER ET AF FIGURERNE:PLUS(0),KO┆
0x118c0…118e0 52 53 28 31 29 2c 46 49 52 4b 41 4e 54 28 32 29 2c 4f 54 54 45 4b 41 4e 54 28 33 29 2c 47 40 30 ┆RS(1),FIRKANT(2),OTTEKANT(3),G@0┆
0x118e0…11900 39 31 30 20 52 45 4d 20 54 52 45 4b 41 4e 54 28 34 29 2c 54 49 4d 45 47 4c 41 53 28 35 29 2c 20 ┆910 REM TREKANT(4),TIMEGLAS(5), ┆
0x11900…11920 (8, 1, 10) 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 2c 34 2c 35 2e 40 ┆MED EN AF HØJDERNE 0,1,2,3,4,5.@┆
0x11920…11940 2f 30 39 32 30 20 50 52 49 4e 54 20 22 4d 22 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 2b 43 48 ┆/0920 PRINT "M"+CHR(48+HØJDE)+CH┆
0x11940…11960 52 28 34 38 2b 46 49 47 55 52 29 2b 22 20 55 22 2f 15 30 39 33 30 20 45 4e 44 50 52 4f 43 20 3b ┆R(48+FIGUR)+" U"/ 0930 ENDPROC ;┆
0x11960…11980 53 59 4d 42 4f 4c 2e 15 22 30 39 34 30 20 50 52 4f 43 20 54 45 4b 53 54 28 56 49 4e 4b 45 4c 2c ┆SYMBOL. "0940 PROC TEKST(VINKEL,┆
0x11980…119a0 48 5c 4a 44 45 2c 54 45 58 54 29 22 31 30 39 35 30 20 52 45 4d 20 55 44 53 4b 52 49 56 45 52 20 ┆HØJDE,TEXT)"10950 REM UDSKRIVER ┆
0x119a0…119c0 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 5c 4a 44 45 31 29 ┆EN TEKST MED DEN ANGIVNE HØJDE1)┆
0x119c0…119e0 30 39 36 30 20 52 45 4d 20 4f 47 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c ┆0960 REM OG VINKEL I FORHOLD TIL┆
0x119e0…11a00 20 56 41 4e 44 52 45 54 2e 29 24 30 39 37 30 20 56 3d 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c ┆ VANDRET.)$0970 V=1+((360-VINKEL┆
0x11a00…11a20 (8, 1, 11) 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 34 30 39 38 30 20 50 52 49 4e 54 20 22 53 22 2b ┆) DIV 90) MOD 4$40980 PRINT "S"+┆
0x11a20…11a40 43 48 52 28 34 38 2b 56 29 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 3b 22 20 22 3b 54 45 58 54 ┆CHR(48+V)+CHR(48+HØJDE);" ";TEXT┆
0x11a40…11a60 24 3b 22 5f 22 34 14 30 39 39 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 4b 53 54 2e 14 1e 31 30 30 ┆$;"_"4 0990 ENDPROC ;TEKST. 100┆
0x11a60…11a80 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 31 30 31 ┆0 PROC TAL(VINKEL,HØJDE,NR) ;101┆
0x11a80…11aa0 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 4e 20 41 ┆0 REM UDSKRIVER ET TAL MED DEN A┆
0x11aa0…11ac0 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 31 30 32 30 20 52 ┆NGIVNE HØJDE OG VINKEL I; 1020 R┆
0x11ac0…11ae0 45 4d 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 1d 24 31 30 33 30 20 56 3d ┆EM FORHOLD TIL VANDRET. $1030 V=┆
0x11ae0…11b00 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 27 31 ┆1+((360-VINKEL) DIV 90) MOD 4$'1┆
0x11b00…11b20 (8, 1, 12) 30 34 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 ┆040 PRINT "S"+CHR(48+V)+CHR(48+H┆
0x11b20…11b40 5c 4a 44 45 29 3b 27 25 31 30 35 30 20 49 46 20 4e 52 3c 3d 2d 31 20 4f 52 20 4e 52 3d 30 20 4f ┆ØJDE);'%1050 IF NR<=-1 OR NR=0 O┆
0x11b40…11b60 52 20 31 3c 3d 4e 52 20 54 48 45 4e 20 25 11 31 30 36 30 20 50 52 49 4e 54 20 4e 52 3b 22 5f 22 ┆R 1<=NR THEN % 1060 PRINT NR;"_"┆
0x11b60…11b80 11 0a 31 30 37 30 20 45 4c 53 45 20 0a 1d 31 30 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 ┆ 1070 ELSE 1080 PRINT USING "┆
0x11b80…11ba0 20 23 2e 23 23 20 5f 22 3a 4e 52 1d 0b 31 30 39 30 20 45 4e 44 49 46 20 0b 12 31 31 30 30 20 45 ┆ #.## _":NR 1090 ENDIF 1100 E┆
0x11ba0…11bc0 4e 44 50 52 4f 43 20 3b 54 41 4c 2e 12 2b 31 34 34 30 20 50 52 4f 43 20 41 4b 53 45 28 56 49 2c ┆NDPROC ;TAL. +1440 PROC AKSE(VI,┆
0x11bc0…11be0 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 34 35 30 20 ┆HØ,SK,SE,MIN,MAX,TYP,TEX)+C1450 ┆
0x11be0…11c00 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 ****************************┆
0x11c00…11c20 (8, 1, 13) 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┆
0x11c20…11c40 31 34 36 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 ┆1460 REM *AKSE TEGNER EN AKSE ME┆
0x11c40…11c60 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┆
0x11c60…11c80 45 54 2a 43 43 31 34 37 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*CC1470 REM *FRA MIN TIL MAX. ┆
0x11c80…11ca0 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Ø┆
0x11ca0…11cc0 4a 44 45 4e 20 48 5c 2a 43 43 31 34 38 30 20 52 45 4d 20 2a 50 5d 20 41 4b 53 45 4e 2e 20 53 4b ┆JDEN HØ*CC1480 REM *PÅ AKSEN. SK┆
0x11cc0…11ce0 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┆
0x11ce0…11d00 54 20 49 20 41 4e 54 41 4c 20 20 20 2a 43 43 31 34 39 30 20 52 45 4d 20 2a 53 54 45 50 53 20 50 ┆T I ANTAL *CC1490 REM *STEPS P┆
0x11d00…11d20 (8, 1, 14) 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┆
0x11d20…11d40 20 50 52 2e 20 45 4e 48 45 44 20 42 45 2d 20 20 20 2a 43 43 31 35 30 30 20 52 45 4d 20 2a 53 54 ┆ PR. ENHED BE- *CC1500 REM *ST┆
0x11d40…11d60 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. ┆
0x11d60…11d80 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 35 31 30 20 52 45 ┆ *CC1510 RE┆
0x11d80…11da0 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 ******************************┆
0x11da0…11dc0 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 3a 31 35 ┆****************************C:15┆
0x11dc0…11de0 32 30 20 4b 58 3d 43 4f 53 28 56 49 2f 31 38 30 2a 50 49 29 3b 4b 59 3d 53 49 4e 28 56 49 2f 31 ┆20 KX=COS(VI/180*PI);KY=SIN(VI/1┆
0x11de0…11e00 38 30 2a 50 49 29 3b 48 42 3d 28 31 38 2a 32 2a 2a 28 48 5c 2d 31 29 29 3a 20 31 35 33 30 20 49 ┆80*PI);HB=(18*2**(HØ-1)): 1530 I┆
0x11e00…11e20 (8, 1, 15) 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 35 34 30 ┆F SGN(MIN)<>SGN(MAX) THEN 1540┆
0x11e20…11e40 20 4d 49 3d 4d 49 4e 3b 4d 58 3d 4d 41 58 12 0a 31 35 35 30 20 45 4c 53 45 20 0a 18 31 35 36 30 ┆ MI=MIN;MX=MAX 1550 ELSE 1560┆
0x11e40…11e60 20 49 46 20 53 47 4e 28 4d 49 4e 29 3d 31 20 54 48 45 4e 20 18 14 31 35 37 30 20 4d 49 3d 30 3b ┆ IF SGN(MIN)=1 THEN 1570 MI=0;┆
0x11e60…11e80 4d 58 3d 4d 41 58 2d 4d 49 4e 14 0a 31 35 38 30 20 45 4c 53 45 20 0a 14 31 35 39 30 20 4d 58 3d ┆MX=MAX-MIN 1580 ELSE 1590 MX=┆
0x11e80…11ea0 30 3b 4d 49 3d 4d 49 4e 2d 4d 41 58 14 0b 31 36 30 30 20 45 4e 44 49 46 20 0b 0b 31 36 31 30 20 ┆0;MI=MIN-MAX 1600 ENDIF 1610 ┆
0x11ea0…11ec0 45 4e 44 49 46 20 0b 48 31 36 32 30 20 58 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 58 ┆ENDIF H1620 XMAX=(MX*SK+100)*KX┆
0x11ec0…11ee0 3b 59 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 59 3b 58 4d 49 4e 3d 4d 49 2a 53 4b 2a ┆;YMAX=(MX*SK+100)*KY;XMIN=MI*SK*┆
0x11ee0…11f00 4b 58 3b 59 4d 49 4e 3d 4d 49 2a 53 4b 2a 4b 59 48 1c 31 36 33 30 20 45 58 45 43 20 46 4c 59 54 ┆KX;YMIN=MI*SK*KYH 1630 EXEC FLYT┆
0x11f00…11f20 (8, 1, 16) 41 42 53 28 58 4d 49 4e 2c 59 4d 49 4e 29 1c 1e 31 36 34 30 20 45 58 45 43 20 54 45 47 4e 41 42 ┆ABS(XMIN,YMIN) 1640 EXEC TEGNAB┆
0x11f20…11f40 53 28 30 2c 58 4d 41 58 2c 59 4d 41 58 29 1e 23 31 36 35 30 20 45 58 45 43 20 54 45 47 4e 52 45 ┆S(0,XMAX,YMAX) #1650 EXEC TEGNRE┆
0x11f40…11f60 4c 28 28 4b 59 2a 32 30 29 2c 28 2d 4b 58 2a 32 30 29 29 23 28 31 36 36 30 20 45 58 45 43 20 54 ┆L((KY*20),(-KX*20))#(1660 EXEC T┆
0x11f60…11f80 45 47 4e 52 45 4c 28 28 4b 58 2d 4b 59 29 2a 32 30 2c 28 4b 58 2b 4b 59 29 2a 32 30 29 28 29 31 ┆EGNREL((KX-KY)*20,(KX+KY)*20)()1┆
0x11f80…11fa0 36 37 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 2d 4b 58 2d 4b 59 29 2a 32 30 2c 28 4b 58 ┆670 EXEC TEGNREL((-KX-KY)*20,(KX┆
0x11fa0…11fc0 2d 4b 59 29 2a 32 30 29 29 23 31 36 38 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 2a ┆-KY)*20))#1680 EXEC TEGNREL((KY*┆
0x11fc0…11fe0 32 30 29 2c 28 2d 4b 58 2a 32 30 29 29 23 1d 31 36 39 30 20 49 46 20 30 3c 3d 4b 59 20 41 4e 44 ┆20),(-KX*20))# 1690 IF 0<=KY AND┆
0x11fe0…12000 20 4b 59 3c 3d 31 20 54 48 45 4e 20 1d 37 31 37 30 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 ┆ KY<=1 THEN 71700 EXEC FLYTREL(┆
0x12000…12020 (9, 0, 1) 28 4b 59 2a 33 30 29 2c 28 2d 4b 58 2a 33 30 2d 48 42 2a 28 53 47 4e 28 4b 58 2d 4b 59 29 2b 31 ┆(KY*30),(-KX*30-HB*(SGN(KX-KY)+1┆
0x12020…12040 29 2f 32 29 29 37 0a 31 37 31 30 20 45 4c 53 45 20 0a 38 31 37 32 30 20 45 58 45 43 20 46 4c 59 ┆)/2))7 1710 ELSE 81720 EXEC FLY┆
0x12040…12060 54 52 45 4c 28 28 2d 4b 59 2a 33 30 29 2c 28 4b 58 2a 33 30 2d 48 42 2a 28 53 47 4e 28 2d 4b 58 ┆TREL((-KY*30),(KX*30-HB*(SGN(-KX┆
0x12060…12080 2b 4b 59 29 2b 31 29 2f 32 29 29 38 0b 31 37 33 30 20 45 4e 44 49 46 20 0b 1a 31 37 34 30 20 45 ┆+KY)+1)/2))8 1730 ENDIF 1740 E┆
0x12080…120a0 58 45 43 20 54 45 4b 53 54 28 30 2c 48 5c 2c 54 45 58 24 29 1a 16 31 37 35 30 20 49 46 20 54 59 ┆XEC TEKST(0,HØ,TEX$) 1750 IF TY┆
0x120a0…120c0 50 24 3c 3e 22 22 20 54 48 45 4e 20 16 17 31 37 36 30 20 53 49 3d 28 4d 41 58 20 44 49 56 20 53 ┆P$<>"" THEN 1760 SI=(MAX DIV S┆
0x120c0…120e0 45 29 2a 53 45 17 2e 31 37 37 30 20 46 4f 52 20 49 3d 28 53 49 2b 4d 49 2d 4d 49 4e 29 2a 53 4b ┆E)*SE .1770 FOR I=(SI+MI-MIN)*SK┆
0x120e0…12100 20 54 4f 20 4d 49 2a 53 4b 20 53 54 45 50 20 2d 53 45 2a 53 4b 2e 2c 31 37 38 30 20 45 58 45 43 ┆ TO MI*SK STEP -SE*SK.,1780 EXEC┆
0x12100…12120 (9, 0, 2) ExtentHdr {name=»DEMO2 «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0011,07 (0x011700)}, nextfile={DA 0012,0b (0x012b00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x12120…12140 20 46 4c 59 54 41 42 53 28 28 4b 58 2a 49 2d 4b 59 2a 31 30 29 2c 28 4b 59 2a 49 2b 4b 58 2a 31 ┆ FLYTABS((KX*I-KY*10),(KY*I+KX*1┆
0x12140…12160 30 29 29 2c 23 31 37 39 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 2a 32 30 29 2c 28 ┆0)),#1790 EXEC TEGNREL((KY*20),(┆
0x12160…12180 2d 4b 58 2a 32 30 29 29 23 1d 31 38 30 30 20 49 46 20 30 3c 3d 4b 59 20 41 4e 44 20 4b 59 3c 3d ┆-KX*20))# 1800 IF 0<=KY AND KY<=┆
0x12180…121a0 31 20 54 48 45 4e 20 1d 34 31 38 31 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 4b 59 2a 32 ┆1 THEN 41810 EXEC FLYTREL((KY*2┆
0x121a0…121c0 30 29 2c 28 2d 4b 58 2a 32 30 2d 48 42 2a 28 53 47 4e 28 4b 58 29 2b 31 29 2f 32 29 29 34 0a 31 ┆0),(-KX*20-HB*(SGN(KX)+1)/2))4 1┆
0x121c0…121e0 38 32 30 20 45 4c 53 45 20 0a 34 31 38 33 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 2d 4b ┆820 ELSE 41830 EXEC FLYTREL((-K┆
0x121e0…12200 59 29 2a 34 30 2c 28 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 ┆Y)*40,(KX)*40+HB*(SGN(KX)-1)/2)4┆
0x12200…12220 (9, 0, 3) 0b 31 38 34 30 20 45 4e 44 49 46 20 0b 18 31 38 35 30 20 49 46 20 54 59 50 24 3d 22 4c 49 4e 22 ┆ 1840 ENDIF 1850 IF TYP$="LIN"┆
0x12220…12240 20 54 48 45 4e 20 18 0b 31 38 36 30 20 53 49 49 3d 53 49 0b 0a 31 38 37 30 20 45 4c 53 45 20 0a ┆ THEN 1860 SII=SI 1870 ELSE ┆
0x12240…12260 0f 31 38 38 30 20 53 49 49 3d 31 30 2a 2a 53 49 0f 0b 31 38 39 30 20 45 4e 44 49 46 20 0b 1c 31 ┆ 1880 SII=10**SI 1890 ENDIF 1┆
0x12260…12280 39 30 30 20 49 46 20 41 42 53 28 53 49 49 29 3c 3d 39 39 39 39 20 54 48 45 4e 20 1c 18 31 39 31 ┆900 IF ABS(SII)<=9999 THEN 191┆
0x12280…122a0 30 20 53 4a 3d 52 4f 55 28 53 49 49 2a 31 30 30 29 2f 31 30 30 18 0a 31 39 32 30 20 45 4c 53 45 ┆0 SJ=ROU(SII*100)/100 1920 ELSE┆
0x122a0…122c0 20 0a 30 31 39 33 30 20 49 46 20 39 39 39 39 3c 41 42 53 28 53 49 49 29 20 41 4e 44 20 41 42 53 ┆ 01930 IF 9999<ABS(SII) AND ABS┆
0x122c0…122e0 28 53 49 49 29 3c 3d 39 39 39 39 39 39 20 54 48 45 4e 20 30 10 31 39 34 30 20 53 4a 3d 52 4f 55 ┆(SII)<=999999 THEN 0 1940 SJ=ROU┆
0x122e0…12300 28 53 49 49 29 10 0a 31 39 35 30 20 45 4c 53 45 20 0a 0b 31 39 36 30 20 53 4a 3d 53 49 49 0b 0b ┆(SII) 1950 ELSE 1960 SJ=SII ┆
0x12300…12320 (9, 0, 4) 31 39 37 30 20 45 4e 44 49 46 20 0b 0b 31 39 38 30 20 45 4e 44 49 46 20 0b 24 31 39 39 30 20 49 ┆1970 ENDIF 1980 ENDIF $1990 I┆
0x12320…12340 46 20 53 4a 3c 3e 30 20 54 48 45 4e 20 45 58 45 43 20 54 41 4c 28 30 2c 48 5c 2c 53 4a 29 24 0d ┆F SJ<>0 THEN EXEC TAL(0,HØ,SJ)$ ┆
0x12340…12360 32 30 30 30 20 53 49 3d 53 49 2d 53 45 0d 0b 32 30 31 30 20 4e 45 58 54 20 49 0b 0b 32 30 32 30 ┆2000 SI=SI-SE 2010 NEXT I 2020┆
0x12360…12380 20 45 4e 44 49 46 20 0b 13 32 30 33 30 20 45 4e 44 50 52 4f 43 20 3b 41 4b 53 45 2e 13 1b 32 31 ┆ ENDIF 2030 ENDPROC ;AKSE. 21┆
0x12380…123a0 30 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 31 31 30 20 ┆00 DIM NAVN$(20),TYPE$(4) 2110 ┆
0x123a0…123c0 4e 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 31 32 30 ┆NAVN$="DDE PLOTTER DEMO-2" 2120┆
0x123c0…123e0 20 4f 55 54 50 55 54 20 50 31 0e 12 32 31 33 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 19 ┆ OUTPUT P1 2130 EXEC PLOTINIT ┆
0x123e0…12400 32 31 34 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 31 35 30 20 ┆2140 EXEC FLYTABS(0,2300) 2150 ┆
0x12400…12420 (9, 0, 5) 45 58 45 43 20 54 45 4b 53 54 28 30 2c 34 2c 4e 41 56 4e 24 29 1a 1c 32 31 39 30 20 45 58 45 43 ┆EXEC TEKST(0,4,NAVN$) 2190 EXEC┆
0x12420…12440 20 46 4c 59 54 41 42 53 28 31 37 35 30 2c 31 31 35 30 29 1c 10 32 32 30 30 20 45 58 45 43 20 4e ┆ FLYTABS(1750,1150) 2200 EXEC N┆
0x12440…12460 55 4c 50 4b 54 10 1b 32 32 31 30 20 46 4f 52 20 4d 3d 30 20 54 4f 20 33 31 35 20 53 54 45 50 20 ┆ULPKT 2210 FOR M=0 TO 315 STEP ┆
0x12460…12480 39 30 1b 10 32 32 32 30 20 54 59 50 45 24 3d 22 4c 49 4e 22 10 15 32 32 32 35 20 4e 41 56 4e 24 ┆90 2220 TYPE$="LIN" 2225 NAVN$┆
0x12480…124a0 3d 22 4c 49 4e 2d 61 6b 73 65 22 15 2b 32 32 33 30 20 45 58 45 43 20 41 4b 53 45 28 4d 2c 31 2c ┆="LIN-akse" +2230 EXEC AKSE(M,1,┆
0x124a0…124c0 32 30 30 2c 30 2e 35 2c 30 2c 35 2c 54 59 50 45 24 2c 4e 41 56 4e 24 29 2b 10 32 32 34 30 20 54 ┆200,0.5,0,5,TYPE$,NAVN$)+ 2240 T┆
0x124c0…124e0 59 50 45 24 3d 22 4c 4f 47 22 10 15 32 32 34 35 20 4e 41 56 4e 24 3d 22 4c 4f 47 2d 61 6b 73 65 ┆YPE$="LOG" 2245 NAVN$="LOG-akse┆
0x124e0…12500 22 15 30 32 32 35 30 20 45 58 45 43 20 41 4b 53 45 28 28 4d 2b 34 35 29 2c 32 2c 34 35 30 2c 30 ┆" 02250 EXEC AKSE((M+45),2,450,0┆
0x12500…12520 (9, 0, 6) 2e 35 2c 30 2c 33 2c 54 59 50 45 24 2c 4e 41 56 4e 24 29 30 0b 32 32 36 30 20 4e 45 58 54 20 4d ┆.5,0,3,TYPE$,NAVN$)0 2260 NEXT M┆
0x12520…12540 0b 18 32 32 37 30 20 4e 41 56 4e 24 3d 22 44 45 4d 4f 2d 32 20 53 4c 55 54 22 18 12 32 32 38 30 ┆ 2270 NAVN$="DEMO-2 SLUT" 2280┆
0x12540…12560 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 1a 32 32 39 30 20 45 58 45 43 20 54 45 4b 53 54 28 ┆ EXEC PLOTINIT 2290 EXEC TEKST(┆
0x12560…12580 30 2c 31 2c 4e 41 56 4e 24 29 1a 12 32 33 30 30 20 45 58 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a ┆0,1,NAVN$) 2300 EXEC PLOTSLUT ┆
0x12580…125a0 32 33 31 30 20 53 54 4f 50 20 0a 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆2310 STOP ccccccccccccccccccc┆
0x125a0…125c0 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┆
[…0x2…]
0x12600…12700 (9, 0, 7) 0x63[0x100]
[…0x3…]
0x12a00…12a20 (9, 0, 11) 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┆
[…0x6…]
0x12ae0…12b00 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 ┆
0x12b00…12b20 (9, 0, 12) ExtentHdr {name=»DEMO3 «, typ=»K«, seg=»A«, next=0x03, basis=0x000a, nextext={DA 0013,05 (0x013500)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0013,05 (0x013500)}, f99=41 12 00 fe 00 00 00 00 00 00 ┆A ┆}
0x12b20…12b40 3c 30 31 30 30 20 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 ┆<0100 REM **********************┆
0x12b40…12b60 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 3c 3c 30 ┆*****************************<<0┆
0x12b60…12b80 31 31 30 20 52 45 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 49 20 44 45 4e 4e 45 20 46 49 ┆110 REM *PROCEDURERNE I DENNE FI┆
0x12b80…12ba0 4c 20 45 52 20 44 45 20 4e 5c 44 56 45 4e 44 49 47 45 20 47 52 55 4e 44 2d 20 2a 3c 3c 30 31 32 ┆L ER DE NØDVENDIGE GRUND- *<<012┆
0x12ba0…12bc0 30 20 52 45 4d 20 2a 45 4c 45 4d 45 4e 54 45 52 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 ┆0 REM *ELEMENTER TIL STYRING AF ┆
0x12bc0…12be0 50 4c 4f 54 54 45 52 45 4e 2c 20 4f 47 20 45 52 20 44 45 46 4f 52 20 20 2a 3c 3c 30 31 33 30 20 ┆PLOTTEREN, OG ER DEFOR *<<0130 ┆
0x12be0…12c00 52 45 4d 20 2a 44 49 52 45 4b 54 45 20 41 46 48 5b 4e 47 49 47 20 41 46 20 44 45 4e 20 41 4e 56 ┆REM *DIREKTE AFHÆNGIG AF DEN ANV┆
0x12c00…12c20 (9, 0, 13) 45 4e 44 54 45 20 50 4c 4f 54 54 45 52 2e 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 34 30 20 52 45 ┆ENDTE PLOTTER. *<<0140 RE┆
0x12c20…12c40 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 48 45 52 20 4b 41 4e 20 4b 55 4e 20 41 4e 56 45 ┆M *PROCEDURERNE HER KAN KUN ANVE┆
0x12c40…12c60 4e 44 45 53 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 2a 3c 3c 30 31 35 30 20 52 45 4d 20 ┆NDES TIL STYRING AF *<<0150 REM ┆
0x12c60…12c80 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* ┆
0x12c80…12ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 36 30 20 52 45 4d 20 2a 20 ┆ *<<0160 REM * ┆
0x12ca0…12cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 49 20 50 4c 5c 54 20 20 20 20 20 ┆ HI PLØT ┆
0x12cc0…12ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 37 30 20 52 45 4d 20 2a 4d 4f 44 ┆ *<<0170 REM *MOD┆
0x12ce0…12d00 45 4c 20 20 20 20 20 20 20 20 44 4d 50 2d 33 2c 44 4d 50 2d 34 2c 44 4d 50 2d 36 2c 44 4d 50 2d ┆EL DMP-3,DMP-4,DMP-6,DMP-┆
0x12d00…12d20 (9, 0, 14) 37 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 38 30 20 52 45 4d 20 2a 46 52 41 20 20 ┆7 *<<0180 REM *FRA ┆
0x12d20…12d40 20 20 20 20 20 20 20 20 20 20 48 4f 55 53 54 4f 4e 20 49 4e 53 54 52 55 4d 45 4e 54 20 20 20 20 ┆ HOUSTON INSTRUMENT ┆
0x12d40…12d60 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 39 30 20 52 45 4d 20 2a 20 20 20 20 20 20 20 ┆ *<<0190 REM * ┆
0x12d60…12d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12d80…12da0 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 32 30 30 20 52 45 4d 20 2a 44 44 45 20 20 20 20 20 20 ┆ *<<0200 REM *DDE ┆
0x12da0…12dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12dc0…12de0 20 20 20 20 31 39 38 32 2a 3c 3c 30 32 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 1982*<<0210 REM ************┆
0x12de0…12e00 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 2a 2a ┆********************************┆
0x12e00…12e20 (9, 0, 15) 2a 2a 2a 2a 2a 2a 2a 3c 2a 30 32 32 30 20 52 45 4d 20 4c 49 4e 20 41 4e 56 45 4e 44 45 53 20 49 ┆*******<*0220 REM LIN ANVENDES I┆
0x12e20…12e40 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 49 4e 4b 52 56 2e 2a 2c 30 32 33 30 20 52 45 4d 20 58 54 ┆ PROCEDUREN LINKRV.*,0230 REM XT┆
0x12e40…12e60 2c 59 54 20 41 4e 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 4f 47 4b 52 56 ┆,YT ANVENDES I PROCEDUREN LOGKRV┆
0x12e60…12e80 2e 2c 1e 30 32 34 30 20 44 49 4d 20 4c 49 4e 24 28 33 29 2c 58 54 24 28 33 29 2c 59 54 24 28 33 ┆., 0240 DIM LIN$(3),XT$(3),YT$(3┆
0x12e80…12ea0 29 1e 2d 30 32 35 30 20 52 45 4d 20 52 4f 55 20 41 46 52 55 4e 44 45 52 20 45 54 20 52 45 45 4c ┆) -0250 REM ROU AFRUNDER ET REEL┆
0x12ea0…12ec0 54 20 54 41 4c 20 54 49 4c 20 48 45 4c 54 41 4c 2d 34 30 32 36 30 20 52 45 4d 20 4f 47 20 41 4e ┆T TAL TIL HELTAL-40260 REM OG AN┆
0x12ec0…12ee0 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 52 4e 45 20 53 54 49 50 52 45 4c 20 4f 47 ┆VENDES I PROCEDURERNE STIPREL OG┆
0x12ee0…12f00 20 41 4b 53 45 2e 34 1a 30 32 37 30 20 44 45 46 20 52 4f 55 28 5a 29 3d 49 4e 54 28 5a 2b 30 2e ┆ AKSE.4 0270 DEF ROU(Z)=INT(Z+0.┆
0x12f00…12f20 (9, 0, 16) 35 29 1a 11 30 32 38 30 20 50 49 3d 33 2e 31 34 31 35 39 32 36 11 12 30 32 39 30 20 50 52 4f 43 ┆5) 0280 PI=3.1415926 0290 PROC┆
0x12f20…12f40 20 50 4c 4f 54 49 4e 49 54 12 2a 30 33 30 30 20 52 45 4d 20 5d 42 4e 45 52 20 50 4c 4f 54 54 45 ┆ PLOTINIT *0300 REM ÅBNER PLOTTE┆
0x12f40…12f60 52 45 4e 20 4f 47 20 4c 5c 46 54 45 52 20 50 45 4e 4e 45 4e 2c 2a 29 30 33 31 30 20 52 45 4d 20 ┆REN OG LØFTER PENNEN,*)0310 REM ┆
0x12f60…12f80 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 54 49 4c 20 28 30 2c 30 29 20 3d 20 48 4f 4d 45 2e ┆FLYTTER PENNEN TIL (0,0) = HOME.┆
0x12f80…12fa0 29 18 30 33 32 30 20 50 52 49 4e 54 20 22 49 3b 3a 20 49 3b 3a 20 55 20 48 22 18 17 30 33 33 30 ┆) 0320 PRINT "I;: I;: U H" 0330┆
0x12fa0…12fc0 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 49 4e 49 54 2e 17 12 30 33 34 30 20 50 52 4f 43 20 50 ┆ ENDPROC ;PLOTINIT. 0340 PROC P┆
0x12fc0…12fe0 4c 4f 54 53 4c 55 54 12 1c 30 33 35 30 20 52 45 4d 20 41 46 42 52 59 44 45 52 20 50 4c 4f 54 54 ┆LOTSLUT 0350 REM AFBRYDER PLOTT┆
0x12fe0…13000 45 52 45 4e 2e 1c 0e 30 33 36 30 20 50 52 49 4e 54 20 22 40 22 0e 17 30 33 37 30 20 45 4e 44 50 ┆EREN. 0360 PRINT "@" 0370 ENDP┆
0x13000…13020 (9, 1, 1) 52 4f 43 20 3b 50 4c 4f 54 53 4c 55 54 2e 17 12 30 33 38 30 20 50 52 4f 43 20 50 4c 4f 54 54 45 ┆ROC ;PLOTSLUT. 0380 PROC PLOTTE┆
0x13020…13040 53 54 12 2b 30 33 39 30 20 52 45 4d 20 4b 5c 52 45 52 20 50 4c 4f 54 54 45 52 45 4e 53 20 53 45 ┆ST +0390 REM KØRER PLOTTERENS SE┆
0x13040…13060 4c 56 54 45 53 54 20 50 52 4f 47 52 41 4d 2e 2b 0e 30 34 30 30 20 50 52 49 4e 54 20 22 54 22 0e ┆LVTEST PROGRAM.+ 0400 PRINT "T" ┆
0x13060…13080 17 30 34 31 30 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 54 45 53 54 2e 17 10 30 34 32 30 20 50 ┆ 0410 ENDPROC ;PLOTTEST. 0420 P┆
0x13080…130a0 52 4f 43 20 4e 55 4c 50 4b 54 10 1f 30 34 33 30 20 52 45 4d 20 46 41 53 54 53 5b 54 54 45 52 20 ┆ROC NULPKT 0430 REM FASTSÆTTER ┆
0x130a0…130c0 4e 55 4c 50 55 4e 4b 54 45 54 2e 1f 0e 30 34 34 30 20 50 52 49 4e 54 20 22 4f 22 0e 15 30 34 35 ┆NULPUNKTET. 0440 PRINT "O" 045┆
0x130c0…130e0 30 20 45 4e 44 50 52 4f 43 20 3b 4e 55 4c 50 4b 54 2e 15 10 30 34 36 30 20 50 52 4f 43 20 50 45 ┆0 ENDPROC ;NULPKT. 0460 PROC PE┆
0x130e0…13100 4e 4e 45 44 10 26 30 34 37 30 20 52 45 4d 20 53 5b 54 54 45 52 20 50 45 4e 4e 45 4e 20 4e 45 44 ┆NNED &0470 REM SÆTTER PENNEN NED┆
0x13100…13120 (9, 1, 2) 20 50 5d 20 50 41 50 49 52 45 54 2e 26 0e 30 34 38 30 20 50 52 49 4e 54 20 22 44 22 0e 15 30 34 ┆ PÅ PAPIRET.& 0480 PRINT "D" 04┆
0x13120…13140 39 30 20 45 4e 44 50 52 4f 43 20 3b 50 45 4e 4e 45 44 2e 15 0f 30 35 30 30 20 50 52 4f 43 20 50 ┆90 ENDPROC ;PENNED. 0500 PROC P┆
0x13140…13160 45 4e 4f 50 0f 25 30 35 31 30 20 52 45 4d 20 48 5b 56 45 52 20 50 45 4e 4e 45 4e 20 4f 50 20 46 ┆ENOP %0510 REM HÆVER PENNEN OP F┆
0x13160…13180 52 41 20 50 41 50 49 52 45 54 2e 25 0e 30 35 32 30 20 50 52 49 4e 54 20 22 55 22 0e 14 30 35 33 ┆RA PAPIRET.% 0520 PRINT "U" 053┆
0x13180…131a0 30 20 45 4e 44 50 52 4f 43 20 3b 50 45 4e 4f 50 2e 14 16 30 35 34 30 20 50 52 4f 43 20 46 4c 59 ┆0 ENDPROC ;PENOP. 0540 PROC FLY┆
0x131a0…131c0 54 41 42 53 28 58 2c 59 29 16 38 30 35 35 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e ┆TABS(X,Y) 80550 REM FLYTTER PENN┆
0x131c0…131e0 45 4e 20 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c ┆EN ABSOLUT TIL KOORDINATERNE (X,┆
0x131e0…13200 59 29 2e 38 16 30 35 36 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 35 37 ┆Y).8 0560 X=INT(X);Y=INT(Y) 057┆
0x13200…13220 (9, 1, 3) 30 20 50 52 49 4e 54 20 22 55 20 41 22 3b 58 3b 22 2c 22 3b 59 18 16 30 35 38 30 20 45 4e 44 50 ┆0 PRINT "U A";X;",";Y 0580 ENDP┆
0x13220…13240 52 4f 43 20 3b 46 4c 59 54 41 42 53 2e 16 1d 30 35 39 30 20 50 52 4f 43 20 54 45 47 4e 41 42 53 ┆ROC ;FLYTABS. 0590 PROC TEGNABS┆
0x13240…13260 28 4c 49 4e 54 59 50 2c 58 2c 59 29 1d 35 30 36 30 30 20 52 45 4d 20 54 45 47 4e 45 52 20 4c 49 ┆(LINTYP,X,Y) 50600 REM TEGNER LI┆
0x13260…13280 4e 49 45 20 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 ┆NIE ABSOLUT TIL KOORDINATERNE (X┆
0x13280…132a0 2c 59 29 35 23 30 36 31 30 20 52 45 4d 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 49 ┆,Y)5#0610 REM MED DEN ANGIVNE LI┆
0x132a0…132c0 4e 49 45 54 59 50 45 2e 23 16 30 36 32 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 ┆NIETYPE.# 0620 X=INT(X);Y=INT(Y)┆
0x132c0…132e0 16 29 30 36 33 30 20 50 52 49 4e 54 20 22 44 20 41 20 4c 22 2b 43 48 52 28 34 38 2b 4c 49 4e 54 ┆ )0630 PRINT "D A L"+CHR(48+LINT┆
0x132e0…13300 59 50 29 3b 58 3b 22 2c 22 3b 59 29 16 30 36 34 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 41 ┆YP);X;",";Y) 0640 ENDPROC ;TEGNA┆
0x13300…13320 (9, 1, 4) 42 53 2e 16 16 30 36 35 30 20 50 52 4f 43 20 46 4c 59 54 52 45 4c 28 58 2c 59 29 16 39 30 36 36 ┆BS. 0650 PROC FLYTREL(X,Y) 9066┆
0x13320…13340 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 52 45 4c 41 54 49 56 54 20 54 49 ┆0 REM FLYTTER PENNEN RELATIVT TI┆
0x13340…13360 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 39 16 30 36 37 30 20 58 3d 49 ┆L KOORDINATERNE (X,Y).9 0670 X=I┆
0x13360…13380 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 36 38 30 20 50 52 49 4e 54 20 22 55 20 52 22 ┆NT(X);Y=INT(Y) 0680 PRINT "U R"┆
0x13380…133a0 3b 58 3b 22 2c 22 3b 59 18 16 30 36 39 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e ┆;X;",";Y 0690 ENDPROC ;FLYTREL.┆
0x133a0…133c0 16 16 30 37 30 30 20 50 52 4f 43 20 54 45 47 4e 52 45 4c 28 58 2c 59 29 16 37 30 37 31 30 20 52 ┆ 0700 PROC TEGNREL(X,Y) 70710 R┆
0x133c0…133e0 45 4d 20 54 45 47 4e 45 52 20 4c 49 4e 49 45 20 52 45 4c 41 54 49 56 54 20 54 49 4c 20 4b 4f 4f ┆EM TEGNER LINIE RELATIVT TIL KOO┆
0x133e0…13400 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 37 16 30 37 32 30 20 58 3d 49 4e 54 28 58 29 ┆RDINATERNE (X,Y).7 0720 X=INT(X)┆
0x13400…13420 (9, 1, 5) 3b 59 3d 49 4e 54 28 59 29 16 1b 30 37 33 30 20 50 52 49 4e 54 20 22 44 20 52 20 4c 30 22 3b 58 ┆;Y=INT(Y) 0730 PRINT "D R L0";X┆
0x13420…13440 3b 22 2c 22 3b 59 1b 16 30 37 34 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e 16 20 ┆;",";Y 0740 ENDPROC ;FLYTREL. ┆
0x13440…13460 30 37 35 30 20 50 52 4f 43 20 46 4c 59 54 50 4f 4c 28 56 49 4e 4b 45 4c 2c 4c 5b 4e 47 44 45 29 ┆0750 PROC FLYTPOL(VINKEL,LÆNGDE)┆
0x13460…13480 20 35 30 37 36 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 44 45 4e 20 41 4e ┆ 50760 REM FLYTTER PENNEN DEN AN┆
0x13480…134a0 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d 45 44 20 44 45 4e 35 2f 30 37 37 30 20 52 45 ┆GIVNE LÆNGDE OG MED DEN5/0770 RE┆
0x134a0…134c0 4d 20 41 4e 46 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 ┆M ANFGIVNE VINKEL I FORHOLD TIL ┆
0x134c0…134e0 56 41 4e 44 52 45 54 2e 2f 25 30 37 38 30 20 58 3d 49 4e 54 28 4c 5b 4e 47 44 45 2a 43 4f 53 28 ┆VANDRET./%0780 X=INT(LÆNGDE*COS(┆
0x134e0…13500 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 25 30 37 39 30 20 59 3d 49 4e 54 28 4c 5b 4e 47 ┆VINKEL/180*PI))%%0790 Y=INT(LÆNG┆
0x13500…13520 (9, 1, 6) ExtentHdr {name=»DEMO3 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0013,0f (0x013f00)}, prevext={DA 0012,0b (0x012b00)}, nextfile={DA 0013,0f (0x013f00)}, f99=41 12 00 20 00 00 00 00 00 00 ┆A ┆}
0x13520…13540 44 45 2a 53 49 4e 28 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 18 30 38 30 30 20 50 52 49 ┆DE*SIN(VINKEL/180*PI))% 0800 PRI┆
0x13540…13560 4e 54 20 22 55 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 38 31 30 20 45 4e 44 50 52 4f 43 20 3b ┆NT "U R";X;",";Y 0810 ENDPROC ;┆
0x13560…13580 46 4c 59 54 50 4f 4c 2e 16 20 30 38 32 30 20 50 52 4f 43 20 54 45 47 4e 50 4f 4c 28 56 49 4e 4b ┆FLYTPOL. 0820 PROC TEGNPOL(VINK┆
0x13580…135a0 45 4c 2c 4c 5b 4e 47 44 45 29 20 36 30 38 33 30 20 52 45 4d 20 54 45 47 4e 45 52 20 45 4e 20 4c ┆EL,LÆNGDE) 60830 REM TEGNER EN L┆
0x135a0…135c0 49 4e 49 45 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d ┆INIE MED DEN ANGIVNE LÆNGDE OG M┆
0x135c0…135e0 45 44 36 31 30 38 34 30 20 52 45 4d 20 44 45 20 41 4e 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 ┆ED610840 REM DE ANGIVNE VINKEL I┆
0x135e0…13600 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 31 25 30 38 35 30 20 58 3d 49 4e ┆ FORHOLD TIL VANDRET.1%0850 X=IN┆
0x13600…13620 (9, 1, 7) 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 30 38 ┆T(LÆNGDE*COS(VINKEL/180*PI))%%08┆
0x13620…13640 36 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 ┆60 Y=INT(LÆNGDE*SIN(VINKEL/180*P┆
0x13640…13660 49 29 29 25 18 30 38 37 30 20 50 52 49 4e 54 20 22 44 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 ┆I))% 0870 PRINT "D R";X;",";Y 0┆
0x13660…13680 38 38 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 50 4f 4c 2e 16 1d 30 38 39 30 20 50 52 4f 43 ┆880 ENDPROC ;TEGNPOL. 0890 PROC┆
0x13680…136a0 20 53 59 4d 42 4f 4c 28 48 5c 4a 44 45 2c 46 49 47 55 52 29 1d 47 30 39 30 30 20 52 45 4d 20 54 ┆ SYMBOL(HØJDE,FIGUR) G0900 REM T┆
0x136a0…136c0 45 47 4e 45 52 20 45 54 20 41 46 20 46 49 47 55 52 45 52 4e 45 3a 50 4c 55 53 28 30 29 2c 4b 4f ┆EGNER ET AF FIGURERNE:PLUS(0),KO┆
0x136c0…136e0 52 53 28 31 29 2c 46 49 52 4b 41 4e 54 28 32 29 2c 4f 54 54 45 4b 41 4e 54 28 33 29 2c 47 40 30 ┆RS(1),FIRKANT(2),OTTEKANT(3),G@0┆
0x136e0…13700 39 31 30 20 52 45 4d 20 54 52 45 4b 41 4e 54 28 34 29 2c 54 49 4d 45 47 4c 41 53 28 35 29 2c 20 ┆910 REM TREKANT(4),TIMEGLAS(5), ┆
0x13700…13720 (9, 1, 8) 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 2c 34 2c 35 2e 40 ┆MED EN AF HØJDERNE 0,1,2,3,4,5.@┆
0x13720…13740 2f 30 39 32 30 20 50 52 49 4e 54 20 22 4d 22 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 2b 43 48 ┆/0920 PRINT "M"+CHR(48+HØJDE)+CH┆
0x13740…13760 52 28 34 38 2b 46 49 47 55 52 29 2b 22 20 55 22 2f 15 30 39 33 30 20 45 4e 44 50 52 4f 43 20 3b ┆R(48+FIGUR)+" U"/ 0930 ENDPROC ;┆
0x13760…13780 53 59 4d 42 4f 4c 2e 15 22 30 39 34 30 20 50 52 4f 43 20 54 45 4b 53 54 28 56 49 4e 4b 45 4c 2c ┆SYMBOL. "0940 PROC TEKST(VINKEL,┆
0x13780…137a0 48 5c 4a 44 45 2c 54 45 58 54 29 22 31 30 39 35 30 20 52 45 4d 20 55 44 53 4b 52 49 56 45 52 20 ┆HØJDE,TEXT)"10950 REM UDSKRIVER ┆
0x137a0…137c0 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 5c 4a 44 45 31 29 ┆EN TEKST MED DEN ANGIVNE HØJDE1)┆
0x137c0…137e0 30 39 36 30 20 52 45 4d 20 4f 47 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c ┆0960 REM OG VINKEL I FORHOLD TIL┆
0x137e0…13800 20 56 41 4e 44 52 45 54 2e 29 24 30 39 37 30 20 56 3d 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c ┆ VANDRET.)$0970 V=1+((360-VINKEL┆
0x13800…13820 (9, 1, 9) 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 34 30 39 38 30 20 50 52 49 4e 54 20 22 53 22 2b ┆) DIV 90) MOD 4$40980 PRINT "S"+┆
0x13820…13840 43 48 52 28 34 38 2b 56 29 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 3b 22 20 22 3b 54 45 58 54 ┆CHR(48+V)+CHR(48+HØJDE);" ";TEXT┆
0x13840…13860 24 3b 22 5f 22 34 14 30 39 39 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 4b 53 54 2e 14 1e 31 30 30 ┆$;"_"4 0990 ENDPROC ;TEKST. 100┆
0x13860…13880 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 31 30 31 ┆0 PROC TAL(VINKEL,HØJDE,NR) ;101┆
0x13880…138a0 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 4e 20 41 ┆0 REM UDSKRIVER ET TAL MED DEN A┆
0x138a0…138c0 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 31 30 32 30 20 52 ┆NGIVNE HØJDE OG VINKEL I; 1020 R┆
0x138c0…138e0 45 4d 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 1d 24 31 30 33 30 20 56 3d ┆EM FORHOLD TIL VANDRET. $1030 V=┆
0x138e0…13900 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 27 31 ┆1+((360-VINKEL) DIV 90) MOD 4$'1┆
0x13900…13920 (9, 1, 10) 30 34 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 ┆040 PRINT "S"+CHR(48+V)+CHR(48+H┆
0x13920…13940 5c 4a 44 45 29 3b 27 25 31 30 35 30 20 49 46 20 4e 52 3c 3d 2d 31 20 4f 52 20 4e 52 3d 30 20 4f ┆ØJDE);'%1050 IF NR<=-1 OR NR=0 O┆
0x13940…13960 52 20 31 3c 3d 4e 52 20 54 48 45 4e 20 25 11 31 30 36 30 20 50 52 49 4e 54 20 4e 52 3b 22 5f 22 ┆R 1<=NR THEN % 1060 PRINT NR;"_"┆
0x13960…13980 11 0a 31 30 37 30 20 45 4c 53 45 20 0a 1d 31 30 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 ┆ 1070 ELSE 1080 PRINT USING "┆
0x13980…139a0 20 23 2e 23 23 20 5f 22 3a 4e 52 1d 0b 31 30 39 30 20 45 4e 44 49 46 20 0b 12 31 31 30 30 20 45 ┆ #.## _":NR 1090 ENDIF 1100 E┆
0x139a0…139c0 4e 44 50 52 4f 43 20 3b 54 41 4c 2e 12 2b 31 34 34 30 20 50 52 4f 43 20 41 4b 53 45 28 56 49 2c ┆NDPROC ;TAL. +1440 PROC AKSE(VI,┆
0x139c0…139e0 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 34 35 30 20 ┆HØ,SK,SE,MIN,MAX,TYP,TEX)+C1450 ┆
0x139e0…13a00 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 ****************************┆
0x13a00…13a20 (9, 1, 11) 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┆
0x13a20…13a40 31 34 36 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 ┆1460 REM *AKSE TEGNER EN AKSE ME┆
0x13a40…13a60 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┆
0x13a60…13a80 45 54 2a 43 43 31 34 37 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*CC1470 REM *FRA MIN TIL MAX. ┆
0x13a80…13aa0 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Ø┆
0x13aa0…13ac0 4a 44 45 4e 20 48 5c 2a 43 43 31 34 38 30 20 52 45 4d 20 2a 50 5d 20 41 4b 53 45 4e 2e 20 53 4b ┆JDEN HØ*CC1480 REM *PÅ AKSEN. SK┆
0x13ac0…13ae0 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┆
0x13ae0…13b00 54 20 49 20 41 4e 54 41 4c 20 20 20 2a 43 43 31 34 39 30 20 52 45 4d 20 2a 53 54 45 50 53 20 50 ┆T I ANTAL *CC1490 REM *STEPS P┆
0x13b00…13b20 (9, 1, 12) 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┆
0x13b20…13b40 20 50 52 2e 20 45 4e 48 45 44 20 42 45 2d 20 20 20 2a 43 43 31 35 30 30 20 52 45 4d 20 2a 53 54 ┆ PR. ENHED BE- *CC1500 REM *ST┆
0x13b40…13b60 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. ┆
0x13b60…13b80 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 35 31 30 20 52 45 ┆ *CC1510 RE┆
0x13b80…13ba0 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 ******************************┆
0x13ba0…13bc0 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 3a 31 35 ┆****************************C:15┆
0x13bc0…13be0 32 30 20 4b 58 3d 43 4f 53 28 56 49 2f 31 38 30 2a 50 49 29 3b 4b 59 3d 53 49 4e 28 56 49 2f 31 ┆20 KX=COS(VI/180*PI);KY=SIN(VI/1┆
0x13be0…13c00 38 30 2a 50 49 29 3b 48 42 3d 28 31 38 2a 32 2a 2a 28 48 5c 2d 31 29 29 3a 20 31 35 33 30 20 49 ┆80*PI);HB=(18*2**(HØ-1)): 1530 I┆
0x13c00…13c20 (9, 1, 13) 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 35 34 30 ┆F SGN(MIN)<>SGN(MAX) THEN 1540┆
0x13c20…13c40 20 4d 49 3d 4d 49 4e 3b 4d 58 3d 4d 41 58 12 0a 31 35 35 30 20 45 4c 53 45 20 0a 18 31 35 36 30 ┆ MI=MIN;MX=MAX 1550 ELSE 1560┆
0x13c40…13c60 20 49 46 20 53 47 4e 28 4d 49 4e 29 3d 31 20 54 48 45 4e 20 18 14 31 35 37 30 20 4d 49 3d 30 3b ┆ IF SGN(MIN)=1 THEN 1570 MI=0;┆
0x13c60…13c80 4d 58 3d 4d 41 58 2d 4d 49 4e 14 0a 31 35 38 30 20 45 4c 53 45 20 0a 14 31 35 39 30 20 4d 58 3d ┆MX=MAX-MIN 1580 ELSE 1590 MX=┆
0x13c80…13ca0 30 3b 4d 49 3d 4d 49 4e 2d 4d 41 58 14 0b 31 36 30 30 20 45 4e 44 49 46 20 0b 0b 31 36 31 30 20 ┆0;MI=MIN-MAX 1600 ENDIF 1610 ┆
0x13ca0…13cc0 45 4e 44 49 46 20 0b 48 31 36 32 30 20 58 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 58 ┆ENDIF H1620 XMAX=(MX*SK+100)*KX┆
0x13cc0…13ce0 3b 59 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 59 3b 58 4d 49 4e 3d 4d 49 2a 53 4b 2a ┆;YMAX=(MX*SK+100)*KY;XMIN=MI*SK*┆
0x13ce0…13d00 4b 58 3b 59 4d 49 4e 3d 4d 49 2a 53 4b 2a 4b 59 48 1c 31 36 33 30 20 45 58 45 43 20 46 4c 59 54 ┆KX;YMIN=MI*SK*KYH 1630 EXEC FLYT┆
0x13d00…13d20 (9, 1, 14) 41 42 53 28 58 4d 49 4e 2c 59 4d 49 4e 29 1c 1e 31 36 34 30 20 45 58 45 43 20 54 45 47 4e 41 42 ┆ABS(XMIN,YMIN) 1640 EXEC TEGNAB┆
0x13d20…13d40 53 28 30 2c 58 4d 41 58 2c 59 4d 41 58 29 1e 23 31 36 35 30 20 45 58 45 43 20 54 45 47 4e 52 45 ┆S(0,XMAX,YMAX) #1650 EXEC TEGNRE┆
0x13d40…13d60 4c 28 28 4b 59 2a 32 30 29 2c 28 2d 4b 58 2a 32 30 29 29 23 28 31 36 36 30 20 45 58 45 43 20 54 ┆L((KY*20),(-KX*20))#(1660 EXEC T┆
0x13d60…13d80 45 47 4e 52 45 4c 28 28 4b 58 2d 4b 59 29 2a 32 30 2c 28 4b 58 2b 4b 59 29 2a 32 30 29 28 29 31 ┆EGNREL((KX-KY)*20,(KX+KY)*20)()1┆
0x13d80…13da0 36 37 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 2d 4b 58 2d 4b 59 29 2a 32 30 2c 28 4b 58 ┆670 EXEC TEGNREL((-KX-KY)*20,(KX┆
0x13da0…13dc0 2d 4b 59 29 2a 32 30 29 29 23 31 36 38 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 2a ┆-KY)*20))#1680 EXEC TEGNREL((KY*┆
0x13dc0…13de0 32 30 29 2c 28 2d 4b 58 2a 32 30 29 29 23 1d 31 36 39 30 20 49 46 20 30 3c 3d 4b 59 20 41 4e 44 ┆20),(-KX*20))# 1690 IF 0<=KY AND┆
0x13de0…13e00 20 4b 59 3c 3d 31 20 54 48 45 4e 20 1d 37 31 37 30 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 ┆ KY<=1 THEN 71700 EXEC FLYTREL(┆
0x13e00…13e20 (9, 1, 15) 28 4b 59 2a 33 30 29 2c 28 2d 4b 58 2a 33 30 2d 48 42 2a 28 53 47 4e 28 4b 58 2d 4b 59 29 2b 31 ┆(KY*30),(-KX*30-HB*(SGN(KX-KY)+1┆
0x13e20…13e40 29 2f 32 29 29 37 0a 31 37 31 30 20 45 4c 53 45 20 0a 38 31 37 32 30 20 45 58 45 43 20 46 4c 59 ┆)/2))7 1710 ELSE 81720 EXEC FLY┆
0x13e40…13e60 54 52 45 4c 28 28 2d 4b 59 2a 33 30 29 2c 28 4b 58 2a 33 30 2d 48 42 2a 28 53 47 4e 28 2d 4b 58 ┆TREL((-KY*30),(KX*30-HB*(SGN(-KX┆
0x13e60…13e80 2b 4b 59 29 2b 31 29 2f 32 29 29 38 0b 31 37 33 30 20 45 4e 44 49 46 20 0b 1a 31 37 34 30 20 45 ┆+KY)+1)/2))8 1730 ENDIF 1740 E┆
0x13e80…13ea0 58 45 43 20 54 45 4b 53 54 28 30 2c 48 5c 2c 54 45 58 24 29 1a 16 31 37 35 30 20 49 46 20 54 59 ┆XEC TEKST(0,HØ,TEX$) 1750 IF TY┆
0x13ea0…13ec0 50 24 3c 3e 22 22 20 54 48 45 4e 20 16 17 31 37 36 30 20 53 49 3d 28 4d 41 58 20 44 49 56 20 53 ┆P$<>"" THEN 1760 SI=(MAX DIV S┆
0x13ec0…13ee0 45 29 2a 53 45 17 2e 31 37 37 30 20 46 4f 52 20 49 3d 28 53 49 2b 4d 49 2d 4d 49 4e 29 2a 53 4b ┆E)*SE .1770 FOR I=(SI+MI-MIN)*SK┆
0x13ee0…13f00 20 54 4f 20 4d 49 2a 53 4b 20 53 54 45 50 20 2d 53 45 2a 53 4b 2e 2c 31 37 38 30 20 45 58 45 43 ┆ TO MI*SK STEP -SE*SK.,1780 EXEC┆
0x13f00…13f20 (9, 1, 16) ExtentHdr {name=»DEMO3 «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0014,09 (0x014900)}, prevext={DA 0013,05 (0x013500)}, nextfile={DA 0014,09 (0x014900)}, f99=41 12 00 20 00 00 00 00 00 00 ┆A ┆}
0x13f20…13f40 20 46 4c 59 54 41 42 53 28 28 4b 58 2a 49 2d 4b 59 2a 31 30 29 2c 28 4b 59 2a 49 2b 4b 58 2a 31 ┆ FLYTABS((KX*I-KY*10),(KY*I+KX*1┆
0x13f40…13f60 30 29 29 2c 23 31 37 39 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 2a 32 30 29 2c 28 ┆0)),#1790 EXEC TEGNREL((KY*20),(┆
0x13f60…13f80 2d 4b 58 2a 32 30 29 29 23 1d 31 38 30 30 20 49 46 20 30 3c 3d 4b 59 20 41 4e 44 20 4b 59 3c 3d ┆-KX*20))# 1800 IF 0<=KY AND KY<=┆
0x13f80…13fa0 31 20 54 48 45 4e 20 1d 34 31 38 31 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 4b 59 2a 32 ┆1 THEN 41810 EXEC FLYTREL((KY*2┆
0x13fa0…13fc0 30 29 2c 28 2d 4b 58 2a 32 30 2d 48 42 2a 28 53 47 4e 28 4b 58 29 2b 31 29 2f 32 29 29 34 0a 31 ┆0),(-KX*20-HB*(SGN(KX)+1)/2))4 1┆
0x13fc0…13fe0 38 32 30 20 45 4c 53 45 20 0a 34 31 38 33 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 2d 4b ┆820 ELSE 41830 EXEC FLYTREL((-K┆
0x13fe0…14000 59 29 2a 34 30 2c 28 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 ┆Y)*40,(KX)*40+HB*(SGN(KX)-1)/2)4┆
0x14000…14020 (10, 0, 1) 0b 31 38 34 30 20 45 4e 44 49 46 20 0b 18 31 38 35 30 20 49 46 20 54 59 50 24 3d 22 4c 49 4e 22 ┆ 1840 ENDIF 1850 IF TYP$="LIN"┆
0x14020…14040 20 54 48 45 4e 20 18 0b 31 38 36 30 20 53 49 49 3d 53 49 0b 0a 31 38 37 30 20 45 4c 53 45 20 0a ┆ THEN 1860 SII=SI 1870 ELSE ┆
0x14040…14060 0f 31 38 38 30 20 53 49 49 3d 31 30 2a 2a 53 49 0f 0b 31 38 39 30 20 45 4e 44 49 46 20 0b 1c 31 ┆ 1880 SII=10**SI 1890 ENDIF 1┆
0x14060…14080 39 30 30 20 49 46 20 41 42 53 28 53 49 49 29 3c 3d 39 39 39 39 20 54 48 45 4e 20 1c 18 31 39 31 ┆900 IF ABS(SII)<=9999 THEN 191┆
0x14080…140a0 30 20 53 4a 3d 52 4f 55 28 53 49 49 2a 31 30 30 29 2f 31 30 30 18 0a 31 39 32 30 20 45 4c 53 45 ┆0 SJ=ROU(SII*100)/100 1920 ELSE┆
0x140a0…140c0 20 0a 30 31 39 33 30 20 49 46 20 39 39 39 39 3c 41 42 53 28 53 49 49 29 20 41 4e 44 20 41 42 53 ┆ 01930 IF 9999<ABS(SII) AND ABS┆
0x140c0…140e0 28 53 49 49 29 3c 3d 39 39 39 39 39 39 20 54 48 45 4e 20 30 10 31 39 34 30 20 53 4a 3d 52 4f 55 ┆(SII)<=999999 THEN 0 1940 SJ=ROU┆
0x140e0…14100 28 53 49 49 29 10 0a 31 39 35 30 20 45 4c 53 45 20 0a 0b 31 39 36 30 20 53 4a 3d 53 49 49 0b 0b ┆(SII) 1950 ELSE 1960 SJ=SII ┆
0x14100…14120 (10, 0, 2) 31 39 37 30 20 45 4e 44 49 46 20 0b 0b 31 39 38 30 20 45 4e 44 49 46 20 0b 24 31 39 39 30 20 49 ┆1970 ENDIF 1980 ENDIF $1990 I┆
0x14120…14140 46 20 53 4a 3c 3e 30 20 54 48 45 4e 20 45 58 45 43 20 54 41 4c 28 30 2c 48 5c 2c 53 4a 29 24 0d ┆F SJ<>0 THEN EXEC TAL(0,HØ,SJ)$ ┆
0x14140…14160 32 30 30 30 20 53 49 3d 53 49 2d 53 45 0d 0b 32 30 31 30 20 4e 45 58 54 20 49 0b 0b 32 30 32 30 ┆2000 SI=SI-SE 2010 NEXT I 2020┆
0x14160…14180 20 45 4e 44 49 46 20 0b 13 32 30 33 30 20 45 4e 44 50 52 4f 43 20 3b 41 4b 53 45 2e 13 3b 32 30 ┆ ENDIF 2030 ENDPROC ;AKSE. ;20┆
0x14180…141a0 34 30 20 50 52 4f 43 20 4b 4f 53 59 53 28 58 49 2c 58 58 2c 59 49 2c 59 58 2c 58 43 2c 59 43 2c ┆40 PROC KOSYS(XI,XX,YI,YX,XC,YC,┆
0x141a0…141c0 58 30 2c 59 30 2c 58 54 50 2c 59 54 50 2c 41 4b 2c 58 54 58 2c 59 54 58 29 3b 3f 32 30 35 30 20 ┆X0,Y0,XTP,YTP,AK,XTX,YTX);?2050 ┆
0x141c0…141e0 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 ****************************┆
0x141e0…14200 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 3f 3f 32 30 36 30 ┆**************************??2060┆
0x14200…14220 (10, 0, 3) 20 52 45 4d 20 2a 4b 4f 53 59 53 20 46 4f 52 45 54 41 47 45 52 20 45 4e 20 41 55 54 4f 53 4b 41 ┆ REM *KOSYS FORETAGER EN AUTOSKA┆
0x14220…14240 4c 45 52 49 4e 47 20 4f 47 20 45 4e 20 41 55 54 4f 4e 55 4c 50 55 4e 4b 54 53 2a 3f 3f 32 30 37 ┆LERING OG EN AUTONULPUNKTS*??207┆
0x14240…14260 30 20 52 45 4d 20 2a 42 45 53 54 45 4d 4d 45 4c 53 45 2c 20 48 56 49 53 20 58 43 20 4f 47 2f 45 ┆0 REM *BESTEMMELSE, HVIS XC OG/E┆
0x14260…14280 4c 4c 45 52 20 59 43 20 45 52 20 4d 49 4e 44 52 45 20 45 4e 44 20 45 4c 4c 45 52 2a 3f 3f 32 30 ┆LLER YC ER MINDRE END ELLER*??20┆
0x14280…142a0 38 30 20 52 45 4d 20 2a 4c 49 47 20 4d 45 44 20 4e 55 4c 2e 20 53 4b 41 4c 45 52 49 4e 47 45 4e ┆80 REM *LIG MED NUL. SKALERINGEN┆
0x142a0…142c0 20 58 43 2c 59 43 20 42 45 53 54 45 4d 4d 45 53 20 44 41 20 41 46 20 58 49 2c 58 58 2a 3f 3f 32 ┆ XC,YC BESTEMMES DA AF XI,XX*??2┆
0x142c0…142e0 30 39 30 20 52 45 4d 20 2a 4f 47 20 59 49 2c 59 58 2e 20 45 4c 4c 45 52 53 20 41 4e 56 45 4e 44 ┆090 REM *OG YI,YX. ELLERS ANVEND┆
0x142e0…14300 45 53 20 44 45 20 55 44 45 46 52 41 20 41 4e 47 49 56 4e 45 20 53 4b 41 4c 45 2d 20 20 2a 3f 3f ┆ES DE UDEFRA ANGIVNE SKALE- *??┆
0x14300…14320 (10, 0, 4) 32 31 30 30 20 52 45 4d 20 2a 52 49 4e 47 45 52 20 58 43 2c 59 43 20 4f 47 20 44 45 20 55 44 45 ┆2100 REM *RINGER XC,YC OG DE UDE┆
0x14320…14340 46 52 41 20 41 4e 47 49 56 4e 45 20 4e 55 4c 50 55 4e 4b 54 45 52 20 58 5c 2c 59 5c 2e 20 2a 3f ┆FRA ANGIVNE NULPUNKTER XØ,YØ. *?┆
0x14340…14360 3f 32 31 31 30 20 52 45 4d 20 2a 44 45 53 55 44 45 4e 20 56 49 4c 20 4b 4f 4f 52 44 2c 20 48 56 ┆?2110 REM *DESUDEN VIL KOORD, HV┆
0x14360…14380 49 53 20 41 4b 20 45 52 20 4c 49 47 20 4d 45 44 20 45 45 4e 2c 20 55 44 54 45 47 4e 45 20 20 2a ┆IS AK ER LIG MED EEN, UDTEGNE *┆
0x14380…143a0 3f 3f 32 31 32 30 20 52 45 4d 20 2a 4b 4f 4f 52 44 49 4e 41 54 41 4b 53 45 52 4e 45 2c 20 53 5b ┆??2120 REM *KOORDINATAKSERNE, SÆ┆
0x143a0…143c0 54 54 45 20 54 45 4b 53 54 45 52 4e 45 20 58 54 58 20 4f 47 20 59 54 58 20 50 5d 20 20 20 20 20 ┆TTE TEKSTERNE XTX OG YTX PÅ ┆
0x143c0…143e0 2a 3f 3f 32 31 33 30 20 52 45 4d 20 2a 41 4b 53 45 52 4e 45 20 4f 47 20 45 4e 44 45 4c 49 47 20 ┆*??2130 REM *AKSERNE OG ENDELIG ┆
0x143e0…14400 55 44 53 4b 52 49 56 45 20 45 4e 20 53 4b 41 4c 41 2c 20 53 4f 4d 20 56 49 4c 20 56 5b 52 45 20 ┆UDSKRIVE EN SKALA, SOM VIL VÆRE ┆
0x14400…14420 (10, 0, 5) 20 2a 3f 3f 32 31 34 30 20 52 45 4d 20 2a 4c 49 4e 49 5b 52 2c 20 48 56 49 53 20 58 54 50 28 59 ┆ *??2140 REM *LINIÆR, HVIS XTP(Y┆
0x14420…14440 54 50 29 20 45 52 20 4c 49 47 20 22 4c 49 4e 22 20 4f 47 20 45 4b 53 50 4f 4e 45 4e 54 49 41 4c ┆TP) ER LIG "LIN" OG EKSPONENTIAL┆
0x14440…14460 2c 20 2a 3f 3f 32 31 35 30 20 52 45 4d 20 2a 48 56 49 53 20 58 54 50 28 59 54 50 29 20 45 52 20 ┆, *??2150 REM *HVIS XTP(YTP) ER ┆
0x14460…14480 46 4f 52 53 4b 45 4c 4c 49 47 20 46 52 41 20 22 4c 49 4e 22 2e 20 20 20 20 20 20 20 20 20 20 20 ┆FORSKELLIG FRA "LIN". ┆
0x14480…144a0 20 20 20 2a 3f 3f 32 31 36 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *??2160 REM *****************┆
0x144a0…144c0 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 2a 2a ┆********************************┆
0x144c0…144e0 2a 2a 2a 2a 2a 3f 19 32 31 37 30 20 50 52 4f 43 20 58 59 44 42 53 54 28 58 59 43 2c 58 59 44 29 ┆*****? 2170 PROC XYDBST(XYC,XYD)┆
0x144e0…14500 19 15 32 31 38 30 20 58 59 44 3d 49 4e 54 28 32 30 30 2f 58 59 43 29 15 29 32 31 39 30 20 49 46 ┆ 2180 XYD=INT(200/XYC) )2190 IF┆
0x14500…14520 (10, 0, 6) 20 32 30 30 3c 3d 58 59 43 20 41 4e 44 20 58 59 43 3c 34 30 30 20 54 48 45 4e 20 58 59 44 3d 30 ┆ 200<=XYC AND XYC<400 THEN XYD=0┆
0x14520…14540 2e 35 29 2b 32 32 30 30 20 49 46 20 34 30 30 3c 3d 58 59 43 20 41 4e 44 20 58 59 43 3c 31 38 30 ┆.5)+2200 IF 400<=XYC AND XYC<180┆
0x14540…14560 30 20 54 48 45 4e 20 58 59 44 3d 30 2e 32 35 2b 1e 32 32 31 30 20 49 46 20 31 38 30 30 3c 3d 58 ┆0 THEN XYD=0.25+ 2210 IF 1800<=X┆
0x14560…14580 59 43 20 54 48 45 4e 20 58 59 44 3d 30 2e 31 1e 15 32 32 32 30 20 45 4e 44 50 52 4f 43 20 3b 58 ┆YC THEN XYD=0.1 2220 ENDPROC ;X┆
0x14580…145a0 59 44 42 53 54 2e 15 14 32 32 33 30 20 53 4c 3d 33 35 30 30 3b 53 42 3d 32 33 30 30 14 1c 32 32 ┆YDBST. 2230 SL=3500;SB=2300 22┆
0x145a0…145c0 34 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 1a 32 32 35 30 ┆40 IF XC<=0 OR YC<=0 THEN 2250┆
0x145c0…145e0 20 58 43 2c 59 43 3d 49 4e 54 28 53 42 2f 28 59 58 2d 59 49 29 29 1a 31 32 32 36 30 20 49 46 20 ┆ XC,YC=INT(SB/(YX-YI)) 12260 IF ┆
0x145e0…14600 58 43 3d 3e 53 4c 2f 28 58 58 2d 58 49 29 20 54 48 45 4e 20 58 43 2c 59 43 3d 49 4e 54 28 53 4c ┆XC=>SL/(XX-XI) THEN XC,YC=INT(SL┆
0x14600…14620 (10, 0, 7) 2f 28 58 58 2d 58 49 29 29 31 25 32 32 37 30 20 58 4f 3d 2d 58 49 2a 58 43 3b 59 4f 3d 2d 59 49 ┆/(XX-XI))1%2270 XO=-XI*XC;YO=-YI┆
0x14620…14640 2a 59 43 3b 58 46 3d 2d 32 30 3b 59 46 3d 39 30 25 1e 32 32 38 30 20 49 46 20 30 3c 3d 58 4f 20 ┆*YC;XF=-20;YF=90% 2280 IF 0<=XO ┆
0x14640…14660 41 4e 44 20 58 4f 3c 3d 53 4c 20 54 48 45 4e 20 1e 0b 32 32 39 30 20 58 50 4f 3d 58 4f 0b 0a 32 ┆AND XO<=SL THEN 2290 XPO=XO 2┆
0x14660…14680 33 30 30 20 45 4c 53 45 20 0a 12 32 33 31 30 20 49 46 20 58 4f 3c 30 20 54 48 45 4e 20 12 0a 32 ┆300 ELSE 2310 IF XO<0 THEN 2┆
0x14680…146a0 33 32 30 20 58 50 4f 3d 30 0a 0a 32 33 33 30 20 45 4c 53 45 20 0a 0b 32 33 34 30 20 58 50 4f 3d ┆320 XPO=0 2330 ELSE 2340 XPO=┆
0x146a0…146c0 53 4c 0b 0b 32 33 35 30 20 45 4e 44 49 46 20 0b 0b 32 33 36 30 20 45 4e 44 49 46 20 0b 1e 32 33 ┆SL 2350 ENDIF 2360 ENDIF 23┆
0x146c0…146e0 37 30 20 49 46 20 30 3c 3d 59 4f 20 41 4e 44 20 59 4f 3c 3d 53 42 20 54 48 45 4e 20 1e 0b 32 33 ┆70 IF 0<=YO AND YO<=SB THEN 23┆
0x146e0…14700 38 30 20 59 50 4f 3d 59 4f 0b 0a 32 33 39 30 20 45 4c 53 45 20 0a 12 32 34 30 30 20 49 46 20 59 ┆80 YPO=YO 2390 ELSE 2400 IF Y┆
0x14700…14720 (10, 0, 8) 4f 3c 30 20 54 48 45 4e 20 12 0a 32 34 31 30 20 59 50 4f 3d 30 0a 0a 32 34 32 30 20 45 4c 53 45 ┆O<0 THEN 2410 YPO=0 2420 ELSE┆
0x14720…14740 20 0a 0b 32 34 33 30 20 59 50 4f 3d 53 42 0b 0b 32 34 34 30 20 45 4e 44 49 46 20 0b 0b 32 34 35 ┆ 2430 YPO=SB 2440 ENDIF 245┆
0x14740…14760 30 20 45 4e 44 49 46 20 0b 0a 32 34 36 30 20 45 4c 53 45 20 0a 40 32 34 37 30 20 58 43 3d 58 43 ┆0 ENDIF 2460 ELSE @2470 XC=XC┆
0x14760…14780 2a 31 30 3b 59 43 3d 59 43 2a 31 30 3b 58 50 4f 2c 58 4f 3d 58 30 2a 31 30 3b 59 50 4f 2c 59 4f ┆*10;YC=YC*10;XPO,XO=X0*10;YPO,YO┆
0x14780…147a0 3d 59 30 2a 31 30 3b 58 46 3d 2d 34 32 30 3b 59 46 3d 2d 31 36 30 40 0b 32 34 38 30 20 45 4e 44 ┆=Y0*10;XF=-420;YF=-160@ 2480 END┆
0x147a0…147c0 49 46 20 0b 12 32 34 39 30 20 49 46 20 41 4b 3d 31 20 54 48 45 4e 20 12 24 32 35 30 30 20 45 58 ┆IF 2490 IF AK=1 THEN $2500 EX┆
0x147c0…147e0 45 43 20 46 4c 59 54 41 42 53 28 28 58 50 4f 2b 58 46 29 2c 28 59 50 4f 2b 59 46 29 29 24 10 32 ┆EC FLYTABS((XPO+XF),(YPO+YF))$ 2┆
0x147e0…14800 35 31 30 20 45 58 45 43 20 4e 55 4c 50 4b 54 10 17 32 35 32 30 20 45 58 45 43 20 58 59 44 42 53 ┆510 EXEC NULPKT 2520 EXEC XYDBS┆
0x14800…14820 (10, 0, 9) 54 28 58 43 2c 58 44 29 17 29 32 35 33 30 20 45 58 45 43 20 41 4b 53 45 28 30 2c 31 2c 58 43 2c ┆T(XC,XD) )2530 EXEC AKSE(0,1,XC,┆
0x14820…14840 58 44 2c 58 49 2c 58 58 2c 58 54 50 24 2c 58 54 58 24 29 29 17 32 35 34 30 20 45 58 45 43 20 58 ┆XD,XI,XX,XTP$,XTX$)) 2540 EXEC X┆
0x14840…14860 59 44 42 53 54 28 59 43 2c 59 44 29 17 2a 32 35 35 30 20 45 58 45 43 20 41 4b 53 45 28 39 30 2c ┆YDBST(YC,YD) *2550 EXEC AKSE(90,┆
0x14860…14880 31 2c 59 43 2c 59 44 2c 59 49 2c 59 58 2c 59 54 50 24 2c 59 54 58 24 29 2a 0b 32 35 36 30 20 45 ┆1,YC,YD,YI,YX,YTP$,YTX$)* 2560 E┆
0x14880…148a0 4e 44 49 46 20 0b 18 32 35 37 30 20 58 30 3d 58 4f 2d 58 50 4f 3b 59 30 3d 59 4f 2d 59 50 4f 18 ┆NDIF 2570 X0=XO-XPO;Y0=YO-YPO ┆
0x148a0…148c0 14 32 35 38 30 20 45 4e 44 50 52 4f 43 20 3b 4b 4f 53 59 53 2e 14 3f 32 35 39 30 20 50 52 4f 43 ┆ 2580 ENDPROC ;KOSYS. ?2590 PROC┆
0x148c0…148e0 20 4c 49 4e 4b 52 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 ┆ LINKRV(XIN,XAX,XSKA,YSKA,XNUL,Y┆
0x148e0…14900 4e 55 4c 2c 4c 49 54 59 2c 41 4b 53 52 2c 58 54 45 2c 59 54 45 29 3f 42 32 36 30 30 20 52 45 4d ┆NUL,LITY,AKSR,XTE,YTE)?B2600 REM┆
0x14900…14920 (10, 0, 10) ExtentHdr {name=»DEMO3 «, typ=»K«, seg=»D«, next=0x03, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0013,0f (0x013f00)}, nextfile={DA 0015,03 (0x015300)}, f99=41 12 00 20 00 00 00 00 00 00 ┆A ┆}
0x14920…14940 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 2a ┆ *******************************┆
0x14940…14960 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 42 42 32 36 31 30 ┆**************************BB2610┆
0x14960…14980 20 52 45 4d 20 2a 4c 49 4e 4b 52 56 20 50 4c 4f 54 54 45 52 20 45 4e 20 4b 55 52 56 45 20 41 46 ┆ REM *LINKRV PLOTTER EN KURVE AF┆
0x14980…149a0 20 46 55 4e 4b 54 49 4f 4e 45 4e 20 41 4e 47 49 56 45 54 20 49 20 50 52 4f 43 45 2d 20 2a 42 42 ┆ FUNKTIONEN ANGIVET I PROCE- *BB┆
0x149a0…149c0 32 36 32 30 20 52 45 4d 20 2a 44 55 52 45 4e 20 46 55 4e 4b 20 46 52 41 20 58 49 4e 20 54 49 4c ┆2620 REM *DUREN FUNK FRA XIN TIL┆
0x149c0…149e0 20 58 41 58 2e 20 48 56 49 53 20 58 53 4b 41 20 4f 47 2f 45 4c 4c 45 52 20 59 53 4b 41 20 45 52 ┆ XAX. HVIS XSKA OG/ELLER YSKA ER┆
0x149e0…14a00 20 2a 42 42 32 36 33 30 20 52 45 4d 20 2a 4d 49 4e 44 52 45 20 45 4e 44 20 4e 55 4c 20 46 4f 52 ┆ *BB2630 REM *MINDRE END NUL FOR┆
0x14a00…14a20 (10, 0, 11) 45 54 41 47 45 53 20 45 4e 20 41 55 54 4f 4d 41 54 49 53 4b 20 42 45 53 54 45 4d 4d 45 4c 53 45 ┆ETAGES EN AUTOMATISK BESTEMMELSE┆
0x14a20…14a40 20 41 46 20 20 2a 42 42 32 36 34 30 20 52 45 4d 20 2a 53 4b 41 4c 45 52 49 4e 47 45 4e 20 4f 47 ┆ AF *BB2640 REM *SKALERINGEN OG┆
0x14a40…14a60 20 4e 55 4c 50 55 4e 4b 54 45 54 2e 20 45 4c 4c 45 52 53 20 42 45 4e 59 54 54 45 53 20 45 4e 20 ┆ NULPUNKTET. ELLERS BENYTTES EN ┆
0x14a60…14a80 53 4b 41 4c 45 52 49 4e 47 2a 42 42 32 36 35 30 20 52 45 4d 20 2a 42 45 53 54 45 4d 54 20 41 46 ┆SKALERING*BB2650 REM *BESTEMT AF┆
0x14a80…14aa0 20 58 53 4b 41 2c 59 53 4b 41 2c 20 4f 47 20 45 54 20 4e 55 4c 50 55 4e 4b 54 20 42 45 53 54 45 ┆ XSKA,YSKA, OG ET NULPUNKT BESTE┆
0x14aa0…14ac0 4d 54 20 41 46 20 58 4e 55 4c 2c 20 20 2a 42 42 32 36 36 30 20 52 45 4d 20 2a 59 4e 55 4c 2e 20 ┆MT AF XNUL, *BB2660 REM *YNUL. ┆
0x14ac0…14ae0 4b 55 52 56 45 4e 20 50 4c 4f 54 54 45 53 20 4d 45 44 20 44 45 4e 20 41 46 20 4c 49 54 59 20 56 ┆KURVEN PLOTTES MED DEN AF LITY V┆
0x14ae0…14b00 41 4c 47 54 45 20 4c 49 4e 49 45 54 59 50 45 2e 20 2a 42 42 32 36 37 30 20 52 45 4d 20 2a 48 56 ┆ALGTE LINIETYPE. *BB2670 REM *HV┆
0x14b00…14b20 (10, 0, 12) 49 53 20 41 4b 53 52 20 45 52 20 4c 49 47 20 4d 45 44 20 45 45 4e 20 55 44 54 45 47 4e 45 53 20 ┆IS AKSR ER LIG MED EEN UDTEGNES ┆
0x14b20…14b40 44 45 53 55 44 45 4e 20 4b 4f 4f 52 44 49 4e 41 54 2d 20 20 20 2a 42 42 32 36 38 30 20 52 45 4d ┆DESUDEN KOORDINAT- *BB2680 REM┆
0x14b40…14b60 20 2a 41 4b 53 45 52 20 4d 45 44 20 54 45 4b 53 54 45 52 4e 45 20 58 54 45 20 4f 47 20 59 54 45 ┆ *AKSER MED TEKSTERNE XTE OG YTE┆
0x14b60…14b80 20 50 5d 53 41 54 2c 20 4f 47 20 50 4c 4f 54 54 45 52 45 4e 53 20 20 20 20 2a 42 42 32 36 39 30 ┆ PÅSAT, OG PLOTTERENS *BB2690┆
0x14b80…14ba0 20 52 45 4d 20 2a 4e 55 4c 50 55 54 4e 4b 54 20 46 41 53 54 53 5b 54 54 45 53 2e 20 20 20 20 20 ┆ REM *NULPUTNKT FASTSÆTTES. ┆
0x14ba0…14bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 42 42 ┆ *BB┆
0x14bc0…14be0 32 37 30 30 20 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 ┆2700 REM ***********************┆
0x14be0…14c00 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 2a 2a ┆********************************┆
0x14c00…14c20 (10, 0, 13) 2a 2a 42 46 32 37 31 30 20 4c 49 4e 24 3d 22 4c 49 4e 22 3b 58 53 3d 58 53 4b 41 3b 59 53 3d 59 ┆**BF2710 LIN$="LIN";XS=XSKA;YS=Y┆
0x14c20…14c40 53 4b 41 3b 58 5c 3d 58 4e 55 4c 3b 59 5c 3d 59 4e 55 4c 3b 59 4d 49 3d 39 2e 32 45 31 38 3b 59 ┆SKA;XØ=XNUL;YØ=YNUL;YMI=9.2E18;Y┆
0x14c40…14c60 4d 58 3d 2d 39 2e 32 45 31 38 46 29 32 37 32 30 20 46 4f 52 20 58 4b 3d 58 49 4e 20 54 4f 20 58 ┆MX=-9.2E18F)2720 FOR XK=XIN TO X┆
0x14c60…14c80 41 58 20 53 54 45 50 20 28 58 41 58 2d 58 49 4e 29 2f 31 30 30 29 16 32 37 33 30 20 45 58 45 43 ┆AX STEP (XAX-XIN)/100) 2730 EXEC┆
0x14c80…14ca0 20 46 55 4e 4b 28 58 4b 2c 46 58 4b 29 16 1d 32 37 34 30 20 49 46 20 46 58 4b 3c 3d 59 4d 49 20 ┆ FUNK(XK,FXK) 2740 IF FXK<=YMI ┆
0x14ca0…14cc0 54 48 45 4e 20 59 4d 49 3d 46 58 4b 1d 1d 32 37 35 30 20 49 46 20 46 58 4b 3d 3e 59 4d 58 20 54 ┆THEN YMI=FXK 2750 IF FXK=>YMX T┆
0x14cc0…14ce0 48 45 4e 20 59 4d 58 3d 46 58 4b 1d 0c 32 37 36 30 20 4e 45 58 54 20 58 4b 0c 45 32 37 37 30 20 ┆HEN YMX=FXK 2760 NEXT XK E2770 ┆
0x14ce0…14d00 45 58 45 43 20 4b 4f 53 59 53 28 58 49 4e 2c 58 41 58 2c 59 4d 49 2c 59 4d 58 2c 58 53 2c 59 53 ┆EXEC KOSYS(XIN,XAX,YMI,YMX,XS,YS┆
0x14d00…14d20 (10, 0, 14) 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 24 2c 59 54 45 24 29 ┆,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$)┆
0x14d20…14d40 45 17 32 37 38 30 20 45 58 45 43 20 46 55 4e 4b 28 58 49 4e 2c 46 58 4b 29 17 2a 32 37 39 30 20 ┆E 2780 EXEC FUNK(XIN,FXK) *2790 ┆
0x14d40…14d60 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 28 46 58 4b 2a 59 53 ┆EXEC FLYTABS((XIN*XS+XØ),(FXK*YS┆
0x14d60…14d80 2b 59 5c 29 29 2a 21 32 38 30 30 20 46 4f 52 20 58 4b 3d 58 49 4e 20 54 4f 20 58 41 58 20 53 54 ┆+YØ))*!2800 FOR XK=XIN TO XAX ST┆
0x14d80…14da0 45 50 20 31 30 2f 58 53 21 16 32 38 31 30 20 45 58 45 43 20 46 55 4e 4b 28 58 4b 2c 46 58 4b 29 ┆EP 10/XS! 2810 EXEC FUNK(XK,FXK)┆
0x14da0…14dc0 16 2e 32 38 32 30 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 4c 49 54 59 2c 28 58 4b 2a 58 53 2b ┆ .2820 EXEC TEGNABS(LITY,(XK*XS+┆
0x14dc0…14de0 58 5c 29 2c 28 46 58 4b 2a 59 53 2b 59 5c 29 29 2e 0c 32 38 33 30 20 4e 45 58 54 20 58 4b 0c 0f ┆XØ),(FXK*YS+YØ)). 2830 NEXT XK ┆
0x14de0…14e00 32 38 34 30 20 45 58 45 43 20 50 45 4e 4f 50 0f 15 32 38 35 30 20 45 4e 44 50 52 4f 43 20 3b 4c ┆2840 EXEC PENOP 2850 ENDPROC ;L┆
0x14e00…14e20 (10, 0, 15) 49 4e 4b 52 56 2e 15 33 33 30 30 30 20 44 49 4d 20 4e 41 56 4e 24 28 33 30 29 2c 54 59 50 45 24 ┆INKRV. 33000 DIM NAVN$(30),TYPE$┆
0x14e20…14e40 28 34 29 2c 58 54 45 4b 53 54 24 28 31 30 29 2c 59 54 45 4b 53 54 24 28 31 30 29 33 1f 33 30 31 ┆(4),XTEKST$(10),YTEKST$(10)3 301┆
0x14e40…14e60 30 20 4e 41 56 4e 24 3d 22 44 44 45 20 50 4c 4f 54 54 45 52 20 44 45 4d 4f 2d 33 22 1f 0e 33 30 ┆0 NAVN$="DDE PLOTTER DEMO-3" 30┆
0x14e60…14e80 32 30 20 4f 55 54 50 55 54 20 50 31 0e 12 33 30 33 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 ┆20 OUTPUT P1 3030 EXEC PLOTINIT┆
0x14e80…14ea0 12 19 33 30 34 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 30 2c 32 34 30 30 29 19 1a 33 30 35 ┆ 3040 EXEC FLYTABS(0,2400) 305┆
0x14ea0…14ec0 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 32 2c 4e 41 56 4e 24 29 1a 14 33 30 38 30 20 50 52 ┆0 EXEC TEKST(0,2,NAVN$) 3080 PR┆
0x14ec0…14ee0 4f 43 20 46 55 4e 4b 28 58 2c 46 58 29 14 16 33 30 39 30 20 46 58 3d 58 2a 58 2a 58 2b 58 2a 58 ┆OC FUNK(X,FX) 3090 FX=X*X*X+X*X┆
0x14ee0…14f00 2d 58 2b 54 54 16 13 33 31 30 30 20 45 4e 44 50 52 4f 43 20 3b 46 55 4e 4b 2e 13 1f 33 31 31 30 ┆-X+TT 3100 ENDPROC ;FUNK. 3110┆
0x14f00…14f20 (10, 0, 16) 20 58 54 45 4b 53 54 24 3d 22 58 22 3b 59 54 45 4b 53 54 24 3d 22 46 28 58 29 22 1f 27 33 31 32 ┆ XTEKST$="X";YTEKST$="F(X)" '312┆
0x14f20…14f40 30 20 4e 41 56 4e 24 3d 22 46 28 78 29 20 3d 20 78 2a 2a 33 20 2b 20 78 2a 2a 32 20 2d 20 78 20 ┆0 NAVN$="F(x) = x**3 + x**2 - x ┆
0x14f40…14f60 2b 20 31 22 27 09 33 31 33 30 20 54 54 3d 31 09 34 33 31 34 30 20 45 58 45 43 20 4c 49 4e 4b 52 ┆+ 1"' 3130 TT=1 43140 EXEC LINKR┆
0x14f60…14f80 56 28 2d 32 2c 31 2e 35 2c 30 2c 30 2c 30 2c 30 2c 30 2c 31 2c 58 54 45 4b 53 54 24 2c 59 54 45 ┆V(-2,1.5,0,0,0,0,0,1,XTEKST$,YTE┆
0x14f80…14fa0 4b 53 54 24 29 34 19 33 31 35 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 30 2c 2d 31 30 30 29 ┆KST$)4 3150 EXEC FLYTREL(0,-100)┆
0x14fa0…14fc0 19 18 33 31 36 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 35 30 2c 35 30 29 18 18 33 31 37 30 ┆ 3160 EXEC TEGNREL(50,50) 3170┆
0x14fc0…14fe0 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 31 35 2c 31 35 29 18 1a 33 31 38 30 20 45 58 45 43 20 ┆ EXEC FLYTREL(15,15) 3180 EXEC ┆
0x14fe0…15000 54 45 4b 53 54 28 30 2c 32 2c 4e 41 56 4e 24 29 1a 09 33 32 31 30 20 54 54 3d 31 09 12 33 32 32 ┆TEKST(0,2,NAVN$) 3210 TT=1 322┆
0x15000…15020 (10, 1, 1) 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 3a 33 32 33 30 20 45 58 45 43 20 4c 49 4e 4b 52 ┆0 EXEC PLOTINIT :3230 EXEC LINKR┆
0x15020…15040 56 28 2d 32 2c 31 2e 35 2c 34 30 2c 31 30 2c 32 37 30 2c 32 30 30 2c 30 2c 31 2c 58 54 45 4b 53 ┆V(-2,1.5,40,10,270,200,0,1,XTEKS┆
0x15040…15060 54 24 2c 59 54 45 4b 53 54 24 29 3a 12 33 32 37 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 ┆T$,YTEKST$): 3270 EXEC PLOTINIT ┆
0x15060…15080 1a 33 32 38 30 20 46 4f 52 20 54 54 3d 2d 31 20 54 4f 20 32 20 53 54 45 50 20 31 1a 43 33 32 39 ┆ 3280 FOR TT=-1 TO 2 STEP 1 C329┆
0x15080…150a0 30 20 45 58 45 43 20 4c 49 4e 4b 52 56 28 2d 32 2c 31 2e 35 2c 32 30 2c 32 30 2c 33 30 30 2c 37 ┆0 EXEC LINKRV(-2,1.5,20,20,300,7┆
0x150a0…150c0 35 2c 28 54 54 2b 32 29 2c 28 54 54 2b 32 29 2c 58 54 45 4b 53 54 24 2c 59 54 45 4b 53 54 24 29 ┆5,(TT+2),(TT+2),XTEKST$,YTEKST$)┆
0x150c0…150e0 43 0c 33 33 30 30 20 4e 45 58 54 20 54 54 0c 18 33 33 31 30 20 4e 41 56 4e 24 3d 22 44 45 4d 4f ┆C 3300 NEXT TT 3310 NAVN$="DEMO┆
0x150e0…15100 2d 33 20 53 4c 55 54 22 18 12 33 33 32 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 1a 33 33 ┆-3 SLUT" 3320 EXEC PLOTINIT 33┆
0x15100…15120 (10, 1, 2) 33 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 31 2c 4e 41 56 4e 24 29 1a 12 33 33 34 30 20 45 ┆30 EXEC TEKST(0,1,NAVN$) 3340 E┆
0x15120…15140 58 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a 33 33 35 30 20 53 54 4f 50 20 0a 00 00 63 63 63 63 63 ┆XEC PLOTSLUT 3350 STOP ccccc┆
0x15140…15160 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┆
[…0xc…]
0x152e0…15300 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 ┆
0x15300…15320 (10, 1, 4) ExtentHdr {name=»DEMO4 «, typ=»K«, seg=»A«, next=0x03, basis=0x000a, nextext={DA 0015,0d (0x015d00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,0d (0x015d00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x15320…15340 3c 30 31 30 30 20 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 ┆<0100 REM **********************┆
0x15340…15360 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 3c 3c 30 ┆*****************************<<0┆
0x15360…15380 31 31 30 20 52 45 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 49 20 44 45 4e 4e 45 20 46 49 ┆110 REM *PROCEDURERNE I DENNE FI┆
0x15380…153a0 4c 20 45 52 20 44 45 20 4e 5c 44 56 45 4e 44 49 47 45 20 47 52 55 4e 44 2d 20 2a 3c 3c 30 31 32 ┆L ER DE NØDVENDIGE GRUND- *<<012┆
0x153a0…153c0 30 20 52 45 4d 20 2a 45 4c 45 4d 45 4e 54 45 52 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 ┆0 REM *ELEMENTER TIL STYRING AF ┆
0x153c0…153e0 50 4c 4f 54 54 45 52 45 4e 2c 20 4f 47 20 45 52 20 44 45 46 4f 52 20 20 2a 3c 3c 30 31 33 30 20 ┆PLOTTEREN, OG ER DEFOR *<<0130 ┆
0x153e0…15400 52 45 4d 20 2a 44 49 52 45 4b 54 45 20 41 46 48 5b 4e 47 49 47 20 41 46 20 44 45 4e 20 41 4e 56 ┆REM *DIREKTE AFHÆNGIG AF DEN ANV┆
0x15400…15420 (10, 1, 5) 45 4e 44 54 45 20 50 4c 4f 54 54 45 52 2e 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 34 30 20 52 45 ┆ENDTE PLOTTER. *<<0140 RE┆
0x15420…15440 4d 20 2a 50 52 4f 43 45 44 55 52 45 52 4e 45 20 48 45 52 20 4b 41 4e 20 4b 55 4e 20 41 4e 56 45 ┆M *PROCEDURERNE HER KAN KUN ANVE┆
0x15440…15460 4e 44 45 53 20 54 49 4c 20 53 54 59 52 49 4e 47 20 41 46 20 2a 3c 3c 30 31 35 30 20 52 45 4d 20 ┆NDES TIL STYRING AF *<<0150 REM ┆
0x15460…15480 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* ┆
0x15480…154a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 36 30 20 52 45 4d 20 2a 20 ┆ *<<0160 REM * ┆
0x154a0…154c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 49 20 50 4c 5c 54 20 20 20 20 20 ┆ HI PLØT ┆
0x154c0…154e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 37 30 20 52 45 4d 20 2a 4d 4f 44 ┆ *<<0170 REM *MOD┆
0x154e0…15500 45 4c 20 20 20 20 20 20 20 20 44 4d 50 2d 33 2c 44 4d 50 2d 34 2c 44 4d 50 2d 36 2c 44 4d 50 2d ┆EL DMP-3,DMP-4,DMP-6,DMP-┆
0x15500…15520 (10, 1, 6) 37 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 38 30 20 52 45 4d 20 2a 46 52 41 20 20 ┆7 *<<0180 REM *FRA ┆
0x15520…15540 20 20 20 20 20 20 20 20 20 20 48 4f 55 53 54 4f 4e 20 49 4e 53 54 52 55 4d 45 4e 54 20 20 20 20 ┆ HOUSTON INSTRUMENT ┆
0x15540…15560 20 20 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 31 39 30 20 52 45 4d 20 2a 20 20 20 20 20 20 20 ┆ *<<0190 REM * ┆
0x15560…15580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15580…155a0 20 20 20 20 20 20 20 20 20 20 2a 3c 3c 30 32 30 30 20 52 45 4d 20 2a 44 44 45 20 20 20 20 20 20 ┆ *<<0200 REM *DDE ┆
0x155a0…155c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x155c0…155e0 20 20 20 20 31 39 38 32 2a 3c 3c 30 32 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 1982*<<0210 REM ************┆
0x155e0…15600 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 2a 2a ┆********************************┆
0x15600…15620 (10, 1, 7) 2a 2a 2a 2a 2a 2a 2a 3c 2a 30 32 32 30 20 52 45 4d 20 4c 49 4e 20 41 4e 56 45 4e 44 45 53 20 49 ┆*******<*0220 REM LIN ANVENDES I┆
0x15620…15640 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 49 4e 4b 52 56 2e 2a 2c 30 32 33 30 20 52 45 4d 20 58 54 ┆ PROCEDUREN LINKRV.*,0230 REM XT┆
0x15640…15660 2c 59 54 20 41 4e 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 4e 20 4c 4f 47 4b 52 56 ┆,YT ANVENDES I PROCEDUREN LOGKRV┆
0x15660…15680 2e 2c 1e 30 32 34 30 20 44 49 4d 20 4c 49 4e 24 28 33 29 2c 58 54 24 28 33 29 2c 59 54 24 28 33 ┆., 0240 DIM LIN$(3),XT$(3),YT$(3┆
0x15680…156a0 29 1e 2d 30 32 35 30 20 52 45 4d 20 52 4f 55 20 41 46 52 55 4e 44 45 52 20 45 54 20 52 45 45 4c ┆) -0250 REM ROU AFRUNDER ET REEL┆
0x156a0…156c0 54 20 54 41 4c 20 54 49 4c 20 48 45 4c 54 41 4c 2d 34 30 32 36 30 20 52 45 4d 20 4f 47 20 41 4e ┆T TAL TIL HELTAL-40260 REM OG AN┆
0x156c0…156e0 56 45 4e 44 45 53 20 49 20 50 52 4f 43 45 44 55 52 45 52 4e 45 20 53 54 49 50 52 45 4c 20 4f 47 ┆VENDES I PROCEDURERNE STIPREL OG┆
0x156e0…15700 20 41 4b 53 45 2e 34 1a 30 32 37 30 20 44 45 46 20 52 4f 55 28 5a 29 3d 49 4e 54 28 5a 2b 30 2e ┆ AKSE.4 0270 DEF ROU(Z)=INT(Z+0.┆
0x15700…15720 (10, 1, 8) 35 29 1a 11 30 32 38 30 20 50 49 3d 33 2e 31 34 31 35 39 32 36 11 12 30 32 39 30 20 50 52 4f 43 ┆5) 0280 PI=3.1415926 0290 PROC┆
0x15720…15740 20 50 4c 4f 54 49 4e 49 54 12 2a 30 33 30 30 20 52 45 4d 20 5d 42 4e 45 52 20 50 4c 4f 54 54 45 ┆ PLOTINIT *0300 REM ÅBNER PLOTTE┆
0x15740…15760 52 45 4e 20 4f 47 20 4c 5c 46 54 45 52 20 50 45 4e 4e 45 4e 2c 2a 29 30 33 31 30 20 52 45 4d 20 ┆REN OG LØFTER PENNEN,*)0310 REM ┆
0x15760…15780 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 54 49 4c 20 28 30 2c 30 29 20 3d 20 48 4f 4d 45 2e ┆FLYTTER PENNEN TIL (0,0) = HOME.┆
0x15780…157a0 29 18 30 33 32 30 20 50 52 49 4e 54 20 22 49 3b 3a 20 49 3b 3a 20 55 20 48 22 18 17 30 33 33 30 ┆) 0320 PRINT "I;: I;: U H" 0330┆
0x157a0…157c0 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 49 4e 49 54 2e 17 12 30 33 34 30 20 50 52 4f 43 20 50 ┆ ENDPROC ;PLOTINIT. 0340 PROC P┆
0x157c0…157e0 4c 4f 54 53 4c 55 54 12 1c 30 33 35 30 20 52 45 4d 20 41 46 42 52 59 44 45 52 20 50 4c 4f 54 54 ┆LOTSLUT 0350 REM AFBRYDER PLOTT┆
0x157e0…15800 45 52 45 4e 2e 1c 0e 30 33 36 30 20 50 52 49 4e 54 20 22 40 22 0e 17 30 33 37 30 20 45 4e 44 50 ┆EREN. 0360 PRINT "@" 0370 ENDP┆
0x15800…15820 (10, 1, 9) 52 4f 43 20 3b 50 4c 4f 54 53 4c 55 54 2e 17 12 30 33 38 30 20 50 52 4f 43 20 50 4c 4f 54 54 45 ┆ROC ;PLOTSLUT. 0380 PROC PLOTTE┆
0x15820…15840 53 54 12 2b 30 33 39 30 20 52 45 4d 20 4b 5c 52 45 52 20 50 4c 4f 54 54 45 52 45 4e 53 20 53 45 ┆ST +0390 REM KØRER PLOTTERENS SE┆
0x15840…15860 4c 56 54 45 53 54 20 50 52 4f 47 52 41 4d 2e 2b 0e 30 34 30 30 20 50 52 49 4e 54 20 22 54 22 0e ┆LVTEST PROGRAM.+ 0400 PRINT "T" ┆
0x15860…15880 17 30 34 31 30 20 45 4e 44 50 52 4f 43 20 3b 50 4c 4f 54 54 45 53 54 2e 17 10 30 34 32 30 20 50 ┆ 0410 ENDPROC ;PLOTTEST. 0420 P┆
0x15880…158a0 52 4f 43 20 4e 55 4c 50 4b 54 10 1f 30 34 33 30 20 52 45 4d 20 46 41 53 54 53 5b 54 54 45 52 20 ┆ROC NULPKT 0430 REM FASTSÆTTER ┆
0x158a0…158c0 4e 55 4c 50 55 4e 4b 54 45 54 2e 1f 0e 30 34 34 30 20 50 52 49 4e 54 20 22 4f 22 0e 15 30 34 35 ┆NULPUNKTET. 0440 PRINT "O" 045┆
0x158c0…158e0 30 20 45 4e 44 50 52 4f 43 20 3b 4e 55 4c 50 4b 54 2e 15 10 30 34 36 30 20 50 52 4f 43 20 50 45 ┆0 ENDPROC ;NULPKT. 0460 PROC PE┆
0x158e0…15900 4e 4e 45 44 10 26 30 34 37 30 20 52 45 4d 20 53 5b 54 54 45 52 20 50 45 4e 4e 45 4e 20 4e 45 44 ┆NNED &0470 REM SÆTTER PENNEN NED┆
0x15900…15920 (10, 1, 10) 20 50 5d 20 50 41 50 49 52 45 54 2e 26 0e 30 34 38 30 20 50 52 49 4e 54 20 22 44 22 0e 15 30 34 ┆ PÅ PAPIRET.& 0480 PRINT "D" 04┆
0x15920…15940 39 30 20 45 4e 44 50 52 4f 43 20 3b 50 45 4e 4e 45 44 2e 15 0f 30 35 30 30 20 50 52 4f 43 20 50 ┆90 ENDPROC ;PENNED. 0500 PROC P┆
0x15940…15960 45 4e 4f 50 0f 25 30 35 31 30 20 52 45 4d 20 48 5b 56 45 52 20 50 45 4e 4e 45 4e 20 4f 50 20 46 ┆ENOP %0510 REM HÆVER PENNEN OP F┆
0x15960…15980 52 41 20 50 41 50 49 52 45 54 2e 25 0e 30 35 32 30 20 50 52 49 4e 54 20 22 55 22 0e 14 30 35 33 ┆RA PAPIRET.% 0520 PRINT "U" 053┆
0x15980…159a0 30 20 45 4e 44 50 52 4f 43 20 3b 50 45 4e 4f 50 2e 14 16 30 35 34 30 20 50 52 4f 43 20 46 4c 59 ┆0 ENDPROC ;PENOP. 0540 PROC FLY┆
0x159a0…159c0 54 41 42 53 28 58 2c 59 29 16 38 30 35 35 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e ┆TABS(X,Y) 80550 REM FLYTTER PENN┆
0x159c0…159e0 45 4e 20 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c ┆EN ABSOLUT TIL KOORDINATERNE (X,┆
0x159e0…15a00 59 29 2e 38 16 30 35 36 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 35 37 ┆Y).8 0560 X=INT(X);Y=INT(Y) 057┆
0x15a00…15a20 (10, 1, 11) 30 20 50 52 49 4e 54 20 22 55 20 41 22 3b 58 3b 22 2c 22 3b 59 18 16 30 35 38 30 20 45 4e 44 50 ┆0 PRINT "U A";X;",";Y 0580 ENDP┆
0x15a20…15a40 52 4f 43 20 3b 46 4c 59 54 41 42 53 2e 16 1d 30 35 39 30 20 50 52 4f 43 20 54 45 47 4e 41 42 53 ┆ROC ;FLYTABS. 0590 PROC TEGNABS┆
0x15a40…15a60 28 4c 49 4e 54 59 50 2c 58 2c 59 29 1d 35 30 36 30 30 20 52 45 4d 20 54 45 47 4e 45 52 20 4c 49 ┆(LINTYP,X,Y) 50600 REM TEGNER LI┆
0x15a60…15a80 4e 49 45 20 41 42 53 4f 4c 55 54 20 54 49 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 ┆NIE ABSOLUT TIL KOORDINATERNE (X┆
0x15a80…15aa0 2c 59 29 35 23 30 36 31 30 20 52 45 4d 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 49 ┆,Y)5#0610 REM MED DEN ANGIVNE LI┆
0x15aa0…15ac0 4e 49 45 54 59 50 45 2e 23 16 30 36 32 30 20 58 3d 49 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 ┆NIETYPE.# 0620 X=INT(X);Y=INT(Y)┆
0x15ac0…15ae0 16 29 30 36 33 30 20 50 52 49 4e 54 20 22 44 20 41 20 4c 22 2b 43 48 52 28 34 38 2b 4c 49 4e 54 ┆ )0630 PRINT "D A L"+CHR(48+LINT┆
0x15ae0…15b00 59 50 29 3b 58 3b 22 2c 22 3b 59 29 16 30 36 34 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 41 ┆YP);X;",";Y) 0640 ENDPROC ;TEGNA┆
0x15b00…15b20 (10, 1, 12) 42 53 2e 16 16 30 36 35 30 20 50 52 4f 43 20 46 4c 59 54 52 45 4c 28 58 2c 59 29 16 39 30 36 36 ┆BS. 0650 PROC FLYTREL(X,Y) 9066┆
0x15b20…15b40 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 52 45 4c 41 54 49 56 54 20 54 49 ┆0 REM FLYTTER PENNEN RELATIVT TI┆
0x15b40…15b60 4c 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 39 16 30 36 37 30 20 58 3d 49 ┆L KOORDINATERNE (X,Y).9 0670 X=I┆
0x15b60…15b80 4e 54 28 58 29 3b 59 3d 49 4e 54 28 59 29 16 18 30 36 38 30 20 50 52 49 4e 54 20 22 55 20 52 22 ┆NT(X);Y=INT(Y) 0680 PRINT "U R"┆
0x15b80…15ba0 3b 58 3b 22 2c 22 3b 59 18 16 30 36 39 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e ┆;X;",";Y 0690 ENDPROC ;FLYTREL.┆
0x15ba0…15bc0 16 16 30 37 30 30 20 50 52 4f 43 20 54 45 47 4e 52 45 4c 28 58 2c 59 29 16 37 30 37 31 30 20 52 ┆ 0700 PROC TEGNREL(X,Y) 70710 R┆
0x15bc0…15be0 45 4d 20 54 45 47 4e 45 52 20 4c 49 4e 49 45 20 52 45 4c 41 54 49 56 54 20 54 49 4c 20 4b 4f 4f ┆EM TEGNER LINIE RELATIVT TIL KOO┆
0x15be0…15c00 52 44 49 4e 41 54 45 52 4e 45 20 28 58 2c 59 29 2e 37 16 30 37 32 30 20 58 3d 49 4e 54 28 58 29 ┆RDINATERNE (X,Y).7 0720 X=INT(X)┆
0x15c00…15c20 (10, 1, 13) 3b 59 3d 49 4e 54 28 59 29 16 1b 30 37 33 30 20 50 52 49 4e 54 20 22 44 20 52 20 4c 30 22 3b 58 ┆;Y=INT(Y) 0730 PRINT "D R L0";X┆
0x15c20…15c40 3b 22 2c 22 3b 59 1b 16 30 37 34 30 20 45 4e 44 50 52 4f 43 20 3b 46 4c 59 54 52 45 4c 2e 16 20 ┆;",";Y 0740 ENDPROC ;FLYTREL. ┆
0x15c40…15c60 30 37 35 30 20 50 52 4f 43 20 46 4c 59 54 50 4f 4c 28 56 49 4e 4b 45 4c 2c 4c 5b 4e 47 44 45 29 ┆0750 PROC FLYTPOL(VINKEL,LÆNGDE)┆
0x15c60…15c80 20 35 30 37 36 30 20 52 45 4d 20 46 4c 59 54 54 45 52 20 50 45 4e 4e 45 4e 20 44 45 4e 20 41 4e ┆ 50760 REM FLYTTER PENNEN DEN AN┆
0x15c80…15ca0 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d 45 44 20 44 45 4e 35 2f 30 37 37 30 20 52 45 ┆GIVNE LÆNGDE OG MED DEN5/0770 RE┆
0x15ca0…15cc0 4d 20 41 4e 46 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 ┆M ANFGIVNE VINKEL I FORHOLD TIL ┆
0x15cc0…15ce0 56 41 4e 44 52 45 54 2e 2f 25 30 37 38 30 20 58 3d 49 4e 54 28 4c 5b 4e 47 44 45 2a 43 4f 53 28 ┆VANDRET./%0780 X=INT(LÆNGDE*COS(┆
0x15ce0…15d00 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 25 30 37 39 30 20 59 3d 49 4e 54 28 4c 5b 4e 47 ┆VINKEL/180*PI))%%0790 Y=INT(LÆNG┆
0x15d00…15d20 (10, 1, 14) ExtentHdr {name=»DEMO4 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0016,07 (0x016700)}, prevext={DA 0015,03 (0x015300)}, nextfile={DA 0016,07 (0x016700)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x15d20…15d40 44 45 2a 53 49 4e 28 56 49 4e 4b 45 4c 2f 31 38 30 2a 50 49 29 29 25 18 30 38 30 30 20 50 52 49 ┆DE*SIN(VINKEL/180*PI))% 0800 PRI┆
0x15d40…15d60 4e 54 20 22 55 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 38 31 30 20 45 4e 44 50 52 4f 43 20 3b ┆NT "U R";X;",";Y 0810 ENDPROC ;┆
0x15d60…15d80 46 4c 59 54 50 4f 4c 2e 16 20 30 38 32 30 20 50 52 4f 43 20 54 45 47 4e 50 4f 4c 28 56 49 4e 4b ┆FLYTPOL. 0820 PROC TEGNPOL(VINK┆
0x15d80…15da0 45 4c 2c 4c 5b 4e 47 44 45 29 20 36 30 38 33 30 20 52 45 4d 20 54 45 47 4e 45 52 20 45 4e 20 4c ┆EL,LÆNGDE) 60830 REM TEGNER EN L┆
0x15da0…15dc0 49 4e 49 45 20 4d 45 44 20 44 45 4e 20 41 4e 47 49 56 4e 45 20 4c 5b 4e 47 44 45 20 4f 47 20 4d ┆INIE MED DEN ANGIVNE LÆNGDE OG M┆
0x15dc0…15de0 45 44 36 31 30 38 34 30 20 52 45 4d 20 44 45 20 41 4e 47 49 56 4e 45 20 56 49 4e 4b 45 4c 20 49 ┆ED610840 REM DE ANGIVNE VINKEL I┆
0x15de0…15e00 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 31 25 30 38 35 30 20 58 3d 49 4e ┆ FORHOLD TIL VANDRET.1%0850 X=IN┆
0x15e00…15e20 (10, 1, 15) 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 30 38 ┆T(LÆNGDE*COS(VINKEL/180*PI))%%08┆
0x15e20…15e40 36 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 ┆60 Y=INT(LÆNGDE*SIN(VINKEL/180*P┆
0x15e40…15e60 49 29 29 25 18 30 38 37 30 20 50 52 49 4e 54 20 22 44 20 52 22 3b 58 3b 22 2c 22 3b 59 18 16 30 ┆I))% 0870 PRINT "D R";X;",";Y 0┆
0x15e60…15e80 38 38 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 47 4e 50 4f 4c 2e 16 1d 30 38 39 30 20 50 52 4f 43 ┆880 ENDPROC ;TEGNPOL. 0890 PROC┆
0x15e80…15ea0 20 53 59 4d 42 4f 4c 28 48 5c 4a 44 45 2c 46 49 47 55 52 29 1d 47 30 39 30 30 20 52 45 4d 20 54 ┆ SYMBOL(HØJDE,FIGUR) G0900 REM T┆
0x15ea0…15ec0 45 47 4e 45 52 20 45 54 20 41 46 20 46 49 47 55 52 45 52 4e 45 3a 50 4c 55 53 28 30 29 2c 4b 4f ┆EGNER ET AF FIGURERNE:PLUS(0),KO┆
0x15ec0…15ee0 52 53 28 31 29 2c 46 49 52 4b 41 4e 54 28 32 29 2c 4f 54 54 45 4b 41 4e 54 28 33 29 2c 47 40 30 ┆RS(1),FIRKANT(2),OTTEKANT(3),G@0┆
0x15ee0…15f00 39 31 30 20 52 45 4d 20 54 52 45 4b 41 4e 54 28 34 29 2c 54 49 4d 45 47 4c 41 53 28 35 29 2c 20 ┆910 REM TREKANT(4),TIMEGLAS(5), ┆
0x15f00…15f20 (10, 1, 16) 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 2c 34 2c 35 2e 40 ┆MED EN AF HØJDERNE 0,1,2,3,4,5.@┆
0x15f20…15f40 2f 30 39 32 30 20 50 52 49 4e 54 20 22 4d 22 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 2b 43 48 ┆/0920 PRINT "M"+CHR(48+HØJDE)+CH┆
0x15f40…15f60 52 28 34 38 2b 46 49 47 55 52 29 2b 22 20 55 22 2f 15 30 39 33 30 20 45 4e 44 50 52 4f 43 20 3b ┆R(48+FIGUR)+" U"/ 0930 ENDPROC ;┆
0x15f60…15f80 53 59 4d 42 4f 4c 2e 15 22 30 39 34 30 20 50 52 4f 43 20 54 45 4b 53 54 28 56 49 4e 4b 45 4c 2c ┆SYMBOL. "0940 PROC TEKST(VINKEL,┆
0x15f80…15fa0 48 5c 4a 44 45 2c 54 45 58 54 29 22 31 30 39 35 30 20 52 45 4d 20 55 44 53 4b 52 49 56 45 52 20 ┆HØJDE,TEXT)"10950 REM UDSKRIVER ┆
0x15fa0…15fc0 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 5c 4a 44 45 31 29 ┆EN TEKST MED DEN ANGIVNE HØJDE1)┆
0x15fc0…15fe0 30 39 36 30 20 52 45 4d 20 4f 47 20 56 49 4e 4b 45 4c 20 49 20 46 4f 52 48 4f 4c 44 20 54 49 4c ┆0960 REM OG VINKEL I FORHOLD TIL┆
0x15fe0…16000 20 56 41 4e 44 52 45 54 2e 29 24 30 39 37 30 20 56 3d 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c ┆ VANDRET.)$0970 V=1+((360-VINKEL┆
0x16000…16020 (11, 0, 1) 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 34 30 39 38 30 20 50 52 49 4e 54 20 22 53 22 2b ┆) DIV 90) MOD 4$40980 PRINT "S"+┆
0x16020…16040 43 48 52 28 34 38 2b 56 29 2b 43 48 52 28 34 38 2b 48 5c 4a 44 45 29 3b 22 20 22 3b 54 45 58 54 ┆CHR(48+V)+CHR(48+HØJDE);" ";TEXT┆
0x16040…16060 24 3b 22 5f 22 34 14 30 39 39 30 20 45 4e 44 50 52 4f 43 20 3b 54 45 4b 53 54 2e 14 1e 31 30 30 ┆$;"_"4 0990 ENDPROC ;TEKST. 100┆
0x16060…16080 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 31 30 31 ┆0 PROC TAL(VINKEL,HØJDE,NR) ;101┆
0x16080…160a0 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 4e 20 41 ┆0 REM UDSKRIVER ET TAL MED DEN A┆
0x160a0…160c0 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 31 30 32 30 20 52 ┆NGIVNE HØJDE OG VINKEL I; 1020 R┆
0x160c0…160e0 45 4d 20 46 4f 52 48 4f 4c 44 20 54 49 4c 20 56 41 4e 44 52 45 54 2e 1d 24 31 30 33 30 20 56 3d ┆EM FORHOLD TIL VANDRET. $1030 V=┆
0x160e0…16100 31 2b 28 28 33 36 30 2d 56 49 4e 4b 45 4c 29 20 44 49 56 20 39 30 29 20 4d 4f 44 20 34 24 27 31 ┆1+((360-VINKEL) DIV 90) MOD 4$'1┆
0x16100…16120 (11, 0, 2) 30 34 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 ┆040 PRINT "S"+CHR(48+V)+CHR(48+H┆
0x16120…16140 5c 4a 44 45 29 3b 27 25 31 30 35 30 20 49 46 20 4e 52 3c 3d 2d 31 20 4f 52 20 4e 52 3d 30 20 4f ┆ØJDE);'%1050 IF NR<=-1 OR NR=0 O┆
0x16140…16160 52 20 31 3c 3d 4e 52 20 54 48 45 4e 20 25 11 31 30 36 30 20 50 52 49 4e 54 20 4e 52 3b 22 5f 22 ┆R 1<=NR THEN % 1060 PRINT NR;"_"┆
0x16160…16180 11 0a 31 30 37 30 20 45 4c 53 45 20 0a 1d 31 30 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 ┆ 1070 ELSE 1080 PRINT USING "┆
0x16180…161a0 20 23 2e 23 23 20 5f 22 3a 4e 52 1d 0b 31 30 39 30 20 45 4e 44 49 46 20 0b 12 31 31 30 30 20 45 ┆ #.## _":NR 1090 ENDIF 1100 E┆
0x161a0…161c0 4e 44 50 52 4f 43 20 3b 54 41 4c 2e 12 2b 31 34 34 30 20 50 52 4f 43 20 41 4b 53 45 28 56 49 2c ┆NDPROC ;TAL. +1440 PROC AKSE(VI,┆
0x161c0…161e0 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 34 35 30 20 ┆HØ,SK,SE,MIN,MAX,TYP,TEX)+C1450 ┆
0x161e0…16200 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 ****************************┆
0x16200…16220 (11, 0, 3) 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┆
0x16220…16240 31 34 36 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 ┆1460 REM *AKSE TEGNER EN AKSE ME┆
0x16240…16260 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┆
0x16260…16280 45 54 2a 43 43 31 34 37 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*CC1470 REM *FRA MIN TIL MAX. ┆
0x16280…162a0 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Ø┆
0x162a0…162c0 4a 44 45 4e 20 48 5c 2a 43 43 31 34 38 30 20 52 45 4d 20 2a 50 5d 20 41 4b 53 45 4e 2e 20 53 4b ┆JDEN HØ*CC1480 REM *PÅ AKSEN. SK┆
0x162c0…162e0 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┆
0x162e0…16300 54 20 49 20 41 4e 54 41 4c 20 20 20 2a 43 43 31 34 39 30 20 52 45 4d 20 2a 53 54 45 50 53 20 50 ┆T I ANTAL *CC1490 REM *STEPS P┆
0x16300…16320 (11, 0, 4) 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┆
0x16320…16340 20 50 52 2e 20 45 4e 48 45 44 20 42 45 2d 20 20 20 2a 43 43 31 35 30 30 20 52 45 4d 20 2a 53 54 ┆ PR. ENHED BE- *CC1500 REM *ST┆
0x16340…16360 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. ┆
0x16360…16380 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 35 31 30 20 52 45 ┆ *CC1510 RE┆
0x16380…163a0 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 ******************************┆
0x163a0…163c0 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 3a 31 35 ┆****************************C:15┆
0x163c0…163e0 32 30 20 4b 58 3d 43 4f 53 28 56 49 2f 31 38 30 2a 50 49 29 3b 4b 59 3d 53 49 4e 28 56 49 2f 31 ┆20 KX=COS(VI/180*PI);KY=SIN(VI/1┆
0x163e0…16400 38 30 2a 50 49 29 3b 48 42 3d 28 31 38 2a 32 2a 2a 28 48 5c 2d 31 29 29 3a 20 31 35 33 30 20 49 ┆80*PI);HB=(18*2**(HØ-1)): 1530 I┆
0x16400…16420 (11, 0, 5) 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 35 34 30 ┆F SGN(MIN)<>SGN(MAX) THEN 1540┆
0x16420…16440 20 4d 49 3d 4d 49 4e 3b 4d 58 3d 4d 41 58 12 0a 31 35 35 30 20 45 4c 53 45 20 0a 18 31 35 36 30 ┆ MI=MIN;MX=MAX 1550 ELSE 1560┆
0x16440…16460 20 49 46 20 53 47 4e 28 4d 49 4e 29 3d 31 20 54 48 45 4e 20 18 14 31 35 37 30 20 4d 49 3d 30 3b ┆ IF SGN(MIN)=1 THEN 1570 MI=0;┆
0x16460…16480 4d 58 3d 4d 41 58 2d 4d 49 4e 14 0a 31 35 38 30 20 45 4c 53 45 20 0a 14 31 35 39 30 20 4d 58 3d ┆MX=MAX-MIN 1580 ELSE 1590 MX=┆
0x16480…164a0 30 3b 4d 49 3d 4d 49 4e 2d 4d 41 58 14 0b 31 36 30 30 20 45 4e 44 49 46 20 0b 0b 31 36 31 30 20 ┆0;MI=MIN-MAX 1600 ENDIF 1610 ┆
0x164a0…164c0 45 4e 44 49 46 20 0b 48 31 36 32 30 20 58 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 58 ┆ENDIF H1620 XMAX=(MX*SK+100)*KX┆
0x164c0…164e0 3b 59 4d 41 58 3d 28 4d 58 2a 53 4b 2b 31 30 30 29 2a 4b 59 3b 58 4d 49 4e 3d 4d 49 2a 53 4b 2a ┆;YMAX=(MX*SK+100)*KY;XMIN=MI*SK*┆
0x164e0…16500 4b 58 3b 59 4d 49 4e 3d 4d 49 2a 53 4b 2a 4b 59 48 1c 31 36 33 30 20 45 58 45 43 20 46 4c 59 54 ┆KX;YMIN=MI*SK*KYH 1630 EXEC FLYT┆
0x16500…16520 (11, 0, 6) 41 42 53 28 58 4d 49 4e 2c 59 4d 49 4e 29 1c 1e 31 36 34 30 20 45 58 45 43 20 54 45 47 4e 41 42 ┆ABS(XMIN,YMIN) 1640 EXEC TEGNAB┆
0x16520…16540 53 28 30 2c 58 4d 41 58 2c 59 4d 41 58 29 1e 23 31 36 35 30 20 45 58 45 43 20 54 45 47 4e 52 45 ┆S(0,XMAX,YMAX) #1650 EXEC TEGNRE┆
0x16540…16560 4c 28 28 4b 59 2a 32 30 29 2c 28 2d 4b 58 2a 32 30 29 29 23 28 31 36 36 30 20 45 58 45 43 20 54 ┆L((KY*20),(-KX*20))#(1660 EXEC T┆
0x16560…16580 45 47 4e 52 45 4c 28 28 4b 58 2d 4b 59 29 2a 32 30 2c 28 4b 58 2b 4b 59 29 2a 32 30 29 28 29 31 ┆EGNREL((KX-KY)*20,(KX+KY)*20)()1┆
0x16580…165a0 36 37 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 2d 4b 58 2d 4b 59 29 2a 32 30 2c 28 4b 58 ┆670 EXEC TEGNREL((-KX-KY)*20,(KX┆
0x165a0…165c0 2d 4b 59 29 2a 32 30 29 29 23 31 36 38 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 2a ┆-KY)*20))#1680 EXEC TEGNREL((KY*┆
0x165c0…165e0 32 30 29 2c 28 2d 4b 58 2a 32 30 29 29 23 1d 31 36 39 30 20 49 46 20 30 3c 3d 4b 59 20 41 4e 44 ┆20),(-KX*20))# 1690 IF 0<=KY AND┆
0x165e0…16600 20 4b 59 3c 3d 31 20 54 48 45 4e 20 1d 37 31 37 30 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 ┆ KY<=1 THEN 71700 EXEC FLYTREL(┆
0x16600…16620 (11, 0, 7) 28 4b 59 2a 33 30 29 2c 28 2d 4b 58 2a 33 30 2d 48 42 2a 28 53 47 4e 28 4b 58 2d 4b 59 29 2b 31 ┆(KY*30),(-KX*30-HB*(SGN(KX-KY)+1┆
0x16620…16640 29 2f 32 29 29 37 0a 31 37 31 30 20 45 4c 53 45 20 0a 38 31 37 32 30 20 45 58 45 43 20 46 4c 59 ┆)/2))7 1710 ELSE 81720 EXEC FLY┆
0x16640…16660 54 52 45 4c 28 28 2d 4b 59 2a 33 30 29 2c 28 4b 58 2a 33 30 2d 48 42 2a 28 53 47 4e 28 2d 4b 58 ┆TREL((-KY*30),(KX*30-HB*(SGN(-KX┆
0x16660…16680 2b 4b 59 29 2b 31 29 2f 32 29 29 38 0b 31 37 33 30 20 45 4e 44 49 46 20 0b 1a 31 37 34 30 20 45 ┆+KY)+1)/2))8 1730 ENDIF 1740 E┆
0x16680…166a0 58 45 43 20 54 45 4b 53 54 28 30 2c 48 5c 2c 54 45 58 24 29 1a 16 31 37 35 30 20 49 46 20 54 59 ┆XEC TEKST(0,HØ,TEX$) 1750 IF TY┆
0x166a0…166c0 50 24 3c 3e 22 22 20 54 48 45 4e 20 16 17 31 37 36 30 20 53 49 3d 28 4d 41 58 20 44 49 56 20 53 ┆P$<>"" THEN 1760 SI=(MAX DIV S┆
0x166c0…166e0 45 29 2a 53 45 17 2e 31 37 37 30 20 46 4f 52 20 49 3d 28 53 49 2b 4d 49 2d 4d 49 4e 29 2a 53 4b ┆E)*SE .1770 FOR I=(SI+MI-MIN)*SK┆
0x166e0…16700 20 54 4f 20 4d 49 2a 53 4b 20 53 54 45 50 20 2d 53 45 2a 53 4b 2e 2c 31 37 38 30 20 45 58 45 43 ┆ TO MI*SK STEP -SE*SK.,1780 EXEC┆
0x16700…16720 (11, 0, 8) ExtentHdr {name=»DEMO4 «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0017,01 (0x017100)}, prevext={DA 0015,0d (0x015d00)}, nextfile={DA 0017,01 (0x017100)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x16720…16740 20 46 4c 59 54 41 42 53 28 28 4b 58 2a 49 2d 4b 59 2a 31 30 29 2c 28 4b 59 2a 49 2b 4b 58 2a 31 ┆ FLYTABS((KX*I-KY*10),(KY*I+KX*1┆
0x16740…16760 30 29 29 2c 23 31 37 39 30 20 45 58 45 43 20 54 45 47 4e 52 45 4c 28 28 4b 59 2a 32 30 29 2c 28 ┆0)),#1790 EXEC TEGNREL((KY*20),(┆
0x16760…16780 2d 4b 58 2a 32 30 29 29 23 1d 31 38 30 30 20 49 46 20 30 3c 3d 4b 59 20 41 4e 44 20 4b 59 3c 3d ┆-KX*20))# 1800 IF 0<=KY AND KY<=┆
0x16780…167a0 31 20 54 48 45 4e 20 1d 34 31 38 31 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 4b 59 2a 32 ┆1 THEN 41810 EXEC FLYTREL((KY*2┆
0x167a0…167c0 30 29 2c 28 2d 4b 58 2a 32 30 2d 48 42 2a 28 53 47 4e 28 4b 58 29 2b 31 29 2f 32 29 29 34 0a 31 ┆0),(-KX*20-HB*(SGN(KX)+1)/2))4 1┆
0x167c0…167e0 38 32 30 20 45 4c 53 45 20 0a 34 31 38 33 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 28 2d 4b ┆820 ELSE 41830 EXEC FLYTREL((-K┆
0x167e0…16800 59 29 2a 34 30 2c 28 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 ┆Y)*40,(KX)*40+HB*(SGN(KX)-1)/2)4┆
0x16800…16820 (11, 0, 9) 0b 31 38 34 30 20 45 4e 44 49 46 20 0b 18 31 38 35 30 20 49 46 20 54 59 50 24 3d 22 4c 49 4e 22 ┆ 1840 ENDIF 1850 IF TYP$="LIN"┆
0x16820…16840 20 54 48 45 4e 20 18 0b 31 38 36 30 20 53 49 49 3d 53 49 0b 0a 31 38 37 30 20 45 4c 53 45 20 0a ┆ THEN 1860 SII=SI 1870 ELSE ┆
0x16840…16860 0f 31 38 38 30 20 53 49 49 3d 31 30 2a 2a 53 49 0f 0b 31 38 39 30 20 45 4e 44 49 46 20 0b 1c 31 ┆ 1880 SII=10**SI 1890 ENDIF 1┆
0x16860…16880 39 30 30 20 49 46 20 41 42 53 28 53 49 49 29 3c 3d 39 39 39 39 20 54 48 45 4e 20 1c 18 31 39 31 ┆900 IF ABS(SII)<=9999 THEN 191┆
0x16880…168a0 30 20 53 4a 3d 52 4f 55 28 53 49 49 2a 31 30 30 29 2f 31 30 30 18 0a 31 39 32 30 20 45 4c 53 45 ┆0 SJ=ROU(SII*100)/100 1920 ELSE┆
0x168a0…168c0 20 0a 30 31 39 33 30 20 49 46 20 39 39 39 39 3c 41 42 53 28 53 49 49 29 20 41 4e 44 20 41 42 53 ┆ 01930 IF 9999<ABS(SII) AND ABS┆
0x168c0…168e0 28 53 49 49 29 3c 3d 39 39 39 39 39 39 20 54 48 45 4e 20 30 10 31 39 34 30 20 53 4a 3d 52 4f 55 ┆(SII)<=999999 THEN 0 1940 SJ=ROU┆
0x168e0…16900 28 53 49 49 29 10 0a 31 39 35 30 20 45 4c 53 45 20 0a 0b 31 39 36 30 20 53 4a 3d 53 49 49 0b 0b ┆(SII) 1950 ELSE 1960 SJ=SII ┆
0x16900…16920 (11, 0, 10) 31 39 37 30 20 45 4e 44 49 46 20 0b 0b 31 39 38 30 20 45 4e 44 49 46 20 0b 24 31 39 39 30 20 49 ┆1970 ENDIF 1980 ENDIF $1990 I┆
0x16920…16940 46 20 53 4a 3c 3e 30 20 54 48 45 4e 20 45 58 45 43 20 54 41 4c 28 30 2c 48 5c 2c 53 4a 29 24 0d ┆F SJ<>0 THEN EXEC TAL(0,HØ,SJ)$ ┆
0x16940…16960 32 30 30 30 20 53 49 3d 53 49 2d 53 45 0d 0b 32 30 31 30 20 4e 45 58 54 20 49 0b 0b 32 30 32 30 ┆2000 SI=SI-SE 2010 NEXT I 2020┆
0x16960…16980 20 45 4e 44 49 46 20 0b 13 32 30 33 30 20 45 4e 44 50 52 4f 43 20 3b 41 4b 53 45 2e 13 3b 32 30 ┆ ENDIF 2030 ENDPROC ;AKSE. ;20┆
0x16980…169a0 34 30 20 50 52 4f 43 20 4b 4f 53 59 53 28 58 49 2c 58 58 2c 59 49 2c 59 58 2c 58 43 2c 59 43 2c ┆40 PROC KOSYS(XI,XX,YI,YX,XC,YC,┆
0x169a0…169c0 58 30 2c 59 30 2c 58 54 50 2c 59 54 50 2c 41 4b 2c 58 54 58 2c 59 54 58 29 3b 3f 32 30 35 30 20 ┆X0,Y0,XTP,YTP,AK,XTX,YTX);?2050 ┆
0x169c0…169e0 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 ****************************┆
0x169e0…16a00 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 3f 3f 32 30 36 30 ┆**************************??2060┆
0x16a00…16a20 (11, 0, 11) 20 52 45 4d 20 2a 4b 4f 53 59 53 20 46 4f 52 45 54 41 47 45 52 20 45 4e 20 41 55 54 4f 53 4b 41 ┆ REM *KOSYS FORETAGER EN AUTOSKA┆
0x16a20…16a40 4c 45 52 49 4e 47 20 4f 47 20 45 4e 20 41 55 54 4f 4e 55 4c 50 55 4e 4b 54 53 2a 3f 3f 32 30 37 ┆LERING OG EN AUTONULPUNKTS*??207┆
0x16a40…16a60 30 20 52 45 4d 20 2a 42 45 53 54 45 4d 4d 45 4c 53 45 2c 20 48 56 49 53 20 58 43 20 4f 47 2f 45 ┆0 REM *BESTEMMELSE, HVIS XC OG/E┆
0x16a60…16a80 4c 4c 45 52 20 59 43 20 45 52 20 4d 49 4e 44 52 45 20 45 4e 44 20 45 4c 4c 45 52 2a 3f 3f 32 30 ┆LLER YC ER MINDRE END ELLER*??20┆
0x16a80…16aa0 38 30 20 52 45 4d 20 2a 4c 49 47 20 4d 45 44 20 4e 55 4c 2e 20 53 4b 41 4c 45 52 49 4e 47 45 4e ┆80 REM *LIG MED NUL. SKALERINGEN┆
0x16aa0…16ac0 20 58 43 2c 59 43 20 42 45 53 54 45 4d 4d 45 53 20 44 41 20 41 46 20 58 49 2c 58 58 2a 3f 3f 32 ┆ XC,YC BESTEMMES DA AF XI,XX*??2┆
0x16ac0…16ae0 30 39 30 20 52 45 4d 20 2a 4f 47 20 59 49 2c 59 58 2e 20 45 4c 4c 45 52 53 20 41 4e 56 45 4e 44 ┆090 REM *OG YI,YX. ELLERS ANVEND┆
0x16ae0…16b00 45 53 20 44 45 20 55 44 45 46 52 41 20 41 4e 47 49 56 4e 45 20 53 4b 41 4c 45 2d 20 20 2a 3f 3f ┆ES DE UDEFRA ANGIVNE SKALE- *??┆
0x16b00…16b20 (11, 0, 12) 32 31 30 30 20 52 45 4d 20 2a 52 49 4e 47 45 52 20 58 43 2c 59 43 20 4f 47 20 44 45 20 55 44 45 ┆2100 REM *RINGER XC,YC OG DE UDE┆
0x16b20…16b40 46 52 41 20 41 4e 47 49 56 4e 45 20 4e 55 4c 50 55 4e 4b 54 45 52 20 58 5c 2c 59 5c 2e 20 2a 3f ┆FRA ANGIVNE NULPUNKTER XØ,YØ. *?┆
0x16b40…16b60 3f 32 31 31 30 20 52 45 4d 20 2a 44 45 53 55 44 45 4e 20 56 49 4c 20 4b 4f 4f 52 44 2c 20 48 56 ┆?2110 REM *DESUDEN VIL KOORD, HV┆
0x16b60…16b80 49 53 20 41 4b 20 45 52 20 4c 49 47 20 4d 45 44 20 45 45 4e 2c 20 55 44 54 45 47 4e 45 20 20 2a ┆IS AK ER LIG MED EEN, UDTEGNE *┆
0x16b80…16ba0 3f 3f 32 31 32 30 20 52 45 4d 20 2a 4b 4f 4f 52 44 49 4e 41 54 41 4b 53 45 52 4e 45 2c 20 53 5b ┆??2120 REM *KOORDINATAKSERNE, SÆ┆
0x16ba0…16bc0 54 54 45 20 54 45 4b 53 54 45 52 4e 45 20 58 54 58 20 4f 47 20 59 54 58 20 50 5d 20 20 20 20 20 ┆TTE TEKSTERNE XTX OG YTX PÅ ┆
0x16bc0…16be0 2a 3f 3f 32 31 33 30 20 52 45 4d 20 2a 41 4b 53 45 52 4e 45 20 4f 47 20 45 4e 44 45 4c 49 47 20 ┆*??2130 REM *AKSERNE OG ENDELIG ┆
0x16be0…16c00 55 44 53 4b 52 49 56 45 20 45 4e 20 53 4b 41 4c 41 2c 20 53 4f 4d 20 56 49 4c 20 56 5b 52 45 20 ┆UDSKRIVE EN SKALA, SOM VIL VÆRE ┆
0x16c00…16c20 (11, 0, 13) 20 2a 3f 3f 32 31 34 30 20 52 45 4d 20 2a 4c 49 4e 49 5b 52 2c 20 48 56 49 53 20 58 54 50 28 59 ┆ *??2140 REM *LINIÆR, HVIS XTP(Y┆
0x16c20…16c40 54 50 29 20 45 52 20 4c 49 47 20 22 4c 49 4e 22 20 4f 47 20 45 4b 53 50 4f 4e 45 4e 54 49 41 4c ┆TP) ER LIG "LIN" OG EKSPONENTIAL┆
0x16c40…16c60 2c 20 2a 3f 3f 32 31 35 30 20 52 45 4d 20 2a 48 56 49 53 20 58 54 50 28 59 54 50 29 20 45 52 20 ┆, *??2150 REM *HVIS XTP(YTP) ER ┆
0x16c60…16c80 46 4f 52 53 4b 45 4c 4c 49 47 20 46 52 41 20 22 4c 49 4e 22 2e 20 20 20 20 20 20 20 20 20 20 20 ┆FORSKELLIG FRA "LIN". ┆
0x16c80…16ca0 20 20 20 2a 3f 3f 32 31 36 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *??2160 REM *****************┆
0x16ca0…16cc0 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 2a 2a ┆********************************┆
0x16cc0…16ce0 2a 2a 2a 2a 2a 3f 19 32 31 37 30 20 50 52 4f 43 20 58 59 44 42 53 54 28 58 59 43 2c 58 59 44 29 ┆*****? 2170 PROC XYDBST(XYC,XYD)┆
0x16ce0…16d00 19 15 32 31 38 30 20 58 59 44 3d 49 4e 54 28 32 30 30 2f 58 59 43 29 15 29 32 31 39 30 20 49 46 ┆ 2180 XYD=INT(200/XYC) )2190 IF┆
0x16d00…16d20 (11, 0, 14) 20 32 30 30 3c 3d 58 59 43 20 41 4e 44 20 58 59 43 3c 34 30 30 20 54 48 45 4e 20 58 59 44 3d 30 ┆ 200<=XYC AND XYC<400 THEN XYD=0┆
0x16d20…16d40 2e 35 29 2b 32 32 30 30 20 49 46 20 34 30 30 3c 3d 58 59 43 20 41 4e 44 20 58 59 43 3c 31 38 30 ┆.5)+2200 IF 400<=XYC AND XYC<180┆
0x16d40…16d60 30 20 54 48 45 4e 20 58 59 44 3d 30 2e 32 35 2b 1e 32 32 31 30 20 49 46 20 31 38 30 30 3c 3d 58 ┆0 THEN XYD=0.25+ 2210 IF 1800<=X┆
0x16d60…16d80 59 43 20 54 48 45 4e 20 58 59 44 3d 30 2e 31 1e 15 32 32 32 30 20 45 4e 44 50 52 4f 43 20 3b 58 ┆YC THEN XYD=0.1 2220 ENDPROC ;X┆
0x16d80…16da0 59 44 42 53 54 2e 15 14 32 32 33 30 20 53 4c 3d 33 35 30 30 3b 53 42 3d 32 33 30 30 14 1c 32 32 ┆YDBST. 2230 SL=3500;SB=2300 22┆
0x16da0…16dc0 34 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 1a 32 32 35 30 ┆40 IF XC<=0 OR YC<=0 THEN 2250┆
0x16dc0…16de0 20 58 43 2c 59 43 3d 49 4e 54 28 53 42 2f 28 59 58 2d 59 49 29 29 1a 31 32 32 36 30 20 49 46 20 ┆ XC,YC=INT(SB/(YX-YI)) 12260 IF ┆
0x16de0…16e00 58 43 3d 3e 53 4c 2f 28 58 58 2d 58 49 29 20 54 48 45 4e 20 58 43 2c 59 43 3d 49 4e 54 28 53 4c ┆XC=>SL/(XX-XI) THEN XC,YC=INT(SL┆
0x16e00…16e20 (11, 0, 15) 2f 28 58 58 2d 58 49 29 29 31 25 32 32 37 30 20 58 4f 3d 2d 58 49 2a 58 43 3b 59 4f 3d 2d 59 49 ┆/(XX-XI))1%2270 XO=-XI*XC;YO=-YI┆
0x16e20…16e40 2a 59 43 3b 58 46 3d 2d 32 30 3b 59 46 3d 39 30 25 1e 32 32 38 30 20 49 46 20 30 3c 3d 58 4f 20 ┆*YC;XF=-20;YF=90% 2280 IF 0<=XO ┆
0x16e40…16e60 41 4e 44 20 58 4f 3c 3d 53 4c 20 54 48 45 4e 20 1e 0b 32 32 39 30 20 58 50 4f 3d 58 4f 0b 0a 32 ┆AND XO<=SL THEN 2290 XPO=XO 2┆
0x16e60…16e80 33 30 30 20 45 4c 53 45 20 0a 12 32 33 31 30 20 49 46 20 58 4f 3c 30 20 54 48 45 4e 20 12 0a 32 ┆300 ELSE 2310 IF XO<0 THEN 2┆
0x16e80…16ea0 33 32 30 20 58 50 4f 3d 30 0a 0a 32 33 33 30 20 45 4c 53 45 20 0a 0b 32 33 34 30 20 58 50 4f 3d ┆320 XPO=0 2330 ELSE 2340 XPO=┆
0x16ea0…16ec0 53 4c 0b 0b 32 33 35 30 20 45 4e 44 49 46 20 0b 0b 32 33 36 30 20 45 4e 44 49 46 20 0b 1e 32 33 ┆SL 2350 ENDIF 2360 ENDIF 23┆
0x16ec0…16ee0 37 30 20 49 46 20 30 3c 3d 59 4f 20 41 4e 44 20 59 4f 3c 3d 53 42 20 54 48 45 4e 20 1e 0b 32 33 ┆70 IF 0<=YO AND YO<=SB THEN 23┆
0x16ee0…16f00 38 30 20 59 50 4f 3d 59 4f 0b 0a 32 33 39 30 20 45 4c 53 45 20 0a 12 32 34 30 30 20 49 46 20 59 ┆80 YPO=YO 2390 ELSE 2400 IF Y┆
0x16f00…16f20 (11, 0, 16) 4f 3c 30 20 54 48 45 4e 20 12 0a 32 34 31 30 20 59 50 4f 3d 30 0a 0a 32 34 32 30 20 45 4c 53 45 ┆O<0 THEN 2410 YPO=0 2420 ELSE┆
0x16f20…16f40 20 0a 0b 32 34 33 30 20 59 50 4f 3d 53 42 0b 0b 32 34 34 30 20 45 4e 44 49 46 20 0b 0b 32 34 35 ┆ 2430 YPO=SB 2440 ENDIF 245┆
0x16f40…16f60 30 20 45 4e 44 49 46 20 0b 0a 32 34 36 30 20 45 4c 53 45 20 0a 40 32 34 37 30 20 58 43 3d 58 43 ┆0 ENDIF 2460 ELSE @2470 XC=XC┆
0x16f60…16f80 2a 31 30 3b 59 43 3d 59 43 2a 31 30 3b 58 50 4f 2c 58 4f 3d 58 30 2a 31 30 3b 59 50 4f 2c 59 4f ┆*10;YC=YC*10;XPO,XO=X0*10;YPO,YO┆
0x16f80…16fa0 3d 59 30 2a 31 30 3b 58 46 3d 2d 34 32 30 3b 59 46 3d 2d 31 36 30 40 0b 32 34 38 30 20 45 4e 44 ┆=Y0*10;XF=-420;YF=-160@ 2480 END┆
0x16fa0…16fc0 49 46 20 0b 12 32 34 39 30 20 49 46 20 41 4b 3d 31 20 54 48 45 4e 20 12 24 32 35 30 30 20 45 58 ┆IF 2490 IF AK=1 THEN $2500 EX┆
0x16fc0…16fe0 45 43 20 46 4c 59 54 41 42 53 28 28 58 50 4f 2b 58 46 29 2c 28 59 50 4f 2b 59 46 29 29 24 10 32 ┆EC FLYTABS((XPO+XF),(YPO+YF))$ 2┆
0x16fe0…17000 35 31 30 20 45 58 45 43 20 4e 55 4c 50 4b 54 10 17 32 35 32 30 20 45 58 45 43 20 58 59 44 42 53 ┆510 EXEC NULPKT 2520 EXEC XYDBS┆
0x17000…17020 (11, 1, 1) 54 28 58 43 2c 58 44 29 17 29 32 35 33 30 20 45 58 45 43 20 41 4b 53 45 28 30 2c 31 2c 58 43 2c ┆T(XC,XD) )2530 EXEC AKSE(0,1,XC,┆
0x17020…17040 58 44 2c 58 49 2c 58 58 2c 58 54 50 24 2c 58 54 58 24 29 29 17 32 35 34 30 20 45 58 45 43 20 58 ┆XD,XI,XX,XTP$,XTX$)) 2540 EXEC X┆
0x17040…17060 59 44 42 53 54 28 59 43 2c 59 44 29 17 2a 32 35 35 30 20 45 58 45 43 20 41 4b 53 45 28 39 30 2c ┆YDBST(YC,YD) *2550 EXEC AKSE(90,┆
0x17060…17080 31 2c 59 43 2c 59 44 2c 59 49 2c 59 58 2c 59 54 50 24 2c 59 54 58 24 29 2a 0b 32 35 36 30 20 45 ┆1,YC,YD,YI,YX,YTP$,YTX$)* 2560 E┆
0x17080…170a0 4e 44 49 46 20 0b 18 32 35 37 30 20 58 30 3d 58 4f 2d 58 50 4f 3b 59 30 3d 59 4f 2d 59 50 4f 18 ┆NDIF 2570 X0=XO-XPO;Y0=YO-YPO ┆
0x170a0…170c0 14 32 35 38 30 20 45 4e 44 50 52 4f 43 20 3b 4b 4f 53 59 53 2e 14 42 33 33 32 30 20 50 52 4f 43 ┆ 2580 ENDPROC ;KOSYS. B3320 PROC┆
0x170c0…170e0 20 50 41 52 4b 52 56 28 54 53 54 2c 54 53 4c 2c 44 54 2c 58 53 4b 41 2c 59 53 4b 41 2c 58 4e 55 ┆ PARKRV(TST,TSL,DT,XSKA,YSKA,XNU┆
0x170e0…17100 4c 2c 59 4e 55 4c 2c 4c 49 54 59 2c 41 4b 53 52 2c 58 54 45 2c 59 54 45 29 42 42 33 33 33 30 20 ┆L,YNUL,LITY,AKSR,XTE,YTE)BB3330 ┆
0x17100…17120 (11, 1, 2) ExtentHdr {name=»DEMO4 «, typ=»K«, seg=»D«, next=0x03, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0016,07 (0x016700)}, nextfile={DA 0017,0b (0x017b00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x17120…17140 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 ****************************┆
0x17140…17160 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 42 42 33 ┆*****************************BB3┆
0x17160…17180 33 34 30 20 52 45 4d 20 2a 50 41 52 4b 52 56 20 46 4f 52 45 54 41 47 45 52 20 45 4e 20 41 46 42 ┆340 REM *PARKRV FORETAGER EN AFB┆
0x17180…171a0 49 4c 44 4e 49 4e 47 20 41 46 20 50 41 52 41 4d 45 54 45 52 46 52 45 4d 53 54 49 4c 4c 49 4e 2d ┆ILDNING AF PARAMETERFREMSTILLIN-┆
0x171a0…171c0 2a 42 42 33 33 35 30 20 52 45 4d 20 2a 47 45 4e 20 41 4e 47 49 56 45 54 20 49 20 50 52 4f 43 45 ┆*BB3350 REM *GEN ANGIVET I PROCE┆
0x171c0…171e0 44 55 52 45 4e 20 50 41 52 4d 20 4d 45 44 20 50 41 52 41 4d 45 54 45 52 45 4e 20 54 20 4c 5c 42 ┆DUREN PARM MED PARAMETEREN T LØB┆
0x171e0…17200 45 4e 44 45 2a 42 42 33 33 36 30 20 52 45 4d 20 2a 46 52 41 20 54 53 54 20 54 49 4c 20 54 53 4c ┆ENDE*BB3360 REM *FRA TST TIL TSL┆
0x17200…17220 (11, 1, 3) 20 4d 45 44 20 45 54 20 53 54 45 50 20 50 5d 20 44 54 2e 20 48 56 49 53 20 58 53 4b 41 20 4f 47 ┆ MED ET STEP PÅ DT. HVIS XSKA OG┆
0x17220…17240 2f 45 4c 4c 45 52 20 20 2a 42 42 33 33 37 30 20 52 45 4d 20 2a 59 53 4b 41 20 45 52 20 4d 49 4e ┆/ELLER *BB3370 REM *YSKA ER MIN┆
0x17240…17260 44 52 45 20 45 4e 44 20 4e 55 4c 20 46 4f 52 45 54 41 47 45 53 20 45 4e 20 41 55 54 4f 4d 41 54 ┆DRE END NUL FORETAGES EN AUTOMAT┆
0x17260…17280 49 53 4b 20 42 45 53 54 45 4d 2d 20 2a 42 42 33 33 38 30 20 52 45 4d 20 2a 4d 45 4c 53 45 20 41 ┆ISK BESTEM- *BB3380 REM *MELSE A┆
0x17280…172a0 46 20 53 4b 41 4c 45 52 49 4e 47 45 4e 20 4f 47 20 4e 55 4c 50 55 4e 4b 54 45 54 2e 20 45 4c 4c ┆F SKALERINGEN OG NULPUNKTET. ELL┆
0x172a0…172c0 45 52 53 20 42 45 4e 4e 59 54 54 45 53 20 45 4e 2a 42 42 33 33 39 30 20 52 45 4d 20 2a 53 4b 41 ┆ERS BENNYTTES EN*BB3390 REM *SKA┆
0x172c0…172e0 4c 45 52 49 4e 47 20 42 45 53 54 45 4d 54 20 41 46 20 58 53 4b 41 2c 59 53 4b 41 2c 20 4f 47 20 ┆LERING BESTEMT AF XSKA,YSKA, OG ┆
0x172e0…17300 45 54 20 4e 55 4c 50 55 4e 4b 54 20 42 45 53 54 45 4d 54 20 2a 42 42 33 34 30 30 20 52 45 4d 20 ┆ET NULPUNKT BESTEMT *BB3400 REM ┆
0x17300…17320 (11, 1, 4) 2a 41 46 20 58 4e 55 4c 2c 59 4e 55 4c 2e 20 4b 55 52 56 45 4e 20 54 45 47 4e 45 53 20 4d 45 44 ┆*AF XNUL,YNUL. KURVEN TEGNES MED┆
0x17320…17340 20 44 45 4e 20 41 46 20 4c 49 54 59 20 56 41 4c 47 54 45 20 4c 49 2d 20 2a 42 42 33 34 31 30 20 ┆ DEN AF LITY VALGTE LI- *BB3410 ┆
0x17340…17360 52 45 4d 20 2a 4e 49 45 54 59 50 45 2e 20 48 56 49 53 20 41 4b 53 52 20 45 52 20 4c 49 47 20 4d ┆REM *NIETYPE. HVIS AKSR ER LIG M┆
0x17360…17380 45 44 20 45 45 4e 20 55 44 54 45 47 4e 45 53 20 44 45 53 55 44 45 4e 20 20 20 20 20 2a 42 42 33 ┆ED EEN UDTEGNES DESUDEN *BB3┆
0x17380…173a0 34 32 30 20 52 45 4d 20 2a 4b 4f 4f 52 44 49 4e 41 54 41 4b 53 45 52 20 4d 45 44 20 54 45 4b 53 ┆420 REM *KOORDINATAKSER MED TEKS┆
0x173a0…173c0 54 45 52 4e 45 20 58 54 45 2c 59 54 45 20 50 5d 53 41 54 2c 20 4f 47 20 50 4c 4f 54 54 45 2d 20 ┆TERNE XTE,YTE PÅSAT, OG PLOTTE- ┆
0x173c0…173e0 2a 42 42 33 34 33 30 20 52 45 4d 20 2a 52 45 4e 53 20 4e 55 4c 50 55 4e 4b 54 20 46 41 53 54 53 ┆*BB3430 REM *RENS NULPUNKT FASTS┆
0x173e0…17400 5b 54 54 45 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ÆTTES. ┆
0x17400…17420 (11, 1, 5) 20 20 20 20 2a 42 42 33 34 34 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *BB3440 REM ****************┆
0x17420…17440 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 2a 2a ┆********************************┆
0x17440…17460 2a 2a 2a 2a 2a 2a 2a 2a 2a 42 2f 33 34 35 30 20 4c 49 4e 24 3d 22 4c 49 4e 22 3b 58 53 3d 58 53 ┆*********B/3450 LIN$="LIN";XS=XS┆
0x17460…17480 4b 41 3b 59 53 3d 59 53 4b 41 3b 58 5c 3d 58 4e 55 4c 3b 59 5c 3d 59 4e 55 4c 2f 23 33 34 36 30 ┆KA;YS=YSKA;XØ=XNUL;YØ=YNUL/#3460┆
0x17480…174a0 20 58 4d 49 2c 59 4d 49 3d 39 2e 32 45 31 38 3b 58 4d 58 2c 59 4d 58 3d 2d 39 2e 32 45 31 38 23 ┆ XMI,YMI=9.2E18;XMX,YMX=-9.2E18#┆
0x174a0…174c0 1e 33 34 37 30 20 46 4f 52 20 54 4b 3d 54 53 54 20 54 4f 20 54 53 4c 20 53 54 45 50 20 44 54 1e ┆ 3470 FOR TK=TST TO TSL STEP DT ┆
0x174c0…174e0 18 33 34 38 30 20 45 58 45 43 20 50 41 52 4d 28 54 4b 2c 58 4b 2c 59 4b 29 18 1b 33 34 39 30 20 ┆ 3480 EXEC PARM(TK,XK,YK) 3490 ┆
0x174e0…17500 49 46 20 58 4b 3c 3d 58 4d 49 20 54 48 45 4e 20 58 4d 49 3d 58 4b 1b 1b 33 35 30 30 20 49 46 20 ┆IF XK<=XMI THEN XMI=XK 3500 IF ┆
0x17500…17520 (11, 1, 6) 58 4b 3d 3e 58 4d 58 20 54 48 45 4e 20 58 4d 58 3d 58 4b 1b 1b 33 35 31 30 20 49 46 20 59 4b 3c ┆XK=>XMX THEN XMX=XK 3510 IF YK<┆
0x17520…17540 3d 59 4d 49 20 54 48 45 4e 20 59 4d 49 3d 59 4b 1b 1b 33 35 32 30 20 49 46 20 59 4b 3d 3e 59 4d ┆=YMI THEN YMI=YK 3520 IF YK=>YM┆
0x17540…17560 58 20 54 48 45 4e 20 59 4d 58 3d 59 4b 1b 0c 33 35 33 30 20 4e 45 58 54 20 54 4b 0c 45 33 35 34 ┆X THEN YMX=YK 3530 NEXT TK E354┆
0x17560…17580 30 20 45 58 45 43 20 4b 4f 53 59 53 28 58 4d 49 2c 58 4d 58 2c 59 4d 49 2c 59 4d 58 2c 58 53 2c ┆0 EXEC KOSYS(XMI,XMX,YMI,YMX,XS,┆
0x17580…175a0 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 24 2c 59 54 45 ┆YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE┆
0x175a0…175c0 24 29 45 17 33 35 35 30 20 45 58 45 43 20 50 41 52 4d 28 54 2c 58 4b 2c 59 4b 29 17 28 33 35 36 ┆$)E 3550 EXEC PARM(T,XK,YK) (356┆
0x175c0…175e0 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 28 58 4b 2a 58 53 2b 58 5c 29 2c 28 59 4b 2a 59 53 ┆0 EXEC FLYTABS((XK*XS+XØ),(YK*YS┆
0x175e0…17600 2b 59 5c 29 29 28 1e 33 35 37 30 20 46 4f 52 20 54 4b 3d 54 53 54 20 54 4f 20 54 53 4c 20 53 54 ┆+YØ))( 3570 FOR TK=TST TO TSL ST┆
0x17600…17620 (11, 1, 7) 45 50 20 44 54 1e 18 33 35 38 30 20 45 58 45 43 20 50 41 52 4d 28 54 4b 2c 58 4b 2c 59 4b 29 18 ┆EP DT 3580 EXEC PARM(TK,XK,YK) ┆
0x17620…17640 2d 33 35 39 30 20 45 58 45 43 20 54 45 47 4e 41 42 53 28 4c 49 54 59 2c 28 58 4b 2a 58 53 2b 58 ┆-3590 EXEC TEGNABS(LITY,(XK*XS+X┆
0x17640…17660 5c 29 2c 28 59 4b 2a 59 53 2b 59 5c 29 29 2d 0c 33 36 30 30 20 4e 45 58 54 20 54 4b 0c 0f 33 36 ┆Ø),(YK*YS+YØ))- 3600 NEXT TK 36┆
0x17660…17680 31 30 20 45 58 45 43 20 50 45 4e 4f 50 0f 15 33 36 32 30 20 45 4e 44 50 52 4f 43 20 3b 50 41 52 ┆10 EXEC PENOP 3620 ENDPROC ;PAR┆
0x17680…176a0 4b 52 56 2e 15 28 34 30 30 30 20 44 49 4d 20 4e 41 56 4e 24 28 32 30 29 2c 58 54 45 4b 53 54 24 ┆KRV. (4000 DIM NAVN$(20),XTEKST$┆
0x176a0…176c0 28 31 29 2c 59 54 45 4b 53 54 24 28 31 29 28 0e 34 30 31 30 20 4f 55 54 50 55 54 20 50 31 0e 12 ┆(1),YTEKST$(1)( 4010 OUTPUT P1 ┆
0x176c0…176e0 34 30 32 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 1f 34 30 33 30 20 4e 41 56 4e 24 3d 22 ┆4020 EXEC PLOTINIT 4030 NAVN$="┆
0x176e0…17700 44 44 45 20 50 4c 4f 54 54 45 52 20 44 45 4d 4f 2d 34 22 1f 19 34 30 34 30 20 45 58 45 43 20 46 ┆DDE PLOTTER DEMO-4" 4040 EXEC F┆
0x17700…17720 (11, 1, 8) 4c 59 54 41 42 53 28 30 2c 32 33 30 30 29 19 1a 34 30 35 30 20 45 58 45 43 20 54 45 4b 53 54 28 ┆LYTABS(0,2300) 4050 EXEC TEKST(┆
0x17720…17740 30 2c 34 2c 4e 41 56 4e 24 29 1a 15 34 30 36 30 20 50 52 4f 43 20 50 41 52 4d 28 54 2c 58 2c 59 ┆0,4,NAVN$) 4060 PROC PARM(T,X,Y┆
0x17740…17760 29 15 18 34 30 37 30 20 58 3d 35 2a 52 2a 43 4f 53 28 54 2f 31 38 30 2a 50 49 29 18 18 34 30 38 ┆) 4070 X=5*R*COS(T/180*PI) 408┆
0x17760…17780 30 20 59 3d 32 2a 52 2a 53 49 4e 28 54 2f 31 38 30 2a 50 49 29 18 13 34 30 39 30 20 45 4e 44 50 ┆0 Y=2*R*SIN(T/180*PI) 4090 ENDP┆
0x17780…177a0 52 4f 43 20 3b 50 41 52 4d 2e 13 1c 34 31 30 30 20 58 54 45 4b 53 54 24 3d 22 58 22 3b 59 54 45 ┆ROC ;PARM. 4100 XTEKST$="X";YTE┆
0x177a0…177c0 4b 53 54 24 3d 22 59 22 1c 19 34 31 31 30 20 46 4f 52 20 52 3d 35 20 54 4f 20 31 20 53 54 45 50 ┆KST$="Y" 4110 FOR R=5 TO 1 STEP┆
0x177c0…177e0 20 2d 31 19 3d 34 31 32 30 20 45 58 45 43 20 50 41 52 4b 52 56 28 30 2c 33 36 30 2c 34 2c 33 2c ┆ -1 =4120 EXEC PARKRV(0,360,4,3,┆
0x177e0…17800 33 2c 31 31 30 2c 31 33 30 2c 30 2c 28 52 2d 34 29 2c 58 54 45 4b 53 54 24 2c 59 54 45 4b 53 54 ┆3,110,130,0,(R-4),XTEKST$,YTEKST┆
0x17800…17820 (11, 1, 9) 24 29 3d 0b 34 31 33 30 20 4e 45 58 54 20 52 0b 0a 34 31 34 30 20 53 54 4f 50 20 0a 00 00 63 63 ┆$)= 4130 NEXT R 4140 STOP cc┆
0x17820…17840 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┆
[…0x6…]
0x17900…17a00 (11, 1, 10) 0x63[0x100]
0x17a00…17a20 (11, 1, 11) 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┆
[…0x6…]
0x17ae0…17b00 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 ┆
0x17b00…17b20 (11, 1, 12) ExtentHdr {name=»PNDEMO4 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,05 (0x018500)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x17b20…17b40 28 34 30 30 30 20 44 49 4d 20 4e 41 56 4e 24 28 32 30 29 2c 58 54 45 4b 53 54 24 28 31 29 2c 59 ┆(4000 DIM NAVN$(20),XTEKST$(1),Y┆
0x17b40…17b60 54 45 4b 53 54 24 28 31 29 28 0e 34 30 31 30 20 4f 55 54 50 55 54 20 50 31 0e 12 34 30 32 30 20 ┆TEKST$(1)( 4010 OUTPUT P1 4020 ┆
0x17b60…17b80 45 58 45 43 20 50 4c 4f 54 49 4e 49 54 12 1f 34 30 33 30 20 4e 41 56 4e 24 3d 22 44 44 45 20 50 ┆EXEC PLOTINIT 4030 NAVN$="DDE P┆
0x17b80…17ba0 4c 4f 54 54 45 52 20 44 45 4d 4f 2d 34 22 1f 19 34 30 34 30 20 45 58 45 43 20 46 4c 59 54 41 42 ┆LOTTER DEMO-4" 4040 EXEC FLYTAB┆
0x17ba0…17bc0 53 28 30 2c 32 33 30 30 29 19 1a 34 30 35 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 34 2c 4e ┆S(0,2300) 4050 EXEC TEKST(0,4,N┆
0x17bc0…17be0 41 56 4e 24 29 1a 15 34 30 36 30 20 50 52 4f 43 20 50 41 52 4d 28 54 2c 58 2c 59 29 15 18 34 30 ┆AVN$) 4060 PROC PARM(T,X,Y) 40┆
0x17be0…17c00 37 30 20 58 3d 35 2a 52 2a 43 4f 53 28 54 2f 31 38 30 2a 50 49 29 18 18 34 30 38 30 20 59 3d 32 ┆70 X=5*R*COS(T/180*PI) 4080 Y=2┆
0x17c00…17c20 (11, 1, 13) 2a 52 2a 53 49 4e 28 54 2f 31 38 30 2a 50 49 29 18 13 34 30 39 30 20 45 4e 44 50 52 4f 43 20 3b ┆*R*SIN(T/180*PI) 4090 ENDPROC ;┆
0x17c20…17c40 50 41 52 4d 2e 13 1c 34 31 30 30 20 58 54 45 4b 53 54 24 3d 22 58 22 3b 59 54 45 4b 53 54 24 3d ┆PARM. 4100 XTEKST$="X";YTEKST$=┆
0x17c40…17c60 22 59 22 1c 19 34 31 31 30 20 46 4f 52 20 52 3d 35 20 54 4f 20 31 20 53 54 45 50 20 2d 31 19 3d ┆"Y" 4110 FOR R=5 TO 1 STEP -1 =┆
0x17c60…17c80 34 31 32 30 20 45 58 45 43 20 50 41 52 4b 52 56 28 30 2c 33 36 30 2c 31 2c 33 2c 33 2c 31 31 30 ┆4120 EXEC PARKRV(0,360,1,3,3,110┆
0x17c80…17ca0 2c 31 33 30 2c 30 2c 28 52 2d 34 29 2c 58 54 45 4b 53 54 24 2c 59 54 45 4b 53 54 24 29 3d 0b 34 ┆,130,0,(R-4),XTEKST$,YTEKST$)= 4┆
0x17ca0…17cc0 31 33 30 20 4e 45 58 54 20 52 0b 0a 34 31 34 30 20 53 54 4f 50 20 0a 00 00 63 63 63 63 63 63 63 ┆130 NEXT R 4140 STOP ccccccc┆
0x17cc0…17ce0 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┆
[…0x1…]
0x17d00…17e00 (11, 1, 14) 0x63[0x100]
[…0x6…]
0x18400…18420 (12, 0, 5) 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┆
[…0x6…]
0x184e0…18500 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 ┆
0x18500…18520 (12, 0, 6) 00 4e 44 45 4d 4f 34 20 4b 41 00 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 fe 00 00 00 00 00 00 ┆ NDEMO4 KA ┆
0x18520…18540 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 ┆ ┆
[…0x6…]
0x18600…18700 (12, 0, 7) 0x00[0x100]
[…0x4…]
0x18b00…18b20 (12, 0, 12) 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 ┆ ┆
0x18b20…4f000 […elided…]
0x4f000…4f100 (39, 1, 1) 0x63[0x100]
[…0xf…]