|
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: 11870 (0x2e5e)
Notes: ZILOG_BASIC
Names: »PLOT.BP«
└─⟦7e7fa238b⟧ Bits:30006828 8" ZilogMCZ floppy NThun_0052 (19.11.82 PLOT.BP PLOT.2.BP PARAM.B PREMARE.2.BP Uten System (c) VIAK DATA)
└─⟦this⟧ »PLOT.BP«
0x0000…0014 BasicHead {variables=0x0178, stms=0x088c, f2=0x2446, f3=0000000000000000000000000000}
0x0014…018c [
0x0014…018c [0x00]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x12} S 0x5d
0x0014…018c [0x01]: VarDef {f0=0x0322, f1=0x4f, f2=0x05} F 0x5c
0x0014…018c [0x02]: VarDef {f0=0x031a, f1=0x4f, f2=0x04} E 0x5b
0x0014…018c [0x03]: VarDef {f0=0x0312, f1=0x4f, f2=0x01} B 0x5a
0x0014…018c [0x04]: VarDef {f0=0x030a, f1=0x4f, f2=0x00} A 0x59
0x0014…018c [0x05]: VarDef {f0=0x8275, f1=0x4f, f2=0x19} Z 0x58
0x0014…018c [0x06]: VarDef {f0=0x02ca, f1=0x42, f2=0x15} V2 0x57
0x0014…018c [0x07]: VarDef {f0=0x0300, f1=0x4f, f2=0x2a} K% 0x56
0x0014…018c [0x08]: VarDef {f0=0x7000, f1=0x4f, f2=0x25} F% 0x55
0x0014…018c [0x09]: VarDef {f0=0x4165, f1=0x42, f2=0x2d} N2% 0x54
0x0014…018c [0x0a]: VarDef {f0=0x4010, f1=0x42, f2=0x28} I2% 0x53
0x0014…018c [0x0b]: VarDef {f0=0x3000, f1=0x41, f2=0x28} I1% 0x52
0x0014…018c [0x0c]: VarDef {f0=0x0400, f1=0x4f, f2=0x29} J% 0x51
0x0014…018c [0x0d]: VarDef {f0=0x1670, f1=0x4f, f2=0x10} Q 0x50
0x0014…018c [0x0e]: VarDef {f0=0xfd24, f1=0x59, f2=0x36} FNW9% 0x4f
0x0014…018c [0x0f]: VarDef {f0=0xfd48, f1=0x58, f2=0x36} FNW8% 0x4e
0x0014…018c [0x10]: VarDef {f0=0x1500, f1=0x49, f2=0x15} V9 0x4d
0x0014…018c [0x11]: VarDef {f0=0x1480, f1=0x49, f2=0x14} U9 0x4c
0x0014…018c [0x12]: VarDef {f0=0x02d2, f1=0x4f, f2=0x03} D 0x4b
0x0014…018c [0x13]: VarDef {f0=0xfdac, f1=0x57, f2=0x36} FNW7% 0x4a
0x0014…018c [0x14]: VarDef {f0=0xfdc8, f1=0x5f, f2=0x30} FNQ% 0x49
0x0014…018c [0x15]: VarDef {f0=0xfdf0, f1=0x5f, f2=0x03} FND 0x48
0x0014…018c [0x16]: VarDef {f0=0x1260, f1=0x4f, f2=0x15} V 0x47
0x0014…018c [0x17]: VarDef {f0=0x1255, f1=0x4f, f2=0x07} H 0x46
0x0014…018c [0x18]: VarDef {f0=0x02e2, f1=0x4f, f2=0x18} Y 0x45
0x0014…018c [0x19]: VarDef {f0=0xfe14, f1=0x5f, f2=0x37} FNX% 0x44
0x0014…018c [0x1a]: VarDef {f0=0x032a, f1=0x43, f2=0x17} X3 0x43
0x0014…018c [0x1b]: VarDef {f0=0x0332, f1=0x43, f2=0x18} Y3 0x42
0x0014…018c [0x1c]: VarDef {f0=0xfde8, f1=0x5f, f2=0x39} FNZ% 0x41
0x0014…018c [0x1d]: VarDef {f0=0xfe2c, f1=0x5f, f2=0x2f} FNP% 0x40
0x0014…018c [0x1e]: VarDef {f0=0x02da, f1=0x4f, f2=0x17} X 0x3f
0x0014…018c [0x1f]: VarDef {f0=0xfe44, f1=0x5f, f2=0x57} FNX$ 0x3e
0x0014…018c [0x20]: VarDef {f0=0x0100, f1=0x4f, f2=0x23} D% 0x3d
0x0014…018c [0x21]: VarDef {f0=0x0100, f1=0x4f, f2=0x22} C% 0x3c
0x0014…018c [0x22]: VarDef {f0=0x0100, f1=0x4f, f2=0x21} B% 0x3b
0x0014…018c [0x23]: VarDef {f0=0x0100, f1=0x4f, f2=0x20} A% 0x3a
0x0014…018c [0x24]: VarDef {f0=0x0302, f1=0x45, f2=0x17} X5 0x39
0x0014…018c [0x25]: VarDef {f0=0x02fa, f1=0x45, f2=0x18} Y5 0x38
0x0014…018c [0x26]: VarDef {f0=0x02f2, f1=0x42, f2=0x10} Q2 0x37
0x0014…018c [0x27]: VarDef {f0=0x02ea, f1=0x41, f2=0x10} Q1 0x36
0x0014…018c [0x28]: VarDef {f0=0x1000, f1=0x42, f2=0x01} B2 0x35
0x0014…018c [0x29]: VarDef {f0=0x0965, f1=0x42, f2=0x00} A2 0x34
0x0014…018c [0x2a]: VarDef {f0=0x0960, f1=0x41, f2=0x01} B1 0x33
0x0014…018c [0x2b]: VarDef {f0=0x0945, f1=0x41, f2=0x00} A1 0x32
0x0014…018c [0x2c]: VarDef {f0=0x0940, f1=0x42, f2=0x18} Y2 0x31
0x0014…018c [0x2d]: VarDef {f0=0x0935, f1=0x42, f2=0x17} X2 0x30
0x0014…018c [0x2e]: VarDef {f0=0x0930, f1=0x41, f2=0x18} Y1 0x2f
0x0014…018c [0x2f]: VarDef {f0=0x0925, f1=0x41, f2=0x17} X1 0x2e
0x0014…018c [0x30]: VarDef {f0=0xfeb0, f1=0x5f, f2=0x32} FNS% 0x2d
0x0014…018c [0x31]: VarDef {f0=0x0100, f1=0x0f, f2=0x37} X% 0x2c
0x0014…018c [0x32]: VarDef {f0=0xff2c, f1=0x59, f2=0x2c} FNM9% 0x2b
0x0014…018c [0x33]: VarDef {f0=0x0600, f1=0x4f, f2=0x28} I% 0x2a
0x0014…018c [0x34]: VarDef {f0=0xff84, f1=0x5f, f2=0x36} FNW% 0x29
0x0014…018c [0x35]: VarDef {f0=0x0380, f1=0x43, f2=0x22} C3% 0x28
0x0014…018c [0x36]: VarDef {f0=0x0370, f1=0x42, f2=0x22} C2% 0x27
0x0014…018c [0x37]: VarDef {f0=0x0355, f1=0x41, f2=0x22} C1% 0x26
0x0014…018c [0x38]: VarDef {f0=0xffa0, f1=0x5f, f2=0x22} FNC% 0x25
0x0014…018c [0x39]: VarDef {f0=0x02c0, f1=0x09, f2=0x50} Q9$ 0x24
0x0014…018c [0x3a]: VarDef {f0=0x02bb, f1=0x0f, f2=0x52} S$ 0x23
0x0014…018c [0x3b]: VarDef {f0=0x02b1, f1=0x20, f2=0x52} S0$<2052> 0x22
0x0014…018c [0x3c]: VarDef {f0=0x02ac, f1=0x00, f2=0x59} Z0$ 0x21
0x0014…018c [0x3d]: VarDef {f0=0x02a7, f1=0x00, f2=0x4b} L0$ 0x20
0x0014…018c [0x3e]: VarDef {f0=0x029b, f1=0x00, f2=0x4f} P0$ 0x1f
0x0014…018c [0x3f]: VarDef {f0=0x0251, f1=0x0f, f2=0x57} X$ 0x1e
0x0014…018c [0x40]: VarDef {f0=0x0249, f1=0x09, f2=0x03} D9 0x1d
0x0014…018c [0x41]: VarDef {f0=0xe703, f1=0x09, f2=0x2c} M9% 0x1c
0x0014…018c [0x42]: VarDef {f0=0x0241, f1=0x00, f2=0x0c} M0 0x1b
0x0014…018c [0x43]: VarDef {f0=0x0239, f1=0x09, f2=0x16} W9 0x1a
0x0014…018c [0x44]: VarDef {f0=0x0231, f1=0x08, f2=0x16} W8 0x19
0x0014…018c [0x45]: VarDef {f0=0x0229, f1=0x01, f2=0x07} H1 0x18
0x0014…018c [0x46]: VarDef {f0=0x0221, f1=0x01, f2=0x0f} P1 0x17
0x0014…018c [0x47]: VarDef {f0=0x0219, f1=0x01, f2=0x15} V1 0x16
0x0014…018c [0x48]: VarDef {f0=0x0211, f1=0x00, f2=0x15} V0 0x15
0x0014…018c [0x49]: VarDef {f0=0x0209, f1=0x07, f2=0x18} Y7 0x14
0x0014…018c [0x4a]: VarDef {f0=0x0201, f1=0x07, f2=0x17} X7 0x13
0x0014…018c [0x4b]: VarDef {f0=0x01f9, f1=0x00, f2=0x12} S0 0x12
0x0014…018c [0x4c]: VarDef {f0=0x01f4, f1=0x0f, f2=0x56} W$ 0x11
0x0014…018c [0x4d]: VarDef {f0=0x01c8, f1=0x01, f2=0x98} Y1' 0x10
0x0014…018c [0x4e]: VarDef {f0=0x019c, f1=0x01, f2=0x97} X1' 0xf
0x0014…018c [0x4f]: VarDef {f0=0x0170, f1=0x0f, f2=0x90} Q' 0xe
0x0014…018c [0x50]: VarDef {f0=0x0144, f1=0x0f, f2=0x8f} P' 0xd
0x0014…018c [0x51]: VarDef {f0=0x00fa, f1=0x0f, f2=0x59} Z$ 0xc
0x0014…018c [0x52]: VarDef {f0=0x00ee, f1=0x0f, f2=0x50} Q$ 0xb
0x0014…018c [0x53]: VarDef {f0=0x00e2, f1=0x0f, f2=0x4f} P$ 0xa
0x0014…018c [0x54]: VarDef {f0=0x008e, f1=0x09, f2=0x53} T9$ 0x9
0x0014…018c [0x55]: VarDef {f0=0x0076, f1=0x03, f2=0x4d} N3$ 0x8
0x0014…018c [0x56]: VarDef {f0=0x005e, f1=0x02, f2=0x4d} N2$ 0x7
0x0014…018c [0x57]: VarDef {f0=0x0046, f1=0x01, f2=0x4d} N1$ 0x6
0x0014…018c [0x58]: VarDef {f0=0x0041, f1=0x0f, f2=0x42} C$ 0x5
0x0014…018c [0x59]: VarDef {f0=0x003c, f1=0x0f, f2=0x40} A$ 0x4
0x0014…018c [0x5a]: VarDef {f0=0x0024, f1=0x0f, f2=0x53} T$ 0x3
0x0014…018c [0x5b]: VarDef {f0=0x0018, f1=0x01, f2=0x53} T1$ 0x2
0x0014…018c [0x5c]: VarDef {f0=0x000c, f1=0x00, f2=0x53} T0$ 0x1
0x0014…018c [0x5d]: VarDef {f0=0x0000, f1=0x0f, f2=0x41} B$ 0x0
0x0014…018c ]
0x018c…0190 Statement 39321 @0x2e5d
0x0190…0194 Statement 38480 @0x2e5b
0x0194…0198 Statement 38432 @0x2e50
0x0198…019c Statement 38400 @0x2e1e
0x019c…01a0 Statement 38224 @0x2e1c
0x01a0…01a4 Statement 38192 @0x2e16
0x01a4…01a8 Statement 38181 @0x2def
0x01a8…01ac Statement 38176 @0x2dc7
0x01ac…01b0 Statement 38165 @0x2db2
0x01b0…01b4 Statement 38160 @0x2da5
0x01b4…01b8 Statement 38149 @0x2d9a
0x01b8…01bc Statement 38144 @0x2d6b
0x01bc…01c0 Statement 34896 @0x2d69
0x01c0…01c4 Statement 34864 @0x2d56
0x01c4…01c8 Statement 34848 @0x2d46
0x01c8…01cc Statement 34832 @0x2d33
0x01cc…01d0 Statement 34816 @0x2d20
0x01d0…01d4 Statement 34704 @0x2d0d
0x01d4…01d8 Statement 34688 @0x2cfd
0x01d8…01dc Statement 34672 @0x2cea
0x01dc…01e0 Statement 34656 @0x2cd7
0x01e0…01e4 Statement 34640 @0x2cc4
0x01e4…01e8 Statement 34624 @0x2cb4
0x01e8…01ec Statement 34608 @0x2ca1
0x01ec…01f0 Statement 34592 @0x2c8e
0x01f0…01f4 Statement 34576 @0x2c7b
0x01f4…01f8 Statement 34560 @0x2c6b
0x01f8…01fc Statement 34448 @0x2c58
0x01fc…0200 Statement 34432 @0x2c41
0x0200…0204 Statement 34416 @0x2c2a
0x0204…0208 Statement 34400 @0x2c17
0x0208…020c Statement 34384 @0x2c07
0x020c…0210 Statement 34368 @0x2bf2
0x0210…0214 Statement 34352 @0x2bdd
0x0214…0218 Statement 34336 @0x2bca
0x0218…021c Statement 34320 @0x2bb7
0x021c…0220 Statement 34304 @0x2ba7
0x0220…0224 Statement 34192 @0x2b94
0x0224…0228 Statement 34176 @0x2b81
0x0228…022c Statement 34160 @0x2b7e
0x022c…0230 Statement 34144 @0x2b6b
0x0230…0234 Statement 34128 @0x2b5b
0x0234…0238 Statement 34112 @0x2b46
0x0238…023c Statement 34096 @0x2b31
0x023c…0240 Statement 34080 @0x2b1e
0x0240…0244 Statement 34064 @0x2b18
0x0244…0248 Statement 33936 @0x2b05
0x0248…024c Statement 33920 @0x2af5
0x024c…0250 Statement 33904 @0x2ae2
0x0250…0254 Statement 33888 @0x2acf
0x0254…0258 Statement 33872 @0x2abc
0x0258…025c Statement 33856 @0x2aac
0x025c…0260 Statement 33840 @0x2a97
0x0260…0264 Statement 33824 @0x2a82
0x0264…0268 Statement 33808 @0x2a6f
0x0268…026c Statement 33792 @0x2a5c
0x026c…0270 Statement 33680 @0x2a4c
0x0270…0274 Statement 33664 @0x2a39
0x0274…0278 Statement 33648 @0x2a26
0x0278…027c Statement 33616 @0x2a23
0x027c…0280 Statement 33600 @0x2a10
0x0280…0284 Statement 33584 @0x2a00
0x0284…0288 Statement 33568 @0x29eb
0x0288…028c Statement 33552 @0x29d6
0x028c…0290 Statement 33536 @0x29c3
0x0290…0294 Statement 33424 @0x29bd
0x0294…0298 Statement 33408 @0x29aa
0x0298…029c Statement 33392 @0x299a
0x029c…02a0 Statement 33376 @0x2987
0x02a0…02a4 Statement 33360 @0x2970
0x02a4…02a8 Statement 33312 @0x2959
0x02a8…02ac Statement 33301 @0x2949
0x02ac…02b0 Statement 33296 @0x2927
0x02b0…02b4 Statement 33280 @0x28ef
0x02b4…02b8 Statement 33177 @0x28ed
0x02b8…02bc Statement 33173 @0x28dd
0x02bc…02c0 Statement 33172 @0x28dc
0x02c0…02c4 Statement 33170 @0x28c5
0x02c4…02c8 Statement 33168 @0x28ae
0x02c8…02cc Statement 33157 @0x28ab
0x02cc…02d0 Statement 33152 @0x28aa
0x02d0…02d4 Statement 33141 @0x2893
0x02d4…02d8 Statement 33136 @0x287c
0x02d8…02dc Statement 33125 @0x2875
0x02dc…02e0 Statement 33106 @0x2862
0x02e0…02e4 Statement 33104 @0x2861
0x02e4…02e8 Statement 33093 @0x285a
0x02e8…02ec Statement 33090 @0x2845
0x02ec…02f0 Statement 33088 @0x283e
0x02f0…02f4 Statement 33064 @0x280e
0x02f4…02f8 Statement 33061 @0x2802
0x02f8…02fc Statement 33056 @0x27e4
0x02fc…0300 Statement 33024 @0x27b8
0x0300…0304 Statement 32848 @0x27b6
0x0304…0308 Statement 32800 @0x27b3
0x0308…030c Statement 32789 @0x279b
0x030c…0310 Statement 32784 @0x2795
0x0310…0314 Statement 32773 @0x277d
0x0314…0318 Statement 32768 @0x2749
0x0318…031c Statement 20480 @0x2747
0x031c…0320 Statement 18544 @0x2741
0x0320…0324 Statement 18528 @0x2729
0x0324…0328 Statement 18512 @0x2723
0x0328…032c Statement 18496 @0x2719
0x032c…0330 Statement 18480 @0x2716
0x0330…0334 Statement 18464 @0x2710
0x0334…0338 Statement 18448 @0x270f
0x0338…033c Statement 18432 @0x270c
0x033c…0340 Statement 18320 @0x2702
0x0340…0344 Statement 18304 @0x26fe
0x0344…0348 Statement 18288 @0x26da
0x0348…034c Statement 18272 @0x26b3
0x034c…0350 Statement 18256 @0x26ad
0x0350…0354 Statement 18240 @0x269c
0x0354…0358 Statement 18224 @0x268b
0x0358…035c Statement 18208 @0x267d
0x035c…0360 Statement 18192 @0x2671
0x0360…0364 Statement 18176 @0x2666
0x0364…0368 Statement 18064 @0x2660
0x0368…036c Statement 18048 @0x265f
0x036c…0370 Statement 18032 @0x2651
0x0370…0374 Statement 18016 @0x2647
0x0374…0378 Statement 18000 @0x2634
0x0378…037c Statement 17984 @0x25f9
0x037c…0380 Statement 17968 @0x25c2
0x0380…0384 Statement 17952 @0x25be
0x0384…0388 Statement 17936 @0x25ab
0x0388…038c Statement 17920 @0x2570
0x038c…0390 Statement 17808 @0x2539
0x0390…0394 Statement 17792 @0x2533
0x0394…0398 Statement 17776 @0x252c
0x0398…039c Statement 17760 @0x250b
0x039c…03a0 Statement 17744 @0x24eb
0x03a0…03a4 Statement 17728 @0x24e8
0x03a4…03a8 Statement 17712 @0x24de
0x03a8…03ac Statement 17696 @0x24d8
0x03ac…03b0 Statement 17680 @0x24d7
0x03b0…03b4 Statement 17664 @0x24d4
0x03b4…03b8 Statement 17552 @0x24ca
0x03b8…03bc Statement 17536 @0x24c6
0x03bc…03c0 Statement 17520 @0x24a2
0x03c0…03c4 Statement 17504 @0x247b
0x03c4…03c8 Statement 17488 @0x2475
0x03c8…03cc Statement 17472 @0x2464
0x03cc…03d0 Statement 17456 @0x2450
0x03d0…03d4 Statement 17440 @0x244d
0x03d4…03d8 Statement 17424 @0x244c
0x03d8…03dc Statement 17408 @0x243c
0x03dc…03e0 Statement 17296 @0x242c
0x03e0…03e4 Statement 17280 @0x2425
0x03e4…03e8 Statement 17264 @0x2418
0x03e8…03ec Statement 17248 @0x23dd
0x03ec…03f0 Statement 17232 @0x23a6
0x03f0…03f4 Statement 17216 @0x23a2
0x03f4…03f8 Statement 17200 @0x2392
0x03f8…03fc Statement 17184 @0x2357
0x03fc…0400 Statement 17168 @0x2320
0x0400…0404 Statement 17152 @0x2312
0x0404…0408 Statement 17040 @0x230c
0x0408…040c Statement 17024 @0x230b
0x040c…0410 Statement 17008 @0x22ff
0x0410…0414 Statement 16992 @0x22f9
0x0414…0418 Statement 16976 @0x22f6
0x0418…041c Statement 16960 @0x22ec
0x041c…0420 Statement 16944 @0x22cb
0x0420…0424 Statement 16928 @0x22bd
0x0424…0428 Statement 16912 @0x22b7
0x0428…042c Statement 16896 @0x22b0
0x042c…0430 Statement 16784 @0x22a4
0x0430…0434 Statement 16768 @0x228a
0x0434…0438 Statement 16752 @0x2277
0x0438…043c Statement 16736 @0x226c
0x043c…0440 Statement 16720 @0x2266
0x0440…0444 Statement 16704 @0x2251
0x0444…0448 Statement 16688 @0x2239
0x0448…044c Statement 16672 @0x2224
0x044c…0450 Statement 16656 @0x220c
0x0450…0454 Statement 16645 @0x21fc
0x0454…0458 Statement 16640 @0x21e5
0x0458…045c Statement 16533 @0x21d7
0x045c…0460 Statement 16528 @0x21d6
0x0460…0464 Statement 16512 @0x21c3
0x0464…0468 Statement 16496 @0x21aa
0x0468…046c Statement 16485 @0x218f
0x046c…0470 Statement 16480 @0x2188
0x0470…0474 Statement 16384 @0x2185
0x0474…0478 Statement 14736 @0x2175
0x0478…047c Statement 14725 @0x2165
0x047c…0480 Statement 14720 @0x2156
0x0480…0484 Statement 14709 @0x214d
0x0484…0488 Statement 14704 @0x2147
0x0488…048c Statement 14664 @0x2140
0x048c…0490 Statement 14662 @0x2132
0x0490…0494 Statement 14660 @0x2126
0x0494…0498 Statement 14658 @0x2117
0x0498…049c Statement 14368 @0x20fc
0x049c…04a0 Statement 14352 @0x20e3
0x04a0…04a4 Statement 14336 @0x20b5
0x04a4…04a8 Statement 14229 @0x20b4
0x04a8…04ac Statement 14112 @0x20b1
0x04ac…04b0 Statement 14101 @0x2096
0x04b0…04b4 Statement 14096 @0x2093
0x04b4…04b8 Statement 14080 @0x2076
0x04b8…04bc Statement 13968 @0x2070
0x04bc…04c0 Statement 13888 @0x205b
0x04c0…04c4 Statement 13878 @0x2052
0x04c4…04c8 Statement 13877 @0x2050
0x04c8…04cc Statement 13876 @0x204f
0x04cc…04d0 Statement 13875 @0x204d
0x04d0…04d4 Statement 13874 @0x2020
0x04d4…04d8 Statement 13873 @0x2015
0x04d8…04dc Statement 13872 @0x200d
0x04dc…04e0 Statement 13864 @0x200c
0x04e0…04e4 Statement 13862 @0x200a
0x04e4…04e8 Statement 13861 @0x1fdf
0x04e8…04ec Statement 13856 @0x1fd4
0x04ec…04f0 Statement 13845 @0x1fcc
0x04f0…04f4 Statement 13844 @0x1fb0
0x04f4…04f8 Statement 13842 @0x1fa5
0x04f8…04fc Statement 13840 @0x1f83
0x04fc…0500 Statement 13829 @0x1f78
0x0500…0504 Statement 13826 @0x1f74
0x0504…0508 Statement 13824 @0x1f4b
0x0508…050c Statement 13680 @0x1f49
0x050c…0510 Statement 13632 @0x1f46
0x0510…0514 Statement 13621 @0x1f40
0x0514…0518 Statement 13616 @0x1f3a
0x0518…051c Statement 13607 @0x1f16
0x051c…0520 Statement 13605 @0x1efc
0x0520…0524 Statement 13600 @0x1ef3
0x0524…0528 Statement 13589 @0x1eef
0x0528…052c Statement 13573 @0x1edb
0x052c…0530 Statement 13570 @0x1ecf
0x0530…0534 Statement 13568 @0x1ec5
0x0534…0538 Statement 13461 @0x1ebf
0x0538…053c Statement 13456 @0x1eb6
0x053c…0540 Statement 13440 @0x1ea2
0x0540…0544 Statement 13429 @0x1e96
0x0544…0548 Statement 13424 @0x1e85
0x0548…054c Statement 13408 @0x1e81
0x054c…0550 Statement 13397 @0x1e7a
0x0550…0554 Statement 13394 @0x1e74
0x0554…0558 Statement 13392 @0x1e60
0x0558…055c Statement 13381 @0x1e2c
0x055c…0560 Statement 13380 @0x1e2b
0x0560…0564 Statement 13379 @0x1e29
0x0564…0568 Statement 13378 @0x1e16
0x0568…056c Statement 13377 @0x1e09
0x056c…0570 Statement 13376 @0x1de3
0x0570…0574 Statement 13368 @0x1dba
0x0574…0578 Statement 13366 @0x1daf
0x0578…057c Statement 13365 @0x1d88
0x057c…0580 Statement 13360 @0x1d86
0x0580…0584 Statement 13168 @0x1d6a
0x0584…0588 Statement 13152 @0x1d48
0x0588…058c Statement 13136 @0x1d45
0x058c…0590 Statement 13120 @0x1d3f
0x0590…0594 Statement 13104 @0x1d3d
0x0594…0598 Statement 13088 @0x1d36
0x0598…059c Statement 13077 @0x1d31
0x059c…05a0 Statement 13072 @0x1d1c
0x05a0…05a4 Statement 13061 @0x1d16
0x05a4…05a8 Statement 13056 @0x1d13
0x05a8…05ac Statement 12949 @0x1d0c
0x05ac…05b0 Statement 12944 @0x1d0b
0x05b0…05b4 Statement 12933 @0x1d02
0x05b4…05b8 Statement 12928 @0x1cfc
0x05b8…05bc Statement 12917 @0x1cf6
0x05bc…05c0 Statement 12912 @0x1ce5
0x05c0…05c4 Statement 12901 @0x1cd0
0x05c4…05c8 Statement 12896 @0x1cc3
0x05c8…05cc Statement 12885 @0x1cb9
0x05cc…05d0 Statement 12880 @0x1cb1
0x05d0…05d4 Statement 12869 @0x1caa
0x05d4…05d8 Statement 12864 @0x1ca4
0x05d8…05dc Statement 12853 @0x1c9e
0x05dc…05e0 Statement 12848 @0x1c98
0x05e0…05e4 Statement 12837 @0x1c87
0x05e4…05e8 Statement 12832 @0x1c7f
0x05e8…05ec Statement 12821 @0x1c79
0x05ec…05f0 Statement 12816 @0x1c74
0x05f0…05f4 Statement 12806 @0x1c4d
0x05f4…05f8 Statement 12805 @0x1c35
0x05f8…05fc Statement 12804 @0x1c30
0x05fc…0600 Statement 12802 @0x1c2d
0x0600…0604 Statement 12800 @0x1c1d
0x0604…0608 Statement 12697 @0x1c19
0x0608…060c Statement 12695 @0x1c18
0x060c…0610 Statement 12694 @0x1c16
0x0610…0614 Statement 12692 @0x1be6
0x0614…0618 Statement 12691 @0x1bde
0x0618…061c Statement 12690 @0x1bd3
0x061c…0620 Statement 12688 @0x1ba2
0x0620…0624 Statement 12676 @0x1b9f
0x0624…0628 Statement 12674 @0x1b76
0x0628…062c Statement 12673 @0x1b73
0x062c…0630 Statement 12672 @0x1b71
0x0630…0634 Statement 12664 @0x1b6b
0x0634…0638 Statement 12662 @0x1b69
0x0638…063c Statement 12660 @0x1b5e
0x063c…0640 Statement 12658 @0x1b4f
0x0640…0644 Statement 12656 @0x1b44
0x0644…0648 Statement 12648 @0x1b3e
0x0648…064c Statement 12646 @0x1b3a
0x064c…0650 Statement 12644 @0x1b39
0x0650…0654 Statement 12642 @0x1b36
0x0654…0658 Statement 12640 @0x1b15
0x0658…065c Statement 12631 @0x1b13
0x065c…0660 Statement 12629 @0x1b0c
0x0660…0664 Statement 12624 @0x1afb
0x0664…0668 Statement 12615 @0x1af3
0x0668…066c Statement 12613 @0x1ac7
0x066c…0670 Statement 12608 @0x1ac4
0x0670…0674 Statement 12599 @0x1ac2
0x0674…0678 Statement 12597 @0x1abe
0x0678…067c Statement 12594 @0x1ab3
0x067c…0680 Statement 12592 @0x1a8d
0x0680…0684 Statement 12581 @0x1a8b
0x0684…0688 Statement 12578 @0x1a83
0x0688…068c Statement 12576 @0x1a82
0x068c…0690 Statement 12565 @0x1a7f
0x0690…0694 Statement 12544 @0x1a58
0x0694…0698 Statement 12437 @0x1a56
0x0698…069c Statement 12432 @0x1a4f
0x069c…06a0 Statement 12421 @0x1a37
0x06a0…06a4 Statement 12418 @0x1a2f
0x06a4…06a8 Statement 12416 @0x1a06
0x06a8…06ac Statement 12405 @0x1a04
0x06ac…06b0 Statement 12400 @0x19fe
0x06b0…06b4 Statement 12368 @0x19f8
0x06b4…06b8 Statement 12357 @0x19ed
0x06b8…06bc Statement 12352 @0x19bb
0x06bc…06c0 Statement 12293 @0x19b8
0x06c0…06c4 Statement 10640 @0x19af
0x06c4…06c8 Statement 10624 @0x19a6
0x06c8…06cc Statement 10608 @0x199d
0x06cc…06d0 Statement 10592 @0x1994
0x06d0…06d4 Statement 10576 @0x198b
0x06d4…06d8 Statement 10560 @0x1982
0x06d8…06dc Statement 10544 @0x1979
0x06dc…06e0 Statement 10528 @0x1971
0x06e0…06e4 Statement 10517 @0x196b
0x06e4…06e8 Statement 10516 @0x1968
0x06e8…06ec Statement 10514 @0x1962
0x06ec…06f0 Statement 10512 @0x1951
0x06f0…06f4 Statement 10368 @0x193c
0x06f4…06f8 Statement 10357 @0x1934
0x06f8…06fc Statement 10352 @0x1928
0x06fc…0700 Statement 10341 @0x1904
0x0700…0704 Statement 10336 @0x18cc
0x0704…0708 Statement 10328 @0x18c9
0x0708…070c Statement 10325 @0x18be
0x070c…0710 Statement 10324 @0x18ae
0x0710…0714 Statement 10322 @0x18aa
0x0714…0718 Statement 10320 @0x1884
0x0718…071c Statement 10240 @0x1883
0x071c…0720 Statement 10128 @0x1880
0x0720…0724 Statement 10037 @0x1863
0x0724…0728 Statement 10032 @0x1840
0x0728…072c Statement 10021 @0x181d
0x072c…0730 Statement 10016 @0x17fa
0x0730…0734 Statement 10005 @0x17d7
0x0734…0738 Statement 09989 @0x17a6
0x0738…073c Statement 09984 @0x17a0
0x073c…0740 Statement 09877 @0x179f
0x0740…0744 Statement 09872 @0x179c
0x0744…0748 Statement 09776 @0x1799
0x0748…074c Statement 09765 @0x177c
0x074c…0750 Statement 09760 @0x175f
0x0750…0754 Statement 09749 @0x1736
0x0754…0758 Statement 09744 @0x170d
0x0758…075c Statement 09733 @0x16d8
0x075c…0760 Statement 09728 @0x16d4
0x0760…0764 Statement 09621 @0x16a2
0x0764…0768 Statement 09600 @0x16a1
0x0768…076c Statement 09589 @0x169e
0x076c…0770 Statement 09296 @0x168c
0x0770…0774 Statement 09285 @0x1673
0x0774…0778 Statement 09284 @0x1662
0x0778…077c Statement 09282 @0x164d
0x077c…0780 Statement 09280 @0x163b
0x0780…0784 Statement 09273 @0x1622
0x0784…0788 Statement 09272 @0x1611
0x0788…078c Statement 09264 @0x15fc
0x078c…0790 Statement 09253 @0x15f6
0x0790…0794 Statement 09248 @0x15e4
0x0794…0798 Statement 09240 @0x15c5
0x0798…079c Statement 09237 @0x15b0
0x079c…07a0 Statement 09235 @0x159f
0x07a0…07a4 Statement 09234 @0x158a
0x07a4…07a8 Statement 09232 @0x1578
0x07a8…07ac Statement 09224 @0x1559
0x07ac…07b0 Statement 09223 @0x1544
0x07b0…07b4 Statement 09222 @0x1533
0x07b4…07b8 Statement 09221 @0x151e
0x07b8…07bc Statement 09218 @0x1513
0x07bc…07c0 Statement 09217 @0x1503
0x07c0…07c4 Statement 09216 @0x14ff
0x07c4…07c8 Statement 09109 @0x14c0
0x07c8…07cc Statement 04485 @0x14bf
0x07cc…07d0 Statement 04480 @0x14bc
0x07d0…07d4 Statement 04469 @0x14ac
0x07d4…07d8 Statement 04464 @0x1484
0x07d8…07dc Statement 04453 @0x1474
0x07dc…07e0 Statement 04448 @0x146c
0x07e0…07e4 Statement 04437 @0x1437
0x07e4…07e8 Statement 04149 @0x1436
0x07e8…07ec Statement 04148 @0x1433
0x07ec…07f0 Statement 04133 @0x1423
0x07f0…07f4 Statement 04128 @0x1413
0x07f4…07f8 Statement 04117 @0x13ff
0x07f8…07fc Statement 04112 @0x13eb
0x07fc…0800 Statement 04101 @0x13e3
0x0800…0804 Statement 04096 @0x13c0
0x0804…0808 Statement 02405 @0x1390
0x0808…080c Statement 02400 @0x137b
0x080c…0810 Statement 02160 @0x137a
0x0810…0814 Statement 02149 @0x1377
0x0814…0818 Statement 02096 @0x133d
0x0818…081c Statement 02068 @0x1330
0x081c…0820 Statement 02064 @0x1323
0x0820…0824 Statement 02056 @0x1312
0x0824…0828 Statement 02053 @0x1307
0x0828…082c Statement 02048 @0x12fa
0x082c…0830 Statement 01941 @0x12c8
0x0830…0834 Statement 01925 @0x12c7
0x0834…0838 Statement 01920 @0x12c4
0x0838…083c Statement 01909 @0x12a4
0x083c…0840 Statement 01877 @0x1297
0x0840…0844 Statement 01872 @0x128e
0x0844…0848 Statement 01861 @0x125c
0x0848…084c Statement 01856 @0x125b
0x084c…0850 Statement 01845 @0x1248
0x0850…0854 Statement 01824 @0x123f
0x0854…0858 Statement 01813 @0x1231
0x0858…085c Statement 01808 @0x122b
0x085c…0860 Statement 01797 @0x11f5
0x0860…0864 Statement 01792 @0x11f4
0x0864…0868 Statement 01680 @0x11e7
0x0868…086c Statement 01574 @0x11da
0x086c…0870 Statement 01573 @0x11cd
0x0870…0874 Statement 01570 @0x11c0
0x0874…0878 Statement 01569 @0x11b3
0x0878…087c Statement 01568 @0x118b
0x087c…0880 Statement 01557 @0x1163
0x0880…0884 Statement 01552 @0x113b
0x0884…0888 Statement 01541 @0x1113
0x0888…088c Statement 01536 @0x110d
0x088c…0890 Statement 01429 @0x10e5
0x0890…0894 Statement 01424 @0x10c5
0x0894…0898 Statement 01413 @0x10c4
0x0898…089c Statement 01408 @0x10c1
0x089c…08a0 Statement 01397 @0x10af
0x08a0…08a4 Statement 01392 @0x10a8
0x08a4…08a8 Statement 01381 @0x109f
0x08a8…08ac Statement 01376 @0x109e
0x08ac…08b0 Statement 01365 @0x109b
0x08b0…08b4 Statement 01360 @0x1089
0x08b4…08b8 Statement 01349 @0x1082
0x08b8…08bc Statement 01344 @0x1079
0x08bc…08c0 Statement 01333 @0x1065
0x08c0…08c4 Statement 01328 @0x1051
0x08c4…08c8 Statement 01317 @0x103d
0x08c8…08cc Statement 01312 @0x100f
0x08cc…08d0 Statement 01301 @0x100e
0x08d0…08d4 Statement 01300 @0x100b
0x08d4…08d8 Statement 01298 @0xfff
0x08d8…08dc Statement 01296 @0xfd9
0x08dc…08e0 Statement 01288 @0xfce
0x08e0…08e4 Statement 01286 @0xfca
0x08e4…08e8 Statement 01284 @0xfc4
0x08e8…08ec Statement 01157 @0xfb4
0x08ec…08f0 Statement 01136 @0xfa9
0x08f0…08f4 Statement 01125 @0xf84
0x08f4…08f8 Statement 01120 @0xf79
0x08f8…08fc Statement 01109 @0xf49
0x08fc…0900 Statement 01104 @0xf3e
0x0900…0904 Statement 01093 @0xf16
0x0904…0908 Statement 01088 @0xf0b
0x0908…090c Statement 01077 @0xedd
0x090c…0910 Statement 01072 @0xed2
0x0910…0914 Statement 01061 @0xeab
0x0914…0918 Statement 01056 @0xea0
0x0918…091c Statement 01045 @0xe7c
0x091c…0920 Statement 01040 @0xe71
0x0920…0924 Statement 01029 @0xe4a
0x0924…0928 Statement 01024 @0xe3f
0x0928…092c Statement 00917 @0xe3d
0x092c…0930 Statement 00916 @0xe19
0x0930…0934 Statement 00914 @0xdf5
0x0934…0938 Statement 00913 @0xdbe
0x0938…093c Statement 00912 @0xdb3
0x093c…0940 Statement 00904 @0xdb1
0x0940…0944 Statement 00902 @0xdae
0x0944…0948 Statement 00901 @0xd79
0x0948…094c Statement 00832 @0xd78
0x094c…0950 Statement 00805 @0xd75
0x0950…0954 Statement 00789 @0xd50
0x0954…0958 Statement 00786 @0xd4e
0x0958…095c Statement 00784 @0xd4b
0x095c…0960 Statement 00773 @0xd45
0x0960…0964 Statement 00768 @0xd42
0x0964…0968 Statement 00640 @0xd31
0x0968…096c Statement 00629 @0xd2e
0x096c…0970 Statement 00624 @0xd1a
0x0970…0974 Statement 00613 @0xd06
0x0974…0978 Statement 00608 @0xcfc
0x0978…097c Statement 00597 @0xcf6
0x097c…0980 Statement 00592 @0xceb
0x0980…0984 Statement 00584 @0xcdc
0x0984…0988 Statement 00582 @0xcc5
0x0988…098c Statement 00581 @0xca8
0x098c…0990 Statement 00576 @0xca0
0x0990…0994 Statement 00560 @0xc98
0x0994…0998 Statement 00549 @0xc94
0x0998…099c Statement 00544 @0xc91
0x099c…09a0 Statement 00528 @0xc66
0x09a0…09a4 Statement 00336 @0xc65
0x09a4…09a8 Statement 00325 @0xc62
0x09a8…09ac Statement 00320 @0xc47
0x09ac…09b0 Statement 00309 @0xc27
0x09b0…09b4 Statement 00304 @0xc12
0x09b4…09b8 Statement 00293 @0xc0c
0x09b8…09bc Statement 00288 @0xbde
0x09bc…09c0 Statement 00277 @0xbb7
0x09c0…09c4 Statement 00272 @0xb87
0x09c4…09c8 Statement 00261 @0xb6f
0x09c8…09cc Statement 00256 @0xb4c
0x09cc…09d0 Statement 00117 @0xb40
0x09d0…09d4 Statement 00112 @0xb3b
0x09d4…09d8 Statement 00102 @0xb2e
0x09d8…09dc Statement 00086 @0xb21
0x09dc…09e0 Statement 00084 @0xb14
0x09e0…09e4 Statement 00082 @0xb07
0x09e4…09e8 Statement 00080 @0xafa
0x09e8…09ec Statement 00064 @0xaed
0x09ec…09f0 Statement 00048 @0xae2
0x09f0…09f4 Statement 00037 @0xad3
0x09f4…09f8 Statement 00021 @0xac5
0x09f8…09fc Statement 00016 @0xaa2
0x09fc…0a00 Statement 00009 @0xa9d
0x0a00…0a04 Statement 00008 @0xa8c
0x0a04…0a08 Statement 00007 @0xa72
0x0a08…0a0c Statement 00006 @0xa5c
0x0a0c…0a10 Statement 00005 @0xa40
0x0a10…0a14 Statement 00002 @0xa32
0x0a14…0a18 Statement 00001 @0xa18
0x0a18…0a32 0001 COM ELEMENT var(B$) ( 8 ) [] ELEMENT var(T0$) ( 8 ) [] ELEMENT var(T1$) ( 8 ) [] ELEMENT var(T$) ( 20 ) [] EOS
0x0a32…0a40 0002 COM ELEMENT var(A$) ( 1 ) [] ELEMENT var(C$) ( 1 ) [] EOS
0x0a40…0a5c 0005 COM ELEMENT var(N1$) ( 20 ) [] ELEMENT var(N2$) ( 20 ) [] ELEMENT var(N3$) ( 20 ) [] ELEMENT var(T9$) ( %80 ) [] EOS
0x0a5c…0a72 0006 COM ELEMENT var(P$) ( 8 ) [] ELEMENT var(Q$) ( 8 ) [] ELEMENT var(Z$) ( %70 ) [] EOS
0x0a72…0a8c 0007 COM ELEMENT var(P') ( 5 ) [] ELEMENT var(Q') ( 5 ) [] ELEMENT var(X1') ( 5 ) [] ELEMENT var(Y1') ( 5 ) [] EOS
0x0a8c…0a9d 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
0x0a9d…0aa2 0009 COM var(M0) var(M9%) var(D9) EOS
0x0aa2…0ac5 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
0x0ac5…0ad3 0015 DIM ELEMENT var(S$) ( 1 ) [] ELEMENT var(Q9$) ( 6 ) [] EOS
0x0ad3…0ae2 0025 SYSTEM »LINELEN« COMMA %80 EOS
0x0ae2…0aed 0030 SYSTEM »WARNOFF« EOS
0x0aed…0afa 0040 SYSTEM »BUFFERS« COMMA 4 EOS
0x0afa…0b07 0050 LET var(S0) COMMA 20000 EOS
0x0b07…0b14 0052 LET var(X7) COMMA 2600 EOS
0x0b14…0b21 0054 LET var(Y7) COMMA 2800 EOS
0x0b21…0b2e 0056 LET var(V1) COMMA 270 EOS
0x0b2e…0b3b 0066 LET var(P1) COMMA 3.14159 EOS
0x0b3b…0b40 0070 LET var(H1) COMMA 3 EOS
0x0b40…0b4c 0075 LET var(Q9$) COMMA »000000« EOS
0x0b4c…0b6f 0100 REM ****** SCREEN-HANDLER ********
0x0b6f…0b87 0105 REM C1%=1 ERASE SCREEN
0x0b87…0bb7 0110 REM 2 CURSOR ADRESSING TO LINE C2%,POS C3%
0x0bb7…0bde 0115 REM 3 ERASE LINE C2% FROM POS C3%
0x0bde…0c0c 0120 REM 4 ERASE SCREEN FROM LINE C2% POS C3%
0x0c0c…0c12 0125 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x0c12…0c27 0130 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af71736f450074afe2f2f3
0x0c27…0c47 0135 PRINT = ( 27 ) → af71736f460074afe271731f68e274afe271731f69e274afe2f2f3
0x0c47…0c62 0140 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → af71736f4e0067e374afe2f2f3
0x0c62…0c65 0145 RETURN 1 EOS
0x0c65…0c66 0150 FNEND
0x0c66…0c91 0210 REM READ TOP OF SORTFILE *****************
0x0c91…0c94 0220 DEF var(FNW%) EOS
0x0c94…0c98 0225 TRAP ERR 0305
0x0c98…0ca0 0230 LINPUT 1# COMMA 0 SEMI var(T9$) EOS
0x0ca0…0ca8 0240 LINPUT 1# COMMA 1 SEMI var(X$) EOS
0x0ca8…0cc5 0245 LET var(M0) COMMA = ( ELEMENT var(X$) ( 14 20 ) [] ) VAL COMMA var(V0) COMMA = ( ELEMENT var(X$) ( 1 13 ) [] ) VAL EOS
0x0cc5…0cdc 0246 LET var(V0) COMMA var(V0) ( = ( var(V0) ) ?ABS 1e-06 > ) MULT EOS
0x0cdc…0ceb 0248 LET var(V0) COMMA var(V0) 2 var(P1) MULT ( var(V0) 0 ?< ) MULT PLUS EOS
0x0ceb…0cf6 0250 LET var(W$) COMMA ELEMENT var(X$) ( 21 21 ) [] EOS
0x0cf6…0cfc 0255 196b01f105f3
0x0cfc…0d06 0260 LINPUT 1# COMMA var(I%) 1 PLUS SEMI var(X$) EOS
0x0d06…0d1a 0265 LET ELEMENT var(X1') ( var(I%) ) [] COMMA = ( ELEMENT var(X$) ( 32 43 ) [] ) VAL EOS
0x0d1a…0d2e 0270 LET ELEMENT var(Y1') ( var(I%) ) [] COMMA = ( ELEMENT var(X$) ( 20 31 ) [] ) VAL EOS
0x0d2e…0d31 0275 1a6bf3
0x0d31…0d42 0280 LET var(W8) COMMA = ( var(V0) ) → a9f15bf171735674a8f3
0x0d42…0d45 0300 RETURN 1 EOS
0x0d45…0d4b 0305 REM C
0x0d4b…0d4e 0310 TRAP ERR OFF
0x0d4e…0d50 0312 PRINT EOS
0x0d50…0d75 0315 PRINT »FEIL VED INPUT-FIL,KAN IKKE LESES« EOS
0x0d75…0d78 0325 RETURN 0 EOS
0x0d78…0d79 0340 FNEND
0x0d79…0dae 0385 REM ********* DISPLAY AND ACCEPT MENU CHOICE *******
0x0dae…0db1 0386 DEF var(FNM9%) EOS
0x0db1…0db3 0388 PRINT EOS
0x0db3…0dbe 0390 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x0dbe…0df5 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
0x0df5…0e19 0392 PRINT » *** SORTERT INPUTFIL : « SEMI var(N1$) EOS
0x0e19…0e3d 0394 PRINT » *** PARAMETER-FIL : « SEMI var(N2$) EOS
0x0e3d…0e3f 0395 PRINT EOS
0x0e3f…0e4a 0400 LET var(X%) COMMA = ( 2 6 5 ) var(FNC%) EOS
0x0e4a…0e71 0405 PRINT »1 ==> ANGIVELSE AV SORTERT INPUTFIL« EOS
0x0e71…0e7c 0410 LET var(X%) COMMA = ( 2 7 5 ) var(FNC%) EOS
0x0e7c…0ea0 0415 PRINT »2 ==> ANGIVELSE AV PARAMETER-FIL« EOS
0x0ea0…0eab 0420 LET var(X%) COMMA = ( 2 8 5 ) var(FNC%) EOS
0x0eab…0ed2 0425 PRINT »3 ==> INITIALISERING AV SORTERT FIL« EOS
0x0ed2…0edd 0430 LET var(X%) COMMA = ( 2 9 5 ) var(FNC%) EOS
0x0edd…0f0b 0435 PRINT »4 ==> KONTROLL AV PARAMETERFIL (VALGFRITT)« EOS
0x0f0b…0f16 0440 LET var(X%) COMMA = ( 2 10 5 ) var(FNC%) EOS
0x0f16…0f3e 0445 PRINT »5 ==> PROSESSERING AV PLATEPARAMETRE« EOS
0x0f3e…0f49 0450 LET var(X%) COMMA = ( 2 11 5 ) var(FNC%) EOS
0x0f49…0f79 0455 PRINT »6 ==> SEKVENSIELL UTTEGNING AV SAMTLIGE TEMA« EOS
0x0f79…0f84 0460 LET var(X%) COMMA = ( 2 12 5 ) var(FNC%) EOS
0x0f84…0fa9 0465 PRINT »7 ==> TEGNING AV SPESIFISERT TEMA« EOS
0x0fa9…0fb4 0470 LET var(X%) COMMA = ( 2 13 5 ) var(FNC%) EOS
0x0fb4…0fc4 0485 PRINT »8 ==> UTGANG« EOS
0x0fc4…0fca 0504 REM C
0x0fca…0fce 0506 TRAP ERR 0504
0x0fce…0fd9 0508 LET var(X%) COMMA = ( 2 20 5 ) var(FNC%) EOS
0x0fd9…0fff 0510 INPUT »HVA SKAL GJ0RES ? GI KOMMANDO : « COMMA var(X%) EOS
0x0fff…100b 0512 IF var(X%) 1 ?< var(X%) 8 > OR COMMA 0 4 5
0x100b…100e 0514 RETURN var(X%) EOS
0x100e…100f 0515 FNEND
0x100f…103d 0520 REM *********** COMPUTE INTERSECTION ********
0x103d…1051 0525 DEF var(FNS%) var(X1) var(Y1) var(X2) var(Y2) var(A1) var(B1) var(A2) var(B2) EOS
0x1051…1065 0530 LET var(Q1) COMMA ( var(X2) var(X1) SUB2 ) ( var(Y2) var(Y1) SUB2 ) DIV EOS
0x1065…1079 0535 LET var(Q2) COMMA ( var(A2) var(A1) SUB2 ) ( var(B2) var(B1) SUB2 ) DIV EOS
0x1079…1082 0540 IF var(Y2) var(Y1) EQ COMMA 34 EOS
0x1082…1089 0545 LET var(Y5) COMMA var(Y1) EOS
0x1089…109b 0550 LET var(X5) COMMA var(A1) var(Q2) ( var(Y1) var(B1) SUB2 ) MULT PLUS EOS
0x109b…109e 0555 GOTO 0 6
0x109e…109f 0560 DOEND
0x109f…10a8 0565 IF var(B2) var(B1) EQ COMMA 34 EOS
0x10a8…10af 0570 LET var(Y5) COMMA var(B1) EOS
0x10af…10c1 0575 LET var(X5) COMMA var(X1) var(Q1) ( var(Y1) var(B1) SUB2 ) MULT SUB2 EOS
0x10c1…10c4 0580 GOTO 0 6
0x10c4…10c5 0585 DOEND
0x10c5…10e5 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
0x10e5…110d 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
0x110d…1113 0600 REM C
0x1113…113b 0605 LET var(A%) COMMA ( ( var(X2) var(X5) → eb74734001400ce974ed7473734001400ceb74734003400ce974ed74eef3
0x113b…1163 0610 LET var(B%) COMMA ( ( var(Y2) var(Y5) → eb74734002400be974ed7473734002400beb74734004400be974ed74eef3
0x1163…118b 0615 LET var(C%) COMMA ( ( var(A2) var(X5) → eb74734005400ce974ed7473734005400ceb74734007400ce974ed74eef3
0x118b…11b3 0620 LET var(D%) COMMA ( ( var(B2) var(Y5) → eb74734006400be974ed7473734006400beb74734008400be974ed74eef3
0x11b3…11c0 0621 IF var(X1) var(X2) EQ COMMA 27 var(A%) COMMA 1 EOS
0x11c0…11cd 0622 IF var(Y1) var(Y2) EQ COMMA 27 var(B%) COMMA 1 EOS
0x11cd…11da 0625 IF var(A2) var(A1) EQ COMMA 27 var(C%) COMMA 1 EOS
0x11da…11e7 0626 IF var(B1) var(B2) EQ COMMA 27 var(D%) COMMA 1 EOS
0x11e7…11f4 0690 RETURN var(A%) var(B%) AND var(C%) AND var(D%) AND EOS
0x11f4…11f5 0700 FNEND
0x11f5…122b 0705 REM ********** VALUE TO STRING CONVERSION ***********
0x122b…1231 0710 DEF var(FNX$) var(X) EOS
0x1231…123f 0715 LET var(P$) COMMA = ( = ( var(X) ) → a174b0f3
0x123f…1248 0720 LET var(X%) COMMA = ( var(P$) ) LEN EOS
0x1248…125b 0735 RETURN ELEMENT var(Q9$) ( 1 6 var(X%) SUB2 ) [] ELEMENT var(P$) ( 1 var(X%) ) [] PLUS EOS
0x125b…125c 0740 FNEND
0x125c…128e 0745 REM ************ PLOT COORDINATE ****************
0x128e…1297 0750 DEF var(FNP%) var(X1) var(Y1) var(S$) EOS
0x1297…12a4 0755 LET var(X%) COMMA = ( var(X1) var(Y1) ) var(FNZ%) EOS
0x12a4…12c4 0775 PRINT 5# SEMI ELEMENT var(S$) ( 1 1 ) [] = ( var(Y3) ) var(FNX$) PLUS »,« PLUS = ( var(X3) ) var(FNX$) PLUS EOS
0x12c4…12c7 0780 RETURN 1 EOS
0x12c7…12c8 0785 FNEND
0x12c8…12fa 0795 REM ********** OUTPUT STRING OR SYMBOL *********
0x12fa…1307 0800 DEF var(FNX%) var(X) var(Y) var(H) var(V) var(X$) EOS
0x1307…1312 0805 LET var(V) COMMA var(V) %100 MULT EOS
0x1312…1323 0808 LET var(H) COMMA var(H) 3.333 MULT EOS
0x1323…1330 0810 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x1330…133d 0814 LET var(X) COMMA var(X3) COMMA var(Y) COMMA var(Y3) EOS
0x133d…1377 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
0x1377…137a 0865 RETURN 1 EOS
0x137a…137b 0870 FNEND
0x137b…1390 0960 REM COMPUTE DISTANCE
0x1390…13c0 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
0x13c0…13e3 1000 REM ******* COMPUTE PLOTTING-UNITS
0x13e3…13eb 1005 DEF var(FNZ%) var(X) var(Y) EOS
0x13eb…13ff 1010 LET var(Q1) COMMA var(S0) ( var(X) ELEMENT var(X1') ( 1 ) [] SUB2 ) MULT var(M0) DIV EOS
0x13ff…1413 1015 LET var(Q2) COMMA var(S0) ( var(Y) ELEMENT var(Y1') ( 1 ) [] SUB2 ) MULT var(M0) DIV EOS
0x1413…1423 1020 LET var(X3) COMMA var(X7) var(Q1) var(W9) MULT PLUS var(Q2) var(W8) MULT SUB2 EOS
0x1423…1433 1025 LET var(Y3) COMMA var(Y7) var(Q2) var(W9) MULT PLUS var(Q1) var(W8) MULT PLUS EOS
0x1433…1436 1034 RETURN 1 EOS
0x1436…1437 1035 FNEND
0x1437…146c 1155 REM ************** PLOT SINGLE POINT ***************
0x146c…1474 1160 DEF var(FNQ%) var(X) var(Y) EOS
0x1474…1484 1165 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x1484…14ac 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
0x14ac…14bc 1175 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x14bc…14bf 1180 RETURN 1 EOS
0x14bf…14c0 1185 FNEND
0x14c0…14ff 2395 REM ********* CORNEWR VALUES FOR STANDARD SYSTEM *************
0x14ff…1503 2400 DEF var(FNW7%) EOS
0x1503…1513 2401 LET var(D) COMMA 0.015 var(M0) MULT EOS
0x1513…151e 2402 LET var(H) COMMA 2 COMMA var(V) COMMA 0 EOS
0x151e…1533 2405 LET var(U9) COMMA ELEMENT var(X1') ( 2 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 2 ) [] EOS
0x1533…1544 2406 IF var(W$) »U« EQ COMMA 27 var(V9) COMMA var(V9) var(D) SUB2 EOS
0x1544…1559 2407 LET var(X$) COMMA »X = « = ( ELEMENT var(X1') ( 2 ) [] ) → b0e2f3
0x1559…1578 2408 LET var(V9) COMMA var(V9) ( = ( var(X$) ) LEN 4 PLUS ) 2 MULT var(M0) MULT 1000 DIV SUB2 EOS
0x1578…158a 2410 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x158a…159f 2412 LET var(U9) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x159f…15b0 2413 IF var(W$) »U« EQ COMMA 27 var(V9) COMMA var(V9) var(D) SUB2 EOS
0x15b0…15c5 2415 LET var(X$) COMMA »X = « = ( ELEMENT var(X1') ( 1 ) [] ) → b0e2f3
0x15c5…15e4 2418 LET var(V9) COMMA var(V9) ( = ( var(X$) ) LEN 4 PLUS ) 2 MULT var(M0) MULT 1000 DIV SUB2 EOS
0x15e4…15f6 2420 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x15f6…15fc 2425 LET var(V) COMMA var(V1) EOS
0x15fc…1611 2430 LET var(U9) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x1611…1622 2438 IF var(W$) »U« EQ COMMA 27 var(U9) COMMA var(U9) var(D) SUB2 EOS
0x1622…163b 2439 LET var(X$) COMMA » Y = « = ( ELEMENT var(Y1') ( 1 ) [] ) → b0e2f3
0x163b…164d 2440 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x164d…1662 2442 LET var(U9) COMMA ELEMENT var(X1') ( 4 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 4 ) [] EOS
0x1662…1673 2444 IF var(W$) »U« EQ COMMA 27 var(U9) COMMA var(U9) var(D) SUB2 EOS
0x1673…168c 2445 LET var(X$) COMMA » Y = « = ( ELEMENT var(Y1') ( 4 ) [] ) → b0e2f3
0x168c…169e 2450 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x169e…16a1 2575 RETURN 1 EOS
0x16a1…16a2 2580 FNEND
0x16a2…16d4 2595 REM ******** COMPUTE TEXTBOX ********************
0x16d4…16d8 2600 DEF var(FNW8%) EOS
0x16d8…170d 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
0x170d…1736 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
0x1736…175f 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
0x175f…177c 2620 LET ELEMENT var(P') ( 2 ) [] COMMA ELEMENT var(P') ( 3 ) [] COMMA ELEMENT var(Q') ( 2 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x177c…1799 2625 LET ELEMENT var(P') ( 5 ) [] COMMA ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(Q') ( 5 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x1799…179c 2630 GOSUB 0 → 80
0x179c…179f 2690 RETURN 1 EOS
0x179f…17a0 2695 FNEND
0x17a0…17a6 2700 DEF var(FNW9%) var(Q) EOS
0x17a6…17d7 2705 REM *********** FRAME CORRECTION ***************
0x17d7…17fa 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
0x17fa…181d 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
0x181d…1840 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
0x1840…1863 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
0x1863…1880 2735 LET ELEMENT var(P') ( 5 ) [] COMMA ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(Q') ( 5 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x1880…1883 2790 RETURN 1 EOS
0x1883…1884 2800 FNEND
0x1884…18aa 2850 REM ******* MAIN PROGRAM ************
0x18aa…18ae 2852 TRAP ERR 2855
0x18ae…18be 2854 IF var(M9%) 999 EQ COMMA 0 16 41
0x18be…18c9 2855 LET var(X%) COMMA = ( 1 5 1 ) var(FNC%) EOS
0x18c9…18cc 2858 TRAP ERR OFF
0x18cc…1904 2860 PRINT »PLASSER PENNEN I 0NSKET ORIGO I NEDRE VENSTRE HJ0RNE« EOS
0x1904…1928 2865 LINPUT »TRYKK DERETTER RETURN FOR MENY« COMMA var(X$) EOS
0x1928…1934 2870 1605f27006245445524d33f3
0x1934…193c 2875 PRINT 5# SEMI »R« EOS
0x193c…1951 2880 LET var(T$) COMMA »« COMMA var(N1$) COMMA »« COMMA var(N2$) COMMA »« COMMA var(N3$) COMMA »« EOS
0x1951…1962 2910 REM NEXT COMMAND
0x1962…1968 2912 LET var(X%) COMMA = → b7f3
0x1968…196b 2914 TRAP ERR OFF
0x196b…1971 2915 LET var(X%) COMMA = var(FNM9%) EOS
0x1971…1979 2920 IF var(X%) 1 EQ COMMA 1 var(S)
0x1979…1982 2930 ELSE 3 var(X%) 2 EQ COMMA 1 48 49
0x1982…198b 2940 ELSE 3 var(X%) 3 EQ COMMA 1 → 9031
0x198b…1994 2950 ELSE 3 var(X%) 4 EQ COMMA 1 53 52
0x1994…199d 2960 ELSE 3 var(X%) 5 EQ COMMA 1 0 54
0x199d…19a6 2970 ELSE 3 var(X%) 6 EQ COMMA 1 0 → 95
0x19a6…19af 2980 ELSE 3 var(X%) 7 EQ COMMA 0 16 41
0x19af…19b8 2990 ELSE 3 var(X%) 8 EQ COMMA 0 0 → 96
0x19b8…19bb 3005 GOTO 16 41
0x19bb…19ed 3040 REM *** OPEN AND READ TOP OF SORT FILE ********
0x19ed…19f8 3045 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x19f8…19fe 3050 LET var(T$) COMMA »« EOS
0x19fe…1a04 3070 REM C
0x1a04…1a06 3075 PRINT EOS
0x1a06…1a2f 3080 INPUT »>OPPGI SORTERT FIL (RETURN=MENY) : « COMMA var(N1$) EOS
0x1a2f…1a37 3082 IF var(N1$) »« EQ COMMA 5 EOS
0x1a37…1a4f 3085 1601f247700e3b4143433d494e3b5245433d3532e2f16df3
0x1a4f…1a56 3090 IF var(X%) 0 <> COMMA 34 EOS
0x1a56…1a58 3095 PRINT EOS
0x1a58…1a7f 3100 PRINT »ULOVLIG ELLER IKKE-EKSISTERENDE FIL« EOS
0x1a7f…1a82 3115 GOTO »\x08\x03qj\xef\xf1\x00p0\x05\xf3\x0bp# **** OPEN PARAMETERFILE *********«
0x1a82…1a83 3120 DOEND
0x1a83…1a8b 3122 IF = var(FNW%) → eff1007030
0x1a8b…1a8d 3125 RETURN EOS
0x1a8d…1ab3 3130 REM **** OPEN PARAMETERFILE *********
0x1ab3…1abe 3132 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1abe…1ac2 3135 REM
0x1ac2…1ac4 3137 PRINT EOS
0x1ac4…1ac7 3140 1403f3
0x1ac7…1af3 3145 INPUT »>OPPGI PARAMETERFIL (RETURN=UTGANG) : « COMMA var(N2$) EOS
0x1af3…1afb 3147 IF var(N2$) »« EQ COMMA 5 EOS
0x1afb…1b0c 3150 1603f24870073b4143433d494ee2f16df3
0x1b0c…1b13 3155 IF var(X%) 0 <> COMMA 34 EOS
0x1b13…1b15 3157 PRINT EOS
0x1b15…1b36 3160 PRINT = ( 7 ) → aff270173e46494c454e20454b534953544552455220494b4b452ef3
0x1b36…1b39 3162 GOTO 53 49
0x1b39…1b3a 3164 DOEND
0x1b3a…1b3e 3166 TRAP ERR 3178
0x1b3e…1b44 3168 LINPUT 3# SEMI var(X$) EOS
0x1b44…1b4f 3170 LET var(A$) COMMA ELEMENT var(X$) ( 1 1 ) [] EOS
0x1b4f…1b5e 3172 LET var(D9) COMMA = ( ELEMENT var(X$) ( 2 3 ) [] ) VAL EOS
0x1b5e…1b69 3174 LET var(C$) COMMA ELEMENT var(X$) ( 4 4 ) [] EOS
0x1b69…1b6b 3176 RETURN EOS
0x1b6b…1b71 3178 REM C
0x1b71…1b73 3180 PRINT EOS
0x1b73…1b76 3181 TRAP ERR OFF
0x1b76…1b9f 3182 PRINT »>FEIL VED PARAMETERFIL.KAN IKKE LESES« EOS
0x1b9f…1ba2 3184 GOTO 53 49
0x1ba2…1bd3 3190 REM ********** INITIALIZE INPUTFILES ***********
0x1bd3…1bde 3192 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1bde…1be6 3193 IF var(N1$) »« EQ COMMA 34 EOS
0x1be6…1c16 3194 LINPUT »SORTERT INPUTFIL IKKE OPPGITT.TRYKK RETURN« COMMA var(X$) EOS
0x1c16…1c18 3196 RETURN EOS
0x1c18…1c19 3197 DOEND
0x1c19…1c1d 3199 TRAP ERR 3340
0x1c1d…1c2d 3200 LET var(T$) COMMA »TABELL.DTA« EOS
0x1c2d…1c30 3202 1402f3
0x1c30…1c35 3204 1e44f16df3
0x1c35…1c4d 3205 1602f244700e3b5245433d31323b524c3d353132e2f16df3
0x1c4d…1c74 3206 PRINT »>INITIALISERING AV SORTERT INPUTFIL« EOS
0x1c74…1c79 3210 LET var(I%) COMMA 7 EOS
0x1c79…1c7f 3215 LET var(J%) COMMA 0 EOS
0x1c7f…1c87 3220 LINPUT 1# COMMA var(I%) SEMI var(X$) EOS
0x1c87…1c98 3225 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 12 19 ) [] EOS
0x1c98…1c9e 3230 LET var(I1%) COMMA var(I%) EOS
0x1c9e…1ca4 3235 LET var(I2%) COMMA var(I%) EOS
0x1ca4…1caa 3240 REM C
0x1caa…1cb1 3245 LET var(I%) COMMA var(I%) 1 PLUS EOS
0x1cb1…1cb9 3250 LINPUT 1# COMMA var(I%) SEMI var(X$) EOS
0x1cb9…1cc3 3255 IF = ( 1 ) → b1f1000533
0x1cc3…1cd0 3260 IF var(Q$) ELEMENT var(X$) ( 12 19 ) [] <> COMMA 34 EOS
0x1cd0…1ce5 3265 13f402f14024f2724c730108749ff14025f14026f3
0x1ce5…1cf6 3270 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 12 19 ) [] EOS
0x1cf6…1cfc 3275 LET var(I1%) COMMA var(I%) EOS
0x1cfc…1d02 3280 LET var(I2%) COMMA var(I%) EOS
0x1d02…1d0b 3285 LET var(J%) COMMA var(J%) 1 PLUS EOS
0x1d0b…1d0c 3290 DOEND
0x1d0c…1d13 3295 ELSE 27 var(I2%) COMMA var(I%) EOS
0x1d13…1d16 3300 GOTO var(A0x32)
0x1d16…1d1c 3305 REM C
0x1d1c…1d31 3310 13f402f14024f2724c730108749ff14025f14026f3
0x1d31…1d36 3315 PRINT 2# SEMI EOS
0x1d36…1d3d 3320 LET var(N2%) COMMA var(J%) EOS
0x1d3d…1d3f 3330 RETURN EOS
0x1d3f…1d45 3340 REM C
0x1d45…1d48 3350 TRAP ERR OFF
0x1d48…1d6a 3360 PRINT »>FEIL I SORT-FIL I LINJE NR « SEMI var(I%) EOS
0x1d6a…1d86 3370 LINPUT »>TRYKK RETURN FOR MENY« COMMA var(X$) EOS
0x1d86…1d88 3430 RETURN EOS
0x1d88…1daf 3435 REM ******* CHECK PAR.FIL ************
0x1daf…1dba 3436 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1dba…1de3 3438 IF var(T$) »« EQ COMMA 15 »INPUTFILEN ER IKKE INITIALISERT« EOS
0x1de3…1e09 3440 IF var(N2$) »« EQ COMMA 15 »PARAMETERFIL ER IKKE OPPGITT« EOS
0x1e09…1e16 3441 IF var(T$) »« EQ var(N2$) »« EQ OR COMMA 34 EOS
0x1e16…1e29 3442 LINPUT »>TRYKK RETURN« COMMA var(X$) EOS
0x1e29…1e2b 3443 RETURN EOS
0x1e2b…1e2c 3444 DOEND
0x1e2c…1e60 3445 PRINT »>PARAMETER FILEN KONTROLLERES FOR MANGLENDE TEMA« EOS
0x1e60…1e74 3450 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA »DUMMY-XX« EOS
0x1e74…1e7a 3452 LET var(F%) COMMA 1 EOS
0x1e7a…1e81 3455 196b00f14027f3
0x1e81…1e85 3460 RESTORE 3# EOS
0x1e85…1e96 3470 LET ELEMENT var(P$) ( 1 8 ) [] COMMA ELEMENT var(Q$) ( 1 8 ) [] EOS
0x1e96…1ea2 3475 READ 2# COMMA var(I%) SEMI var(Q$) var(I1%) var(I2%) EOS
0x1ea2…1eb6 3480 IF ELEMENT var(Q$) ( 1 8 ) [] ELEMENT var(P$) ( 1 8 ) [] EQ COMMA 0 53 53
0x1eb6…1ebf 3490 REM CONT
0x1ebf…1ec5 3495 LINPUT 3# SEMI var(X$) EOS
0x1ec5…1ecf 3500 IF = ( 3 ) → b1f1002035
0x1ecf…1edb 3502 IF = ( var(X$) ) LEN 0 EQ COMMA 0 32 53
0x1edb…1eef 3505 IF ELEMENT var(Q$) ( 1 8 ) [] ELEMENT var(X$) ( 1 8 ) [] EQ COMMA 0 53 53
0x1eef…1ef3 3515 ELSE 0 → 9034
0x1ef3…1efc 3520 REM CONT
0x1efc…1f16 3525 PRINT »>UKJENT TEMA-KODE : « COMMA var(Q$) EOS
0x1f16…1f3a 3527 LINPUT »>TRYKK RETURN FOR AA FORTSETTE« COMMA var(X$) EOS
0x1f3a…1f40 3530 LET var(F%) COMMA 0 EOS
0x1f40…1f46 3535 REM C
0x1f46…1f49 3540 1a6bf3
0x1f49…1f4b 3570 RETURN EOS
0x1f4b…1f74 3600 REM *********** DRAW FRAME *************
0x1f74…1f78 3602 TRAP ESC 4850
0x1f78…1f83 3605 LET var(X%) COMMA = ( 1 1 5 ) var(FNC%) EOS
0x1f83…1fa5 3610 PRINT »PROSESSERING AV PLATEPARAMETRE« EOS
0x1fa5…1fb0 3612 LET var(X%) COMMA = ( 2 2 5 ) var(FNC%) EOS
0x1fb0…1fcc 3614 PRINT »TRYKK ESCAPE FOR AVBRUDD« EOS
0x1fcc…1fd4 3615 IF var(N1$) »« EQ COMMA 34 EOS
0x1fd4…1fdf 3620 LET var(X%) COMMA = ( 2 5 5 ) var(FNC%) EOS
0x1fdf…200a 3625 LINPUT »SORTERT FIL IKKE OPPGITT.TRYKK RETURN« COMMA var(X$) EOS
0x200a…200c 3626 RETURN EOS
0x200c…200d 3628 DOEND
0x200d…2015 3630 IF var(N2$) »« EQ COMMA 34 EOS
0x2015…2020 3631 LET var(X%) COMMA = ( 2 6 5 ) var(FNC%) EOS
0x2020…204d 3632 LINPUT »PARAMETER-FIL IKKE OPPGITT.TRYKK RETURN« COMMA var(X$) EOS
0x204d…204f 3633 RETURN EOS
0x204f…2050 3634 DOEND
0x2050…2052 3635 PRINT EOS
0x2052…205b 3636 IF var(A$) »R« EQ COMMA 34 EOS
0x205b…2070 3640 PRINT »>TEGNING AV RAMME« EOS
0x2070…2076 3690 196b01f105f3
0x2076…2093 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
0x2093…2096 3710 1a6bf3
0x2096…20b1 3715 IF var(W$) »U« EQ COMMA 27 var(X%) COMMA = ( 0.015 var(M0) MULT ) var(FNW9%) EOS
0x20b1…20b4 3720 GOSUB 0 → 80
0x20b4…20b5 3795 DOEND
0x20b5…20e3 3800 REM ********** DRAW GRID OR GRIDCROSSES *****
0x20e3…20fc 3810 IF var(D9) 0 EQ COMMA 15 »>RUTENETT TEGNES« EOS
0x20fc…2117 3820 ELSE 15 »>RUTENETTSKRYSS TEGNES« EOS
0x2117…2126 3942 IF var(V0) var(P1) 3 MULT 2 DIV > COMMA 27 var(K%) COMMA 3 EOS
0x2126…2132 3944 ELSE 3 var(V0) var(P1) > COMMA 27 var(K%) COMMA 2 EOS
0x2132…2140 3946 ELSE 3 var(V0) var(P1) 2 DIV > COMMA 27 var(K%) COMMA 1 EOS
0x2140…2147 3948 ELSE 27 var(K%) COMMA 0 EOS
0x2147…214d 3970 196b01f105f3
0x214d…2156 3975 LET var(J%) COMMA var(I%) var(K%) PLUS EOS
0x2156…2165 3980 IF var(J%) 4 > COMMA 27 var(J%) COMMA var(J%) 4 SUB2 EOS
0x2165…2175 3985 LET ELEMENT var(P') ( var(I%) ) [] COMMA ELEMENT var(X1') ( var(J%) ) [] EOS
0x2175…2185 3990 LET ELEMENT var(Q') ( var(I%) ) [] COMMA ELEMENT var(Y1') ( var(J%) ) [] EOS
0x2185…2188 4000 1a6bf3
0x2188…218f 4060 IF var(V0) 0 EQ COMMA 34 EOS
0x218f…21aa 4065 IF var(W$) »U« EQ COMMA 27 var(X%) COMMA = ( 0.015 var(M0) MULT ) var(FNW9%) EOS
0x21aa…21c3 4070 IF var(A$) »R« <> COMMA 27 var(X%) COMMA = ( 0.1 ) var(FNW9%) EOS
0x21c3…21d6 4080 ELSE 27 var(X%) COMMA = ( -0.1 ) var(FNW9%) EOS
0x21d6…21d7 4090 DOEND
0x21d7…21e5 4095 LET var(V2) COMMA var(V1) var(V0) %180 MULT var(P1) DIV SUB2 EOS
0x21e5…21fc 4100 IF var(V2) 0 ?< COMMA 27 var(V2) COMMA var(V2) 360 PLUS EOS
0x21fc…220c 4105 LET var(D) COMMA 0.1 var(M0) MULT EOS
0x220c…2224 4110 LET var(X) COMMA = ( ELEMENT var(P') ( 1 ) [] var(D) DIV ) → a1401ee4401ee2f3
0x2224…2239 4120 IF var(X) ELEMENT var(P') ( 1 ) [] → e9f11b4012f14012401ee2f3
0x2239…2251 4130 LET var(Y) COMMA = ( ELEMENT var(Q') ( 2 ) [] var(D) DIV ) → a1401ee4401ee2f3
0x2251…2266 4140 IF var(Y) ELEMENT var(Q') ( 2 ) [] → e9f11b4018f14018401ee2f3
0x2266…226c 4150 REM C
0x226c…2277 4160 IF var(V0) 0 EQ var(D9) 0 <> AND COMMA 34 EOS
0x2277…228a 4170 IF var(X) var(D) 2 DIV SUB2 ELEMENT var(P') ( 1 ) [] ?< COMMA 0 → 9042
0x228a…22a4 4180 IF var(X) ELEMENT var(P') ( 1 ) [] SUB2 0.075 var(M0) MULT > COMMA 0 → 9042
0x22a4…22b0 4190 LET var(X) COMMA var(X) var(D) 2 DIV SUB2 EOS
0x22b0…22b7 4200 LET var(Z) COMMA var(Y) EOS
0x22b7…22bd 4210 REM C
0x22bd…22cb 4220 IF var(Z) ELEMENT var(Q') ( 4 ) [] > COMMA 0 var(P0$) var(T0$)
0x22cb…22ec 4230 LET var(X%) COMMA = ( var(X) var(Z) var(D9) 1.5 MULT var(V2) = ( %115 ) → af744017f3
0x22ec…22f6 4240 LET var(Z) COMMA var(Z) var(D) PLUS EOS
0x22f6…22f9 4250 GOTO 16 var(T0$)
0x22f9…22ff 4260 REM C
0x22ff…230b 4270 LET var(X) COMMA var(X) var(D) 2 DIV PLUS EOS
0x230b…230c 4280 DOEND
0x230c…2312 4290 REM C
0x2312…2320 4300 IF var(X) ELEMENT var(P') ( 3 ) [] → ebf1006045
0x2320…2357 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
0x2357…2392 4320 IF var(X%) → eff11b6df17173724e7302749f724f7302749f724e7303749f724f7303749f40126e088888888800008940126e8999999999000089744000f3
0x2392…23a2 4330 IF var(X%) COMMA 27 var(A) COMMA var(X5) COMMA var(B) COMMA var(Y5) EOS
0x23a2…23a6 4340 ELSE 0 32 var(A$)
0x23a6…23dd 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
0x23dd…2418 4360 IF var(X%) → eff11b6df17173724e7304749f724f7304749f724e7303749f724f7303749f40126e088888888800008940126e8999999999000089744000f3
0x2418…2425 4370 LET var(E) COMMA var(X5) COMMA var(F) COMMA var(Y5) EOS
0x2425…242c 4380 IF var(D9) 0 EQ COMMA 34 EOS
0x242c…243c 4390 LET var(X%) COMMA = ( var(A) var(B) »U« ) var(FNP%) EOS
0x243c…244c 4400 LET var(X%) COMMA = ( var(E) var(F) »D« ) var(FNP%) EOS
0x244c…244d 4410 DOEND
0x244d…2450 4420 ELSE 34 EOS
0x2450…2464 4430 LET var(Z) COMMA = ( var(B) var(D) DIV ) → a1401ee4401ee2f3
0x2464…2475 4440 IF var(Z) var(B) → e9f11b402bf1402b401ee2f3
0x2475…247b 4450 REM C
0x247b…24a2 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
0x24a2…24c6 4470 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) var(D9) 1.5 MULT var(V2) = ( %115 ) → af744017f3
0x24c6…24ca 4480 ELSE 0 32 var(A$)
0x24ca…24d4 4490 LET var(Z) COMMA var(Z) var(D) PLUS EOS
0x24d4…24d7 4500 GOTO var(X1') var(T$)
0x24d7…24d8 4510 DOEND
0x24d8…24de 4520 REM C
0x24de…24e8 4530 LET var(X) COMMA var(X) var(D) PLUS EOS
0x24e8…24eb 4540 GOTO var(X1') var(B$)
0x24eb…250b 4550 REM COMPLETION ALL GRID-CROSSES
0x250b…252c 4560 REM COMPL. HORIZONTAL GRID-LINES
0x252c…2533 4570 IF var(D9) 0 EQ COMMA 34 EOS
0x2533…2539 4580 REM C
0x2539…2570 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
0x2570…25ab 4600 IF var(X%) → eff11b6df17173724e7303749f724f7303749f724e7304749f724f7304749f6e088888888800008940186e89999999990000894018744000f3
0x25ab…25be 4610 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) »U« ) var(FNP%) EOS
0x25be…25c2 4620 ELSE 0 → 9046
0x25c2…25f9 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
0x25f9…2634 4640 IF var(X%) → eff11b6df17173724e7301749f724f7301749f724e7304749f724f7304749f6e088888888800008940186e89999999990000894018744000f3
0x2634…2647 4650 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) »D« ) var(FNP%) EOS
0x2647…2651 4660 LET var(Y) COMMA var(Y) var(D) PLUS EOS
0x2651…265f 4670 IF var(Y) ELEMENT var(Q') ( 4 ) [] ?< COMMA 0 → 8045
0x265f…2660 4680 DOEND
0x2660…2666 4690 REM C
0x2666…2671 4700 IF var(V0) 0 EQ var(D9) 0 <> AND COMMA 34 EOS
0x2671…267d 4710 LET var(X) COMMA var(X) var(D) 2 DIV SUB2 EOS
0x267d…268b 4720 IF var(X) ELEMENT var(P') ( 2 ) [] → ebf1002048
0x268b…269c 4730 LET var(Z) COMMA = ( var(B) var(D) DIV ) → a1401ee4f3
0x269c…26ad 4740 IF var(Z) var(B) → e9f11b402bf1402b401ee2f3
0x26ad…26b3 4750 REM C
0x26b3…26da 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
0x26da…26fe 4770 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) var(D9) 1.5 MULT var(V2) = ( %115 ) → af744017f3
0x26fe…2702 4780 ELSE 0 32 var(N2$)
0x2702…270c 4790 LET var(Z) COMMA var(Z) var(D) PLUS EOS
0x270c…270f 4800 GOTO var(X1') var(N1$)
0x270f…2710 4810 DOEND
0x2710…2716 4820 REM C
0x2716…2719 4830 GOSUB 0 → 81
0x2719…2723 4840 IF var(C$) »M« EQ COMMA 1 0 → 82
0x2723…2729 4850 REM C
0x2729…2741 4860 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x2741…2747 4870 LET var(X%) COMMA = → b6f3
0x2747…2749 5000 RETURN EOS
0x2749…277d 8000 REM ************* DRAW RECTANGLE ******************
0x277d…2795 8005 LET var(X%) COMMA = ( ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] »U« ) var(FNP%) EOS
0x2795…279b 8010 196b02f105f3
0x279b…27b3 8015 LET var(X%) COMMA = ( ELEMENT var(P') ( var(I%) ) [] ELEMENT var(Q') ( var(I%) ) [] »D« ) var(FNP%) EOS
0x27b3…27b6 8020 1a6bf3
0x27b6…27b8 8050 RETURN EOS
0x27b8…27e4 8100 REM *** COORD VALUES,TEXTBOX,CODE *********
0x27e4…2802 8120 PRINT »>KOORDINATVERDIER PAAF0RES« EOS
0x2802…280e 8125 IF var(V0) 0 EQ COMMA 27 var(X%) COMMA = var(FNW7%) EOS
0x280e…283e 8128 ELSE 15 »----> IKKE IMPLEMENTERT FOR DREIET KARTPLAN« EOS
0x283e…2845 8140 IF var(V0) 0 EQ COMMA 34 EOS
0x2845…285a 8142 PRINT »>TEKSTBOKS TEGNES« EOS
0x285a…2861 8145 LET var(X%) COMMA = var(FNW8%) EOS
0x2861…2862 8150 DOEND
0x2862…2875 8152 PRINT »>TEKST PAAF0RES« EOS
0x2875…287c 8165 IF var(V0) 0 EQ COMMA 34 EOS
0x287c…2893 8170 LET var(X) COMMA ELEMENT var(X1') ( 2 ) [] var(M0) 0.0015 MULT SUB2 EOS
0x2893…28aa 8175 LET var(Y) COMMA ELEMENT var(Y1') ( 2 ) [] var(M0) 0.099 MULT SUB2 EOS
0x28aa…28ab 8180 DOEND
0x28ab…28ae 8185 ELSE 34 EOS
0x28ae…28c5 8190 LET var(X) COMMA ELEMENT var(X1') ( 2 ) [] var(M0) 0.0015 MULT SUB2 EOS
0x28c5…28dc 8192 LET var(Y) COMMA ELEMENT var(Y1') ( 2 ) [] var(M0) 0.03 MULT SUB2 EOS
0x28dc…28dd 8194 DOEND
0x28dd…28ed 8195 LET var(X%) COMMA = ( var(X) var(Y) 4 var(V1) var(T9$) ) var(FNX%) EOS
0x28ed…28ef 8199 RETURN EOS
0x28ef…2927 8200 REM ************* FOELGE OG SKJAEREMERKER *************
0x2927…2949 8210 PRINT »>SKJAERE-OG F0LGEMERKER TEGNES« EOS
0x2949…2959 8215 LET var(S) COMMA var(M0) 0.005 MULT EOS
0x2959…2970 8220 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.08 MULT SUB2 EOS
0x2970…2987 8250 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.084 MULT SUB2 EOS
0x2987…299a 8260 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »U« ) var(FNP%) EOS
0x299a…29aa 8270 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x29aa…29bd 8280 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »D« ) var(FNP%) EOS
0x29bd…29c3 8290 196b01f103f3
0x29c3…29d6 8300 LET var(X) COMMA var(X) var(M0) 0.21 MULT PLUS EOS
0x29d6…29eb 8310 LET var(X%) COMMA = ( var(X) var(S) 2 DIV SUB2 var(Y) »U« ) var(FNP%) EOS
0x29eb…2a00 8320 LET var(X%) COMMA = ( var(X) var(S) 2 DIV PLUS var(Y) »D« ) var(FNP%) EOS
0x2a00…2a10 8330 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x2a10…2a23 8340 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »D« ) var(FNP%) EOS
0x2a23…2a26 8350 1a6bf3
0x2a26…2a39 8370 LET var(X) COMMA var(X) var(M0) 0.21 MULT PLUS EOS
0x2a39…2a4c 8380 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »U« ) var(FNP%) EOS
0x2a4c…2a5c 8390 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2a5c…2a6f 8400 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »D« ) var(FNP%) EOS
0x2a6f…2a82 8410 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT PLUS EOS
0x2a82…2a97 8420 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV SUB2 »U« ) var(FNP%) EOS
0x2a97…2aac 8430 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV PLUS »D« ) var(FNP%) EOS
0x2aac…2abc 8440 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x2abc…2acf 8450 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »D« ) var(FNP%) EOS
0x2acf…2ae2 8460 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT PLUS EOS
0x2ae2…2af5 8470 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »U« ) var(FNP%) EOS
0x2af5…2b05 8480 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2b05…2b18 8490 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »D« ) var(FNP%) EOS
0x2b18…2b1e 8510 196b01f103f3
0x2b1e…2b31 8520 LET var(X) COMMA var(X) var(M0) 0.21 MULT SUB2 EOS
0x2b31…2b46 8530 LET var(X%) COMMA = ( var(X) var(S) 2 DIV PLUS var(Y) »U« ) var(FNP%) EOS
0x2b46…2b5b 8540 LET var(X%) COMMA = ( var(X) var(S) 2 DIV SUB2 var(Y) »D« ) var(FNP%) EOS
0x2b5b…2b6b 8550 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x2b6b…2b7e 8560 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »D« ) var(FNP%) EOS
0x2b7e…2b81 8570 1a6bf3
0x2b81…2b94 8580 LET var(X) COMMA var(X) var(M0) 0.21 MULT SUB2 EOS
0x2b94…2ba7 8590 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »U« ) var(FNP%) EOS
0x2ba7…2bb7 8600 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2bb7…2bca 8610 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »D« ) var(FNP%) EOS
0x2bca…2bdd 8620 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT SUB2 EOS
0x2bdd…2bf2 8630 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV PLUS »U« ) var(FNP%) EOS
0x2bf2…2c07 8640 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV SUB2 »D« ) var(FNP%) EOS
0x2c07…2c17 8650 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x2c17…2c2a 8660 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »D« ) var(FNP%) EOS
0x2c2a…2c41 8670 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.11 MULT SUB2 EOS
0x2c41…2c58 8680 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.114 MULT SUB2 EOS
0x2c58…2c6b 8690 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »U« ) var(FNP%) EOS
0x2c6b…2c7b 8700 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2c7b…2c8e 8710 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »D« ) var(FNP%) EOS
0x2c8e…2ca1 8720 LET var(X) COMMA var(X) var(M0) 0.9 MULT PLUS EOS
0x2ca1…2cb4 8730 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »U« ) var(FNP%) EOS
0x2cb4…2cc4 8740 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2cc4…2cd7 8750 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »D« ) var(FNP%) EOS
0x2cd7…2cea 8760 LET var(Y) COMMA var(Y) var(M0) 0.654 MULT PLUS EOS
0x2cea…2cfd 8770 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »U« ) var(FNP%) EOS
0x2cfd…2d0d 8780 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2d0d…2d20 8790 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »D« ) var(FNP%) EOS
0x2d20…2d33 8800 LET var(X) COMMA var(X) var(M0) 0.9 MULT SUB2 EOS
0x2d33…2d46 8810 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »U« ) var(FNP%) EOS
0x2d46…2d56 8820 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2d56…2d69 8830 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »D« ) var(FNP%) EOS
0x2d69…2d6b 8850 RETURN EOS
0x2d6b…2d9a 9500 REM ********* CHAIN TO NEXT MODULE ***********
0x2d9a…2da5 9505 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x2da5…2db2 9510 LET var(M9%) COMMA 999 EOS
0x2db2…2dc7 9515 IF var(T$) »« <> var(N2$) »« <> AND COMMA 24 »PLOT.2« EOS
0x2dc7…2def 9520 IF var(T$) »« EQ COMMA 15 »>INPUTFIL ER IKKE INITIALISERT« EOS
0x2def…2e16 9525 IF var(N2$) »« EQ COMMA 15 »>PARAMETERFIL ER IKKE OPPGITT« EOS
0x2e16…2e1c 9530 LINPUT »« COMMA var(X$) EOS
0x2e1c…2e1e 9550 RETURN EOS
0x2e1e…2e50 9600 REM *********** PROGRAM TERMINATION *************
0x2e50…2e5b 9620 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x2e5b…2e5d 9650 14f3
0x2e5d…2e5e 9999 END