|
DataMuseum.dkPresents historical artifacts from the history of: Zilog MCZ Floppy Disks |
This is an automatic "excavation" of a thematic subset of
Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 12409 (0x3079)
Notes: ZILOG_BASIC
Names: »PLOT.BP«
└─⟦9209c8f02⟧ Bits:30006829 8" ZilogMCZ floppy NThun_0053 (PREPARE.2.BP (c) VIAK A/S PLOT.BP PLOT.2.BP Reviderte versioner 16/11-1982)
└─⟦this⟧ »PLOT.BP«
0x0000…0014 BasicHead {variables=0x0190, stms=0x08b8, f2=0x261d, f3=0000000000000000000000000000}
0x0014…01a4 [
0x0014…01a4 [0x00]: VarDef {f0=0x3000, f1=0x42, f2=0x98} Y2' 0x63
0x0014…01a4 [0x01]: VarDef {f0=0x0300, f1=0x0f, f2=0x2a} K% 0x62
0x0014…01a4 [0x02]: VarDef {f0=0x02e2, f1=0x4f, f2=0x12} S 0x61
0x0014…01a4 [0x03]: VarDef {f0=0x0322, f1=0x0f, f2=0x05} F 0x60
0x0014…01a4 [0x04]: VarDef {f0=0x031a, f1=0x0f, f2=0x04} E 0x5f
0x0014…01a4 [0x05]: VarDef {f0=0x0312, f1=0x0f, f2=0x01} B 0x5e
0x0014…01a4 [0x06]: VarDef {f0=0x030a, f1=0x0f, f2=0x00} A 0x5d
0x0014…01a4 [0x07]: VarDef {f0=0x032a, f1=0x0f, f2=0x19} Z 0x5c
0x0014…01a4 [0x08]: VarDef {f0=0x02ca, f1=0x02, f2=0x15} V2 0x5b
0x0014…01a4 [0x09]: VarDef {f0=0x0000, f1=0x4f, f2=0x2d} N% 0x5a
0x0014…01a4 [0x0a]: VarDef {f0=0x0000, f1=0x4f, f2=0x2c} M% 0x59
0x0014…01a4 [0x0b]: VarDef {f0=0x0000, f1=0x4f, f2=0x09} J 0x58
0x0014…01a4 [0x0c]: VarDef {f0=0x02c2, f1=0x09, f2=0x03} D9 0x57
0x0014…01a4 [0x0d]: VarDef {f0=0x0100, f1=0x4f, f2=0x25} F% 0x56
0x0014…01a4 [0x0e]: VarDef {f0=0x1100, f1=0x42, f2=0x2d} N2% 0x55
0x0014…01a4 [0x0f]: VarDef {f0=0x4800, f1=0x42, f2=0x28} I2% 0x54
0x0014…01a4 [0x10]: VarDef {f0=0x4800, f1=0x41, f2=0x28} I1% 0x53
0x0014…01a4 [0x11]: VarDef {f0=0x3255, f1=0x4f, f2=0x10} Q 0x52
0x0014…01a4 [0x12]: VarDef {f0=0xe813, f1=0x19, f2=0x36} FNW9% 0x51
0x0014…01a4 [0x13]: VarDef {f0=0xe837, f1=0x18, f2=0x36} FNW8% 0x50
0x0014…01a4 [0x14]: VarDef {f0=0x031a, f1=0x49, f2=0x15} V9 0x4f
0x0014…01a4 [0x15]: VarDef {f0=0x0312, f1=0x49, f2=0x14} U9 0x4e
0x0014…01a4 [0x16]: VarDef {f0=0x02d2, f1=0x0f, f2=0x03} D 0x4d
0x0014…01a4 [0x17]: VarDef {f0=0xe89b, f1=0x17, f2=0x36} FNW7% 0x4c
0x0014…01a4 [0x18]: VarDef {f0=0xe8b7, f1=0x1f, f2=0x30} FNQ% 0x4b
0x0014…01a4 [0x19]: VarDef {f0=0xe8df, f1=0x1f, f2=0x03} FND 0x4a
0x0014…01a4 [0x1a]: VarDef {f0=0x030a, f1=0x4f, f2=0x15} V 0x49
0x0014…01a4 [0x1b]: VarDef {f0=0x0302, f1=0x4f, f2=0x07} H 0x48
0x0014…01a4 [0x1c]: VarDef {f0=0x02e2, f1=0x0f, f2=0x18} Y 0x47
0x0014…01a4 [0x1d]: VarDef {f0=0xe903, f1=0x1f, f2=0x37} FNX% 0x46
0x0014…01a4 [0x1e]: VarDef {f0=0x0332, f1=0x03, f2=0x17} X3 0x45
0x0014…01a4 [0x1f]: VarDef {f0=0x033a, f1=0x03, f2=0x18} Y3 0x44
0x0014…01a4 [0x20]: VarDef {f0=0xe8d7, f1=0x1f, f2=0x39} FNZ% 0x43
0x0014…01a4 [0x21]: VarDef {f0=0xe91b, f1=0x1f, f2=0x2f} FNP% 0x42
0x0014…01a4 [0x22]: VarDef {f0=0x02da, f1=0x0f, f2=0x17} X 0x41
0x0014…01a4 [0x23]: VarDef {f0=0xe933, f1=0x1f, f2=0x57} FNX$ 0x40
0x0014…01a4 [0x24]: VarDef {f0=0x0100, f1=0x0f, f2=0x23} D% 0x3f
0x0014…01a4 [0x25]: VarDef {f0=0x0100, f1=0x0f, f2=0x22} C% 0x3e
0x0014…01a4 [0x26]: VarDef {f0=0x0100, f1=0x0f, f2=0x21} B% 0x3d
0x0014…01a4 [0x27]: VarDef {f0=0x0100, f1=0x0f, f2=0x20} A% 0x3c
0x0014…01a4 [0x28]: VarDef {f0=0x0302, f1=0x05, f2=0x17} X5 0x3b
0x0014…01a4 [0x29]: VarDef {f0=0x02fa, f1=0x05, f2=0x18} Y5 0x3a
0x0014…01a4 [0x2a]: VarDef {f0=0x02f2, f1=0x02, f2=0x10} Q2 0x39
0x0014…01a4 [0x2b]: VarDef {f0=0x02ea, f1=0x01, f2=0x10} Q1 0x38
0x0014…01a4 [0x2c]: VarDef {f0=0x1500, f1=0x42, f2=0x01} B2 0x37
0x0014…01a4 [0x2d]: VarDef {f0=0x1490, f1=0x42, f2=0x00} A2 0x36
0x0014…01a4 [0x2e]: VarDef {f0=0x1480, f1=0x41, f2=0x01} B1 0x35
0x0014…01a4 [0x2f]: VarDef {f0=0x1470, f1=0x41, f2=0x00} A1 0x34
0x0014…01a4 [0x30]: VarDef {f0=0x1460, f1=0x42, f2=0x18} Y2 0x33
0x0014…01a4 [0x31]: VarDef {f0=0x1450, f1=0x42, f2=0x17} X2 0x32
0x0014…01a4 [0x32]: VarDef {f0=0x1440, f1=0x41, f2=0x18} Y1 0x31
0x0014…01a4 [0x33]: VarDef {f0=0x1430, f1=0x41, f2=0x17} X1 0x30
0x0014…01a4 [0x34]: VarDef {f0=0xe99f, f1=0x1f, f2=0x32} FNS% 0x2f
0x0014…01a4 [0x35]: VarDef {f0=0xea33, f1=0x19, f2=0x2c} FNM9% 0x2e
0x0014…01a4 [0x36]: VarDef {f0=0x0100, f1=0x0f, f2=0x37} X% 0x2d
0x0014…01a4 [0x37]: VarDef {f0=0x0400, f1=0x0f, f2=0x29} J% 0x2c
0x0014…01a4 [0x38]: VarDef {f0=0x0930, f1=0x4f, f2=0x0a} K 0x2b
0x0014…01a4 [0x39]: VarDef {f0=0xff3c, f1=0x51, f2=0x36} FNW1% 0x2a
0x0014…01a4 [0x3a]: VarDef {f0=0x0600, f1=0x0f, f2=0x28} I% 0x29
0x0014…01a4 [0x3b]: VarDef {f0=0xea83, f1=0x1f, f2=0x36} FNW% 0x28
0x0014…01a4 [0x3c]: VarDef {f0=0x0630, f1=0x43, f2=0x22} C3% 0x27
0x0014…01a4 [0x3d]: VarDef {f0=0x0620, f1=0x42, f2=0x22} C2% 0x26
0x0014…01a4 [0x3e]: VarDef {f0=0x0610, f1=0x41, f2=0x22} C1% 0x25
0x0014…01a4 [0x3f]: VarDef {f0=0xea9f, f1=0x1f, f2=0x22} FNC% 0x24
0x0014…01a4 [0x40]: VarDef {f0=0x02bd, f1=0x02, f2=0x56} W2$ 0x23
0x0014…01a4 [0x41]: VarDef {f0=0x02b8, f1=0x01, f2=0x56} W1$ 0x22
0x0014…01a4 [0x42]: VarDef {f0=0x02ae, f1=0x09, f2=0x50} Q9$ 0x21
0x0014…01a4 [0x43]: VarDef {f0=0x02a9, f1=0x0f, f2=0x52} S$ 0x20
0x0014…01a4 [0x44]: VarDef {f0=0x029f, f1=0x20, f2=0x52} S0$<2052> 0x1f
0x0014…01a4 [0x45]: VarDef {f0=0x029a, f1=0x00, f2=0x59} Z0$ 0x1e
0x0014…01a4 [0x46]: VarDef {f0=0x0295, f1=0x00, f2=0x4b} L0$ 0x1d
0x0014…01a4 [0x47]: VarDef {f0=0x0289, f1=0x00, f2=0x4f} P0$ 0x1c
0x0014…01a4 [0x48]: VarDef {f0=0x023f, f1=0x0f, f2=0x57} X$ 0x1b
0x0014…01a4 [0x49]: VarDef {f0=0x0000, f1=0x09, f2=0x2c} M9% 0x1a
0x0014…01a4 [0x4a]: VarDef {f0=0x0237, f1=0x00, f2=0x0c} M0 0x19
0x0014…01a4 [0x4b]: VarDef {f0=0x022f, f1=0x09, f2=0x16} W9 0x18
0x0014…01a4 [0x4c]: VarDef {f0=0x0227, f1=0x08, f2=0x16} W8 0x17
0x0014…01a4 [0x4d]: VarDef {f0=0x021f, f1=0x01, f2=0x07} H1 0x16
0x0014…01a4 [0x4e]: VarDef {f0=0x0217, f1=0x01, f2=0x0f} P1 0x15
0x0014…01a4 [0x4f]: VarDef {f0=0x020f, f1=0x01, f2=0x15} V1 0x14
0x0014…01a4 [0x50]: VarDef {f0=0x0207, f1=0x00, f2=0x15} V0 0x13
0x0014…01a4 [0x51]: VarDef {f0=0x01ff, f1=0x07, f2=0x18} Y7 0x12
0x0014…01a4 [0x52]: VarDef {f0=0x01f7, f1=0x07, f2=0x17} X7 0x11
0x0014…01a4 [0x53]: VarDef {f0=0x01ef, f1=0x00, f2=0x12} S0 0x10
0x0014…01a4 [0x54]: VarDef {f0=0x01ea, f1=0x0f, f2=0x56} W$ 0xf
0x0014…01a4 [0x55]: VarDef {f0=0x01be, f1=0x01, f2=0x98} Y1' 0xe
0x0014…01a4 [0x56]: VarDef {f0=0x0192, f1=0x01, f2=0x97} X1' 0xd
0x0014…01a4 [0x57]: VarDef {f0=0x0166, f1=0x0f, f2=0x90} Q' 0xc
0x0014…01a4 [0x58]: VarDef {f0=0x013a, f1=0x0f, f2=0x8f} P' 0xb
0x0014…01a4 [0x59]: VarDef {f0=0x00f0, f1=0x0f, f2=0x59} Z$ 0xa
0x0014…01a4 [0x5a]: VarDef {f0=0x00e4, f1=0x0f, f2=0x50} Q$ 0x9
0x0014…01a4 [0x5b]: VarDef {f0=0x00d8, f1=0x0f, f2=0x4f} P$ 0x8
0x0014…01a4 [0x5c]: VarDef {f0=0x0084, f1=0x09, f2=0x53} T9$ 0x7
0x0014…01a4 [0x5d]: VarDef {f0=0x006c, f1=0x03, f2=0x4d} N3$ 0x6
0x0014…01a4 [0x5e]: VarDef {f0=0x0054, f1=0x02, f2=0x4d} N2$ 0x5
0x0014…01a4 [0x5f]: VarDef {f0=0x003c, f1=0x01, f2=0x4d} N1$ 0x4
0x0014…01a4 [0x60]: VarDef {f0=0x0024, f1=0x0f, f2=0x53} T$ 0x3
0x0014…01a4 [0x61]: VarDef {f0=0x0018, f1=0x01, f2=0x53} T1$ 0x2
0x0014…01a4 [0x62]: VarDef {f0=0x000c, f1=0x00, f2=0x53} T0$ 0x1
0x0014…01a4 [0x63]: VarDef {f0=0x0000, f1=0x0f, f2=0x41} B$ 0x0
0x0014…01a4 ]
0x01a4…01a8 Statement 39321 @0x3078
0x01a8…01ac Statement 38480 @0x3076
0x01ac…01b0 Statement 38432 @0x306a
0x01b0…01b4 Statement 38400 @0x3038
0x01b4…01b8 Statement 38224 @0x3036
0x01b8…01bc Statement 38192 @0x3030
0x01bc…01c0 Statement 38181 @0x3009
0x01c0…01c4 Statement 38176 @0x2fe1
0x01c4…01c8 Statement 38165 @0x2fcc
0x01c8…01cc Statement 38160 @0x2fbf
0x01cc…01d0 Statement 38149 @0x2fb3
0x01d0…01d4 Statement 38144 @0x2f84
0x01d4…01d8 Statement 34896 @0x2f82
0x01d8…01dc Statement 34885 @0x2f69
0x01dc…01e0 Statement 34880 @0x2f63
0x01e0…01e4 Statement 34864 @0x2f4f
0x01e4…01e8 Statement 34848 @0x2f3e
0x01e8…01ec Statement 34832 @0x2f2a
0x01ec…01f0 Statement 34816 @0x2f17
0x01f0…01f4 Statement 34704 @0x2f03
0x01f4…01f8 Statement 34688 @0x2ef2
0x01f8…01fc Statement 34672 @0x2ede
0x01fc…0200 Statement 34656 @0x2ecb
0x0200…0204 Statement 34640 @0x2eb7
0x0204…0208 Statement 34624 @0x2ea6
0x0208…020c Statement 34608 @0x2e92
0x020c…0210 Statement 34592 @0x2e7f
0x0210…0214 Statement 34576 @0x2e6b
0x0214…0218 Statement 34560 @0x2e5a
0x0218…021c Statement 34448 @0x2e46
0x021c…0220 Statement 34432 @0x2e2f
0x0220…0224 Statement 34416 @0x2e18
0x0224…0228 Statement 34400 @0x2e04
0x0228…022c Statement 34384 @0x2df3
0x022c…0230 Statement 34368 @0x2ddd
0x0230…0234 Statement 34352 @0x2dc7
0x0234…0238 Statement 34336 @0x2db4
0x0238…023c Statement 34320 @0x2da0
0x023c…0240 Statement 34304 @0x2d8f
0x0240…0244 Statement 34192 @0x2d7b
0x0244…0248 Statement 34176 @0x2d68
0x0248…024c Statement 34160 @0x2d65
0x024c…0250 Statement 34144 @0x2d51
0x0250…0254 Statement 34128 @0x2d40
0x0254…0258 Statement 34112 @0x2d2a
0x0258…025c Statement 34096 @0x2d14
0x025c…0260 Statement 34080 @0x2d01
0x0260…0264 Statement 34064 @0x2cfb
0x0264…0268 Statement 33936 @0x2ce7
0x0268…026c Statement 33920 @0x2cd6
0x026c…0270 Statement 33904 @0x2cc2
0x0270…0274 Statement 33888 @0x2caf
0x0274…0278 Statement 33872 @0x2c9b
0x0278…027c Statement 33856 @0x2c8a
0x027c…0280 Statement 33840 @0x2c74
0x0280…0284 Statement 33824 @0x2c5e
0x0284…0288 Statement 33808 @0x2c4b
0x0288…028c Statement 33792 @0x2c37
0x028c…0290 Statement 33680 @0x2c26
0x0290…0294 Statement 33664 @0x2c12
0x0294…0298 Statement 33648 @0x2bff
0x0298…029c Statement 33616 @0x2bfc
0x029c…02a0 Statement 33600 @0x2be8
0x02a0…02a4 Statement 33584 @0x2bd7
0x02a4…02a8 Statement 33568 @0x2bc1
0x02a8…02ac Statement 33552 @0x2bab
0x02ac…02b0 Statement 33536 @0x2b98
0x02b0…02b4 Statement 33424 @0x2b92
0x02b4…02b8 Statement 33408 @0x2b7e
0x02b8…02bc Statement 33392 @0x2b6d
0x02bc…02c0 Statement 33376 @0x2b59
0x02c0…02c4 Statement 33360 @0x2b42
0x02c4…02c8 Statement 33312 @0x2b2b
0x02c8…02cc Statement 33301 @0x2b1b
0x02cc…02d0 Statement 33298 @0x2afb
0x02d0…02d4 Statement 33296 @0x2ad9
0x02d4…02d8 Statement 33288 @0x2ad8
0x02d8…02dc Statement 33287 @0x2ad6
0x02dc…02e0 Statement 33286 @0x2aae
0x02e0…02e4 Statement 33284 @0x2aa6
0x02e4…02e8 Statement 33282 @0x2a9a
0x02e8…02ec Statement 33281 @0x2a96
0x02ec…02f0 Statement 33280 @0x2a5e
0x02f0…02f4 Statement 33177 @0x2a5c
0x02f4…02f8 Statement 33176 @0x2a43
0x02f8…02fc Statement 33174 @0x2a42
0x02fc…0300 Statement 33173 @0x2a31
0x0300…0304 Statement 33172 @0x2a30
0x0304…0308 Statement 33170 @0x2a19
0x0308…030c Statement 33168 @0x2a02
0x030c…0310 Statement 33157 @0x29ff
0x0310…0314 Statement 33152 @0x29fe
0x0314…0318 Statement 33141 @0x29e7
0x0318…031c Statement 33136 @0x29d0
0x031c…0320 Statement 33125 @0x29c9
0x0320…0324 Statement 33120 @0x29c0
0x0324…0328 Statement 33109 @0x2990
0x0328…032c Statement 33106 @0x298e
0x032c…0330 Statement 33104 @0x297f
0x0330…0334 Statement 33088 @0x2944
0x0334…0338 Statement 33077 @0x2942
0x0338…033c Statement 33072 @0x2941
0x033c…0340 Statement 33064 @0x291b
0x0340…0344 Statement 33061 @0x290e
0x0344…0348 Statement 33058 @0x2905
0x0348…034c Statement 33057 @0x2903
0x034c…0350 Statement 33056 @0x28d3
0x0350…0354 Statement 33045 @0x28cb
0x0354…0358 Statement 33040 @0x289b
0x0358…035c Statement 33029 @0x288f
0x035c…0360 Statement 33024 @0x2864
0x0360…0364 Statement 32848 @0x2862
0x0364…0368 Statement 32800 @0x285f
0x0368…036c Statement 32789 @0x2846
0x036c…0370 Statement 32784 @0x2840
0x0370…0374 Statement 32773 @0x2827
0x0374…0378 Statement 32768 @0x27f3
0x0378…037c Statement 18480 @0x27f1
0x037c…0380 Statement 18469 @0x27d8
0x0380…0384 Statement 18464 @0x27d2
0x0384…0388 Statement 18448 @0x27d1
0x0388…038c Statement 18432 @0x27ce
0x038c…0390 Statement 18320 @0x27c4
0x0390…0394 Statement 18304 @0x27c0
0x0394…0398 Statement 18288 @0x2799
0x0398…039c Statement 18272 @0x2771
0x039c…03a0 Statement 18256 @0x276b
0x03a0…03a4 Statement 18240 @0x275a
0x03a4…03a8 Statement 18224 @0x2749
0x03a8…03ac Statement 18208 @0x273b
0x03ac…03b0 Statement 18192 @0x272f
0x03b0…03b4 Statement 18176 @0x2723
0x03b4…03b8 Statement 18064 @0x271d
0x03b8…03bc Statement 18048 @0x271c
0x03bc…03c0 Statement 18032 @0x270e
0x03c0…03c4 Statement 18016 @0x2704
0x03c4…03c8 Statement 18000 @0x26ef
0x03c8…03cc Statement 17984 @0x26b2
0x03cc…03d0 Statement 17968 @0x267a
0x03d0…03d4 Statement 17952 @0x2676
0x03d4…03d8 Statement 17936 @0x2661
0x03d8…03dc Statement 17920 @0x2624
0x03dc…03e0 Statement 17808 @0x25ec
0x03e0…03e4 Statement 17792 @0x25e6
0x03e4…03e8 Statement 17776 @0x25de
0x03e8…03ec Statement 17760 @0x25bd
0x03ec…03f0 Statement 17744 @0x259d
0x03f0…03f4 Statement 17728 @0x259a
0x03f4…03f8 Statement 17712 @0x2590
0x03f8…03fc Statement 17696 @0x258a
0x03fc…0400 Statement 17680 @0x2589
0x0400…0404 Statement 17664 @0x2586
0x0404…0408 Statement 17552 @0x257c
0x0408…040c Statement 17536 @0x2578
0x040c…0410 Statement 17520 @0x2551
0x0410…0414 Statement 17504 @0x2529
0x0414…0418 Statement 17488 @0x2523
0x0418…041c Statement 17472 @0x2512
0x041c…0420 Statement 17456 @0x24fe
0x0420…0424 Statement 17440 @0x24fb
0x0424…0428 Statement 17424 @0x24fa
0x0428…042c Statement 17408 @0x24e9
0x042c…0430 Statement 17296 @0x24d8
0x0430…0434 Statement 17280 @0x24d0
0x0434…0438 Statement 17264 @0x24c3
0x0438…043c Statement 17248 @0x2486
0x043c…0440 Statement 17232 @0x244e
0x0440…0444 Statement 17216 @0x244a
0x0444…0448 Statement 17200 @0x2439
0x0448…044c Statement 17184 @0x23fc
0x044c…0450 Statement 17168 @0x23c4
0x0450…0454 Statement 17152 @0x23b6
0x0454…0458 Statement 17040 @0x23b0
0x0458…045c Statement 17024 @0x23af
0x045c…0460 Statement 17008 @0x23a3
0x0460…0464 Statement 16992 @0x239d
0x0464…0468 Statement 16976 @0x239a
0x0468…046c Statement 16960 @0x2390
0x046c…0470 Statement 16944 @0x236d
0x0470…0474 Statement 16928 @0x235f
0x0474…0478 Statement 16912 @0x2359
0x0478…047c Statement 16896 @0x2352
0x047c…0480 Statement 16784 @0x2346
0x0480…0484 Statement 16768 @0x232c
0x0484…0488 Statement 16752 @0x2319
0x0488…048c Statement 16736 @0x230d
0x048c…0490 Statement 16720 @0x2307
0x0490…0494 Statement 16704 @0x22f2
0x0494…0498 Statement 16688 @0x22da
0x0498…049c Statement 16672 @0x22c5
0x049c…04a0 Statement 16656 @0x22ad
0x04a0…04a4 Statement 16645 @0x229d
0x04a4…04a8 Statement 16640 @0x2286
0x04a8…04ac Statement 16533 @0x2278
0x04ac…04b0 Statement 16528 @0x2277
0x04b0…04b4 Statement 16512 @0x2263
0x04b4…04b8 Statement 16496 @0x2249
0x04b8…04bc Statement 16485 @0x222d
0x04bc…04c0 Statement 16480 @0x2226
0x04c0…04c4 Statement 16384 @0x2223
0x04c4…04c8 Statement 14736 @0x2214
0x04c8…04cc Statement 14725 @0x2205
0x04cc…04d0 Statement 14720 @0x21f9
0x04d0…04d4 Statement 14709 @0x21f1
0x04d4…04d8 Statement 14704 @0x21eb
0x04d8…04dc Statement 14664 @0x21e4
0x04dc…04e0 Statement 14662 @0x21d6
0x04e0…04e4 Statement 14660 @0x21ca
0x04e4…04e8 Statement 14658 @0x21bb
0x04e8…04ec Statement 14656 @0x21b7
0x04ec…04f0 Statement 14648 @0x2197
0x04f0…04f4 Statement 14646 @0x2195
0x04f4…04f8 Statement 14645 @0x2194
0x04f8…04fc Statement 14640 @0x2186
0x04fc…0500 Statement 14624 @0x2150
0x0500…0504 Statement 14613 @0x214e
0x0504…0508 Statement 14480 @0x2142
0x0508…050c Statement 14469 @0x213b
0x050c…0510 Statement 14464 @0x2131
0x0510…0514 Statement 14448 @0x20f3
0x0514…0518 Statement 14432 @0x20ef
0x0518…051c Statement 14416 @0x20e9
0x051c…0520 Statement 14400 @0x20e8
0x0520…0524 Statement 14384 @0x20e6
0x0524…0528 Statement 14373 @0x20bd
0x0528…052c Statement 14368 @0x20b5
0x052c…0530 Statement 14352 @0x20a9
0x0530…0534 Statement 14336 @0x207b
0x0534…0538 Statement 14229 @0x2079
0x0538…053c Statement 14144 @0x2060
0x053c…0540 Statement 14128 @0x205a
0x0540…0544 Statement 14112 @0x2057
0x0544…0548 Statement 14101 @0x203b
0x0548…054c Statement 14096 @0x2038
0x054c…0550 Statement 14080 @0x201b
0x0550…0554 Statement 13968 @0x2015
0x0554…0558 Statement 13904 @0x2011
0x0558…055c Statement 13893 @0x1ff1
0x055c…0560 Statement 13888 @0x1fdc
0x0560…0564 Statement 13877 @0x1fdb
0x0564…0568 Statement 13872 @0x1fd9
0x0568…056c Statement 13861 @0x1fbe
0x056c…0570 Statement 13856 @0x1fa1
0x0570…0574 Statement 13845 @0x1f99
0x0574…0578 Statement 13840 @0x1f8d
0x0578…057c Statement 13824 @0x1f64
0x057c…0580 Statement 13680 @0x1f62
0x0580…0584 Statement 13632 @0x1f5f
0x0584…0588 Statement 13621 @0x1f59
0x0588…058c Statement 13616 @0x1f53
0x058c…0590 Statement 13607 @0x1f2f
0x0590…0594 Statement 13605 @0x1f15
0x0594…0598 Statement 13600 @0x1f0c
0x0598…059c Statement 13589 @0x1f08
0x059c…05a0 Statement 13573 @0x1ef4
0x05a0…05a4 Statement 13570 @0x1ee8
0x05a4…05a8 Statement 13568 @0x1ede
0x05a8…05ac Statement 13461 @0x1ed8
0x05ac…05b0 Statement 13456 @0x1ecf
0x05b0…05b4 Statement 13440 @0x1ebb
0x05b4…05b8 Statement 13429 @0x1eaf
0x05b8…05bc Statement 13424 @0x1e9e
0x05bc…05c0 Statement 13408 @0x1e9a
0x05c0…05c4 Statement 13397 @0x1e93
0x05c4…05c8 Statement 13394 @0x1e8d
0x05c8…05cc Statement 13392 @0x1e79
0x05cc…05d0 Statement 13381 @0x1e45
0x05d0…05d4 Statement 13380 @0x1e44
0x05d4…05d8 Statement 13379 @0x1e42
0x05d8…05dc Statement 13378 @0x1e2f
0x05dc…05e0 Statement 13377 @0x1e22
0x05e0…05e4 Statement 13376 @0x1dfc
0x05e4…05e8 Statement 13368 @0x1dd3
0x05e8…05ec Statement 13366 @0x1dc7
0x05ec…05f0 Statement 13365 @0x1da0
0x05f0…05f4 Statement 13360 @0x1d9e
0x05f4…05f8 Statement 13088 @0x1d98
0x05f8…05fc Statement 13077 @0x1d93
0x05fc…0600 Statement 13072 @0x1d7f
0x0600…0604 Statement 13061 @0x1d79
0x0604…0608 Statement 13056 @0x1d76
0x0608…060c Statement 12949 @0x1d6f
0x060c…0610 Statement 12944 @0x1d6e
0x0610…0614 Statement 12933 @0x1d67
0x0614…0618 Statement 12928 @0x1d61
0x0618…061c Statement 12917 @0x1d5b
0x061c…0620 Statement 12912 @0x1d4a
0x0620…0624 Statement 12901 @0x1d36
0x0624…0628 Statement 12896 @0x1d29
0x0628…062c Statement 12885 @0x1d1f
0x062c…0630 Statement 12880 @0x1d17
0x0630…0634 Statement 12869 @0x1d10
0x0634…0638 Statement 12864 @0x1d07
0x0638…063c Statement 12853 @0x1d01
0x063c…0640 Statement 12848 @0x1cfb
0x0640…0644 Statement 12837 @0x1cea
0x0644…0648 Statement 12832 @0x1ce2
0x0648…064c Statement 12821 @0x1cdd
0x064c…0650 Statement 12816 @0x1cd8
0x0650…0654 Statement 12806 @0x1cb1
0x0654…0658 Statement 12805 @0x1c98
0x0658…065c Statement 12804 @0x1c92
0x065c…0660 Statement 12802 @0x1c8f
0x0660…0664 Statement 12800 @0x1c7f
0x0664…0668 Statement 12697 @0x1c7e
0x0668…066c Statement 12696 @0x1c7c
0x066c…0670 Statement 12692 @0x1c4c
0x0670…0674 Statement 12691 @0x1c44
0x0674…0678 Statement 12690 @0x1c38
0x0678…067c Statement 12688 @0x1c07
0x067c…0680 Statement 12677 @0x1c05
0x0680…0684 Statement 12672 @0x1c04
0x0684…0688 Statement 12661 @0x1c01
0x0688…068c Statement 12640 @0x1be5
0x068c…0690 Statement 12631 @0x1be3
0x0690…0694 Statement 12629 @0x1bdb
0x0694…0698 Statement 12624 @0x1bc9
0x0698…069c Statement 12615 @0x1bc1
0x069c…06a0 Statement 12613 @0x1b9c
0x06a0…06a4 Statement 12608 @0x1b99
0x06a4…06a8 Statement 12599 @0x1b97
0x06a8…06ac Statement 12597 @0x1b93
0x06ac…06b0 Statement 12594 @0x1b87
0x06b0…06b4 Statement 12592 @0x1b61
0x06b4…06b8 Statement 12581 @0x1b5f
0x06b8…06bc Statement 12578 @0x1b57
0x06bc…06c0 Statement 12576 @0x1b56
0x06c0…06c4 Statement 12565 @0x1b53
0x06c4…06c8 Statement 12544 @0x1b2c
0x06c8…06cc Statement 12437 @0x1b2a
0x06cc…06d0 Statement 12432 @0x1b22
0x06d0…06d4 Statement 12421 @0x1b09
0x06d4…06d8 Statement 12418 @0x1b01
0x06d8…06dc Statement 12416 @0x1ad8
0x06dc…06e0 Statement 12405 @0x1ad6
0x06e0…06e4 Statement 12400 @0x1ad0
0x06e4…06e8 Statement 12368 @0x1aca
0x06e8…06ec Statement 12357 @0x1abe
0x06ec…06f0 Statement 12352 @0x1a8c
0x06f0…06f4 Statement 12293 @0x1a89
0x06f4…06f8 Statement 12292 @0x1a7f
0x06f8…06fc Statement 12288 @0x1a75
0x06fc…0700 Statement 10645 @0x1a6b
0x0700…0704 Statement 10640 @0x1a61
0x0704…0708 Statement 10624 @0x1a57
0x0708…070c Statement 10608 @0x1a4d
0x070c…0710 Statement 10592 @0x1a43
0x0710…0714 Statement 10576 @0x1a39
0x0714…0718 Statement 10560 @0x1a2f
0x0718…071c Statement 10544 @0x1a25
0x071c…0720 Statement 10528 @0x1a1c
0x0720…0724 Statement 10517 @0x1a14
0x0724…0728 Statement 10512 @0x1a03
0x0728…072c Statement 10368 @0x19ee
0x072c…0730 Statement 10357 @0x19e6
0x0730…0734 Statement 10352 @0x19da
0x0734…0738 Statement 10341 @0x19b6
0x0738…073c Statement 10336 @0x197e
0x073c…0740 Statement 10328 @0x197b
0x0740…0744 Statement 10325 @0x196f
0x0744…0748 Statement 10324 @0x195f
0x0748…074c Statement 10322 @0x195b
0x074c…0750 Statement 10320 @0x1935
0x0750…0754 Statement 10240 @0x1934
0x0754…0758 Statement 10128 @0x1931
0x0758…075c Statement 10037 @0x1914
0x075c…0760 Statement 10032 @0x18f1
0x0760…0764 Statement 10021 @0x18ce
0x0764…0768 Statement 10016 @0x18ab
0x0768…076c Statement 10005 @0x1888
0x076c…0770 Statement 09989 @0x1857
0x0770…0774 Statement 09984 @0x1851
0x0774…0778 Statement 09877 @0x1850
0x0778…077c Statement 09872 @0x184d
0x077c…0780 Statement 09776 @0x184a
0x0780…0784 Statement 09765 @0x182d
0x0784…0788 Statement 09760 @0x1810
0x0788…078c Statement 09749 @0x17e7
0x078c…0790 Statement 09744 @0x17be
0x0790…0794 Statement 09733 @0x1789
0x0794…0798 Statement 09728 @0x1785
0x0798…079c Statement 09621 @0x1753
0x079c…07a0 Statement 09600 @0x1752
0x07a0…07a4 Statement 09589 @0x174f
0x07a4…07a8 Statement 09296 @0x173c
0x07a8…07ac Statement 09285 @0x1723
0x07ac…07b0 Statement 09284 @0x1712
0x07b0…07b4 Statement 09282 @0x16fd
0x07b4…07b8 Statement 09280 @0x16ea
0x07b8…07bc Statement 09273 @0x16d1
0x07bc…07c0 Statement 09272 @0x16c0
0x07c0…07c4 Statement 09264 @0x16ab
0x07c4…07c8 Statement 09253 @0x16a5
0x07c8…07cc Statement 09248 @0x1692
0x07cc…07d0 Statement 09240 @0x1673
0x07d0…07d4 Statement 09237 @0x165e
0x07d4…07d8 Statement 09235 @0x164d
0x07d8…07dc Statement 09234 @0x1638
0x07dc…07e0 Statement 09232 @0x1625
0x07e0…07e4 Statement 09224 @0x1606
0x07e4…07e8 Statement 09223 @0x15f1
0x07e8…07ec Statement 09222 @0x15e0
0x07ec…07f0 Statement 09221 @0x15cb
0x07f0…07f4 Statement 09218 @0x15c0
0x07f4…07f8 Statement 09217 @0x15b0
0x07f8…07fc Statement 09216 @0x15ac
0x07fc…0800 Statement 09109 @0x156d
0x0800…0804 Statement 04485 @0x156c
0x0804…0808 Statement 04480 @0x1569
0x0808…080c Statement 04469 @0x1558
0x080c…0810 Statement 04464 @0x152f
0x0810…0814 Statement 04453 @0x151e
0x0814…0818 Statement 04448 @0x1516
0x0818…081c Statement 04437 @0x14e1
0x081c…0820 Statement 04149 @0x14e0
0x0820…0824 Statement 04148 @0x14dd
0x0824…0828 Statement 04133 @0x14cd
0x0828…082c Statement 04128 @0x14bd
0x082c…0830 Statement 04117 @0x14a9
0x0830…0834 Statement 04112 @0x1495
0x0834…0838 Statement 04101 @0x148d
0x0838…083c Statement 04096 @0x146a
0x083c…0840 Statement 02405 @0x143a
0x0840…0844 Statement 02400 @0x1425
0x0844…0848 Statement 02160 @0x1424
0x0848…084c Statement 02149 @0x1421
0x084c…0850 Statement 02096 @0x13e7
0x0850…0854 Statement 02068 @0x13da
0x0854…0858 Statement 02064 @0x13cc
0x0858…085c Statement 02056 @0x13bb
0x085c…0860 Statement 02053 @0x13b0
0x0860…0864 Statement 02048 @0x13a3
0x0864…0868 Statement 01941 @0x1371
0x0868…086c Statement 01925 @0x1370
0x086c…0870 Statement 01920 @0x136d
0x0870…0874 Statement 01909 @0x134d
0x0874…0878 Statement 01877 @0x133f
0x0878…087c Statement 01872 @0x1336
0x087c…0880 Statement 01861 @0x1304
0x0880…0884 Statement 01856 @0x1303
0x0884…0888 Statement 01845 @0x12ee
0x0888…088c Statement 01824 @0x12e4
0x088c…0890 Statement 01813 @0x12d6
0x0890…0894 Statement 01808 @0x12d0
0x0894…0898 Statement 01797 @0x129a
0x0898…089c Statement 01792 @0x1299
0x089c…08a0 Statement 01680 @0x128c
0x08a0…08a4 Statement 01574 @0x127f
0x08a4…08a8 Statement 01573 @0x1272
0x08a8…08ac Statement 01570 @0x1265
0x08ac…08b0 Statement 01569 @0x1258
0x08b0…08b4 Statement 01568 @0x1230
0x08b4…08b8 Statement 01557 @0x1208
0x08b8…08bc Statement 01552 @0x11e0
0x08bc…08c0 Statement 01541 @0x11b8
0x08c0…08c4 Statement 01536 @0x11b2
0x08c4…08c8 Statement 01429 @0x118a
0x08c8…08cc Statement 01424 @0x116a
0x08cc…08d0 Statement 01413 @0x1169
0x08d0…08d4 Statement 01408 @0x1166
0x08d4…08d8 Statement 01397 @0x1154
0x08d8…08dc Statement 01392 @0x114d
0x08dc…08e0 Statement 01381 @0x1144
0x08e0…08e4 Statement 01376 @0x1143
0x08e4…08e8 Statement 01365 @0x1140
0x08e8…08ec Statement 01360 @0x112e
0x08ec…08f0 Statement 01349 @0x1127
0x08f0…08f4 Statement 01344 @0x111e
0x08f4…08f8 Statement 01333 @0x110a
0x08f8…08fc Statement 01328 @0x10f6
0x08fc…0900 Statement 01317 @0x10e2
0x0900…0904 Statement 01312 @0x10b4
0x0904…0908 Statement 01301 @0x10b3
0x0908…090c Statement 01300 @0x10af
0x090c…0910 Statement 01298 @0x10a1
0x0910…0914 Statement 01296 @0x107a
0x0914…0918 Statement 01288 @0x106e
0x0918…091c Statement 01286 @0x106a
0x091c…0920 Statement 01284 @0x1064
0x0920…0924 Statement 01176 @0x1054
0x0924…0928 Statement 01173 @0x1048
0x0928…092c Statement 01170 @0x1027
0x092c…0930 Statement 01169 @0x101b
0x0930…0934 Statement 01168 @0x1001
0x0934…0938 Statement 01157 @0xff5
0x0938…093c Statement 01141 @0xfc7
0x093c…0940 Statement 01136 @0xfbb
0x0940…0944 Statement 01125 @0xf96
0x0944…0948 Statement 01120 @0xf8a
0x0948…094c Statement 01109 @0xf5a
0x094c…0950 Statement 01104 @0xf4e
0x0950…0954 Statement 01093 @0xf22
0x0954…0958 Statement 01088 @0xf16
0x0958…095c Statement 01077 @0xeef
0x095c…0960 Statement 01072 @0xee3
0x0960…0964 Statement 01061 @0xec0
0x0964…0968 Statement 01056 @0xeb4
0x0968…096c Statement 01045 @0xe90
0x096c…0970 Statement 01040 @0xe84
0x0970…0974 Statement 01029 @0xe5d
0x0974…0978 Statement 01024 @0xe51
0x0978…097c Statement 00917 @0xe4f
0x097c…0980 Statement 00916 @0xe2b
0x0980…0984 Statement 00914 @0xe07
0x0984…0988 Statement 00913 @0xdd0
0x0988…098c Statement 00912 @0xdc4
0x098c…0990 Statement 00904 @0xdc2
0x0990…0994 Statement 00902 @0xdbe
0x0994…0998 Statement 00901 @0xd89
0x0998…099c Statement 00832 @0xd88
0x099c…09a0 Statement 00805 @0xd85
0x09a0…09a4 Statement 00789 @0xd60
0x09a4…09a8 Statement 00786 @0xd5e
0x09a8…09ac Statement 00784 @0xd5b
0x09ac…09b0 Statement 00773 @0xd55
0x09b0…09b4 Statement 00768 @0xd52
0x09b4…09b8 Statement 00640 @0xd41
0x09b8…09bc Statement 00629 @0xd3e
0x09bc…09c0 Statement 00624 @0xd2a
0x09c0…09c4 Statement 00613 @0xd16
0x09c4…09c8 Statement 00608 @0xd0c
0x09c8…09cc Statement 00597 @0xd06
0x09cc…09d0 Statement 00592 @0xcfb
0x09d0…09d4 Statement 00581 @0xcde
0x09d4…09d8 Statement 00576 @0xcd6
0x09d8…09dc Statement 00560 @0xcce
0x09dc…09e0 Statement 00549 @0xcca
0x09e0…09e4 Statement 00544 @0xcc7
0x09e4…09e8 Statement 00528 @0xc9c
0x09e8…09ec Statement 00336 @0xc9b
0x09ec…09f0 Statement 00325 @0xc98
0x09f0…09f4 Statement 00320 @0xc7d
0x09f4…09f8 Statement 00309 @0xc5d
0x09f8…09fc Statement 00304 @0xc48
0x09fc…0a00 Statement 00293 @0xc42
0x0a00…0a04 Statement 00288 @0xc14
0x0a04…0a08 Statement 00277 @0xbed
0x0a08…0a0c Statement 00272 @0xbbd
0x0a0c…0a10 Statement 00261 @0xba5
0x0a10…0a14 Statement 00256 @0xb82
0x0a14…0a18 Statement 00117 @0xb76
0x0a18…0a1c Statement 00112 @0xb71
0x0a1c…0a20 Statement 00102 @0xb64
0x0a20…0a24 Statement 00086 @0xb57
0x0a24…0a28 Statement 00084 @0xb4a
0x0a28…0a2c Statement 00082 @0xb3d
0x0a2c…0a30 Statement 00080 @0xb30
0x0a30…0a34 Statement 00048 @0xb25
0x0a34…0a38 Statement 00037 @0xb16
0x0a38…0a3c Statement 00032 @0xb08
0x0a3c…0a40 Statement 00021 @0xafa
0x0a40…0a44 Statement 00016 @0xad7
0x0a44…0a48 Statement 00009 @0xad3
0x0a48…0a4c Statement 00008 @0xac2
0x0a4c…0a50 Statement 00007 @0xaa8
0x0a50…0a54 Statement 00006 @0xa92
0x0a54…0a58 Statement 00005 @0xa76
0x0a58…0a5c Statement 00001 @0xa5c
0x0a5c…0a76 0001 COM ELEMENT var(B$) ( 8 ) [] ELEMENT var(T0$) ( 8 ) [] ELEMENT var(T1$) ( 8 ) [] ELEMENT var(T$) ( 20 ) [] EOS
0x0a76…0a92 0005 COM ELEMENT var(N1$) ( 20 ) [] ELEMENT var(N2$) ( 20 ) [] ELEMENT var(N3$) ( 20 ) [] ELEMENT var(T9$) ( %80 ) [] EOS
0x0a92…0aa8 0006 COM ELEMENT var(P$) ( 8 ) [] ELEMENT var(Q$) ( 8 ) [] ELEMENT var(Z$) ( %70 ) [] EOS
0x0aa8…0ac2 0007 COM ELEMENT var(P') ( 5 ) [] ELEMENT var(Q') ( 5 ) [] ELEMENT var(X1') ( 5 ) [] ELEMENT var(Y1') ( 5 ) [] EOS
0x0ac2…0ad3 0008 COM ELEMENT var(W$) ( 1 ) [] var(S0) var(X7) var(Y7) var(V0) var(V1) var(P1) var(H1) var(W8) var(W9) EOS
0x0ad3…0ad7 0009 COM var(M0) var(M9%) EOS
0x0ad7…0afa 0010 DIM ELEMENT var(X$) ( %70 ) [] ELEMENT var(P0$) ( 8 ) [] ELEMENT var(L0$) ( 1 ) [] ELEMENT var(Z0$) ( 1 ) [] ELEMENT var(S0$<2052>) ( 2 1 ) [] EOS
0x0afa…0b08 0015 DIM ELEMENT var(S$) ( 1 ) [] ELEMENT var(Q9$) ( 6 ) [] EOS
0x0b08…0b16 0020 DIM ELEMENT var(W1$) ( 1 ) [] ELEMENT var(W2$) ( 1 ) [] EOS
0x0b16…0b25 0025 SYSTEM »LINELEN« COMMA %80 EOS
0x0b25…0b30 0030 SYSTEM »WARNOFF« EOS
0x0b30…0b3d 0050 LET var(S0) COMMA 20000 EOS
0x0b3d…0b4a 0052 LET var(X7) COMMA 2600 EOS
0x0b4a…0b57 0054 LET var(Y7) COMMA 2800 EOS
0x0b57…0b64 0056 LET var(V1) COMMA 270 EOS
0x0b64…0b71 0066 LET var(P1) COMMA 3.14159 EOS
0x0b71…0b76 0070 LET var(H1) COMMA 3 EOS
0x0b76…0b82 0075 LET var(Q9$) COMMA »000000« EOS
0x0b82…0ba5 0100 REM ****** SCREEN-HANDLER ********
0x0ba5…0bbd 0105 REM C1%=1 ERASE SCREEN
0x0bbd…0bed 0110 REM 2 CURSOR ADRESSING TO LINE C2%,POS C3%
0x0bed…0c14 0115 REM 3 ERASE LINE C2% FROM POS C3%
0x0c14…0c42 0120 REM 4 ERASE SCREEN FROM LINE C2% POS C3%
0x0c42…0c48 0125 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x0c48…0c5d 0130 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af71736f450074afe2f2f3
0x0c5d…0c7d 0135 PRINT = ( 27 ) → af71736f460074afe271731f67e274afe271731f68e274afe2f2f3
0x0c7d…0c98 0140 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → af71736f4e0066e374afe2f2f3
0x0c98…0c9b 0145 RETURN 1 EOS
0x0c9b…0c9c 0150 FNEND
0x0c9c…0cc7 0210 REM READ TOP OF SORTFILE *****************
0x0cc7…0cca 0220 DEF var(FNW%) EOS
0x0cca…0cce 0225 TRAP ERR 0305
0x0cce…0cd6 0230 LINPUT 1# COMMA 0 SEMI var(T9$) EOS
0x0cd6…0cde 0240 LINPUT 1# COMMA 1 SEMI var(X$) EOS
0x0cde…0cfb 0245 LET var(M0) COMMA = ( ELEMENT var(X$) ( 14 20 ) [] ) VAL COMMA var(V0) COMMA = ( ELEMENT var(X$) ( 1 13 ) [] ) VAL EOS
0x0cfb…0d06 0250 LET var(W$) COMMA ELEMENT var(X$) ( 21 21 ) [] EOS
0x0d06…0d0c 0255 196a01f105f3
0x0d0c…0d16 0260 LINPUT 1# COMMA var(I%) 1 PLUS SEMI var(X$) EOS
0x0d16…0d2a 0265 LET ELEMENT var(X1') ( var(I%) ) [] COMMA = ( ELEMENT var(X$) ( 32 43 ) [] ) VAL EOS
0x0d2a…0d3e 0270 LET ELEMENT var(Y1') ( var(I%) ) [] COMMA = ( ELEMENT var(X$) ( 20 31 ) [] ) VAL EOS
0x0d3e…0d41 0275 1a6af3
0x0d41…0d52 0280 LET var(W8) COMMA = ( var(V0) ) → a9f159f171735474a8f3
0x0d52…0d55 0300 RETURN 1 EOS
0x0d55…0d5b 0305 REM C
0x0d5b…0d5e 0310 TRAP ERR OFF
0x0d5e…0d60 0312 PRINT EOS
0x0d60…0d85 0315 PRINT »FEIL VED INPUT-FIL,KAN IKKE LESES« EOS
0x0d85…0d88 0325 RETURN 0 EOS
0x0d88…0d89 0340 FNEND
0x0d89…0dbe 0385 REM ********* DISPLAY AND ACCEPT MENU CHOICE *******
0x0dbe…0dc2 0386 DEF var(FNM9%) EOS
0x0dc2…0dc4 0388 PRINT EOS
0x0dc4…0dd0 0390 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x0dd0…0e07 0391 PRINT » M A P D A T P L O T T E G N E P R O G R A M« EOS
0x0e07…0e2b 0392 PRINT » *** SORTERT INPUTFIL : « SEMI var(N1$) EOS
0x0e2b…0e4f 0394 PRINT » *** PARAMETER-FIL : « SEMI var(N2$) EOS
0x0e4f…0e51 0395 PRINT EOS
0x0e51…0e5d 0400 LET var(X%) COMMA = ( 2 6 5 ) var(FNC%) EOS
0x0e5d…0e84 0405 PRINT »1 ==> ANGIVELSE AV SORTERT INPUTFIL« EOS
0x0e84…0e90 0410 LET var(X%) COMMA = ( 2 7 5 ) var(FNC%) EOS
0x0e90…0eb4 0415 PRINT »2 ==> ANGIVELSE AV PARAMETER-FIL« EOS
0x0eb4…0ec0 0420 LET var(X%) COMMA = ( 2 8 5 ) var(FNC%) EOS
0x0ec0…0ee3 0425 PRINT »3 ==> KONTROLL AV PARAMETER-FIL« EOS
0x0ee3…0eef 0430 LET var(X%) COMMA = ( 2 9 5 ) var(FNC%) EOS
0x0eef…0f16 0435 PRINT »4 ==> INITIALISERING AV SORTERT FIL« EOS
0x0f16…0f22 0440 LET var(X%) COMMA = ( 2 10 5 ) var(FNC%) EOS
0x0f22…0f4e 0445 PRINT »5 ==> TEGNING AV F0LGE- OG SKJAEREMERKER« EOS
0x0f4e…0f5a 0450 LET var(X%) COMMA = ( 2 11 5 ) var(FNC%) EOS
0x0f5a…0f8a 0455 PRINT »6 ==> SEKVENSIELL UTTEGNING AV SAMTLIGE TEMA« EOS
0x0f8a…0f96 0460 LET var(X%) COMMA = ( 2 12 5 ) var(FNC%) EOS
0x0f96…0fbb 0465 PRINT »7 ==> TEGNING AV SPESIFISERT TEMA« EOS
0x0fbb…0fc7 0470 LET var(X%) COMMA = ( 2 13 5 ) var(FNC%) EOS
0x0fc7…0ff5 0475 PRINT »8 ==> TEGNING AV RUTENETT (RUTENETTSKRYSS)« EOS
0x0ff5…1001 0485 LET var(X%) COMMA = ( 2 14 5 ) var(FNC%) EOS
0x1001…101b 0490 PRINT »9 ==> TEGNING AV RAMME« EOS
0x101b…1027 0491 LET var(X%) COMMA = ( 2 15 5 ) var(FNC%) EOS
0x1027…1048 0492 PRINT »10==> KOORDINATPAASKRIFT M.M.« EOS
0x1048…1054 0495 LET var(X%) COMMA = ( 2 16 5 ) var(FNC%) EOS
0x1054…1064 0498 PRINT »11==> UTGANG« EOS
0x1064…106a 0504 REM C
0x106a…106e 0506 TRAP ERR 0504
0x106e…107a 0508 LET var(X%) COMMA = ( 2 20 5 ) var(FNC%) EOS
0x107a…10a1 0510 INPUT »HVA SKAL GJ0RES ? GI KOMMANDO : « COMMA var(X%) EOS
0x10a1…10af 0512 IF var(X%) 1 ?< var(X%) 11 > OR COMMA 0 4 5
0x10af…10b3 0514 RETURN var(X%) EOS
0x10b3…10b4 0515 FNEND
0x10b4…10e2 0520 REM *********** COMPUTE INTERSECTION ********
0x10e2…10f6 0525 DEF var(FNS%) var(X1) var(Y1) var(X2) var(Y2) var(A1) var(B1) var(A2) var(B2) EOS
0x10f6…110a 0530 LET var(Q1) COMMA ( var(X2) var(X1) SUB2 ) ( var(Y2) var(Y1) SUB2 ) DIV EOS
0x110a…111e 0535 LET var(Q2) COMMA ( var(A2) var(A1) SUB2 ) ( var(B2) var(B1) SUB2 ) DIV EOS
0x111e…1127 0540 IF var(Y2) var(Y1) EQ COMMA 34 EOS
0x1127…112e 0545 LET var(Y5) COMMA var(Y1) EOS
0x112e…1140 0550 LET var(X5) COMMA var(A1) var(Q2) ( var(Y1) var(B1) SUB2 ) MULT PLUS EOS
0x1140…1143 0555 GOTO 0 6
0x1143…1144 0560 DOEND
0x1144…114d 0565 IF var(B2) var(B1) EQ COMMA 34 EOS
0x114d…1154 0570 LET var(Y5) COMMA var(B1) EOS
0x1154…1166 0575 LET var(X5) COMMA var(X1) var(Q1) ( var(Y1) var(B1) SUB2 ) MULT SUB2 EOS
0x1166…1169 0580 GOTO 0 6
0x1169…116a 0585 DOEND
0x116a…118a 0590 LET var(Y5) COMMA ( var(A1) var(X1) SUB2 var(Q2) var(B1) MULT SUB2 var(Q1) var(Y1) MULT PLUS ) ( var(Q1) var(Q2) SUB2 ) DIV EOS
0x118a…11b2 0595 LET var(X5) COMMA ( var(Q1) var(A1) MULT var(Q2) var(X1) MULT SUB2 var(Q1) var(Q2) MULT ( var(Y1) var(B1) SUB2 ) MULT PLUS ) ( var(Q1) var(Q2) SUB2 ) DIV EOS
0x11b2…11b8 0600 REM C
0x11b8…11e0 0605 LET var(A%) COMMA ( ( var(X2) var(X5) → eb74734003400ee974ed7473734003400eeb74734005400ee974ed74eef3
0x11e0…1208 0610 LET var(B%) COMMA ( ( var(Y2) var(Y5) → eb74734004400de974ed7473734004400deb74734006400de974ed74eef3
0x1208…1230 0615 LET var(C%) COMMA ( ( var(A2) var(X5) → eb74734007400ee974ed7473734007400eeb74734009400ee974ed74eef3
0x1230…1258 0620 LET var(D%) COMMA ( ( var(B2) var(Y5) → eb74734008400de974ed7473734008400deb7473400a400de974ed74eef3
0x1258…1265 0621 IF var(X1) var(X2) EQ COMMA 27 var(A%) COMMA 1 EOS
0x1265…1272 0622 IF var(Y1) var(Y2) EQ COMMA 27 var(B%) COMMA 1 EOS
0x1272…127f 0625 IF var(A2) var(A1) EQ COMMA 27 var(C%) COMMA 1 EOS
0x127f…128c 0626 IF var(B1) var(B2) EQ COMMA 27 var(D%) COMMA 1 EOS
0x128c…1299 0690 RETURN var(A%) var(B%) AND var(C%) AND var(D%) AND EOS
0x1299…129a 0700 FNEND
0x129a…12d0 0705 REM ********** VALUE TO STRING CONVERSION ***********
0x12d0…12d6 0710 DEF var(FNX$) var(X) EOS
0x12d6…12e4 0715 LET var(P$) COMMA = ( = ( var(X) ) → a174b0f3
0x12e4…12ee 0720 LET var(X%) COMMA = ( var(P$) ) LEN EOS
0x12ee…1303 0735 RETURN ELEMENT var(Q9$) ( 1 6 var(X%) SUB2 ) [] ELEMENT var(P$) ( 1 var(X%) ) [] PLUS EOS
0x1303…1304 0740 FNEND
0x1304…1336 0745 REM ************ PLOT COORDINATE ****************
0x1336…133f 0750 DEF var(FNP%) var(X1) var(Y1) var(S$) EOS
0x133f…134d 0755 LET var(X%) COMMA = ( var(X1) var(Y1) ) var(FNZ%) EOS
0x134d…136d 0775 PRINT 5# SEMI ELEMENT var(S$) ( 1 1 ) [] = ( var(Y3) ) var(FNX$) PLUS »,« PLUS = ( var(X3) ) var(FNX$) PLUS EOS
0x136d…1370 0780 RETURN 1 EOS
0x1370…1371 0785 FNEND
0x1371…13a3 0795 REM ********** OUTPUT STRING OR SYMBOL *********
0x13a3…13b0 0800 DEF var(FNX%) var(X) var(Y) var(H) var(V) var(X$) EOS
0x13b0…13bb 0805 LET var(V) COMMA var(V) %100 MULT EOS
0x13bb…13cc 0808 LET var(H) COMMA var(H) 3.333 MULT EOS
0x13cc…13da 0810 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x13da…13e7 0814 LET var(X) COMMA var(X3) COMMA var(Y) COMMA var(Y3) EOS
0x13e7…1421 0830 PRINT 5# SEMI »L« = ( var(V) ) var(FNX$) PLUS »,« PLUS = ( var(H) ) var(FNX$) PLUS »,« PLUS = ( var(Y) ) var(FNX$) PLUS »,« PLUS = ( var(X) ) var(FNX$) PLUS »,« PLUS var(X$) PLUS EOS
0x1421…1424 0865 RETURN 1 EOS
0x1424…1425 0870 FNEND
0x1425…143a 0960 REM COMPUTE DISTANCE
0x143a…146a 0965 DEF var(FND) var(X1) var(Y1) var(X2) var(Y2) 5 = ( ( var(X2) var(X1) SUB2 ) ( var(X2) var(X1) SUB2 ) MULT ( var(Y2) var(Y1) SUB2 ) ( var(Y2) var(Y1) SUB2 ) MULT PLUS ) SQR EOS
0x146a…148d 1000 REM ******* COMPUTE PLOTTING-UNITS
0x148d…1495 1005 DEF var(FNZ%) var(X) var(Y) EOS
0x1495…14a9 1010 LET var(Q1) COMMA var(S0) ( var(X) ELEMENT var(X1') ( 1 ) [] SUB2 ) MULT var(M0) DIV EOS
0x14a9…14bd 1015 LET var(Q2) COMMA var(S0) ( var(Y) ELEMENT var(Y1') ( 1 ) [] SUB2 ) MULT var(M0) DIV EOS
0x14bd…14cd 1020 LET var(X3) COMMA var(X7) var(Q1) var(W9) MULT PLUS var(Q2) var(W8) MULT SUB2 EOS
0x14cd…14dd 1025 LET var(Y3) COMMA var(Y7) var(Q2) var(W9) MULT PLUS var(Q1) var(W8) MULT PLUS EOS
0x14dd…14e0 1034 RETURN 1 EOS
0x14e0…14e1 1035 FNEND
0x14e1…1516 1155 REM ************** PLOT SINGLE POINT ***************
0x1516…151e 1160 DEF var(FNQ%) var(X) var(Y) EOS
0x151e…152f 1165 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x152f…1558 1170 LET var(X%) COMMA = ( var(X) 0.00015 var(M0) MULT PLUS var(Y) 0.00015 var(M0) MULT PLUS »D« ) var(FNP%) EOS
0x1558…1569 1175 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x1569…156c 1180 RETURN 1 EOS
0x156c…156d 1185 FNEND
0x156d…15ac 2395 REM ********* CORNEWR VALUES FOR STANDARD SYSTEM *************
0x15ac…15b0 2400 DEF var(FNW7%) EOS
0x15b0…15c0 2401 LET var(D) COMMA 0.015 var(M0) MULT EOS
0x15c0…15cb 2402 LET var(H) COMMA 2 COMMA var(V) COMMA 0 EOS
0x15cb…15e0 2405 LET var(U9) COMMA ELEMENT var(X1') ( 2 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 2 ) [] EOS
0x15e0…15f1 2406 IF var(W$) »U« EQ COMMA 27 var(V9) COMMA var(V9) var(D) SUB2 EOS
0x15f1…1606 2407 LET var(X$) COMMA »X = « = ( ELEMENT var(X1') ( 2 ) [] ) → b0e2f3
0x1606…1625 2408 LET var(V9) COMMA var(V9) ( = ( var(X$) ) LEN 4 PLUS ) 2 MULT var(M0) MULT 1000 DIV SUB2 EOS
0x1625…1638 2410 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x1638…164d 2412 LET var(U9) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x164d…165e 2413 IF var(W$) »U« EQ COMMA 27 var(V9) COMMA var(V9) var(D) SUB2 EOS
0x165e…1673 2415 LET var(X$) COMMA »X = « = ( ELEMENT var(X1') ( 1 ) [] ) → b0e2f3
0x1673…1692 2418 LET var(V9) COMMA var(V9) ( = ( var(X$) ) LEN 4 PLUS ) 2 MULT var(M0) MULT 1000 DIV SUB2 EOS
0x1692…16a5 2420 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x16a5…16ab 2425 LET var(V) COMMA var(V1) EOS
0x16ab…16c0 2430 LET var(U9) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x16c0…16d1 2438 IF var(W$) »U« EQ COMMA 27 var(U9) COMMA var(U9) var(D) SUB2 EOS
0x16d1…16ea 2439 LET var(X$) COMMA » Y = « = ( ELEMENT var(Y1') ( 1 ) [] ) → b0e2f3
0x16ea…16fd 2440 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x16fd…1712 2442 LET var(U9) COMMA ELEMENT var(X1') ( 4 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 4 ) [] EOS
0x1712…1723 2444 IF var(W$) »U« EQ COMMA 27 var(U9) COMMA var(U9) var(D) SUB2 EOS
0x1723…173c 2445 LET var(X$) COMMA » Y = « = ( ELEMENT var(Y1') ( 4 ) [] ) → b0e2f3
0x173c…174f 2450 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x174f…1752 2575 RETURN 1 EOS
0x1752…1753 2580 FNEND
0x1753…1785 2595 REM ******** COMPUTE TEXTBOX ********************
0x1785…1789 2600 DEF var(FNW8%) EOS
0x1789…17be 2605 LET ELEMENT var(P') ( 3 ) [] COMMA ELEMENT var(X1') ( 2 ) [] var(M0) 0.0295 MULT SUB2 COMMA ELEMENT var(Q') ( 3 ) [] COMMA ELEMENT var(Y1') ( 2 ) [] var(M0) 0.022 MULT SUB2 EOS
0x17be…17e7 2610 LET ELEMENT var(P') ( 4 ) [] COMMA ELEMENT var(P') ( 3 ) [] var(M0) 0.1335 MULT SUB2 COMMA ELEMENT var(Q') ( 4 ) [] COMMA ELEMENT var(Q') ( 3 ) [] EOS
0x17e7…1810 2615 LET ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(P') ( 4 ) [] COMMA ELEMENT var(Q') ( 1 ) [] COMMA ELEMENT var(Q') ( 4 ) [] var(M0) 0.04 MULT SUB2 EOS
0x1810…182d 2620 LET ELEMENT var(P') ( 2 ) [] COMMA ELEMENT var(P') ( 3 ) [] COMMA ELEMENT var(Q') ( 2 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x182d…184a 2625 LET ELEMENT var(P') ( 5 ) [] COMMA ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(Q') ( 5 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x184a…184d 2630 GOSUB 0 → 80
0x184d…1850 2690 RETURN 1 EOS
0x1850…1851 2695 FNEND
0x1851…1857 2700 DEF var(FNW9%) var(Q) EOS
0x1857…1888 2705 REM *********** FRAME CORRECTION ***************
0x1888…18ab 2715 LET ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(P') ( 1 ) [] var(Q) SUB2 COMMA ELEMENT var(Q') ( 1 ) [] COMMA ELEMENT var(Q') ( 1 ) [] var(Q) SUB2 EOS
0x18ab…18ce 2720 LET ELEMENT var(P') ( 2 ) [] COMMA ELEMENT var(P') ( 2 ) [] var(Q) PLUS COMMA ELEMENT var(Q') ( 2 ) [] COMMA ELEMENT var(Q') ( 2 ) [] var(Q) SUB2 EOS
0x18ce…18f1 2725 LET ELEMENT var(P') ( 3 ) [] COMMA ELEMENT var(P') ( 3 ) [] var(Q) PLUS COMMA ELEMENT var(Q') ( 3 ) [] COMMA ELEMENT var(Q') ( 3 ) [] var(Q) PLUS EOS
0x18f1…1914 2730 LET ELEMENT var(P') ( 4 ) [] COMMA ELEMENT var(P') ( 4 ) [] var(Q) SUB2 COMMA ELEMENT var(Q') ( 4 ) [] COMMA ELEMENT var(Q') ( 4 ) [] var(Q) PLUS EOS
0x1914…1931 2735 LET ELEMENT var(P') ( 5 ) [] COMMA ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(Q') ( 5 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x1931…1934 2790 RETURN 1 EOS
0x1934…1935 2800 FNEND
0x1935…195b 2850 REM ******* MAIN PROGRAM ************
0x195b…195f 2852 TRAP ERR 2855
0x195f…196f 2854 IF var(M9%) 999 EQ COMMA 0 16 41
0x196f…197b 2855 LET var(X%) COMMA = ( 1 5 1 ) var(FNC%) EOS
0x197b…197e 2858 TRAP ERR OFF
0x197e…19b6 2860 PRINT »PLASSER PENNEN I 0NSKET ORIGO I NEDRE VENSTRE HJ0RNE« EOS
0x19b6…19da 2865 LINPUT »TRYKK DERETTER RETURN FOR MENY« COMMA var(X$) EOS
0x19da…19e6 2870 1605f27006245445524d33f3
0x19e6…19ee 2875 PRINT 5# SEMI »R« EOS
0x19ee…1a03 2880 LET var(T$) COMMA »« COMMA var(N1$) COMMA »« COMMA var(N2$) COMMA »« COMMA var(N3$) COMMA »« EOS
0x1a03…1a14 2910 REM NEXT COMMAND
0x1a14…1a1c 2915 LET var(X%) COMMA = var(FNM9%) EOS
0x1a1c…1a25 2920 IF var(X%) 1 EQ COMMA 1 var(A)
0x1a25…1a2f 2930 ELSE 3 var(X%) 2 EQ COMMA 1 48 49
0x1a2f…1a39 2940 ELSE 3 var(X%) 3 EQ COMMA 1 53 52
0x1a39…1a43 2950 ELSE 3 var(X%) 4 EQ COMMA 1 → 9031
0x1a43…1a4d 2960 ELSE 3 var(X%) 5 EQ COMMA 1 0 → 82
0x1a4d…1a57 2970 ELSE 3 var(X%) 6 EQ COMMA 1 0 → 95
0x1a57…1a61 2980 ELSE 3 var(X%) 7 EQ COMMA 0 16 41
0x1a61…1a6b 2990 ELSE 3 var(X%) 8 EQ COMMA 1 0 56
0x1a6b…1a75 2995 ELSE 3 var(X%) 9 EQ COMMA 1 0 54
0x1a75…1a7f 3000 ELSE 3 var(X%) 10 EQ COMMA 1 0 → 81
0x1a7f…1a89 3004 ELSE 3 var(X%) 11 EQ COMMA 0 0 → 96
0x1a89…1a8c 3005 GOTO 16 41
0x1a8c…1abe 3040 REM *** OPEN AND READ TOP OF SORT FILE ********
0x1abe…1aca 3045 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1aca…1ad0 3050 LET var(T$) COMMA »« EOS
0x1ad0…1ad6 3070 REM C
0x1ad6…1ad8 3075 PRINT EOS
0x1ad8…1b01 3080 INPUT »>OPPGI SORTERT FIL (RETURN=MENY) : « COMMA var(N1$) EOS
0x1b01…1b09 3082 IF var(N1$) »« EQ COMMA 5 EOS
0x1b09…1b22 3085 1601f245700e3b4143433d494e3b5245433d3532e2f14000f3
0x1b22…1b2a 3090 IF var(X%) 0 <> COMMA 34 EOS
0x1b2a…1b2c 3095 PRINT EOS
0x1b2c…1b53 3100 PRINT »ULOVLIG ELLER IKKE-EKSISTERENDE FIL« EOS
0x1b53…1b56 3115 GOTO »\x08\x03qi\xef\xf1\x00p0\x05\xf3\x0bp# **** OPEN PARAMETERFILE *********«
0x1b56…1b57 3120 DOEND
0x1b57…1b5f 3122 IF = var(FNW%) → eff1007030
0x1b5f…1b61 3125 RETURN EOS
0x1b61…1b87 3130 REM **** OPEN PARAMETERFILE *********
0x1b87…1b93 3132 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1b93…1b97 3135 REM
0x1b97…1b99 3137 PRINT EOS
0x1b99…1b9c 3140 1403f3
0x1b9c…1bc1 3145 INPUT »>GIVE NAME OF PARAMETER-FILE : « COMMA var(N2$) EOS
0x1bc1…1bc9 3147 IF var(N2$) »« EQ COMMA 5 EOS
0x1bc9…1bdb 3150 1603f24670073b4143433d494ee2f14000f3
0x1bdb…1be3 3155 IF var(X%) 0 <> COMMA 34 EOS
0x1be3…1be5 3157 PRINT EOS
0x1be5…1c01 3160 PRINT = ( 7 ) → aff270124e4f4e2d4558495354494e472046494c452ef3
0x1c01…1c04 3175 GOTO 53 49
0x1c04…1c05 3180 DOEND
0x1c05…1c07 3185 RETURN EOS
0x1c07…1c38 3190 REM ********** INITIALIZE INPUTFILES ***********
0x1c38…1c44 3192 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1c44…1c4c 3193 IF var(N1$) »« EQ COMMA 34 EOS
0x1c4c…1c7c 3194 LINPUT »SORTERT INPUTFIL IKKE OPPGITT.TRYKK RETURN« COMMA var(X$) EOS
0x1c7c…1c7e 3198 RETURN EOS
0x1c7e…1c7f 3199 DOEND
0x1c7f…1c8f 3200 LET var(T$) COMMA »TABELL.DTA« EOS
0x1c8f…1c92 3202 1402f3
0x1c92…1c98 3204 1e44f14000f3
0x1c98…1cb1 3205 1602f244700e3b5245433d31323b524c3d353132e2f14000f3
0x1cb1…1cd8 3206 PRINT »>INITIALISERING AV SORTERT INPUTFIL« EOS
0x1cd8…1cdd 3210 LET var(I%) COMMA 7 EOS
0x1cdd…1ce2 3215 LET var(J%) COMMA 0 EOS
0x1ce2…1cea 3220 LINPUT 1# COMMA var(I%) SEMI var(X$) EOS
0x1cea…1cfb 3225 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 12 19 ) [] EOS
0x1cfb…1d01 3230 LET var(I1%) COMMA var(I%) EOS
0x1d01…1d07 3235 LET var(I2%) COMMA var(I%) EOS
0x1d07…1d10 3240 REM CONT
0x1d10…1d17 3245 LET var(I%) COMMA var(I%) 1 PLUS EOS
0x1d17…1d1f 3250 LINPUT 1# COMMA var(I%) SEMI var(X$) EOS
0x1d1f…1d29 3255 IF = ( 1 ) → b1f1000533
0x1d29…1d36 3260 IF var(Q$) ELEMENT var(X$) ( 12 19 ) [] <> COMMA 34 EOS
0x1d36…1d4a 3265 13f402f16df2724a730108749ff14026f14027f3
0x1d4a…1d5b 3270 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 12 19 ) [] EOS
0x1d5b…1d61 3275 LET var(I1%) COMMA var(I%) EOS
0x1d61…1d67 3280 LET var(I2%) COMMA var(I%) EOS
0x1d67…1d6e 3285 LET var(J%) COMMA var(J%) 1 PLUS EOS
0x1d6e…1d6f 3290 DOEND
0x1d6f…1d76 3295 ELSE 27 var(I2%) COMMA var(I%) EOS
0x1d76…1d79 3300 GOTO var(E)
0x1d79…1d7f 3305 REM C
0x1d7f…1d93 3310 13f402f16df2724a730108749ff14026f14027f3
0x1d93…1d98 3315 PRINT 2# SEMI EOS
0x1d98…1d9e 3320 LET var(N2%) COMMA var(J%) EOS
0x1d9e…1da0 3430 RETURN EOS
0x1da0…1dc7 3435 REM ******* CHECK PAR.FIL ************
0x1dc7…1dd3 3436 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1dd3…1dfc 3438 IF var(T$) »« EQ COMMA 15 »INPUTFILEN ER IKKE INITIALISERT« EOS
0x1dfc…1e22 3440 IF var(N2$) »« EQ COMMA 15 »PARAMETERFIL ER IKKE OPPGITT« EOS
0x1e22…1e2f 3441 IF var(T$) »« EQ var(N2$) »« EQ OR COMMA 34 EOS
0x1e2f…1e42 3442 LINPUT »>TRYKK RETURN« COMMA var(X$) EOS
0x1e42…1e44 3443 RETURN EOS
0x1e44…1e45 3444 DOEND
0x1e45…1e79 3445 PRINT »>PARAMETER FILEN KONTROLLERES FOR MANGLENDE TEMA« EOS
0x1e79…1e8d 3450 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA »DUMMY-XX« EOS
0x1e8d…1e93 3452 LET var(F%) COMMA 1 EOS
0x1e93…1e9a 3455 196a00f14028f3
0x1e9a…1e9e 3460 RESTORE 3# EOS
0x1e9e…1eaf 3470 LET ELEMENT var(P$) ( 1 8 ) [] COMMA ELEMENT var(Q$) ( 1 8 ) [] EOS
0x1eaf…1ebb 3475 READ 2# COMMA var(I%) SEMI var(Q$) var(I1%) var(I2%) EOS
0x1ebb…1ecf 3480 IF ELEMENT var(Q$) ( 1 8 ) [] ELEMENT var(P$) ( 1 8 ) [] EQ COMMA 0 53 53
0x1ecf…1ed8 3490 REM CONT
0x1ed8…1ede 3495 LINPUT 3# SEMI var(X$) EOS
0x1ede…1ee8 3500 IF = ( 3 ) → b1f1002035
0x1ee8…1ef4 3502 IF = ( var(X$) ) LEN 0 EQ COMMA 0 32 53
0x1ef4…1f08 3505 IF ELEMENT var(Q$) ( 1 8 ) [] ELEMENT var(X$) ( 1 8 ) [] EQ COMMA 0 53 53
0x1f08…1f0c 3515 ELSE 0 → 9034
0x1f0c…1f15 3520 REM CONT
0x1f15…1f2f 3525 PRINT »>UKJENT TEMA-KODE : « COMMA var(Q$) EOS
0x1f2f…1f53 3527 LINPUT »>TRYKK RETURN FOR AA FORTSETTE« COMMA var(X$) EOS
0x1f53…1f59 3530 LET var(F%) COMMA 0 EOS
0x1f59…1f5f 3535 REM C
0x1f5f…1f62 3540 1a6af3
0x1f62…1f64 3570 RETURN EOS
0x1f64…1f8d 3600 REM *********** DRAW FRAME *************
0x1f8d…1f99 3610 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1f99…1fa1 3615 IF var(N1$) »« EQ COMMA 34 EOS
0x1fa1…1fbe 3620 PRINT »INPUT-FIL ER IKKE OPPGITT« EOS
0x1fbe…1fd9 3625 LINPUT »TRYKK RETURN FOR MENY« COMMA var(X$) EOS
0x1fd9…1fdb 3630 RETURN EOS
0x1fdb…1fdc 3635 DOEND
0x1fdc…1ff1 3640 PRINT »>TEGNING AV RAMME« EOS
0x1ff1…2011 3645 PRINT »>TRYKK ESCAPE FOR AA AVBRYTE« EOS
0x2011…2015 3650 TRAP ESC 3730
0x2015…201b 3690 196a01f105f3
0x201b…2038 3700 LET ELEMENT var(P') ( var(I%) ) [] COMMA ELEMENT var(X1') ( var(I%) ) [] COMMA ELEMENT var(Q') ( var(I%) ) [] COMMA ELEMENT var(Y1') ( var(I%) ) [] EOS
0x2038…203b 3710 1a6af3
0x203b…2057 3715 IF var(W$) »U« EQ COMMA 27 var(X%) COMMA = ( 0.015 var(M0) MULT ) var(FNW9%) EOS
0x2057…205a 3720 GOSUB 0 → 80
0x205a…2060 3730 REM C
0x2060…2079 3740 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x2079…207b 3795 RETURN EOS
0x207b…20a9 3800 REM ********** DRAW GRID OR GRIDCROSSES *****
0x20a9…20b5 3810 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x20b5…20bd 3820 IF var(N1$) »« EQ COMMA 34 EOS
0x20bd…20e6 3825 LINPUT »INPUT-FIL ER IKKE GITT.TRYKK RETURN« COMMA var(X$) EOS
0x20e6…20e8 3830 RETURN EOS
0x20e8…20e9 3840 DOEND
0x20e9…20ef 3850 REM C
0x20ef…20f3 3860 TRAP ERR 3850
0x20f3…2131 3870 LINPUT »GI ST0RRELSE PAA RUTENETTKRYSS I MM (0=HELTRUKKET NETT):« COMMA var(X$) EOS
0x2131…213b 3880 LET var(D9) COMMA = ( var(X$) ) VAL EOS
0x213b…2142 3885 LET var(W1$) COMMA »X« EOS
0x2142…214e 3890 IF var(D9) 0 <> var(V0) 0 EQ AND COMMA 34 EOS
0x214e…2150 3915 PRINT EOS
0x2150…2186 3920 LINPUT »>SKAL KRYSSENE LEGGES LANGS RAMMEKANTEN (J/N) : « COMMA var(W1$) EOS
0x2186…2194 3930 IF var(W1$) »J« <> COMMA 27 var(W1$) COMMA »R« EOS
0x2194…2195 3935 DOEND
0x2195…2197 3936 PRINT EOS
0x2197…21b7 3938 PRINT »>TRYKK ESCAPE FOR AA AVBRYTE« EOS
0x21b7…21bb 3940 TRAP ESC 4820
0x21bb…21ca 3942 IF var(V0) var(P1) 3 MULT 2 DIV > COMMA 27 var(K%) COMMA 3 EOS
0x21ca…21d6 3944 ELSE 3 var(V0) var(P1) > COMMA 27 var(K%) COMMA 2 EOS
0x21d6…21e4 3946 ELSE 3 var(V0) var(P1) 2 DIV > COMMA 27 var(K%) COMMA 1 EOS
0x21e4…21eb 3948 ELSE 27 var(K%) COMMA 0 EOS
0x21eb…21f1 3970 196a01f105f3
0x21f1…21f9 3975 LET var(J%) COMMA var(I%) var(K%) PLUS EOS
0x21f9…2205 3980 IF var(J%) 4 > COMMA 27 var(J%) COMMA var(J%) 4 SUB2 EOS
0x2205…2214 3985 LET ELEMENT var(P') ( var(I%) ) [] COMMA ELEMENT var(X1') ( var(J%) ) [] EOS
0x2214…2223 3990 LET ELEMENT var(Q') ( var(I%) ) [] COMMA ELEMENT var(Y1') ( var(J%) ) [] EOS
0x2223…2226 4000 1a6af3
0x2226…222d 4060 IF var(V0) 0 EQ COMMA 34 EOS
0x222d…2249 4065 IF var(W$) »U« EQ COMMA 27 var(X%) COMMA = ( 0.015 var(M0) MULT ) var(FNW9%) EOS
0x2249…2263 4070 IF var(W1$) »R« <> COMMA 27 var(X%) COMMA = ( 0.1 ) var(FNW9%) EOS
0x2263…2277 4080 ELSE 27 var(X%) COMMA = ( -0.1 ) var(FNW9%) EOS
0x2277…2278 4090 DOEND
0x2278…2286 4095 LET var(V2) COMMA var(V1) var(V0) %180 MULT var(P1) DIV SUB2 EOS
0x2286…229d 4100 IF var(V2) 0 ?< COMMA 27 var(V2) COMMA var(V2) 360 PLUS EOS
0x229d…22ad 4105 LET var(D) COMMA 0.1 var(M0) MULT EOS
0x22ad…22c5 4110 LET var(X) COMMA = ( ELEMENT var(P') ( 1 ) [] var(D) DIV ) → a14020e44020e2f3
0x22c5…22da 4120 IF var(X) ELEMENT var(P') ( 1 ) [] → e9f11b4014f140144020e2f3
0x22da…22f2 4130 LET var(Y) COMMA = ( ELEMENT var(Q') ( 2 ) [] var(D) DIV ) → a14020e44020e2f3
0x22f2…2307 4140 IF var(Y) ELEMENT var(Q') ( 2 ) [] → e9f11b401af1401a4020e2f3
0x2307…230d 4150 REM C
0x230d…2319 4160 IF var(V0) 0 EQ var(D9) 0 <> AND COMMA 34 EOS
0x2319…232c 4170 IF var(X) var(D) 2 DIV SUB2 ELEMENT var(P') ( 1 ) [] ?< COMMA 0 → 9042
0x232c…2346 4180 IF var(X) ELEMENT var(P') ( 1 ) [] SUB2 0.075 var(M0) MULT > COMMA 0 → 9042
0x2346…2352 4190 LET var(X) COMMA var(X) var(D) 2 DIV SUB2 EOS
0x2352…2359 4200 LET var(Z) COMMA var(Y) EOS
0x2359…235f 4210 REM C
0x235f…236d 4220 IF var(Z) ELEMENT var(Q') ( 4 ) [] > COMMA 0 var(S0$<2052>) var(T0$)
0x236d…2390 4230 LET var(X%) COMMA = ( var(X) var(Z) var(D9) 1.5 MULT var(V2) = ( %115 ) → af744019f3
0x2390…239a 4240 LET var(Z) COMMA var(Z) var(D) PLUS EOS
0x239a…239d 4250 GOTO 16 var(T0$)
0x239d…23a3 4260 REM C
0x23a3…23af 4270 LET var(X) COMMA var(X) var(D) 2 DIV PLUS EOS
0x23af…23b0 4280 DOEND
0x23b0…23b6 4290 REM C
0x23b6…23c4 4300 IF var(X) ELEMENT var(P') ( 3 ) [] → ebf1006045
0x23c4…23fc 4310 LET var(X%) COMMA = ( ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] ELEMENT var(P') ( 2 ) [] ELEMENT var(Q') ( 2 ) [] var(X) 8.88889e+08 var(X) -1e+09 ) var(FNS%) EOS
0x23fc…2439 4320 IF var(X%) → eff11b4000f17173724c7302749f724d7302749f724c7303749f724d7303749f40146e088888888800008940146e8999999999000089744002f3
0x2439…244a 4330 IF var(X%) COMMA 27 var(A) COMMA var(X5) COMMA var(B) COMMA var(Y5) EOS
0x244a…244e 4340 ELSE 0 32 var(N1$)
0x244e…2486 4350 LET var(X%) COMMA = ( ELEMENT var(P') ( 5 ) [] ELEMENT var(Q') ( 5 ) [] ELEMENT var(P') ( 4 ) [] ELEMENT var(Q') ( 4 ) [] var(X) 1e+08 var(X) -8.88889e+08 ) var(FNS%) EOS
0x2486…24c3 4360 IF var(X%) → eff11b4000f17173724c7304749f724d7304749f724c7303749f724d7303749f40146e088888888800008940146e8999999999000089744002f3
0x24c3…24d0 4370 LET var(E) COMMA var(X5) COMMA var(F) COMMA var(Y5) EOS
0x24d0…24d8 4380 IF var(D9) 0 EQ COMMA 34 EOS
0x24d8…24e9 4390 LET var(X%) COMMA = ( var(A) var(B) »U« ) var(FNP%) EOS
0x24e9…24fa 4400 LET var(X%) COMMA = ( var(E) var(F) »D« ) var(FNP%) EOS
0x24fa…24fb 4410 DOEND
0x24fb…24fe 4420 ELSE 34 EOS
0x24fe…2512 4430 LET var(Z) COMMA = ( var(B) var(D) DIV ) → a14020e44020e2f3
0x2512…2523 4440 IF var(Z) var(B) → e9f11b402ff1402f4020e2f3
0x2523…2529 4450 REM C
0x2529…2551 4460 LET var(X%) COMMA = ( var(A) var(B) var(E) var(F) 8.88889e+07 var(Z) -1e+08 var(Z) ) var(FNS%) EOS
0x2551…2578 4470 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) var(D9) 1.5 MULT var(V2) = ( %115 ) → af744019f3
0x2578…257c 4480 ELSE 0 32 var(N1$)
0x257c…2586 4490 LET var(Z) COMMA var(Z) var(D) PLUS EOS
0x2586…2589 4500 GOTO var(W$) var(T$)
0x2589…258a 4510 DOEND
0x258a…2590 4520 REM C
0x2590…259a 4530 LET var(X) COMMA var(X) var(D) PLUS EOS
0x259a…259d 4540 GOTO var(W$) var(B$)
0x259d…25bd 4550 REM COMPLETION ALL GRID-CROSSES
0x25bd…25de 4560 REM COMPL. HORIZONTAL GRID-LINES
0x25de…25e6 4570 IF var(D9) 0 EQ COMMA 34 EOS
0x25e6…25ec 4580 REM C
0x25ec…2624 4590 LET var(X%) COMMA = ( ELEMENT var(P') ( 2 ) [] ELEMENT var(Q') ( 2 ) [] ELEMENT var(P') ( 3 ) [] ELEMENT var(Q') ( 3 ) [] 8.88889e+08 var(Y) -1e+09 var(Y) ) var(FNS%) EOS
0x2624…2661 4600 IF var(X%) → eff11b4000f17173724c7303749f724d7303749f724c7304749f724d7304749f6e0888888888000089401a6e8999999999000089401a744002f3
0x2661…2676 4610 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) »U« ) var(FNP%) EOS
0x2676…267a 4620 ELSE 0 → 9046
0x267a…26b2 4630 LET var(X%) COMMA = ( ELEMENT var(P') ( 2 ) [] ELEMENT var(Q') ( 2 ) [] ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] 8.88889e+08 var(Y) -1e+09 var(Y) ) var(FNS%) EOS
0x26b2…26ef 4640 IF var(X%) → eff11b4000f17173724c7301749f724d7301749f724c7304749f724d7304749f6e0888888888000089401a6e8999999999000089401a744002f3
0x26ef…2704 4650 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) »D« ) var(FNP%) EOS
0x2704…270e 4660 LET var(Y) COMMA var(Y) var(D) PLUS EOS
0x270e…271c 4670 IF var(Y) ELEMENT var(Q') ( 4 ) [] ?< COMMA 0 → 8045
0x271c…271d 4680 DOEND
0x271d…2723 4690 REM C
0x2723…272f 4700 IF var(V0) 0 EQ var(D9) 0 <> AND COMMA 34 EOS
0x272f…273b 4710 LET var(X) COMMA var(X) var(D) 2 DIV SUB2 EOS
0x273b…2749 4720 IF var(X) ELEMENT var(P') ( 2 ) [] → ebf1002048
0x2749…275a 4730 LET var(Z) COMMA = ( var(B) var(D) DIV ) → a14020e4f3
0x275a…276b 4740 IF var(Z) var(B) → e9f11b402ff1402f4020e2f3
0x276b…2771 4750 REM C
0x2771…2799 4760 LET var(X%) COMMA = ( var(X) var(B) var(X) var(F) 8.88889e+07 var(Z) -1e+08 var(Z) ) var(FNS%) EOS
0x2799…27c0 4770 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) var(D9) 1.5 MULT var(V2) = ( %115 ) → af744019f3
0x27c0…27c4 4780 ELSE 0 32 var(T9$)
0x27c4…27ce 4790 LET var(Z) COMMA var(Z) var(D) PLUS EOS
0x27ce…27d1 4800 GOTO var(W$) var(N3$)
0x27d1…27d2 4810 DOEND
0x27d2…27d8 4820 REM C
0x27d8…27f1 4825 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x27f1…27f3 4830 RETURN EOS
0x27f3…2827 8000 REM ************* DRAW RECTANGLE ******************
0x2827…2840 8005 LET var(X%) COMMA = ( ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] »U« ) var(FNP%) EOS
0x2840…2846 8010 196a02f105f3
0x2846…285f 8015 LET var(X%) COMMA = ( ELEMENT var(P') ( var(I%) ) [] ELEMENT var(Q') ( var(I%) ) [] »D« ) var(FNP%) EOS
0x285f…2862 8020 1a6af3
0x2862…2864 8050 RETURN EOS
0x2864…288f 8100 REM *********** COORDINATE VALUES ********
0x288f…289b 8105 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x289b…28cb 8110 IF var(N1$) »« EQ COMMA 17 »>INPUTFIL IKKE OPPGITT.TRYKK RETURN.« COMMA var(X$) EOS
0x28cb…28d3 8115 IF var(N1$) »« EQ COMMA 5 EOS
0x28d3…2903 8120 LINPUT »>SKAL KOORDINATVERDIER PAAF0RES ? (J/N) : « COMMA var(X$) EOS
0x2903…2905 8121 PRINT EOS
0x2905…290e 8122 IF var(X$) »J« EQ COMMA 34 EOS
0x290e…291b 8125 IF var(V0) 0 EQ COMMA 27 var(X%) COMMA = var(FNW7%) EOS
0x291b…2941 8128 ELSE 15 »IKKE DEFINERT FOR DREIET KARTPLAN« EOS
0x2941…2942 8130 DOEND
0x2942…2944 8135 PRINT EOS
0x2944…297f 8140 LINPUT »SKAL PLATEN PAAF0RES STANDARD TEKSTFIRKANT ? (J/N) : « COMMA var(X$) EOS
0x297f…298e 8150 IF var(X$) »J« EQ COMMA 27 var(X%) COMMA = var(FNW8%) EOS
0x298e…2990 8152 PRINT EOS
0x2990…29c0 8155 LINPUT »SKAL PLATEN PAAF0RES BETEGNELSE ? (J/N) : « COMMA var(X$) EOS
0x29c0…29c9 8160 IF var(X$) »J« EQ COMMA 34 EOS
0x29c9…29d0 8165 IF var(V0) 0 EQ COMMA 34 EOS
0x29d0…29e7 8170 LET var(X) COMMA ELEMENT var(X1') ( 2 ) [] var(M0) 0.0015 MULT SUB2 EOS
0x29e7…29fe 8175 LET var(Y) COMMA ELEMENT var(Y1') ( 2 ) [] var(M0) 0.099 MULT SUB2 EOS
0x29fe…29ff 8180 DOEND
0x29ff…2a02 8185 ELSE 34 EOS
0x2a02…2a19 8190 LET var(X) COMMA ELEMENT var(X1') ( 2 ) [] var(M0) 0.0015 MULT SUB2 EOS
0x2a19…2a30 8192 LET var(Y) COMMA ELEMENT var(Y1') ( 2 ) [] var(M0) 0.03 MULT SUB2 EOS
0x2a30…2a31 8194 DOEND
0x2a31…2a42 8195 LET var(X%) COMMA = ( var(X) var(Y) 4 var(V1) var(T9$) ) var(FNX%) EOS
0x2a42…2a43 8196 DOEND
0x2a43…2a5c 8198 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x2a5c…2a5e 8199 RETURN EOS
0x2a5e…2a96 8200 REM ************* FOELGE OG SKJAEREMERKER *************
0x2a96…2a9a 8201 TRAP ESC 8840
0x2a9a…2aa6 8202 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x2aa6…2aae 8204 IF var(N1$) »« EQ COMMA 34 EOS
0x2aae…2ad6 8206 LINPUT »INPUTFIL IKKE OPPGITT.TRYKK RETURN« COMMA var(X$) EOS
0x2ad6…2ad8 8207 RETURN EOS
0x2ad8…2ad9 8208 DOEND
0x2ad9…2afb 8210 PRINT »>SKJAERE-OG F0LGEMERKER TEGNES« EOS
0x2afb…2b1b 8212 PRINT »>TRYKK ESCAPE FOR AA AVBRYTE« EOS
0x2b1b…2b2b 8215 LET var(S) COMMA var(M0) 0.005 MULT EOS
0x2b2b…2b42 8220 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.08 MULT SUB2 EOS
0x2b42…2b59 8250 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.084 MULT SUB2 EOS
0x2b59…2b6d 8260 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »U« ) var(FNP%) EOS
0x2b6d…2b7e 8270 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2b7e…2b92 8280 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »D« ) var(FNP%) EOS
0x2b92…2b98 8290 196a01f103f3
0x2b98…2bab 8300 LET var(X) COMMA var(X) var(M0) 0.21 MULT PLUS EOS
0x2bab…2bc1 8310 LET var(X%) COMMA = ( var(X) var(S) 2 DIV SUB2 var(Y) »U« ) var(FNP%) EOS
0x2bc1…2bd7 8320 LET var(X%) COMMA = ( var(X) var(S) 2 DIV PLUS var(Y) »D« ) var(FNP%) EOS
0x2bd7…2be8 8330 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x2be8…2bfc 8340 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »D« ) var(FNP%) EOS
0x2bfc…2bff 8350 1a6af3
0x2bff…2c12 8370 LET var(X) COMMA var(X) var(M0) 0.21 MULT PLUS EOS
0x2c12…2c26 8380 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »U« ) var(FNP%) EOS
0x2c26…2c37 8390 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2c37…2c4b 8400 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »D« ) var(FNP%) EOS
0x2c4b…2c5e 8410 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT PLUS EOS
0x2c5e…2c74 8420 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV SUB2 »U« ) var(FNP%) EOS
0x2c74…2c8a 8430 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV PLUS »D« ) var(FNP%) EOS
0x2c8a…2c9b 8440 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x2c9b…2caf 8450 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »D« ) var(FNP%) EOS
0x2caf…2cc2 8460 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT PLUS EOS
0x2cc2…2cd6 8470 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »U« ) var(FNP%) EOS
0x2cd6…2ce7 8480 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2ce7…2cfb 8490 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »D« ) var(FNP%) EOS
0x2cfb…2d01 8510 196a01f103f3
0x2d01…2d14 8520 LET var(X) COMMA var(X) var(M0) 0.21 MULT SUB2 EOS
0x2d14…2d2a 8530 LET var(X%) COMMA = ( var(X) var(S) 2 DIV PLUS var(Y) »U« ) var(FNP%) EOS
0x2d2a…2d40 8540 LET var(X%) COMMA = ( var(X) var(S) 2 DIV SUB2 var(Y) »D« ) var(FNP%) EOS
0x2d40…2d51 8550 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x2d51…2d65 8560 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »D« ) var(FNP%) EOS
0x2d65…2d68 8570 1a6af3
0x2d68…2d7b 8580 LET var(X) COMMA var(X) var(M0) 0.21 MULT SUB2 EOS
0x2d7b…2d8f 8590 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »U« ) var(FNP%) EOS
0x2d8f…2da0 8600 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2da0…2db4 8610 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »D« ) var(FNP%) EOS
0x2db4…2dc7 8620 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT SUB2 EOS
0x2dc7…2ddd 8630 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV PLUS »U« ) var(FNP%) EOS
0x2ddd…2df3 8640 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV SUB2 »D« ) var(FNP%) EOS
0x2df3…2e04 8650 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x2e04…2e18 8660 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »D« ) var(FNP%) EOS
0x2e18…2e2f 8670 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.11 MULT SUB2 EOS
0x2e2f…2e46 8680 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.114 MULT SUB2 EOS
0x2e46…2e5a 8690 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »U« ) var(FNP%) EOS
0x2e5a…2e6b 8700 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2e6b…2e7f 8710 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »D« ) var(FNP%) EOS
0x2e7f…2e92 8720 LET var(X) COMMA var(X) var(M0) 0.9 MULT PLUS EOS
0x2e92…2ea6 8730 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »U« ) var(FNP%) EOS
0x2ea6…2eb7 8740 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2eb7…2ecb 8750 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »D« ) var(FNP%) EOS
0x2ecb…2ede 8760 LET var(Y) COMMA var(Y) var(M0) 0.654 MULT PLUS EOS
0x2ede…2ef2 8770 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »U« ) var(FNP%) EOS
0x2ef2…2f03 8780 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2f03…2f17 8790 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »D« ) var(FNP%) EOS
0x2f17…2f2a 8800 LET var(X) COMMA var(X) var(M0) 0.9 MULT SUB2 EOS
0x2f2a…2f3e 8810 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »U« ) var(FNP%) EOS
0x2f3e…2f4f 8820 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2f4f…2f63 8830 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »D« ) var(FNP%) EOS
0x2f63…2f69 8840 REM C
0x2f69…2f82 8845 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x2f82…2f84 8850 RETURN EOS
0x2f84…2fb3 9500 REM ********* CHAIN TO NEXT MODULE ***********
0x2fb3…2fbf 9505 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x2fbf…2fcc 9510 LET var(M9%) COMMA 999 EOS
0x2fcc…2fe1 9515 IF var(T$) »« <> var(N2$) »« <> AND COMMA 24 »PLOT.2« EOS
0x2fe1…3009 9520 IF var(T$) »« EQ COMMA 15 »>INPUTFIL ER IKKE INITIALISERT« EOS
0x3009…3030 9525 IF var(N2$) »« EQ COMMA 15 »>PARAMETERFIL ER IKKE OPPGITT« EOS
0x3030…3036 9530 LINPUT »« COMMA var(X$) EOS
0x3036…3038 9550 RETURN EOS
0x3038…306a 9600 REM *********** PROGRAM TERMINATION *************
0x306a…3076 9620 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x3076…3078 9650 14f3
0x3078…3079 9999 END