|
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: 15470 (0x3c6e)
Notes: ZILOG_BASIC
Names: »PLOT.BP«
└─⟦329ff8d5f⟧ Bits:30006811 8" ZilogMCZ floppy NThun_0013 (SYSTEM MCZ 1/05)
└─⟦this⟧ »PLOT.BP«
0x0000…0014 BasicHead {variables=0x01ec, stms=0x0ae4, f2=0x2f8a, f3=0000000000000000000000000000}
0x0014…0200 [
0x0014…0200 [0x00]: VarDef {f0=0xaaaa, f1=0x45, f2=0x03} D5 0x7a
0x0014…0200 [0x01]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x12} S 0x79
0x0014…0200 [0x02]: VarDef {f0=0xaaaa, f1=0x42, f2=0x01} B2 0x78
0x0014…0200 [0x03]: VarDef {f0=0xaaaa, f1=0x42, f2=0x00} A2 0x77
0x0014…0200 [0x04]: VarDef {f0=0xaaaa, f1=0x41, f2=0x01} B1 0x76
0x0014…0200 [0x05]: VarDef {f0=0xaaaa, f1=0x41, f2=0x00} A1 0x75
0x0014…0200 [0x06]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x29} J% 0x74
0x0014…0200 [0x07]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x2a} K% 0x73
0x0014…0200 [0x08]: VarDef {f0=0xaaaa, f1=0x40, f2=0x28} I0% 0x72
0x0014…0200 [0x09]: VarDef {f0=0xaaaa, f1=0x40, f2=0x25} F0% 0x71
0x0014…0200 [0x0a]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x25} F% 0x70
0x0014…0200 [0x0b]: VarDef {f0=0xaaaa, f1=0x42, f2=0x28} I2% 0x6f
0x0014…0200 [0x0c]: VarDef {f0=0xaaaa, f1=0x41, f2=0x28} I1% 0x6e
0x0014…0200 [0x0d]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x10} Q 0x6d
0x0014…0200 [0x0e]: VarDef {f0=0xfae4, f1=0x59, f2=0x36} FNW9% 0x6c
0x0014…0200 [0x0f]: VarDef {f0=0xfb10, f1=0x58, f2=0x36} FNW8% 0x6b
0x0014…0200 [0x10]: VarDef {f0=0xaaaa, f1=0x49, f2=0x15} V9 0x6a
0x0014…0200 [0x11]: VarDef {f0=0xaaaa, f1=0x49, f2=0x14} U9 0x69
0x0014…0200 [0x12]: VarDef {f0=0xfb74, f1=0x57, f2=0x36} FNW7% 0x68
0x0014…0200 [0x13]: VarDef {f0=0xfba8, f1=0x59, f2=0x29} FNJ9% 0x67
0x0014…0200 [0x14]: VarDef {f0=0xaaaa, f1=0x42, f2=0x05} F2 0x66
0x0014…0200 [0x15]: VarDef {f0=0xaaaa, f1=0x41, f2=0x05} F1 0x65
0x0014…0200 [0x16]: VarDef {f0=0xaaaa, f1=0x47, f2=0x28} I7% 0x64
0x0014…0200 [0x17]: VarDef {f0=0xaaaa, f1=0x48, f2=0x28} I8% 0x63
0x0014…0200 [0x18]: VarDef {f0=0xfc1c, f1=0x5f, f2=0x31} FNR% 0x62
0x0014…0200 [0x19]: VarDef {f0=0xaaaa, f1=0x40, f2=0x24} E0% 0x61
0x0014…0200 [0x1a]: VarDef {f0=0xaaaa, f1=0x40, f2=0x23} D0% 0x60
0x0014…0200 [0x1b]: VarDef {f0=0xaaaa, f1=0x40, f2=0x18} Y0 0x5f
0x0014…0200 [0x1c]: VarDef {f0=0xaaaa, f1=0x40, f2=0x17} X0 0x5e
0x0014…0200 [0x1d]: VarDef {f0=0xfc94, f1=0x5f, f2=0x26} FNG% 0x5d
0x0014…0200 [0x1e]: VarDef {f0=0xfc74, f1=0x5f, f2=0x27} FNH% 0x5c
0x0014…0200 [0x1f]: VarDef {f0=0xaaaa, f1=0x46, f2=0x19} Z6 0x5b
0x0014…0200 [0x20]: VarDef {f0=0xaaaa, f1=0x49, f2=0x18} Y9 0x5a
0x0014…0200 [0x21]: VarDef {f0=0xaaaa, f1=0x49, f2=0x17} X9 0x59
0x0014…0200 [0x22]: VarDef {f0=0xfd20, f1=0x5f, f2=0x34} FNU% 0x58
0x0014…0200 [0x23]: VarDef {f0=0xaaaa, f1=0x42, f2=0x10} Q2 0x57
0x0014…0200 [0x24]: VarDef {f0=0xaaaa, f1=0x41, f2=0x10} Q1 0x56
0x0014…0200 [0x25]: VarDef {f0=0xfd44, f1=0x5f, f2=0x03} FND 0x55
0x0014…0200 [0x26]: VarDef {f0=0xaaaa, f1=0x46, f2=0x18} Y6 0x54
0x0014…0200 [0x27]: VarDef {f0=0xaaaa, f1=0x41, f2=0x03} D1 0x53
0x0014…0200 [0x28]: VarDef {f0=0xaaaa, f1=0x46, f2=0x05} F6 0x52
0x0014…0200 [0x29]: VarDef {f0=0xaaaa, f1=0x46, f2=0x04} E6 0x51
0x0014…0200 [0x2a]: VarDef {f0=0xaaaa, f1=0x46, f2=0x01} B6 0x50
0x0014…0200 [0x2b]: VarDef {f0=0xaaaa, f1=0x46, f2=0x00} A6 0x4f
0x0014…0200 [0x2c]: VarDef {f0=0xaaaa, f1=0x46, f2=0x17} X6 0x4e
0x0014…0200 [0x2d]: VarDef {f0=0xfddc, f1=0x5f, f2=0x2e} FNO% 0x4d
0x0014…0200 [0x2e]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x15} V 0x4c
0x0014…0200 [0x2f]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x07} H 0x4b
0x0014…0200 [0x30]: VarDef {f0=0xfe04, f1=0x5f, f2=0x37} FNX% 0x4a
0x0014…0200 [0x31]: VarDef {f0=0xfd3c, f1=0x5f, f2=0x39} FNZ% 0x49
0x0014…0200 [0x32]: VarDef {f0=0xfe1c, f1=0x5f, f2=0x2f} FNP% 0x48
0x0014…0200 [0x33]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x03} D 0x47
0x0014…0200 [0x34]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x02} C 0x46
0x0014…0200 [0x35]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x01} B 0x45
0x0014…0200 [0x36]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x00} A 0x44
0x0014…0200 [0x37]: VarDef {f0=0x035c, f1=0x4f, f2=0x18} Y 0x43
0x0014…0200 [0x38]: VarDef {f0=0x0354, f1=0x4f, f2=0x17} X 0x42
0x0014…0200 [0x39]: VarDef {f0=0xfe3c, f1=0x51, f2=0x32} FNS1% 0x41
0x0014…0200 [0x3a]: VarDef {f0=0xaaaa, f1=0x45, f2=0x18} Y5 0x40
0x0014…0200 [0x3b]: VarDef {f0=0xaaaa, f1=0x45, f2=0x17} X5 0x3f
0x0014…0200 [0x3c]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x0b} L 0x3e
0x0014…0200 [0x3d]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x0c} M 0x3d
0x0014…0200 [0x3e]: VarDef {f0=0xaaaa, f1=0x44, f2=0x18} Y4 0x3c
0x0014…0200 [0x3f]: VarDef {f0=0xaaaa, f1=0x44, f2=0x17} X4 0x3b
0x0014…0200 [0x40]: VarDef {f0=0xaaaa, f1=0x43, f2=0x18} Y3 0x3a
0x0014…0200 [0x41]: VarDef {f0=0xaaaa, f1=0x43, f2=0x17} X3 0x39
0x0014…0200 [0x42]: VarDef {f0=0xaaaa, f1=0x42, f2=0x18} Y2 0x38
0x0014…0200 [0x43]: VarDef {f0=0xaaaa, f1=0x42, f2=0x17} X2 0x37
0x0014…0200 [0x44]: VarDef {f0=0xaaaa, f1=0x41, f2=0x18} Y1 0x36
0x0014…0200 [0x45]: VarDef {f0=0xaaaa, f1=0x41, f2=0x17} X1 0x35
0x0014…0200 [0x46]: VarDef {f0=0xfe68, f1=0x5f, f2=0x32} FNS% 0x34
0x0014…0200 [0x47]: VarDef {f0=0xff08, f1=0x59, f2=0x2c} FNM9% 0x33
0x0014…0200 [0x48]: VarDef {f0=0xfcd8, f1=0x51, f2=0x31} FNR1% 0x32
0x0014…0200 [0x49]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x28} I% 0x31
0x0014…0200 [0x4a]: VarDef {f0=0xff6c, f1=0x5f, f2=0x36} FNW% 0x30
0x0014…0200 [0x4b]: VarDef {f0=0x0100, f1=0x4f, f2=0x37} X% 0x2f
0x0014…0200 [0x4c]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x22} C% 0x2e
0x0014…0200 [0x4d]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x21} B% 0x2d
0x0014…0200 [0x4e]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x20} A% 0x2c
0x0014…0200 [0x4f]: VarDef {f0=0xffa4, f1=0x59, f2=0x37} FNX9% 0x2b
0x0014…0200 [0x50]: VarDef {f0=0xaaaa, f1=0x43, f2=0x22} C3% 0x2a
0x0014…0200 [0x51]: VarDef {f0=0xaaaa, f1=0x42, f2=0x22} C2% 0x29
0x0014…0200 [0x52]: VarDef {f0=0xaaaa, f1=0x41, f2=0x22} C1% 0x28
0x0014…0200 [0x53]: VarDef {f0=0xffc0, f1=0x5f, f2=0x22} FNC% 0x27
0x0014…0200 [0x54]: VarDef {f0=0x034c, f1=0x49, f2=0x12} S9 0x26
0x0014…0200 [0x55]: VarDef {f0=0x0344, f1=0x41, f2=0x12} S1 0x25
0x0014…0200 [0x56]: VarDef {f0=0x0318, f1=0x4f, f2=0x55} V$ 0x24
0x0014…0200 [0x57]: VarDef {f0=0x02ce, f1=0x4f, f2=0x57} X$ 0x23
0x0014…0200 [0x58]: VarDef {f0=0x02aa, f1=0x41, f2=0x8a} K1' 0x22
0x0014…0200 [0x59]: VarDef {f0=0x0286, f1=0x4f, f2=0x81} B' 0x21
0x0014…0200 [0x5a]: VarDef {f0=0x0262, f1=0x4f, f2=0x80} A' 0x20
0x0014…0200 [0x5b]: VarDef {f0=0x0258, f1=0x49, f2=0x50} Q9$ 0x1f
0x0014…0200 [0x5c]: VarDef {f0=0x0253, f1=0x4f, f2=0x52} S$ 0x1e
0x0014…0200 [0x5d]: VarDef {f0=0x024b, f1=0x42, f2=0x03} D2 0x1d
0x0014…0200 [0x5e]: VarDef {f0=0x0243, f1=0x40, f2=0x10} Q0 0x1c
0x0014…0200 [0x5f]: VarDef {f0=0x023b, f1=0x49, f2=0x03} D9 0x1b
0x0014…0200 [0x60]: VarDef {f0=0x0000, f1=0x49, f2=0x2c} M9% 0x1a
0x0014…0200 [0x61]: VarDef {f0=0x0233, f1=0x40, f2=0x0c} M0 0x19
0x0014…0200 [0x62]: VarDef {f0=0x022b, f1=0x49, f2=0x16} W9 0x18
0x0014…0200 [0x63]: VarDef {f0=0x0223, f1=0x48, f2=0x16} W8 0x17
0x0014…0200 [0x64]: VarDef {f0=0x021b, f1=0x41, f2=0x0f} P1 0x16
0x0014…0200 [0x65]: VarDef {f0=0x0213, f1=0x41, f2=0x15} V1 0x15
0x0014…0200 [0x66]: VarDef {f0=0x020b, f1=0x40, f2=0x15} V0 0x14
0x0014…0200 [0x67]: VarDef {f0=0x0203, f1=0x47, f2=0x18} Y7 0x13
0x0014…0200 [0x68]: VarDef {f0=0x01fb, f1=0x47, f2=0x17} X7 0x12
0x0014…0200 [0x69]: VarDef {f0=0x01f3, f1=0x40, f2=0x12} S0 0x11
0x0014…0200 [0x6a]: VarDef {f0=0x01ee, f1=0x4f, f2=0x56} W$ 0x10
0x0014…0200 [0x6b]: VarDef {f0=0x01c2, f1=0x42, f2=0x98} Y2' 0xf
0x0014…0200 [0x6c]: VarDef {f0=0x0196, f1=0x42, f2=0x97} X2' 0xe
0x0014…0200 [0x6d]: VarDef {f0=0x016a, f1=0x41, f2=0x98} Y1' 0xd
0x0014…0200 [0x6e]: VarDef {f0=0x013e, f1=0x41, f2=0x97} X1' 0xc
0x0014…0200 [0x6f]: VarDef {f0=0x0112, f1=0x4f, f2=0x90} Q' 0xb
0x0014…0200 [0x70]: VarDef {f0=0x00e6, f1=0x4f, f2=0x8f} P' 0xa
0x0014…0200 [0x71]: VarDef {f0=0x00da, f1=0x4f, f2=0x50} Q$ 0x9
0x0014…0200 [0x72]: VarDef {f0=0x00ce, f1=0x4f, f2=0x4f} P$ 0x8
0x0014…0200 [0x73]: VarDef {f0=0x007a, f1=0x49, f2=0x53} T9$ 0x7
0x0014…0200 [0x74]: VarDef {f0=0x0062, f1=0x43, f2=0x4d} N3$ 0x6
0x0014…0200 [0x75]: VarDef {f0=0x004a, f1=0x42, f2=0x4d} N2$ 0x5
0x0014…0200 [0x76]: VarDef {f0=0x0032, f1=0x41, f2=0x4d} N1$ 0x4
0x0014…0200 [0x77]: VarDef {f0=0x002d, f1=0x4f, f2=0x42} C$ 0x3
0x0014…0200 [0x78]: VarDef {f0=0x0028, f1=0x4f, f2=0x40} A$ 0x2
0x0014…0200 [0x79]: VarDef {f0=0x000c, f1=0x42, f2=0x53} T2$ 0x1
0x0014…0200 [0x7a]: VarDef {f0=0x0000, f1=0x40, f2=0x53} T0$ 0x0
0x0014…0200 ]
0x0200…0204 Statement 39312 @0x3c6c
0x0204…0208 Statement 39248 @0x3c5f
0x0208…020c Statement 39232 @0x3c52
0x020c…0210 Statement 39216 @0x3c21
0x0210…0214 Statement 39205 @0x3c0c
0x0214…0218 Statement 39200 @0x3c04
0x0218…021c Statement 39184 @0x3bf8
0x021c…0220 Statement 39168 @0x3bde
0x0220…0224 Statement 38992 @0x3bdc
0x0224…0228 Statement 38933 @0x3bd2
0x0228…022c Statement 38930 @0x3bcd
0x022c…0230 Statement 38919 @0x3bc1
0x0230…0234 Statement 38912 @0x3b91
0x0234…0238 Statement 38768 @0x3b8f
0x0238…023c Statement 38752 @0x3b83
0x023c…0240 Statement 38736 @0x3b51
0x0240…0244 Statement 38688 @0x3b4f
0x0244…0248 Statement 38672 @0x3b4b
0x0248…024c Statement 38656 @0x3b3d
0x024c…0250 Statement 38544 @0x3b33
0x0250…0254 Statement 38528 @0x3b25
0x0254…0258 Statement 38512 @0x3b1e
0x0258…025c Statement 38496 @0x3b09
0x025c…0260 Statement 38480 @0x3b05
0x0260…0264 Statement 38464 @0x3af9
0x0264…0268 Statement 38448 @0x3ad8
0x0268…026c Statement 38432 @0x3abd
0x026c…0270 Statement 38416 @0x3ab6
0x0270…0274 Statement 38405 @0x3a98
0x0274…0278 Statement 38400 @0x3a74
0x0278…027c Statement 38192 @0x3a72
0x027c…0280 Statement 38176 @0x3a54
0x0280…0284 Statement 38160 @0x3a48
0x0284…0288 Statement 38144 @0x3a3e
0x0288…028c Statement 37968 @0x3a3c
0x028c…0290 Statement 37952 @0x3a30
0x0290…0294 Statement 37936 @0x3a10
0x0294…0298 Statement 37920 @0x3a0e
0x0298…029c Statement 37904 @0x3a0b
0x029c…02a0 Statement 37888 @0x3a08
0x02a0…02a4 Statement 37760 @0x3a02
0x02a4…02a8 Statement 37749 @0x39ef
0x02a8…02ac Statement 37744 @0x39e5
0x02ac…02b0 Statement 37728 @0x39d3
0x02b0…02b4 Statement 37712 @0x39bb
0x02b4…02b8 Statement 37696 @0x39a0
0x02b8…02bc Statement 37680 @0x3997
0x02bc…02c0 Statement 37664 @0x3985
0x02c0…02c4 Statement 37648 @0x3979
0x02c4…02c8 Statement 37632 @0x3975
0x02c8…02cc Statement 37520 @0x3963
0x02cc…02d0 Statement 37504 @0x3961
0x02d0…02d4 Statement 37488 @0x395e
0x02d4…02d8 Statement 37472 @0x394f
0x02d8…02dc Statement 37456 @0x3946
0x02dc…02e0 Statement 37440 @0x3928
0x02e0…02e4 Statement 37424 @0x390a
0x02e4…02e8 Statement 37408 @0x38fe
0x02e8…02ec Statement 37392 @0x38f7
0x02ec…02f0 Statement 37376 @0x38e4
0x02f0…02f4 Statement 37264 @0x38e2
0x02f4…02f8 Statement 37248 @0x38de
0x02f8…02fc Statement 37232 @0x38d4
0x02fc…0300 Statement 37216 @0x38c9
0x0300…0304 Statement 37200 @0x38be
0x0304…0308 Statement 37184 @0x389f
0x0308…030c Statement 37168 @0x3880
0x030c…0310 Statement 37152 @0x386b
0x0310…0314 Statement 37136 @0x3857
0x0314…0318 Statement 37120 @0x3851
0x0318…031c Statement 37008 @0x384a
0x031c…0320 Statement 36992 @0x3847
0x0320…0324 Statement 36976 @0x3844
0x0324…0328 Statement 36960 @0x383f
0x0328…032c Statement 36944 @0x3834
0x032c…0330 Statement 36928 @0x3829
0x0330…0334 Statement 36912 @0x3827
0x0334…0338 Statement 36896 @0x3815
0x0338…033c Statement 36880 @0x3802
0x033c…0340 Statement 36864 @0x37ed
0x0340…0344 Statement 35216 @0x37dc
0x0344…0348 Statement 35200 @0x37c9
0x0348…034c Statement 35184 @0x37ad
0x034c…0350 Statement 35168 @0x378f
0x0350…0354 Statement 35152 @0x378d
0x0354…0358 Statement 35136 @0x378b
0x0358…035c Statement 35120 @0x3758
0x035c…0360 Statement 35104 @0x3716
0x0360…0364 Statement 35088 @0x36f1
0x0364…0368 Statement 35077 @0x36e5
0x0368…036c Statement 35072 @0x36a9
0x036c…0370 Statement 34960 @0x36a7
0x0370…0374 Statement 34864 @0x3696
0x0374…0378 Statement 34848 @0x3692
0x0378…037c Statement 34836 @0x366d
0x037c…0380 Statement 34834 @0x364d
0x0380…0384 Statement 34824 @0x3639
0x0384…0388 Statement 34822 @0x3619
0x0388…038c Statement 34820 @0x3605
0x038c…0390 Statement 34818 @0x35fe
0x0390…0394 Statement 34816 @0x35f3
0x0394…0398 Statement 34709 @0x35dc
0x0398…039c Statement 34704 @0x35c5
0x039c…03a0 Statement 34693 @0x35b2
0x03a0…03a4 Statement 34688 @0x359e
0x03a4…03a8 Statement 34672 @0x358b
0x03a8…03ac Statement 34661 @0x3577
0x03ac…03b0 Statement 34656 @0x3564
0x03b0…03b4 Statement 34597 @0x3550
0x03b4…03b8 Statement 34592 @0x353d
0x03b8…03bc Statement 34437 @0x3529
0x03bc…03c0 Statement 34432 @0x3512
0x03c0…03c4 Statement 34416 @0x34fb
0x03c4…03c8 Statement 34384 @0x34e6
0x03c8…03cc Statement 34341 @0x34cd
0x03cc…03d0 Statement 34336 @0x34ba
0x03d0…03d4 Statement 34181 @0x34a6
0x03d4…03d8 Statement 34176 @0x3493
0x03d8…03dc Statement 34160 @0x348f
0x03dc…03e0 Statement 34085 @0x3476
0x03e0…03e4 Statement 34080 @0x3463
0x03e4…03e8 Statement 34064 @0x345c
0x03e8…03ec Statement 33893 @0x3448
0x03ec…03f0 Statement 33888 @0x3435
0x03f0…03f4 Statement 33813 @0x341c
0x03f4…03f8 Statement 33808 @0x3409
0x03f8…03fc Statement 33653 @0x33f5
0x03fc…0400 Statement 33648 @0x33e2
0x0400…0404 Statement 33616 @0x33de
0x0404…0408 Statement 33541 @0x33c5
0x0408…040c Statement 33536 @0x33b2
0x040c…0410 Statement 33424 @0x33ab
0x0410…0414 Statement 33365 @0x3397
0x0414…0418 Statement 33360 @0x3380
0x0418…041c Statement 33312 @0x3369
0x041c…0420 Statement 33301 @0x3359
0x0420…0424 Statement 33296 @0x3337
0x0424…0428 Statement 33285 @0x332f
0x0428…042c Statement 33284 @0x3326
0x042c…0430 Statement 33282 @0x331d
0x0430…0434 Statement 33280 @0x32e6
0x0434…0438 Statement 33177 @0x32e4
0x0438…043c Statement 33173 @0x32d3
0x043c…0440 Statement 33093 @0x32c1
0x0440…0444 Statement 33088 @0x32af
0x0444…0448 Statement 33077 @0x3280
0x0448…044c Statement 33075 @0x326f
0x044c…0450 Statement 33074 @0x325a
0x0450…0454 Statement 33072 @0x323c
0x0454…0458 Statement 33061 @0x321e
0x0458…045c Statement 33056 @0x3200
0x045c…0460 Statement 33045 @0x31e2
0x0460…0464 Statement 33040 @0x31aa
0x0464…0468 Statement 33029 @0x3198
0x0468…046c Statement 33024 @0x3164
0x046c…0470 Statement 32848 @0x3162
0x0470…0474 Statement 32800 @0x315e
0x0474…0478 Statement 32789 @0x3143
0x0478…047c Statement 32784 @0x313c
0x047c…0480 Statement 32773 @0x3123
0x0480…0484 Statement 32768 @0x30f2
0x0484…0488 Statement 29952 @0x30f0
0x0488…048c Statement 28928 @0x30e6
0x048c…0490 Statement 28816 @0x30e3
0x0490…0494 Statement 28800 @0x30de
0x0494…0498 Statement 28693 @0x30d2
0x0498…049c Statement 28672 @0x309e
0x049c…04a0 Statement 24656 @0x309c
0x04a0…04a4 Statement 24640 @0x3094
0x04a4…04a8 Statement 24624 @0x3070
0x04a8…04ac Statement 24608 @0x304e
0x04ac…04b0 Statement 24592 @0x3042
0x04b0…04b4 Statement 24576 @0x3015
0x04b4…04b8 Statement 21760 @0x3013
0x04b8…04bc Statement 20784 @0x3010
0x04bc…04c0 Statement 20768 @0x3005
0x04c0…04c4 Statement 20752 @0x2fee
0x04c4…04c8 Statement 20736 @0x2fda
0x04c8…04cc Statement 20624 @0x2fae
0x04cc…04d0 Statement 20613 @0x2fa2
0x04d0…04d4 Statement 20608 @0x2f8b
0x04d4…04d8 Statement 20592 @0x2f77
0x04d8…04dc Statement 20576 @0x2f4b
0x04dc…04e0 Statement 20560 @0x2f3f
0x04e0…04e4 Statement 20552 @0x2f3b
0x04e4…04e8 Statement 20551 @0x2f35
0x04e8…04ec Statement 20550 @0x2f2c
0x04ec…04f0 Statement 20548 @0x2f09
0x04f0…04f4 Statement 20546 @0x2efd
0x04f4…04f8 Statement 20544 @0x2ecb
0x04f8…04fc Statement 20534 @0x2ebf
0x04fc…0500 Statement 20533 @0x2eb3
0x0500…0504 Statement 20528 @0x2e81
0x0504…0508 Statement 20517 @0x2e75
0x0508…050c Statement 20512 @0x2e69
0x050c…0510 Statement 20496 @0x2e5d
0x0510…0514 Statement 20480 @0x2e41
0x0514…0518 Statement 18480 @0x2e3f
0x0518…051c Statement 18464 @0x2e39
0x051c…0520 Statement 16976 @0x2e2c
0x0520…0524 Statement 16960 @0x2e2b
0x0524…0528 Statement 16944 @0x2e1e
0x0528…052c Statement 16933 @0x2e16
0x052c…0530 Statement 16928 @0x2df4
0x0530…0534 Statement 16912 @0x2df1
0x0534…0538 Statement 16896 @0x2dcf
0x0538…053c Statement 16656 @0x2daa
0x053c…0540 Statement 16645 @0x2da2
0x0540…0544 Statement 16512 @0x2d84
0x0544…0548 Statement 16496 @0x2d66
0x0548…054c Statement 16480 @0x2d46
0x054c…0550 Statement 16384 @0x2d42
0x0550…0554 Statement 14736 @0x2d31
0x0554…0558 Statement 14725 @0x2d20
0x0558…055c Statement 14720 @0x2d11
0x055c…0560 Statement 14709 @0x2d07
0x0560…0564 Statement 14704 @0x2d00
0x0564…0568 Statement 14672 @0x2cf0
0x0568…056c Statement 14341 @0x2ce6
0x056c…0570 Statement 14336 @0x2cb5
0x0570…0574 Statement 14229 @0x2cb3
0x0574…0578 Statement 14224 @0x2cb0
0x0578…057c Statement 14213 @0x2c94
0x057c…0580 Statement 14208 @0x2c90
0x0580…0584 Statement 14197 @0x2c6f
0x0584…0588 Statement 14192 @0x2c68
0x0588…058c Statement 14181 @0x2c54
0x058c…0590 Statement 14176 @0x2c4b
0x0590…0594 Statement 14160 @0x2c1b
0x0594…0598 Statement 14096 @0x2c19
0x0598…059c Statement 14080 @0x2c12
0x059c…05a0 Statement 13968 @0x2c10
0x05a0…05a4 Statement 13952 @0x2bff
0x05a4…05a8 Statement 13936 @0x2bf2
0x05a8…05ac Statement 13925 @0x2bd2
0x05ac…05b0 Statement 13924 @0x2bd0
0x05b0…05b4 Statement 13923 @0x2bbb
0x05b4…05b8 Statement 13922 @0x2bb4
0x05b8…05bc Statement 13920 @0x2ba6
0x05bc…05c0 Statement 13909 @0x2ba4
0x05c0…05c4 Statement 13904 @0x2ba0
0x05c4…05c8 Statement 13872 @0x2b92
0x05c8…05cc Statement 13861 @0x2b88
0x05cc…05d0 Statement 13856 @0x2b81
0x05d0…05d4 Statement 13845 @0x2b7b
0x05d4…05d8 Statement 13833 @0x2b78
0x05d8…05dc Statement 13832 @0x2b6e
0x05dc…05e0 Statement 13831 @0x2b6c
0x05e0…05e4 Statement 13830 @0x2b44
0x05e4…05e8 Statement 13828 @0x2b22
0x05e8…05ec Statement 13826 @0x2b16
0x05ec…05f0 Statement 13824 @0x2ae6
0x05f0…05f4 Statement 13637 @0x2ae4
0x05f4…05f8 Statement 13632 @0x2ae1
0x05f8…05fc Statement 13621 @0x2adb
0x05fc…0600 Statement 13616 @0x2ad5
0x0600…0604 Statement 13607 @0x2ab2
0x0604…0608 Statement 13605 @0x2a9a
0x0608…060c Statement 13602 @0x2a98
0x060c…0610 Statement 13600 @0x2a8f
0x0610…0614 Statement 13589 @0x2a8b
0x0614…0618 Statement 13573 @0x2a77
0x0618…061c Statement 13570 @0x2a6b
0x061c…0620 Statement 13568 @0x2a61
0x0620…0624 Statement 13461 @0x2a5b
0x0624…0628 Statement 13456 @0x2a52
0x0628…062c Statement 13440 @0x2a3e
0x062c…0630 Statement 13431 @0x2a35
0x0630…0634 Statement 13429 @0x2a2b
0x0634…0638 Statement 13424 @0x2a1a
0x0638…063c Statement 13408 @0x2a16
0x063c…0640 Statement 13397 @0x29fb
0x0640…0644 Statement 13394 @0x29f5
0x0644…0648 Statement 13392 @0x29e1
0x0648…064c Statement 13381 @0x29a8
0x064c…0650 Statement 13376 @0x29a4
0x0650…0654 Statement 13368 @0x2998
0x0654…0658 Statement 13365 @0x2961
0x0658…065c Statement 13360 @0x295f
0x065c…0660 Statement 13168 @0x295c
0x0660…0664 Statement 13152 @0x293a
0x0664…0668 Statement 13141 @0x2934
0x0668…066c Statement 13136 @0x2931
0x066c…0670 Statement 13120 @0x292b
0x0670…0674 Statement 13104 @0x2929
0x0674…0678 Statement 13072 @0x2917
0x0678…067c Statement 13061 @0x2911
0x067c…0680 Statement 13056 @0x290e
0x0680…0684 Statement 12949 @0x2906
0x0684…0688 Statement 12944 @0x2905
0x0688…068c Statement 12928 @0x28fe
0x068c…0690 Statement 12917 @0x28f7
0x0690…0694 Statement 12912 @0x28e6
0x0694…0698 Statement 12901 @0x28d4
0x0698…069c Statement 12896 @0x28c7
0x069c…06a0 Statement 12885 @0x28bd
0x06a0…06a4 Statement 12880 @0x28b4
0x06a4…06a8 Statement 12869 @0x28ab
0x06a8…06ac Statement 12864 @0x28a5
0x06ac…06b0 Statement 12853 @0x289e
0x06b0…06b4 Statement 12848 @0x2897
0x06b4…06b8 Statement 12837 @0x2886
0x06b8…06bc Statement 12832 @0x287d
0x06bc…06c0 Statement 12816 @0x2877
0x06c0…06c4 Statement 12809 @0x2851
0x06c4…06c8 Statement 12807 @0x2830
0x06c8…06cc Statement 12806 @0x282a
0x06cc…06d0 Statement 12805 @0x2827
0x06d0…06d4 Statement 12804 @0x281f
0x06d4…06d8 Statement 12803 @0x2806
0x06d8…06dc Statement 12802 @0x2803
0x06dc…06e0 Statement 12800 @0x27f7
0x06e0…06e4 Statement 12697 @0x27f3
0x06e4…06e8 Statement 12693 @0x27e7
0x06e8…06ec Statement 12688 @0x27bf
0x06ec…06f0 Statement 12680 @0x27bd
0x06f0…06f4 Statement 12678 @0x27ba
0x06f4…06f8 Statement 12675 @0x27b7
0x06f8…06fc Statement 12674 @0x27a0
0x06fc…0700 Statement 12672 @0x2789
0x0700…0704 Statement 12664 @0x2772
0x0704…0708 Statement 12662 @0x2770
0x0708…070c Statement 12660 @0x2765
0x070c…0710 Statement 12658 @0x2756
0x0710…0714 Statement 12656 @0x274b
0x0714…0718 Statement 12648 @0x2745
0x0718…071c Statement 12646 @0x2741
0x071c…0720 Statement 12629 @0x2738
0x0720…0724 Statement 12624 @0x2726
0x0724…0728 Statement 12615 @0x271e
0x0728…072c Statement 12613 @0x2703
0x072c…0730 Statement 12608 @0x2700
0x0730…0734 Statement 12600 @0x26f4
0x0734…0738 Statement 12597 @0x26f0
0x0738…073c Statement 12594 @0x26e4
0x073c…0740 Statement 12592 @0x26b1
0x0740…0744 Statement 12581 @0x26af
0x0744…0748 Statement 12579 @0x26ac
0x0748…074c Statement 12578 @0x26a3
0x074c…0750 Statement 12432 @0x269a
0x0750…0754 Statement 12421 @0x2681
0x0754…0758 Statement 12418 @0x2679
0x0758…075c Statement 12416 @0x2663
0x075c…0760 Statement 12405 @0x2657
0x0760…0764 Statement 12400 @0x2651
0x0764…0768 Statement 12368 @0x264b
0x0768…076c Statement 12357 @0x263f
0x076c…0770 Statement 12352 @0x260a
0x0770…0774 Statement 12336 @0x2609
0x0774…0778 Statement 12325 @0x2603
0x0778…077c Statement 12324 @0x2600
0x077c…0780 Statement 12320 @0x25fe
0x0780…0784 Statement 12304 @0x25f2
0x0784…0788 Statement 12288 @0x25ec
0x0788…078c Statement 10544 @0x25e9
0x078c…0790 Statement 10528 @0x25ca
0x0790…0794 Statement 10512 @0x25b9
0x0794…0798 Statement 10352 @0x25b6
0x0798…079c Statement 10336 @0x25b3
0x079c…07a0 Statement 10324 @0x25ab
0x07a0…07a4 Statement 10322 @0x25a7
0x07a4…07a8 Statement 10320 @0x2573
0x07a8…07ac Statement 10240 @0x2572
0x07ac…07b0 Statement 10128 @0x256f
0x07b0…07b4 Statement 10037 @0x2552
0x07b4…07b8 Statement 10032 @0x252f
0x07b8…07bc Statement 10021 @0x250c
0x07bc…07c0 Statement 10016 @0x24e9
0x07c0…07c4 Statement 10005 @0x24c6
0x07c4…07c8 Statement 09984 @0x24c0
0x07c8…07cc Statement 09880 @0x248f
0x07cc…07d0 Statement 09877 @0x248e
0x07d0…07d4 Statement 09872 @0x248b
0x07d4…07d8 Statement 09776 @0x2488
0x07d8…07dc Statement 09765 @0x246b
0x07dc…07e0 Statement 09760 @0x244e
0x07e0…07e4 Statement 09749 @0x2425
0x07e4…07e8 Statement 09744 @0x23fc
0x07e8…07ec Statement 09733 @0x23c7
0x07ec…07f0 Statement 09732 @0x23b3
0x07f0…07f4 Statement 09728 @0x23af
0x07f4…07f8 Statement 09621 @0x237f
0x07f8…07fc Statement 09600 @0x237e
0x07fc…0800 Statement 09589 @0x237b
0x0800…0804 Statement 09296 @0x2368
0x0804…0808 Statement 09285 @0x234f
0x0808…080c Statement 09284 @0x233e
0x080c…0810 Statement 09282 @0x2329
0x0810…0814 Statement 09280 @0x2316
0x0814…0818 Statement 09273 @0x22fd
0x0818…081c Statement 09272 @0x22ec
0x081c…0820 Statement 09264 @0x22d7
0x0820…0824 Statement 09253 @0x22d1
0x0824…0828 Statement 09248 @0x22be
0x0828…082c Statement 09240 @0x229f
0x082c…0830 Statement 09237 @0x228a
0x0830…0834 Statement 09235 @0x2279
0x0834…0838 Statement 09234 @0x2264
0x0838…083c Statement 09232 @0x2251
0x083c…0840 Statement 09224 @0x2232
0x0840…0844 Statement 09223 @0x221d
0x0844…0848 Statement 09222 @0x220c
0x0848…084c Statement 09221 @0x21f7
0x084c…0850 Statement 09220 @0x21dd
0x0850…0854 Statement 09217 @0x21bf
0x0854…0858 Statement 09216 @0x21bb
0x0858…085c Statement 09109 @0x2188
0x085c…0860 Statement 08704 @0x2187
0x0860…0864 Statement 08597 @0x2184
0x0864…0868 Statement 08592 @0x2173
0x0868…086c Statement 08576 @0x216f
0x086c…0870 Statement 08560 @0x2163
0x0870…0874 Statement 08544 @0x2159
0x0874…0878 Statement 08528 @0x2156
0x0878…087c Statement 08512 @0x2152
0x087c…0880 Statement 08496 @0x2146
0x0880…0884 Statement 08480 @0x213c
0x0884…0888 Statement 08464 @0x2134
0x0888…088c Statement 08448 @0x212c
0x088c…0890 Statement 08341 @0x20fa
0x0890…0894 Statement 08192 @0x20f9
0x0894…0898 Statement 06544 @0x20f6
0x0898…089c Statement 06528 @0x20f2
0x089c…08a0 Statement 06512 @0x20f1
0x08a0…08a4 Statement 06272 @0x20de
0x08a4…08a8 Statement 06263 @0x20d0
0x08a8…08ac Statement 06261 @0x20c2
0x08ac…08b0 Statement 06256 @0x20af
0x08b0…08b4 Statement 06224 @0x2095
0x08b4…08b8 Statement 06213 @0x2089
0x08b8…08bc Statement 06208 @0x2072
0x08bc…08c0 Statement 06192 @0x205f
0x08c0…08c4 Statement 06181 @0x2051
0x08c4…08c8 Statement 06176 @0x2043
0x08c8…08cc Statement 06160 @0x2030
0x08cc…08d0 Statement 06000 @0x2016
0x08d0…08d4 Statement 05991 @0x200a
0x08d4…08d8 Statement 05990 @0x1ff8
0x08d8…08dc Statement 05989 @0x1fe1
0x08dc…08e0 Statement 05984 @0x1fda
0x08e0…08e4 Statement 05968 @0x1fd6
0x08e4…08e8 Statement 05952 @0x1fcb
0x08e8…08ec Statement 05936 @0x1fa3
0x08ec…08f0 Statement 05925 @0x1f99
0x08f0…08f4 Statement 05922 @0x1f93
0x08f4…08f8 Statement 05904 @0x1f8c
0x08f8…08fc Statement 05893 @0x1f69
0x08fc…0900 Statement 05888 @0x1f65
0x0900…0904 Statement 05781 @0x1f32
0x0904…0908 Statement 05776 @0x1f31
0x0908…090c Statement 05765 @0x1f2e
0x090c…0910 Statement 05488 @0x1f2a
0x0910…0914 Statement 05472 @0x1efc
0x0914…0918 Statement 05456 @0x1ee0
0x0918…091c Statement 05440 @0x1ed9
0x091c…0920 Statement 05424 @0x1ec8
0x0920…0924 Statement 05408 @0x1eb7
0x0924…0928 Statement 05392 @0x1ea4
0x0928…092c Statement 05376 @0x1e9a
0x092c…0930 Statement 05264 @0x1e87
0x0930…0934 Statement 05248 @0x1e7d
0x0934…0938 Statement 05232 @0x1e6c
0x0938…093c Statement 05216 @0x1e5b
0x093c…0940 Statement 05200 @0x1e48
0x0940…0944 Statement 05184 @0x1e3e
0x0944…0948 Statement 05168 @0x1e2b
0x0948…094c Statement 05152 @0x1e21
0x094c…0950 Statement 05136 @0x1e0f
0x0950…0954 Statement 05122 @0x1e00
0x0954…0958 Statement 05120 @0x1df8
0x0958…095c Statement 05008 @0x1dca
0x095c…0960 Statement 04944 @0x1dc9
0x0960…0964 Statement 04933 @0x1dc2
0x0964…0968 Statement 04928 @0x1da6
0x0968…096c Statement 04901 @0x1d8a
0x096c…0970 Statement 04880 @0x1d7c
0x0970…0974 Statement 04869 @0x1d6e
0x0974…0978 Statement 04864 @0x1d66
0x0978…097c Statement 04759 @0x1d32
0x097c…0980 Statement 04757 @0x1d31
0x0980…0984 Statement 04752 @0x1d2e
0x0984…0988 Statement 04710 @0x1d11
0x0988…098c Statement 04708 @0x1cee
0x098c…0990 Statement 04706 @0x1ccb
0x0990…0994 Statement 04704 @0x1ca8
0x0994…0998 Statement 04696 @0x1c85
0x0998…099c Statement 04694 @0x1c6f
0x099c…09a0 Statement 04692 @0x1c59
0x09a0…09a4 Statement 04690 @0x1c42
0x09a4…09a8 Statement 04688 @0x1c3a
0x09a8…09ac Statement 04672 @0x1c36
0x09ac…09b0 Statement 04656 @0x1c19
0x09b0…09b4 Statement 04640 @0x1bfc
0x09b4…09b8 Statement 04624 @0x1bf5
0x09b8…09bc Statement 04608 @0x1bf1
0x09bc…09c0 Statement 04501 @0x1bce
0x09c0…09c4 Statement 04416 @0x1bcd
0x09c4…09c8 Statement 04406 @0x1bca
0x09c8…09cc Statement 04405 @0x1bc6
0x09cc…09d0 Statement 04245 @0x1bbc
0x09d0…09d4 Statement 04240 @0x1bb2
0x09d4…09d8 Statement 04229 @0x1bac
0x09d8…09dc Statement 04224 @0x1ba9
0x09dc…09e0 Statement 04213 @0x1b9f
0x09e0…09e4 Statement 04208 @0x1b91
0x09e4…09e8 Statement 04197 @0x1b87
0x09e8…09ec Statement 04192 @0x1b81
0x09ec…09f0 Statement 04181 @0x1b70
0x09f0…09f4 Statement 04176 @0x1b6a
0x09f4…09f8 Statement 04165 @0x1b59
0x09f8…09fc Statement 04162 @0x1b40
0x09fc…0a00 Statement 04161 @0x1b3c
0x0a00…0a04 Statement 04160 @0x1b30
0x0a04…0a08 Statement 04151 @0x1afd
0x0a08…0a0c Statement 04149 @0x1afc
0x0a0c…0a10 Statement 04148 @0x1af9
0x0a10…0a14 Statement 04133 @0x1ae9
0x0a14…0a18 Statement 04128 @0x1ad9
0x0a18…0a1c Statement 04112 @0x1ab6
0x0a1c…0a20 Statement 04101 @0x1aae
0x0a20…0a24 Statement 04096 @0x1a7b
0x0a24…0a28 Statement 02448 @0x1a57
0x0a28…0a2c Statement 02437 @0x1a56
0x0a2c…0a30 Statement 02432 @0x1a53
0x0a30…0a34 Statement 02421 @0x1a50
0x0a34…0a38 Statement 02416 @0x1a46
0x0a38…0a3c Statement 02408 @0x1a45
0x0a3c…0a40 Statement 02404 @0x1a2c
0x0a40…0a44 Statement 02402 @0x1a16
0x0a44…0a48 Statement 02400 @0x1a01
0x0a48…0a4c Statement 02389 @0x19d4
0x0a4c…0a50 Statement 02384 @0x19ac
0x0a50…0a54 Statement 02373 @0x199b
0x0a54…0a58 Statement 02368 @0x1995
0x0a58…0a5c Statement 02357 @0x1968
0x0a5c…0a60 Statement 02352 @0x1940
0x0a60…0a64 Statement 02341 @0x1932
0x0a64…0a68 Statement 02336 @0x1900
0x0a68…0a6c Statement 02325 @0x18fd
0x0a6c…0a70 Statement 02322 @0x18e8
0x0a70…0a74 Statement 02320 @0x18de
0x0a74…0a78 Statement 02312 @0x18dd
0x0a78…0a7c Statement 02310 @0x18cc
0x0a7c…0a80 Statement 02308 @0x18b6
0x0a80…0a84 Statement 02306 @0x18a8
0x0a84…0a88 Statement 02304 @0x1897
0x0a88…0a8c Statement 02197 @0x1886
0x0a8c…0a90 Statement 02192 @0x1879
0x0a90…0a94 Statement 02181 @0x184c
0x0a94…0a98 Statement 02176 @0x1824
0x0a98…0a9c Statement 02165 @0x1817
0x0a9c…0aa0 Statement 02160 @0x1811
0x0aa0…0aa4 Statement 02149 @0x17e4
0x0aa4…0aa8 Statement 02144 @0x17bc
0x0aa8…0aac Statement 02133 @0x178a
0x0aac…0ab0 Statement 02128 @0x177c
0x0ab0…0ab4 Statement 02117 @0x1776
0x0ab4…0ab8 Statement 02114 @0x1762
0x0ab8…0abc Statement 02113 @0x175e
0x0abc…0ac0 Statement 02112 @0x1758
0x0ac0…0ac4 Statement 02103 @0x1725
0x0ac4…0ac8 Statement 02101 @0x1724
0x0ac8…0acc Statement 02096 @0x1721
0x0acc…0ad0 Statement 02085 @0x1711
0x0ad0…0ad4 Statement 02080 @0x16ea
0x0ad4…0ad8 Statement 02064 @0x16dc
0x0ad8…0adc Statement 02056 @0x16c1
0x0adc…0ae0 Statement 02052 @0x16aa
0x0ae0…0ae4 Statement 02051 @0x168b
0x0ae4…0ae8 Statement 02048 @0x167e
0x0ae8…0aec Statement 01941 @0x1647
0x0aec…0af0 Statement 01925 @0x1646
0x0af0…0af4 Statement 01920 @0x1643
0x0af4…0af8 Statement 01909 @0x162d
0x0af8…0afc Statement 01877 @0x161f
0x0afc…0b00 Statement 01872 @0x1616
0x0b00…0b04 Statement 01861 @0x15e3
0x0b04…0b08 Statement 01856 @0x15e2
0x0b08…0b0c Statement 01845 @0x15df
0x0b0c…0b10 Statement 01536 @0x15cb
0x0b10…0b14 Statement 01429 @0x15b7
0x0b14…0b18 Statement 01424 @0x15a3
0x0b18…0b1c Statement 01413 @0x158f
0x0b1c…0b20 Statement 01408 @0x157f
0x0b20…0b24 Statement 01397 @0x1548
0x0b24…0b28 Statement 01392 @0x1547
0x0b28…0b2c Statement 01381 @0x1544
0x0b2c…0b30 Statement 01376 @0x1529
0x0b30…0b34 Statement 01365 @0x1517
0x0b34…0b38 Statement 01360 @0x1505
0x0b38…0b3c Statement 01349 @0x14e4
0x0b3c…0b40 Statement 01344 @0x14bb
0x0b40…0b44 Statement 01333 @0x1497
0x0b44…0b48 Statement 01328 @0x1471
0x0b48…0b4c Statement 01317 @0x145d
0x0b4c…0b50 Statement 01312 @0x142b
0x0b50…0b54 Statement 01301 @0x142a
0x0b54…0b58 Statement 01300 @0x1426
0x0b58…0b5c Statement 01298 @0x1418
0x0b5c…0b60 Statement 01296 @0x13f1
0x0b60…0b64 Statement 01288 @0x13e5
0x0b64…0b68 Statement 01286 @0x13e1
0x0b68…0b6c Statement 01285 @0x13db
0x0b6c…0b70 Statement 01282 @0x13cb
0x0b70…0b74 Statement 01281 @0x13bf
0x0b74…0b78 Statement 01280 @0x139b
0x0b78…0b7c Statement 01176 @0x138f
0x0b7c…0b80 Statement 01175 @0x1364
0x0b80…0b84 Statement 01174 @0x1358
0x0b84…0b88 Statement 01173 @0x1341
0x0b88…0b8c Statement 01168 @0x1335
0x0b8c…0b90 Statement 01157 @0x1319
0x0b90…0b94 Statement 01136 @0x130d
0x0b94…0b98 Statement 01125 @0x12e8
0x0b98…0b9c Statement 01120 @0x12dc
0x0b9c…0ba0 Statement 01109 @0x12ac
0x0ba0…0ba4 Statement 01104 @0x12a0
0x0ba4…0ba8 Statement 01093 @0x1278
0x0ba8…0bac Statement 01088 @0x126c
0x0bac…0bb0 Statement 01077 @0x123e
0x0bb0…0bb4 Statement 01072 @0x1232
0x0bb4…0bb8 Statement 01061 @0x120b
0x0bb8…0bbc Statement 01056 @0x11ff
0x0bbc…0bc0 Statement 01045 @0x11db
0x0bc0…0bc4 Statement 01040 @0x11cf
0x0bc4…0bc8 Statement 01029 @0x11a8
0x0bc8…0bcc Statement 01024 @0x119c
0x0bcc…0bd0 Statement 00917 @0x119a
0x0bd0…0bd4 Statement 00916 @0x1176
0x0bd4…0bd8 Statement 00914 @0x1152
0x0bd8…0bdc Statement 00913 @0x1111
0x0bdc…0be0 Statement 00912 @0x1108
0x0be0…0be4 Statement 00905 @0x10fc
0x0be4…0be8 Statement 00904 @0x10fa
0x0be8…0bec Statement 00902 @0x10f6
0x0bec…0bf0 Statement 00901 @0x10bd
0x0bf0…0bf4 Statement 00896 @0x10bc
0x0bf4…0bf8 Statement 00885 @0x10b9
0x0bf8…0bfc Statement 00880 @0x10b6
0x0bfc…0c00 Statement 00864 @0x10b0
0x0c00…0c04 Statement 00854 @0x10ad
0x0c04…0c08 Statement 00832 @0x109a
0x0c08…0c0c Statement 00816 @0x107b
0x0c0c…0c10 Statement 00800 @0x1065
0x0c10…0c14 Statement 00789 @0x1052
0x0c14…0c18 Statement 00784 @0x1046
0x0c18…0c1c Statement 00656 @0x103e
0x0c1c…0c20 Statement 00640 @0x102d
0x0c20…0c24 Statement 00629 @0x1029
0x0c24…0c28 Statement 00624 @0x1014
0x0c28…0c2c Statement 00613 @0xfff
0x0c2c…0c30 Statement 00608 @0xff4
0x0c30…0c34 Statement 00597 @0xfed
0x0c34…0c38 Statement 00592 @0xfe2
0x0c38…0c3c Statement 00582 @0xfdb
0x0c3c…0c40 Statement 00581 @0xfbe
0x0c40…0c44 Statement 00576 @0xfb6
0x0c44…0c48 Statement 00560 @0xfae
0x0c48…0c4c Statement 00549 @0xfaa
0x0c4c…0c50 Statement 00544 @0xfa6
0x0c50…0c54 Statement 00528 @0xf75
0x0c54…0c58 Statement 00517 @0xf74
0x0c58…0c5c Statement 00512 @0xf71
0x0c5c…0c60 Statement 00402 @0xf6e
0x0c60…0c64 Statement 00400 @0xf5f
0x0c64…0c68 Statement 00391 @0xf58
0x0c68…0c6c Statement 00389 @0xf2b
0x0c6c…0c70 Statement 00384 @0xf24
0x0c70…0c74 Statement 00373 @0xef8
0x0c74…0c78 Statement 00368 @0xef2
0x0c78…0c7c Statement 00357 @0xecc
0x0c7c…0c80 Statement 00356 @0xeca
0x0c80…0c84 Statement 00354 @0xebe
0x0c84…0c88 Statement 00352 @0xeb6
0x0c88…0c8c Statement 00341 @0xe8b
0x0c8c…0c90 Statement 00336 @0xe8a
0x0c90…0c94 Statement 00325 @0xe87
0x0c94…0c98 Statement 00320 @0xe6c
0x0c98…0c9c Statement 00309 @0xe4c
0x0c9c…0ca0 Statement 00304 @0xe37
0x0ca0…0ca4 Statement 00293 @0xe31
0x0ca4…0ca8 Statement 00256 @0xe03
0x0ca8…0cac Statement 00144 @0xdfd
0x0cac…0cb0 Statement 00133 @0xdf0
0x0cb0…0cb4 Statement 00064 @0xde3
0x0cb4…0cb8 Statement 00048 @0xdd8
0x0cb8…0cbc Statement 00037 @0xdc9
0x0cbc…0cc0 Statement 00032 @0xdbd
0x0cc0…0cc4 Statement 00024 @0xd95
0x0cc4…0cc8 Statement 00022 @0xd8d
0x0cc8…0ccc Statement 00021 @0xd65
0x0ccc…0cd0 Statement 00009 @0xd5e
0x0cd0…0cd4 Statement 00008 @0xd4e
0x0cd4…0cd8 Statement 00007 @0xd28
0x0cd8…0cdc Statement 00006 @0xd1a
0x0cdc…0ce0 Statement 00005 @0xcfe
0x0ce0…0ce4 Statement 00002 @0xce4
0x0ce4…0cfe 0002 COM ELEMENT var(T0$) ( 8 ) [] ELEMENT var(T2$) ( 24 ) [] ELEMENT var(A$) ( 1 ) [] ELEMENT var(C$) ( 1 ) [] EOS
0x0cfe…0d1a 0005 COM ELEMENT var(N1$) ( 20 ) [] ELEMENT var(N2$) ( 20 ) [] ELEMENT var(N3$) ( 20 ) [] ELEMENT var(T9$) ( %80 ) [] EOS
0x0d1a…0d28 0006 COM ELEMENT var(P$) ( 8 ) [] ELEMENT var(Q$) ( 8 ) [] EOS
0x0d28…0d4e 0007 COM ELEMENT var(P') ( 5 ) [] ELEMENT var(Q') ( 5 ) [] ELEMENT var(X1') ( 5 ) [] ELEMENT var(Y1') ( 5 ) [] ELEMENT var(X2') ( 5 ) [] ELEMENT var(Y2') ( 5 ) [] EOS
0x0d4e…0d5e 0008 COM ELEMENT var(W$) ( 1 ) [] var(S0) var(X7) var(Y7) var(V0) var(V1) var(P1) var(W8) var(W9) EOS
0x0d5e…0d65 0009 COM var(M0) var(M9%) var(D9) var(Q0) var(D2) EOS
0x0d65…0d8d 0015 DIM ELEMENT var(S$) ( 1 ) [] ELEMENT var(Q9$) ( 6 ) [] ELEMENT var(A') ( 4 ) [] ELEMENT var(B') ( 4 ) [] ELEMENT var(K1') ( 4 ) [] ELEMENT var(X$) ( %70 ) [] EOS
0x0d8d…0d95 0016 DIM ELEMENT var(V$) ( 40 ) [] EOS
0x0d95…0dbd 0018 LET var(V$) COMMA »Ver 3.1 sept 83 Copyright VIAK A/S« EOS
0x0dbd…0dc9 0020 LET var(Q9$) COMMA »DDDDDD« EOS
0x0dc9…0dd8 0025 SYSTEM »LINELEN« COMMA %80 EOS
0x0dd8…0de3 0030 SYSTEM »WARNOFF« EOS
0x0de3…0df0 0040 SYSTEM »BUFFERS« COMMA 4 EOS
0x0df0…0dfd 0085 LET var(S1) COMMA 1e+09 EOS
0x0dfd…0e03 0090 LET var(S9) COMMA var(S1) SUB1 EOS
0x0e03…0e31 0100 REM ----------- SCREEN-HANDLER --------------
0x0e31…0e37 0125 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x0e37…0e4c 0130 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af71736f450074afe2f2f3
0x0e4c…0e6c 0135 PRINT = ( 27 ) → af71736f460074afe271731f6ae274afe271731f6be274afe2f2f3
0x0e6c…0e87 0140 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → af71736f4e0069e374afe2f2f3
0x0e87…0e8a 0145 RETURN 1 EOS
0x0e8a…0e8b 0150 FNEND
0x0e8b…0eb6 0155 REM ------------ ERROR MESS.--------------
0x0eb6…0ebe 0160 DEF var(FNX9%) var(A%) var(B%) var(C%) EOS
0x0ebe…0eca 0162 LET var(X%) COMMA = ( 1 5 1 ) var(FNC%) EOS
0x0eca…0ecc 0164 PRINT EOS
0x0ecc…0ef2 0165 IF var(A%) var(N1$) »« EQ AND COMMA 15 = ( 5 ) → b5f27014536f727466696c20696b6b65206f707067697474f3
0x0ef2…0ef8 0170 ELSE 27 var(A%) COMMA 0 EOS
0x0ef8…0f24 0175 IF var(B%) var(N2$) »« EQ AND COMMA 15 = ( 5 ) → b5f27019506172616d6574657266696c20696b6b65206f707067697474f3
0x0f24…0f2b 0180 ELSE 27 var(B%) COMMA 0 EOS
0x0f2b…0f58 0185 IF var(C%) var(T2$) »« EQ AND COMMA 15 = ( 5 ) → b5f2701a496e70757466696c20696b6b6520696e697469616c6973657274f3
0x0f58…0f5f 0187 ELSE 27 var(C%) COMMA 0 EOS
0x0f5f…0f6e 0190 IF ( var(A%) var(B%) OR var(C%) OR ) → eff10501f3
0x0f6e…0f71 0192 GOSUB 0 → 95
0x0f71…0f74 0200 RETURN 0 EOS
0x0f74…0f75 0205 FNEND
0x0f75…0fa6 0210 REM -------- READ TOP OF SORTFILE --------------
0x0fa6…0faa 0220 DEF var(FNW%) EOS
0x0faa…0fae 0225 TRAP ERR 0360
0x0fae…0fb6 0230 LINPUT 1# COMMA 0 SEMI var(T9$) EOS
0x0fb6…0fbe 0240 LINPUT 1# COMMA 1 SEMI var(X$) EOS
0x0fbe…0fdb 0245 LET var(M0) COMMA = ( ELEMENT var(X$) ( 14 20 ) [] ) VAL COMMA var(V0) COMMA = ( ELEMENT var(X$) ( 1 13 ) [] ) VAL EOS
0x0fdb…0fe2 0246 LET var(Q0) COMMA var(S0) var(M0) DIV EOS
0x0fe2…0fed 0250 LET var(W$) COMMA ELEMENT var(X$) ( 21 21 ) [] EOS
0x0fed…0ff4 0255 19400401f105f3
0x0ff4…0fff 0260 LINPUT 1# COMMA var(I%) 1 PLUS SEMI var(X$) EOS
0x0fff…1014 0265 LET ELEMENT var(X1') ( var(I%) ) [] COMMA = ( ELEMENT var(X$) ( 32 43 ) [] ) VAL EOS
0x1014…1029 0270 LET ELEMENT var(Y1') ( var(I%) ) [] COMMA = ( ELEMENT var(X$) ( 20 31 ) [] ) VAL EOS
0x1029…102d 0275 1a4004f3
0x102d…103e 0280 LET var(W8) COMMA = ( var(V0) ) → a9f159f171735574a8f3
0x103e…1046 0290 LET var(X%) COMMA = var(FNR1%) EOS
0x1046…1052 0310 LET var(X%) COMMA = ( 2 5 1 ) var(FNC%) EOS
0x1052…1065 0315 PRINT »Betegnelse : « SEMI var(T9$) EOS
0x1065…107b 0320 PRINT »Maalestokk : 1:« SEMI var(M0) EOS
0x107b…109a 0330 PRINT »Origo : « SEMI ELEMENT var(Y1') ( 1 ) [] COMMA ELEMENT var(X1') ( 1 ) [] EOS
0x109a…10ad 0340 PRINT »Utvidelse : « SEMI var(W$) EOS
0x10ad…10b0 0356 RETURN 1 EOS
0x10b0…10b6 0360 REM C
0x10b6…10b9 0370 TRAP ERR OFF
0x10b9…10bc 0375 RETURN 0 EOS
0x10bc…10bd 0380 FNEND
0x10bd…10f6 0385 REM ---------- DISPLAY AND ACCEPT MENU-CHOICE ----------
0x10f6…10fa 0386 DEF var(FNM9%) EOS
0x10fa…10fc 0388 PRINT EOS
0x10fc…1108 0389 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1108…1111 0390 PRINT = ( 18 ) → b5f265f3
0x1111…1152 0391 PRINT » M A P D A T S T E R E O P L O T T E G N E P R O G R A M« EOS
0x1152…1176 0392 PRINT » *** Sortert inputfil : « SEMI var(N1$) EOS
0x1176…119a 0394 PRINT » *** Parameter-fil : « SEMI var(N2$) EOS
0x119a…119c 0395 PRINT EOS
0x119c…11a8 0400 LET var(X%) COMMA = ( 2 6 5 ) var(FNC%) EOS
0x11a8…11cf 0405 PRINT »1 ==> Angivelse av sortert inputfil« EOS
0x11cf…11db 0410 LET var(X%) COMMA = ( 2 7 5 ) var(FNC%) EOS
0x11db…11ff 0415 PRINT »2 ==> Angivelse av parameter-fil« EOS
0x11ff…120b 0420 LET var(X%) COMMA = ( 2 8 5 ) var(FNC%) EOS
0x120b…1232 0425 PRINT »3 ==> Initialisering av sortert fil« EOS
0x1232…123e 0430 LET var(X%) COMMA = ( 2 9 5 ) var(FNC%) EOS
0x123e…126c 0435 PRINT »4 ==> Kontroll av parameterfil (Valgfritt)« EOS
0x126c…1278 0440 LET var(X%) COMMA = ( 2 10 5 ) var(FNC%) EOS
0x1278…12a0 0445 PRINT »5 ==> Prosessering av plateparametre« EOS
0x12a0…12ac 0450 LET var(X%) COMMA = ( 2 11 5 ) var(FNC%) EOS
0x12ac…12dc 0455 PRINT »6 ==> Sekvensiell uttegning av samtlige tema« EOS
0x12dc…12e8 0460 LET var(X%) COMMA = ( 2 12 5 ) var(FNC%) EOS
0x12e8…130d 0465 PRINT »7 ==> Tegning av spesifisert tema« EOS
0x130d…1319 0470 LET var(X%) COMMA = ( 2 13 5 ) var(FNC%) EOS
0x1319…1335 0485 PRINT »8 ==> Definer nytt origo« EOS
0x1335…1341 0490 LET var(X%) COMMA = ( 2 14 5 ) var(FNC%) EOS
0x1341…1358 0495 PRINT »9 ==> Tekstutskrift« EOS
0x1358…1364 0496 LET var(X%) COMMA = ( 2 15 5 ) var(FNC%) EOS
0x1364…138f 0497 PRINT »10 ==> Uttegning av plottedata fra disk« EOS
0x138f…139b 0498 LET var(X%) COMMA = ( 2 16 5 ) var(FNC%) EOS
0x139b…13bf 0500 PRINT »11 ==> Gi avstand til plan-origo« EOS
0x13bf…13cb 0501 LET var(X%) COMMA = ( 2 17 5 ) var(FNC%) EOS
0x13cb…13db 0502 PRINT »12 ==>Udgang« EOS
0x13db…13e1 0505 REM C
0x13e1…13e5 0506 TRAP ERR 0505
0x13e5…13f1 0508 LET var(X%) COMMA = ( 3 19 5 ) var(FNC%) EOS
0x13f1…1418 0510 INPUT »Hva skal gj0res ? Gi kommando : « COMMA var(X%) EOS
0x1418…1426 0512 IF var(X%) 1 ?< var(X%) 12 > OR COMMA 0 5 5
0x1426…142a 0514 RETURN var(X%) EOS
0x142a…142b 0515 FNEND
0x142b…145d 0520 REM ------------- COMPUTE INTERSECTION ----------
0x145d…1471 0525 DEF var(FNS%) var(X1) var(Y1) var(X2) var(Y2) var(X3) var(Y3) var(X4) var(Y4) EOS
0x1471…1497 0530 IF = ( var(X2) var(X1) SUB2 ) ?ABS 1e-08 ?< COMMA 27 var(X2) COMMA var(X2) 1e-08 PLUS EOS
0x1497…14bb 0535 LET var(M) COMMA ( var(X2) var(X1) SUB2 ) ( var(Y1) var(Y3) SUB2 ) MULT ( var(X1) var(X3) SUB2 ) ( var(Y2) var(Y1) SUB2 ) MULT SUB2 EOS
0x14bb…14e4 0540 LET var(M) COMMA var(M) ( ( var(X2) var(X1) SUB2 ) ( var(Y4) var(Y3) SUB2 ) MULT ( var(X4) var(X3) SUB2 ) ( var(Y2) var(Y1) SUB2 ) MULT SUB2 ) DIV EOS
0x14e4…1505 0545 LET var(L) COMMA ( var(M) ( var(X4) var(X3) SUB2 ) MULT ( var(X1) var(X3) SUB2 ) SUB2 ) ( var(X2) var(X1) SUB2 ) DIV EOS
0x1505…1517 0550 LET var(X5) COMMA var(X3) var(M) ( var(X4) var(X3) SUB2 ) MULT PLUS EOS
0x1517…1529 0555 LET var(Y5) COMMA var(Y3) var(M) ( var(Y4) var(Y3) SUB2 ) MULT PLUS EOS
0x1529…1544 0560 IF var(L) 0 → ebf103401101e9f103401000ebf103401001e9f10501f3
0x1544…1547 0565 RETURN 0 EOS
0x1547…1548 0570 FNEND
0x1548…157f 0575 REM ----------- ENKELT SKJAEREMERKE-------------------
0x157f…158f 0580 DEF var(FNS1%) var(X) var(Y) var(A) var(B) var(C) var(D) EOS
0x158f…15a3 0585 LET var(X%) COMMA = ( var(X) var(D) SUB2 var(Y) »U« ) var(FNP%) EOS
0x15a3…15b7 0590 LET var(X%) COMMA = ( var(X) var(B) PLUS var(Y) »D« ) var(FNP%) EOS
0x15b7…15cb 0595 LET var(X%) COMMA = ( var(X) var(Y) var(A) SUB2 »U« ) var(FNP%) EOS
0x15cb…15df 0600 LET var(X%) COMMA = ( var(X) var(Y) var(C) PLUS »D« ) var(FNP%) EOS
0x15df…15e2 0735 RETURN 1 EOS
0x15e2…15e3 0740 FNEND
0x15e3…1616 0745 REM -------------- PLOT-COORDINATE ---------------
0x1616…161f 0750 DEF var(FNP%) var(X) var(Y) var(S$) EOS
0x161f…162d 0755 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x162d…1643 0775 PRINT 5# SEMI var(S$) SEMI USING var(Q9$) COMMA var(Y3) SEMI »,« SEMI USING var(Q9$) COMMA var(X3) EOS
0x1643…1646 0780 RETURN 1 EOS
0x1646…1647 0785 FNEND
0x1647…167e 0795 REM ------------- OUTPUT STRING OR SYMBOL ------------
0x167e…168b 0800 DEF var(FNX%) var(X) var(Y) var(H) var(V) var(X$) EOS
0x168b…16aa 0803 IF var(V) 360 > COMMA 27 var(V) COMMA var(V) 360 SUB2 EOS
0x16aa…16c1 0804 IF var(V) 0 ?< COMMA 27 var(V) COMMA var(V) 360 PLUS EOS
0x16c1…16dc 0808 LET var(V) COMMA var(V) %100 MULT COMMA var(H) COMMA var(H) 3.333 MULT EOS
0x16dc…16ea 0810 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x16ea…1711 0820 PRINT 5# SEMI »L« SEMI USING var(Q9$) COMMA var(V) SEMI »,« SEMI USING var(Q9$) COMMA var(H) SEMI »,« SEMI USING var(Q9$) COMMA var(Y3) SEMI »,« SEMI EOS
0x1711…1721 0825 PRINT 5# SEMI USING var(Q9$) COMMA var(X3) SEMI »,« SEMI var(X$) EOS
0x1721…1724 0830 RETURN 1 EOS
0x1724…1725 0835 FNEND
0x1725…1758 0837 REM ---------- DRAW GRID -------------------------
0x1758…175e 0840 DEF var(FNO%) var(X6) EOS
0x175e…1762 0841 TRAP ESC 0980
0x1762…1776 0842 PRINT »Rutenett tegnes.« EOS
0x1776…177c 0845 REM C
0x177c…178a 0850 IF var(X6) ELEMENT var(P') ( 3 ) [] → ebf1002009
0x178a…17bc 0855 REM ------- DRAW HORIZONTAL GRID-LINES ----------
0x17bc…17e4 0860 LET var(X%) COMMA = ( ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] ELEMENT var(P') ( 2 ) [] ELEMENT var(Q') ( 2 ) [] var(X6) var(S9) var(X6) var(S1) ) var(FNS%) EOS
0x17e4…1811 0865 IF var(X%) → eff11b4002f17173724b7302749f724c7302749f724b7303749f724c7303749f402167402166744007f3
0x1811…1817 0870 IF var(X%) COMMA 34 EOS
0x1817…1824 0875 LET var(A6) COMMA var(X5) COMMA var(B6) COMMA var(Y5) EOS
0x1824…184c 0880 LET var(X%) COMMA = ( ELEMENT var(P') ( 5 ) [] ELEMENT var(Q') ( 5 ) [] ELEMENT var(P') ( 4 ) [] ELEMENT var(Q') ( 4 ) [] var(X6) var(S9) var(X6) var(S1) ) var(FNS%) EOS
0x184c…1879 0885 IF var(X%) → eff11b4002f17173724b7304749f724c7304749f724b7303749f724c7303749f402167402166744007f3
0x1879…1886 0890 LET var(E6) COMMA var(X5) COMMA var(F6) COMMA var(Y5) EOS
0x1886…1897 0895 LET var(X%) COMMA = ( var(A6) var(B6) »U« ) var(FNP%) EOS
0x1897…18a8 0900 LET var(X%) COMMA = ( var(E6) var(F6) »D« ) var(FNP%) EOS
0x18a8…18b6 0902 LET var(X$) COMMA = ( = ( var(E6) ) → a174b0f3
0x18b6…18cc 0904 LET var(X$) COMMA » X « = ( = ( var(E6) ) → a174b0e2f3
0x18cc…18dd 0906 LET var(X%) COMMA = ( var(E6) var(F6) 2 0 var(X$) ) var(FNX%) EOS
0x18dd…18de 0908 DOEND
0x18de…18e8 0910 LET var(X6) COMMA var(X6) var(D1) PLUS EOS
0x18e8…18fd 0912 LET var(Y6) COMMA = ( ELEMENT var(Q') ( 2 ) [] var(D1) DIV ) → a14026e4f3
0x18fd…1900 0915 GOTO var(N1$) 8
0x1900…1932 0920 REM ------- DRAW VERTICAL GRID-LINES ------------
0x1932…1940 0925 IF var(Y6) ELEMENT var(Q') ( 4 ) [] → ebf1008009
0x1940…1968 0930 LET var(X%) COMMA = ( ELEMENT var(P') ( 2 ) [] ELEMENT var(Q') ( 2 ) [] ELEMENT var(P') ( 3 ) [] ELEMENT var(Q') ( 3 ) [] var(S9) var(Y6) var(S1) var(Y6) ) var(FNS%) EOS
0x1968…1995 0935 IF var(X%) → eff11b4002f17173724b7303749f724c7303749f724b7304749f724c7304749f674027664027744007f3
0x1995…199b 0940 IF var(X%) COMMA 34 EOS
0x199b…19ac 0945 LET var(X%) COMMA = ( var(X5) var(Y5) »U« ) var(FNP%) EOS
0x19ac…19d4 0950 LET var(X%) COMMA = ( ELEMENT var(P') ( 2 ) [] ELEMENT var(Q') ( 2 ) [] ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] var(S9) var(Y6) var(S1) var(Y6) ) var(FNS%) EOS
0x19d4…1a01 0955 IF var(X%) → eff11b4002f17173724b7301749f724c7301749f724b7304749f724c7304749f674027664027744007f3
0x1a01…1a16 0960 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) »D« ) var(FNP%) EOS
0x1a16…1a2c 0962 LET var(X$) COMMA » Y « = ( = ( var(Y5) ) → a174b0e2f3
0x1a2c…1a45 0964 LET var(X%) COMMA = ( var(X5) var(Y5) 2 270 var(X$) ) var(FNX%) EOS
0x1a45…1a46 0968 DOEND
0x1a46…1a50 0970 LET var(Y6) COMMA var(Y6) var(D1) PLUS EOS
0x1a50…1a53 0975 GOTO 32 9
0x1a53…1a56 0980 RETURN 1 EOS
0x1a56…1a57 0985 FNEND
0x1a57…1a7b 0990 DEF var(FND) var(X1) var(Y1) var(X2) var(Y2) 5 = ( ( var(X2) var(X1) SUB2 ) 2 POW ( var(Y2) var(Y1) SUB2 ) 2 POW PLUS ) SQR EOS
0x1a7b…1aae 1000 REM ------------- COMP. PLOTTING-UNITS -----------
0x1aae…1ab6 1005 DEF var(FNZ%) var(X) var(Y) EOS
0x1ab6…1ad9 1010 LET var(Q1) COMMA var(Q0) ( var(X) ELEMENT var(X1') ( 1 ) [] SUB2 ) MULT COMMA var(Q2) COMMA var(Q0) ( var(Y) ELEMENT var(Y1') ( 1 ) [] SUB2 ) MULT EOS
0x1ad9…1ae9 1020 LET var(X3) COMMA var(X7) var(Q1) var(W9) MULT PLUS var(Q2) var(W8) MULT SUB2 EOS
0x1ae9…1af9 1025 LET var(Y3) COMMA var(Y7) var(Q2) var(W9) MULT PLUS var(Q1) var(W8) MULT PLUS EOS
0x1af9…1afc 1034 RETURN 1 EOS
0x1afc…1afd 1035 FNEND
0x1afd…1b30 1037 REM ------------- OUTPUT GRID-CROSSES ------------
0x1b30…1b3c 1040 DEF var(FNU%) var(X1) var(X9) var(Y1) var(Y9) EOS
0x1b3c…1b40 1041 TRAP ESC 1135
0x1b40…1b59 1042 PRINT »Rutenettskryss tegnes« EOS
0x1b59…1b6a 1045 LET var(X6) COMMA = ( var(X1) var(D1) DIV ) → a14026e4f3
0x1b6a…1b70 1050 REM C
0x1b70…1b81 1055 LET var(Z6) COMMA = ( var(Y1) var(D1) DIV ) → a14026e4f3
0x1b81…1b87 1060 REM C
0x1b87…1b91 1065 IF var(Z6) var(Y9) → ebf1008510
0x1b91…1b9f 1070 LET var(X%) COMMA = ( var(X6) var(Z6) ) var(FNH%) EOS
0x1b9f…1ba9 1075 LET var(Z6) COMMA var(Z6) var(D1) PLUS EOS
0x1ba9…1bac 1080 GOTO var(Q9$) 16
0x1bac…1bb2 1085 REM C
0x1bb2…1bbc 1090 LET var(X6) COMMA var(X6) var(D1) PLUS EOS
0x1bbc…1bc6 1095 IF var(X6) var(X9) ?< COMMA 0 var(Y2') 16
0x1bc6…1bca 1135 REM
0x1bca…1bcd 1136 RETURN 1 EOS
0x1bcd…1bce 1140 FNEND
0x1bce…1bf1 1195 REM ------- COMPUTE WINDOW--------
0x1bf1…1bf5 1200 DEF var(FNR1%) EOS
0x1bf5…1bfc 1210 19400401f105f3
0x1bfc…1c19 1220 LET ELEMENT var(X2') ( var(I%) ) [] COMMA ELEMENT var(X1') ( var(I%) ) [] var(W9) MULT ELEMENT var(Y1') ( var(I%) ) [] var(W8) MULT SUB2 EOS
0x1c19…1c36 1230 LET ELEMENT var(Y2') ( var(I%) ) [] COMMA ELEMENT var(Y1') ( var(I%) ) [] var(W9) MULT ELEMENT var(X1') ( var(I%) ) [] var(W8) MULT PLUS EOS
0x1c36…1c3a 1240 1a4004f3
0x1c3a…1c42 1250 IF var(V0) 0 <> COMMA 5 0 EOS
0x1c42…1c59 1252 IF var(W$) »U« EQ COMMA 27 var(X) COMMA 0.015 var(M0) MULT EOS
0x1c59…1c6f 1254 ELSE 3 var(A$) »R« EQ COMMA 27 var(X) COMMA -0.1 EOS
0x1c6f…1c85 1256 ELSE 3 var(A$) »R« <> COMMA 27 var(X) COMMA 0.1 EOS
0x1c85…1ca8 1258 LET ELEMENT var(X2') ( 1 ) [] COMMA ELEMENT var(X2') ( 1 ) [] var(X) SUB2 COMMA ELEMENT var(Y2') ( 1 ) [] COMMA ELEMENT var(Y2') ( 1 ) [] var(X) SUB2 EOS
0x1ca8…1ccb 1260 LET ELEMENT var(X2') ( 2 ) [] COMMA ELEMENT var(X2') ( 2 ) [] var(X) PLUS COMMA ELEMENT var(Y2') ( 2 ) [] COMMA ELEMENT var(Y2') ( 2 ) [] var(X) SUB2 EOS
0x1ccb…1cee 1262 LET ELEMENT var(X2') ( 3 ) [] COMMA ELEMENT var(X2') ( 3 ) [] var(X) PLUS COMMA ELEMENT var(Y2') ( 3 ) [] COMMA ELEMENT var(Y2') ( 3 ) [] var(X) PLUS EOS
0x1cee…1d11 1264 LET ELEMENT var(X2') ( 4 ) [] COMMA ELEMENT var(X2') ( 4 ) [] var(X) SUB2 COMMA ELEMENT var(Y2') ( 4 ) [] COMMA ELEMENT var(Y2') ( 4 ) [] var(X) PLUS EOS
0x1d11…1d2e 1266 LET ELEMENT var(X2') ( 5 ) [] COMMA ELEMENT var(X2') ( 1 ) [] COMMA ELEMENT var(Y2') ( 5 ) [] COMMA ELEMENT var(Y2') ( 1 ) [] EOS
0x1d2e…1d31 1290 RETURN 1 EOS
0x1d31…1d32 1295 FNEND
0x1d32…1d66 1297 REM ---------- TEST IF X0,Y0 IS INSIDE WINDOW------
0x1d66…1d6e 1300 DEF var(FNG%) var(X0) var(Y0) EOS
0x1d6e…1d7c 1305 LET var(X) COMMA var(X0) var(W9) MULT var(Y0) var(W8) MULT SUB2 EOS
0x1d7c…1d8a 1310 LET var(Y) COMMA var(Y0) var(W9) MULT var(X0) var(W8) MULT PLUS EOS
0x1d8a…1da6 1325 LET var(D0%) COMMA ( ELEMENT var(X2') ( 2 ) [] var(X) > ) ( var(X) ELEMENT var(X2') ( 1 ) [] > ) AND EOS
0x1da6…1dc2 1340 LET var(E0%) COMMA ( ELEMENT var(Y2') ( 4 ) [] var(Y) > ) ( var(Y) ELEMENT var(Y2') ( 1 ) [] > ) AND EOS
0x1dc2…1dc9 1345 RETURN var(D0%) var(E0%) AND EOS
0x1dc9…1dca 1350 FNEND
0x1dca…1df8 1390 REM ---------- PLOT SINGLE GRID-CROSS--------
0x1df8…1e00 1400 DEF var(FNH%) var(X1) var(Y1) EOS
0x1e00…1e0f 1402 IF = ( var(X1) var(Y1) ) var(FNG%) → eff10500f3
0x1e0f…1e21 1410 LET var(D) COMMA var(M0) var(D9) MULT 2000 DIV EOS
0x1e21…1e2b 1420 LET var(A) COMMA var(X1) var(D) SUB2 EOS
0x1e2b…1e3e 1430 IF = ( var(A) var(Y1) ) var(FNG%) → eff11b4017f14008f3
0x1e3e…1e48 1440 LET var(B) COMMA var(X1) var(D) PLUS EOS
0x1e48…1e5b 1450 IF = ( var(B) var(Y1) ) var(FNG%) → eff11b4018f14008f3
0x1e5b…1e6c 1460 LET var(X%) COMMA = ( var(A) var(Y1) »U« ) var(FNP%) EOS
0x1e6c…1e7d 1470 LET var(X%) COMMA = ( var(B) var(Y1) »D« ) var(FNP%) EOS
0x1e7d…1e87 1480 LET var(A) COMMA var(Y1) var(D) SUB2 EOS
0x1e87…1e9a 1490 IF = ( var(X1) var(A) ) var(FNG%) → eff11b4017f14009f3
0x1e9a…1ea4 1500 LET var(B) COMMA var(Y1) var(D) PLUS EOS
0x1ea4…1eb7 1510 IF = ( var(X1) var(B) ) var(FNG%) → eff11b4018f14009f3
0x1eb7…1ec8 1520 LET var(X%) COMMA = ( var(X1) var(A) »U« ) var(FNP%) EOS
0x1ec8…1ed9 1530 LET var(X%) COMMA = ( var(X1) var(B) »D« ) var(FNP%) EOS
0x1ed9…1ee0 1540 19400401f104f3
0x1ee0…1efc 1550 LET var(X) COMMA = ( ELEMENT var(X1') ( var(I%) ) [] ELEMENT var(Y1') ( var(I%) ) [] var(X1) var(Y1) ) var(FND) EOS
0x1efc…1f2a 1560 IF var(X) ELEMENT var(K1') ( var(I%) ) [] ?< COMMA 27 ELEMENT var(K1') ( var(I%) ) [] COMMA var(X) COMMA ELEMENT var(A') ( var(I%) ) [] COMMA var(X1) COMMA ELEMENT var(B') ( var(I%) ) [] COMMA var(Y1) EOS
0x1f2a…1f2e 1570 1a4004f3
0x1f2e…1f31 1685 RETURN 1 EOS
0x1f31…1f32 1690 FNEND
0x1f32…1f65 1695 REM ---------- GRID-CROSS VALUES IF V0<>0 --------
0x1f65…1f69 1700 DEF var(FNR%) EOS
0x1f69…1f8c 1705 PRINT »Koordinatkryss-verdier paaf0res« EOS
0x1f8c…1f93 1710 19403601f104f3
0x1f93…1f99 1722 LET var(X%) COMMA 0 EOS
0x1f99…1fa3 1725 19403701f1403601e3f3
0x1fa3…1fcb 1730 LET var(X%) COMMA = ( ELEMENT var(A') ( var(I8%) ) [] ELEMENT var(B') ( var(I8%) ) [] ELEMENT var(A') ( var(I7%) ) [] ELEMENT var(B') ( var(I7%) ) [] ) var(FND) 1 ?< EOS
0x1fcb…1fd6 1740 IF var(X%) COMMA 27 var(I7%) COMMA var(I8%) EOS
0x1fd6…1fda 1750 1a4037f3
0x1fda…1fe1 1760 IF var(X%) → eff122f3
0x1fe1…1ff8 1765 LET var(A) COMMA ELEMENT var(A') ( var(I8%) ) [] COMMA var(B) COMMA ELEMENT var(B') ( var(I8%) ) [] EOS
0x1ff8…200a 1766 LET var(D) COMMA var(M0) var(D9) MULT 2000 DIV EOS
0x200a…2016 1767 LET var(V) COMMA var(V0) %180 MULT var(P1) DIV EOS
0x2016…2030 1770 LET var(F1) COMMA 270 var(V) SUB2 COMMA var(A) COMMA var(A) var(D) SUB2 EOS
0x2030…2043 1810 LET var(X$) COMMA = ( = ( ELEMENT var(B') ( var(I8%) ) [] ) → a174b0f3
0x2043…2051 1820 LET var(X$) COMMA » Y = « var(X$) PLUS EOS
0x2051…205f 1825 LET var(H) COMMA 1.5 EOS
0x205f…2072 1830 LET var(X%) COMMA = ( var(A) var(B) var(H) var(F1) var(X$) ) var(FNX%) EOS
0x2072…2089 1840 LET var(A) COMMA ELEMENT var(A') ( var(I8%) ) [] COMMA var(B) COMMA ELEMENT var(B') ( var(I8%) ) [] EOS
0x2089…2095 1845 LET var(V) COMMA var(V0) %180 MULT var(P1) DIV EOS
0x2095…20af 1850 LET var(F2) COMMA 360 var(V) SUB2 COMMA var(B) COMMA var(B) var(D) PLUS EOS
0x20af…20c2 1870 LET var(X$) COMMA = ( = ( ELEMENT var(A') ( var(I8%) ) [] ) → a174b0f3
0x20c2…20d0 1875 LET var(X$) COMMA » X = « var(X$) PLUS EOS
0x20d0…20de 1877 LET var(H) COMMA 1.5 EOS
0x20de…20f1 1880 LET var(X%) COMMA = ( var(A) var(B) var(H) var(F2) var(X$) ) var(FNX%) EOS
0x20f1…20f2 1970 DOEND
0x20f2…20f6 1980 1a4036f3
0x20f6…20f9 1990 RETURN 1 EOS
0x20f9…20fa 2000 FNEND
0x20fa…212c 2095 REM ------ DISPLAY POSITION AND MOVE PEN --------
0x212c…2134 2100 DEF var(FNJ9%) var(I%) var(X) EOS
0x2134…213c 2110 IF var(I%) → eff1006021
0x213c…2146 2120 LET var(X0) COMMA var(X0) var(X) PLUS EOS
0x2146…2152 2130 LET var(X%) COMMA = ( 3 13 5 ) var(FNC%) EOS
0x2152…2156 2140 PRINT var(X0) EOS
0x2156…2159 2150 GOTO → 9021
0x2159…2163 2160 LET var(Y0) COMMA var(Y0) var(X) PLUS EOS
0x2163…216f 2170 LET var(X%) COMMA = ( 3 14 5 ) var(FNC%) EOS
0x216f…2173 2180 PRINT var(Y0) EOS
0x2173…2184 2190 LET var(X%) COMMA = ( var(X0) var(Y0) »U« ) var(FNP%) EOS
0x2184…2187 2195 RETURN 1 EOS
0x2187…2188 2200 FNEND
0x2188…21bb 2395 REM -------- CORNER VAL. FOR STAND.SYSTEM --------
0x21bb…21bf 2400 DEF var(FNW7%) EOS
0x21bf…21dd 2401 PRINT »Hj0rnekoordinater paaf0res« EOS
0x21dd…21f7 2404 LET var(D) COMMA 0.015 var(M0) MULT COMMA var(H) COMMA 2 COMMA var(V) COMMA 0 EOS
0x21f7…220c 2405 LET var(U9) COMMA ELEMENT var(X1') ( 2 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 2 ) [] EOS
0x220c…221d 2406 IF var(W$) »U« EQ COMMA 27 var(V9) COMMA var(V9) var(D) SUB2 EOS
0x221d…2232 2407 LET var(X$) COMMA »X = « = ( ELEMENT var(X1') ( 2 ) [] ) → b0e2f3
0x2232…2251 2408 LET var(V9) COMMA var(V9) ( = ( var(X$) ) LEN 4 PLUS ) 2 MULT var(M0) MULT 1000 DIV SUB2 EOS
0x2251…2264 2410 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x2264…2279 2412 LET var(U9) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x2279…228a 2413 IF var(W$) »U« EQ COMMA 27 var(V9) COMMA var(V9) var(D) SUB2 EOS
0x228a…229f 2415 LET var(X$) COMMA »X = « = ( ELEMENT var(X1') ( 1 ) [] ) → b0e2f3
0x229f…22be 2418 LET var(V9) COMMA var(V9) ( = ( var(X$) ) LEN 4 PLUS ) 2 MULT var(M0) MULT 1000 DIV SUB2 EOS
0x22be…22d1 2420 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x22d1…22d7 2425 LET var(V) COMMA var(V1) EOS
0x22d7…22ec 2430 LET var(U9) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x22ec…22fd 2438 IF var(W$) »U« EQ COMMA 27 var(U9) COMMA var(U9) var(D) SUB2 EOS
0x22fd…2316 2439 LET var(X$) COMMA » Y = « = ( ELEMENT var(Y1') ( 1 ) [] ) → b0e2f3
0x2316…2329 2440 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x2329…233e 2442 LET var(U9) COMMA ELEMENT var(X1') ( 4 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 4 ) [] EOS
0x233e…234f 2444 IF var(W$) »U« EQ COMMA 27 var(U9) COMMA var(U9) var(D) SUB2 EOS
0x234f…2368 2445 LET var(X$) COMMA » Y = « = ( ELEMENT var(Y1') ( 4 ) [] ) → b0e2f3
0x2368…237b 2450 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x237b…237e 2575 RETURN 1 EOS
0x237e…237f 2580 FNEND
0x237f…23af 2595 REM -------------- COMPUTE TEXTBOX ------------
0x23af…23b3 2600 DEF var(FNW8%) EOS
0x23b3…23c7 2604 PRINT »Tekstboks tegnes« EOS
0x23c7…23fc 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
0x23fc…2425 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
0x2425…244e 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
0x244e…246b 2620 LET ELEMENT var(P') ( 2 ) [] COMMA ELEMENT var(P') ( 3 ) [] COMMA ELEMENT var(Q') ( 2 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x246b…2488 2625 LET ELEMENT var(P') ( 5 ) [] COMMA ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(Q') ( 5 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x2488…248b 2630 GOSUB 0 → 80
0x248b…248e 2690 RETURN 1 EOS
0x248e…248f 2695 FNEND
0x248f…24c0 2698 REM ---------- FRAME CORRECTION ----------------
0x24c0…24c6 2700 DEF var(FNW9%) var(Q) EOS
0x24c6…24e9 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
0x24e9…250c 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
0x250c…252f 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
0x252f…2552 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
0x2552…256f 2735 LET ELEMENT var(P') ( 5 ) [] COMMA ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(Q') ( 5 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x256f…2572 2790 RETURN 1 EOS
0x2572…2573 2800 FNEND
0x2573…25a7 2850 REM ------------- MAIN PROGRAM --------------------
0x25a7…25ab 2852 TRAP ERR 2855
0x25ab…25b3 2854 IF var(M9%) 0 <> COMMA 0 16 41
0x25b3…25b6 2860 GOSUB 0 → 99
0x25b6…25b9 2870 TRAP ERR OFF
0x25b9…25ca 2910 REM NEXT COMMAND
0x25ca…25e9 2920 ON = var(FNM9%) COMMA 1 var(FNG%) 48 49 → 9031353400360098007000600089509700500030f3
0x25e9…25ec 2930 GOTO 16 41
0x25ec…25f2 3000 REM C
0x25f2…25fe 3010 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x25fe…2600 3020 14f3
0x2600…2603 3024 TRAP ERR OFF
0x2603…2609 3025 CHAIN »TM« EOS
0x2609…260a 3030 END
0x260a…263f 3040 REM --------- OPEN,READ TOP OF SORTFILE ------------
0x263f…264b 3045 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x264b…2651 3050 LET var(T2$) COMMA »« EOS
0x2651…2657 3070 REM C
0x2657…2663 3075 LET var(X%) COMMA = ( 4 2 5 ) var(FNC%) EOS
0x2663…2679 3080 LINPUT »Oppgi sortfil : « COMMA var(N1$) EOS
0x2679…2681 3082 IF var(N1$) »« EQ COMMA 5 EOS
0x2681…269a 3085 1601f245700e3b4143433d494e3b5245433d3532e2f14002f3
0x269a…26a3 3090 IF var(X%) 0 <> COMMA 0 »\x03q@\x03\xef\xf1\x00p0«soh»\x00\x95\x05\xf3\x0bp0 ------------- OPEN PARAM.-FILE«
0x26a3…26ac 3122 IF = var(FNW%) → eff1007030
0x26ac…26af 3123 GOSUB 0 → 95
0x26af…26b1 3125 RETURN EOS
0x26b1…26e4 3130 REM ------------- OPEN PARAM.-FILE ---------------
0x26e4…26f0 3132 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x26f0…26f4 3135 REM
0x26f4…2700 3138 LET var(X%) COMMA = ( 3 2 1 ) var(FNC%) EOS
0x2700…2703 3140 1403f3
0x2703…271e 3145 LINPUT »Oppgi parameterfil : « COMMA var(N2$) EOS
0x271e…2726 3147 IF var(N2$) »« EQ COMMA 5 EOS
0x2726…2738 3150 1603f24670073b4143433d494ee2f14002f3
0x2738…2741 3155 IF var(X%) 0 <> COMMA 0 53 49
0x2741…2745 3166 TRAP ERR 3135
0x2745…274b 3168 LINPUT 3# SEMI var(X$) EOS
0x274b…2756 3170 LET var(A$) COMMA ELEMENT var(X$) ( 1 1 ) [] EOS
0x2756…2765 3172 LET var(D9) COMMA = ( ELEMENT var(X$) ( 2 3 ) [] ) VAL EOS
0x2765…2770 3174 LET var(C$) COMMA ELEMENT var(X$) ( 4 4 ) [] EOS
0x2770…2772 3176 PRINT EOS
0x2772…2789 3178 PRINT »Rammeparameter : « SEMI var(A$) EOS
0x2789…27a0 3180 PRINT »Krysslengde(mm): « SEMI var(D9) EOS
0x27a0…27b7 3182 PRINT »Opsjon,merking : « SEMI var(C$) EOS
0x27b7…27ba 3183 GOSUB 0 → 95
0x27ba…27bd 3186 TRAP ERR OFF
0x27bd…27bf 3188 RETURN EOS
0x27bf…27e7 3190 REM ------------ INITIALIZING INPUTFILE
0x27e7…27f3 3195 IF = ( 1 0 0 ) var(FNX9%) → eff105f3
0x27f3…27f7 3199 TRAP ERR 3340
0x27f7…2803 3200 LET var(T2$) COMMA var(N1$) ».TAB« PLUS EOS
0x2803…2806 3202 1402f3
0x2806…281f 3203 1602f242700e3b4143433d494e3b5245433d3132e2f14002f3
0x281f…2827 3204 IF var(X%) 0 EQ COMMA 5 EOS
0x2827…282a 3205 1402f3
0x282a…2830 3206 1e42f14002f3
0x2830…2851 3207 1602f24270163b4143433d4e45573b5245433d31323b524c3d353132e2f14002f3
0x2851…2877 3209 PRINT »Initialisering av sortert inputfil« EOS
0x2877…287d 3210 LET var(I%) COMMA 7 EOS
0x287d…2886 3220 LINPUT 1# COMMA var(I%) SEMI var(X$) EOS
0x2886…2897 3225 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 12 19 ) [] EOS
0x2897…289e 3230 LET var(I1%) COMMA var(I%) EOS
0x289e…28a5 3235 LET var(I2%) COMMA var(I%) EOS
0x28a5…28ab 3240 REM C
0x28ab…28b4 3245 LET var(I%) COMMA var(I%) 1 PLUS EOS
0x28b4…28bd 3250 LINPUT 1# COMMA var(I%) SEMI var(X$) EOS
0x28bd…28c7 3255 IF = ( 1 ) → b1f1000533
0x28c7…28d4 3260 IF var(Q$) ELEMENT var(X$) ( 12 19 ) [] <> COMMA 34 EOS
0x28d4…28e6 3265 13f402f2724a730108749ff14041f14042f3
0x28e6…28f7 3270 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 12 19 ) [] EOS
0x28f7…28fe 3275 LET var(I1%) COMMA var(I%) EOS
0x28fe…2905 3280 LET var(I2%) COMMA var(I%) EOS
0x2905…2906 3290 DOEND
0x2906…290e 3295 ELSE 27 var(I2%) COMMA var(I%) EOS
0x290e…2911 3300 GOTO var(Y0)
0x2911…2917 3305 REM C
0x2917…2929 3310 13f402f2724a730108749ff14041f14042f3
0x2929…292b 3330 RETURN EOS
0x292b…2931 3340 REM C
0x2931…2934 3350 TRAP ERR OFF
0x2934…293a 3355 LET var(T2$) COMMA »« EOS
0x293a…295c 3360 PRINT »Feil i sort-fil i linje nr « SEMI var(I%) EOS
0x295c…295f 3370 GOSUB 0 → 95
0x295f…2961 3430 RETURN EOS
0x2961…2998 3435 REM ------------- CONTROLLING PARAM.FILE -------------
0x2998…29a4 3438 IF = ( 1 1 1 ) var(FNX9%) → eff105f3
0x29a4…29a8 3440 RESTORE 2# EOS
0x29a8…29e1 3445 PRINT »Parameter-filen kontrolleres for manglende temakoder.« EOS
0x29e1…29f5 3450 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA »DUMMY-XX« EOS
0x29f5…29fb 3452 LET var(F%) COMMA 1 EOS
0x29fb…2a16 3455 REM NEXT TAB-FILE RECORD :
0x2a16…2a1a 3460 RESTORE 3# EOS
0x2a1a…2a2b 3470 LET ELEMENT var(P$) ( 1 8 ) [] COMMA ELEMENT var(Q$) ( 1 8 ) [] EOS
0x2a2b…2a35 3475 READ 2# SEMI var(Q$) var(I1%) var(I2%) EOS
0x2a35…2a3e 3477 IF = ( 2 ) → b1f105f3
0x2a3e…2a52 3480 IF ELEMENT var(Q$) ( 1 8 ) [] ELEMENT var(P$) ( 1 8 ) [] EQ COMMA 0 53 53
0x2a52…2a5b 3490 REM CONT
0x2a5b…2a61 3495 LINPUT 3# SEMI var(X$) EOS
0x2a61…2a6b 3500 IF = ( 3 ) → b1f1002035
0x2a6b…2a77 3502 IF = ( var(X$) ) LEN 0 EQ COMMA 0 32 53
0x2a77…2a8b 3505 IF ELEMENT var(Q$) ( 1 8 ) [] ELEMENT var(X$) ( 1 8 ) [] EQ COMMA 0 53 53
0x2a8b…2a8f 3515 ELSE 0 → 9034
0x2a8f…2a98 3520 REM CONT
0x2a98…2a9a 3522 PRINT EOS
0x2a9a…2ab2 3525 PRINT »Ukjent temakode : « COMMA var(Q$) EOS
0x2ab2…2ad5 3527 LINPUT »Trykk return for aa fortsette« COMMA var(X$) EOS
0x2ad5…2adb 3530 LET var(F%) COMMA 0 EOS
0x2adb…2ae1 3535 REM C
0x2ae1…2ae4 3540 GOTO var(V0) 52
0x2ae4…2ae6 3545 RETURN EOS
0x2ae6…2b16 3600 REM -------- PROCESSING FRAME-PARAMETERS-------
0x2b16…2b22 3602 IF = ( 1 1 0 ) var(FNX9%) → eff105f3
0x2b22…2b44 3604 PRINT »Prosessering av plateparametre« EOS
0x2b44…2b6c 3606 LINPUT »Stopp mellom hvert tema ? (J/N) : « COMMA var(X$) EOS
0x2b6c…2b6e 3607 PRINT EOS
0x2b6e…2b78 3608 LET var(F0%) COMMA var(X$) »J« EQ EOS
0x2b78…2b7b 3609 TRAP ESC 0bf3
0x2b7b…2b81 3615 REM C
0x2b81…2b88 3620 19404501f104f3
0x2b88…2b92 3625 IF = → b64044eef1016036
0x2b92…2ba0 3630 ON var(I0%) COMMA 1 var(Y2') 55 0 56 0 → 810082f3
0x2ba0…2ba4 3650 1a4045f3
0x2ba4…2ba6 3655 RETURN EOS
0x2ba6…2bb4 3660 REM C RESTART
0x2bb4…2bbb 3662 LET var(X%) COMMA = → b6f3
0x2bbb…2bd0 3663 PRINT 5# SEMI »U000000,000000« EOS
0x2bd0…2bd2 3664 PRINT EOS
0x2bd2…2bf2 3665 LINPUT »N=Neste,R=Repeat,E=Exit : « COMMA var(X$) EOS
0x2bf2…2bff 3670 IF var(X$) »E« EQ COMMA 27 var(I0%) COMMA 5 EOS
0x2bff…2c10 3680 ELSE 3 var(X$) »R« EQ COMMA 27 var(I0%) COMMA var(I0%) 1 SUB2 EOS
0x2c10…2c12 3690 PRINT EOS
0x2c12…2c19 3700 LET var(X%) COMMA = → b6f3
0x2c19…2c1b 3710 RETURN EOS
0x2c1b…2c4b 3750 REM --------- DRAW FRAME ----------------------
0x2c4b…2c54 3760 IF var(A$) »R« <> COMMA 5 EOS
0x2c54…2c68 3765 PRINT »Tegning av ramme« EOS
0x2c68…2c6f 3770 19400401f105f3
0x2c6f…2c90 3775 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
0x2c90…2c94 3780 1a4004f3
0x2c94…2cb0 3785 IF var(W$) »U« EQ COMMA 27 var(X%) COMMA = ( 0.015 var(M0) MULT ) var(FNW9%) EOS
0x2cb0…2cb3 3790 GOSUB 0 → 80
0x2cb3…2cb5 3795 RETURN EOS
0x2cb5…2ce6 3800 REM -------- DRAW GRID,GRIDCROSSES--------------
0x2ce6…2cf0 3805 IF var(D9) %99 EQ COMMA 0 32 var(T9$)
0x2cf0…2d00 3950 LET var(K%) COMMA = ( var(V0) ( var(P1) 2 DIV ) DIV ) → a1f3
0x2d00…2d07 3970 19400401f105f3
0x2d07…2d11 3975 LET var(J%) COMMA var(I%) var(K%) PLUS EOS
0x2d11…2d20 3980 IF var(J%) 4 > COMMA 27 var(J%) COMMA var(J%) 4 SUB2 EOS
0x2d20…2d31 3985 LET ELEMENT var(P') ( var(I%) ) [] COMMA ELEMENT var(X1') ( var(J%) ) [] EOS
0x2d31…2d42 3990 LET ELEMENT var(Q') ( var(I%) ) [] COMMA ELEMENT var(Y1') ( var(J%) ) [] EOS
0x2d42…2d46 4000 1a4004f3
0x2d46…2d66 4060 IF var(V0) 0 EQ var(W$) »U« EQ AND COMMA 27 var(X%) COMMA = ( 0.015 var(M0) MULT ) var(FNW9%) EOS
0x2d66…2d84 4070 IF var(V0) 0 EQ var(A$) »R« EQ AND COMMA 27 var(X%) COMMA = ( -0.1 ) var(FNW9%) EOS
0x2d84…2da2 4080 IF var(V0) 0 EQ var(A$) »R« <> AND COMMA 27 var(X%) COMMA = ( 0.1 ) var(FNW9%) EOS
0x2da2…2daa 4105 LET var(D1) COMMA var(D2) var(M0) MULT EOS
0x2daa…2dcf 4110 LET ELEMENT var(K1') ( 1 ) [] COMMA var(S1) COMMA ELEMENT var(K1') ( 2 ) [] COMMA var(S1) COMMA ELEMENT var(K1') ( 3 ) [] COMMA var(S1) COMMA ELEMENT var(K1') ( 4 ) [] COMMA var(S1) EOS
0x2dcf…2df1 4200 IF var(D9) 0 EQ COMMA 27 var(X%) COMMA = ( = ( ELEMENT var(P') ( 1 ) [] var(D1) DIV ) → a14026e44026e2744020f3
0x2df1…2df4 4210 ELSE 34 EOS
0x2df4…2e16 4220 LET var(X%) COMMA = ( ELEMENT var(P') ( 1 ) [] ELEMENT var(P') ( 3 ) [] ELEMENT var(Q') ( 2 ) [] ELEMENT var(Q') ( 4 ) [] ) var(FNU%) EOS
0x2e16…2e1e 4225 IF var(V0) 0 EQ COMMA 1 0 → 96
0x2e1e…2e2b 4230 IF var(V0) 0 <> COMMA 27 var(X%) COMMA = var(FNR%) EOS
0x2e2b…2e2c 4240 DOEND
0x2e2c…2e39 4250 IF var(V0) 0 EQ COMMA 27 var(X%) COMMA = var(FNW7%) EOS
0x2e39…2e3f 4820 REM C
0x2e3f…2e41 4830 RETURN EOS
0x2e41…2e5d 5000 REM SUB ---- CHANGE MARGINS
0x2e5d…2e69 5010 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x2e69…2e75 5020 LET var(X%) COMMA = ( 2 5 5 ) var(FNC%) EOS
0x2e75…2e81 5025 LET var(X) COMMA %100 var(X7) MULT var(S0) DIV EOS
0x2e81…2eb3 5030 PRINT »Avstand bordkant-yakse er : « SEMI USING »###.#« COMMA var(X) SEMI » cm« EOS
0x2eb3…2ebf 5035 LET var(Y) COMMA %100 var(Y7) MULT var(S0) DIV EOS
0x2ebf…2ecb 5036 LET var(X%) COMMA = ( 2 6 5 ) var(FNC%) EOS
0x2ecb…2efd 5040 PRINT »Avstand bordkant-xakse er : « SEMI USING »###.#« COMMA var(Y) SEMI » cm« EOS
0x2efd…2f09 5042 LET var(X%) COMMA = ( 2 8 5 ) var(FNC%) EOS
0x2f09…2f2c 5044 LINPUT »Skal verdiene endres (J/N) : « COMMA var(X$) EOS
0x2f2c…2f35 5046 IF var(X$) »J« <> COMMA 5 EOS
0x2f35…2f3b 5047 REM C
0x2f3b…2f3f 5048 TRAP ERR 5047
0x2f3f…2f4b 5050 LET var(X%) COMMA = ( 3 10 5 ) var(FNC%) EOS
0x2f4b…2f77 5060 LINPUT »Gi 1.avstand i cm (Return=standard) : « COMMA var(X$) EOS
0x2f77…2f8b 5070 IF var(X$) »« EQ COMMA 27 var(X) COMMA 2600 EOS
0x2f8b…2fa2 5080 ELSE 27 var(X) COMMA 0.01 = ( var(X$) ) VAL MULT var(S0) MULT EOS
0x2fa2…2fae 5085 LET var(X%) COMMA = ( 3 12 5 ) var(FNC%) EOS
0x2fae…2fda 5090 LINPUT »Gi 2.avstand i cm (Return=standard) : « COMMA var(X$) EOS
0x2fda…2fee 5100 IF var(X$) »« EQ COMMA 27 var(Y) COMMA 2800 EOS
0x2fee…3005 5110 ELSE 27 var(Y) COMMA 0.01 = ( var(X$) ) VAL MULT var(S0) MULT EOS
0x3005…3010 5120 LET var(X7) COMMA var(X) COMMA var(Y7) COMMA var(Y) EOS
0x3010…3013 5130 TRAP ERR OFF
0x3013…3015 5500 RETURN EOS
0x3015…3042 6000 REM -------------- SETT NYTT ORIGO ---------
0x3042…304e 6010 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x304e…3070 6020 PRINT »Plasser pennen i 0nsket origo.« EOS
0x3070…3094 6030 LINPUT »Trykk deretter return for meny« COMMA var(X$) EOS
0x3094…309c 6040 PRINT 5# SEMI »R« EOS
0x309c…309e 6050 RETURN EOS
0x309e…30d2 7000 REM -------------- SINGLE THEME PLOT --------------
0x30d2…30de 7015 IF = ( 1 1 1 ) var(FNX9%) → eff105f3
0x30de…30e3 7080 LET var(M9%) COMMA 2 EOS
0x30e3…30e6 7090 TRAP ERR OFF
0x30e6…30f0 7100 CHAIN »PLOT.2« EOS
0x30f0…30f2 7500 RETURN EOS
0x30f2…3123 8000 REM ------------- DRAW PQ-RECTANGLE ------------
0x3123…313c 8005 LET var(X%) COMMA = ( ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] »U« ) var(FNP%) EOS
0x313c…3143 8010 19403602f105f3
0x3143…315e 8015 LET var(X%) COMMA = ( ELEMENT var(P') ( var(I8%) ) [] ELEMENT var(Q') ( var(I8%) ) [] »D« ) var(FNP%) EOS
0x315e…3162 8020 1a4036f3
0x3162…3164 8050 RETURN EOS
0x3164…3198 8100 REM ------------- COORD-VALUES,CODE ---------------
0x3198…31aa 8105 PRINT »Tekst paaf0res« EOS
0x31aa…31e2 8110 LET var(Q) COMMA var(M0) 0.0015 MULT = ( ( ELEMENT var(X1') ( 2 ) [] ELEMENT var(X1') ( 1 ) [] SUB2 ) 2 POW ( ELEMENT var(Y1') ( 2 ) [] ELEMENT var(Y1') ( 1 ) [] SUB2 ) 2 POW PLUS ) SQR DIV EOS
0x31e2…3200 8115 LET var(A1) COMMA ELEMENT var(X1') ( 2 ) [] var(Q) ( ELEMENT var(X1') ( 2 ) [] ELEMENT var(X1') ( 1 ) [] SUB2 ) MULT SUB2 EOS
0x3200…321e 8120 LET var(B1) COMMA ELEMENT var(Y1') ( 2 ) [] var(Q) ( ELEMENT var(Y1') ( 2 ) [] ELEMENT var(Y1') ( 1 ) [] SUB2 ) MULT SUB2 EOS
0x321e…323c 8125 LET var(A2) COMMA ELEMENT var(X1') ( 3 ) [] var(Q) ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(X1') ( 4 ) [] SUB2 ) MULT SUB2 EOS
0x323c…325a 8130 LET var(B2) COMMA ELEMENT var(Y1') ( 3 ) [] var(Q) ( ELEMENT var(Y1') ( 3 ) [] ELEMENT var(Y1') ( 4 ) [] SUB2 ) MULT SUB2 EOS
0x325a…326f 8132 IF var(V0) 0 EQ COMMA 27 var(X) COMMA 0.099 var(M0) MULT EOS
0x326f…3280 8133 ELSE 27 var(X) COMMA 0.03 var(M0) MULT EOS
0x3280…32af 8135 LET var(Q) COMMA var(X) = ( ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(X1') ( 2 ) [] SUB2 ) 2 POW ( ELEMENT var(Y1') ( 3 ) [] ELEMENT var(Y1') ( 2 ) [] SUB2 ) 2 POW PLUS ) SQR DIV EOS
0x32af…32c1 8140 LET var(X) COMMA var(A1) var(Q) ( var(A2) var(A1) SUB2 ) MULT SUB2 EOS
0x32c1…32d3 8145 LET var(Y) COMMA var(B1) var(Q) ( var(B2) var(B1) SUB2 ) MULT SUB2 EOS
0x32d3…32e4 8195 LET var(X%) COMMA = ( var(X) var(Y) 4 var(V1) var(T9$) ) var(FNX%) EOS
0x32e4…32e6 8199 RETURN EOS
0x32e6…331d 8200 REM ------------- F0LGE OG SKJAEREMERKER -------------
0x331d…3326 8202 IF var(C$) »M« <> COMMA 5 EOS
0x3326…332f 8204 LET var(W8) COMMA 0 COMMA var(W9) COMMA 1 EOS
0x332f…3337 8205 LET var(X%) COMMA = var(FNW8%) EOS
0x3337…3359 8210 PRINT »Skjaere- og f0lgemerker tegnes« EOS
0x3359…3369 8215 LET var(S) COMMA var(M0) 0.005 MULT EOS
0x3369…3380 8220 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.08 MULT SUB2 EOS
0x3380…3397 8250 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.084 MULT SUB2 EOS
0x3397…33ab 8255 LET var(X%) COMMA = ( var(X) var(Y) 0 var(S) var(S) 0 ) var(FNS1%) EOS
0x33ab…33b2 8290 19400401f103f3
0x33b2…33c5 8300 LET var(X) COMMA var(X) var(M0) 0.21 MULT PLUS EOS
0x33c5…33de 8305 LET var(X%) COMMA = ( var(X) var(Y) 0 var(S) 2 DIV var(S) var(S) 2 DIV ) var(FNS1%) EOS
0x33de…33e2 8350 1a4004f3
0x33e2…33f5 8370 LET var(X) COMMA var(X) var(M0) 0.21 MULT PLUS EOS
0x33f5…3409 8375 LET var(X%) COMMA = ( var(X) var(Y) 0 0 var(S) var(S) ) var(FNS1%) EOS
0x3409…341c 8410 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT PLUS EOS
0x341c…3435 8415 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV 0 var(S) 2 DIV var(S) ) var(FNS1%) EOS
0x3435…3448 8460 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT PLUS EOS
0x3448…345c 8465 LET var(X%) COMMA = ( var(X) var(Y) var(S) 0 0 var(S) ) var(FNS1%) EOS
0x345c…3463 8510 19400401f103f3
0x3463…3476 8520 LET var(X) COMMA var(X) var(M0) 0.21 MULT SUB2 EOS
0x3476…348f 8525 LET var(X%) COMMA = ( var(X) var(Y) var(S) var(S) 2 DIV 0 var(S) 2 DIV ) var(FNS1%) EOS
0x348f…3493 8570 1a4004f3
0x3493…34a6 8580 LET var(X) COMMA var(X) var(M0) 0.21 MULT SUB2 EOS
0x34a6…34ba 8585 LET var(X%) COMMA = ( var(X) var(Y) var(S) var(S) 0 0 ) var(FNS1%) EOS
0x34ba…34cd 8620 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT SUB2 EOS
0x34cd…34e6 8625 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV var(S) var(S) 2 DIV 0 ) var(FNS1%) EOS
0x34e6…34fb 8650 REM YTRE MERKESETT:
0x34fb…3512 8670 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.11 MULT SUB2 EOS
0x3512…3529 8680 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.114 MULT SUB2 EOS
0x3529…353d 8685 LET var(X%) COMMA = ( var(X) var(Y) 0 var(S) var(S) 0 ) var(FNS1%) EOS
0x353d…3550 8720 LET var(X) COMMA var(X) var(M0) 0.9 MULT PLUS EOS
0x3550…3564 8725 LET var(X%) COMMA = ( var(X) var(Y) 0 0 var(S) var(S) ) var(FNS1%) EOS
0x3564…3577 8760 LET var(Y) COMMA var(Y) var(M0) 0.654 MULT PLUS EOS
0x3577…358b 8765 LET var(X%) COMMA = ( var(X) var(Y) var(S) 0 0 var(S) ) var(FNS1%) EOS
0x358b…359e 8770 LET var(X) COMMA var(X) var(M0) 0.9 MULT SUB2 EOS
0x359e…35b2 8780 LET var(X%) COMMA = ( var(X) var(Y) var(S) var(S) 0 0 ) var(FNS1%) EOS
0x35b2…35c5 8785 REM TEKSTBOKS NO 2
0x35c5…35dc 8790 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.056 MULT PLUS EOS
0x35dc…35f3 8795 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.04 MULT SUB2 EOS
0x35f3…35fe 8800 LET var(A) COMMA 0 COMMA var(B) COMMA 0 EOS
0x35fe…3605 8802 19400401f104f3
0x3605…3619 8804 LET var(X%) COMMA = ( var(X) var(Y) var(B) SUB2 »U« ) var(FNP%) EOS
0x3619…3639 8806 LET var(X%) COMMA = ( var(X) 0.036 var(M0) MULT PLUS var(Y) var(B) SUB2 »D« ) var(FNP%) EOS
0x3639…364d 8808 LET var(X%) COMMA = ( var(X) var(A) PLUS var(Y) »U« ) var(FNP%) EOS
0x364d…366d 8812 LET var(X%) COMMA = ( var(X) var(A) PLUS var(Y) 0.024 var(M0) MULT SUB2 »D« ) var(FNP%) EOS
0x366d…3692 8814 LET var(A) COMMA var(A) 0.012 var(M0) MULT PLUS COMMA var(B) COMMA var(B) 0.008 var(M0) MULT PLUS EOS
0x3692…3696 8820 1a4004f3
0x3696…36a7 8830 LET var(W8) COMMA = ( var(V0) ) → a9f159f171735574a8f3
0x36a7…36a9 8890 RETURN EOS
0x36a9…36e5 8900 REM ---------- Move pen to coordinate,plot text------------
0x36e5…36f1 8905 IF = ( 1 0 0 ) var(FNX9%) → eff105f3
0x36f1…3716 8910 LET var(X0) COMMA ELEMENT var(X1') ( 3 ) [] COMMA var(Y0) COMMA ELEMENT var(Y1') ( 3 ) [] COMMA var(X%) COMMA = ( var(X0) var(Y0) »U« ) var(FNP%) EOS
0x3716…3758 8920 PRINT »Rutine for manuell bevegelse av penn og tekst(symbol)-utskrift« EOS
0x3758…378b 8930 PRINT »Kontinuerlig bevegelse : Hold aktuell tast nede« EOS
0x378b…378d 8940 PRINT EOS
0x378d…378f 8950 PRINT EOS
0x378f…37ad 8960 PRINT »N ==> Beveg penn mot Nord.« EOS
0x37ad…37c9 8970 PRINT »S ==> Beveg penn mot syd« EOS
0x37c9…37dc 8980 PRINT »V ==> Mot vest.« EOS
0x37dc…37ed 8990 PRINT »O ==> Mot Ost« EOS
0x37ed…3802 9000 PRINT »H ==> Hastighet :« EOS
0x3802…3815 9010 PRINT »T ==> Gi tekst.« EOS
0x3815…3827 9020 PRINT »Q ==> Avslutt.« EOS
0x3827…3829 9030 PRINT EOS
0x3829…3834 9040 PRINT »X = « SEMI var(X0) EOS
0x3834…383f 9050 PRINT »Y = « SEMI var(Y0) EOS
0x383f…3844 9060 LET var(A%) COMMA 0 EOS
0x3844…3847 9070 GOSUB 48 → 94
0x3847…384a 9080 GOSUB 0 → 92
0x384a…3851 9090 19400400f101f3
0x3851…3857 9100 LET var(X$) COMMA = → b8f3
0x3857…386b 9110 IF var(X$) »N« EQ COMMA 27 var(X%) COMMA = ( 0 var(D5) ) var(FNJ9%) EOS
0x386b…3880 9120 ELSE 3 var(X$) »V« EQ COMMA 27 var(X%) COMMA = ( 1 var(D5) ) var(FNJ9%) EOS
0x3880…389f 9130 ELSE 3 var(X$) »S« EQ COMMA 27 var(X%) COMMA = ( 0 -1 var(D5) MULT ) var(FNJ9%) EOS
0x389f…38be 9140 ELSE 3 var(X$) »O« EQ COMMA 27 var(X%) COMMA = ( 1 -1 var(D5) MULT ) var(FNJ9%) EOS
0x38be…38c9 9150 ELSE 3 var(X$) »H« EQ COMMA 1 0 → 92
0x38c9…38d4 9160 ELSE 3 var(X$) »T« EQ COMMA 1 → 9092
0x38d4…38de 9170 LET var(I%) COMMA var(X$) »Q« EQ EOS
0x38de…38e2 9180 1a4004f3
0x38e2…38e4 9190 RETURN EOS
0x38e4…38f7 9200 REM BYTT HASTIGHET
0x38f7…38fe 9210 LET var(A%) COMMA var(A%) 0 EQ EOS
0x38fe…390a 9220 LET var(X%) COMMA = ( 3 9 20 ) var(FNC%) EOS
0x390a…3928 9230 IF var(A%) COMMA 15 »5 terrengmeter pr trykk« EOS
0x3928…3946 9240 ELSE 15 »0.1 terrengmeter pr trykk« EOS
0x3946…394f 9250 IF var(A%) COMMA 27 var(D5) COMMA 5 EOS
0x394f…395e 9260 ELSE 27 var(D5) COMMA 0.1 EOS
0x395e…3961 9270 GOSUB 48 → 94
0x3961…3963 9280 RETURN EOS
0x3963…3975 9290 REM -INPUT STRING
0x3975…3979 9300 TRAP ERR 9290
0x3979…3985 9310 LET var(X%) COMMA = ( 3 18 1 ) var(FNC%) EOS
0x3985…3997 9320 INPUT » Gi tekst : « COMMA var(X$) EOS
0x3997…39a0 9330 IF var(X$) »« EQ COMMA 0 → 8093
0x39a0…39bb 9340 INPUT » Gi vinkel (grader):« COMMA var(V) EOS
0x39bb…39d3 9350 INPUT » Gi h|yde i mm : « COMMA var(X) EOS
0x39d3…39e5 9360 INPUT » OK ? (J/N):« COMMA var(S$) EOS
0x39e5…39ef 9370 IF var(S$) »J« <> COMMA 0 → 9092
0x39ef…3a02 9375 LET var(X%) COMMA = ( var(X0) var(Y0) var(X) var(V) var(X$) ) var(FNX%) EOS
0x3a02…3a08 9380 REM C
0x3a08…3a0b 9400 TRAP ERR OFF
0x3a0b…3a0e 9410 GOSUB 48 → 94
0x3a0e…3a10 9420 RETURN EOS
0x3a10…3a30 9430 REM POSISJONER CURSOR FOR INPUT
0x3a30…3a3c 9440 LET var(X%) COMMA = ( 2 15 1 ) var(FNC%) EOS
0x3a3c…3a3e 9450 RETURN EOS
0x3a3e…3a48 9500 REM ----
0x3a48…3a54 9510 LET var(X%) COMMA = ( 2 22 5 ) var(FNC%) EOS
0x3a54…3a72 9520 LINPUT »Trykk return for meny : « COMMA var(X$) EOS
0x3a72…3a74 9530 RETURN EOS
0x3a74…3a98 9600 REM --------- HALVRUTENETT---------
0x3a98…3ab6 9605 PRINT »5-cm rutenettskryss tegnes« EOS
0x3ab6…3abd 9610 19400400f101f3
0x3abd…3ad8 9620 LET var(X6) COMMA = ( ELEMENT var(X1') ( 1 ) [] var(D1) DIV ) → a14026e440044026e4e2f3
0x3ad8…3af9 9630 IF = ( var(X6) ELEMENT var(X1') ( 1 ) [] SUB2 ) ?ABS 1 ?< COMMA 27 var(I%) COMMA 2 COMMA var(X6) COMMA ELEMENT var(X1') ( 2 ) [] EOS
0x3af9…3b05 9640 ELSE 27 var(X6) COMMA ELEMENT var(X1') ( 1 ) [] EOS
0x3b05…3b09 9650 1a4004f3
0x3b09…3b1e 9660 LET var(Y6) COMMA = ( ELEMENT var(Y1') ( 1 ) [] var(D1) DIV ) → a14026e4f3
0x3b1e…3b25 9670 19403600f101f3
0x3b25…3b33 9680 LET var(X%) COMMA = ( var(X6) var(Y6) ) var(FNH%) EOS
0x3b33…3b3d 9690 LET var(Y6) COMMA var(Y6) var(D1) PLUS EOS
0x3b3d…3b4b 9700 LET var(I8%) COMMA var(Y6) ELEMENT var(Y1') ( 4 ) [] > EOS
0x3b4b…3b4f 9710 1a4036f3
0x3b4f…3b51 9720 RETURN EOS
0x3b51…3b83 9750 REM ------------- CHAIN TO DISKPLOT-MODULE -------
0x3b83…3b8f 9760 CHAIN »PLOTDISK« EOS
0x3b8f…3b91 9770 RETURN EOS
0x3b91…3bc1 9800 REM -------- CHAIN TO NEXT MODULE -------------
0x3bc1…3bcd 9807 IF = ( 1 1 1 ) var(FNX9%) → eff105f3
0x3bcd…3bd2 9812 LET var(M9%) COMMA 1 EOS
0x3bd2…3bdc 9815 CHAIN »PLOT.2« EOS
0x3bdc…3bde 9850 RETURN EOS
0x3bde…3bf8 9900 REM SUB ---INIT PLOT-----
0x3bf8…3c04 9910 1605f27006245445524d33f3
0x3c04…3c0c 9920 PRINT 5# SEMI »R« EOS
0x3c0c…3c21 9925 PRINT var(T2$) »« EQ COMMA var(N1$) »« EQ COMMA var(N2$) »« EQ COMMA var(N3$) »« EQ EOS
0x3c21…3c52 9930 LET var(S0) COMMA 20000 COMMA var(X7) COMMA 2600 COMMA var(Y7) COMMA 2800 COMMA var(V1) COMMA 270 EOS
0x3c52…3c5f 9940 LET var(P1) COMMA 3.14159 EOS
0x3c5f…3c6c 9950 LET var(D2) COMMA 0.1 EOS
0x3c6c…3c6e 9990 RETURN EOS