|
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: 12786 (0x31f2)
Notes: ZILOG_BASIC
Names: »TRANS.BP«
└─⟦84a75cdbc⟧ Bits:30006816 8" ZilogMCZ floppy NThun_0018 (Styrediskette Basic 3.0 Rio 2.2 Hjælpeprogrammer)
└─⟦this⟧ »TRANS.BP«
0x0000…0014 BasicHead {variables=0x01cc, stms=0x0754, f2=0x28be, f3=0000000000000000000000000000}
0x0014…01e0 [
0x0014…01e0 [0x00]: VarDef {f0=0x140c, f1=0x4f, f2=0x40} A$ 0x72
0x0014…01e0 [0x01]: VarDef {f0=0x1000, f1=0x49, f2=0x08} I9 0x71
0x0014…01e0 [0x02]: VarDef {f0=0x0000, f1=0x4f, f2=0x37} X% 0x70
0x0014…01e0 [0x03]: VarDef {f0=0xffd0, f1=0x5f, f2=0x27} FNH% 0x6f
0x0014…01e0 [0x04]: VarDef {f0=0x0018, f1=0x41, f2=0x4a} K1$ 0x6e
0x0014…01e0 [0x05]: VarDef {f0=0x0000, f1=0x4f, f2=0x4e} O$ 0x6d
0x0014…01e0 [0x06]: VarDef {f0=0x13a4, f1=0x42, f2=0x13} T2 0x6c
0x0014…01e0 [0x07]: VarDef {f0=0x139c, f1=0x41, f2=0x13} T1 0x6b
0x0014…01e0 [0x08]: VarDef {f0=0x138c, f1=0x42, f2=0x00} A2 0x6a
0x0014…01e0 [0x09]: VarDef {f0=0x1360, f1=0x4f, f2=0x08} I 0x69
0x0014…01e0 [0x0a]: VarDef {f0=0xd000, f1=0x48, f2=0x06} G8 0x68
0x0014…01e0 [0x0b]: VarDef {f0=0x0000, f1=0x48, f2=0x28} I8% 0x67
0x0014…01e0 [0x0c]: VarDef {f0=0xd712, f1=0x47, f2=0x13} T7 0x66
0x0014…01e0 [0x0d]: VarDef {f0=0x7400, f1=0x4f, f2=0x11} R 0x65
0x0014…01e0 [0x0e]: VarDef {f0=0x7400, f1=0x4f, f2=0x0f} P 0x64
0x0014…01e0 [0x0f]: VarDef {f0=0x0200, f1=0x43, f2=0x29} J3% 0x63
0x0014…01e0 [0x10]: VarDef {f0=0x0100, f1=0x43, f2=0x28} I3% 0x62
0x0014…01e0 [0x11]: VarDef {f0=0x0326, f1=0x4f, f2=0x92} S' 0x61
0x0014…01e0 [0x12]: VarDef {f0=0x0ff6, f1=0x4f, f2=0x46} G$ 0x60
0x0014…01e0 [0x13]: VarDef {f0=0x11ee, f1=0x43, f2=0xa8} I3%' 0x5f
0x0014…01e0 [0x14]: VarDef {f0=0x0dfe, f1=0x4f, f2=0x4c} M$ 0x5e
0x0014…01e0 [0x15]: VarDef {f0=0x1404, f1=0x4f, f2=0x15} V 0x5d
0x0014…01e0 [0x16]: VarDef {f0=0x0382, f1=0x49, f2=0x92} S9' 0x5c
0x0014…01e0 [0x17]: VarDef {f0=0x13b4, f1=0x40, f2=0x11} R0 0x5b
0x0014…01e0 [0x18]: VarDef {f0=0x13cc, f1=0x49, f2=0x13} T9 0x5a
0x0014…01e0 [0x19]: VarDef {f0=0x0200, f1=0x49, f2=0x2a} K9% 0x59
0x0014…01e0 [0x1a]: VarDef {f0=0x0800, f1=0x49, f2=0x29} J9% 0x58
0x0014…01e0 [0x1b]: VarDef {f0=0x0400, f1=0x49, f2=0x28} I9% 0x57
0x0014…01e0 [0x1c]: VarDef {f0=0x7511, f1=0x45, f2=0x0d} N5 0x56
0x0014…01e0 [0x1d]: VarDef {f0=0x0800, f1=0x4f, f2=0x2c} M% 0x55
0x0014…01e0 [0x1e]: VarDef {f0=0x03d6, f1=0x42, f2=0x97} X2' 0x54
0x0014…01e0 [0x1f]: VarDef {f0=0x13fc, f1=0x43, f2=0x18} Y3 0x53
0x0014…01e0 [0x20]: VarDef {f0=0x13f4, f1=0x42, f2=0x18} Y2 0x52
0x0014…01e0 [0x21]: VarDef {f0=0x13ec, f1=0x41, f2=0x18} Y1 0x51
0x0014…01e0 [0x22]: VarDef {f0=0xffff, f1=0x49, f2=0x26} G9% 0x50
0x0014…01e0 [0x23]: VarDef {f0=0x13e4, f1=0x45, f2=0x11} R5 0x4f
0x0014…01e0 [0x24]: VarDef {f0=0x0a00, f1=0x4f, f2=0x2d} N% 0x4e
0x0014…01e0 [0x25]: VarDef {f0=0x0400, f1=0x47, f2=0x2f} P7% 0x4d
0x0014…01e0 [0x26]: VarDef {f0=0x03f2, f1=0x41, f2=0x95} V1' 0x4c
0x0014…01e0 [0x27]: VarDef {f0=0x0a00, f1=0x45, f2=0x2a} K5% 0x4b
0x0014…01e0 [0x28]: VarDef {f0=0x0100, f1=0x45, f2=0x29} J5% 0x4a
0x0014…01e0 [0x29]: VarDef {f0=0x13d4, f1=0x49, f2=0x12} S9 0x49
0x0014…01e0 [0x2a]: VarDef {f0=0x0400, f1=0x45, f2=0x28} I5% 0x48
0x0014…01e0 [0x2b]: VarDef {f0=0x0c1a, f1=0x45, f2=0x00} A5 0x47
0x0014…01e0 [0x2c]: VarDef {f0=0x13c4, f1=0x45, f2=0x12} S5 0x46
0x0014…01e0 [0x2d]: VarDef {f0=0x0c2c, f1=0x49, f2=0x02} C9 0x45
0x0014…01e0 [0x2e]: VarDef {f0=0x0c24, f1=0x49, f2=0x01} B9 0x44
0x0014…01e0 [0x2f]: VarDef {f0=0x0c1c, f1=0x49, f2=0x00} A9 0x43
0x0014…01e0 [0x30]: VarDef {f0=0x13dc, f1=0x42, f2=0x12} S2 0x42
0x0014…01e0 [0x31]: VarDef {f0=0x0c0c, f1=0x4f, f2=0x03} D 0x41
0x0014…01e0 [0x32]: VarDef {f0=0x1374, f1=0x4f, f2=0x02} C 0x40
0x0014…01e0 [0x33]: VarDef {f0=0x0a00, f1=0x41, f2=0x2d} N1% 0x3f
0x0014…01e0 [0x34]: VarDef {f0=0x13bc, f1=0x40, f2=0x12} S0 0x3e
0x0014…01e0 [0x35]: VarDef {f0=0x0b78, f1=0x44, f2=0x05} F4 0x3d
0x0014…01e0 [0x36]: VarDef {f0=0x0b70, f1=0x43, f2=0x05} F3 0x3c
0x0014…01e0 [0x37]: VarDef {f0=0x0b68, f1=0x42, f2=0x05} F2 0x3b
0x0014…01e0 [0x38]: VarDef {f0=0x0b60, f1=0x41, f2=0x05} F1 0x3a
0x0014…01e0 [0x39]: VarDef {f0=0x0b58, f1=0x42, f2=0x03} D2 0x39
0x0014…01e0 [0x3a]: VarDef {f0=0x0b50, f1=0x41, f2=0x03} D1 0x38
0x0014…01e0 [0x3b]: VarDef {f0=0x0200, f1=0x49, f2=0x2d} N9% 0x37
0x0014…01e0 [0x3c]: VarDef {f0=0x0b48, f1=0x42, f2=0x02} C2 0x36
0x0014…01e0 [0x3d]: VarDef {f0=0x0b40, f1=0x41, f2=0x02} C1 0x35
0x0014…01e0 [0x3e]: VarDef {f0=0x1394, f1=0x42, f2=0x01} B2 0x34
0x0014…01e0 [0x3f]: VarDef {f0=0x0b30, f1=0x41, f2=0x01} B1 0x33
0x0014…01e0 [0x40]: VarDef {f0=0x13ac, f1=0x41, f2=0x12} S1 0x32
0x0014…01e0 [0x41]: VarDef {f0=0x0b20, f1=0x4f, f2=0x12} S 0x31
0x0014…01e0 [0x42]: VarDef {f0=0x0b18, f1=0x41, f2=0x14} U1 0x30
0x0014…01e0 [0x43]: VarDef {f0=0x0b10, f1=0x4f, f2=0x14} U 0x2f
0x0014…01e0 [0x44]: VarDef {f0=0x0b08, f1=0x4f, f2=0x0b} L 0x2e
0x0014…01e0 [0x45]: VarDef {f0=0x0b00, f1=0x41, f2=0x0b} L1 0x2d
0x0014…01e0 [0x46]: VarDef {f0=0x0af8, f1=0x40, f2=0x0b} L0 0x2c
0x0014…01e0 [0x47]: VarDef {f0=0x0000, f1=0x49, f2=0x27} H9% 0x2b
0x0014…01e0 [0x48]: VarDef {f0=0x0400, f1=0x4f, f2=0x2a} K% 0x2a
0x0014…01e0 [0x49]: VarDef {f0=0x136c, f1=0x45, f2=0x0c} M5 0x29
0x0014…01e0 [0x4a]: VarDef {f0=0x0ae8, f1=0x49, f2=0x06} G9 0x28
0x0014…01e0 [0x4b]: VarDef {f0=0x1364, f1=0x40, f2=0x0c} M0 0x27
0x0014…01e0 [0x4c]: VarDef {f0=0x135c, f1=0x40, f2=0x05} F0 0x26
0x0014…01e0 [0x4d]: VarDef {f0=0x0a00, f1=0x41, f2=0x26} G1% 0x25
0x0014…01e0 [0x4e]: VarDef {f0=0x0a00, f1=0x40, f2=0x26} G0% 0x24
0x0014…01e0 [0x4f]: VarDef {f0=0x0400, f1=0x4f, f2=0x28} I% 0x23
0x0014…01e0 [0x50]: VarDef {f0=0x0a00, f1=0x40, f2=0x2d} N0% 0x22
0x0014…01e0 [0x51]: VarDef {f0=0x1384, f1=0x4f, f2=0x01} B 0x21
0x0014…01e0 [0x52]: VarDef {f0=0x137c, f1=0x4f, f2=0x00} A 0x20
0x0014…01e0 [0x53]: VarDef {f0=0xffa0, f1=0x5f, f2=0x13} FNT 0x1f
0x0014…01e0 [0x54]: VarDef {f0=0x0400, f1=0x4f, f2=0x29} J% 0x1e
0x0014…01e0 [0x55]: VarDef {f0=0x12b4, f1=0x4f, f2=0x53} T$ 0x1d
0x0014…01e0 [0x56]: VarDef {f0=0x0ab6, f1=0x4f, f2=0x44} E$ 0x1c
0x0014…01e0 [0x57]: VarDef {f0=0x1288, f1=0x4f, f2=0x4a} K$ 0x1b
0x0014…01e0 [0x58]: VarDef {f0=0x125d, f1=0x41, f2=0x43} D1$ 0x1a
0x0014…01e0 [0x59]: VarDef {f0=0x1256, f1=0x4f, f2=0x43} D$ 0x19
0x0014…01e0 [0x5a]: VarDef {f0=0x0d96, f1=0x40, f2=0xa8} I0%' 0x18
0x0014…01e0 [0x5b]: VarDef {f0=0x08e0, f1=0x4f, f2=0x86} G' 0x17
0x0014…01e0 [0x5c]: VarDef {f0=0x042a, f1=0x4f, f2=0x8c} M' 0x16
0x0014…01e0 [0x5d]: VarDef {f0=0x04bc, f1=0x40, f2=0x81} B0' 0x15
0x0014…01e0 [0x5e]: VarDef {f0=0x0480, f1=0x41, f2=0x90} Q1' 0x14
0x0014…01e0 [0x5f]: VarDef {f0=0x0084, f1=0x4f, f2=0x8d} N' 0x13
0x0014…01e0 [0x60]: VarDef {f0=0x0040, f1=0x4f, f2=0x85} F' 0x12
0x0014…01e0 [0x61]: VarDef {f0=0x02d8, f1=0x41, f2=0x91} R1' 0x11
0x0014…01e0 [0x62]: VarDef {f0=0x028a, f1=0x4f, f2=0x91} R' 0x10
0x0014…01e0 [0x63]: VarDef {f0=0x0038, f1=0x41, f2=0x0f} P1 0xf
0x0014…01e0 [0x64]: VarDef {f0=0x3200, f1=0x49, f2=0x39} Z9% 0xe
0x0014…01e0 [0x65]: VarDef {f0=0x0030, f1=0x41, f2=0x19} Z1 0xd
0x0014…01e0 [0x66]: VarDef {f0=0x0166, f1=0x4f, f2=0x82} C' 0xc
0x0014…01e0 [0x67]: VarDef {f0=0x014a, f1=0x41, f2=0x97} X1' 0xb
0x0014…01e0 [0x68]: VarDef {f0=0x03ba, f1=0x4f, f2=0x97} X' 0xa
0x0014…01e0 [0x69]: VarDef {f0=0x0112, f1=0x42, f2=0x93} T2' 0x9
0x0014…01e0 [0x6a]: VarDef {f0=0x00f6, f1=0x41, f2=0x93} T1' 0x8
0x0014…01e0 [0x6b]: VarDef {f0=0x039e, f1=0x40, f2=0x93} T0' 0x7
0x0014…01e0 [0x6c]: VarDef {f0=0x00be, f1=0x4f, f2=0x95} V' 0x6
0x0014…01e0 [0x6d]: VarDef {f0=0x039e, f1=0x4f, f2=0x93} T' 0x5
0x0014…01e0 [0x6e]: VarDef {f0=0x1270, f1=0x47, f2=0x45} F7$ 0x4
0x0014…01e0 [0x6f]: VarDef {f0=0x040e, f1=0x47, f2=0x93} T7' 0x3
0x0014…01e0 [0x70]: VarDef {f0=0x0067, f1=0x47, f2=0x43} D7$ 0x2
0x0014…01e0 [0x71]: VarDef {f0=0x0054, f1=0x44, f2=0x50} Q4$ 0x1
0x0014…01e0 [0x72]: VarDef {f0=0x1308, f1=0x4f, f2=0x57} X$ 0x0
0x0014…01e0 ]
0x01e0…01e4 Statement 39321 @0x31f1
0x01e4…01e8 Statement 38672 @0x31e6
0x01e8…01ec Statement 38656 @0x31db
0x01ec…01f0 Statement 25904 @0x31d5
0x01f0…01f4 Statement 25888 @0x31d3
0x01f4…01f8 Statement 25872 @0x31d0
0x01f8…01fc Statement 25856 @0x31c8
0x01fc…0200 Statement 25744 @0x31c6
0x0200…0204 Statement 25730 @0x31bf
0x0204…0208 Statement 25728 @0x31ac
0x0208…020c Statement 25680 @0x31aa
0x020c…0210 Statement 25664 @0x31a6
0x0210…0214 Statement 25648 @0x3165
0x0214…0218 Statement 25632 @0x315e
0x0218…021c Statement 25616 @0x315a
0x021c…0220 Statement 25600 @0x3148
0x0220…0224 Statement 25488 @0x3141
0x0224…0228 Statement 25472 @0x3129
0x0228…022c Statement 25456 @0x3127
0x022c…0230 Statement 25440 @0x3123
0x0230…0234 Statement 25424 @0x311f
0x0234…0238 Statement 25408 @0x30e1
0x0238…023c Statement 25392 @0x30da
0x023c…0240 Statement 25376 @0x30d6
0x0240…0244 Statement 25360 @0x30c2
0x0244…0248 Statement 25344 @0x30bb
0x0248…024c Statement 25232 @0x30b4
0x024c…0250 Statement 25200 @0x3096
0x0250…0254 Statement 25184 @0x307f
0x0254…0258 Statement 25168 @0x3068
0x0258…025c Statement 25152 @0x3051
0x025c…0260 Statement 25136 @0x3033
0x0260…0264 Statement 25120 @0x301c
0x0264…0268 Statement 25104 @0x3005
0x0268…026c Statement 25088 @0x2fee
0x026c…0270 Statement 24976 @0x2fd0
0x0270…0274 Statement 24960 @0x2fb8
0x0274…0278 Statement 24944 @0x2f9d
0x0278…027c Statement 24864 @0x2f9b
0x027c…0280 Statement 24608 @0x2f97
0x0280…0284 Statement 24592 @0x2f93
0x0284…0288 Statement 24576 @0x2f82
0x0288…028c Statement 22928 @0x2f7e
0x028c…0290 Statement 22912 @0x2f63
0x0290…0294 Statement 22896 @0x2f59
0x0294…0298 Statement 22880 @0x2f50
0x0298…029c Statement 22864 @0x2f42
0x029c…02a0 Statement 22848 @0x2f3a
0x02a0…02a4 Statement 22832 @0x2f20
0x02a4…02a8 Statement 22816 @0x2f0f
0x02a8…02ac Statement 22805 @0x2eed
0x02ac…02b0 Statement 22800 @0x2eeb
0x02b0…02b4 Statement 22784 @0x2ee7
0x02b4…02b8 Statement 22672 @0x2ed9
0x02b8…02bc Statement 22656 @0x2ed5
0x02bc…02c0 Statement 22640 @0x2ed1
0x02c0…02c4 Statement 22624 @0x2eaf
0x02c4…02c8 Statement 22608 @0x2e9f
0x02c8…02cc Statement 22592 @0x2e98
0x02cc…02d0 Statement 22581 @0x2e8f
0x02d0…02d4 Statement 22576 @0x2e7e
0x02d4…02d8 Statement 22560 @0x2e76
0x02d8…02dc Statement 22544 @0x2e54
0x02dc…02e0 Statement 22528 @0x2e4d
0x02e0…02e4 Statement 22384 @0x2e32
0x02e4…02e8 Statement 22352 @0x2e30
0x02e8…02ec Statement 22336 @0x2e2c
0x02ec…02f0 Statement 22320 @0x2e28
0x02f0…02f4 Statement 22304 @0x2e03
0x02f4…02f8 Statement 22288 @0x2dfb
0x02f8…02fc Statement 22277 @0x2ded
0x02fc…0300 Statement 22272 @0x2de6
0x0300…0304 Statement 22160 @0x2dcb
0x0304…0308 Statement 21856 @0x2dc8
0x0308…030c Statement 21840 @0x2dc6
0x030c…0310 Statement 21832 @0x2dc3
0x0310…0314 Statement 21831 @0x2db8
0x0314…0318 Statement 21830 @0x2da7
0x0318…031c Statement 21829 @0x2d9c
0x031c…0320 Statement 21828 @0x2d98
0x0320…0324 Statement 21827 @0x2d5a
0x0324…0328 Statement 21826 @0x2d51
0x0328…032c Statement 21825 @0x2d4f
0x032c…0330 Statement 21824 @0x2d4b
0x0330…0334 Statement 21808 @0x2d39
0x0334…0338 Statement 21792 @0x2d29
0x0338…033c Statement 21776 @0x2d19
0x033c…0340 Statement 21760 @0x2d12
0x0340…0344 Statement 21648 @0x2d0e
0x0344…0348 Statement 21632 @0x2d02
0x0348…034c Statement 21616 @0x2cfb
0x034c…0350 Statement 21600 @0x2ceb
0x0350…0354 Statement 21504 @0x2ce7
0x0354…0358 Statement 21376 @0x2cd9
0x0358…035c Statement 21362 @0x2cce
0x035c…0360 Statement 21360 @0x2ca1
0x0360…0364 Statement 21344 @0x2c99
0x0364…0368 Statement 21328 @0x2c97
0x0368…036c Statement 21312 @0x2c6f
0x036c…0370 Statement 21296 @0x2c5d
0x0370…0374 Statement 21280 @0x2c55
0x0374…0378 Statement 21264 @0x2c53
0x0378…037c Statement 21104 @0x2c50
0x037c…0380 Statement 21088 @0x2c2a
0x0380…0384 Statement 21072 @0x2c07
0x0384…0388 Statement 21056 @0x2bff
0x0388…038c Statement 21040 @0x2bef
0x038c…0390 Statement 21024 @0x2bde
0x0390…0394 Statement 21008 @0x2bcd
0x0394…0398 Statement 20992 @0x2bc7
0x0398…039c Statement 20885 @0x2bbf
0x039c…03a0 Statement 20883 @0x2bbd
0x03a0…03a4 Statement 20880 @0x2ba6
0x03a4…03a8 Statement 20864 @0x2b9d
0x03a8…03ac Statement 20848 @0x2b9a
0x03ac…03b0 Statement 20841 @0x2b92
0x03b0…03b4 Statement 20840 @0x2b90
0x03b4…03b8 Statement 20838 @0x2b64
0x03b8…03bc Statement 20820 @0x2b3b
0x03bc…03c0 Statement 20816 @0x2b2d
0x03c0…03c4 Statement 18512 @0x2b2a
0x03c4…03c8 Statement 18496 @0x2b1b
0x03c8…03cc Statement 18480 @0x2b0f
0x03cc…03d0 Statement 18448 @0x2b0c
0x03d0…03d4 Statement 18432 @0x2afb
0x03d4…03d8 Statement 18288 @0x2aed
0x03d8…03dc Statement 18176 @0x2aae
0x03dc…03e0 Statement 18048 @0x2a94
0x03e0…03e4 Statement 18032 @0x2a8e
0x03e4…03e8 Statement 17984 @0x2a85
0x03e8…03ec Statement 17973 @0x2a42
0x03ec…03f0 Statement 17971 @0x2a02
0x03f0…03f4 Statement 17957 @0x29e8
0x03f4…03f8 Statement 17744 @0x29be
0x03f8…03fc Statement 17728 @0x298c
0x03fc…0400 Statement 17712 @0x293b
0x0400…0404 Statement 17696 @0x28f8
0x0404…0408 Statement 17680 @0x28ce
0x0408…040c Statement 17664 @0x289c
0x040c…0410 Statement 17552 @0x284b
0x0410…0414 Statement 17536 @0x2808
0x0414…0418 Statement 17520 @0x27de
0x0418…041c Statement 17504 @0x27ab
0x041c…0420 Statement 17488 @0x275a
0x0420…0424 Statement 17472 @0x2717
0x0424…0428 Statement 17408 @0x2709
0x0428…042c Statement 17248 @0x2706
0x042c…0430 Statement 17216 @0x2703
0x0430…0434 Statement 17184 @0x26f2
0x0434…0438 Statement 17168 @0x26ec
0x0438…043c Statement 17152 @0x26e3
0x043c…0440 Statement 17047 @0x26d1
0x0440…0444 Statement 17045 @0x26c6
0x0444…0448 Statement 17040 @0x26be
0x0448…044c Statement 17024 @0x26a1
0x044c…0450 Statement 17008 @0x268d
0x0450…0454 Statement 17000 @0x2675
0x0454…0458 Statement 16997 @0x2662
0x0458…045c Statement 16994 @0x2649
0x045c…0460 Statement 16992 @0x263d
0x0460…0464 Statement 16985 @0x2622
0x0464…0468 Statement 16984 @0x25ed
0x0468…046c Statement 16983 @0x25c2
0x046c…0470 Statement 16981 @0x25bc
0x0470…0474 Statement 16976 @0x25b9
0x0474…0478 Statement 16968 @0x25b1
0x0478…047c Statement 16966 @0x25af
0x047c…0480 Statement 16964 @0x25a9
0x0480…0484 Statement 16960 @0x25a6
0x0484…0488 Statement 16949 @0x25a3
0x0488…048c Statement 16944 @0x259d
0x048c…0490 Statement 16933 @0x2590
0x0490…0494 Statement 16768 @0x2553
0x0494…0498 Statement 16704 @0x2550
0x0498…049c Statement 16480 @0x250f
0x049c…04a0 Statement 16448 @0x250c
0x04a0…04a4 Statement 16432 @0x24d0
0x04a4…04a8 Statement 16416 @0x24c4
0x04a8…04ac Statement 16384 @0x2496
0x04ac…04b0 Statement 14720 @0x2464
0x04b0…04b4 Statement 14704 @0x244c
0x04b4…04b8 Statement 14480 @0x2449
0x04b8…04bc Statement 14432 @0x2435
0x04bc…04c0 Statement 14416 @0x242f
0x04c0…04c4 Statement 14405 @0x2419
0x04c4…04c8 Statement 14400 @0x240d
0x04c8…04cc Statement 14384 @0x2401
0x04cc…04d0 Statement 14368 @0x23fb
0x04d0…04d4 Statement 14336 @0x23ed
0x04d4…04d8 Statement 14224 @0x23e7
0x04d8…04dc Statement 14192 @0x23e0
0x04dc…04e0 Statement 14181 @0x23d5
0x04e0…04e4 Statement 14176 @0x23a9
0x04e4…04e8 Statement 13712 @0x2392
0x04e8…04ec Statement 13696 @0x2385
0x04ec…04f0 Statement 13648 @0x235c
0x04f0…04f4 Statement 13632 @0x2336
0x04f4…04f8 Statement 13600 @0x2303
0x04f8…04fc Statement 13584 @0x22cf
0x04fc…0500 Statement 13568 @0x22cc
0x0500…0504 Statement 13458 @0x22c6
0x0504…0508 Statement 13456 @0x2298
0x0508…050c Statement 13424 @0x225f
0x050c…0510 Statement 13408 @0x2257
0x0510…0514 Statement 13392 @0x2255
0x0514…0518 Statement 13376 @0x2249
0x0518…051c Statement 13362 @0x2240
0x051c…0520 Statement 13360 @0x2213
0x0520…0524 Statement 13328 @0x2210
0x0524…0528 Statement 12912 @0x2207
0x0528…052c Statement 12896 @0x21eb
0x052c…0530 Statement 12848 @0x21c8
0x0530…0534 Statement 12800 @0x219f
0x0534…0538 Statement 12674 @0x217f
0x0538…053c Statement 12673 @0x217c
0x053c…0540 Statement 12672 @0x2159
0x0540…0544 Statement 12656 @0x2144
0x0544…0548 Statement 12640 @0x2130
0x0548…054c Statement 12624 @0x211c
0x054c…0550 Statement 12608 @0x2113
0x0550…0554 Statement 12560 @0x2110
0x0554…0558 Statement 12544 @0x20f0
0x0558…055c Statement 12432 @0x20dd
0x055c…0560 Statement 12416 @0x20da
0x0560…0564 Statement 12400 @0x20c3
0x0564…0568 Statement 12384 @0x20bd
0x0568…056c Statement 12368 @0x20ba
0x056c…0570 Statement 12320 @0x20b7
0x0570…0574 Statement 12304 @0x20b4
0x0574…0578 Statement 12288 @0x20ab
0x0578…057c Statement 10640 @0x20a8
0x057c…0580 Statement 10560 @0x208a
0x0580…0584 Statement 10544 @0x207e
0x0584…0588 Statement 10528 @0x205b
0x0588…058c Statement 10512 @0x2030
0x058c…0590 Statement 10496 @0x201b
0x0590…0594 Statement 10384 @0x2003
0x0594…0598 Statement 10320 @0x1fd4
0x0598…059c Statement 10304 @0x1fba
0x059c…05a0 Statement 10272 @0x1fb4
0x05a0…05a4 Statement 10256 @0x1fb1
0x05a4…05a8 Statement 10128 @0x1f80
0x05a8…05ac Statement 10112 @0x1f77
0x05ac…05b0 Statement 10096 @0x1f6c
0x05b0…05b4 Statement 10080 @0x1f66
0x05b4…05b8 Statement 10048 @0x1f27
0x05b8…05bc Statement 10032 @0x1f14
0x05bc…05c0 Statement 10016 @0x1f0b
0x05c0…05c4 Statement 10000 @0x1ef6
0x05c4…05c8 Statement 09984 @0x1ef0
0x05c8…05cc Statement 09472 @0x1eed
0x05cc…05d0 Statement 09360 @0x1ee7
0x05d0…05d4 Statement 09344 @0x1eb4
0x05d4…05d8 Statement 09333 @0x1e64
0x05d8…05dc Statement 09328 @0x1e1d
0x05dc…05e0 Statement 09317 @0x1dcd
0x05e0…05e4 Statement 09312 @0x1d85
0x05e4…05e8 Statement 09296 @0x1d19
0x05e8…05ec Statement 09280 @0x1d16
0x05ec…05f0 Statement 09264 @0x1cc5
0x05f0…05f4 Statement 09248 @0x1c6e
0x05f4…05f8 Statement 09232 @0x1c14
0x05f8…05fc Statement 09216 @0x1c11
0x05fc…0600 Statement 09072 @0x1be3
0x0600…0604 Statement 09056 @0x1bc5
0x0604…0608 Statement 09024 @0x1bbb
0x0608…060c Statement 08992 @0x1bb5
0x060c…0610 Statement 08976 @0x1bac
0x0610…0614 Statement 08960 @0x1b9e
0x0614…0618 Statement 08784 @0x1b93
0x0618…061c Statement 08768 @0x1b90
0x061c…0620 Statement 08752 @0x1b6d
0x0620…0624 Statement 08736 @0x1b56
0x0624…0628 Statement 08720 @0x1b50
0x0628…062c Statement 08704 @0x1b46
0x062c…0630 Statement 08592 @0x1b36
0x0630…0634 Statement 08576 @0x1b0a
0x0634…0638 Statement 08560 @0x1af4
0x0638…063c Statement 08544 @0x1af1
0x063c…0640 Statement 08533 @0x1abb
0x0640…0644 Statement 08528 @0x1a85
0x0644…0648 Statement 08517 @0x1a4d
0x0648…064c Statement 08512 @0x1a15
0x064c…0650 Statement 08496 @0x19e5
0x0650…0654 Statement 08480 @0x19dd
0x0654…0658 Statement 08469 @0x19d3
0x0658…065c Statement 08464 @0x19cd
0x065c…0660 Statement 08457 @0x19b8
0x0660…0664 Statement 08455 @0x198c
0x0664…0668 Statement 08454 @0x1960
0x0668…066c Statement 08453 @0x1925
0x066c…0670 Statement 08452 @0x18ea
0x0670…0674 Statement 08450 @0x18d5
0x0674…0678 Statement 08448 @0x18be
0x0678…067c Statement 08192 @0x1890
0x067c…0680 Statement 06544 @0x1862
0x0680…0684 Statement 06512 @0x1828
0x0684…0688 Statement 06496 @0x17ee
0x0688…068c Statement 06480 @0x17c4
0x068c…0690 Statement 06464 @0x17c1
0x0690…0694 Statement 06448 @0x1790
0x0694…0698 Statement 06432 @0x175f
0x0698…069c Statement 06400 @0x172e
0x069c…06a0 Statement 06288 @0x16fd
0x06a0…06a4 Statement 06272 @0x16a8
0x06a4…06a8 Statement 06256 @0x1665
0x06a8…06ac Statement 06240 @0x1635
0x06ac…06b0 Statement 06229 @0x162d
0x06b0…06b4 Statement 06224 @0x1623
0x06b4…06b8 Statement 06192 @0x161d
0x06b8…06bc Statement 06144 @0x15f5
0x06bc…06c0 Statement 05488 @0x15f3
0x06c0…06c4 Statement 05472 @0x15f1
0x06c4…06c8 Statement 05456 @0x15ee
0x06c8…06cc Statement 05184 @0x15a7
0x06cc…06d0 Statement 05168 @0x15a0
0x06d0…06d4 Statement 05136 @0x159d
0x06d4…06d8 Statement 05120 @0x159a
0x06d8…06dc Statement 05008 @0x157e
0x06dc…06e0 Statement 04992 @0x156a
0x06e0…06e4 Statement 04976 @0x1564
0x06e4…06e8 Statement 04960 @0x155a
0x06e8…06ec Statement 04944 @0x1554
0x06ec…06f0 Statement 04896 @0x1552
0x06f0…06f4 Statement 04880 @0x1550
0x06f4…06f8 Statement 04864 @0x154e
0x06f8…06fc Statement 04752 @0x154b
0x06fc…0700 Statement 04736 @0x1504
0x0700…0704 Statement 04722 @0x1501
0x0704…0708 Statement 04720 @0x14b8
0x0708…070c Statement 04704 @0x14b6
0x070c…0710 Statement 04688 @0x14b4
0x0710…0714 Statement 04672 @0x14b2
0x0714…0718 Statement 04640 @0x1480
0x0718…071c Statement 04624 @0x1454
0x071c…0720 Statement 04608 @0x1428
0x0720…0724 Statement 04501 @0x1426
0x0724…0728 Statement 04496 @0x1421
0x0728…072c Statement 04480 @0x141e
0x072c…0730 Statement 04448 @0x1418
0x0730…0734 Statement 04432 @0x1412
0x0734…0738 Statement 04416 @0x1402
0x0738…073c Statement 04400 @0x13ff
0x073c…0740 Statement 04384 @0x13f1
0x0740…0744 Statement 04370 @0x13e6
0x0744…0748 Statement 04368 @0x13bb
0x0748…074c Statement 04240 @0x13b8
0x074c…0750 Statement 04208 @0x13ae
0x0750…0754 Statement 04192 @0x13a8
0x0754…0758 Statement 04176 @0x13a5
0x0758…075c Statement 04160 @0x13a2
0x075c…0760 Statement 04144 @0x1389
0x0760…0764 Statement 04128 @0x1373
0x0764…0768 Statement 04112 @0x1367
0x0768…076c Statement 04096 @0x1361
0x076c…0770 Statement 02448 @0x132f
0x0770…0774 Statement 02432 @0x1300
0x0774…0778 Statement 02421 @0x12f2
0x0778…077c Statement 02416 @0x12ea
0x077c…0780 Statement 02400 @0x12e8
0x0780…0784 Statement 02384 @0x12e2
0x0784…0788 Statement 02368 @0x12d6
0x0788…078c Statement 02354 @0x12cd
0x078c…0790 Statement 02336 @0x12ae
0x0790…0794 Statement 02322 @0x1292
0x0794…0798 Statement 02320 @0x1270
0x0798…079c Statement 02304 @0x126d
0x079c…07a0 Statement 02192 @0x1267
0x07a0…07a4 Statement 02183 @0x1262
0x07a4…07a8 Statement 02182 @0x120a
0x07a8…07ac Statement 02181 @0x11b5
0x07ac…07b0 Statement 02180 @0x11ad
0x07b0…07b4 Statement 02179 @0x11ab
0x07b4…07b8 Statement 02178 @0x11a3
0x07b8…07bc Statement 02176 @0x119d
0x07bc…07c0 Statement 02160 @0x1197
0x07c0…07c4 Statement 02149 @0x117f
0x07c4…07c8 Statement 02144 @0x1177
0x07c8…07cc Statement 02128 @0x1175
0x07cc…07d0 Statement 02096 @0x1172
0x07d0…07d4 Statement 02085 @0x116c
0x07d4…07d8 Statement 02080 @0x1169
0x07d8…07dc Statement 02069 @0x114c
0x07dc…07e0 Statement 02064 @0x1149
0x07e0…07e4 Statement 01936 @0x1130
0x07e4…07e8 Statement 01920 @0x111a
0x07e8…07ec Statement 01904 @0x110e
0x07ec…07f0 Statement 01888 @0x1108
0x07f0…07f4 Statement 01872 @0x10d6
0x07f4…07f8 Statement 01856 @0x10a7
0x07f8…07fc Statement 01845 @0x1099
0x07fc…0800 Statement 01840 @0x1091
0x0800…0804 Statement 01824 @0x108f
0x0804…0808 Statement 01808 @0x1089
0x0808…080c Statement 01792 @0x107d
0x080c…0810 Statement 01682 @0x1074
0x0810…0814 Statement 01680 @0x1050
0x0814…0818 Statement 01666 @0x1031
0x0818…081c Statement 01650 @0x1015
0x081c…0820 Statement 01648 @0xfe1
0x0820…0824 Statement 01641 @0xfd9
0x0824…0828 Statement 01640 @0xfd7
0x0828…082c Statement 01639 @0xfd2
0x082c…0830 Statement 01638 @0xf79
0x0830…0834 Statement 01637 @0xf23
0x0834…0838 Statement 01636 @0xf1b
0x0838…083c Statement 01635 @0xf19
0x083c…0840 Statement 01634 @0xf11
0x0840…0844 Statement 01632 @0xf0b
0x0844…0848 Statement 01616 @0xf05
0x0848…084c Statement 01605 @0xeef
0x084c…0850 Statement 01600 @0xeed
0x0850…0854 Statement 01584 @0xeeb
0x0854…0858 Statement 01168 @0xee8
0x0858…085c Statement 01152 @0xed6
0x085c…0860 Statement 01136 @0xec7
0x0860…0864 Statement 01120 @0xeb3
0x0864…0868 Statement 01104 @0xea0
0x0868…086c Statement 01088 @0xe8c
0x086c…0870 Statement 01072 @0xe7b
0x0870…0874 Statement 01056 @0xe69
0x0874…0878 Statement 01040 @0xe5a
0x0878…087c Statement 01026 @0xe13
0x087c…0880 Statement 01024 @0xe10
0x0880…0884 Statement 00917 @0xe0a
0x0884…0888 Statement 00608 @0xdff
0x0888…088c Statement 00597 @0xdfd
0x088c…0890 Statement 00592 @0xdbc
0x0890…0894 Statement 00581 @0xdb7
0x0894…0898 Statement 00578 @0xdb5
0x0898…089c Statement 00576 @0xdb3
0x089c…08a0 Statement 00565 @0xdaa
0x08a0…08a4 Statement 00560 @0xd69
0x08a4…08a8 Statement 00544 @0xd67
0x08a8…08ac Statement 00533 @0xd65
0x08ac…08b0 Statement 00528 @0xd63
0x08b0…08b4 Statement 00517 @0xd5b
0x08b4…08b8 Statement 00512 @0xd13
0x08b8…08bc Statement 00405 @0xd12
0x08bc…08c0 Statement 00400 @0xd0f
0x08c0…08c4 Statement 00389 @0xd03
0x08c4…08c8 Statement 00384 @0xcf7
0x08c8…08cc Statement 00373 @0xcec
0x08cc…08d0 Statement 00368 @0xcbc
0x08d0…08d4 Statement 00357 @0xcb7
0x08d4…08d8 Statement 00352 @0xc7d
0x08d8…08dc Statement 00341 @0xc7c
0x08dc…08e0 Statement 00336 @0xc79
0x08e0…08e4 Statement 00325 @0xc77
0x08e4…08e8 Statement 00320 @0xc2c
0x08e8…08ec Statement 00309 @0xbe0
0x08ec…08f0 Statement 00304 @0xb94
0x08f0…08f4 Statement 00293 @0xb48
0x08f4…08f8 Statement 00288 @0xafc
0x08f8…08fc Statement 00277 @0xab1
0x08fc…0900 Statement 00272 @0xaa6
0x0900…0904 Statement 00261 @0xaa2
0x0904…0908 Statement 00256 @0xa61
0x0908…090c Statement 00064 @0xa52
0x090c…0910 Statement 00053 @0xa1b
0x0910…0914 Statement 00048 @0xa00
0x0914…0918 Statement 00037 @0x9d5
0x0918…091c Statement 00032 @0x9a8
0x091c…0920 Statement 00021 @0x999
0x0920…0924 Statement 00016 @0x95b
0x0924…0928 Statement 00009 @0x956
0x0928…092c Statement 00008 @0x949
0x092c…0930 Statement 00007 @0x944
0x0930…0934 Statement 00005 @0x934
0x0934…0944 0005 COM ELEMENT var(O$) ( 20 ) [] ELEMENT var(K1$) ( 20 ) [] EOS
0x0944…0949 0007 LET var(Z1) COMMA 20 EOS
0x0949…0956 0008 LET var(P1) COMMA 3.14159 EOS
0x0956…095b 0009 LET var(Z9%) COMMA 50 EOS
0x095b…0999 0010 DIM ELEMENT var(F') ( 8 ) [] ELEMENT var(N') ( 8 8 ) [] ELEMENT var(R') ( 3 3 ) [] ELEMENT var(R1') ( 3 3 ) [] ELEMENT var(S') ( 11 ) [] ELEMENT var(S9') ( 3 ) [] ELEMENT var(T0') ( 3 ) [] ELEMENT var(X') ( 3 ) [] ELEMENT var(X2') ( 3 ) [] EOS
0x0999…09a8 0015 DIM ELEMENT var(V1') ( 3 ) [] ELEMENT var(T7') ( 3 ) [] EOS
0x09a8…09d5 0020 DIM ELEMENT var(M') ( 3 var(Z9%) ) [] ELEMENT var(G') ( 3 var(Z9%) ) [] ELEMENT var(I0%') ( var(Z9%) ) [] ELEMENT var(M$) ( var(Z9%) 8 ) [] ELEMENT var(G$) ( var(Z9%) 8 ) [] ELEMENT var(I3%') ( var(Z9%) ) [] EOS
0x09d5…0a00 0025 DIM ELEMENT var(D$) ( 3 ) [] ELEMENT var(D1$) ( 15 ) [] ELEMENT var(F7$) ( 20 ) [] ELEMENT var(K$) ( 4 8 ) [] ELEMENT var(T$) ( %80 ) [] ELEMENT var(X$) ( %80 ) [] EOS
0x0a00…0a1b 0030 LET var(D$) COMMA »###« COMMA var(D1$) COMMA » ######D.DD « EOS
0x0a1b…0a52 0035 LET ELEMENT var(K$) ( 1 ) [] COMMA »PT.NR. =« COMMA ELEMENT var(K$) ( 2 ) [] COMMA »X=« COMMA ELEMENT var(K$) ( 3 ) [] COMMA »Y=« COMMA ELEMENT var(K$) ( 4 ) [] COMMA »Z=« EOS
0x0a52…0a61 0040 SYSTEM »LINELEN« COMMA %80 EOS
0x0a61…0aa2 0100 REM ------------------------------------------ FUNCTION HEADING
0x0aa2…0aa6 0105 DEF var(FNH%) EOS
0x0aa6…0ab1 0110 PRINT = ( 27 ) → af700145e2f3
0x0ab1…0afc 0115 PRINT » ~~ M A P D A T F O T O G R A M M E T R I ~~~~~~~~~~ viak a/s ~~« EOS
0x0afc…0b48 0120 PRINT » | |« EOS
0x0b48…0b94 0125 PRINT » | S T E R E O D I G versjon 2.0 |« EOS
0x0b94…0be0 0130 PRINT » | |« EOS
0x0be0…0c2c 0135 PRINT » | Program : T R A N S -- 3-D ortogonal transformasjon. |« EOS
0x0c2c…0c77 0140 PRINT » ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~« EOS
0x0c77…0c79 0145 PRINT EOS
0x0c79…0c7c 0150 RETURN 0 EOS
0x0c7c…0c7d 0155 FNEND
0x0c7d…0cb7 0160 REM ------------------------------------------ FUNCTION
0x0cb7…0cbc 0165 DEF var(FNT) var(A) var(B) EOS
0x0cbc…0cec 0170 IF = ( var(B) ) ?ABS 1e-07 ?< COMMA 27 var(B) COMMA var(B) = ( var(B) ) ?SGN 1e-07 MULT PLUS 1e-08 PLUS EOS
0x0cec…0cf7 0175 LET var(B) COMMA = ( var(A) var(B) DIV ) → aaf3
0x0cf7…0d03 0180 IF var(B) 0 ?< COMMA 27 var(B) COMMA var(B) var(P1) PLUS EOS
0x0d03…0d0f 0185 IF var(A) 0 ?< COMMA 27 var(B) COMMA var(B) var(P1) PLUS EOS
0x0d0f…0d12 0190 RETURN var(B) EOS
0x0d12…0d13 0195 FNEND
0x0d13…0d5b 0200 REM ========================================== M A I N P R O G R A M
0x0d5b…0d63 0205 LET var(X%) COMMA = var(FNH%) EOS
0x0d63…0d65 0210 PRINT EOS
0x0d65…0d67 0215 PRINT EOS
0x0d67…0d69 0220 PRINT EOS
0x0d69…0daa 0230 INPUT » Giv filnavn (skriv MODEL)................... : « COMMA var(F7$) EOS
0x0daa…0db3 0235 IF var(F7$) »« EQ COMMA 0 → 9999
0x0db3…0db5 0240 PRINT EOS
0x0db5…0db7 0242 PRINT EOS
0x0db7…0dbc 0245 1605f245f3
0x0dbc…0dfd 0250 INPUT » Navn flyopgave (skriv billednumre).......... : « COMMA var(T$) EOS
0x0dfd…0dff 0255 PRINT EOS
0x0dff…0e0a 0260 PRINT = ( 27 ) → af700145e2f3
0x0e0a…0e10 0395 LET var(P7%) COMMA 3 EOS
0x0e10…0e13 0400 GOSUB → 8064
0x0e13…0e5a 0402 LET var(X$) COMMA »------------------------------ FLYOPPGAVE MODELL « EOS
0x0e5a…0e69 0410 PRINT = ( 20 ) → b5f2724173011e749ff3
0x0e69…0e7b 0420 PRINT 5# SEMI = ( 20 ) → b5f2724173011e749ff3
0x0e7b…0e8c 0430 PRINT = ( 20 ) → b5f27241731f32749ff25ef3
0x0e8c…0ea0 0440 PRINT 5# SEMI = ( 20 ) → b5f27241731f2d749ff25ef3
0x0ea0…0eb3 0450 PRINT = ( 20 ) → b5f27241732e6f4100749ff245f3
0x0eb3…0ec7 0460 PRINT 5# SEMI = ( 20 ) → b5f27241732e3c749ff245f3
0x0ec7…0ed6 0470 PRINT = ( 20 ) → b5f2724173011e749ff3
0x0ed6…0ee8 0480 PRINT 5# SEMI = ( 20 ) → b5f2724173011e749ff3
0x0ee8…0eeb 0490 GOSUB → 8064
0x0eeb…0eed 0630 PRINT EOS
0x0eed…0eef 0640 PRINT EOS
0x0eef…0f05 0645 IF var(O$) »« EQ COMMA 27 var(O$) COMMA »OBS.DATA« EOS
0x0f05…0f0b 0650 1601f24040f3
0x0f0b…0f11 0660 INPUT 1# SEMI var(N0%) EOS
0x0f11…0f19 0662 IF var(N0%) var(Z9%) → e9f1007006
0x0f19…0f1b 0663 PRINT EOS
0x0f1b…0f23 0664 PRINT 5# SEMI » « EOS
0x0f23…0f79 0665 PRINT » Observasjonsfilen inneholder « SEMI var(N0%) SEMI » punkt. Bare de « SEMI var(Z9%) SEMI » forste vil bli brukt.« EOS
0x0f79…0fd2 0666 PRINT 5# SEMI » Observasjonsfilen inneholder « SEMI var(N0%) SEMI » punkt. Bare de « SEMI var(Z9%) SEMI » forste vil bli brukt.« EOS
0x0fd2…0fd7 0667 LET var(N0%) COMMA var(Z9%) EOS
0x0fd7…0fd9 0668 PRINT EOS
0x0fd9…0fe1 0669 PRINT 5# SEMI » « EOS
0x0fe1…1015 0670 LET ELEMENT var(X$) ( 1 6 ) [] COMMA »*** « COMMA ELEMENT var(X$) ( 7 29 ) [] COMMA » OBSERVERTE PUNKT ***« EOS
0x1015…1031 0672 PRINT = ( 20 ) → b5f27241730105749ff2755af163f2724173071c749ff3
0x1031…1050 0682 PRINT 5# SEMI = ( 20 ) → b5f27241730105749ff2755af163f2724173071c749ff3
0x1050…1074 0690 LET var(T$) COMMA »******************************« EOS
0x1074…107d 0692 PRINT = ( 20 ) → b5f25ef3
0x107d…1089 0700 PRINT 5# SEMI = ( 20 ) → b5f25ef3
0x1089…108f 0710 196401f163f3
0x108f…1091 0720 PRINT EOS
0x1091…1099 0730 PRINT 5# SEMI » « EOS
0x1099…10a7 0735 INPUT 1# SEMI ELEMENT var(M$) ( var(I%) 1 8 ) [] EOS
0x10a7…10d6 0740 PRINT USING var(D$) COMMA » « SEMI var(I%) SEMI » : « SEMI ELEMENT var(K$) ( 1 ) [] SEMI » « SEMI ELEMENT var(M$) ( var(I%) ) [] SEMI » « SEMI EOS
0x10d6…1108 0750 PRINT 5# SEMI USING var(D$) COMMA » « SEMI var(I%) SEMI » : « SEMI ELEMENT var(K$) ( 1 ) [] SEMI » « SEMI ELEMENT var(M$) ( var(I%) ) [] SEMI » « SEMI EOS
0x1108…110e 0760 195f01f103f3
0x110e…111a 0770 INPUT 1# SEMI ELEMENT var(M') ( var(J%) var(I%) ) [] EOS
0x111a…1130 0780 PRINT ELEMENT var(K$) ( var(J%) 1 PLUS ) [] SEMI USING var(D1$) COMMA ELEMENT var(M') ( var(J%) var(I%) ) [] SEMI EOS
0x1130…1149 0790 PRINT 5# SEMI ELEMENT var(K$) ( var(J%) 1 PLUS ) [] SEMI USING var(D1$) COMMA ELEMENT var(M') ( var(J%) var(I%) ) [] SEMI EOS
0x1149…114c 0810 1a5ff3
0x114c…1169 0815 LET ELEMENT var(M') ( 3 var(I%) ) [] COMMA ELEMENT var(M') ( 3 var(I%) ) [] var(Z1) DIV COMMA ELEMENT var(I3%') ( var(I%) ) [] COMMA var(I%) EOS
0x1169…116c 0820 1a64f3
0x116c…1172 0825 LET var(I8%) COMMA var(N0%) EOS
0x1172…1175 0830 1401f3
0x1175…1177 0850 PRINT EOS
0x1177…117f 0860 PRINT 5# SEMI » « EOS
0x117f…1197 0865 IF var(K1$) »« EQ COMMA 27 var(K1$) COMMA »KNOWN.DATA« EOS
0x1197…119d 0870 1602f24041f3
0x119d…11a3 0880 INPUT 2# SEMI var(G0%) EOS
0x11a3…11ab 0882 IF var(G0%) var(Z9%) → e9f1009008
0x11ab…11ad 0883 PRINT EOS
0x11ad…11b5 0884 PRINT 5# SEMI » « EOS
0x11b5…120a 0885 PRINT » Kjentpunkt-filen inneholder « SEMI var(N0%) SEMI » punkt. Bare de « SEMI var(Z9%) SEMI » forste vil bli brukt.« EOS
0x120a…1262 0886 PRINT 5# SEMI » Kjentpunkt-filen inneholder « SEMI var(N0%) SEMI » punkt. Bare de « SEMI var(Z9%) SEMI » forste vil bli brukt.« EOS
0x1262…1267 0887 LET var(G0%) COMMA var(Z9%) EOS
0x1267…126d 0890 LET var(P7%) COMMA 2 EOS
0x126d…1270 0900 GOSUB → 8064
0x1270…1292 0910 LET ELEMENT var(X$) ( 7 28 ) [] COMMA » KJENTE PUNKT ***« EOS
0x1292…12ae 0912 PRINT = ( 20 ) → b5f27241730105749ff2755af165f2724173071c749ff3
0x12ae…12cd 0920 PRINT 5# SEMI = ( 20 ) → b5f27241730105749ff2755af165f2724173071c749ff3
0x12cd…12d6 0932 PRINT = ( 20 ) → b5f25ef3
0x12d6…12e2 0940 PRINT 5# SEMI = ( 20 ) → b5f25ef3
0x12e2…12e8 0950 196401f165f3
0x12e8…12ea 0960 PRINT EOS
0x12ea…12f2 0970 PRINT 5# SEMI » « EOS
0x12f2…1300 0975 INPUT 2# SEMI ELEMENT var(G$) ( var(I%) 1 8 ) [] EOS
0x1300…132f 0980 PRINT USING var(D$) COMMA » « SEMI var(I%) SEMI » : « SEMI ELEMENT var(K$) ( 1 ) [] SEMI » « SEMI ELEMENT var(G$) ( var(I%) ) [] SEMI » « SEMI EOS
0x132f…1361 0990 PRINT 5# SEMI USING var(D$) COMMA » « SEMI var(I%) SEMI » : « SEMI ELEMENT var(K$) ( 1 ) [] SEMI » « SEMI ELEMENT var(G$) ( var(I%) ) [] SEMI » « SEMI EOS
0x1361…1367 1000 195f01f103f3
0x1367…1373 1010 INPUT 2# SEMI ELEMENT var(G') ( var(J%) var(I%) ) [] EOS
0x1373…1389 1020 PRINT ELEMENT var(K$) ( var(J%) 1 PLUS ) [] SEMI USING var(D1$) COMMA ELEMENT var(G') ( var(J%) var(I%) ) [] SEMI EOS
0x1389…13a2 1030 PRINT 5# SEMI ELEMENT var(K$) ( var(J%) 1 PLUS ) [] SEMI USING var(D1$) COMMA ELEMENT var(G') ( var(J%) var(I%) ) [] SEMI EOS
0x13a2…13a5 1040 1a5ff3
0x13a5…13a8 1050 1a64f3
0x13a8…13ae 1060 INPUT 2# SEMI var(G1%) EOS
0x13ae…13b8 1070 IF var(G1%) var(G0%) > COMMA 27 var(G1%) COMMA var(G0%) EOS
0x13b8…13bb 1090 GOSUB → 8064
0x13bb…13e6 1110 LET var(X$) COMMA »Antall kjente punkt som skal brukes =« EOS
0x13e6…13f1 1112 PRINT = ( 19 ) → b5f241f266f3
0x13f1…13ff 1120 PRINT 5# SEMI = ( 19 ) → b5f241f266f3
0x13ff…1402 1130 1402f3
0x1402…1412 1140 1603f2700a504152414d2e44415441f3
0x1412…1418 1150 INPUT 3# SEMI var(F0) EOS
0x1418…141e 1160 INPUT 3# SEMI var(M0) EOS
0x141e…1421 1180 1403f3
0x1421…1426 1190 LET var(M5) COMMA 0 EOS
0x1426…1428 1195 PRINT EOS
0x1428…1454 1200 PRINT = ( 19 ) → b5f27020416b73656f7269656e746572696e67732d66616b746f7220202e2e2e20203d20f267f3
0x1454…1480 1210 PRINT = ( 19 ) → b5f270204d616c6573746f6b6b74616c6c20202e2e2e2e2e2e2e2e2e2e2e2e2e20203d20f268f3
0x1480…14b2 1220 PRINT = ( 19 ) → b5f270204d616c6573746f6b6b74616c6c2069205a20202e2e2e2e2e2e2e2e2e20203d20f268f270012ff24ef3
0x14b2…14b4 1240 PRINT EOS
0x14b4…14b6 1250 PRINT EOS
0x14b6…14b8 1260 PRINT EOS
0x14b8…1501 1270 LET var(X$) COMMA » ***********************************************************« EOS
0x1501…1504 1272 PRINT var(X$) EOS
0x1504…154b 1280 PRINT » *** TREDIMENSJONAL ORTOGONAL TRANSFORMASJON STARTER ***« EOS
0x154b…154e 1290 PRINT var(X$) EOS
0x154e…1550 1300 PRINT EOS
0x1550…1552 1310 PRINT EOS
0x1552…1554 1320 PRINT EOS
0x1554…155a 1350 196401f165f3
0x155a…1564 1360 LET ELEMENT var(I0%') ( var(I%) ) [] COMMA 0 EOS
0x1564…156a 1370 195f01f163f3
0x156a…157e 1380 IF ELEMENT var(M$) ( var(J%) ) [] ELEMENT var(G$) ( var(I%) ) [] <> COMMA 0 16 20
0x157e…159a 1390 LET ELEMENT var(I0%') ( var(I%) ) [] COMMA var(J%) COMMA ELEMENT var(I3%') ( var(J%) ) [] COMMA 0 COMMA var(I8%) COMMA var(I8%) 1 SUB2 EOS
0x159a…159d 1400 GOTO var(P1) 21
0x159d…15a0 1410 1a5ff3
0x15a0…15a7 1430 PRINT = ( 7 ) → aff3
0x15a7…15ee 1440 PRINT » *** Kjentpunkt nr. : « SEMI ELEMENT var(G$) ( var(I%) ) [] SEMI »- ikke observert ***« EOS
0x15ee…15f1 1550 1a64f3
0x15f1…15f3 1560 PRINT EOS
0x15f3…15f5 1570 PRINT EOS
0x15f5…161d 1800 REM STARTS COMPUTING PROVISIONAL VALUES
0x161d…1623 1830 196401f166f3
0x1623…162d 1850 LET var(K%) COMMA ELEMENT var(I0%') ( var(I%) ) [] EOS
0x162d…1635 1855 IF var(K%) 0 EQ COMMA 0 var(S5)
0x1635…1665 1860 IF = ( ELEMENT var(G') ( 1 var(I%) ) [] ) ?ABS 1e-10 ?< = ( ELEMENT var(G') ( 2 var(I%) ) [] ) ?ABS 1e-10 ?< OR COMMA 0 var(S5)
0x1665…16a8 1870 LET ELEMENT var(S') ( 1 ) [] COMMA ELEMENT var(S') ( 1 ) [] 1 PLUS COMMA ELEMENT var(S') ( 2 ) [] COMMA ELEMENT var(S') ( 2 ) [] ELEMENT var(M') ( 1 var(K%) ) [] PLUS COMMA ELEMENT var(S') ( 3 ) [] COMMA ELEMENT var(S') ( 3 ) [] ELEMENT var(M') ( 2 var(K%) ) [] PLUS EOS
0x16a8…16fd 1880 LET ELEMENT var(S') ( 4 ) [] COMMA ELEMENT var(S') ( 4 ) [] ELEMENT var(G') ( 1 var(I%) ) [] PLUS COMMA ELEMENT var(S') ( 5 ) [] COMMA ELEMENT var(S') ( 5 ) [] ELEMENT var(G') ( 2 var(I%) ) [] PLUS COMMA ELEMENT var(S') ( 6 ) [] COMMA ELEMENT var(S') ( 6 ) [] ELEMENT var(M') ( 1 var(K%) ) [] 2 POW PLUS ELEMENT var(M') ( 2 var(K%) ) [] 2 POW PLUS EOS
0x16fd…172e 1890 LET ELEMENT var(S') ( 7 ) [] COMMA ELEMENT var(S') ( 7 ) [] ELEMENT var(M') ( 1 var(K%) ) [] ELEMENT var(G') ( 1 var(I%) ) [] MULT PLUS ELEMENT var(M') ( 2 var(K%) ) [] ELEMENT var(G') ( 2 var(I%) ) [] MULT PLUS EOS
0x172e…175f 1900 LET ELEMENT var(S') ( 8 ) [] COMMA ELEMENT var(S') ( 8 ) [] ELEMENT var(M') ( 1 var(K%) ) [] ELEMENT var(G') ( 2 var(I%) ) [] MULT PLUS ELEMENT var(M') ( 2 var(K%) ) [] ELEMENT var(G') ( 1 var(I%) ) [] MULT SUB2 EOS
0x175f…1790 1920 LET ELEMENT var(S') ( 9 ) [] COMMA ELEMENT var(S') ( 9 ) [] ELEMENT var(M') ( 1 var(K%) ) [] ELEMENT var(G') ( 1 var(I%) ) [] MULT PLUS ELEMENT var(M') ( 2 var(K%) ) [] ELEMENT var(G') ( 2 var(I%) ) [] MULT SUB2 EOS
0x1790…17c1 1930 LET ELEMENT var(S') ( 10 ) [] COMMA ELEMENT var(S') ( 10 ) [] ELEMENT var(M') ( 1 var(K%) ) [] ELEMENT var(G') ( 2 var(I%) ) [] MULT PLUS ELEMENT var(M') ( 2 var(K%) ) [] ELEMENT var(G') ( 1 var(I%) ) [] MULT PLUS EOS
0x17c1…17c4 1940 1a64f3
0x17c4…17ee 1950 LET var(C) COMMA ELEMENT var(S') ( 6 ) [] ( ELEMENT var(S') ( 2 ) [] 2 POW ELEMENT var(S') ( 3 ) [] 2 POW PLUS ) ELEMENT var(S') ( 1 ) [] DIV SUB2 EOS
0x17ee…1828 1960 LET var(A) COMMA ( ELEMENT var(S') ( 7 ) [] ( ELEMENT var(S') ( 2 ) [] ELEMENT var(S') ( 4 ) [] MULT ELEMENT var(S') ( 3 ) [] ELEMENT var(S') ( 5 ) [] MULT PLUS ) ELEMENT var(S') ( 1 ) [] DIV SUB2 ) var(C) DIV EOS
0x1828…1862 1970 LET var(B) COMMA ( ELEMENT var(S') ( 8 ) [] ( ELEMENT var(S') ( 2 ) [] ELEMENT var(S') ( 5 ) [] MULT ELEMENT var(S') ( 3 ) [] ELEMENT var(S') ( 4 ) [] MULT SUB2 ) ELEMENT var(S') ( 1 ) [] DIV SUB2 ) var(C) DIV EOS
0x1862…1890 1990 LET ELEMENT var(T0') ( 1 ) [] COMMA ( ELEMENT var(S') ( 4 ) [] var(A) ELEMENT var(S') ( 2 ) [] MULT SUB2 var(B) ELEMENT var(S') ( 3 ) [] MULT PLUS ) ELEMENT var(S') ( 1 ) [] DIV EOS
0x1890…18be 2000 LET ELEMENT var(T0') ( 2 ) [] COMMA ( ELEMENT var(S') ( 5 ) [] var(B) ELEMENT var(S') ( 2 ) [] MULT SUB2 var(A) ELEMENT var(S') ( 3 ) [] MULT SUB2 ) ELEMENT var(S') ( 1 ) [] DIV EOS
0x18be…18d5 2100 REM IF F0<>0 THEN 2200
0x18d5…18ea 2102 REM AXIS ORIENTATION
0x18ea…1925 2104 LET var(A2) COMMA ( ELEMENT var(S') ( 9 ) [] ( ELEMENT var(S') ( 2 ) [] ELEMENT var(S') ( 4 ) [] MULT ELEMENT var(S') ( 3 ) [] ELEMENT var(S') ( 5 ) [] MULT SUB2 ) ELEMENT var(S') ( 1 ) [] DIV SUB2 ) var(C) DIV EOS
0x1925…1960 2105 LET var(B2) COMMA ( ELEMENT var(S') ( 10 ) [] ( ELEMENT var(S') ( 2 ) [] ELEMENT var(S') ( 5 ) [] MULT ELEMENT var(S') ( 3 ) [] ELEMENT var(S') ( 4 ) [] MULT PLUS ) ELEMENT var(S') ( 1 ) [] DIV SUB2 ) var(C) DIV EOS
0x1960…198c 2106 LET var(T1) COMMA ( ELEMENT var(S') ( 4 ) [] var(A2) ELEMENT var(S') ( 2 ) [] MULT SUB2 var(B2) ELEMENT var(S') ( 3 ) [] MULT SUB2 ) ELEMENT var(S') ( 1 ) [] DIV EOS
0x198c…19b8 2107 LET var(T2) COMMA ( ELEMENT var(S') ( 5 ) [] var(B2) ELEMENT var(S') ( 2 ) [] MULT SUB2 var(A2) ELEMENT var(S') ( 3 ) [] MULT PLUS ) ELEMENT var(S') ( 1 ) [] DIV EOS
0x19b8…19cd 2109 LET ELEMENT var(S') ( 1 ) [] COMMA 0 COMMA ELEMENT var(S') ( 2 ) [] COMMA 0 EOS
0x19cd…19d3 2110 196401f166f3
0x19d3…19dd 2115 LET var(K%) COMMA ELEMENT var(I0%') ( var(I%) ) [] EOS
0x19dd…19e5 2120 IF var(K%) 0 EQ COMMA 0 var(FNT) 33
0x19e5…1a15 2130 IF = ( ELEMENT var(G') ( 1 var(I%) ) [] ) ?ABS 1e-10 ?< = ( ELEMENT var(G') ( 2 var(I%) ) [] ) ?ABS 1e-10 ?< OR COMMA 0 var(FNT) 33
0x1a15…1a4d 2140 LET ELEMENT var(S') ( 1 ) [] COMMA ELEMENT var(S') ( 1 ) [] ( ELEMENT var(G') ( 1 var(I%) ) [] ELEMENT var(T0') ( 1 ) [] SUB2 var(A) ELEMENT var(M') ( 1 var(K%) ) [] MULT SUB2 var(B) ELEMENT var(M') ( 2 var(K%) ) [] MULT PLUS ) 2 POW PLUS EOS
0x1a4d…1a85 2145 LET ELEMENT var(S') ( 1 ) [] COMMA ELEMENT var(S') ( 1 ) [] ( ELEMENT var(G') ( 2 var(I%) ) [] ELEMENT var(T0') ( 2 ) [] SUB2 var(B) ELEMENT var(M') ( 1 var(K%) ) [] MULT SUB2 var(A) ELEMENT var(M') ( 2 var(K%) ) [] MULT SUB2 ) 2 POW PLUS EOS
0x1a85…1abb 2150 LET ELEMENT var(S') ( 2 ) [] COMMA ELEMENT var(S') ( 2 ) [] ( ELEMENT var(G') ( 1 var(I%) ) [] var(T1) SUB2 var(A2) ELEMENT var(M') ( 1 var(K%) ) [] MULT SUB2 var(B2) ELEMENT var(M') ( 2 var(K%) ) [] MULT SUB2 ) 2 POW PLUS EOS
0x1abb…1af1 2155 LET ELEMENT var(S') ( 2 ) [] COMMA ELEMENT var(S') ( 2 ) [] ( ELEMENT var(G') ( 2 var(I%) ) [] var(T2) SUB2 var(B2) ELEMENT var(M') ( 1 var(K%) ) [] MULT SUB2 var(A2) ELEMENT var(M') ( 2 var(K%) ) [] MULT PLUS ) 2 POW PLUS EOS
0x1af1…1af4 2160 1a64f3
0x1af4…1b0a 2170 IF ELEMENT var(S') ( 1 ) [] ELEMENT var(S') ( 2 ) [] ?< COMMA 27 var(F0) COMMA 1 EOS
0x1b0a…1b36 2180 ELSE 27 var(F0) COMMA -1 COMMA var(A) COMMA var(A2) COMMA var(B) COMMA var(B2) COMMA ELEMENT var(T0') ( 1 ) [] COMMA var(T1) COMMA ELEMENT var(T0') ( 2 ) [] COMMA var(T2) EOS
0x1b36…1b46 2190 LET var(S1) COMMA = ( var(A) 2 POW var(B) 2 POW PLUS ) SQR EOS
0x1b46…1b50 2200 LET var(A) COMMA = ( var(B) var(A) ) var(FNT) EOS
0x1b50…1b56 2210 196401f102f3
0x1b56…1b6d 2220 LET ELEMENT var(R1') ( var(I%) var(I%) ) [] COMMA = ( var(A) ) → a867736401e374e6e4f3
0x1b6d…1b90 2230 LET ELEMENT var(R1') ( var(I%) 3 var(I%) SUB2 ) [] COMMA = ( var(A) ) → a9736e81000000000000817464e6e46764e6e4f3
0x1b90…1b93 2240 1a64f3
0x1b93…1b9e 2250 LET ELEMENT var(R1') ( 3 3 ) [] COMMA 1 EOS
0x1b9e…1bac 2300 REM LEVELLING
0x1bac…1bb5 2310 DIM ELEMENT var(S') ( 11 ) [] EOS
0x1bb5…1bbb 2320 196401f166f3
0x1bbb…1bc5 2340 LET var(K%) COMMA ELEMENT var(I0%') ( var(I%) ) [] EOS
0x1bc5…1be3 2360 IF var(K%) 0 EQ = ( ELEMENT var(G') ( 3 var(I%) ) [] ) ?ABS 1e-10 ?< OR COMMA 0 var(Y1)
0x1be3…1c11 2370 LET ELEMENT var(X') ( 1 ) [] COMMA ELEMENT var(M') ( 1 var(K%) ) [] COMMA ELEMENT var(X') ( 2 ) [] COMMA ELEMENT var(M') ( 2 var(K%) ) [] COMMA ELEMENT var(X') ( 3 ) [] COMMA ELEMENT var(M') ( 3 var(K%) ) [] EOS
0x1c11…1c14 2400 GOSUB → 8063
0x1c14…1c6e 2410 LET ELEMENT var(S') ( 1 ) [] COMMA ELEMENT var(S') ( 1 ) [] 1 PLUS COMMA ELEMENT var(S') ( 2 ) [] COMMA ELEMENT var(S') ( 2 ) [] ELEMENT var(X') ( 1 ) [] PLUS COMMA ELEMENT var(S') ( 3 ) [] COMMA ELEMENT var(S') ( 3 ) [] ELEMENT var(X') ( 2 ) [] PLUS COMMA ELEMENT var(S') ( 4 ) [] COMMA ELEMENT var(S') ( 4 ) [] ELEMENT var(X') ( 1 ) [] 2 POW PLUS EOS
0x1c6e…1cc5 2420 LET ELEMENT var(S') ( 5 ) [] COMMA ELEMENT var(S') ( 5 ) [] ELEMENT var(X') ( 2 ) [] 2 POW PLUS COMMA ELEMENT var(S') ( 6 ) [] COMMA ELEMENT var(S') ( 6 ) [] ELEMENT var(X') ( 1 ) [] ELEMENT var(X') ( 2 ) [] MULT PLUS COMMA ELEMENT var(S') ( 7 ) [] COMMA ELEMENT var(S') ( 7 ) [] ELEMENT var(X') ( 3 ) [] PLUS ELEMENT var(G') ( 3 var(I%) ) [] SUB2 EOS
0x1cc5…1d16 2430 LET ELEMENT var(S') ( 8 ) [] COMMA ELEMENT var(S') ( 8 ) [] ( ELEMENT var(X') ( 3 ) [] ELEMENT var(G') ( 3 var(I%) ) [] SUB2 ) ELEMENT var(X') ( 1 ) [] MULT PLUS COMMA ELEMENT var(S') ( 9 ) [] COMMA ELEMENT var(S') ( 9 ) [] ( ELEMENT var(X') ( 3 ) [] ELEMENT var(G') ( 3 var(I%) ) [] SUB2 ) ELEMENT var(X') ( 2 ) [] MULT PLUS EOS
0x1d16…1d19 2440 1a64f3
0x1d19…1d85 2450 LET var(C) COMMA ( ELEMENT var(S') ( 4 ) [] ELEMENT var(S') ( 2 ) [] ELEMENT var(S') ( 2 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) ( ELEMENT var(S') ( 5 ) [] ELEMENT var(S') ( 3 ) [] ELEMENT var(S') ( 3 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) MULT ( ELEMENT var(S') ( 6 ) [] ELEMENT var(S') ( 2 ) [] ELEMENT var(S') ( 3 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) 2 POW SUB2 EOS
0x1d85…1dcd 2460 LET var(A) COMMA ( ELEMENT var(S') ( 9 ) [] ELEMENT var(S') ( 7 ) [] ELEMENT var(S') ( 3 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) SUB1 ( ELEMENT var(S') ( 4 ) [] ELEMENT var(S') ( 2 ) [] ELEMENT var(S') ( 2 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) MULT EOS
0x1dcd…1e1d 2465 LET var(A) COMMA ( var(A) ( ELEMENT var(S') ( 8 ) [] ELEMENT var(S') ( 2 ) [] ELEMENT var(S') ( 7 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) ( ELEMENT var(S') ( 6 ) [] ELEMENT var(S') ( 2 ) [] ELEMENT var(S') ( 3 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) MULT PLUS ) 2 DIV var(C) DIV EOS
0x1e1d…1e64 2470 LET var(B) COMMA ( ELEMENT var(S') ( 8 ) [] ELEMENT var(S') ( 7 ) [] ELEMENT var(S') ( 2 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) ( ELEMENT var(S') ( 5 ) [] ELEMENT var(S') ( 3 ) [] ELEMENT var(S') ( 3 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) MULT EOS
0x1e64…1eb4 2475 LET var(B) COMMA ( var(B) ( ELEMENT var(S') ( 9 ) [] ELEMENT var(S') ( 3 ) [] ELEMENT var(S') ( 7 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) ( ELEMENT var(S') ( 6 ) [] ELEMENT var(S') ( 2 ) [] ELEMENT var(S') ( 3 ) [] MULT ELEMENT var(S') ( 1 ) [] DIV SUB2 ) MULT SUB2 ) 2 DIV var(C) DIV EOS
0x1eb4…1ee7 2480 LET ELEMENT var(T0') ( 3 ) [] COMMA ( ELEMENT var(S') ( 7 ) [] ELEMENT var(S') ( 2 ) [] 2 MULT var(B) MULT SUB2 ELEMENT var(S') ( 3 ) [] 2 MULT var(A) MULT PLUS ) SUB1 ELEMENT var(S') ( 1 ) [] DIV EOS
0x1ee7…1eed 2490 LET var(C) COMMA 0 EOS
0x1eed…1ef0 2500 GOSUB »\x1b@
\xf1\x00\xf3\x0bp\x12 ITERATION STARTS
rTs\x08\x08t\x9f\xf3\x1b@
\xf1@
«soh»\xe2\xf1@\x11\xf1\x00\xf1@\x19\xf1\x00\xf3«si»qs«si»t\xb5\xf2p\x1e=============== ITERASJON NR \xf2@
«
0x1ef0…1ef6 2700 LET var(N9%) COMMA 0 EOS
0x1ef6…1f0b 2710 REM ITERATION STARTS
0x1f0b…1f14 2720 DIM ELEMENT var(N') ( 8 8 ) [] EOS
0x1f14…1f27 2730 LET var(N9%) COMMA var(N9%) 1 PLUS COMMA var(S0) COMMA 0 COMMA var(S5) COMMA 0 EOS
0x1f27…1f66 2740 PRINT = ( 15 ) → b5f2701e3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d20204954455241534a4f4e204e5220f2400af2701120203d3d3d3d3d3d3d3d3d3d3d3d3d3d3df3
0x1f66…1f6c 2760 196401f166f3
0x1f6c…1f77 2770 LET var(N1%) COMMA ELEMENT var(I0%') ( var(I%) ) [] EOS
0x1f77…1f80 2780 IF var(N1%) 0 EQ COMMA 0 32 48
0x1f80…1fb1 2790 LET ELEMENT var(X') ( 1 ) [] COMMA ELEMENT var(M') ( 1 var(N1%) ) [] COMMA ELEMENT var(X') ( 2 ) [] COMMA ELEMENT var(M') ( 2 var(N1%) ) [] COMMA ELEMENT var(X') ( 3 ) [] COMMA ELEMENT var(M') ( 3 var(N1%) ) [] EOS
0x1fb1…1fb4 2810 GOSUB → 8063
0x1fb4…1fba 2820 196b01f103f3
0x1fba…1fd4 2840 IF = ( ELEMENT var(G') ( var(K%) var(I%) ) [] ) ?ABS 1e-10 ?< COMMA 0 16 48
0x1fd4…2003 2850 LET var(I3%) COMMA 2 = ( var(K%) 2 DIV 0.2 PLUS ) → a1e3f14036f10471736b02e56e0700000000000080e274a1e3f3
0x2003…201b 2890 LET ELEMENT var(F') ( var(K%) ) [] COMMA 1 COMMA ELEMENT var(F') ( 4 ) [] COMMA ELEMENT var(X') ( var(K%) ) [] EOS
0x201b…2030 2900 LET ELEMENT var(F') ( var(I3%) ) [] COMMA 0 COMMA ELEMENT var(F') ( var(J3%) ) [] COMMA 0 EOS
0x2030…205b 2910 LET ELEMENT var(F') ( 4 var(I3%) PLUS ) [] COMMA -2 ELEMENT var(X') ( var(J3%) ) [] MULT ( -1 ) var(K%) POW MULT EOS
0x205b…207e 2920 LET ELEMENT var(F') ( 4 var(J3%) PLUS ) [] COMMA 2 ELEMENT var(X') ( var(I3%) ) [] MULT ( -1 ) var(K%) POW MULT EOS
0x207e…208a 2930 LET ELEMENT var(F') ( var(K%) 4 PLUS ) [] COMMA 0 EOS
0x208a…20a8 2940 LET ELEMENT var(F') ( 8 ) [] COMMA ELEMENT var(T0') ( var(K%) ) [] ELEMENT var(X') ( var(K%) ) [] PLUS ELEMENT var(G') ( var(K%) var(I%) ) [] SUB2 EOS
0x20a8…20ab 2990 GOSUB → 9056
0x20ab…20b4 3000 LET var(S0) COMMA var(S0) 1 PLUS EOS
0x20b4…20b7 3010 1a6bf3
0x20b7…20ba 3020 1a64f3
0x20ba…20bd 3050 GOSUB »\x19d«soh»\xf1\x03\xf3\x1brHsdt\x9f\xf1rHsdt\x9frTs\x08dt\x9f\xe2\xf3\x1ad\xf3\x1b@\x05\xf1@\x05s«soh»rTs\x08\x04t\x9f\xe2t\xe4\xf3\x1ba\xf1rTs\x08\x05t\x9f\xf1b\xf1rTs\x08\x06t\x9f\xf1@\x13\xf1rTs\x08\x07t\x9f\xf3«soh»pa\x03«
0x20bd…20c3 3060 196401f103f3
0x20c3…20da 3070 LET ELEMENT var(T0') ( var(I%) ) [] COMMA ELEMENT var(T0') ( var(I%) ) [] ELEMENT var(N') ( 8 var(I%) ) [] PLUS EOS
0x20da…20dd 3080 1a64f3
0x20dd…20f0 3090 LET var(S1) COMMA var(S1) ( 1 ELEMENT var(N') ( 8 4 ) [] PLUS ) MULT EOS
0x20f0…2110 3100 LET var(A) COMMA ELEMENT var(N') ( 8 5 ) [] COMMA var(B) COMMA ELEMENT var(N') ( 8 6 ) [] COMMA var(C) COMMA ELEMENT var(N') ( 8 7 ) [] EOS
0x2110…2113 3110 GOSUB »\x03@
\x05\xea\xf1\x00\x801\x03qsat\xa2n\x05\x00\x00\x00\x00\x00\x00{\xea\xf1\x00\x10'\x03qsbt\xa2n\x05\x00\x00\x00\x00\x00\x00{\xea\xf1\x00\x10'\x03qs@\x13t\xa2n\x05\x00\x00\x00\x00\x00\x00{\xea\xf1\x00\x10'\x0bp TRANSFORMATION ELEMENTS«
0x2113…211c 3140 IF var(N9%) 5 > COMMA 0 → 8031
0x211c…2130 3150 IF = ( var(A) ) ?ABS 5e-06 > COMMA 0 16 39
0x2130…2144 3160 IF = ( var(B) ) ?ABS 5e-06 > COMMA 0 16 39
0x2144…2159 3170 IF = ( var(C) ) ?ABS 5e-06 > COMMA 0 16 39
0x2159…217c 3180 REM TRANSFORMATION ELEMENTS SOLVED
0x217c…217f 3181 GOSUB 32 var(I0%')
0x217f…219f 3182 LET var(A) COMMA = ( ELEMENT var(R1') ( 1 3 ) [] ELEMENT var(R1') ( 3 3 ) [] ) var(FNT) 63.662 MULT EOS
0x219f…21c8 3200 LET var(B) COMMA = ( ELEMENT var(R1') ( 2 3 ) [] SUB1 = ( 1 ELEMENT var(R1') ( 2 3 ) [] 2 POW SUB2 ) SQR ) var(FNT) 63.662 MULT EOS
0x21c8…21eb 3230 LET var(C) COMMA = ( ELEMENT var(R1') ( 2 1 ) [] var(F0) ELEMENT var(R1') ( 2 2 ) [] MULT ) var(FNT) 63.662 MULT EOS
0x21eb…2207 3260 IF var(M0) 1e-10 ?< COMMA 27 var(M0) COMMA 1 EOS 32 var(F') var(F7$) var(N') 32 var(F') var(D7$) var(X$) var(X1') var(F7$)
0x2207…2210 3270 LET var(S2) COMMA var(S1) var(M0) MULT EOS
0x2210…2213 3410 GOSUB → 8064
0x2213…2240 3430 LET var(X$) COMMA »*** TRANSFORMASJONS-ELEMENTER ***« EOS
0x2240…2249 3432 PRINT = ( 18 ) → b5f241f3
0x2249…2255 3440 PRINT 5# SEMI = ( 18 ) → b5f241f3
0x2255…2257 3450 PRINT EOS
0x2257…225f 3460 PRINT 5# SEMI » « EOS
0x225f…2298 3470 LET ELEMENT var(X$) ( 1 46 ) [] COMMA » CX CY CZ M.STOKK« EOS
0x2298…22c6 3490 LET ELEMENT var(X$) ( 47 %78 ) [] COMMA » PHI OMEGA KAPPA LOOPS« EOS
0x22c6…22cc 3492 PRINT 5# SEMI var(X$) EOS
0x22cc…22cf 3500 PRINT var(X$) EOS
0x22cf…2303 3510 LET ELEMENT var(T$) ( 1 40 ) [] COMMA »########.DD ########.DD ########.DD ####« EOS
0x2303…2336 3520 LET ELEMENT var(T$) ( 41 %77 ) [] COMMA »##.DD ###.#### ###.#### ###.#### ##« EOS
0x2336…235c 3540 PRINT USING var(T$) COMMA ELEMENT var(T0') ( 1 ) [] COMMA ELEMENT var(T0') ( 2 ) [] COMMA ELEMENT var(T0') ( 3 ) [] COMMA var(S2) COMMA var(A) COMMA var(B) COMMA var(C) COMMA var(N9%) EOS
0x235c…2385 3550 PRINT 5# SEMI USING var(T$) COMMA ELEMENT var(T0') ( 1 ) [] COMMA ELEMENT var(T0') ( 2 ) [] COMMA ELEMENT var(T0') ( 3 ) [] COMMA var(S2) COMMA var(A) COMMA var(B) COMMA var(C) COMMA var(N9%) EOS
0x2385…2392 3580 IF ( var(S0) 7 SUB2 ) 0 → e9f1001037
0x2392…23a9 3590 LET var(S5) COMMA = ( ELEMENT var(N') ( 8 8 ) [] ( var(S0) 7 SUB2 ) DIV ) SQR EOS
0x23a9…23d5 3760 REM TRANSFORMATION, AND COMPUTING RESIDUALS
0x23d5…23e0 3765 SYSTEM »WARNOFF« EOS
0x23e0…23e7 3770 19401b01f103f3
0x23e7…23ed 3790 LET var(J5%) COMMA 1 EOS
0x23ed…23fb 3800 IF var(I5%) 2 EQ COMMA 27 var(J5%) COMMA var(G1%) 1 PLUS EOS
0x23fb…2401 3820 LET var(K5%) COMMA var(G1%) EOS
0x2401…240d 3830 IF var(I5%) 2 EQ COMMA 27 var(K5%) COMMA var(G0%) EOS
0x240d…2419 3840 IF var(I5%) 3 EQ COMMA 27 var(K5%) COMMA var(N0%) EOS
0x2419…242f 3845 IF var(J5%) var(K5%) > ( var(I5%) 3 EQ var(I8%) 0 EQ AND ) OR COMMA 0 0 var(N')
0x242f…2435 3850 196401f103f3
0x2435…2449 3860 LET ELEMENT var(V1') ( var(I%) ) [] COMMA 0 COMMA ELEMENT var(T7') ( var(I%) ) [] COMMA 0 EOS
0x2449…244c 3890 1a64f3
0x244c…2464 3970 REM ----- HEADING -----
0x2464…2496 3980 LET var(T$) COMMA » NR X Y Z VX« EOS
0x2496…24c4 4000 LET ELEMENT var(T$) ( 45 %76 ) [] COMMA » VY VZ SX SY SZ« EOS
0x24c4…24d0 4020 ON var(I5%) COMMA 0 48 var(A0x60) var(A0x80) var(X$) EOS
0x24d0…250c 4030 LET var(X$) COMMA » KJENTE PUNKT BRUKT UNDER TRANSFORMASJONEN« EOS
0x250c…250f 4040 GOTO 48 var(Q4$)
0x250f…2550 4060 LET var(X$) COMMA » KJENTE PUNKT IKKE BRUKT UNDER TRANSFORMASJONEN« EOS
0x2550…2553 4140 GOTO 48 var(Q4$)
0x2553…2590 4180 LET var(X$) COMMA » OBSERVERTE, IKKE KJENTE PUNKT TRANSFORMERT« EOS
0x2590…259d 4225 LET ELEMENT var(T$) ( 42 60 ) [] COMMA » « EOS
0x259d…25a3 4230 LET var(P7%) COMMA 4 EOS
0x25a3…25a6 4235 GOSUB → 8064
0x25a6…25a9 4240 PRINT var(X$) EOS
0x25a9…25af 4244 PRINT 5# SEMI var(X$) EOS
0x25af…25b1 4246 PRINT EOS
0x25b1…25b9 4248 PRINT 5# SEMI » « EOS
0x25b9…25bc 4250 PRINT var(T$) EOS
0x25bc…25c2 4255 PRINT 5# SEMI var(T$) EOS
0x25c2…25ed 4257 LET ELEMENT var(T$) ( 1 31 ) [] COMMA » #######D.DD ######D.DD ###D.DD« EOS
0x25ed…2622 4258 LET ELEMENT var(T$) ( 32 %70 ) [] COMMA » ##D.DD ##D.DD ##D.DD #D.DD #D.DD #D.DD« EOS
0x2622…263d 4259 LET var(X$) COMMA » « EOS
0x263d…2649 4260 IF var(I5%) 3 ?< COMMA 27 var(X$) COMMA »« EOS
0x2649…2662 4262 LET var(R5) COMMA var(S5) COMMA var(S2) COMMA var(S5) COMMA var(G9%) COMMA 1 COMMA var(M5) COMMA var(M5) var(S1) MULT EOS
0x2662…2675 4265 IF var(M5) 1e-06 > COMMA 27 var(S2) COMMA var(M5) EOS
0x2675…268d 4268 IF var(M5) 1e-06 > var(I5%) 1 > AND COMMA 27 var(R5) COMMA var(M5) EOS
0x268d…26a1 4270 IF var(I5%) 1 EQ COMMA 27 var(G9%) COMMA -1 EOS
0x26a1…26be 4280 REM --- TRANSFORMATION ---
0x26be…26c6 4290 1964401df1401ef3
0x26c6…26d1 4295 LET var(N%) COMMA ELEMENT var(I0%') ( var(I%) ) [] EOS
0x26d1…26e3 4297 IF var(I5%) 3 EQ COMMA 27 var(N%) COMMA ELEMENT var(I3%') ( var(I%) ) [] EOS
0x26e3…26ec 4300 IF var(N%) 0 EQ COMMA 0 »\x19_«soh»\xf1\x03\xf3\x1brKs_t\x9f\xf1rWs_@!t\x9f\xf3\x1a_\xf3«soh»\x80c\x03@"\x00\xe7@\x15\x00\xe7\xed\xf1\x00%F\x1b@$\xf1rTs«soh»«soh»t\x9frTs\x04\x04t\x9frKs«soh»t\x9f\x02\xe6\xe4\xe2\x04rTs\x06\x06t\x9f\xe4r«
0x26ec…26f2 4310 195f01f103f3
0x26f2…2703 4320 LET ELEMENT var(X') ( var(J%) ) [] COMMA ELEMENT var(M') ( var(J%) var(N%) ) [] EOS
0x2703…2706 4340 1a5ff3
0x2706…2709 4360 GOSUB → 8063
0x2709…2717 4400 IF var(R5) 0 EQ var(S2) 0 EQ AND COMMA 0 37 var(T')
0x2717…275a 4440 LET var(Y1) COMMA ELEMENT var(N') ( 1 1 ) [] ELEMENT var(N') ( 4 4 ) [] ELEMENT var(X') ( 1 ) [] 2 POW MULT PLUS 4 ELEMENT var(N') ( 6 6 ) [] MULT ELEMENT var(X') ( 3 ) [] 2 POW MULT PLUS 4 ELEMENT var(N') ( 7 7 ) [] MULT ELEMENT var(X') ( 2 ) [] 2 POW MULT PLUS EOS
0x275a…27ab 4450 LET var(Y2) COMMA 0.5 ELEMENT var(N') ( 4 1 ) [] MULT ELEMENT var(X') ( 1 ) [] MULT ELEMENT var(N') ( 6 1 ) [] ELEMENT var(X') ( 3 ) [] MULT PLUS ELEMENT var(N') ( 7 1 ) [] ELEMENT var(X') ( 2 ) [] MULT SUB2 ELEMENT var(N') ( 6 4 ) [] ELEMENT var(X') ( 1 ) [] MULT ELEMENT var(X') ( 3 ) [] MULT PLUS EOS
0x27ab…27de 4460 LET var(Y3) COMMA ELEMENT var(N') ( 7 4 ) [] SUB1 ELEMENT var(X') ( 1 ) [] MULT ELEMENT var(X') ( 2 ) [] MULT 2 ELEMENT var(N') ( 7 6 ) [] MULT ELEMENT var(X') ( 2 ) [] MULT ELEMENT var(X') ( 3 ) [] MULT SUB2 EOS
0x27de…2808 4470 LET ELEMENT var(X2') ( 1 ) [] COMMA = ( var(R5) var(R5) MULT ( var(Y1) 4 ( var(Y2) var(Y3) PLUS ) MULT PLUS ) MULT var(G9%) MULT var(S2) 2 POW PLUS ) SQR EOS
0x2808…284b 4480 LET var(Y1) COMMA ELEMENT var(N') ( 2 2 ) [] ELEMENT var(N') ( 4 4 ) [] ELEMENT var(X') ( 2 ) [] 2 POW MULT PLUS 4 ELEMENT var(N') ( 5 5 ) [] MULT ELEMENT var(X') ( 3 ) [] 2 POW MULT PLUS 4 ELEMENT var(N') ( 7 7 ) [] MULT ELEMENT var(X') ( 1 ) [] 2 POW MULT PLUS EOS
0x284b…289c 4490 LET var(Y2) COMMA 0.5 ELEMENT var(N') ( 4 2 ) [] MULT ELEMENT var(X') ( 2 ) [] MULT ELEMENT var(N') ( 5 2 ) [] ELEMENT var(X') ( 3 ) [] MULT SUB2 ELEMENT var(N') ( 7 2 ) [] ELEMENT var(X') ( 1 ) [] MULT PLUS ELEMENT var(N') ( 5 4 ) [] ELEMENT var(X') ( 3 ) [] MULT ELEMENT var(X') ( 2 ) [] MULT SUB2 EOS
0x289c…28ce 4500 LET var(Y3) COMMA ELEMENT var(N') ( 7 4 ) [] ELEMENT var(X') ( 2 ) [] MULT ELEMENT var(X') ( 1 ) [] MULT 2 ELEMENT var(N') ( 7 5 ) [] MULT ELEMENT var(X') ( 1 ) [] MULT ELEMENT var(X') ( 3 ) [] MULT SUB2 EOS
0x28ce…28f8 4510 LET ELEMENT var(X2') ( 2 ) [] COMMA = ( var(R5) var(R5) MULT ( var(Y1) 4 ( var(Y2) var(Y3) PLUS ) MULT PLUS ) MULT var(G9%) MULT var(S2) 2 POW PLUS ) SQR EOS
0x28f8…293b 4520 LET var(Y1) COMMA ELEMENT var(N') ( 3 3 ) [] ELEMENT var(N') ( 4 4 ) [] ELEMENT var(X') ( 3 ) [] 2 POW MULT PLUS 4 ELEMENT var(N') ( 6 6 ) [] MULT ELEMENT var(X') ( 1 ) [] 2 POW MULT PLUS 4 ELEMENT var(N') ( 5 5 ) [] MULT ELEMENT var(X') ( 2 ) [] 2 POW MULT PLUS EOS
0x293b…298c 4530 LET var(Y2) COMMA 0.5 ELEMENT var(N') ( 4 3 ) [] MULT ELEMENT var(X') ( 3 ) [] MULT ELEMENT var(N') ( 6 3 ) [] ELEMENT var(X') ( 1 ) [] MULT SUB2 ELEMENT var(N') ( 5 3 ) [] ELEMENT var(X') ( 2 ) [] MULT PLUS ELEMENT var(N') ( 6 4 ) [] ELEMENT var(X') ( 1 ) [] MULT ELEMENT var(X') ( 3 ) [] MULT SUB2 EOS
0x298c…29be 4540 LET var(Y3) COMMA ELEMENT var(N') ( 5 4 ) [] ELEMENT var(X') ( 2 ) [] MULT ELEMENT var(X') ( 3 ) [] MULT 2 ELEMENT var(N') ( 6 5 ) [] MULT ELEMENT var(X') ( 1 ) [] MULT ELEMENT var(X') ( 2 ) [] MULT SUB2 EOS
0x29be…29e8 4550 LET ELEMENT var(X2') ( 3 ) [] COMMA = ( var(R5) var(R5) MULT ( var(Y1) 4 ( var(Y2) var(Y3) PLUS ) MULT PLUS ) MULT var(G9%) MULT var(S2) 2 POW PLUS ) SQR EOS
0x29e8…2a02 4625 REM ***** PRINTING STARTS
0x2a02…2a42 4633 PRINT ELEMENT var(M$) ( var(N%) ) [] SEMI USING ELEMENT var(T$) ( 1 31 ) [] COMMA ELEMENT var(X') ( 1 ) [] ELEMENT var(T0') ( 1 ) [] PLUS COMMA ELEMENT var(X') ( 2 ) [] ELEMENT var(T0') ( 2 ) [] PLUS COMMA ELEMENT var(X') ( 3 ) [] ELEMENT var(T0') ( 3 ) [] PLUS SEMI var(X$) SEMI EOS
0x2a42…2a85 4635 PRINT 5# SEMI ELEMENT var(M$) ( var(N%) ) [] SEMI USING ELEMENT var(T$) ( 1 31 ) [] COMMA ELEMENT var(X') ( 1 ) [] ELEMENT var(T0') ( 1 ) [] PLUS COMMA ELEMENT var(X') ( 2 ) [] ELEMENT var(T0') ( 2 ) [] PLUS COMMA ELEMENT var(X') ( 3 ) [] ELEMENT var(T0') ( 3 ) [] PLUS SEMI var(X$) SEMI EOS
0x2a85…2a8e 4640 IF var(I5%) 3 EQ COMMA 0 var(P1) var(R')
0x2a8e…2a94 4670 195f01f103f3
0x2a94…2aae 4680 IF = ( ELEMENT var(G') ( var(J%) var(I%) ) [] ) ?ABS 1e-10 ?< COMMA 0 48 var(T0')
0x2aae…2aed 4700 LET var(V) COMMA ELEMENT var(G') ( var(J%) var(I%) ) [] ELEMENT var(X') ( var(J%) ) [] SUB2 ELEMENT var(T0') ( var(J%) ) [] SUB2 COMMA ELEMENT var(T7') ( var(J%) ) [] COMMA ELEMENT var(T7') ( var(J%) ) [] 1 PLUS COMMA ELEMENT var(V1') ( var(J%) ) [] COMMA ELEMENT var(V1') ( var(J%) ) [] var(V) 2 POW PLUS EOS
0x2aed…2afb 4770 PRINT USING ELEMENT var(T$) ( 6 12 ) [] COMMA var(V) SEMI EOS
0x2afb…2b0c 4800 PRINT 5# SEMI USING ELEMENT var(T$) ( 6 12 ) [] COMMA var(V) SEMI EOS
0x2b0c…2b0f 4810 GOTO var(P1) var(T0')
0x2b0f…2b1b 4830 PRINT » « SEMI EOS
0x2b1b…2b2a 4840 PRINT 5# SEMI » « SEMI EOS
0x2b2a…2b2d 4850 1a5ff3
0x2b2d…2b3b 5150 IF var(R5) 0 EQ var(S2) 0 EQ AND COMMA 0 var(M0) var(R')
0x2b3b…2b64 5154 PRINT » « SEMI USING ELEMENT var(T$) ( 53 %70 ) [] COMMA ELEMENT var(X2') ( 1 ) [] COMMA ELEMENT var(X2') ( 2 ) [] COMMA ELEMENT var(X2') ( 3 ) [] SEMI EOS
0x2b64…2b90 5166 PRINT 5# SEMI » « SEMI USING ELEMENT var(T$) ( 53 %70 ) [] COMMA ELEMENT var(X2') ( 1 ) [] COMMA ELEMENT var(X2') ( 2 ) [] COMMA ELEMENT var(X2') ( 3 ) [] SEMI EOS
0x2b90…2b92 5168 PRINT EOS
0x2b92…2b9a 5169 PRINT 5# SEMI » « EOS
0x2b9a…2b9d 5170 1a64f3
0x2b9d…2ba6 5180 IF var(I5%) 3 EQ COMMA 0 0 var(N')
0x2ba6…2bbd 5190 LET var(T$) COMMA »####.DDD ####.DDD« EOS
0x2bbd…2bbf 5193 PRINT EOS
0x2bbf…2bc7 5195 PRINT 5# SEMI » « EOS
0x2bc7…2bcd 5200 196401f103f3
0x2bcd…2bde 5210 IF var(I%) 3 ?< COMMA 27 var(A) COMMA ELEMENT var(T7') ( var(I%) ) [] 2 SUB2 EOS
0x2bde…2bef 5220 IF var(I%) 3 EQ COMMA 27 var(A) COMMA ELEMENT var(T7') ( var(I%) ) [] 3 SUB2 EOS
0x2bef…2bff 5230 IF var(I5%) 2 EQ COMMA 27 var(A) COMMA ELEMENT var(T7') ( var(I%) ) [] EOS
0x2bff…2c07 5240 IF var(A) 1 ?< COMMA 0 »«si»p\x04 S\xf2r\sd«soh»\xe2t\x9f\xf2u^\xf1qsr@\x1fsdt\x9fa\xe5t\xa4\xf2\xf3«si»\xf4\x05\xf2p\x04 S\xf2r\sd«soh»\xe2t\x9f\xf2u^\xf1qsr@\x1fsdt\x9fa\xe5t\xa4\xf2\xf3\x1ad\xf3«si»\xf3«si»\xf4\x05\xf2«
0x2c07…2c2a 5250 PRINT » S« SEMI ELEMENT var(K$) ( var(I%) 1 PLUS ) [] SEMI USING var(T$) COMMA = ( ELEMENT var(V1') ( var(I%) ) [] var(A) DIV ) SQR SEMI EOS
0x2c2a…2c50 5260 PRINT 5# SEMI » S« SEMI ELEMENT var(K$) ( var(I%) 1 PLUS ) [] SEMI USING var(T$) COMMA = ( ELEMENT var(V1') ( var(I%) ) [] var(A) DIV ) SQR SEMI EOS
0x2c50…2c53 5270 1a64f3
0x2c53…2c55 5310 PRINT EOS
0x2c55…2c5d 5320 PRINT 5# SEMI » « EOS
0x2c5d…2c6f 5330 IF var(I5%) 2 EQ ( var(S0) 7 SUB2 ) 0 → e9eef1000054
0x2c6f…2c97 5340 LET var(A) COMMA = ( ( ELEMENT var(V1') ( 1 ) [] ELEMENT var(V1') ( 2 ) [] PLUS ELEMENT var(V1') ( 3 ) [] PLUS ) ( var(S0) 7 SUB2 ) DIV ) SQR EOS
0x2c97…2c99 5350 PRINT EOS
0x2c99…2ca1 5360 PRINT 5# SEMI » « EOS
0x2ca1…2cce 5370 LET var(X$) COMMA » MIDDELFEIL PA VEKTS-ENHETEN : « EOS
0x2cce…2cd9 5372 PRINT var(X$) SEMI USING var(T$) COMMA var(A) COMMA var(S5) EOS
0x2cd9…2ce7 5380 PRINT 5# SEMI var(X$) SEMI USING var(T$) COMMA var(A) COMMA var(S5) EOS
0x2ce7…2ceb 5400 1a401bf3
0x2ceb…2cfb 5460 1604f2700a5452414e532e44415441f3
0x2cfb…2d02 5470 19402a01f103f3
0x2d02…2d0e 5480 PRINT 4# SEMI ELEMENT var(T0') ( var(I9%) ) [] EOS
0x2d0e…2d12 5490 1a402af3
0x2d12…2d19 5500 19402a01f103f3
0x2d19…2d29 5510 PRINT 4# SEMI ELEMENT var(R1') ( var(I9%) 1 ) [] var(S1) MULT EOS
0x2d29…2d39 5520 PRINT 4# SEMI ELEMENT var(R1') ( var(I9%) 2 ) [] var(S1) MULT EOS
0x2d39…2d4b 5530 PRINT 4# SEMI ELEMENT var(R1') ( var(I9%) 3 ) [] var(S1) MULT var(Z1) DIV EOS
0x2d4b…2d4f 5540 1a402af3
0x2d4f…2d51 5541 PRINT EOS
0x2d51…2d5a 5542 DIM ELEMENT var(A$) ( 1 ) [] EOS
0x2d5a…2d98 5543 PRINT »TRANSFORMATION OK? J/N ELLER UDSKRIFT P] PRINTER (SKRIV P)« EOS
0x2d98…2d9c 5544 INPUT var(A$) EOS
0x2d9c…2da7 5545 IF var(A$) »J« EQ COMMA 0 var(V') var(Q1')
0x2da7…2db8 5546 IF var(A$) »N« EQ COMMA 24 »INDAT« EOS
0x2db8…2dc3 5547 IF var(A$) »P« EQ COMMA 0 → 9999
0x2dc3…2dc6 5548 2005f3
0x2dc6…2dc8 5550 14f3
0x2dc8…2dcb 5560 GOTO 48 var(G0%)
0x2dcb…2de6 5690 REM BUILD NORMAL EQUATIONS
0x2de6…2ded 5700 19402a01f108f3
0x2ded…2dfb 5705 IF ELEMENT var(F') ( var(I9%) ) [] 0 EQ COMMA 0 var(A0x57)
0x2dfb…2e03 5710 19402b402af108f3
0x2e03…2e28 5720 LET ELEMENT var(N') ( var(I9%) var(J9%) ) [] COMMA ELEMENT var(N') ( var(I9%) var(J9%) ) [] ELEMENT var(F') ( var(I9%) ) [] ELEMENT var(F') ( var(J9%) ) [] MULT PLUS EOS
0x2e28…2e2c 5730 1a402bf3
0x2e2c…2e30 5740 1a402af3
0x2e30…2e32 5750 RETURN EOS
0x2e32…2e4d 5770 REM SOLVE NORMAL EQUATIONS
0x2e4d…2e54 5800 19402c01f107f3
0x2e54…2e76 5810 LET var(T9) COMMA ELEMENT var(N') ( var(K9%) var(K9%) ) [] COMMA ELEMENT var(N') ( var(K9%) var(K9%) ) [] COMMA 1 COMMA var(M%) COMMA var(K9%) 1 PLUS EOS
0x2e76…2e7e 5820 19402a4028f108f3
0x2e7e…2e8f 5830 LET var(S9) COMMA ELEMENT var(N') ( var(K9%) var(I9%) ) [] var(T9) DIV EOS
0x2e8f…2e98 5835 IF var(S9) 0 EQ COMMA 0 → 8058
0x2e98…2e9f 5840 19402b01f108f3
0x2e9f…2eaf 5850 IF var(J9%) var(K9%) > var(J9%) var(I9%) ?< AND COMMA 0 »\x1brTs@*@+t\x9f\xf1rTs@*@+t\x9f@\x1crTs@,@+t\x9f\xe4\xe3\xf3\x1a@+\xf3\x1a@*\xf3\x1brTs@,@,t\x9f\xf1@-\xf3\x1a@,\xf3\x05\xf3\x0bp\x1f SOLVE FOR WEIGHT COEFF«
0x2eaf…2ed1 5860 LET ELEMENT var(N') ( var(I9%) var(J9%) ) [] COMMA ELEMENT var(N') ( var(I9%) var(J9%) ) [] var(S9) ELEMENT var(N') ( var(K9%) var(J9%) ) [] MULT SUB2 EOS
0x2ed1…2ed5 5870 1a402bf3
0x2ed5…2ed9 5880 1a402af3
0x2ed9…2ee7 5890 LET ELEMENT var(N') ( var(K9%) var(K9%) ) [] COMMA var(T9) EOS
0x2ee7…2eeb 5900 1a402cf3
0x2eeb…2eed 5910 RETURN EOS
0x2eed…2f0f 5915 REM SOLVE FOR WEIGHT COEFFISIENTS
0x2f0f…2f20 5920 19402a07f101f16e8100000000000081f3
0x2f20…2f3a 5930 LET var(T9) COMMA ELEMENT var(N') ( var(I9%) var(I9%) ) [] COMMA ELEMENT var(N') ( var(I9%) var(I9%) ) [] COMMA 1 EOS
0x2f3a…2f42 5940 19402c01f1402af3
0x2f42…2f50 5950 LET var(S9) COMMA ELEMENT var(N') ( var(I9%) var(K9%) ) [] EOS
0x2f50…2f59 5960 IF var(I9%) 7 EQ COMMA 0 0 var(FNT)
0x2f59…2f63 5970 19402b402a01e2f107f3
0x2f63…2f7e 5980 LET var(S9) COMMA var(S9) ELEMENT var(N') ( var(I9%) var(J9%) ) [] ELEMENT var(N') ( var(J9%) var(K9%) ) [] MULT SUB2 EOS
0x2f7e…2f82 5990 1a402bf3
0x2f82…2f93 6000 LET ELEMENT var(N') ( var(I9%) var(K9%) ) [] COMMA var(S9) var(T9) DIV EOS
0x2f93…2f97 6010 1a402cf3
0x2f97…2f9b 6020 1a402af3
0x2f9b…2f9d 6120 RETURN EOS
0x2f9d…2fb8 6170 REM UPDATE ROTATION MATRIX
0x2fb8…2fd0 6180 LET var(R0) COMMA 1 ( 1 var(A) var(A) MULT PLUS var(B) var(B) MULT PLUS var(C) var(C) MULT PLUS ) DIV EOS
0x2fd0…2fee 6190 LET ELEMENT var(R') ( 1 1 ) [] COMMA ( 1 var(A) var(A) MULT PLUS var(B) var(B) MULT SUB2 var(C) var(C) MULT SUB2 ) var(R0) MULT EOS
0x2fee…3005 6200 LET ELEMENT var(R') ( 1 2 ) [] COMMA 2 ( var(A) var(B) MULT var(C) SUB2 ) MULT var(R0) MULT EOS
0x3005…301c 6210 LET ELEMENT var(R') ( 1 3 ) [] COMMA 2 ( var(A) var(C) MULT var(B) PLUS ) MULT var(R0) MULT EOS
0x301c…3033 6220 LET ELEMENT var(R') ( 2 1 ) [] COMMA 2 ( var(A) var(B) MULT var(C) PLUS ) MULT var(R0) MULT EOS
0x3033…3051 6230 LET ELEMENT var(R') ( 2 2 ) [] COMMA ( 1 var(A) var(A) MULT SUB2 var(B) var(B) MULT PLUS var(C) var(C) MULT SUB2 ) var(R0) MULT EOS
0x3051…3068 6240 LET ELEMENT var(R') ( 2 3 ) [] COMMA 2 ( var(B) var(C) MULT var(A) SUB2 ) MULT var(R0) MULT EOS
0x3068…307f 6250 LET ELEMENT var(R') ( 3 1 ) [] COMMA 2 ( var(A) var(C) MULT var(B) SUB2 ) MULT var(R0) MULT EOS
0x307f…3096 6260 LET ELEMENT var(R') ( 3 2 ) [] COMMA 2 ( var(B) var(C) MULT var(A) PLUS ) MULT var(R0) MULT EOS
0x3096…30b4 6270 LET ELEMENT var(R') ( 3 3 ) [] COMMA ( 1 var(A) var(A) MULT SUB2 var(B) var(B) MULT SUB2 var(C) var(C) MULT PLUS ) var(R0) MULT EOS
0x30b4…30bb 6290 19402b01f103f3
0x30bb…30c2 6300 19402a01f103f3
0x30c2…30d6 6310 LET ELEMENT var(S9') ( var(I9%) ) [] COMMA ELEMENT var(R1') ( var(I9%) var(J9%) ) [] EOS
0x30d6…30da 6320 1a402af3
0x30da…30e1 6330 19402a01f103f3
0x30e1…311f 6340 LET ELEMENT var(R1') ( var(I9%) var(J9%) ) [] COMMA ELEMENT var(S9') ( 1 ) [] ELEMENT var(R') ( var(I9%) 1 ) [] MULT ELEMENT var(S9') ( 2 ) [] ELEMENT var(R') ( var(I9%) 2 ) [] MULT PLUS ELEMENT var(S9') ( 3 ) [] ELEMENT var(R') ( var(I9%) 3 ) [] MULT PLUS EOS
0x311f…3123 6350 1a402af3
0x3123…3127 6360 1a402bf3
0x3127…3129 6370 RETURN EOS
0x3129…3141 6380 REM TRANSFORM ONE POINT
0x3141…3148 6390 19402a01f103f3
0x3148…315a 6400 LET ELEMENT var(S9') ( var(I9%) ) [] COMMA ELEMENT var(X') ( var(I9%) ) [] EOS
0x315a…315e 6410 1a402af3
0x315e…3165 6420 19402a01f103f3
0x3165…31a6 6430 LET ELEMENT var(X') ( var(I9%) ) [] COMMA var(S1) ( ELEMENT var(S9') ( 1 ) [] ELEMENT var(R1') ( var(I9%) 1 ) [] MULT ELEMENT var(S9') ( 2 ) [] ELEMENT var(R1') ( var(I9%) 2 ) [] MULT PLUS ELEMENT var(S9') ( 3 ) [] ELEMENT var(R1') ( var(I9%) 3 ) [] MULT PLUS ) MULT EOS
0x31a6…31aa 6440 1a402af3
0x31aa…31ac 6450 RETURN EOS
0x31ac…31bf 6480 REM PRINT LINEFEED
0x31bf…31c6 6482 196401f14020f3
0x31c6…31c8 6490 PRINT EOS
0x31c8…31d0 6500 PRINT 5# SEMI » « EOS
0x31d0…31d3 6510 1a64f3
0x31d3…31d5 6520 RETURN EOS
0x31d5…31db 6530 REM C
0x31db…31e6 9700 PRINT = ( 27 ) → af700145e2f3
0x31e6…31f1 9710 CHAIN »DIG.NEW« EOS
0x31f1…31f2 9999 END