|
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: 16079 (0x3ecf)
Notes: ZILOG_BASIC
Names: »PLOTAMUS.BP«
└─⟦837bc648a⟧ Bits:30006817 8" ZilogMCZ floppy NThun_0019 (Styredisk Plot - Prepare)
└─⟦this⟧ »PLOTAMUS.BP«
0x0000…0014 BasicHead {variables=0x01fc, stms=0x0b54, f2=0x316b, f3=0000000000000000000000000000}
0x0014…0210 [
0x0014…0210 [0x00]: VarDef {f0=0xaaaa, f1=0x45, f2=0x03} D5 0x7e
0x0014…0210 [0x01]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x12} S 0x7d
0x0014…0210 [0x02]: VarDef {f0=0xaaaa, f1=0x42, f2=0x01} B2 0x7c
0x0014…0210 [0x03]: VarDef {f0=0xaaaa, f1=0x42, f2=0x00} A2 0x7b
0x0014…0210 [0x04]: VarDef {f0=0xaaaa, f1=0x41, f2=0x01} B1 0x7a
0x0014…0210 [0x05]: VarDef {f0=0xaaaa, f1=0x41, f2=0x00} A1 0x79
0x0014…0210 [0x06]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x29} J% 0x78
0x0014…0210 [0x07]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x2a} K% 0x77
0x0014…0210 [0x08]: VarDef {f0=0xaaaa, f1=0x40, f2=0x28} I0% 0x76
0x0014…0210 [0x09]: VarDef {f0=0xaaaa, f1=0x40, f2=0x25} F0% 0x75
0x0014…0210 [0x0a]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x25} F% 0x74
0x0014…0210 [0x0b]: VarDef {f0=0xaaaa, f1=0x42, f2=0x28} I2% 0x73
0x0014…0210 [0x0c]: VarDef {f0=0xaaaa, f1=0x41, f2=0x28} I1% 0x72
0x0014…0210 [0x0d]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x10} Q 0x71
0x0014…0210 [0x0e]: VarDef {f0=0xfabc, f1=0x59, f2=0x36} FNW9% 0x70
0x0014…0210 [0x0f]: VarDef {f0=0xfae8, f1=0x58, f2=0x36} FNW8% 0x6f
0x0014…0210 [0x10]: VarDef {f0=0xaaaa, f1=0x49, f2=0x15} V9 0x6e
0x0014…0210 [0x11]: VarDef {f0=0xaaaa, f1=0x49, f2=0x14} U9 0x6d
0x0014…0210 [0x12]: VarDef {f0=0xfb4c, f1=0x57, f2=0x36} FNW7% 0x6c
0x0014…0210 [0x13]: VarDef {f0=0xfb80, f1=0x59, f2=0x29} FNJ9% 0x6b
0x0014…0210 [0x14]: VarDef {f0=0xaaaa, f1=0x42, f2=0x05} F2 0x6a
0x0014…0210 [0x15]: VarDef {f0=0xaaaa, f1=0x41, f2=0x05} F1 0x69
0x0014…0210 [0x16]: VarDef {f0=0xaaaa, f1=0x47, f2=0x28} I7% 0x68
0x0014…0210 [0x17]: VarDef {f0=0xaaaa, f1=0x48, f2=0x28} I8% 0x67
0x0014…0210 [0x18]: VarDef {f0=0xfbf4, f1=0x5f, f2=0x31} FNR% 0x66
0x0014…0210 [0x19]: VarDef {f0=0xaaaa, f1=0x40, f2=0x24} E0% 0x65
0x0014…0210 [0x1a]: VarDef {f0=0xaaaa, f1=0x40, f2=0x23} D0% 0x64
0x0014…0210 [0x1b]: VarDef {f0=0xaaaa, f1=0x40, f2=0x18} Y0 0x63
0x0014…0210 [0x1c]: VarDef {f0=0xaaaa, f1=0x40, f2=0x17} X0 0x62
0x0014…0210 [0x1d]: VarDef {f0=0xfc6c, f1=0x5f, f2=0x26} FNG% 0x61
0x0014…0210 [0x1e]: VarDef {f0=0xfc4c, f1=0x5f, f2=0x27} FNH% 0x60
0x0014…0210 [0x1f]: VarDef {f0=0xaaaa, f1=0x46, f2=0x19} Z6 0x5f
0x0014…0210 [0x20]: VarDef {f0=0xaaaa, f1=0x49, f2=0x18} Y9 0x5e
0x0014…0210 [0x21]: VarDef {f0=0xaaaa, f1=0x49, f2=0x17} X9 0x5d
0x0014…0210 [0x22]: VarDef {f0=0xfcf8, f1=0x5f, f2=0x34} FNU% 0x5c
0x0014…0210 [0x23]: VarDef {f0=0xaaaa, f1=0x42, f2=0x10} Q2 0x5b
0x0014…0210 [0x24]: VarDef {f0=0xaaaa, f1=0x41, f2=0x10} Q1 0x5a
0x0014…0210 [0x25]: VarDef {f0=0xfd1c, f1=0x5f, f2=0x03} FND 0x59
0x0014…0210 [0x26]: VarDef {f0=0xaaaa, f1=0x46, f2=0x18} Y6 0x58
0x0014…0210 [0x27]: VarDef {f0=0xaaaa, f1=0x41, f2=0x03} D1 0x57
0x0014…0210 [0x28]: VarDef {f0=0xaaaa, f1=0x46, f2=0x05} F6 0x56
0x0014…0210 [0x29]: VarDef {f0=0xaaaa, f1=0x46, f2=0x04} E6 0x55
0x0014…0210 [0x2a]: VarDef {f0=0xaaaa, f1=0x46, f2=0x01} B6 0x54
0x0014…0210 [0x2b]: VarDef {f0=0xaaaa, f1=0x46, f2=0x00} A6 0x53
0x0014…0210 [0x2c]: VarDef {f0=0xaaaa, f1=0x46, f2=0x17} X6 0x52
0x0014…0210 [0x2d]: VarDef {f0=0xfdb4, f1=0x5f, f2=0x2e} FNO% 0x51
0x0014…0210 [0x2e]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x15} V 0x50
0x0014…0210 [0x2f]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x07} H 0x4f
0x0014…0210 [0x30]: VarDef {f0=0xfddc, f1=0x5f, f2=0x37} FNX% 0x4e
0x0014…0210 [0x31]: VarDef {f0=0xaaaa, f1=0x48, f2=0x18} Y8 0x4d
0x0014…0210 [0x32]: VarDef {f0=0xaaaa, f1=0x48, f2=0x17} X8 0x4c
0x0014…0210 [0x33]: VarDef {f0=0xfd14, f1=0x5f, f2=0x39} FNZ% 0x4b
0x0014…0210 [0x34]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x11} R 0x4a
0x0014…0210 [0x35]: VarDef {f0=0xfe18, f1=0x51, f2=0x22} FNC1% 0x49
0x0014…0210 [0x36]: VarDef {f0=0xfdf4, f1=0x5f, f2=0x2f} FNP% 0x48
0x0014…0210 [0x37]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x03} D 0x47
0x0014…0210 [0x38]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x02} C 0x46
0x0014…0210 [0x39]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x01} B 0x45
0x0014…0210 [0x3a]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x00} A 0x44
0x0014…0210 [0x3b]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x18} Y 0x43
0x0014…0210 [0x3c]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x17} X 0x42
0x0014…0210 [0x3d]: VarDef {f0=0xfe38, f1=0x51, f2=0x32} FNS1% 0x41
0x0014…0210 [0x3e]: VarDef {f0=0xaaaa, f1=0x45, f2=0x18} Y5 0x40
0x0014…0210 [0x3f]: VarDef {f0=0xaaaa, f1=0x45, f2=0x17} X5 0x3f
0x0014…0210 [0x40]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x0b} L 0x3e
0x0014…0210 [0x41]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x0c} M 0x3d
0x0014…0210 [0x42]: VarDef {f0=0xaaaa, f1=0x44, f2=0x18} Y4 0x3c
0x0014…0210 [0x43]: VarDef {f0=0xaaaa, f1=0x44, f2=0x17} X4 0x3b
0x0014…0210 [0x44]: VarDef {f0=0xaaaa, f1=0x43, f2=0x18} Y3 0x3a
0x0014…0210 [0x45]: VarDef {f0=0xaaaa, f1=0x43, f2=0x17} X3 0x39
0x0014…0210 [0x46]: VarDef {f0=0xaaaa, f1=0x42, f2=0x18} Y2 0x38
0x0014…0210 [0x47]: VarDef {f0=0xaaaa, f1=0x42, f2=0x17} X2 0x37
0x0014…0210 [0x48]: VarDef {f0=0xaaaa, f1=0x41, f2=0x18} Y1 0x36
0x0014…0210 [0x49]: VarDef {f0=0xaaaa, f1=0x41, f2=0x17} X1 0x35
0x0014…0210 [0x4a]: VarDef {f0=0xfe64, f1=0x5f, f2=0x32} FNS% 0x34
0x0014…0210 [0x4b]: VarDef {f0=0xff04, f1=0x59, f2=0x2c} FNM9% 0x33
0x0014…0210 [0x4c]: VarDef {f0=0xfcb0, f1=0x51, f2=0x31} FNR1% 0x32
0x0014…0210 [0x4d]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x28} I% 0x31
0x0014…0210 [0x4e]: VarDef {f0=0xff68, f1=0x5f, f2=0x36} FNW% 0x30
0x0014…0210 [0x4f]: VarDef {f0=0x0100, f1=0x4f, f2=0x37} X% 0x2f
0x0014…0210 [0x50]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x22} C% 0x2e
0x0014…0210 [0x51]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x21} B% 0x2d
0x0014…0210 [0x52]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x20} A% 0x2c
0x0014…0210 [0x53]: VarDef {f0=0xffa0, f1=0x59, f2=0x37} FNX9% 0x2b
0x0014…0210 [0x54]: VarDef {f0=0xaaaa, f1=0x43, f2=0x22} C3% 0x2a
0x0014…0210 [0x55]: VarDef {f0=0xaaaa, f1=0x42, f2=0x22} C2% 0x29
0x0014…0210 [0x56]: VarDef {f0=0xaaaa, f1=0x41, f2=0x22} C1% 0x28
0x0014…0210 [0x57]: VarDef {f0=0xffc0, f1=0x5f, f2=0x22} FNC% 0x27
0x0014…0210 [0x58]: VarDef {f0=0x034c, f1=0x09, f2=0x12} S9 0x26
0x0014…0210 [0x59]: VarDef {f0=0x0344, f1=0x01, f2=0x12} S1 0x25
0x0014…0210 [0x5a]: VarDef {f0=0x0318, f1=0x0f, f2=0x55} V$ 0x24
0x0014…0210 [0x5b]: VarDef {f0=0x02ce, f1=0x0f, f2=0x57} X$ 0x23
0x0014…0210 [0x5c]: VarDef {f0=0x02aa, f1=0x01, f2=0x8a} K1' 0x22
0x0014…0210 [0x5d]: VarDef {f0=0x0286, f1=0x0f, f2=0x81} B' 0x21
0x0014…0210 [0x5e]: VarDef {f0=0x0262, f1=0x0f, f2=0x80} A' 0x20
0x0014…0210 [0x5f]: VarDef {f0=0x0258, f1=0x09, f2=0x50} Q9$ 0x1f
0x0014…0210 [0x60]: VarDef {f0=0x0253, f1=0x0f, f2=0x52} S$ 0x1e
0x0014…0210 [0x61]: VarDef {f0=0x024b, f1=0x02, f2=0x03} D2 0x1d
0x0014…0210 [0x62]: VarDef {f0=0x0243, f1=0x00, f2=0x10} Q0 0x1c
0x0014…0210 [0x63]: VarDef {f0=0x023b, f1=0x09, f2=0x03} D9 0x1b
0x0014…0210 [0x64]: VarDef {f0=0x0000, f1=0x09, f2=0x2c} M9% 0x1a
0x0014…0210 [0x65]: VarDef {f0=0x0233, f1=0x00, f2=0x0c} M0 0x19
0x0014…0210 [0x66]: VarDef {f0=0x022b, f1=0x09, f2=0x16} W9 0x18
0x0014…0210 [0x67]: VarDef {f0=0x0223, f1=0x08, f2=0x16} W8 0x17
0x0014…0210 [0x68]: VarDef {f0=0x021b, f1=0x01, f2=0x0f} P1 0x16
0x0014…0210 [0x69]: VarDef {f0=0x0213, f1=0x01, f2=0x15} V1 0x15
0x0014…0210 [0x6a]: VarDef {f0=0x020b, f1=0x00, f2=0x15} V0 0x14
0x0014…0210 [0x6b]: VarDef {f0=0x0203, f1=0x07, f2=0x18} Y7 0x13
0x0014…0210 [0x6c]: VarDef {f0=0x01fb, f1=0x07, f2=0x17} X7 0x12
0x0014…0210 [0x6d]: VarDef {f0=0x01f3, f1=0x00, f2=0x12} S0 0x11
0x0014…0210 [0x6e]: VarDef {f0=0x01ee, f1=0x0f, f2=0x56} W$ 0x10
0x0014…0210 [0x6f]: VarDef {f0=0x01c2, f1=0x02, f2=0x98} Y2' 0xf
0x0014…0210 [0x70]: VarDef {f0=0x0196, f1=0x02, f2=0x97} X2' 0xe
0x0014…0210 [0x71]: VarDef {f0=0x016a, f1=0x01, f2=0x98} Y1' 0xd
0x0014…0210 [0x72]: VarDef {f0=0x013e, f1=0x01, f2=0x97} X1' 0xc
0x0014…0210 [0x73]: VarDef {f0=0x0112, f1=0x0f, f2=0x90} Q' 0xb
0x0014…0210 [0x74]: VarDef {f0=0x00e6, f1=0x0f, f2=0x8f} P' 0xa
0x0014…0210 [0x75]: VarDef {f0=0x00da, f1=0x0f, f2=0x50} Q$ 0x9
0x0014…0210 [0x76]: VarDef {f0=0x00ce, f1=0x0f, f2=0x4f} P$ 0x8
0x0014…0210 [0x77]: VarDef {f0=0x007a, f1=0x09, f2=0x53} T9$ 0x7
0x0014…0210 [0x78]: VarDef {f0=0x0062, f1=0x03, f2=0x4d} N3$ 0x6
0x0014…0210 [0x79]: VarDef {f0=0x004a, f1=0x02, f2=0x4d} N2$ 0x5
0x0014…0210 [0x7a]: VarDef {f0=0x0032, f1=0x01, f2=0x4d} N1$ 0x4
0x0014…0210 [0x7b]: VarDef {f0=0x002d, f1=0x0f, f2=0x42} C$ 0x3
0x0014…0210 [0x7c]: VarDef {f0=0x0028, f1=0x0f, f2=0x40} A$ 0x2
0x0014…0210 [0x7d]: VarDef {f0=0x000c, f1=0x02, f2=0x53} T2$ 0x1
0x0014…0210 [0x7e]: VarDef {f0=0x0000, f1=0x00, f2=0x53} T0$ 0x0
0x0014…0210 ]
0x0210…0214 Statement 39312 @0x3ecd
0x0214…0218 Statement 39248 @0x3ec0
0x0218…021c Statement 39232 @0x3eb3
0x021c…0220 Statement 39216 @0x3e82
0x0220…0224 Statement 39205 @0x3e6d
0x0224…0228 Statement 39200 @0x3e65
0x0228…022c Statement 39184 @0x3e5a
0x022c…0230 Statement 39168 @0x3e40
0x0230…0234 Statement 38992 @0x3e3e
0x0234…0238 Statement 38933 @0x3e30
0x0238…023c Statement 38930 @0x3e2b
0x023c…0240 Statement 38919 @0x3e1f
0x0240…0244 Statement 38912 @0x3def
0x0244…0248 Statement 38768 @0x3ded
0x0248…024c Statement 38752 @0x3de1
0x024c…0250 Statement 38736 @0x3daf
0x0250…0254 Statement 38688 @0x3dad
0x0254…0258 Statement 38672 @0x3da9
0x0258…025c Statement 38656 @0x3d9b
0x025c…0260 Statement 38544 @0x3d91
0x0260…0264 Statement 38528 @0x3d83
0x0264…0268 Statement 38512 @0x3d7c
0x0268…026c Statement 38496 @0x3d67
0x026c…0270 Statement 38480 @0x3d63
0x0270…0274 Statement 38464 @0x3d57
0x0274…0278 Statement 38448 @0x3d36
0x0278…027c Statement 38432 @0x3d1b
0x027c…0280 Statement 38416 @0x3d14
0x0280…0284 Statement 38405 @0x3cf6
0x0284…0288 Statement 38400 @0x3cd2
0x0288…028c Statement 38192 @0x3cd0
0x028c…0290 Statement 38176 @0x3cb2
0x0290…0294 Statement 38160 @0x3ca6
0x0294…0298 Statement 38144 @0x3c9c
0x0298…029c Statement 37968 @0x3c9a
0x029c…02a0 Statement 37952 @0x3c8e
0x02a0…02a4 Statement 37936 @0x3c6e
0x02a4…02a8 Statement 37920 @0x3c6c
0x02a8…02ac Statement 37904 @0x3c69
0x02ac…02b0 Statement 37888 @0x3c66
0x02b0…02b4 Statement 37760 @0x3c60
0x02b4…02b8 Statement 37749 @0x3c4d
0x02b8…02bc Statement 37744 @0x3c43
0x02bc…02c0 Statement 37728 @0x3c31
0x02c0…02c4 Statement 37712 @0x3c19
0x02c4…02c8 Statement 37696 @0x3bfe
0x02c8…02cc Statement 37680 @0x3bf5
0x02cc…02d0 Statement 37664 @0x3be3
0x02d0…02d4 Statement 37648 @0x3bd7
0x02d4…02d8 Statement 37632 @0x3bd3
0x02d8…02dc Statement 37520 @0x3bc1
0x02dc…02e0 Statement 37504 @0x3bbf
0x02e0…02e4 Statement 37488 @0x3bbc
0x02e4…02e8 Statement 37472 @0x3bad
0x02e8…02ec Statement 37456 @0x3ba4
0x02ec…02f0 Statement 37440 @0x3b86
0x02f0…02f4 Statement 37424 @0x3b68
0x02f4…02f8 Statement 37408 @0x3b5c
0x02f8…02fc Statement 37392 @0x3b55
0x02fc…0300 Statement 37376 @0x3b42
0x0300…0304 Statement 37264 @0x3b40
0x0304…0308 Statement 37248 @0x3b3c
0x0308…030c Statement 37232 @0x3b32
0x030c…0310 Statement 37216 @0x3b27
0x0310…0314 Statement 37200 @0x3b1c
0x0314…0318 Statement 37184 @0x3afd
0x0318…031c Statement 37168 @0x3ade
0x031c…0320 Statement 37152 @0x3ac9
0x0320…0324 Statement 37136 @0x3ab5
0x0324…0328 Statement 37120 @0x3aaf
0x0328…032c Statement 37008 @0x3aa8
0x032c…0330 Statement 36992 @0x3aa5
0x0330…0334 Statement 36976 @0x3aa2
0x0334…0338 Statement 36960 @0x3a9d
0x0338…033c Statement 36944 @0x3a92
0x033c…0340 Statement 36928 @0x3a87
0x0340…0344 Statement 36912 @0x3a85
0x0344…0348 Statement 36896 @0x3a73
0x0348…034c Statement 36880 @0x3a60
0x034c…0350 Statement 36864 @0x3a4b
0x0350…0354 Statement 35216 @0x3a3a
0x0354…0358 Statement 35200 @0x3a27
0x0358…035c Statement 35184 @0x3a0b
0x035c…0360 Statement 35168 @0x39ed
0x0360…0364 Statement 35152 @0x39eb
0x0364…0368 Statement 35136 @0x39e9
0x0368…036c Statement 35120 @0x39b6
0x036c…0370 Statement 35104 @0x3974
0x0370…0374 Statement 35088 @0x394f
0x0374…0378 Statement 35077 @0x3943
0x0378…037c Statement 35072 @0x3907
0x037c…0380 Statement 34960 @0x3905
0x0380…0384 Statement 34864 @0x38f4
0x0384…0388 Statement 34848 @0x38f0
0x0388…038c Statement 34836 @0x38cb
0x038c…0390 Statement 34834 @0x38ab
0x0390…0394 Statement 34824 @0x3897
0x0394…0398 Statement 34822 @0x3877
0x0398…039c Statement 34820 @0x3863
0x039c…03a0 Statement 34818 @0x385c
0x03a0…03a4 Statement 34816 @0x3851
0x03a4…03a8 Statement 34709 @0x383a
0x03a8…03ac Statement 34704 @0x3823
0x03ac…03b0 Statement 34693 @0x3810
0x03b0…03b4 Statement 34688 @0x37fc
0x03b4…03b8 Statement 34672 @0x37e9
0x03b8…03bc Statement 34661 @0x37d5
0x03bc…03c0 Statement 34656 @0x37c2
0x03c0…03c4 Statement 34597 @0x37ae
0x03c4…03c8 Statement 34592 @0x379b
0x03c8…03cc Statement 34437 @0x3787
0x03cc…03d0 Statement 34432 @0x3770
0x03d0…03d4 Statement 34416 @0x3759
0x03d4…03d8 Statement 34384 @0x3744
0x03d8…03dc Statement 34341 @0x372b
0x03dc…03e0 Statement 34336 @0x3718
0x03e0…03e4 Statement 34181 @0x3704
0x03e4…03e8 Statement 34176 @0x36f1
0x03e8…03ec Statement 34160 @0x36ed
0x03ec…03f0 Statement 34085 @0x36d4
0x03f0…03f4 Statement 34080 @0x36c1
0x03f4…03f8 Statement 34064 @0x36ba
0x03f8…03fc Statement 33893 @0x36a6
0x03fc…0400 Statement 33888 @0x3693
0x0400…0404 Statement 33813 @0x367a
0x0404…0408 Statement 33808 @0x3667
0x0408…040c Statement 33653 @0x3653
0x040c…0410 Statement 33648 @0x3640
0x0410…0414 Statement 33616 @0x363c
0x0414…0418 Statement 33541 @0x3623
0x0418…041c Statement 33536 @0x3610
0x041c…0420 Statement 33424 @0x3609
0x0420…0424 Statement 33365 @0x35f5
0x0424…0428 Statement 33360 @0x35de
0x0428…042c Statement 33312 @0x35c7
0x042c…0430 Statement 33301 @0x35b7
0x0430…0434 Statement 33296 @0x3595
0x0434…0438 Statement 33285 @0x358d
0x0438…043c Statement 33284 @0x3584
0x043c…0440 Statement 33282 @0x357b
0x0440…0444 Statement 33280 @0x3544
0x0444…0448 Statement 33177 @0x3542
0x0448…044c Statement 33173 @0x3531
0x044c…0450 Statement 33093 @0x351f
0x0450…0454 Statement 33088 @0x350d
0x0454…0458 Statement 33077 @0x34de
0x0458…045c Statement 33075 @0x34cd
0x045c…0460 Statement 33074 @0x34b8
0x0460…0464 Statement 33072 @0x349a
0x0464…0468 Statement 33061 @0x347c
0x0468…046c Statement 33056 @0x345e
0x046c…0470 Statement 33045 @0x3440
0x0470…0474 Statement 33040 @0x3408
0x0474…0478 Statement 33029 @0x33f6
0x0478…047c Statement 33024 @0x33c2
0x047c…0480 Statement 32848 @0x33c0
0x0480…0484 Statement 32800 @0x33bc
0x0484…0488 Statement 32789 @0x33a1
0x0488…048c Statement 32784 @0x339a
0x048c…0490 Statement 32773 @0x3381
0x0490…0494 Statement 32768 @0x3350
0x0494…0498 Statement 29952 @0x334e
0x0498…049c Statement 28928 @0x3344
0x049c…04a0 Statement 28816 @0x3341
0x04a0…04a4 Statement 28800 @0x333c
0x04a4…04a8 Statement 28693 @0x3330
0x04a8…04ac Statement 28672 @0x32fc
0x04ac…04b0 Statement 24656 @0x32fa
0x04b0…04b4 Statement 24640 @0x32f2
0x04b4…04b8 Statement 24624 @0x32ce
0x04b8…04bc Statement 24608 @0x32ac
0x04bc…04c0 Statement 24592 @0x32a0
0x04c0…04c4 Statement 24576 @0x3273
0x04c4…04c8 Statement 21760 @0x3271
0x04c8…04cc Statement 20784 @0x326e
0x04cc…04d0 Statement 20768 @0x3263
0x04d0…04d4 Statement 20752 @0x324c
0x04d4…04d8 Statement 20736 @0x3238
0x04d8…04dc Statement 20624 @0x320c
0x04dc…04e0 Statement 20613 @0x3200
0x04e0…04e4 Statement 20608 @0x31e9
0x04e4…04e8 Statement 20592 @0x31d5
0x04e8…04ec Statement 20576 @0x31a9
0x04ec…04f0 Statement 20560 @0x319d
0x04f0…04f4 Statement 20552 @0x3199
0x04f4…04f8 Statement 20551 @0x3193
0x04f8…04fc Statement 20550 @0x318a
0x04fc…0500 Statement 20548 @0x3167
0x0500…0504 Statement 20546 @0x315b
0x0504…0508 Statement 20544 @0x3129
0x0508…050c Statement 20534 @0x311d
0x050c…0510 Statement 20533 @0x3111
0x0510…0514 Statement 20528 @0x30df
0x0514…0518 Statement 20517 @0x30d3
0x0518…051c Statement 20512 @0x30c7
0x051c…0520 Statement 20496 @0x30bb
0x0520…0524 Statement 20480 @0x309f
0x0524…0528 Statement 17280 @0x309d
0x0528…052c Statement 17232 @0x3082
0x052c…0530 Statement 17224 @0x306d
0x0530…0534 Statement 17222 @0x3069
0x0534…0538 Statement 17220 @0x3054
0x0538…053c Statement 17218 @0x303f
0x053c…0540 Statement 17216 @0x3038
0x0540…0544 Statement 17202 @0x3021
0x0544…0548 Statement 17200 @0x3010
0x0548…054c Statement 17192 @0x300c
0x054c…0550 Statement 17190 @0x2ffb
0x0550…0554 Statement 17188 @0x2fea
0x0554…0558 Statement 17186 @0x2fe3
0x0558…055c Statement 17184 @0x2fca
0x055c…0560 Statement 17168 @0x2fb1
0x0560…0564 Statement 17157 @0x2fa8
0x0564…0568 Statement 17152 @0x2f75
0x0568…056c Statement 17008 @0x2f73
0x056c…0570 Statement 16992 @0x2f6d
0x0570…0574 Statement 16976 @0x2f60
0x0574…0578 Statement 16960 @0x2f5f
0x0578…057c Statement 16944 @0x2f52
0x057c…0580 Statement 16933 @0x2f4a
0x0580…0584 Statement 16928 @0x2f28
0x0584…0588 Statement 16912 @0x2f25
0x0588…058c Statement 16896 @0x2f03
0x058c…0590 Statement 16656 @0x2ede
0x0590…0594 Statement 16645 @0x2ed6
0x0594…0598 Statement 16512 @0x2eb8
0x0598…059c Statement 16496 @0x2e9a
0x059c…05a0 Statement 16480 @0x2e7a
0x05a0…05a4 Statement 16384 @0x2e76
0x05a4…05a8 Statement 14736 @0x2e65
0x05a8…05ac Statement 14725 @0x2e54
0x05ac…05b0 Statement 14720 @0x2e45
0x05b0…05b4 Statement 14709 @0x2e3b
0x05b4…05b8 Statement 14704 @0x2e34
0x05b8…05bc Statement 14672 @0x2e24
0x05bc…05c0 Statement 14341 @0x2e1a
0x05c0…05c4 Statement 14336 @0x2de9
0x05c4…05c8 Statement 14229 @0x2de7
0x05c8…05cc Statement 14224 @0x2de4
0x05cc…05d0 Statement 14213 @0x2dc8
0x05d0…05d4 Statement 14208 @0x2dc4
0x05d4…05d8 Statement 14197 @0x2da3
0x05d8…05dc Statement 14192 @0x2d9c
0x05dc…05e0 Statement 14181 @0x2d88
0x05e0…05e4 Statement 14176 @0x2d7f
0x05e4…05e8 Statement 14160 @0x2d4f
0x05e8…05ec Statement 14096 @0x2d4d
0x05ec…05f0 Statement 14080 @0x2d46
0x05f0…05f4 Statement 13968 @0x2d44
0x05f4…05f8 Statement 13952 @0x2d33
0x05f8…05fc Statement 13936 @0x2d26
0x05fc…0600 Statement 13925 @0x2d06
0x0600…0604 Statement 13924 @0x2d04
0x0604…0608 Statement 13923 @0x2cef
0x0608…060c Statement 13922 @0x2ce8
0x060c…0610 Statement 13920 @0x2cda
0x0610…0614 Statement 13909 @0x2cd8
0x0614…0618 Statement 13904 @0x2cd4
0x0618…061c Statement 13872 @0x2cc4
0x061c…0620 Statement 13861 @0x2cba
0x0620…0624 Statement 13856 @0x2cb3
0x0624…0628 Statement 13845 @0x2cad
0x0628…062c Statement 13833 @0x2caa
0x062c…0630 Statement 13832 @0x2ca0
0x0630…0634 Statement 13831 @0x2c9e
0x0634…0638 Statement 13830 @0x2c76
0x0638…063c Statement 13828 @0x2c54
0x063c…0640 Statement 13826 @0x2c48
0x0640…0644 Statement 13824 @0x2c18
0x0644…0648 Statement 13637 @0x2c16
0x0648…064c Statement 13632 @0x2c13
0x064c…0650 Statement 13621 @0x2c0d
0x0650…0654 Statement 13616 @0x2c07
0x0654…0658 Statement 13607 @0x2be4
0x0658…065c Statement 13605 @0x2bcc
0x065c…0660 Statement 13602 @0x2bca
0x0660…0664 Statement 13600 @0x2bc1
0x0664…0668 Statement 13589 @0x2bbd
0x0668…066c Statement 13573 @0x2ba9
0x066c…0670 Statement 13570 @0x2b9d
0x0670…0674 Statement 13568 @0x2b93
0x0674…0678 Statement 13461 @0x2b8d
0x0678…067c Statement 13456 @0x2b84
0x067c…0680 Statement 13440 @0x2b70
0x0680…0684 Statement 13431 @0x2b67
0x0684…0688 Statement 13429 @0x2b5d
0x0688…068c Statement 13424 @0x2b4c
0x068c…0690 Statement 13408 @0x2b48
0x0690…0694 Statement 13397 @0x2b2d
0x0694…0698 Statement 13394 @0x2b27
0x0698…069c Statement 13392 @0x2b13
0x069c…06a0 Statement 13381 @0x2ada
0x06a0…06a4 Statement 13376 @0x2ad6
0x06a4…06a8 Statement 13368 @0x2aca
0x06a8…06ac Statement 13365 @0x2a93
0x06ac…06b0 Statement 13360 @0x2a91
0x06b0…06b4 Statement 13168 @0x2a8e
0x06b4…06b8 Statement 13152 @0x2a6c
0x06b8…06bc Statement 13141 @0x2a66
0x06bc…06c0 Statement 13136 @0x2a63
0x06c0…06c4 Statement 13120 @0x2a5d
0x06c4…06c8 Statement 13104 @0x2a5b
0x06c8…06cc Statement 13072 @0x2a49
0x06cc…06d0 Statement 13061 @0x2a43
0x06d0…06d4 Statement 13056 @0x2a40
0x06d4…06d8 Statement 12949 @0x2a38
0x06d8…06dc Statement 12944 @0x2a37
0x06dc…06e0 Statement 12928 @0x2a30
0x06e0…06e4 Statement 12917 @0x2a29
0x06e4…06e8 Statement 12912 @0x2a18
0x06e8…06ec Statement 12901 @0x2a06
0x06ec…06f0 Statement 12896 @0x29f9
0x06f0…06f4 Statement 12885 @0x29ef
0x06f4…06f8 Statement 12880 @0x29e6
0x06f8…06fc Statement 12869 @0x29dd
0x06fc…0700 Statement 12864 @0x29d7
0x0700…0704 Statement 12853 @0x29d0
0x0704…0708 Statement 12848 @0x29c9
0x0708…070c Statement 12837 @0x29b8
0x070c…0710 Statement 12832 @0x29af
0x0710…0714 Statement 12816 @0x29a9
0x0714…0718 Statement 12809 @0x2983
0x0718…071c Statement 12807 @0x2962
0x071c…0720 Statement 12806 @0x295c
0x0720…0724 Statement 12805 @0x2959
0x0724…0728 Statement 12804 @0x2951
0x0728…072c Statement 12803 @0x2938
0x072c…0730 Statement 12802 @0x2935
0x0730…0734 Statement 12800 @0x2929
0x0734…0738 Statement 12697 @0x2925
0x0738…073c Statement 12693 @0x2919
0x073c…0740 Statement 12688 @0x28f1
0x0740…0744 Statement 12680 @0x28ef
0x0744…0748 Statement 12678 @0x28ec
0x0748…074c Statement 12675 @0x28e9
0x074c…0750 Statement 12674 @0x28d2
0x0750…0754 Statement 12672 @0x28bb
0x0754…0758 Statement 12664 @0x28a4
0x0758…075c Statement 12662 @0x28a2
0x075c…0760 Statement 12660 @0x2897
0x0760…0764 Statement 12658 @0x2888
0x0764…0768 Statement 12656 @0x287d
0x0768…076c Statement 12648 @0x2877
0x076c…0770 Statement 12646 @0x2873
0x0770…0774 Statement 12629 @0x286a
0x0774…0778 Statement 12624 @0x2858
0x0778…077c Statement 12615 @0x2850
0x077c…0780 Statement 12613 @0x2835
0x0780…0784 Statement 12608 @0x2832
0x0784…0788 Statement 12600 @0x2826
0x0788…078c Statement 12597 @0x2822
0x078c…0790 Statement 12594 @0x2816
0x0790…0794 Statement 12592 @0x27e3
0x0794…0798 Statement 12581 @0x27e1
0x0798…079c Statement 12579 @0x27de
0x079c…07a0 Statement 12578 @0x27d5
0x07a0…07a4 Statement 12432 @0x27cc
0x07a4…07a8 Statement 12421 @0x27b3
0x07a8…07ac Statement 12418 @0x27ab
0x07ac…07b0 Statement 12416 @0x2795
0x07b0…07b4 Statement 12405 @0x2789
0x07b4…07b8 Statement 12400 @0x2783
0x07b8…07bc Statement 12368 @0x277d
0x07bc…07c0 Statement 12361 @0x2771
0x07c0…07c4 Statement 12352 @0x273c
0x07c4…07c8 Statement 12336 @0x273b
0x07c8…07cc Statement 12325 @0x2735
0x07cc…07d0 Statement 12324 @0x2732
0x07d0…07d4 Statement 12320 @0x2730
0x07d4…07d8 Statement 12304 @0x2724
0x07d8…07dc Statement 12288 @0x271e
0x07dc…07e0 Statement 10544 @0x271b
0x07e0…07e4 Statement 10528 @0x26fc
0x07e4…07e8 Statement 10517 @0x26ed
0x07e8…07ec Statement 10512 @0x26dc
0x07ec…07f0 Statement 10352 @0x26d9
0x07f0…07f4 Statement 10336 @0x26d6
0x07f4…07f8 Statement 10324 @0x26ce
0x07f8…07fc Statement 10322 @0x26ca
0x07fc…0800 Statement 10320 @0x2696
0x0800…0804 Statement 10240 @0x2695
0x0804…0808 Statement 10128 @0x2692
0x0808…080c Statement 10037 @0x2675
0x080c…0810 Statement 10032 @0x2652
0x0810…0814 Statement 10021 @0x262f
0x0814…0818 Statement 10016 @0x260c
0x0818…081c Statement 10005 @0x25e9
0x081c…0820 Statement 09984 @0x25e3
0x0820…0824 Statement 09880 @0x25b2
0x0824…0828 Statement 09877 @0x25b1
0x0828…082c Statement 09872 @0x25ae
0x082c…0830 Statement 09776 @0x25ab
0x0830…0834 Statement 09765 @0x258e
0x0834…0838 Statement 09760 @0x2571
0x0838…083c Statement 09749 @0x2548
0x083c…0840 Statement 09744 @0x251f
0x0840…0844 Statement 09733 @0x24ea
0x0844…0848 Statement 09732 @0x24d6
0x0848…084c Statement 09728 @0x24d2
0x084c…0850 Statement 09621 @0x24a2
0x0850…0854 Statement 09600 @0x24a1
0x0854…0858 Statement 09589 @0x249e
0x0858…085c Statement 09296 @0x248b
0x085c…0860 Statement 09285 @0x2472
0x0860…0864 Statement 09284 @0x2461
0x0864…0868 Statement 09282 @0x244c
0x0868…086c Statement 09280 @0x2439
0x086c…0870 Statement 09273 @0x2420
0x0870…0874 Statement 09272 @0x240f
0x0874…0878 Statement 09264 @0x23fa
0x0878…087c Statement 09253 @0x23f4
0x087c…0880 Statement 09248 @0x23e1
0x0880…0884 Statement 09240 @0x23c2
0x0884…0888 Statement 09237 @0x23ad
0x0888…088c Statement 09235 @0x239c
0x088c…0890 Statement 09234 @0x2387
0x0890…0894 Statement 09232 @0x2374
0x0894…0898 Statement 09224 @0x2355
0x0898…089c Statement 09223 @0x2340
0x089c…08a0 Statement 09222 @0x232f
0x08a0…08a4 Statement 09221 @0x231a
0x08a4…08a8 Statement 09220 @0x2300
0x08a8…08ac Statement 09217 @0x22e2
0x08ac…08b0 Statement 09216 @0x22de
0x08b0…08b4 Statement 09109 @0x22ab
0x08b4…08b8 Statement 08704 @0x22aa
0x08b8…08bc Statement 08597 @0x22a7
0x08bc…08c0 Statement 08592 @0x2296
0x08c0…08c4 Statement 08576 @0x2292
0x08c4…08c8 Statement 08560 @0x2286
0x08c8…08cc Statement 08544 @0x227c
0x08cc…08d0 Statement 08528 @0x2279
0x08d0…08d4 Statement 08512 @0x2275
0x08d4…08d8 Statement 08496 @0x2269
0x08d8…08dc Statement 08480 @0x225f
0x08dc…08e0 Statement 08464 @0x2257
0x08e0…08e4 Statement 08448 @0x224f
0x08e4…08e8 Statement 08341 @0x221d
0x08e8…08ec Statement 08192 @0x221c
0x08ec…08f0 Statement 06544 @0x2219
0x08f0…08f4 Statement 06528 @0x2215
0x08f4…08f8 Statement 06512 @0x2214
0x08f8…08fc Statement 06272 @0x2201
0x08fc…0900 Statement 06263 @0x21f3
0x0900…0904 Statement 06261 @0x21e5
0x0904…0908 Statement 06256 @0x21d2
0x0908…090c Statement 06224 @0x21b8
0x090c…0910 Statement 06213 @0x21ac
0x0910…0914 Statement 06208 @0x2195
0x0914…0918 Statement 06192 @0x2182
0x0918…091c Statement 06181 @0x2174
0x091c…0920 Statement 06176 @0x2166
0x0920…0924 Statement 06160 @0x2153
0x0924…0928 Statement 06000 @0x2139
0x0928…092c Statement 05991 @0x212d
0x092c…0930 Statement 05990 @0x211b
0x0930…0934 Statement 05989 @0x2104
0x0934…0938 Statement 05984 @0x20fd
0x0938…093c Statement 05968 @0x20f9
0x093c…0940 Statement 05952 @0x20ee
0x0940…0944 Statement 05936 @0x20c6
0x0944…0948 Statement 05925 @0x20bc
0x0948…094c Statement 05922 @0x20b6
0x094c…0950 Statement 05904 @0x20af
0x0950…0954 Statement 05893 @0x208c
0x0954…0958 Statement 05888 @0x2088
0x0958…095c Statement 05781 @0x2055
0x095c…0960 Statement 05776 @0x2054
0x0960…0964 Statement 05765 @0x2051
0x0964…0968 Statement 05488 @0x204d
0x0968…096c Statement 05472 @0x201f
0x096c…0970 Statement 05456 @0x2003
0x0970…0974 Statement 05440 @0x1ffc
0x0974…0978 Statement 05424 @0x1feb
0x0978…097c Statement 05408 @0x1fda
0x097c…0980 Statement 05392 @0x1fc7
0x0980…0984 Statement 05376 @0x1fbd
0x0984…0988 Statement 05264 @0x1faa
0x0988…098c Statement 05248 @0x1fa0
0x098c…0990 Statement 05232 @0x1f8f
0x0990…0994 Statement 05216 @0x1f7e
0x0994…0998 Statement 05200 @0x1f6b
0x0998…099c Statement 05184 @0x1f61
0x099c…09a0 Statement 05168 @0x1f4e
0x09a0…09a4 Statement 05152 @0x1f44
0x09a4…09a8 Statement 05136 @0x1f32
0x09a8…09ac Statement 05122 @0x1f23
0x09ac…09b0 Statement 05120 @0x1f1b
0x09b0…09b4 Statement 05008 @0x1eed
0x09b4…09b8 Statement 04944 @0x1eec
0x09b8…09bc Statement 04933 @0x1ee5
0x09bc…09c0 Statement 04928 @0x1ec9
0x09c0…09c4 Statement 04901 @0x1ead
0x09c4…09c8 Statement 04880 @0x1e9f
0x09c8…09cc Statement 04869 @0x1e91
0x09cc…09d0 Statement 04864 @0x1e89
0x09d0…09d4 Statement 04759 @0x1e55
0x09d4…09d8 Statement 04757 @0x1e54
0x09d8…09dc Statement 04752 @0x1e51
0x09dc…09e0 Statement 04710 @0x1e34
0x09e0…09e4 Statement 04708 @0x1e11
0x09e4…09e8 Statement 04706 @0x1dee
0x09e8…09ec Statement 04704 @0x1dcb
0x09ec…09f0 Statement 04696 @0x1da8
0x09f0…09f4 Statement 04694 @0x1d92
0x09f4…09f8 Statement 04692 @0x1d7c
0x09f8…09fc Statement 04690 @0x1d65
0x09fc…0a00 Statement 04688 @0x1d5d
0x0a00…0a04 Statement 04672 @0x1d59
0x0a04…0a08 Statement 04656 @0x1d3c
0x0a08…0a0c Statement 04640 @0x1d1f
0x0a0c…0a10 Statement 04624 @0x1d18
0x0a10…0a14 Statement 04608 @0x1d14
0x0a14…0a18 Statement 04501 @0x1cf1
0x0a18…0a1c Statement 04416 @0x1cf0
0x0a1c…0a20 Statement 04406 @0x1ced
0x0a20…0a24 Statement 04405 @0x1ce9
0x0a24…0a28 Statement 04245 @0x1cdf
0x0a28…0a2c Statement 04240 @0x1cd5
0x0a2c…0a30 Statement 04229 @0x1ccf
0x0a30…0a34 Statement 04224 @0x1ccc
0x0a34…0a38 Statement 04213 @0x1cc2
0x0a38…0a3c Statement 04208 @0x1cb4
0x0a3c…0a40 Statement 04197 @0x1caa
0x0a40…0a44 Statement 04192 @0x1ca4
0x0a44…0a48 Statement 04181 @0x1c93
0x0a48…0a4c Statement 04176 @0x1c8d
0x0a4c…0a50 Statement 04165 @0x1c7c
0x0a50…0a54 Statement 04162 @0x1c63
0x0a54…0a58 Statement 04161 @0x1c5f
0x0a58…0a5c Statement 04160 @0x1c53
0x0a5c…0a60 Statement 04151 @0x1c20
0x0a60…0a64 Statement 04149 @0x1c1f
0x0a64…0a68 Statement 04148 @0x1c1c
0x0a68…0a6c Statement 04133 @0x1c0c
0x0a6c…0a70 Statement 04128 @0x1bfc
0x0a70…0a74 Statement 04112 @0x1bd9
0x0a74…0a78 Statement 04101 @0x1bd1
0x0a78…0a7c Statement 04096 @0x1b9e
0x0a7c…0a80 Statement 02448 @0x1b7a
0x0a80…0a84 Statement 02437 @0x1b79
0x0a84…0a88 Statement 02432 @0x1b76
0x0a88…0a8c Statement 02421 @0x1b73
0x0a8c…0a90 Statement 02416 @0x1b69
0x0a90…0a94 Statement 02408 @0x1b68
0x0a94…0a98 Statement 02404 @0x1b4f
0x0a98…0a9c Statement 02402 @0x1b39
0x0a9c…0aa0 Statement 02400 @0x1b24
0x0aa0…0aa4 Statement 02389 @0x1af7
0x0aa4…0aa8 Statement 02384 @0x1acf
0x0aa8…0aac Statement 02373 @0x1abe
0x0aac…0ab0 Statement 02368 @0x1ab8
0x0ab0…0ab4 Statement 02357 @0x1a8b
0x0ab4…0ab8 Statement 02352 @0x1a63
0x0ab8…0abc Statement 02341 @0x1a55
0x0abc…0ac0 Statement 02336 @0x1a23
0x0ac0…0ac4 Statement 02325 @0x1a20
0x0ac4…0ac8 Statement 02322 @0x1a0b
0x0ac8…0acc Statement 02320 @0x1a01
0x0acc…0ad0 Statement 02312 @0x1a00
0x0ad0…0ad4 Statement 02310 @0x19ef
0x0ad4…0ad8 Statement 02308 @0x19d9
0x0ad8…0adc Statement 02306 @0x19cb
0x0adc…0ae0 Statement 02304 @0x19ba
0x0ae0…0ae4 Statement 02197 @0x19a9
0x0ae4…0ae8 Statement 02192 @0x199c
0x0ae8…0aec Statement 02181 @0x196f
0x0aec…0af0 Statement 02176 @0x1947
0x0af0…0af4 Statement 02165 @0x193a
0x0af4…0af8 Statement 02160 @0x1934
0x0af8…0afc Statement 02149 @0x1907
0x0afc…0b00 Statement 02144 @0x18df
0x0b00…0b04 Statement 02133 @0x18ad
0x0b04…0b08 Statement 02128 @0x189f
0x0b08…0b0c Statement 02117 @0x1899
0x0b0c…0b10 Statement 02114 @0x1885
0x0b10…0b14 Statement 02113 @0x1881
0x0b14…0b18 Statement 02112 @0x187b
0x0b18…0b1c Statement 02103 @0x1848
0x0b1c…0b20 Statement 02101 @0x1847
0x0b20…0b24 Statement 02096 @0x1844
0x0b24…0b28 Statement 02085 @0x1834
0x0b28…0b2c Statement 02080 @0x180d
0x0b2c…0b30 Statement 02064 @0x17ff
0x0b30…0b34 Statement 02056 @0x17e4
0x0b34…0b38 Statement 02052 @0x17cd
0x0b38…0b3c Statement 02051 @0x17ae
0x0b3c…0b40 Statement 02048 @0x17a1
0x0b40…0b44 Statement 01941 @0x176a
0x0b44…0b48 Statement 01925 @0x1769
0x0b48…0b4c Statement 01920 @0x1766
0x0b4c…0b50 Statement 01909 @0x1750
0x0b50…0b54 Statement 01877 @0x1742
0x0b54…0b58 Statement 01872 @0x1739
0x0b58…0b5c Statement 01861 @0x1706
0x0b5c…0b60 Statement 01680 @0x1705
0x0b60…0b64 Statement 01671 @0x1702
0x0b64…0b68 Statement 01664 @0x16cb
0x0b68…0b6c Statement 01648 @0x16c2
0x0b6c…0b70 Statement 01632 @0x16bb
0x0b70…0b74 Statement 01616 @0x16b4
0x0b74…0b78 Statement 01600 @0x16a6
0x0b78…0b7c Statement 01584 @0x169c
0x0b7c…0b80 Statement 01568 @0x1670
0x0b80…0b84 Statement 01552 @0x166f
0x0b84…0b88 Statement 01541 @0x166c
0x0b88…0b8c Statement 01536 @0x1658
0x0b8c…0b90 Statement 01429 @0x1644
0x0b90…0b94 Statement 01424 @0x1630
0x0b94…0b98 Statement 01413 @0x161c
0x0b98…0b9c Statement 01408 @0x160c
0x0b9c…0ba0 Statement 01397 @0x15d5
0x0ba0…0ba4 Statement 01392 @0x15d4
0x0ba4…0ba8 Statement 01381 @0x15d1
0x0ba8…0bac Statement 01376 @0x15b6
0x0bac…0bb0 Statement 01365 @0x15a4
0x0bb0…0bb4 Statement 01360 @0x1592
0x0bb4…0bb8 Statement 01349 @0x1571
0x0bb8…0bbc Statement 01344 @0x1548
0x0bbc…0bc0 Statement 01333 @0x1524
0x0bc0…0bc4 Statement 01328 @0x14fe
0x0bc4…0bc8 Statement 01317 @0x14ea
0x0bc8…0bcc Statement 01312 @0x14b8
0x0bcc…0bd0 Statement 01301 @0x14b7
0x0bd0…0bd4 Statement 01300 @0x14b3
0x0bd4…0bd8 Statement 01298 @0x14a5
0x0bd8…0bdc Statement 01296 @0x147e
0x0bdc…0be0 Statement 01288 @0x1472
0x0be0…0be4 Statement 01286 @0x146e
0x0be4…0be8 Statement 01285 @0x1468
0x0be8…0bec Statement 01282 @0x1458
0x0bec…0bf0 Statement 01281 @0x144c
0x0bf0…0bf4 Statement 01280 @0x1428
0x0bf4…0bf8 Statement 01176 @0x141c
0x0bf8…0bfc Statement 01175 @0x13f1
0x0bfc…0c00 Statement 01174 @0x13e5
0x0c00…0c04 Statement 01173 @0x13ce
0x0c04…0c08 Statement 01168 @0x13c2
0x0c08…0c0c Statement 01157 @0x13a6
0x0c0c…0c10 Statement 01136 @0x139a
0x0c10…0c14 Statement 01125 @0x1375
0x0c14…0c18 Statement 01120 @0x1369
0x0c18…0c1c Statement 01109 @0x1339
0x0c1c…0c20 Statement 01104 @0x132d
0x0c20…0c24 Statement 01093 @0x1305
0x0c24…0c28 Statement 01088 @0x12f9
0x0c28…0c2c Statement 01077 @0x12cb
0x0c2c…0c30 Statement 01072 @0x12bf
0x0c30…0c34 Statement 01061 @0x1298
0x0c34…0c38 Statement 01056 @0x128c
0x0c38…0c3c Statement 01045 @0x1268
0x0c3c…0c40 Statement 01040 @0x125c
0x0c40…0c44 Statement 01029 @0x1235
0x0c44…0c48 Statement 01024 @0x1229
0x0c48…0c4c Statement 00917 @0x1227
0x0c4c…0c50 Statement 00916 @0x1203
0x0c50…0c54 Statement 00914 @0x11df
0x0c54…0c58 Statement 00913 @0x119e
0x0c58…0c5c Statement 00912 @0x1195
0x0c5c…0c60 Statement 00905 @0x1189
0x0c60…0c64 Statement 00904 @0x1187
0x0c64…0c68 Statement 00902 @0x1183
0x0c68…0c6c Statement 00901 @0x114a
0x0c6c…0c70 Statement 00896 @0x1149
0x0c70…0c74 Statement 00885 @0x1146
0x0c74…0c78 Statement 00880 @0x1143
0x0c78…0c7c Statement 00864 @0x113d
0x0c7c…0c80 Statement 00854 @0x113a
0x0c80…0c84 Statement 00832 @0x1127
0x0c84…0c88 Statement 00816 @0x1108
0x0c88…0c8c Statement 00800 @0x10f2
0x0c8c…0c90 Statement 00789 @0x10df
0x0c90…0c94 Statement 00784 @0x10d3
0x0c94…0c98 Statement 00656 @0x10cb
0x0c98…0c9c Statement 00640 @0x10ba
0x0c9c…0ca0 Statement 00629 @0x10b6
0x0ca0…0ca4 Statement 00624 @0x10a1
0x0ca4…0ca8 Statement 00613 @0x108c
0x0ca8…0cac Statement 00608 @0x1081
0x0cac…0cb0 Statement 00597 @0x107a
0x0cb0…0cb4 Statement 00592 @0x106f
0x0cb4…0cb8 Statement 00582 @0x1068
0x0cb8…0cbc Statement 00581 @0x104b
0x0cbc…0cc0 Statement 00576 @0x1043
0x0cc0…0cc4 Statement 00560 @0x103b
0x0cc4…0cc8 Statement 00549 @0x1037
0x0cc8…0ccc Statement 00544 @0x1033
0x0ccc…0cd0 Statement 00528 @0x1002
0x0cd0…0cd4 Statement 00517 @0x1001
0x0cd4…0cd8 Statement 00512 @0xffe
0x0cd8…0cdc Statement 00402 @0xffb
0x0cdc…0ce0 Statement 00400 @0xfec
0x0ce0…0ce4 Statement 00391 @0xfe5
0x0ce4…0ce8 Statement 00389 @0xfb8
0x0ce8…0cec Statement 00384 @0xfb1
0x0cec…0cf0 Statement 00373 @0xf85
0x0cf0…0cf4 Statement 00368 @0xf7f
0x0cf4…0cf8 Statement 00357 @0xf59
0x0cf8…0cfc Statement 00356 @0xf57
0x0cfc…0d00 Statement 00354 @0xf4b
0x0d00…0d04 Statement 00352 @0xf43
0x0d04…0d08 Statement 00341 @0xf18
0x0d08…0d0c Statement 00336 @0xf17
0x0d0c…0d10 Statement 00325 @0xf14
0x0d10…0d14 Statement 00322 @0xeff
0x0d14…0d18 Statement 00320 @0xeec
0x0d18…0d1c Statement 00309 @0xecc
0x0d1c…0d20 Statement 00304 @0xeb7
0x0d20…0d24 Statement 00293 @0xeb1
0x0d24…0d28 Statement 00256 @0xe83
0x0d28…0d2c Statement 00144 @0xe7d
0x0d2c…0d30 Statement 00133 @0xe70
0x0d30…0d34 Statement 00064 @0xe63
0x0d34…0d38 Statement 00048 @0xe58
0x0d38…0d3c Statement 00037 @0xe49
0x0d3c…0d40 Statement 00032 @0xe3d
0x0d40…0d44 Statement 00024 @0xe15
0x0d44…0d48 Statement 00022 @0xe0d
0x0d48…0d4c Statement 00021 @0xde5
0x0d4c…0d50 Statement 00009 @0xdde
0x0d50…0d54 Statement 00008 @0xdce
0x0d54…0d58 Statement 00007 @0xda8
0x0d58…0d5c Statement 00006 @0xd9a
0x0d5c…0d60 Statement 00005 @0xd7e
0x0d60…0d64 Statement 00002 @0xd64
0x0d64…0d7e 0002 COM ELEMENT var(T0$) ( 8 ) [] ELEMENT var(T2$) ( 24 ) [] ELEMENT var(A$) ( 1 ) [] ELEMENT var(C$) ( 1 ) [] EOS
0x0d7e…0d9a 0005 COM ELEMENT var(N1$) ( 20 ) [] ELEMENT var(N2$) ( 20 ) [] ELEMENT var(N3$) ( 20 ) [] ELEMENT var(T9$) ( %80 ) [] EOS
0x0d9a…0da8 0006 COM ELEMENT var(P$) ( 8 ) [] ELEMENT var(Q$) ( 8 ) [] EOS
0x0da8…0dce 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
0x0dce…0dde 0008 COM ELEMENT var(W$) ( 1 ) [] var(S0) var(X7) var(Y7) var(V0) var(V1) var(P1) var(W8) var(W9) EOS
0x0dde…0de5 0009 COM var(M0) var(M9%) var(D9) var(Q0) var(D2) EOS
0x0de5…0e0d 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
0x0e0d…0e15 0016 DIM ELEMENT var(V$) ( 40 ) [] EOS
0x0e15…0e3d 0018 LET var(V$) COMMA »Ver 3.1 sept 83 Copyright VIAK A/S« EOS
0x0e3d…0e49 0020 LET var(Q9$) COMMA »DDDDDD« EOS
0x0e49…0e58 0025 SYSTEM »LINELEN« COMMA %80 EOS
0x0e58…0e63 0030 SYSTEM »WARNOFF« EOS
0x0e63…0e70 0040 SYSTEM »BUFFERS« COMMA 4 EOS
0x0e70…0e7d 0085 LET var(S1) COMMA 1e+09 EOS
0x0e7d…0e83 0090 LET var(S9) COMMA var(S1) SUB1 EOS
0x0e83…0eb1 0100 REM ----------- SCREEN-HANDLER --------------
0x0eb1…0eb7 0125 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x0eb7…0ecc 0130 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af71736f4c0074afe2f2f3
0x0ecc…0eec 0135 PRINT = ( 27 ) → af71736f590074afe27173206ae274afe27173206be274afe2f2f3
0x0eec…0eff 0140 IF var(C1%) 3 EQ COMMA 15 = ( 27 ) → af71733f74afe2f2f3
0x0eff…0f14 0142 IF var(C1%) 4 EQ COMMA 15 = ( 27 ) → af71736f500074afe2f2f3
0x0f14…0f17 0145 RETURN 1 EOS
0x0f17…0f18 0150 FNEND
0x0f18…0f43 0155 REM ------------ ERROR MESS.--------------
0x0f43…0f4b 0160 DEF var(FNX9%) var(A%) var(B%) var(C%) EOS
0x0f4b…0f57 0162 LET var(X%) COMMA = ( 1 5 1 ) var(FNC%) EOS
0x0f57…0f59 0164 PRINT EOS
0x0f59…0f7f 0165 IF var(A%) var(N1$) »« EQ AND COMMA 15 = ( 5 ) → b5f27014536f727466696c20696b6b65206f707067697474f3
0x0f7f…0f85 0170 ELSE 27 var(A%) COMMA 0 EOS
0x0f85…0fb1 0175 IF var(B%) var(N2$) »« EQ AND COMMA 15 = ( 5 ) → b5f27019506172616d6574657266696c20696b6b65206f707067697474f3
0x0fb1…0fb8 0180 ELSE 27 var(B%) COMMA 0 EOS
0x0fb8…0fe5 0185 IF var(C%) var(T2$) »« EQ AND COMMA 15 = ( 5 ) → b5f2701a496e70757466696c20696b6b6520696e697469616c6973657274f3
0x0fe5…0fec 0187 ELSE 27 var(C%) COMMA 0 EOS
0x0fec…0ffb 0190 IF ( var(A%) var(B%) OR var(C%) OR ) → eff10501f3
0x0ffb…0ffe 0192 GOSUB 0 → 95
0x0ffe…1001 0200 RETURN 0 EOS
0x1001…1002 0205 FNEND
0x1002…1033 0210 REM -------- READ TOP OF SORTFILE --------------
0x1033…1037 0220 DEF var(FNW%) EOS
0x1037…103b 0225 TRAP ERR 0360
0x103b…1043 0230 LINPUT 1# COMMA 0 SEMI var(T9$) EOS
0x1043…104b 0240 LINPUT 1# COMMA 1 SEMI var(X$) EOS
0x104b…1068 0245 LET var(M0) COMMA = ( ELEMENT var(X$) ( 14 20 ) [] ) VAL COMMA var(V0) COMMA = ( ELEMENT var(X$) ( 1 13 ) [] ) VAL EOS
0x1068…106f 0246 LET var(Q0) COMMA var(S0) var(M0) DIV EOS
0x106f…107a 0250 LET var(W$) COMMA ELEMENT var(X$) ( 21 21 ) [] EOS
0x107a…1081 0255 19400401f105f3
0x1081…108c 0260 LINPUT 1# COMMA var(I%) 1 PLUS SEMI var(X$) EOS
0x108c…10a1 0265 LET ELEMENT var(X1') ( var(I%) ) [] COMMA = ( ELEMENT var(X$) ( 32 43 ) [] ) VAL EOS
0x10a1…10b6 0270 LET ELEMENT var(Y1') ( var(I%) ) [] COMMA = ( ELEMENT var(X$) ( 20 31 ) [] ) VAL EOS
0x10b6…10ba 0275 1a4004f3
0x10ba…10cb 0280 LET var(W8) COMMA = ( var(V0) ) → a9f159f171735574a8f3
0x10cb…10d3 0290 LET var(X%) COMMA = var(FNR1%) EOS
0x10d3…10df 0310 LET var(X%) COMMA = ( 2 5 1 ) var(FNC%) EOS
0x10df…10f2 0315 PRINT »Betegnelse : « SEMI var(T9$) EOS
0x10f2…1108 0320 PRINT »Maalestokk : 1:« SEMI var(M0) EOS
0x1108…1127 0330 PRINT »Origo : « SEMI ELEMENT var(Y1') ( 1 ) [] COMMA ELEMENT var(X1') ( 1 ) [] EOS
0x1127…113a 0340 PRINT »Utvidelse : « SEMI var(W$) EOS
0x113a…113d 0356 RETURN 1 EOS
0x113d…1143 0360 REM C
0x1143…1146 0370 TRAP ERR OFF
0x1146…1149 0375 RETURN 0 EOS
0x1149…114a 0380 FNEND
0x114a…1183 0385 REM ---------- DISPLAY AND ACCEPT MENU-CHOICE ----------
0x1183…1187 0386 DEF var(FNM9%) EOS
0x1187…1189 0388 PRINT EOS
0x1189…1195 0389 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1195…119e 0390 PRINT = ( 18 ) → b5f265f3
0x119e…11df 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
0x11df…1203 0392 PRINT » *** Sortert inputfil : « SEMI var(N1$) EOS
0x1203…1227 0394 PRINT » *** Parameter-fil : « SEMI var(N2$) EOS
0x1227…1229 0395 PRINT EOS
0x1229…1235 0400 LET var(X%) COMMA = ( 2 6 5 ) var(FNC%) EOS
0x1235…125c 0405 PRINT »1 ==> Angivelse av sortert inputfil« EOS
0x125c…1268 0410 LET var(X%) COMMA = ( 2 7 5 ) var(FNC%) EOS
0x1268…128c 0415 PRINT »2 ==> Angivelse av parameter-fil« EOS
0x128c…1298 0420 LET var(X%) COMMA = ( 2 8 5 ) var(FNC%) EOS
0x1298…12bf 0425 PRINT »3 ==> Initialisering av sortert fil« EOS
0x12bf…12cb 0430 LET var(X%) COMMA = ( 2 9 5 ) var(FNC%) EOS
0x12cb…12f9 0435 PRINT »4 ==> Kontroll av parameterfil (Valgfritt)« EOS
0x12f9…1305 0440 LET var(X%) COMMA = ( 2 10 5 ) var(FNC%) EOS
0x1305…132d 0445 PRINT »5 ==> Prosessering av plateparametre« EOS
0x132d…1339 0450 LET var(X%) COMMA = ( 2 11 5 ) var(FNC%) EOS
0x1339…1369 0455 PRINT »6 ==> Sekvensiell uttegning av samtlige tema« EOS
0x1369…1375 0460 LET var(X%) COMMA = ( 2 12 5 ) var(FNC%) EOS
0x1375…139a 0465 PRINT »7 ==> Tegning av spesifisert tema« EOS
0x139a…13a6 0470 LET var(X%) COMMA = ( 2 13 5 ) var(FNC%) EOS
0x13a6…13c2 0485 PRINT »8 ==> Definer nytt origo« EOS
0x13c2…13ce 0490 LET var(X%) COMMA = ( 2 14 5 ) var(FNC%) EOS
0x13ce…13e5 0495 PRINT »9 ==> Tekstutskrift« EOS
0x13e5…13f1 0496 LET var(X%) COMMA = ( 2 15 5 ) var(FNC%) EOS
0x13f1…141c 0497 PRINT »10 ==> Uttegning av plottedata fra disk« EOS
0x141c…1428 0498 LET var(X%) COMMA = ( 2 16 5 ) var(FNC%) EOS
0x1428…144c 0500 PRINT »11 ==> Gi avstand til plan-origo« EOS
0x144c…1458 0501 LET var(X%) COMMA = ( 2 17 5 ) var(FNC%) EOS
0x1458…1468 0502 PRINT »12 ==>Udgang« EOS
0x1468…146e 0505 REM C
0x146e…1472 0506 TRAP ERR 0505
0x1472…147e 0508 LET var(X%) COMMA = ( 3 19 5 ) var(FNC%) EOS
0x147e…14a5 0510 INPUT »Hva skal gj0res ? Gi kommando : « COMMA var(X%) EOS
0x14a5…14b3 0512 IF var(X%) 1 ?< var(X%) 12 > OR COMMA 0 5 5
0x14b3…14b7 0514 RETURN var(X%) EOS
0x14b7…14b8 0515 FNEND
0x14b8…14ea 0520 REM ------------- COMPUTE INTERSECTION ----------
0x14ea…14fe 0525 DEF var(FNS%) var(X1) var(Y1) var(X2) var(Y2) var(X3) var(Y3) var(X4) var(Y4) EOS
0x14fe…1524 0530 IF = ( var(X2) var(X1) SUB2 ) ?ABS 1e-08 ?< COMMA 27 var(X2) COMMA var(X2) 1e-08 PLUS EOS
0x1524…1548 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
0x1548…1571 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
0x1571…1592 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
0x1592…15a4 0550 LET var(X5) COMMA var(X3) var(M) ( var(X4) var(X3) SUB2 ) MULT PLUS EOS
0x15a4…15b6 0555 LET var(Y5) COMMA var(Y3) var(M) ( var(Y4) var(Y3) SUB2 ) MULT PLUS EOS
0x15b6…15d1 0560 IF var(L) 0 → ebf103401101e9f103401000ebf103401001e9f10501f3
0x15d1…15d4 0565 RETURN 0 EOS
0x15d4…15d5 0570 FNEND
0x15d5…160c 0575 REM ----------- ENKELT SKJAEREMERKE-------------------
0x160c…161c 0580 DEF var(FNS1%) var(X) var(Y) var(A) var(B) var(C) var(D) EOS
0x161c…1630 0585 LET var(X%) COMMA = ( var(X) var(D) SUB2 var(Y) »U« ) var(FNP%) EOS
0x1630…1644 0590 LET var(X%) COMMA = ( var(X) var(B) PLUS var(Y) »D« ) var(FNP%) EOS
0x1644…1658 0595 LET var(X%) COMMA = ( var(X) var(Y) var(A) SUB2 »U« ) var(FNP%) EOS
0x1658…166c 0600 LET var(X%) COMMA = ( var(X) var(Y) var(C) PLUS »D« ) var(FNP%) EOS
0x166c…166f 0605 RETURN 1 EOS
0x166f…1670 0610 FNEND
0x1670…169c 0620 REM ----------------CIRKEL-----------------
0x169c…16a6 0630 DEF var(FNC1%) var(X) var(Y) var(R) EOS
0x16a6…16b4 0640 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x16b4…16bb 0650 LET var(X8) COMMA var(X3) EOS
0x16bb…16c2 0660 LET var(Y8) COMMA var(Y3) EOS
0x16c2…16cb 0670 LET var(R) COMMA var(R) var(S0) MULT EOS
0x16cb…1702 0680 PRINT 5# SEMI »C« SEMI USING »DDDDDD« COMMA var(Y8) SEMI »,« SEMI USING »DDDDDD« COMMA var(X8) SEMI »,« SEMI USING »DDDDDD« COMMA var(R) EOS
0x1702…1705 0687 RETURN 1 EOS
0x1705…1706 0690 FNEND
0x1706…1739 0745 REM -------------- PLOT-COORDINATE ---------------
0x1739…1742 0750 DEF var(FNP%) var(X) var(Y) var(S$) EOS
0x1742…1750 0755 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x1750…1766 0775 PRINT 5# SEMI var(S$) SEMI USING var(Q9$) COMMA var(Y3) SEMI »,« SEMI USING var(Q9$) COMMA var(X3) EOS
0x1766…1769 0780 RETURN 1 EOS
0x1769…176a 0785 FNEND
0x176a…17a1 0795 REM ------------- OUTPUT STRING OR SYMBOL ------------
0x17a1…17ae 0800 DEF var(FNX%) var(X) var(Y) var(H) var(V) var(X$) EOS
0x17ae…17cd 0803 IF var(V) 360 > COMMA 27 var(V) COMMA var(V) 360 SUB2 EOS
0x17cd…17e4 0804 IF var(V) 0 ?< COMMA 27 var(V) COMMA var(V) 360 PLUS EOS
0x17e4…17ff 0808 LET var(V) COMMA var(V) %100 MULT COMMA var(H) COMMA var(H) 3.333 MULT EOS
0x17ff…180d 0810 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x180d…1834 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
0x1834…1844 0825 PRINT 5# SEMI USING var(Q9$) COMMA var(X3) SEMI »,« SEMI var(X$) EOS
0x1844…1847 0830 RETURN 1 EOS
0x1847…1848 0835 FNEND
0x1848…187b 0837 REM ---------- DRAW GRID -------------------------
0x187b…1881 0840 DEF var(FNO%) var(X6) EOS
0x1881…1885 0841 TRAP ESC 0980
0x1885…1899 0842 PRINT »Rutenett tegnes.« EOS
0x1899…189f 0845 REM C
0x189f…18ad 0850 IF var(X6) ELEMENT var(P') ( 3 ) [] → ebf1002009
0x18ad…18df 0855 REM ------- DRAW HORIZONTAL GRID-LINES ----------
0x18df…1907 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
0x1907…1934 0865 IF var(X%) → eff11b4002f17173724b7302749f724c7302749f724b7303749f724c7303749f402567402566744007f3
0x1934…193a 0870 IF var(X%) COMMA 34 EOS
0x193a…1947 0875 LET var(A6) COMMA var(X5) COMMA var(B6) COMMA var(Y5) EOS
0x1947…196f 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
0x196f…199c 0885 IF var(X%) → eff11b4002f17173724b7304749f724c7304749f724b7303749f724c7303749f402567402566744007f3
0x199c…19a9 0890 LET var(E6) COMMA var(X5) COMMA var(F6) COMMA var(Y5) EOS
0x19a9…19ba 0895 LET var(X%) COMMA = ( var(A6) var(B6) »U« ) var(FNP%) EOS
0x19ba…19cb 0900 LET var(X%) COMMA = ( var(E6) var(F6) »D« ) var(FNP%) EOS
0x19cb…19d9 0902 LET var(X$) COMMA = ( = ( var(E6) ) → a174b0f3
0x19d9…19ef 0904 LET var(X$) COMMA » X « = ( = ( var(E6) ) → a174b0e2f3
0x19ef…1a00 0906 LET var(X%) COMMA = ( var(E6) var(F6) 2 0 var(X$) ) var(FNX%) EOS
0x1a00…1a01 0908 DOEND
0x1a01…1a0b 0910 LET var(X6) COMMA var(X6) var(D1) PLUS EOS
0x1a0b…1a20 0912 LET var(Y6) COMMA = ( ELEMENT var(Q') ( 2 ) [] var(D1) DIV ) → a1402ae4f3
0x1a20…1a23 0915 GOTO var(N1$) 8
0x1a23…1a55 0920 REM ------- DRAW VERTICAL GRID-LINES ------------
0x1a55…1a63 0925 IF var(Y6) ELEMENT var(Q') ( 4 ) [] → ebf1008009
0x1a63…1a8b 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
0x1a8b…1ab8 0935 IF var(X%) → eff11b4002f17173724b7303749f724c7303749f724b7304749f724c7304749f67402b66402b744007f3
0x1ab8…1abe 0940 IF var(X%) COMMA 34 EOS
0x1abe…1acf 0945 LET var(X%) COMMA = ( var(X5) var(Y5) »U« ) var(FNP%) EOS
0x1acf…1af7 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
0x1af7…1b24 0955 IF var(X%) → eff11b4002f17173724b7301749f724c7301749f724b7304749f724c7304749f67402b66402b744007f3
0x1b24…1b39 0960 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) »D« ) var(FNP%) EOS
0x1b39…1b4f 0962 LET var(X$) COMMA » Y « = ( = ( var(Y5) ) → a174b0e2f3
0x1b4f…1b68 0964 LET var(X%) COMMA = ( var(X5) var(Y5) 2 270 var(X$) ) var(FNX%) EOS
0x1b68…1b69 0968 DOEND
0x1b69…1b73 0970 LET var(Y6) COMMA var(Y6) var(D1) PLUS EOS
0x1b73…1b76 0975 GOTO 32 9
0x1b76…1b79 0980 RETURN 1 EOS
0x1b79…1b7a 0985 FNEND
0x1b7a…1b9e 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
0x1b9e…1bd1 1000 REM ------------- COMP. PLOTTING-UNITS -----------
0x1bd1…1bd9 1005 DEF var(FNZ%) var(X) var(Y) EOS
0x1bd9…1bfc 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
0x1bfc…1c0c 1020 LET var(X3) COMMA var(X7) var(Q1) var(W9) MULT PLUS var(Q2) var(W8) MULT SUB2 EOS
0x1c0c…1c1c 1025 LET var(Y3) COMMA var(Y7) var(Q2) var(W9) MULT PLUS var(Q1) var(W8) MULT PLUS EOS
0x1c1c…1c1f 1034 RETURN 1 EOS
0x1c1f…1c20 1035 FNEND
0x1c20…1c53 1037 REM ------------- OUTPUT GRID-CROSSES ------------
0x1c53…1c5f 1040 DEF var(FNU%) var(X1) var(X9) var(Y1) var(Y9) EOS
0x1c5f…1c63 1041 TRAP ESC 1135
0x1c63…1c7c 1042 PRINT »Rutenettskryss tegnes« EOS
0x1c7c…1c8d 1045 LET var(X6) COMMA = ( var(X1) var(D1) DIV ) → a1402ae4f3
0x1c8d…1c93 1050 REM C
0x1c93…1ca4 1055 LET var(Z6) COMMA = ( var(Y1) var(D1) DIV ) → a1402ae4f3
0x1ca4…1caa 1060 REM C
0x1caa…1cb4 1065 IF var(Z6) var(Y9) → ebf1008510
0x1cb4…1cc2 1070 LET var(X%) COMMA = ( var(X6) var(Z6) ) var(FNH%) EOS
0x1cc2…1ccc 1075 LET var(Z6) COMMA var(Z6) var(D1) PLUS EOS
0x1ccc…1ccf 1080 GOTO var(Q9$) 16
0x1ccf…1cd5 1085 REM C
0x1cd5…1cdf 1090 LET var(X6) COMMA var(X6) var(D1) PLUS EOS
0x1cdf…1ce9 1095 IF var(X6) var(X9) ?< COMMA 0 var(Y2') 16
0x1ce9…1ced 1135 REM
0x1ced…1cf0 1136 RETURN 1 EOS
0x1cf0…1cf1 1140 FNEND
0x1cf1…1d14 1195 REM ------- COMPUTE WINDOW--------
0x1d14…1d18 1200 DEF var(FNR1%) EOS
0x1d18…1d1f 1210 19400401f105f3
0x1d1f…1d3c 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
0x1d3c…1d59 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
0x1d59…1d5d 1240 1a4004f3
0x1d5d…1d65 1250 IF var(V0) 0 <> COMMA 5 0 EOS
0x1d65…1d7c 1252 IF var(W$) »U« EQ COMMA 27 var(X) COMMA 0.015 var(M0) MULT EOS
0x1d7c…1d92 1254 ELSE 3 var(A$) »R« EQ COMMA 27 var(X) COMMA -0.1 EOS
0x1d92…1da8 1256 ELSE 3 var(A$) »R« <> COMMA 27 var(X) COMMA 0.1 EOS
0x1da8…1dcb 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
0x1dcb…1dee 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
0x1dee…1e11 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
0x1e11…1e34 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
0x1e34…1e51 1266 LET ELEMENT var(X2') ( 5 ) [] COMMA ELEMENT var(X2') ( 1 ) [] COMMA ELEMENT var(Y2') ( 5 ) [] COMMA ELEMENT var(Y2') ( 1 ) [] EOS
0x1e51…1e54 1290 RETURN 1 EOS
0x1e54…1e55 1295 FNEND
0x1e55…1e89 1297 REM ---------- TEST IF X0,Y0 IS INSIDE WINDOW------
0x1e89…1e91 1300 DEF var(FNG%) var(X0) var(Y0) EOS
0x1e91…1e9f 1305 LET var(X) COMMA var(X0) var(W9) MULT var(Y0) var(W8) MULT SUB2 EOS
0x1e9f…1ead 1310 LET var(Y) COMMA var(Y0) var(W9) MULT var(X0) var(W8) MULT PLUS EOS
0x1ead…1ec9 1325 LET var(D0%) COMMA ( ELEMENT var(X2') ( 2 ) [] var(X) > ) ( var(X) ELEMENT var(X2') ( 1 ) [] > ) AND EOS
0x1ec9…1ee5 1340 LET var(E0%) COMMA ( ELEMENT var(Y2') ( 4 ) [] var(Y) > ) ( var(Y) ELEMENT var(Y2') ( 1 ) [] > ) AND EOS
0x1ee5…1eec 1345 RETURN var(D0%) var(E0%) AND EOS
0x1eec…1eed 1350 FNEND
0x1eed…1f1b 1390 REM ---------- PLOT SINGLE GRID-CROSS--------
0x1f1b…1f23 1400 DEF var(FNH%) var(X1) var(Y1) EOS
0x1f23…1f32 1402 IF = ( var(X1) var(Y1) ) var(FNG%) → eff10500f3
0x1f32…1f44 1410 LET var(D) COMMA var(M0) var(D9) MULT 2000 DIV EOS
0x1f44…1f4e 1420 LET var(A) COMMA var(X1) var(D) SUB2 EOS
0x1f4e…1f61 1430 IF = ( var(A) var(Y1) ) var(FNG%) → eff11b4017f14008f3
0x1f61…1f6b 1440 LET var(B) COMMA var(X1) var(D) PLUS EOS
0x1f6b…1f7e 1450 IF = ( var(B) var(Y1) ) var(FNG%) → eff11b4018f14008f3
0x1f7e…1f8f 1460 LET var(X%) COMMA = ( var(A) var(Y1) »U« ) var(FNP%) EOS
0x1f8f…1fa0 1470 LET var(X%) COMMA = ( var(B) var(Y1) »D« ) var(FNP%) EOS
0x1fa0…1faa 1480 LET var(A) COMMA var(Y1) var(D) SUB2 EOS
0x1faa…1fbd 1490 IF = ( var(X1) var(A) ) var(FNG%) → eff11b4017f14009f3
0x1fbd…1fc7 1500 LET var(B) COMMA var(Y1) var(D) PLUS EOS
0x1fc7…1fda 1510 IF = ( var(X1) var(B) ) var(FNG%) → eff11b4018f14009f3
0x1fda…1feb 1520 LET var(X%) COMMA = ( var(X1) var(A) »U« ) var(FNP%) EOS
0x1feb…1ffc 1530 LET var(X%) COMMA = ( var(X1) var(B) »D« ) var(FNP%) EOS
0x1ffc…2003 1540 19400401f104f3
0x2003…201f 1550 LET var(X) COMMA = ( ELEMENT var(X1') ( var(I%) ) [] ELEMENT var(Y1') ( var(I%) ) [] var(X1) var(Y1) ) var(FND) EOS
0x201f…204d 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
0x204d…2051 1570 1a4004f3
0x2051…2054 1685 RETURN 1 EOS
0x2054…2055 1690 FNEND
0x2055…2088 1695 REM ---------- GRID-CROSS VALUES IF V0<>0 --------
0x2088…208c 1700 DEF var(FNR%) EOS
0x208c…20af 1705 PRINT »Koordinatkryss-verdier paaf0res« EOS
0x20af…20b6 1710 19403a01f104f3
0x20b6…20bc 1722 LET var(X%) COMMA 0 EOS
0x20bc…20c6 1725 19403b01f1403a01e3f3
0x20c6…20ee 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
0x20ee…20f9 1740 IF var(X%) COMMA 27 var(I7%) COMMA var(I8%) EOS
0x20f9…20fd 1750 1a403bf3
0x20fd…2104 1760 IF var(X%) → eff122f3
0x2104…211b 1765 LET var(A) COMMA ELEMENT var(A') ( var(I8%) ) [] COMMA var(B) COMMA ELEMENT var(B') ( var(I8%) ) [] EOS
0x211b…212d 1766 LET var(D) COMMA var(M0) var(D9) MULT 2000 DIV EOS
0x212d…2139 1767 LET var(V) COMMA var(V0) %180 MULT var(P1) DIV EOS
0x2139…2153 1770 LET var(F1) COMMA 270 var(V) SUB2 COMMA var(A) COMMA var(A) var(D) SUB2 EOS
0x2153…2166 1810 LET var(X$) COMMA = ( = ( ELEMENT var(B') ( var(I8%) ) [] ) → a174b0f3
0x2166…2174 1820 LET var(X$) COMMA » Y = « var(X$) PLUS EOS
0x2174…2182 1825 LET var(H) COMMA 1.5 EOS
0x2182…2195 1830 LET var(X%) COMMA = ( var(A) var(B) var(H) var(F1) var(X$) ) var(FNX%) EOS
0x2195…21ac 1840 LET var(A) COMMA ELEMENT var(A') ( var(I8%) ) [] COMMA var(B) COMMA ELEMENT var(B') ( var(I8%) ) [] EOS
0x21ac…21b8 1845 LET var(V) COMMA var(V0) %180 MULT var(P1) DIV EOS
0x21b8…21d2 1850 LET var(F2) COMMA 360 var(V) SUB2 COMMA var(B) COMMA var(B) var(D) PLUS EOS
0x21d2…21e5 1870 LET var(X$) COMMA = ( = ( ELEMENT var(A') ( var(I8%) ) [] ) → a174b0f3
0x21e5…21f3 1875 LET var(X$) COMMA » X = « var(X$) PLUS EOS
0x21f3…2201 1877 LET var(H) COMMA 1.5 EOS
0x2201…2214 1880 LET var(X%) COMMA = ( var(A) var(B) var(H) var(F2) var(X$) ) var(FNX%) EOS
0x2214…2215 1970 DOEND
0x2215…2219 1980 1a403af3
0x2219…221c 1990 RETURN 1 EOS
0x221c…221d 2000 FNEND
0x221d…224f 2095 REM ------ DISPLAY POSITION AND MOVE PEN --------
0x224f…2257 2100 DEF var(FNJ9%) var(I%) var(X) EOS
0x2257…225f 2110 IF var(I%) → eff1006021
0x225f…2269 2120 LET var(X0) COMMA var(X0) var(X) PLUS EOS
0x2269…2275 2130 LET var(X%) COMMA = ( 3 13 5 ) var(FNC%) EOS
0x2275…2279 2140 PRINT var(X0) EOS
0x2279…227c 2150 GOTO → 9021
0x227c…2286 2160 LET var(Y0) COMMA var(Y0) var(X) PLUS EOS
0x2286…2292 2170 LET var(X%) COMMA = ( 3 14 5 ) var(FNC%) EOS
0x2292…2296 2180 PRINT var(Y0) EOS
0x2296…22a7 2190 LET var(X%) COMMA = ( var(X0) var(Y0) »U« ) var(FNP%) EOS
0x22a7…22aa 2195 RETURN 1 EOS
0x22aa…22ab 2200 FNEND
0x22ab…22de 2395 REM -------- CORNER VAL. FOR STAND.SYSTEM --------
0x22de…22e2 2400 DEF var(FNW7%) EOS
0x22e2…2300 2401 PRINT »Hj0rnekoordinater paaf0res« EOS
0x2300…231a 2404 LET var(D) COMMA 0.015 var(M0) MULT COMMA var(H) COMMA 2 COMMA var(V) COMMA 0 EOS
0x231a…232f 2405 LET var(U9) COMMA ELEMENT var(X1') ( 2 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 2 ) [] EOS
0x232f…2340 2406 IF var(W$) »U« EQ COMMA 27 var(V9) COMMA var(V9) var(D) SUB2 EOS
0x2340…2355 2407 LET var(X$) COMMA »X = « = ( ELEMENT var(X1') ( 2 ) [] ) → b0e2f3
0x2355…2374 2408 LET var(V9) COMMA var(V9) ( = ( var(X$) ) LEN 4 PLUS ) 2 MULT var(M0) MULT 1000 DIV SUB2 EOS
0x2374…2387 2410 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x2387…239c 2412 LET var(U9) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x239c…23ad 2413 IF var(W$) »U« EQ COMMA 27 var(V9) COMMA var(V9) var(D) SUB2 EOS
0x23ad…23c2 2415 LET var(X$) COMMA »X = « = ( ELEMENT var(X1') ( 1 ) [] ) → b0e2f3
0x23c2…23e1 2418 LET var(V9) COMMA var(V9) ( = ( var(X$) ) LEN 4 PLUS ) 2 MULT var(M0) MULT 1000 DIV SUB2 EOS
0x23e1…23f4 2420 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x23f4…23fa 2425 LET var(V) COMMA var(V1) EOS
0x23fa…240f 2430 LET var(U9) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x240f…2420 2438 IF var(W$) »U« EQ COMMA 27 var(U9) COMMA var(U9) var(D) SUB2 EOS
0x2420…2439 2439 LET var(X$) COMMA » Y = « = ( ELEMENT var(Y1') ( 1 ) [] ) → b0e2f3
0x2439…244c 2440 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x244c…2461 2442 LET var(U9) COMMA ELEMENT var(X1') ( 4 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 4 ) [] EOS
0x2461…2472 2444 IF var(W$) »U« EQ COMMA 27 var(U9) COMMA var(U9) var(D) SUB2 EOS
0x2472…248b 2445 LET var(X$) COMMA » Y = « = ( ELEMENT var(Y1') ( 4 ) [] ) → b0e2f3
0x248b…249e 2450 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x249e…24a1 2575 RETURN 1 EOS
0x24a1…24a2 2580 FNEND
0x24a2…24d2 2595 REM -------------- COMPUTE TEXTBOX ------------
0x24d2…24d6 2600 DEF var(FNW8%) EOS
0x24d6…24ea 2604 PRINT »Tekstboks tegnes« EOS
0x24ea…251f 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
0x251f…2548 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
0x2548…2571 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
0x2571…258e 2620 LET ELEMENT var(P') ( 2 ) [] COMMA ELEMENT var(P') ( 3 ) [] COMMA ELEMENT var(Q') ( 2 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x258e…25ab 2625 LET ELEMENT var(P') ( 5 ) [] COMMA ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(Q') ( 5 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x25ab…25ae 2630 GOSUB 0 → 80
0x25ae…25b1 2690 RETURN 1 EOS
0x25b1…25b2 2695 FNEND
0x25b2…25e3 2698 REM ---------- FRAME CORRECTION ----------------
0x25e3…25e9 2700 DEF var(FNW9%) var(Q) EOS
0x25e9…260c 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
0x260c…262f 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
0x262f…2652 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
0x2652…2675 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
0x2675…2692 2735 LET ELEMENT var(P') ( 5 ) [] COMMA ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(Q') ( 5 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x2692…2695 2790 RETURN 1 EOS
0x2695…2696 2800 FNEND
0x2696…26ca 2850 REM ------------- MAIN PROGRAM --------------------
0x26ca…26ce 2852 TRAP ERR 2855
0x26ce…26d6 2854 IF var(M9%) 0 <> COMMA 0 16 41
0x26d6…26d9 2860 GOSUB 0 → 99
0x26d9…26dc 2870 TRAP ERR OFF
0x26dc…26ed 2910 REM NEXT COMMAND
0x26ed…26fc 2915 PRINT = ( 27 ) → af71736f470074afe2f3
0x26fc…271b 2920 ON = var(FNM9%) COMMA 1 var(X9) 48 49 → 9031353400360098007000600089509700500030f3
0x271b…271e 2930 GOTO 16 41
0x271e…2724 3000 REM C
0x2724…2730 3010 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x2730…2732 3020 14f3
0x2732…2735 3024 TRAP ERR OFF
0x2735…273b 3025 CHAIN »TM« EOS
0x273b…273c 3030 END
0x273c…2771 3040 REM --------- OPEN,READ TOP OF SORTFILE ------------
0x2771…277d 3049 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x277d…2783 3050 LET var(T2$) COMMA »« EOS
0x2783…2789 3070 REM C
0x2789…2795 3075 LET var(X%) COMMA = ( 4 2 5 ) var(FNC%) EOS
0x2795…27ab 3080 LINPUT »Oppgi sortfil : « COMMA var(N1$) EOS
0x27ab…27b3 3082 IF var(N1$) »« EQ COMMA 5 EOS
0x27b3…27cc 3085 1601f245700e3b4143433d494e3b5245433d3532e2f14002f3
0x27cc…27d5 3090 IF var(X%) 0 <> COMMA 0 »\x03q@\x03\xef\xf1\x00p0«soh»\x00\x95\x05\xf3\x0bp0 ------------- OPEN PARAM.-FILE«
0x27d5…27de 3122 IF = var(FNW%) → eff1007030
0x27de…27e1 3123 GOSUB 0 → 95
0x27e1…27e3 3125 RETURN EOS
0x27e3…2816 3130 REM ------------- OPEN PARAM.-FILE ---------------
0x2816…2822 3132 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x2822…2826 3135 REM
0x2826…2832 3138 LET var(X%) COMMA = ( 3 2 1 ) var(FNC%) EOS
0x2832…2835 3140 1403f3
0x2835…2850 3145 LINPUT »Oppgi parameterfil : « COMMA var(N2$) EOS
0x2850…2858 3147 IF var(N2$) »« EQ COMMA 5 EOS
0x2858…286a 3150 1603f24670073b4143433d494ee2f14002f3
0x286a…2873 3155 IF var(X%) 0 <> COMMA 0 53 49
0x2873…2877 3166 TRAP ERR 3135
0x2877…287d 3168 LINPUT 3# SEMI var(X$) EOS
0x287d…2888 3170 LET var(A$) COMMA ELEMENT var(X$) ( 1 1 ) [] EOS
0x2888…2897 3172 LET var(D9) COMMA = ( ELEMENT var(X$) ( 2 3 ) [] ) VAL EOS
0x2897…28a2 3174 LET var(C$) COMMA ELEMENT var(X$) ( 4 4 ) [] EOS
0x28a2…28a4 3176 PRINT EOS
0x28a4…28bb 3178 PRINT »Rammeparameter : « SEMI var(A$) EOS
0x28bb…28d2 3180 PRINT »Krysslengde(mm): « SEMI var(D9) EOS
0x28d2…28e9 3182 PRINT »Opsjon,merking : « SEMI var(C$) EOS
0x28e9…28ec 3183 GOSUB 0 → 95
0x28ec…28ef 3186 TRAP ERR OFF
0x28ef…28f1 3188 RETURN EOS
0x28f1…2919 3190 REM ------------ INITIALIZING INPUTFILE
0x2919…2925 3195 IF = ( 1 0 0 ) var(FNX9%) → eff105f3
0x2925…2929 3199 TRAP ERR 3340
0x2929…2935 3200 LET var(T2$) COMMA var(N1$) ».TAB« PLUS EOS
0x2935…2938 3202 1402f3
0x2938…2951 3203 1602f242700e3b4143433d494e3b5245433d3132e2f14002f3
0x2951…2959 3204 IF var(X%) 0 EQ COMMA 5 EOS
0x2959…295c 3205 1402f3
0x295c…2962 3206 1e42f14002f3
0x2962…2983 3207 1602f24270163b4143433d4e45573b5245433d31323b524c3d353132e2f14002f3
0x2983…29a9 3209 PRINT »Initialisering av sortert inputfil« EOS
0x29a9…29af 3210 LET var(I%) COMMA 7 EOS
0x29af…29b8 3220 LINPUT 1# COMMA var(I%) SEMI var(X$) EOS
0x29b8…29c9 3225 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 12 19 ) [] EOS
0x29c9…29d0 3230 LET var(I1%) COMMA var(I%) EOS
0x29d0…29d7 3235 LET var(I2%) COMMA var(I%) EOS
0x29d7…29dd 3240 REM C
0x29dd…29e6 3245 LET var(I%) COMMA var(I%) 1 PLUS EOS
0x29e6…29ef 3250 LINPUT 1# COMMA var(I%) SEMI var(X$) EOS
0x29ef…29f9 3255 IF = ( 1 ) → b1f1000533
0x29f9…2a06 3260 IF var(Q$) ELEMENT var(X$) ( 12 19 ) [] <> COMMA 34 EOS
0x2a06…2a18 3265 13f402f2724a730108749ff14045f14046f3
0x2a18…2a29 3270 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 12 19 ) [] EOS
0x2a29…2a30 3275 LET var(I1%) COMMA var(I%) EOS
0x2a30…2a37 3280 LET var(I2%) COMMA var(I%) EOS
0x2a37…2a38 3290 DOEND
0x2a38…2a40 3295 ELSE 27 var(I2%) COMMA var(I%) EOS
0x2a40…2a43 3300 GOTO var(Z6)
0x2a43…2a49 3305 REM C
0x2a49…2a5b 3310 13f402f2724a730108749ff14045f14046f3
0x2a5b…2a5d 3330 RETURN EOS
0x2a5d…2a63 3340 REM C
0x2a63…2a66 3350 TRAP ERR OFF
0x2a66…2a6c 3355 LET var(T2$) COMMA »« EOS
0x2a6c…2a8e 3360 PRINT »Feil i sort-fil i linje nr « SEMI var(I%) EOS
0x2a8e…2a91 3370 GOSUB 0 → 95
0x2a91…2a93 3430 RETURN EOS
0x2a93…2aca 3435 REM ------------- CONTROLLING PARAM.FILE -------------
0x2aca…2ad6 3438 IF = ( 1 1 1 ) var(FNX9%) → eff105f3
0x2ad6…2ada 3440 RESTORE 2# EOS
0x2ada…2b13 3445 PRINT »Parameter-filen kontrolleres for manglende temakoder.« EOS
0x2b13…2b27 3450 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA »DUMMY-XX« EOS
0x2b27…2b2d 3452 LET var(F%) COMMA 1 EOS
0x2b2d…2b48 3455 REM NEXT TAB-FILE RECORD :
0x2b48…2b4c 3460 RESTORE 3# EOS
0x2b4c…2b5d 3470 LET ELEMENT var(P$) ( 1 8 ) [] COMMA ELEMENT var(Q$) ( 1 8 ) [] EOS
0x2b5d…2b67 3475 READ 2# SEMI var(Q$) var(I1%) var(I2%) EOS
0x2b67…2b70 3477 IF = ( 2 ) → b1f105f3
0x2b70…2b84 3480 IF ELEMENT var(Q$) ( 1 8 ) [] ELEMENT var(P$) ( 1 8 ) [] EQ COMMA 0 53 53
0x2b84…2b8d 3490 REM CONT
0x2b8d…2b93 3495 LINPUT 3# SEMI var(X$) EOS
0x2b93…2b9d 3500 IF = ( 3 ) → b1f1002035
0x2b9d…2ba9 3502 IF = ( var(X$) ) LEN 0 EQ COMMA 0 32 53
0x2ba9…2bbd 3505 IF ELEMENT var(Q$) ( 1 8 ) [] ELEMENT var(X$) ( 1 8 ) [] EQ COMMA 0 53 53
0x2bbd…2bc1 3515 ELSE 0 → 9034
0x2bc1…2bca 3520 REM CONT
0x2bca…2bcc 3522 PRINT EOS
0x2bcc…2be4 3525 PRINT »Ukjent temakode : « COMMA var(Q$) EOS
0x2be4…2c07 3527 LINPUT »Trykk return for aa fortsette« COMMA var(X$) EOS
0x2c07…2c0d 3530 LET var(F%) COMMA 0 EOS
0x2c0d…2c13 3535 REM C
0x2c13…2c16 3540 GOTO var(V0) 52
0x2c16…2c18 3545 RETURN EOS
0x2c18…2c48 3600 REM -------- PROCESSING FRAME-PARAMETERS-------
0x2c48…2c54 3602 IF = ( 1 1 0 ) var(FNX9%) → eff105f3
0x2c54…2c76 3604 PRINT »Prosessering av plateparametre« EOS
0x2c76…2c9e 3606 LINPUT »Stopp mellom hvert tema ? (J/N) : « COMMA var(X$) EOS
0x2c9e…2ca0 3607 PRINT EOS
0x2ca0…2caa 3608 LET var(F0%) COMMA var(X$) »J« EQ EOS
0x2caa…2cad 3609 TRAP ESC 0bf3
0x2cad…2cb3 3615 REM C
0x2cb3…2cba 3620 19404901f105f3
0x2cba…2cc4 3625 IF = → b64048eef1016036
0x2cc4…2cd4 3630 ON var(I0%) COMMA 1 var(Y2') 55 0 56 0 → 8100820043f3
0x2cd4…2cd8 3650 1a4049f3
0x2cd8…2cda 3655 RETURN EOS
0x2cda…2ce8 3660 REM C RESTART
0x2ce8…2cef 3662 LET var(X%) COMMA = → b6f3
0x2cef…2d04 3663 PRINT 5# SEMI »U000000,000000« EOS
0x2d04…2d06 3664 PRINT EOS
0x2d06…2d26 3665 LINPUT »N=Neste,R=Repeat,E=Exit : « COMMA var(X$) EOS
0x2d26…2d33 3670 IF var(X$) »E« EQ COMMA 27 var(I0%) COMMA 5 EOS
0x2d33…2d44 3680 ELSE 3 var(X$) »R« EQ COMMA 27 var(I0%) COMMA var(I0%) 1 SUB2 EOS
0x2d44…2d46 3690 PRINT EOS
0x2d46…2d4d 3700 LET var(X%) COMMA = → b6f3
0x2d4d…2d4f 3710 RETURN EOS
0x2d4f…2d7f 3750 REM --------- DRAW FRAME ----------------------
0x2d7f…2d88 3760 IF var(A$) »R« <> COMMA 5 EOS
0x2d88…2d9c 3765 PRINT »Tegning av ramme« EOS
0x2d9c…2da3 3770 19400401f105f3
0x2da3…2dc4 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
0x2dc4…2dc8 3780 1a4004f3
0x2dc8…2de4 3785 IF var(W$) »U« EQ COMMA 27 var(X%) COMMA = ( 0.015 var(M0) MULT ) var(FNW9%) EOS
0x2de4…2de7 3790 GOSUB 0 → 80
0x2de7…2de9 3795 RETURN EOS
0x2de9…2e1a 3800 REM -------- DRAW GRID,GRIDCROSSES--------------
0x2e1a…2e24 3805 IF var(D9) %99 EQ COMMA 0 32 var(T9$)
0x2e24…2e34 3950 LET var(K%) COMMA = ( var(V0) ( var(P1) 2 DIV ) DIV ) → a1f3
0x2e34…2e3b 3970 19400401f105f3
0x2e3b…2e45 3975 LET var(J%) COMMA var(I%) var(K%) PLUS EOS
0x2e45…2e54 3980 IF var(J%) 4 > COMMA 27 var(J%) COMMA var(J%) 4 SUB2 EOS
0x2e54…2e65 3985 LET ELEMENT var(P') ( var(I%) ) [] COMMA ELEMENT var(X1') ( var(J%) ) [] EOS
0x2e65…2e76 3990 LET ELEMENT var(Q') ( var(I%) ) [] COMMA ELEMENT var(Y1') ( var(J%) ) [] EOS
0x2e76…2e7a 4000 1a4004f3
0x2e7a…2e9a 4060 IF var(V0) 0 EQ var(W$) »U« EQ AND COMMA 27 var(X%) COMMA = ( 0.015 var(M0) MULT ) var(FNW9%) EOS
0x2e9a…2eb8 4070 IF var(V0) 0 EQ var(A$) »R« EQ AND COMMA 27 var(X%) COMMA = ( -0.1 ) var(FNW9%) EOS
0x2eb8…2ed6 4080 IF var(V0) 0 EQ var(A$) »R« <> AND COMMA 27 var(X%) COMMA = ( 0.1 ) var(FNW9%) EOS
0x2ed6…2ede 4105 LET var(D1) COMMA var(D2) var(M0) MULT EOS
0x2ede…2f03 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
0x2f03…2f25 4200 IF var(D9) 0 EQ COMMA 27 var(X%) COMMA = ( = ( ELEMENT var(P') ( 1 ) [] var(D1) DIV ) → a1402ae4402ae2744024f3
0x2f25…2f28 4210 ELSE 34 EOS
0x2f28…2f4a 4220 LET var(X%) COMMA = ( ELEMENT var(P') ( 1 ) [] ELEMENT var(P') ( 3 ) [] ELEMENT var(Q') ( 2 ) [] ELEMENT var(Q') ( 4 ) [] ) var(FNU%) EOS
0x2f4a…2f52 4225 IF var(V0) 0 EQ COMMA 1 0 → 96
0x2f52…2f5f 4230 IF var(V0) 0 <> COMMA 27 var(X%) COMMA = var(FNR%) EOS
0x2f5f…2f60 4240 DOEND
0x2f60…2f6d 4250 IF var(V0) 0 EQ COMMA 27 var(X%) COMMA = var(FNW7%) EOS
0x2f6d…2f73 4260 REM C
0x2f73…2f75 4270 RETURN EOS
0x2f75…2fa8 4300 REM -------- RUTINE TIL PLOT AF AMUS`ES NULPUNKTER
0x2fa8…2fb1 4305 IF var(C$) »M« <> COMMA 5 EOS
0x2fb1…2fca 4310 LET var(X6) COMMA ( 0.825 var(M0) MULT ) ELEMENT var(X1') ( 1 ) [] PLUS EOS
0x2fca…2fe3 4320 LET var(Y6) COMMA ( 0.560698 var(M0) MULT ) ELEMENT var(Y1') ( 1 ) [] PLUS EOS
0x2fe3…2fea 4322 19404b01f105f3
0x2fea…2ffb 4324 LET var(X%) COMMA = ( var(X6) var(Y6) »U« ) var(FNP%) EOS
0x2ffb…300c 4326 LET var(X%) COMMA = ( var(X6) var(Y6) »D« ) var(FNP%) EOS
0x300c…3010 4328 1a404bf3
0x3010…3021 4330 LET var(X%) COMMA = ( var(X6) var(Y6) »U« ) var(FNP%) EOS
0x3021…3038 4332 LET var(X%) COMMA = ( var(X6) var(Y6) 0.001 ) var(FNC1%) EOS
0x3038…303f 4340 19404b01f105f3
0x303f…3054 4342 LET var(X%) COMMA = ( ELEMENT var(X1') ( 1 ) [] var(Y6) »U« ) var(FNP%) EOS
0x3054…3069 4344 LET var(X%) COMMA = ( ELEMENT var(X1') ( 1 ) [] var(Y6) »D« ) var(FNP%) EOS
0x3069…306d 4346 1a404bf3
0x306d…3082 4348 LET var(X%) COMMA = ( ELEMENT var(X1') ( 1 ) [] var(Y6) »U« ) var(FNP%) EOS
0x3082…309d 4350 LET var(X%) COMMA = ( ELEMENT var(X1') ( 1 ) [] var(Y6) 0.001 ) var(FNC1%) EOS
0x309d…309f 4380 RETURN EOS
0x309f…30bb 5000 REM SUB ---- CHANGE MARGINS
0x30bb…30c7 5010 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x30c7…30d3 5020 LET var(X%) COMMA = ( 2 5 5 ) var(FNC%) EOS
0x30d3…30df 5025 LET var(X) COMMA %100 var(X7) MULT var(S0) DIV EOS
0x30df…3111 5030 PRINT »Avstand bordkant-yakse er : « SEMI USING »###.#« COMMA var(X) SEMI » cm« EOS
0x3111…311d 5035 LET var(Y) COMMA %100 var(Y7) MULT var(S0) DIV EOS
0x311d…3129 5036 LET var(X%) COMMA = ( 2 6 5 ) var(FNC%) EOS
0x3129…315b 5040 PRINT »Avstand bordkant-xakse er : « SEMI USING »###.#« COMMA var(Y) SEMI » cm« EOS
0x315b…3167 5042 LET var(X%) COMMA = ( 2 8 5 ) var(FNC%) EOS
0x3167…318a 5044 LINPUT »Skal verdiene endres (J/N) : « COMMA var(X$) EOS
0x318a…3193 5046 IF var(X$) »J« <> COMMA 5 EOS
0x3193…3199 5047 REM C
0x3199…319d 5048 TRAP ERR 5047
0x319d…31a9 5050 LET var(X%) COMMA = ( 3 10 5 ) var(FNC%) EOS
0x31a9…31d5 5060 LINPUT »Gi 1.avstand i cm (Return=standard) : « COMMA var(X$) EOS
0x31d5…31e9 5070 IF var(X$) »« EQ COMMA 27 var(X) COMMA 2600 EOS
0x31e9…3200 5080 ELSE 27 var(X) COMMA 0.01 = ( var(X$) ) VAL MULT var(S0) MULT EOS
0x3200…320c 5085 LET var(X%) COMMA = ( 3 12 5 ) var(FNC%) EOS
0x320c…3238 5090 LINPUT »Gi 2.avstand i cm (Return=standard) : « COMMA var(X$) EOS
0x3238…324c 5100 IF var(X$) »« EQ COMMA 27 var(Y) COMMA 2800 EOS
0x324c…3263 5110 ELSE 27 var(Y) COMMA 0.01 = ( var(X$) ) VAL MULT var(S0) MULT EOS
0x3263…326e 5120 LET var(X7) COMMA var(X) COMMA var(Y7) COMMA var(Y) EOS
0x326e…3271 5130 TRAP ERR OFF
0x3271…3273 5500 RETURN EOS
0x3273…32a0 6000 REM -------------- SETT NYTT ORIGO ---------
0x32a0…32ac 6010 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x32ac…32ce 6020 PRINT »Plasser pennen i 0nsket origo.« EOS
0x32ce…32f2 6030 LINPUT »Trykk deretter return for meny« COMMA var(X$) EOS
0x32f2…32fa 6040 PRINT 5# SEMI »R« EOS
0x32fa…32fc 6050 RETURN EOS
0x32fc…3330 7000 REM -------------- SINGLE THEME PLOT --------------
0x3330…333c 7015 IF = ( 1 1 1 ) var(FNX9%) → eff105f3
0x333c…3341 7080 LET var(M9%) COMMA 2 EOS
0x3341…3344 7090 TRAP ERR OFF
0x3344…334e 7100 CHAIN »PLOT.2« EOS
0x334e…3350 7500 RETURN EOS
0x3350…3381 8000 REM ------------- DRAW PQ-RECTANGLE ------------
0x3381…339a 8005 LET var(X%) COMMA = ( ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] »U« ) var(FNP%) EOS
0x339a…33a1 8010 19403a02f105f3
0x33a1…33bc 8015 LET var(X%) COMMA = ( ELEMENT var(P') ( var(I8%) ) [] ELEMENT var(Q') ( var(I8%) ) [] »D« ) var(FNP%) EOS
0x33bc…33c0 8020 1a403af3
0x33c0…33c2 8050 RETURN EOS
0x33c2…33f6 8100 REM ------------- COORD-VALUES,CODE ---------------
0x33f6…3408 8105 PRINT »Tekst paaf0res« EOS
0x3408…3440 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
0x3440…345e 8115 LET var(A1) COMMA ELEMENT var(X1') ( 2 ) [] var(Q) ( ELEMENT var(X1') ( 2 ) [] ELEMENT var(X1') ( 1 ) [] SUB2 ) MULT SUB2 EOS
0x345e…347c 8120 LET var(B1) COMMA ELEMENT var(Y1') ( 2 ) [] var(Q) ( ELEMENT var(Y1') ( 2 ) [] ELEMENT var(Y1') ( 1 ) [] SUB2 ) MULT SUB2 EOS
0x347c…349a 8125 LET var(A2) COMMA ELEMENT var(X1') ( 3 ) [] var(Q) ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(X1') ( 4 ) [] SUB2 ) MULT SUB2 EOS
0x349a…34b8 8130 LET var(B2) COMMA ELEMENT var(Y1') ( 3 ) [] var(Q) ( ELEMENT var(Y1') ( 3 ) [] ELEMENT var(Y1') ( 4 ) [] SUB2 ) MULT SUB2 EOS
0x34b8…34cd 8132 IF var(V0) 0 EQ COMMA 27 var(X) COMMA 0.099 var(M0) MULT EOS
0x34cd…34de 8133 ELSE 27 var(X) COMMA 0.03 var(M0) MULT EOS
0x34de…350d 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
0x350d…351f 8140 LET var(X) COMMA var(A1) var(Q) ( var(A2) var(A1) SUB2 ) MULT SUB2 EOS
0x351f…3531 8145 LET var(Y) COMMA var(B1) var(Q) ( var(B2) var(B1) SUB2 ) MULT SUB2 EOS
0x3531…3542 8195 LET var(X%) COMMA = ( var(X) var(Y) 4 var(V1) var(T9$) ) var(FNX%) EOS
0x3542…3544 8199 RETURN EOS
0x3544…357b 8200 REM ------------- F0LGE OG SKJAEREMERKER -------------
0x357b…3584 8202 IF var(C$) »M« <> COMMA 5 EOS
0x3584…358d 8204 LET var(W8) COMMA 0 COMMA var(W9) COMMA 1 EOS
0x358d…3595 8205 LET var(X%) COMMA = var(FNW8%) EOS
0x3595…35b7 8210 PRINT »Skjaere- og f0lgemerker tegnes« EOS
0x35b7…35c7 8215 LET var(S) COMMA var(M0) 0.005 MULT EOS
0x35c7…35de 8220 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.08 MULT SUB2 EOS
0x35de…35f5 8250 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.084 MULT SUB2 EOS
0x35f5…3609 8255 LET var(X%) COMMA = ( var(X) var(Y) 0 var(S) var(S) 0 ) var(FNS1%) EOS
0x3609…3610 8290 19400401f103f3
0x3610…3623 8300 LET var(X) COMMA var(X) var(M0) 0.21 MULT PLUS EOS
0x3623…363c 8305 LET var(X%) COMMA = ( var(X) var(Y) 0 var(S) 2 DIV var(S) var(S) 2 DIV ) var(FNS1%) EOS
0x363c…3640 8350 1a4004f3
0x3640…3653 8370 LET var(X) COMMA var(X) var(M0) 0.21 MULT PLUS EOS
0x3653…3667 8375 LET var(X%) COMMA = ( var(X) var(Y) 0 0 var(S) var(S) ) var(FNS1%) EOS
0x3667…367a 8410 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT PLUS EOS
0x367a…3693 8415 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV 0 var(S) 2 DIV var(S) ) var(FNS1%) EOS
0x3693…36a6 8460 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT PLUS EOS
0x36a6…36ba 8465 LET var(X%) COMMA = ( var(X) var(Y) var(S) 0 0 var(S) ) var(FNS1%) EOS
0x36ba…36c1 8510 19400401f103f3
0x36c1…36d4 8520 LET var(X) COMMA var(X) var(M0) 0.21 MULT SUB2 EOS
0x36d4…36ed 8525 LET var(X%) COMMA = ( var(X) var(Y) var(S) var(S) 2 DIV 0 var(S) 2 DIV ) var(FNS1%) EOS
0x36ed…36f1 8570 1a4004f3
0x36f1…3704 8580 LET var(X) COMMA var(X) var(M0) 0.21 MULT SUB2 EOS
0x3704…3718 8585 LET var(X%) COMMA = ( var(X) var(Y) var(S) var(S) 0 0 ) var(FNS1%) EOS
0x3718…372b 8620 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT SUB2 EOS
0x372b…3744 8625 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV var(S) var(S) 2 DIV 0 ) var(FNS1%) EOS
0x3744…3759 8650 REM YTRE MERKESETT:
0x3759…3770 8670 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.11 MULT SUB2 EOS
0x3770…3787 8680 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.114 MULT SUB2 EOS
0x3787…379b 8685 LET var(X%) COMMA = ( var(X) var(Y) 0 var(S) var(S) 0 ) var(FNS1%) EOS
0x379b…37ae 8720 LET var(X) COMMA var(X) var(M0) 0.9 MULT PLUS EOS
0x37ae…37c2 8725 LET var(X%) COMMA = ( var(X) var(Y) 0 0 var(S) var(S) ) var(FNS1%) EOS
0x37c2…37d5 8760 LET var(Y) COMMA var(Y) var(M0) 0.654 MULT PLUS EOS
0x37d5…37e9 8765 LET var(X%) COMMA = ( var(X) var(Y) var(S) 0 0 var(S) ) var(FNS1%) EOS
0x37e9…37fc 8770 LET var(X) COMMA var(X) var(M0) 0.9 MULT SUB2 EOS
0x37fc…3810 8780 LET var(X%) COMMA = ( var(X) var(Y) var(S) var(S) 0 0 ) var(FNS1%) EOS
0x3810…3823 8785 REM TEKSTBOKS NO 2
0x3823…383a 8790 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.056 MULT PLUS EOS
0x383a…3851 8795 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.04 MULT SUB2 EOS
0x3851…385c 8800 LET var(A) COMMA 0 COMMA var(B) COMMA 0 EOS
0x385c…3863 8802 19400401f104f3
0x3863…3877 8804 LET var(X%) COMMA = ( var(X) var(Y) var(B) SUB2 »U« ) var(FNP%) EOS
0x3877…3897 8806 LET var(X%) COMMA = ( var(X) 0.036 var(M0) MULT PLUS var(Y) var(B) SUB2 »D« ) var(FNP%) EOS
0x3897…38ab 8808 LET var(X%) COMMA = ( var(X) var(A) PLUS var(Y) »U« ) var(FNP%) EOS
0x38ab…38cb 8812 LET var(X%) COMMA = ( var(X) var(A) PLUS var(Y) 0.024 var(M0) MULT SUB2 »D« ) var(FNP%) EOS
0x38cb…38f0 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
0x38f0…38f4 8820 1a4004f3
0x38f4…3905 8830 LET var(W8) COMMA = ( var(V0) ) → a9f159f171735574a8f3
0x3905…3907 8890 RETURN EOS
0x3907…3943 8900 REM ---------- Move pen to coordinate,plot text------------
0x3943…394f 8905 IF = ( 1 0 0 ) var(FNX9%) → eff105f3
0x394f…3974 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
0x3974…39b6 8920 PRINT »Rutine for manuell bevegelse av penn og tekst(symbol)-utskrift« EOS
0x39b6…39e9 8930 PRINT »Kontinuerlig bevegelse : Hold aktuell tast nede« EOS
0x39e9…39eb 8940 PRINT EOS
0x39eb…39ed 8950 PRINT EOS
0x39ed…3a0b 8960 PRINT »N ==> Beveg penn mot Nord.« EOS
0x3a0b…3a27 8970 PRINT »S ==> Beveg penn mot syd« EOS
0x3a27…3a3a 8980 PRINT »V ==> Mot vest.« EOS
0x3a3a…3a4b 8990 PRINT »O ==> Mot Ost« EOS
0x3a4b…3a60 9000 PRINT »H ==> Hastighet :« EOS
0x3a60…3a73 9010 PRINT »T ==> Gi tekst.« EOS
0x3a73…3a85 9020 PRINT »Q ==> Avslutt.« EOS
0x3a85…3a87 9030 PRINT EOS
0x3a87…3a92 9040 PRINT »X = « SEMI var(X0) EOS
0x3a92…3a9d 9050 PRINT »Y = « SEMI var(Y0) EOS
0x3a9d…3aa2 9060 LET var(A%) COMMA 0 EOS
0x3aa2…3aa5 9070 GOSUB 48 → 94
0x3aa5…3aa8 9080 GOSUB 0 → 92
0x3aa8…3aaf 9090 19400400f101f3
0x3aaf…3ab5 9100 LET var(X$) COMMA = → b8f3
0x3ab5…3ac9 9110 IF var(X$) »N« EQ COMMA 27 var(X%) COMMA = ( 0 var(D5) ) var(FNJ9%) EOS
0x3ac9…3ade 9120 ELSE 3 var(X$) »V« EQ COMMA 27 var(X%) COMMA = ( 1 var(D5) ) var(FNJ9%) EOS
0x3ade…3afd 9130 ELSE 3 var(X$) »S« EQ COMMA 27 var(X%) COMMA = ( 0 -1 var(D5) MULT ) var(FNJ9%) EOS
0x3afd…3b1c 9140 ELSE 3 var(X$) »O« EQ COMMA 27 var(X%) COMMA = ( 1 -1 var(D5) MULT ) var(FNJ9%) EOS
0x3b1c…3b27 9150 ELSE 3 var(X$) »H« EQ COMMA 1 0 → 92
0x3b27…3b32 9160 ELSE 3 var(X$) »T« EQ COMMA 1 → 9092
0x3b32…3b3c 9170 LET var(I%) COMMA var(X$) »Q« EQ EOS
0x3b3c…3b40 9180 1a4004f3
0x3b40…3b42 9190 RETURN EOS
0x3b42…3b55 9200 REM BYTT HASTIGHET
0x3b55…3b5c 9210 LET var(A%) COMMA var(A%) 0 EQ EOS
0x3b5c…3b68 9220 LET var(X%) COMMA = ( 3 9 20 ) var(FNC%) EOS
0x3b68…3b86 9230 IF var(A%) COMMA 15 »5 terrengmeter pr trykk« EOS
0x3b86…3ba4 9240 ELSE 15 »0.1 terrengmeter pr trykk« EOS
0x3ba4…3bad 9250 IF var(A%) COMMA 27 var(D5) COMMA 5 EOS
0x3bad…3bbc 9260 ELSE 27 var(D5) COMMA 0.1 EOS
0x3bbc…3bbf 9270 GOSUB 48 → 94
0x3bbf…3bc1 9280 RETURN EOS
0x3bc1…3bd3 9290 REM -INPUT STRING
0x3bd3…3bd7 9300 TRAP ERR 9290
0x3bd7…3be3 9310 LET var(X%) COMMA = ( 3 18 1 ) var(FNC%) EOS
0x3be3…3bf5 9320 INPUT » Gi tekst : « COMMA var(X$) EOS
0x3bf5…3bfe 9330 IF var(X$) »« EQ COMMA 0 → 8093
0x3bfe…3c19 9340 INPUT » Gi vinkel (grader):« COMMA var(V) EOS
0x3c19…3c31 9350 INPUT » Gi h|yde i mm : « COMMA var(X) EOS
0x3c31…3c43 9360 INPUT » OK ? (J/N):« COMMA var(S$) EOS
0x3c43…3c4d 9370 IF var(S$) »J« <> COMMA 0 → 9092
0x3c4d…3c60 9375 LET var(X%) COMMA = ( var(X0) var(Y0) var(X) var(V) var(X$) ) var(FNX%) EOS
0x3c60…3c66 9380 REM C
0x3c66…3c69 9400 TRAP ERR OFF
0x3c69…3c6c 9410 GOSUB 48 → 94
0x3c6c…3c6e 9420 RETURN EOS
0x3c6e…3c8e 9430 REM POSISJONER CURSOR FOR INPUT
0x3c8e…3c9a 9440 LET var(X%) COMMA = ( 2 15 1 ) var(FNC%) EOS
0x3c9a…3c9c 9450 RETURN EOS
0x3c9c…3ca6 9500 REM ----
0x3ca6…3cb2 9510 LET var(X%) COMMA = ( 2 22 5 ) var(FNC%) EOS
0x3cb2…3cd0 9520 LINPUT »Trykk return for meny : « COMMA var(X$) EOS
0x3cd0…3cd2 9530 RETURN EOS
0x3cd2…3cf6 9600 REM --------- HALVRUTENETT---------
0x3cf6…3d14 9605 PRINT »5-cm rutenettskryss tegnes« EOS
0x3d14…3d1b 9610 19400400f101f3
0x3d1b…3d36 9620 LET var(X6) COMMA = ( ELEMENT var(X1') ( 1 ) [] var(D1) DIV ) → a1402ae44004402ae4e2f3
0x3d36…3d57 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
0x3d57…3d63 9640 ELSE 27 var(X6) COMMA ELEMENT var(X1') ( 1 ) [] EOS
0x3d63…3d67 9650 1a4004f3
0x3d67…3d7c 9660 LET var(Y6) COMMA = ( ELEMENT var(Y1') ( 1 ) [] var(D1) DIV ) → a1402ae4f3
0x3d7c…3d83 9670 19403a00f101f3
0x3d83…3d91 9680 LET var(X%) COMMA = ( var(X6) var(Y6) ) var(FNH%) EOS
0x3d91…3d9b 9690 LET var(Y6) COMMA var(Y6) var(D1) PLUS EOS
0x3d9b…3da9 9700 LET var(I8%) COMMA var(Y6) ELEMENT var(Y1') ( 4 ) [] > EOS
0x3da9…3dad 9710 1a403af3
0x3dad…3daf 9720 RETURN EOS
0x3daf…3de1 9750 REM ------------- CHAIN TO DISKPLOT-MODULE -------
0x3de1…3ded 9760 CHAIN »PLOTDISK« EOS
0x3ded…3def 9770 RETURN EOS
0x3def…3e1f 9800 REM -------- CHAIN TO NEXT MODULE -------------
0x3e1f…3e2b 9807 IF = ( 1 1 1 ) var(FNX9%) → eff105f3
0x3e2b…3e30 9812 LET var(M9%) COMMA 1 EOS
0x3e30…3e3e 9815 CHAIN »PLOTAMUS.2« EOS
0x3e3e…3e40 9850 RETURN EOS
0x3e40…3e5a 9900 REM SUB ---INIT PLOT-----
0x3e5a…3e65 9910 1605f270055445524d33f3
0x3e65…3e6d 9920 PRINT 5# SEMI »R« EOS
0x3e6d…3e82 9925 PRINT var(T2$) »« EQ COMMA var(N1$) »« EQ COMMA var(N2$) »« EQ COMMA var(N3$) »« EQ EOS
0x3e82…3eb3 9930 LET var(S0) COMMA 20000 COMMA var(X7) COMMA 2600 COMMA var(Y7) COMMA 2800 COMMA var(V1) COMMA 270 EOS
0x3eb3…3ec0 9940 LET var(P1) COMMA 3.14159 EOS
0x3ec0…3ecd 9950 LET var(D2) COMMA 0.1 EOS
0x3ecd…3ecf 9990 RETURN EOS