|
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 - download
Length: 13197 (0x338d)
Notes: ZILOG_BASIC
Names: »TRANS.BP«
└─⟦3b14772ef⟧ Bits:30006814 8" ZilogMCZ floppy NThun_0016 (OPERATIVSYSTEM 1/05 850619 KOPI)
└─ ⟦this⟧ »TRANS.BP«
0x0000…0014 BasicHead {variables=0x01e0, stms=0x0780, f2=0x2a19, f3=0000000000000000000000000000}
0x0014…01f4 [
0x0014…01f4 [0x00]: VarDef {f0=0x0000, f1=0x46, f2=0xa6} G6%' 0x77
0x0014…01f4 [0x01]: VarDef {f0=0x8b00, f1=0x46, f2=0x86} G6' 0x76
0x0014…01f4 [0x02]: VarDef {f0=0x004c, f1=0x48, f2=0x26} G8% 0x75
0x0014…01f4 [0x03]: VarDef {f0=0xdb18, f1=0x47, f2=0x26} G7% 0x74
0x0014…01f4 [0x04]: VarDef {f0=0xfc00, f1=0x46, f2=0x26} G6% 0x73
0x0014…01f4 [0x05]: VarDef {f0=0x140c, f1=0x4f, f2=0x40} A$ 0x72
0x0014…01f4 [0x06]: VarDef {f0=0x1000, f1=0x49, f2=0x08} I9 0x71
0x0014…01f4 [0x07]: VarDef {f0=0x0000, f1=0x4f, f2=0x37} X% 0x70
0x0014…01f4 [0x08]: VarDef {f0=0xffd0, f1=0x5f, f2=0x27} FNH% 0x6f
0x0014…01f4 [0x09]: VarDef {f0=0x0018, f1=0x41, f2=0x4a} K1$ 0x6e
0x0014…01f4 [0x0a]: VarDef {f0=0x0000, f1=0x4f, f2=0x4e} O$ 0x6d
0x0014…01f4 [0x0b]: VarDef {f0=0x13a4, f1=0x42, f2=0x13} T2 0x6c
0x0014…01f4 [0x0c]: VarDef {f0=0x139c, f1=0x41, f2=0x13} T1 0x6b
0x0014…01f4 [0x0d]: VarDef {f0=0x138c, f1=0x42, f2=0x00} A2 0x6a
0x0014…01f4 [0x0e]: VarDef {f0=0x1360, f1=0x4f, f2=0x08} I 0x69
0x0014…01f4 [0x0f]: VarDef {f0=0xd000, f1=0x48, f2=0x06} G8 0x68
0x0014…01f4 [0x10]: VarDef {f0=0x0700, f1=0x48, f2=0x28} I8% 0x67
0x0014…01f4 [0x11]: VarDef {f0=0xd712, f1=0x47, f2=0x13} T7 0x66
0x0014…01f4 [0x12]: VarDef {f0=0x7400, f1=0x4f, f2=0x11} R 0x65
0x0014…01f4 [0x13]: VarDef {f0=0x7400, f1=0x4f, f2=0x0f} P 0x64
0x0014…01f4 [0x14]: VarDef {f0=0x0200, f1=0x43, f2=0x29} J3% 0x63
0x0014…01f4 [0x15]: VarDef {f0=0x0100, f1=0x43, f2=0x28} I3% 0x62
0x0014…01f4 [0x16]: VarDef {f0=0x0326, f1=0x4f, f2=0x92} S' 0x61
0x0014…01f4 [0x17]: VarDef {f0=0x0ff6, f1=0x4f, f2=0x46} G$ 0x60
0x0014…01f4 [0x18]: VarDef {f0=0x11ee, f1=0x43, f2=0xa8} I3%' 0x5f
0x0014…01f4 [0x19]: VarDef {f0=0x0dfe, f1=0x4f, f2=0x4c} M$ 0x5e
0x0014…01f4 [0x1a]: VarDef {f0=0x1404, f1=0x4f, f2=0x15} V 0x5d
0x0014…01f4 [0x1b]: VarDef {f0=0x0382, f1=0x49, f2=0x92} S9' 0x5c
0x0014…01f4 [0x1c]: VarDef {f0=0x13b4, f1=0x40, f2=0x11} R0 0x5b
0x0014…01f4 [0x1d]: VarDef {f0=0x13cc, f1=0x49, f2=0x13} T9 0x5a
0x0014…01f4 [0x1e]: VarDef {f0=0x0300, f1=0x49, f2=0x2a} K9% 0x59
0x0014…01f4 [0x1f]: VarDef {f0=0x0400, f1=0x49, f2=0x29} J9% 0x58
0x0014…01f4 [0x20]: VarDef {f0=0x0400, f1=0x49, f2=0x28} I9% 0x57
0x0014…01f4 [0x21]: VarDef {f0=0x7511, f1=0x45, f2=0x0d} N5 0x56
0x0014…01f4 [0x22]: VarDef {f0=0x0400, f1=0x4f, f2=0x2c} M% 0x55
0x0014…01f4 [0x23]: VarDef {f0=0x03d6, f1=0x42, f2=0x97} X2' 0x54
0x0014…01f4 [0x24]: VarDef {f0=0x13fc, f1=0x43, f2=0x18} Y3 0x53
0x0014…01f4 [0x25]: VarDef {f0=0x13f4, f1=0x42, f2=0x18} Y2 0x52
0x0014…01f4 [0x26]: VarDef {f0=0x13ec, f1=0x41, f2=0x18} Y1 0x51
0x0014…01f4 [0x27]: VarDef {f0=0xffff, f1=0x49, f2=0x26} G9% 0x50
0x0014…01f4 [0x28]: VarDef {f0=0x13e4, f1=0x45, f2=0x11} R5 0x4f
0x0014…01f4 [0x29]: VarDef {f0=0x0400, f1=0x4f, f2=0x2d} N% 0x4e
0x0014…01f4 [0x2a]: VarDef {f0=0x0200, f1=0x47, f2=0x2f} P7% 0x4d
0x0014…01f4 [0x2b]: VarDef {f0=0x03f2, f1=0x41, f2=0x95} V1' 0x4c
0x0014…01f4 [0x2c]: VarDef {f0=0x2c00, f1=0x45, f2=0x2a} K5% 0x4b
0x0014…01f4 [0x2d]: VarDef {f0=0x0100, f1=0x45, f2=0x29} J5% 0x4a
0x0014…01f4 [0x2e]: VarDef {f0=0x13d4, f1=0x49, f2=0x12} S9 0x49
0x0014…01f4 [0x2f]: VarDef {f0=0x0100, f1=0x45, f2=0x28} I5% 0x48
0x0014…01f4 [0x30]: VarDef {f0=0x0c1a, f1=0x45, f2=0x00} A5 0x47
0x0014…01f4 [0x31]: VarDef {f0=0x13c4, f1=0x45, f2=0x12} S5 0x46
0x0014…01f4 [0x32]: VarDef {f0=0x0c2c, f1=0x49, f2=0x02} C9 0x45
0x0014…01f4 [0x33]: VarDef {f0=0x0c24, f1=0x49, f2=0x01} B9 0x44
0x0014…01f4 [0x34]: VarDef {f0=0x0c1c, f1=0x49, f2=0x00} A9 0x43
0x0014…01f4 [0x35]: VarDef {f0=0x13dc, f1=0x42, f2=0x12} S2 0x42
0x0014…01f4 [0x36]: VarDef {f0=0x0c0c, f1=0x4f, f2=0x03} D 0x41
0x0014…01f4 [0x37]: VarDef {f0=0x1374, f1=0x4f, f2=0x02} C 0x40
0x0014…01f4 [0x38]: VarDef {f0=0x0000, f1=0x41, f2=0x2d} N1% 0x3f
0x0014…01f4 [0x39]: VarDef {f0=0x13bc, f1=0x40, f2=0x12} S0 0x3e
0x0014…01f4 [0x3a]: VarDef {f0=0x0b78, f1=0x44, f2=0x05} F4 0x3d
0x0014…01f4 [0x3b]: VarDef {f0=0x0b70, f1=0x43, f2=0x05} F3 0x3c
0x0014…01f4 [0x3c]: VarDef {f0=0x0b68, f1=0x42, f2=0x05} F2 0x3b
0x0014…01f4 [0x3d]: VarDef {f0=0x0b60, f1=0x41, f2=0x05} F1 0x3a
0x0014…01f4 [0x3e]: VarDef {f0=0x0b58, f1=0x42, f2=0x03} D2 0x39
0x0014…01f4 [0x3f]: VarDef {f0=0x0b50, f1=0x41, f2=0x03} D1 0x38
0x0014…01f4 [0x40]: VarDef {f0=0x0100, f1=0x49, f2=0x2d} N9% 0x37
0x0014…01f4 [0x41]: VarDef {f0=0x0b48, f1=0x42, f2=0x02} C2 0x36
0x0014…01f4 [0x42]: VarDef {f0=0x0b40, f1=0x41, f2=0x02} C1 0x35
0x0014…01f4 [0x43]: VarDef {f0=0x1394, f1=0x42, f2=0x01} B2 0x34
0x0014…01f4 [0x44]: VarDef {f0=0x0b30, f1=0x41, f2=0x01} B1 0x33
0x0014…01f4 [0x45]: VarDef {f0=0x13ac, f1=0x41, f2=0x12} S1 0x32
0x0014…01f4 [0x46]: VarDef {f0=0x0b20, f1=0x4f, f2=0x12} S 0x31
0x0014…01f4 [0x47]: VarDef {f0=0x0b18, f1=0x41, f2=0x14} U1 0x30
0x0014…01f4 [0x48]: VarDef {f0=0x0b10, f1=0x4f, f2=0x14} U 0x2f
0x0014…01f4 [0x49]: VarDef {f0=0x0b08, f1=0x4f, f2=0x0b} L 0x2e
0x0014…01f4 [0x4a]: VarDef {f0=0x0b00, f1=0x41, f2=0x0b} L1 0x2d
0x0014…01f4 [0x4b]: VarDef {f0=0x0af8, f1=0x40, f2=0x0b} L0 0x2c
0x0014…01f4 [0x4c]: VarDef {f0=0x0000, f1=0x49, f2=0x27} H9% 0x2b
0x0014…01f4 [0x4d]: VarDef {f0=0x0000, f1=0x4f, f2=0x2a} K% 0x2a
0x0014…01f4 [0x4e]: VarDef {f0=0x136c, f1=0x45, f2=0x0c} M5 0x29
0x0014…01f4 [0x4f]: VarDef {f0=0x0ae8, f1=0x49, f2=0x06} G9 0x28
0x0014…01f4 [0x50]: VarDef {f0=0x1364, f1=0x40, f2=0x0c} M0 0x27
0x0014…01f4 [0x51]: VarDef {f0=0x135c, f1=0x40, f2=0x05} F0 0x26
0x0014…01f4 [0x52]: VarDef {f0=0x0300, f1=0x41, f2=0x26} G1% 0x25
0x0014…01f4 [0x53]: VarDef {f0=0x0300, f1=0x40, f2=0x26} G0% 0x24
0x0014…01f4 [0x54]: VarDef {f0=0x0400, f1=0x4f, f2=0x28} I% 0x23
0x0014…01f4 [0x55]: VarDef {f0=0x0700, f1=0x40, f2=0x2d} N0% 0x22
0x0014…01f4 [0x56]: VarDef {f0=0x1384, f1=0x4f, f2=0x01} B 0x21
0x0014…01f4 [0x57]: VarDef {f0=0x137c, f1=0x4f, f2=0x00} A 0x20
0x0014…01f4 [0x58]: VarDef {f0=0xffa0, f1=0x5f, f2=0x13} FNT 0x1f
0x0014…01f4 [0x59]: VarDef {f0=0x0800, f1=0x4f, f2=0x29} J% 0x1e
0x0014…01f4 [0x5a]: VarDef {f0=0x12b4, f1=0x4f, f2=0x53} T$ 0x1d
0x0014…01f4 [0x5b]: VarDef {f0=0x0ab6, f1=0x4f, f2=0x44} E$ 0x1c
0x0014…01f4 [0x5c]: VarDef {f0=0x1288, f1=0x4f, f2=0x4a} K$ 0x1b
0x0014…01f4 [0x5d]: VarDef {f0=0x125d, f1=0x41, f2=0x43} D1$ 0x1a
0x0014…01f4 [0x5e]: VarDef {f0=0x1256, f1=0x4f, f2=0x43} D$ 0x19
0x0014…01f4 [0x5f]: VarDef {f0=0x0d96, f1=0x40, f2=0xa8} I0%' 0x18
0x0014…01f4 [0x60]: VarDef {f0=0x08e0, f1=0x4f, f2=0x86} G' 0x17
0x0014…01f4 [0x61]: VarDef {f0=0x042a, f1=0x4f, f2=0x8c} M' 0x16
0x0014…01f4 [0x62]: VarDef {f0=0x04bc, f1=0x40, f2=0x81} B0' 0x15
0x0014…01f4 [0x63]: VarDef {f0=0x0480, f1=0x41, f2=0x90} Q1' 0x14
0x0014…01f4 [0x64]: VarDef {f0=0x0084, f1=0x4f, f2=0x8d} N' 0x13
0x0014…01f4 [0x65]: VarDef {f0=0x0040, f1=0x4f, f2=0x85} F' 0x12
0x0014…01f4 [0x66]: VarDef {f0=0x02d8, f1=0x41, f2=0x91} R1' 0x11
0x0014…01f4 [0x67]: VarDef {f0=0x028a, f1=0x4f, f2=0x91} R' 0x10
0x0014…01f4 [0x68]: VarDef {f0=0x0038, f1=0x41, f2=0x0f} P1 0xf
0x0014…01f4 [0x69]: VarDef {f0=0x3200, f1=0x49, f2=0x39} Z9% 0xe
0x0014…01f4 [0x6a]: VarDef {f0=0x0030, f1=0x41, f2=0x19} Z1 0xd
0x0014…01f4 [0x6b]: VarDef {f0=0x0166, f1=0x4f, f2=0x82} C' 0xc
0x0014…01f4 [0x6c]: VarDef {f0=0x014a, f1=0x41, f2=0x97} X1' 0xb
0x0014…01f4 [0x6d]: VarDef {f0=0x03ba, f1=0x4f, f2=0x97} X' 0xa
0x0014…01f4 [0x6e]: VarDef {f0=0x0112, f1=0x42, f2=0x93} T2' 0x9
0x0014…01f4 [0x6f]: VarDef {f0=0x00f6, f1=0x41, f2=0x93} T1' 0x8
0x0014…01f4 [0x70]: VarDef {f0=0x039e, f1=0x40, f2=0x93} T0' 0x7
0x0014…01f4 [0x71]: VarDef {f0=0x00be, f1=0x4f, f2=0x95} V' 0x6
0x0014…01f4 [0x72]: VarDef {f0=0x039e, f1=0x4f, f2=0x93} T' 0x5
0x0014…01f4 [0x73]: VarDef {f0=0x1270, f1=0x47, f2=0x45} F7$ 0x4
0x0014…01f4 [0x74]: VarDef {f0=0x040e, f1=0x47, f2=0x93} T7' 0x3
0x0014…01f4 [0x75]: VarDef {f0=0x0067, f1=0x47, f2=0x43} D7$ 0x2
0x0014…01f4 [0x76]: VarDef {f0=0x0054, f1=0x44, f2=0x50} Q4$ 0x1
0x0014…01f4 [0x77]: VarDef {f0=0x1308, f1=0x4f, f2=0x57} X$ 0x0
0x0014…01f4 ]
0x01f4…01f8 Statement 39321 @0x338c
0x01f8…01fc Statement 38672 @0x3381
0x01fc…0200 Statement 38656 @0x3376
0x0200…0204 Statement 25904 @0x3370
0x0204…0208 Statement 25888 @0x336e
0x0208…020c Statement 25872 @0x336b
0x020c…0210 Statement 25856 @0x3363
0x0210…0214 Statement 25744 @0x3361
0x0214…0218 Statement 25730 @0x335a
0x0218…021c Statement 25728 @0x3347
0x021c…0220 Statement 25680 @0x3345
0x0220…0224 Statement 25664 @0x3341
0x0224…0228 Statement 25648 @0x3300
0x0228…022c Statement 25632 @0x32f9
0x022c…0230 Statement 25616 @0x32f5
0x0230…0234 Statement 25600 @0x32e3
0x0234…0238 Statement 25488 @0x32dc
0x0238…023c Statement 25472 @0x32c4
0x023c…0240 Statement 25456 @0x32c2
0x0240…0244 Statement 25440 @0x32be
0x0244…0248 Statement 25424 @0x32ba
0x0248…024c Statement 25408 @0x327c
0x024c…0250 Statement 25392 @0x3275
0x0250…0254 Statement 25376 @0x3271
0x0254…0258 Statement 25360 @0x325d
0x0258…025c Statement 25344 @0x3256
0x025c…0260 Statement 25232 @0x324f
0x0260…0264 Statement 25200 @0x3231
0x0264…0268 Statement 25184 @0x321a
0x0268…026c Statement 25168 @0x3203
0x026c…0270 Statement 25152 @0x31ec
0x0270…0274 Statement 25136 @0x31ce
0x0274…0278 Statement 25120 @0x31b7
0x0278…027c Statement 25104 @0x31a0
0x027c…0280 Statement 25088 @0x3189
0x0280…0284 Statement 24976 @0x316b
0x0284…0288 Statement 24960 @0x3153
0x0288…028c Statement 24944 @0x3138
0x028c…0290 Statement 24864 @0x3136
0x0290…0294 Statement 24608 @0x3132
0x0294…0298 Statement 24592 @0x312e
0x0298…029c Statement 24576 @0x311d
0x029c…02a0 Statement 22928 @0x3119
0x02a0…02a4 Statement 22912 @0x30fe
0x02a4…02a8 Statement 22896 @0x30f4
0x02a8…02ac Statement 22880 @0x30eb
0x02ac…02b0 Statement 22864 @0x30dd
0x02b0…02b4 Statement 22848 @0x30d5
0x02b4…02b8 Statement 22832 @0x30bb
0x02b8…02bc Statement 22816 @0x30aa
0x02bc…02c0 Statement 22805 @0x3088
0x02c0…02c4 Statement 22800 @0x3086
0x02c4…02c8 Statement 22784 @0x3082
0x02c8…02cc Statement 22672 @0x3074
0x02cc…02d0 Statement 22656 @0x3070
0x02d0…02d4 Statement 22640 @0x306c
0x02d4…02d8 Statement 22624 @0x304a
0x02d8…02dc Statement 22608 @0x303a
0x02dc…02e0 Statement 22592 @0x3033
0x02e0…02e4 Statement 22581 @0x302a
0x02e4…02e8 Statement 22576 @0x3019
0x02e8…02ec Statement 22560 @0x3011
0x02ec…02f0 Statement 22544 @0x2fef
0x02f0…02f4 Statement 22528 @0x2fe8
0x02f4…02f8 Statement 22384 @0x2fcd
0x02f8…02fc Statement 22352 @0x2fcb
0x02fc…0300 Statement 22336 @0x2fc7
0x0300…0304 Statement 22320 @0x2fc3
0x0304…0308 Statement 22304 @0x2f9e
0x0308…030c Statement 22288 @0x2f96
0x030c…0310 Statement 22277 @0x2f88
0x0310…0314 Statement 22272 @0x2f81
0x0314…0318 Statement 22160 @0x2f66
0x0318…031c Statement 21856 @0x2f63
0x031c…0320 Statement 21840 @0x2f61
0x0320…0324 Statement 21832 @0x2f5e
0x0324…0328 Statement 21831 @0x2f53
0x0328…032c Statement 21830 @0x2f42
0x032c…0330 Statement 21829 @0x2f37
0x0330…0334 Statement 21828 @0x2f33
0x0334…0338 Statement 21827 @0x2ef5
0x0338…033c Statement 21826 @0x2eec
0x033c…0340 Statement 21825 @0x2eea
0x0340…0344 Statement 21816 @0x2ee8
0x0344…0348 Statement 21814 @0x2eb4
0x0348…034c Statement 21813 @0x2e76
0x034c…0350 Statement 21812 @0x2e34
0x0350…0354 Statement 21811 @0x2e32
0x0354…0358 Statement 21810 @0x2e2e
0x0358…035c Statement 21808 @0x2e1c
0x035c…0360 Statement 21792 @0x2e0c
0x0360…0364 Statement 21776 @0x2dfc
0x0364…0368 Statement 21760 @0x2df5
0x0368…036c Statement 21648 @0x2df1
0x036c…0370 Statement 21632 @0x2de5
0x0370…0374 Statement 21616 @0x2dde
0x0374…0378 Statement 21600 @0x2dce
0x0378…037c Statement 21504 @0x2dca
0x037c…0380 Statement 21376 @0x2dbc
0x0380…0384 Statement 21362 @0x2db1
0x0384…0388 Statement 21360 @0x2d84
0x0388…038c Statement 21344 @0x2d7c
0x038c…0390 Statement 21328 @0x2d7a
0x0390…0394 Statement 21312 @0x2d52
0x0394…0398 Statement 21296 @0x2d40
0x0398…039c Statement 21280 @0x2d38
0x039c…03a0 Statement 21264 @0x2d36
0x03a0…03a4 Statement 21104 @0x2d33
0x03a4…03a8 Statement 21088 @0x2d0d
0x03a8…03ac Statement 21072 @0x2cea
0x03ac…03b0 Statement 21056 @0x2ce2
0x03b0…03b4 Statement 21040 @0x2cd2
0x03b4…03b8 Statement 21024 @0x2cc1
0x03b8…03bc Statement 21008 @0x2cb0
0x03bc…03c0 Statement 20992 @0x2caa
0x03c0…03c4 Statement 20885 @0x2ca2
0x03c4…03c8 Statement 20883 @0x2ca0
0x03c8…03cc Statement 20880 @0x2c89
0x03cc…03d0 Statement 20864 @0x2c80
0x03d0…03d4 Statement 20848 @0x2c7d
0x03d4…03d8 Statement 20841 @0x2c75
0x03d8…03dc Statement 20840 @0x2c73
0x03dc…03e0 Statement 20838 @0x2c47
0x03e0…03e4 Statement 20820 @0x2c1e
0x03e4…03e8 Statement 20816 @0x2c10
0x03e8…03ec Statement 18512 @0x2c0d
0x03ec…03f0 Statement 18496 @0x2bfe
0x03f0…03f4 Statement 18480 @0x2bf2
0x03f4…03f8 Statement 18448 @0x2bef
0x03f8…03fc Statement 18432 @0x2bde
0x03fc…0400 Statement 18288 @0x2bd0
0x0400…0404 Statement 18176 @0x2b91
0x0404…0408 Statement 18048 @0x2b77
0x0408…040c Statement 18032 @0x2b71
0x040c…0410 Statement 17984 @0x2b68
0x0410…0414 Statement 17973 @0x2b25
0x0414…0418 Statement 17971 @0x2ae5
0x0418…041c Statement 17957 @0x2acb
0x041c…0420 Statement 17744 @0x2aa1
0x0420…0424 Statement 17728 @0x2a6f
0x0424…0428 Statement 17712 @0x2a1e
0x0428…042c Statement 17696 @0x29db
0x042c…0430 Statement 17680 @0x29b1
0x0430…0434 Statement 17664 @0x297f
0x0434…0438 Statement 17552 @0x292e
0x0438…043c Statement 17536 @0x28eb
0x043c…0440 Statement 17520 @0x28c1
0x0440…0444 Statement 17504 @0x288e
0x0444…0448 Statement 17488 @0x283d
0x0448…044c Statement 17472 @0x27fa
0x044c…0450 Statement 17443 @0x27d5
0x0450…0454 Statement 17440 @0x27b0
0x0454…0458 Statement 17429 @0x278b
0x0458…045c Statement 17424 @0x277e
0x045c…0460 Statement 17413 @0x2775
0x0460…0464 Statement 17408 @0x2767
0x0464…0468 Statement 17248 @0x2764
0x0468…046c Statement 17216 @0x2761
0x046c…0470 Statement 17184 @0x2750
0x0470…0474 Statement 17168 @0x274a
0x0474…0478 Statement 17152 @0x2741
0x0478…047c Statement 17047 @0x272f
0x047c…0480 Statement 17045 @0x2724
0x0480…0484 Statement 17040 @0x271c
0x0484…0488 Statement 17024 @0x26ff
0x0488…048c Statement 17013 @0x26f2
0x048c…0490 Statement 17008 @0x26de
0x0490…0494 Statement 17000 @0x26c6
0x0494…0498 Statement 16997 @0x26b3
0x0498…049c Statement 16994 @0x268b
0x049c…04a0 Statement 16992 @0x267f
0x04a0…04a4 Statement 16985 @0x2664
0x04a4…04a8 Statement 16984 @0x262f
0x04a8…04ac Statement 16983 @0x2604
0x04ac…04b0 Statement 16981 @0x25fe
0x04b0…04b4 Statement 16976 @0x25fb
0x04b4…04b8 Statement 16968 @0x25f3
0x04b8…04bc Statement 16966 @0x25f1
0x04bc…04c0 Statement 16964 @0x25eb
0x04c0…04c4 Statement 16960 @0x25e8
0x04c4…04c8 Statement 16949 @0x25e5
0x04c8…04cc Statement 16944 @0x25df
0x04cc…04d0 Statement 16933 @0x25d2
0x04d0…04d4 Statement 16768 @0x2595
0x04d4…04d8 Statement 16704 @0x2592
0x04d8…04dc Statement 16480 @0x2551
0x04dc…04e0 Statement 16448 @0x254e
0x04e0…04e4 Statement 16432 @0x2512
0x04e4…04e8 Statement 16416 @0x2506
0x04e8…04ec Statement 16384 @0x24d8
0x04ec…04f0 Statement 14720 @0x24a6
0x04f0…04f4 Statement 14704 @0x248e
0x04f4…04f8 Statement 14480 @0x248b
0x04f8…04fc Statement 14432 @0x2477
0x04fc…0500 Statement 14416 @0x2471
0x0500…0504 Statement 14405 @0x245b
0x0504…0508 Statement 14400 @0x244f
0x0508…050c Statement 14384 @0x2443
0x050c…0510 Statement 14368 @0x243d
0x0510…0514 Statement 14336 @0x242f
0x0514…0518 Statement 14224 @0x2429
0x0518…051c Statement 14192 @0x2422
0x051c…0520 Statement 14181 @0x2417
0x0520…0524 Statement 14176 @0x23eb
0x0524…0528 Statement 13712 @0x23d4
0x0528…052c Statement 13696 @0x23c7
0x052c…0530 Statement 13648 @0x239e
0x0530…0534 Statement 13632 @0x2378
0x0534…0538 Statement 13600 @0x2345
0x0538…053c Statement 13584 @0x2311
0x053c…0540 Statement 13568 @0x230e
0x0540…0544 Statement 13458 @0x2308
0x0544…0548 Statement 13456 @0x22da
0x0548…054c Statement 13424 @0x22a1
0x054c…0550 Statement 13408 @0x2299
0x0550…0554 Statement 13392 @0x2297
0x0554…0558 Statement 13376 @0x228b
0x0558…055c Statement 13362 @0x2282
0x055c…0560 Statement 13360 @0x2255
0x0560…0564 Statement 13328 @0x2252
0x0564…0568 Statement 12912 @0x2249
0x0568…056c Statement 12896 @0x222d
0x056c…0570 Statement 12848 @0x220a
0x0570…0574 Statement 12800 @0x21e1
0x0574…0578 Statement 12674 @0x21c1
0x0578…057c Statement 12673 @0x21be
0x057c…0580 Statement 12672 @0x219b
0x0580…0584 Statement 12656 @0x2186
0x0584…0588 Statement 12640 @0x2172
0x0588…058c Statement 12624 @0x215e
0x058c…0590 Statement 12608 @0x2155
0x0590…0594 Statement 12560 @0x2152
0x0594…0598 Statement 12544 @0x2132
0x0598…059c Statement 12432 @0x211f
0x059c…05a0 Statement 12416 @0x211c
0x05a0…05a4 Statement 12400 @0x2105
0x05a4…05a8 Statement 12384 @0x20ff
0x05a8…05ac Statement 12368 @0x20fc
0x05ac…05b0 Statement 12320 @0x20f9
0x05b0…05b4 Statement 12304 @0x20f6
0x05b4…05b8 Statement 12288 @0x20ed
0x05b8…05bc Statement 10640 @0x20ea
0x05bc…05c0 Statement 10560 @0x20cc
0x05c0…05c4 Statement 10544 @0x20c0
0x05c4…05c8 Statement 10528 @0x209d
0x05c8…05cc Statement 10512 @0x2072
0x05cc…05d0 Statement 10496 @0x205d
0x05d0…05d4 Statement 10384 @0x2045
0x05d4…05d8 Statement 10320 @0x2016
0x05d8…05dc Statement 10304 @0x1ffc
0x05dc…05e0 Statement 10272 @0x1ff6
0x05e0…05e4 Statement 10256 @0x1ff3
0x05e4…05e8 Statement 10128 @0x1fc2
0x05e8…05ec Statement 10112 @0x1fb9
0x05ec…05f0 Statement 10096 @0x1fae
0x05f0…05f4 Statement 10080 @0x1fa8
0x05f4…05f8 Statement 10048 @0x1f69
0x05f8…05fc Statement 10032 @0x1f56
0x05fc…0600 Statement 10016 @0x1f4d
0x0600…0604 Statement 10000 @0x1f38
0x0604…0608 Statement 09984 @0x1f32
0x0608…060c Statement 09472 @0x1f2f
0x060c…0610 Statement 09360 @0x1f29
0x0610…0614 Statement 09344 @0x1ef6
0x0614…0618 Statement 09333 @0x1ea6
0x0618…061c Statement 09328 @0x1e5f
0x061c…0620 Statement 09317 @0x1e0f
0x0620…0624 Statement 09312 @0x1dc7
0x0624…0628 Statement 09296 @0x1d5b
0x0628…062c Statement 09280 @0x1d58
0x062c…0630 Statement 09264 @0x1d07
0x0630…0634 Statement 09248 @0x1cb0
0x0634…0638 Statement 09232 @0x1c56
0x0638…063c Statement 09216 @0x1c53
0x063c…0640 Statement 09072 @0x1c25
0x0640…0644 Statement 09056 @0x1c07
0x0644…0648 Statement 09024 @0x1bfd
0x0648…064c Statement 08992 @0x1bf7
0x064c…0650 Statement 08976 @0x1bee
0x0650…0654 Statement 08960 @0x1be0
0x0654…0658 Statement 08784 @0x1bd5
0x0658…065c Statement 08768 @0x1bd2
0x065c…0660 Statement 08752 @0x1baf
0x0660…0664 Statement 08736 @0x1b98
0x0664…0668 Statement 08720 @0x1b92
0x0668…066c Statement 08709 @0x1b88
0x066c…0670 Statement 08704 @0x1b78
0x0670…0674 Statement 08576 @0x1b4c
0x0674…0678 Statement 08560 @0x1b36
0x0678…067c Statement 08544 @0x1b33
0x067c…0680 Statement 08533 @0x1afd
0x0680…0684 Statement 08528 @0x1ac7
0x0684…0688 Statement 08517 @0x1a8f
0x0688…068c Statement 08512 @0x1a57
0x068c…0690 Statement 08496 @0x1a27
0x0690…0694 Statement 08480 @0x1a1f
0x0694…0698 Statement 08469 @0x1a15
0x0698…069c Statement 08464 @0x1a0f
0x069c…06a0 Statement 08457 @0x19fa
0x06a0…06a4 Statement 08455 @0x19ce
0x06a4…06a8 Statement 08454 @0x19a2
0x06a8…06ac Statement 08453 @0x1967
0x06ac…06b0 Statement 08452 @0x192c
0x06b0…06b4 Statement 08450 @0x1917
0x06b4…06b8 Statement 08448 @0x1900
0x06b8…06bc Statement 08192 @0x18d2
0x06bc…06c0 Statement 06544 @0x18a4
0x06c0…06c4 Statement 06512 @0x186a
0x06c4…06c8 Statement 06496 @0x1830
0x06c8…06cc Statement 06480 @0x1806
0x06cc…06d0 Statement 06464 @0x1803
0x06d0…06d4 Statement 06448 @0x17d2
0x06d4…06d8 Statement 06432 @0x17a1
0x06d8…06dc Statement 06400 @0x1770
0x06dc…06e0 Statement 06288 @0x173f
0x06e0…06e4 Statement 06272 @0x16ea
0x06e4…06e8 Statement 06256 @0x16a7
0x06e8…06ec Statement 06240 @0x1677
0x06ec…06f0 Statement 06229 @0x166f
0x06f0…06f4 Statement 06224 @0x1665
0x06f4…06f8 Statement 06192 @0x165f
0x06f8…06fc Statement 06144 @0x1637
0x06fc…0700 Statement 05488 @0x1635
0x0700…0704 Statement 05472 @0x1633
0x0704…0708 Statement 05456 @0x1630
0x0708…070c Statement 05184 @0x15e9
0x070c…0710 Statement 05168 @0x15e2
0x0710…0714 Statement 05136 @0x15df
0x0714…0718 Statement 05120 @0x15dc
0x0718…071c Statement 05008 @0x15c0
0x071c…0720 Statement 04992 @0x15ac
0x0720…0724 Statement 04976 @0x15a6
0x0724…0728 Statement 04960 @0x159c
0x0728…072c Statement 04944 @0x1596
0x072c…0730 Statement 04896 @0x1594
0x0730…0734 Statement 04880 @0x1592
0x0734…0738 Statement 04864 @0x1590
0x0738…073c Statement 04752 @0x158d
0x073c…0740 Statement 04736 @0x1546
0x0740…0744 Statement 04722 @0x1543
0x0744…0748 Statement 04720 @0x14fa
0x0748…074c Statement 04704 @0x14f8
0x074c…0750 Statement 04688 @0x14f6
0x0750…0754 Statement 04672 @0x14f4
0x0754…0758 Statement 04640 @0x14c2
0x0758…075c Statement 04624 @0x1496
0x075c…0760 Statement 04608 @0x146a
0x0760…0764 Statement 04501 @0x1468
0x0764…0768 Statement 04496 @0x1463
0x0768…076c Statement 04480 @0x1460
0x076c…0770 Statement 04448 @0x145a
0x0770…0774 Statement 04432 @0x1454
0x0774…0778 Statement 04416 @0x1444
0x0778…077c Statement 04400 @0x1441
0x077c…0780 Statement 04384 @0x1433
0x0780…0784 Statement 04370 @0x1428
0x0784…0788 Statement 04368 @0x13fd
0x0788…078c Statement 04240 @0x13fa
0x078c…0790 Statement 04208 @0x13f0
0x0790…0794 Statement 04192 @0x13ea
0x0794…0798 Statement 04176 @0x13e7
0x0798…079c Statement 04160 @0x13e4
0x079c…07a0 Statement 04144 @0x13cb
0x07a0…07a4 Statement 04128 @0x13b5
0x07a4…07a8 Statement 04112 @0x13a9
0x07a8…07ac Statement 04096 @0x13a3
0x07ac…07b0 Statement 02448 @0x1371
0x07b0…07b4 Statement 02432 @0x1342
0x07b4…07b8 Statement 02421 @0x1334
0x07b8…07bc Statement 02416 @0x132c
0x07bc…07c0 Statement 02400 @0x132a
0x07c0…07c4 Statement 02384 @0x1324
0x07c4…07c8 Statement 02368 @0x1318
0x07c8…07cc Statement 02354 @0x130f
0x07cc…07d0 Statement 02336 @0x12f0
0x07d0…07d4 Statement 02322 @0x12d4
0x07d4…07d8 Statement 02320 @0x12b2
0x07d8…07dc Statement 02304 @0x12af
0x07dc…07e0 Statement 02192 @0x12a9
0x07e0…07e4 Statement 02183 @0x12a4
0x07e4…07e8 Statement 02182 @0x124c
0x07e8…07ec Statement 02181 @0x11f7
0x07ec…07f0 Statement 02180 @0x11ef
0x07f0…07f4 Statement 02179 @0x11ed
0x07f4…07f8 Statement 02178 @0x11e5
0x07f8…07fc Statement 02176 @0x11df
0x07fc…0800 Statement 02160 @0x11d9
0x0800…0804 Statement 02149 @0x11c1
0x0804…0808 Statement 02144 @0x11b9
0x0808…080c Statement 02128 @0x11b7
0x080c…0810 Statement 02096 @0x11b4
0x0810…0814 Statement 02085 @0x11ae
0x0814…0818 Statement 02080 @0x11ab
0x0818…081c Statement 02069 @0x118e
0x081c…0820 Statement 02064 @0x118b
0x0820…0824 Statement 01936 @0x1172
0x0824…0828 Statement 01920 @0x115c
0x0828…082c Statement 01904 @0x1150
0x082c…0830 Statement 01888 @0x114a
0x0830…0834 Statement 01872 @0x1118
0x0834…0838 Statement 01856 @0x10e9
0x0838…083c Statement 01845 @0x10db
0x083c…0840 Statement 01840 @0x10d3
0x0840…0844 Statement 01824 @0x10d1
0x0844…0848 Statement 01808 @0x10cb
0x0848…084c Statement 01792 @0x10bf
0x084c…0850 Statement 01682 @0x10b6
0x0850…0854 Statement 01680 @0x1092
0x0854…0858 Statement 01666 @0x1073
0x0858…085c Statement 01650 @0x1057
0x085c…0860 Statement 01648 @0x1023
0x0860…0864 Statement 01641 @0x101b
0x0864…0868 Statement 01640 @0x1019
0x0868…086c Statement 01639 @0x1014
0x086c…0870 Statement 01638 @0xfbb
0x0870…0874 Statement 01637 @0xf65
0x0874…0878 Statement 01636 @0xf5d
0x0878…087c Statement 01635 @0xf5b
0x087c…0880 Statement 01634 @0xf53
0x0880…0884 Statement 01632 @0xf4d
0x0884…0888 Statement 01616 @0xf47
0x0888…088c Statement 01605 @0xf31
0x088c…0890 Statement 01600 @0xf2f
0x0890…0894 Statement 01584 @0xf2d
0x0894…0898 Statement 01168 @0xf2a
0x0898…089c Statement 01152 @0xf18
0x089c…08a0 Statement 01136 @0xf09
0x08a0…08a4 Statement 01120 @0xef5
0x08a4…08a8 Statement 01104 @0xee2
0x08a8…08ac Statement 01088 @0xece
0x08ac…08b0 Statement 01072 @0xebd
0x08b0…08b4 Statement 01056 @0xeab
0x08b4…08b8 Statement 01040 @0xe9c
0x08b8…08bc Statement 01026 @0xe55
0x08bc…08c0 Statement 01024 @0xe52
0x08c0…08c4 Statement 00917 @0xe4c
0x08c4…08c8 Statement 00608 @0xe41
0x08c8…08cc Statement 00597 @0xe3f
0x08cc…08d0 Statement 00592 @0xdfd
0x08d0…08d4 Statement 00581 @0xdf8
0x08d4…08d8 Statement 00578 @0xdf6
0x08d8…08dc Statement 00576 @0xdf4
0x08dc…08e0 Statement 00565 @0xdeb
0x08e0…08e4 Statement 00560 @0xda9
0x08e4…08e8 Statement 00544 @0xda7
0x08e8…08ec Statement 00533 @0xda5
0x08ec…08f0 Statement 00528 @0xda3
0x08f0…08f4 Statement 00517 @0xd9b
0x08f4…08f8 Statement 00512 @0xd53
0x08f8…08fc Statement 00405 @0xd52
0x08fc…0900 Statement 00400 @0xd4f
0x0900…0904 Statement 00389 @0xd43
0x0904…0908 Statement 00384 @0xd37
0x0908…090c Statement 00373 @0xd2c
0x090c…0910 Statement 00368 @0xcfc
0x0910…0914 Statement 00357 @0xcf7
0x0914…0918 Statement 00352 @0xcbd
0x0918…091c Statement 00341 @0xcbc
0x091c…0920 Statement 00336 @0xcb9
0x0920…0924 Statement 00325 @0xcb7
0x0924…0928 Statement 00320 @0xc6c
0x0928…092c Statement 00309 @0xc20
0x092c…0930 Statement 00304 @0xbd4
0x0930…0934 Statement 00293 @0xb88
0x0934…0938 Statement 00288 @0xb3c
0x0938…093c Statement 00277 @0xaf1
0x093c…0940 Statement 00272 @0xae6
0x0940…0944 Statement 00261 @0xae2
0x0944…0948 Statement 00256 @0xaa1
0x0948…094c Statement 00064 @0xa92
0x094c…0950 Statement 00053 @0xa5b
0x0950…0954 Statement 00048 @0xa40
0x0954…0958 Statement 00037 @0xa15
0x0958…095c Statement 00032 @0x9e8
0x095c…0960 Statement 00021 @0x9d9
0x0960…0964 Statement 00016 @0x99b
0x0964…0968 Statement 00009 @0x996
0x0968…096c Statement 00008 @0x989
0x096c…0970 Statement 00007 @0x984
0x0970…0974 Statement 00005 @0x974
0x0974…0984 0005 COM ELEMENT var(O$) ( 20 ) [] ELEMENT var(K1$) ( 20 ) [] EOS
0x0984…0989 0007 LET var(Z1) COMMA 2 EOS
0x0989…0996 0008 LET var(P1) COMMA 3.14159 EOS
0x0996…099b 0009 LET var(Z9%) COMMA 50 EOS
0x099b…09d9 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
0x09d9…09e8 0015 DIM ELEMENT var(V1') ( 3 ) [] ELEMENT var(T7') ( 3 ) [] EOS
0x09e8…0a15 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
0x0a15…0a40 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
0x0a40…0a5b 0030 LET var(D$) COMMA »###« COMMA var(D1$) COMMA » ######D.DD « EOS
0x0a5b…0a92 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
0x0a92…0aa1 0040 SYSTEM »LINELEN« COMMA %80 EOS
0x0aa1…0ae2 0100 REM ------------------------------------------ FUNCTION HEADING
0x0ae2…0ae6 0105 DEF var(FNH%) EOS
0x0ae6…0af1 0110 PRINT = ( 27 ) → af700145e2f3
0x0af1…0b3c 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
0x0b3c…0b88 0120 PRINT » | |« EOS
0x0b88…0bd4 0125 PRINT » | S T E R E O D I G versjon 2.0 |« EOS
0x0bd4…0c20 0130 PRINT » | |« EOS
0x0c20…0c6c 0135 PRINT » | Program : T R A N S -- 3-D ortogonal transformasjon. |« EOS
0x0c6c…0cb7 0140 PRINT » ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~« EOS
0x0cb7…0cb9 0145 PRINT EOS
0x0cb9…0cbc 0150 RETURN 0 EOS
0x0cbc…0cbd 0155 FNEND
0x0cbd…0cf7 0160 REM ------------------------------------------ FUNCTION
0x0cf7…0cfc 0165 DEF var(FNT) var(A) var(B) EOS
0x0cfc…0d2c 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
0x0d2c…0d37 0175 LET var(B) COMMA = ( var(A) var(B) DIV ) → aaf3
0x0d37…0d43 0180 IF var(B) 0 ?< COMMA 27 var(B) COMMA var(B) var(P1) PLUS EOS
0x0d43…0d4f 0185 IF var(A) 0 ?< COMMA 27 var(B) COMMA var(B) var(P1) PLUS EOS
0x0d4f…0d52 0190 RETURN var(B) EOS
0x0d52…0d53 0195 FNEND
0x0d53…0d9b 0200 REM ========================================== M A I N P R O G R A M
0x0d9b…0da3 0205 LET var(X%) COMMA = var(FNH%) EOS
0x0da3…0da5 0210 PRINT EOS
0x0da5…0da7 0215 PRINT EOS
0x0da7…0da9 0220 PRINT EOS
0x0da9…0deb 0230 INPUT » Giv filnavn for orientering (skriv MODEL) ..... : « COMMA var(F7$) EOS
0x0deb…0df4 0235 IF var(F7$) »« EQ COMMA 0 → 9999
0x0df4…0df6 0240 PRINT EOS
0x0df6…0df8 0242 PRINT EOS
0x0df8…0dfd 0245 1605f245f3
0x0dfd…0e3f 0250 INPUT » Navn paa flyopgave (skriv billednumre)......... : « COMMA var(T$) EOS
0x0e3f…0e41 0255 PRINT EOS
0x0e41…0e4c 0260 PRINT = ( 27 ) → af700145e2f3
0x0e4c…0e52 0395 LET var(P7%) COMMA 3 EOS
0x0e52…0e55 0400 GOSUB → 8064
0x0e55…0e9c 0402 LET var(X$) COMMA »------------------------------ FLYOPPGAVE MODELL « EOS
0x0e9c…0eab 0410 PRINT = ( 20 ) → b5f2724173011e749ff3
0x0eab…0ebd 0420 PRINT 5# SEMI = ( 20 ) → b5f2724173011e749ff3
0x0ebd…0ece 0430 PRINT = ( 20 ) → b5f27241731f32749ff25ef3
0x0ece…0ee2 0440 PRINT 5# SEMI = ( 20 ) → b5f27241731f2d749ff25ef3
0x0ee2…0ef5 0450 PRINT = ( 20 ) → b5f27241732e6f4100749ff245f3
0x0ef5…0f09 0460 PRINT 5# SEMI = ( 20 ) → b5f27241732e3c749ff245f3
0x0f09…0f18 0470 PRINT = ( 20 ) → b5f2724173011e749ff3
0x0f18…0f2a 0480 PRINT 5# SEMI = ( 20 ) → b5f2724173011e749ff3
0x0f2a…0f2d 0490 GOSUB → 8064
0x0f2d…0f2f 0630 PRINT EOS
0x0f2f…0f31 0640 PRINT EOS
0x0f31…0f47 0645 IF var(O$) »« EQ COMMA 27 var(O$) COMMA »OBS.DATA« EOS
0x0f47…0f4d 0650 1601f24040f3
0x0f4d…0f53 0660 INPUT 1# SEMI var(N0%) EOS
0x0f53…0f5b 0662 IF var(N0%) var(Z9%) → e9f1007006
0x0f5b…0f5d 0663 PRINT EOS
0x0f5d…0f65 0664 PRINT 5# SEMI » « EOS
0x0f65…0fbb 0665 PRINT » Observasjonsfilen inneholder « SEMI var(N0%) SEMI » punkt. Bare de « SEMI var(Z9%) SEMI » forste vil bli brukt.« EOS
0x0fbb…1014 0666 PRINT 5# SEMI » Observasjonsfilen inneholder « SEMI var(N0%) SEMI » punkt. Bare de « SEMI var(Z9%) SEMI » forste vil bli brukt.« EOS
0x1014…1019 0667 LET var(N0%) COMMA var(Z9%) EOS
0x1019…101b 0668 PRINT EOS
0x101b…1023 0669 PRINT 5# SEMI » « EOS
0x1023…1057 0670 LET ELEMENT var(X$) ( 1 6 ) [] COMMA »*** « COMMA ELEMENT var(X$) ( 7 29 ) [] COMMA » OBSERVERTE PUNKT ***« EOS
0x1057…1073 0672 PRINT = ( 20 ) → b5f27241730105749ff2755af163f2724173071c749ff3
0x1073…1092 0682 PRINT 5# SEMI = ( 20 ) → b5f27241730105749ff2755af163f2724173071c749ff3
0x1092…10b6 0690 LET var(T$) COMMA »******************************« EOS
0x10b6…10bf 0692 PRINT = ( 20 ) → b5f25ef3
0x10bf…10cb 0700 PRINT 5# SEMI = ( 20 ) → b5f25ef3
0x10cb…10d1 0710 196401f163f3
0x10d1…10d3 0720 PRINT EOS
0x10d3…10db 0730 PRINT 5# SEMI » « EOS
0x10db…10e9 0735 INPUT 1# SEMI ELEMENT var(M$) ( var(I%) 1 8 ) [] EOS
0x10e9…1118 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
0x1118…114a 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
0x114a…1150 0760 195f01f103f3
0x1150…115c 0770 INPUT 1# SEMI ELEMENT var(M') ( var(J%) var(I%) ) [] EOS
0x115c…1172 0780 PRINT ELEMENT var(K$) ( var(J%) 1 PLUS ) [] SEMI USING var(D1$) COMMA ELEMENT var(M') ( var(J%) var(I%) ) [] SEMI EOS
0x1172…118b 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
0x118b…118e 0810 1a5ff3
0x118e…11ab 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
0x11ab…11ae 0820 1a64f3
0x11ae…11b4 0825 LET var(I8%) COMMA var(N0%) EOS
0x11b4…11b7 0830 1401f3
0x11b7…11b9 0850 PRINT EOS
0x11b9…11c1 0860 PRINT 5# SEMI » « EOS
0x11c1…11d9 0865 IF var(K1$) »« EQ COMMA 27 var(K1$) COMMA »KNOWN.DATA« EOS
0x11d9…11df 0870 1602f24041f3
0x11df…11e5 0880 INPUT 2# SEMI var(G0%) EOS
0x11e5…11ed 0882 IF var(G0%) var(Z9%) → e9f1009008
0x11ed…11ef 0883 PRINT EOS
0x11ef…11f7 0884 PRINT 5# SEMI » « EOS
0x11f7…124c 0885 PRINT » Kjentpunkt-filen inneholder « SEMI var(N0%) SEMI » punkt. Bare de « SEMI var(Z9%) SEMI » forste vil bli brukt.« EOS
0x124c…12a4 0886 PRINT 5# SEMI » Kjentpunkt-filen inneholder « SEMI var(N0%) SEMI » punkt. Bare de « SEMI var(Z9%) SEMI » forste vil bli brukt.« EOS
0x12a4…12a9 0887 LET var(G0%) COMMA var(Z9%) EOS
0x12a9…12af 0890 LET var(P7%) COMMA 2 EOS
0x12af…12b2 0900 GOSUB → 8064
0x12b2…12d4 0910 LET ELEMENT var(X$) ( 7 28 ) [] COMMA » KJENTE PUNKT ***« EOS
0x12d4…12f0 0912 PRINT = ( 20 ) → b5f27241730105749ff2755af165f2724173071c749ff3
0x12f0…130f 0920 PRINT 5# SEMI = ( 20 ) → b5f27241730105749ff2755af165f2724173071c749ff3
0x130f…1318 0932 PRINT = ( 20 ) → b5f25ef3
0x1318…1324 0940 PRINT 5# SEMI = ( 20 ) → b5f25ef3
0x1324…132a 0950 196401f165f3
0x132a…132c 0960 PRINT EOS
0x132c…1334 0970 PRINT 5# SEMI » « EOS
0x1334…1342 0975 INPUT 2# SEMI ELEMENT var(G$) ( var(I%) 1 8 ) [] EOS
0x1342…1371 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
0x1371…13a3 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
0x13a3…13a9 1000 195f01f103f3
0x13a9…13b5 1010 INPUT 2# SEMI ELEMENT var(G') ( var(J%) var(I%) ) [] EOS
0x13b5…13cb 1020 PRINT ELEMENT var(K$) ( var(J%) 1 PLUS ) [] SEMI USING var(D1$) COMMA ELEMENT var(G') ( var(J%) var(I%) ) [] SEMI EOS
0x13cb…13e4 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
0x13e4…13e7 1040 1a5ff3
0x13e7…13ea 1050 1a64f3
0x13ea…13f0 1060 INPUT 2# SEMI var(G1%) EOS
0x13f0…13fa 1070 IF var(G1%) var(G0%) > COMMA 27 var(G1%) COMMA var(G0%) EOS
0x13fa…13fd 1090 GOSUB → 8064
0x13fd…1428 1110 LET var(X$) COMMA »Antall kjente punkt som skal brukes =« EOS
0x1428…1433 1112 PRINT = ( 19 ) → b5f241f266f3
0x1433…1441 1120 PRINT 5# SEMI = ( 19 ) → b5f241f266f3
0x1441…1444 1130 1402f3
0x1444…1454 1140 1603f2700a504152414d2e44415441f3
0x1454…145a 1150 INPUT 3# SEMI var(F0) EOS
0x145a…1460 1160 INPUT 3# SEMI var(M0) EOS
0x1460…1463 1180 1403f3
0x1463…1468 1190 LET var(M5) COMMA 0 EOS
0x1468…146a 1195 PRINT EOS
0x146a…1496 1200 PRINT = ( 19 ) → b5f27020416b73656f7269656e746572696e67732d66616b746f7220202e2e2e20203d20f267f3
0x1496…14c2 1210 PRINT = ( 19 ) → b5f270204d616c6573746f6b6b74616c6c20202e2e2e2e2e2e2e2e2e2e2e2e2e20203d20f268f3
0x14c2…14f4 1220 PRINT = ( 19 ) → b5f270204d616c6573746f6b6b74616c6c2069205a20202e2e2e2e2e2e2e2e2e20203d20f268f270012ff24ef3
0x14f4…14f6 1240 PRINT EOS
0x14f6…14f8 1250 PRINT EOS
0x14f8…14fa 1260 PRINT EOS
0x14fa…1543 1270 LET var(X$) COMMA » ***********************************************************« EOS
0x1543…1546 1272 PRINT var(X$) EOS
0x1546…158d 1280 PRINT » *** TREDIMENSJONAL ORTOGONAL TRANSFORMASJON STARTER ***« EOS
0x158d…1590 1290 PRINT var(X$) EOS
0x1590…1592 1300 PRINT EOS
0x1592…1594 1310 PRINT EOS
0x1594…1596 1320 PRINT EOS
0x1596…159c 1350 196401f165f3
0x159c…15a6 1360 LET ELEMENT var(I0%') ( var(I%) ) [] COMMA 0 EOS
0x15a6…15ac 1370 195f01f163f3
0x15ac…15c0 1380 IF ELEMENT var(M$) ( var(J%) ) [] ELEMENT var(G$) ( var(I%) ) [] <> COMMA 0 16 20
0x15c0…15dc 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
0x15dc…15df 1400 GOTO var(P1) 21
0x15df…15e2 1410 1a5ff3
0x15e2…15e9 1430 PRINT = ( 7 ) → aff3
0x15e9…1630 1440 PRINT » *** Kjentpunkt nr. : « SEMI ELEMENT var(G$) ( var(I%) ) [] SEMI »- ikke observert ***« EOS
0x1630…1633 1550 1a64f3
0x1633…1635 1560 PRINT EOS
0x1635…1637 1570 PRINT EOS
0x1637…165f 1800 REM STARTS COMPUTING PROVISIONAL VALUES
0x165f…1665 1830 196401f166f3
0x1665…166f 1850 LET var(K%) COMMA ELEMENT var(I0%') ( var(I%) ) [] EOS
0x166f…1677 1855 IF var(K%) 0 EQ COMMA 0 var(S5)
0x1677…16a7 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)
0x16a7…16ea 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
0x16ea…173f 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
0x173f…1770 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
0x1770…17a1 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
0x17a1…17d2 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
0x17d2…1803 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
0x1803…1806 1940 1a64f3
0x1806…1830 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
0x1830…186a 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
0x186a…18a4 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
0x18a4…18d2 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
0x18d2…1900 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
0x1900…1917 2100 REM IF F0<>0 THEN 2200
0x1917…192c 2102 REM AXIS ORIENTATION
0x192c…1967 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
0x1967…19a2 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
0x19a2…19ce 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
0x19ce…19fa 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
0x19fa…1a0f 2109 LET ELEMENT var(S') ( 1 ) [] COMMA 0 COMMA ELEMENT var(S') ( 2 ) [] COMMA 0 EOS
0x1a0f…1a15 2110 196401f166f3
0x1a15…1a1f 2115 LET var(K%) COMMA ELEMENT var(I0%') ( var(I%) ) [] EOS
0x1a1f…1a27 2120 IF var(K%) 0 EQ COMMA 0 var(FNT) 33
0x1a27…1a57 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
0x1a57…1a8f 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
0x1a8f…1ac7 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
0x1ac7…1afd 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
0x1afd…1b33 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
0x1b33…1b36 2160 1a64f3
0x1b36…1b4c 2170 IF ELEMENT var(S') ( 1 ) [] ELEMENT var(S') ( 2 ) [] ?< COMMA 27 var(F0) COMMA 1 EOS
0x1b4c…1b78 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
0x1b78…1b88 2200 LET var(S1) COMMA = ( var(A) 2 POW var(B) 2 POW PLUS ) SQR EOS
0x1b88…1b92 2205 LET var(A) COMMA = ( var(B) var(A) ) var(FNT) EOS
0x1b92…1b98 2210 196401f102f3
0x1b98…1baf 2220 LET ELEMENT var(R1') ( var(I%) var(I%) ) [] COMMA = ( var(A) ) → a867736401e374e6e4f3
0x1baf…1bd2 2230 LET ELEMENT var(R1') ( var(I%) 3 var(I%) SUB2 ) [] COMMA = ( var(A) ) → a9736e81000000000000817464e6e46764e6e4f3
0x1bd2…1bd5 2240 1a64f3
0x1bd5…1be0 2250 LET ELEMENT var(R1') ( 3 3 ) [] COMMA 1 EOS
0x1be0…1bee 2300 REM LEVELLING
0x1bee…1bf7 2310 DIM ELEMENT var(S') ( 11 ) [] EOS
0x1bf7…1bfd 2320 196401f166f3
0x1bfd…1c07 2340 LET var(K%) COMMA ELEMENT var(I0%') ( var(I%) ) [] EOS
0x1c07…1c25 2360 IF var(K%) 0 EQ = ( ELEMENT var(G') ( 3 var(I%) ) [] ) ?ABS 1e-10 ?< OR COMMA 0 var(Y1)
0x1c25…1c53 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
0x1c53…1c56 2400 GOSUB → 8063
0x1c56…1cb0 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
0x1cb0…1d07 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
0x1d07…1d58 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
0x1d58…1d5b 2440 1a64f3
0x1d5b…1dc7 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
0x1dc7…1e0f 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
0x1e0f…1e5f 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
0x1e5f…1ea6 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
0x1ea6…1ef6 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
0x1ef6…1f29 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
0x1f29…1f2f 2490 LET var(C) COMMA 0 EOS
0x1f2f…1f32 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@
«
0x1f32…1f38 2700 LET var(N9%) COMMA 0 EOS
0x1f38…1f4d 2710 REM ITERATION STARTS
0x1f4d…1f56 2720 DIM ELEMENT var(N') ( 8 8 ) [] EOS
0x1f56…1f69 2730 LET var(N9%) COMMA var(N9%) 1 PLUS COMMA var(S0) COMMA 0 COMMA var(S5) COMMA 0 EOS
0x1f69…1fa8 2740 PRINT = ( 15 ) → b5f2701e3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d20204954455241534a4f4e204e5220f2400af2701120203d3d3d3d3d3d3d3d3d3d3d3d3d3d3df3
0x1fa8…1fae 2760 196401f166f3
0x1fae…1fb9 2770 LET var(N1%) COMMA ELEMENT var(I0%') ( var(I%) ) [] EOS
0x1fb9…1fc2 2780 IF var(N1%) 0 EQ COMMA 0 32 48
0x1fc2…1ff3 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
0x1ff3…1ff6 2810 GOSUB → 8063
0x1ff6…1ffc 2820 196b01f103f3
0x1ffc…2016 2840 IF = ( ELEMENT var(G') ( var(K%) var(I%) ) [] ) ?ABS 1e-10 ?< COMMA 0 16 48
0x2016…2045 2850 LET var(I3%) COMMA 2 = ( var(K%) 2 DIV 0.2 PLUS ) → a1e3f14036f10471736b02e56e0700000000000080e274a1e3f3
0x2045…205d 2890 LET ELEMENT var(F') ( var(K%) ) [] COMMA 1 COMMA ELEMENT var(F') ( 4 ) [] COMMA ELEMENT var(X') ( var(K%) ) [] EOS
0x205d…2072 2900 LET ELEMENT var(F') ( var(I3%) ) [] COMMA 0 COMMA ELEMENT var(F') ( var(J3%) ) [] COMMA 0 EOS
0x2072…209d 2910 LET ELEMENT var(F') ( 4 var(I3%) PLUS ) [] COMMA -2 ELEMENT var(X') ( var(J3%) ) [] MULT ( -1 ) var(K%) POW MULT EOS
0x209d…20c0 2920 LET ELEMENT var(F') ( 4 var(J3%) PLUS ) [] COMMA 2 ELEMENT var(X') ( var(I3%) ) [] MULT ( -1 ) var(K%) POW MULT EOS
0x20c0…20cc 2930 LET ELEMENT var(F') ( var(K%) 4 PLUS ) [] COMMA 0 EOS
0x20cc…20ea 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
0x20ea…20ed 2990 GOSUB → 9056
0x20ed…20f6 3000 LET var(S0) COMMA var(S0) 1 PLUS EOS
0x20f6…20f9 3010 1a6bf3
0x20f9…20fc 3020 1a64f3
0x20fc…20ff 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«
0x20ff…2105 3060 196401f103f3
0x2105…211c 3070 LET ELEMENT var(T0') ( var(I%) ) [] COMMA ELEMENT var(T0') ( var(I%) ) [] ELEMENT var(N') ( 8 var(I%) ) [] PLUS EOS
0x211c…211f 3080 1a64f3
0x211f…2132 3090 LET var(S1) COMMA var(S1) ( 1 ELEMENT var(N') ( 8 4 ) [] PLUS ) MULT EOS
0x2132…2152 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
0x2152…2155 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«
0x2155…215e 3140 IF var(N9%) 5 > COMMA 0 → 8031
0x215e…2172 3150 IF = ( var(A) ) ?ABS 5e-06 > COMMA 0 16 39
0x2172…2186 3160 IF = ( var(B) ) ?ABS 5e-06 > COMMA 0 16 39
0x2186…219b 3170 IF = ( var(C) ) ?ABS 5e-06 > COMMA 0 16 39
0x219b…21be 3180 REM TRANSFORMATION ELEMENTS SOLVED
0x21be…21c1 3181 GOSUB 32 var(I0%')
0x21c1…21e1 3182 LET var(A) COMMA = ( ELEMENT var(R1') ( 1 3 ) [] ELEMENT var(R1') ( 3 3 ) [] ) var(FNT) 63.662 MULT EOS
0x21e1…220a 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
0x220a…222d 3230 LET var(C) COMMA = ( ELEMENT var(R1') ( 2 1 ) [] var(F0) ELEMENT var(R1') ( 2 2 ) [] MULT ) var(FNT) 63.662 MULT EOS
0x222d…2249 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$)
0x2249…2252 3270 LET var(S2) COMMA var(S1) var(M0) MULT EOS
0x2252…2255 3410 GOSUB → 8064
0x2255…2282 3430 LET var(X$) COMMA »*** TRANSFORMASJONS-ELEMENTER ***« EOS
0x2282…228b 3432 PRINT = ( 18 ) → b5f241f3
0x228b…2297 3440 PRINT 5# SEMI = ( 18 ) → b5f241f3
0x2297…2299 3450 PRINT EOS
0x2299…22a1 3460 PRINT 5# SEMI » « EOS
0x22a1…22da 3470 LET ELEMENT var(X$) ( 1 46 ) [] COMMA » CX CY CZ M.STOKK« EOS
0x22da…2308 3490 LET ELEMENT var(X$) ( 47 %78 ) [] COMMA » PHI OMEGA KAPPA LOOPS« EOS
0x2308…230e 3492 PRINT 5# SEMI var(X$) EOS
0x230e…2311 3500 PRINT var(X$) EOS
0x2311…2345 3510 LET ELEMENT var(T$) ( 1 40 ) [] COMMA »########.DD ########.DD ########.DD ####« EOS
0x2345…2378 3520 LET ELEMENT var(T$) ( 41 %77 ) [] COMMA »##.DD ###.#### ###.#### ###.#### ##« EOS
0x2378…239e 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
0x239e…23c7 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
0x23c7…23d4 3580 IF ( var(S0) 7 SUB2 ) 0 → e9f1006037
0x23d4…23eb 3590 LET var(S5) COMMA = ( ELEMENT var(N') ( 8 8 ) [] ( var(S0) 7 SUB2 ) DIV ) SQR EOS
0x23eb…2417 3760 REM TRANSFORMATION, AND COMPUTING RESIDUALS
0x2417…2422 3765 SYSTEM »WARNOFF« EOS
0x2422…2429 3770 19401b01f103f3
0x2429…242f 3790 LET var(J5%) COMMA 1 EOS
0x242f…243d 3800 IF var(I5%) 2 EQ COMMA 27 var(J5%) COMMA var(G1%) 1 PLUS EOS
0x243d…2443 3820 LET var(K5%) COMMA var(G1%) EOS
0x2443…244f 3830 IF var(I5%) 2 EQ COMMA 27 var(K5%) COMMA var(G0%) EOS
0x244f…245b 3840 IF var(I5%) 3 EQ COMMA 27 var(K5%) COMMA var(N0%) EOS
0x245b…2471 3845 IF var(J5%) var(K5%) > ( var(I5%) 3 EQ var(I8%) 0 EQ AND ) OR COMMA 0 0 var(N')
0x2471…2477 3850 196401f103f3
0x2477…248b 3860 LET ELEMENT var(V1') ( var(I%) ) [] COMMA 0 COMMA ELEMENT var(T7') ( var(I%) ) [] COMMA 0 EOS
0x248b…248e 3890 1a64f3
0x248e…24a6 3970 REM ----- HEADING -----
0x24a6…24d8 3980 LET var(T$) COMMA » NR X Y Z VX« EOS
0x24d8…2506 4000 LET ELEMENT var(T$) ( 45 %76 ) [] COMMA » VY VZ SX SY SZ« EOS
0x2506…2512 4020 ON var(I5%) COMMA 0 48 var(A0x60) var(A0x80) var(X$) EOS
0x2512…254e 4030 LET var(X$) COMMA » KJENTE PUNKT BRUKT UNDER TRANSFORMASJONEN« EOS
0x254e…2551 4040 GOTO 48 var(Q4$)
0x2551…2592 4060 LET var(X$) COMMA » KJENTE PUNKT IKKE BRUKT UNDER TRANSFORMASJONEN« EOS
0x2592…2595 4140 GOTO 48 var(Q4$)
0x2595…25d2 4180 LET var(X$) COMMA » OBSERVERTE, IKKE KJENTE PUNKT TRANSFORMERT« EOS
0x25d2…25df 4225 LET ELEMENT var(T$) ( 42 60 ) [] COMMA » « EOS
0x25df…25e5 4230 LET var(P7%) COMMA 4 EOS
0x25e5…25e8 4235 GOSUB → 8064
0x25e8…25eb 4240 PRINT var(X$) EOS
0x25eb…25f1 4244 PRINT 5# SEMI var(X$) EOS
0x25f1…25f3 4246 PRINT EOS
0x25f3…25fb 4248 PRINT 5# SEMI » « EOS
0x25fb…25fe 4250 PRINT var(T$) EOS
0x25fe…2604 4255 PRINT 5# SEMI var(T$) EOS
0x2604…262f 4257 LET ELEMENT var(T$) ( 1 31 ) [] COMMA » #######D.DD ######D.DD ###D.DD« EOS
0x262f…2664 4258 LET ELEMENT var(T$) ( 32 %70 ) [] COMMA » ##D.DD ##D.DD ##D.DD #D.DD #D.DD #D.DD« EOS
0x2664…267f 4259 LET var(X$) COMMA » « EOS
0x267f…268b 4260 IF var(I5%) 3 ?< COMMA 27 var(X$) COMMA »« EOS
0x268b…26b3 4262 LET var(R5) COMMA var(S5) COMMA var(S2) COMMA var(S5) COMMA var(G9%) COMMA 1 COMMA var(G6%) COMMA 1 COMMA var(G7%) COMMA 1 COMMA var(G8%) COMMA 1 COMMA var(M5) COMMA var(M5) var(S1) MULT EOS
0x26b3…26c6 4265 IF var(M5) 1e-06 > COMMA 27 var(S2) COMMA var(M5) EOS
0x26c6…26de 4268 IF var(M5) 1e-06 > var(I5%) 1 > AND COMMA 27 var(R5) COMMA var(M5) EOS
0x26de…26f2 4270 IF var(I5%) 1 EQ COMMA 27 var(G9%) COMMA -1 EOS
0x26f2…26ff 4275 LET var(G6%) COMMA var(G7%) var(G8%) EQ var(G9%) EQ EOS
0x26ff…271c 4280 REM --- TRANSFORMATION ---
0x271c…2724 4290 1964401df1401ef3
0x2724…272f 4295 LET var(N%) COMMA ELEMENT var(I0%') ( var(I%) ) [] EOS
0x272f…2741 4297 IF var(I5%) 3 EQ COMMA 27 var(N%) COMMA ELEMENT var(I3%') ( var(I%) ) [] EOS
0x2741…274a 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\x03@\x1b«soh»\xea\xf1\x00@D\x1b@F\xf1@G@H\xe7@#\xe7\xf3\x03qsrXs«soh»dt\x9ft\xa2n«soh»\x00\x00«
0x274a…2750 4310 195f01f103f3
0x2750…2761 4320 LET ELEMENT var(X') ( var(J%) ) [] COMMA ELEMENT var(M') ( var(J%) var(N%) ) [] EOS
0x2761…2764 4340 1a5ff3
0x2764…2767 4360 GOSUB → 8063
0x2767…2775 4400 IF var(R5) 0 EQ var(S2) 0 EQ AND COMMA 0 37 var(T')
0x2775…277e 4405 IF var(I5%) 1 > COMMA 0 var(I9)
0x277e…278b 4410 LET var(G6%) COMMA var(G7%) var(G8%) EQ var(G9%) EQ EOS
0x278b…27b0 4415 IF = ( ELEMENT var(G') ( 1 var(I%) ) [] ) ?ABS 1e-10 ?< COMMA 27 var(G6%) COMMA 1 EOS
0x27b0…27d5 4420 IF = ( ELEMENT var(G') ( 2 var(I%) ) [] ) ?ABS 1e-10 ?< COMMA 27 var(G7%) COMMA 1 EOS
0x27d5…27fa 4423 IF = ( ELEMENT var(G') ( 3 var(I%) ) [] ) ?ABS 1e-10 ?< COMMA 27 var(G8%) COMMA 1 EOS
0x27fa…283d 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
0x283d…288e 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
0x288e…28c1 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
0x28c1…28eb 4470 LET ELEMENT var(X2') ( 1 ) [] COMMA = ( var(R5) var(R5) MULT ( var(Y1) 4 ( var(Y2) var(Y3) PLUS ) MULT PLUS ) MULT var(G6%) MULT var(S2) 2 POW PLUS ) SQR EOS
0x28eb…292e 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
0x292e…297f 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
0x297f…29b1 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
0x29b1…29db 4510 LET ELEMENT var(X2') ( 2 ) [] COMMA = ( var(R5) var(R5) MULT ( var(Y1) 4 ( var(Y2) var(Y3) PLUS ) MULT PLUS ) MULT var(G7%) MULT var(S2) 2 POW PLUS ) SQR EOS
0x29db…2a1e 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
0x2a1e…2a6f 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
0x2a6f…2aa1 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
0x2aa1…2acb 4550 LET ELEMENT var(X2') ( 3 ) [] COMMA = ( var(R5) var(R5) MULT ( var(Y1) 4 ( var(Y2) var(Y3) PLUS ) MULT PLUS ) MULT var(G8%) MULT var(S2) 2 POW PLUS ) SQR EOS
0x2acb…2ae5 4625 REM ***** PRINTING STARTS
0x2ae5…2b25 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
0x2b25…2b68 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
0x2b68…2b71 4640 IF var(I5%) 3 EQ COMMA 0 var(P1) var(R')
0x2b71…2b77 4670 195f01f103f3
0x2b77…2b91 4680 IF = ( ELEMENT var(G') ( var(J%) var(I%) ) [] ) ?ABS 1e-10 ?< COMMA 0 48 var(T0')
0x2b91…2bd0 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
0x2bd0…2bde 4770 PRINT USING ELEMENT var(T$) ( 6 12 ) [] COMMA var(V) SEMI EOS
0x2bde…2bef 4800 PRINT 5# SEMI USING ELEMENT var(T$) ( 6 12 ) [] COMMA var(V) SEMI EOS
0x2bef…2bf2 4810 GOTO var(P1) var(T0')
0x2bf2…2bfe 4830 PRINT » « SEMI EOS
0x2bfe…2c0d 4840 PRINT 5# SEMI » « SEMI EOS
0x2c0d…2c10 4850 1a5ff3
0x2c10…2c1e 5150 IF var(R5) 0 EQ var(S2) 0 EQ AND COMMA 0 var(M0) var(R')
0x2c1e…2c47 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
0x2c47…2c73 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
0x2c73…2c75 5168 PRINT EOS
0x2c75…2c7d 5169 PRINT 5# SEMI » « EOS
0x2c7d…2c80 5170 1a64f3
0x2c80…2c89 5180 IF var(I5%) 3 EQ COMMA 0 0 var(N')
0x2c89…2ca0 5190 LET var(T$) COMMA »####.DDD ####.DDD« EOS
0x2ca0…2ca2 5193 PRINT EOS
0x2ca2…2caa 5195 PRINT 5# SEMI » « EOS
0x2caa…2cb0 5200 196401f103f3
0x2cb0…2cc1 5210 IF var(I%) 3 ?< COMMA 27 var(A) COMMA ELEMENT var(T7') ( var(I%) ) [] 2 SUB2 EOS
0x2cc1…2cd2 5220 IF var(I%) 3 EQ COMMA 27 var(A) COMMA ELEMENT var(T7') ( var(I%) ) [] 3 SUB2 EOS
0x2cd2…2ce2 5230 IF var(I5%) 2 EQ COMMA 27 var(A) COMMA ELEMENT var(T7') ( var(I%) ) [] EOS
0x2ce2…2cea 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«
0x2cea…2d0d 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
0x2d0d…2d33 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
0x2d33…2d36 5270 1a64f3
0x2d36…2d38 5310 PRINT EOS
0x2d38…2d40 5320 PRINT 5# SEMI » « EOS
0x2d40…2d52 5330 IF var(I5%) 2 EQ ( var(S0) 7 SUB2 ) 0 → e9eef1000054
0x2d52…2d7a 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
0x2d7a…2d7c 5350 PRINT EOS
0x2d7c…2d84 5360 PRINT 5# SEMI » « EOS
0x2d84…2db1 5370 LET var(X$) COMMA » MIDDELFEIL PA VEKTS-ENHETEN : « EOS
0x2db1…2dbc 5372 PRINT var(X$) SEMI USING var(T$) COMMA var(A) COMMA var(S5) EOS
0x2dbc…2dca 5380 PRINT 5# SEMI var(X$) SEMI USING var(T$) COMMA var(A) COMMA var(S5) EOS
0x2dca…2dce 5400 1a401bf3
0x2dce…2dde 5460 1604f2700a5452414e532e44415441f3
0x2dde…2de5 5470 19402a01f103f3
0x2de5…2df1 5480 PRINT 4# SEMI ELEMENT var(T0') ( var(I9%) ) [] EOS
0x2df1…2df5 5490 1a402af3
0x2df5…2dfc 5500 19402a01f103f3
0x2dfc…2e0c 5510 PRINT 4# SEMI ELEMENT var(R1') ( var(I9%) 1 ) [] var(S1) MULT EOS
0x2e0c…2e1c 5520 PRINT 4# SEMI ELEMENT var(R1') ( var(I9%) 2 ) [] var(S1) MULT EOS
0x2e1c…2e2e 5530 PRINT 4# SEMI ELEMENT var(R1') ( var(I9%) 3 ) [] var(S1) MULT var(Z1) DIV EOS
0x2e2e…2e32 5532 1a402af3
0x2e32…2e34 5533 PRINT EOS
0x2e34…2e76 5534 PRINT »Hvis resultatet ikke er tilfredsstillende kontroler Z1 i TRANS« EOS
0x2e76…2eb4 5535 PRINT »Z1 findes i linie 7 husk at resave efter rettelser i TRANS« EOS
0x2eb4…2ee8 5536 PRINT »Eks. gearhjul 50/50 Z1=1 66/33 Z1=2 33/66 Z1=0.5« EOS
0x2ee8…2eea 5538 PRINT EOS
0x2eea…2eec 5541 PRINT EOS
0x2eec…2ef5 5542 DIM ELEMENT var(A$) ( 1 ) [] EOS
0x2ef5…2f33 5543 PRINT »TRANSFORMATION OK? J/N ELLER UDSKRIFT P] PRINTER (SKRIV P)« EOS
0x2f33…2f37 5544 INPUT var(A$) EOS
0x2f37…2f42 5545 IF var(A$) »J« EQ COMMA 0 var(V') var(Q1')
0x2f42…2f53 5546 IF var(A$) »N« EQ COMMA 24 »INDAT« EOS
0x2f53…2f5e 5547 IF var(A$) »P« EQ COMMA 0 → 9999
0x2f5e…2f61 5548 2005f3
0x2f61…2f63 5550 14f3
0x2f63…2f66 5560 GOTO 48 var(G0%)
0x2f66…2f81 5690 REM BUILD NORMAL EQUATIONS
0x2f81…2f88 5700 19402a01f108f3
0x2f88…2f96 5705 IF ELEMENT var(F') ( var(I9%) ) [] 0 EQ COMMA 0 var(A0x57)
0x2f96…2f9e 5710 19402b402af108f3
0x2f9e…2fc3 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
0x2fc3…2fc7 5730 1a402bf3
0x2fc7…2fcb 5740 1a402af3
0x2fcb…2fcd 5750 RETURN EOS
0x2fcd…2fe8 5770 REM SOLVE NORMAL EQUATIONS
0x2fe8…2fef 5800 19402c01f107f3
0x2fef…3011 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
0x3011…3019 5820 19402a4028f108f3
0x3019…302a 5830 LET var(S9) COMMA ELEMENT var(N') ( var(K9%) var(I9%) ) [] var(T9) DIV EOS
0x302a…3033 5835 IF var(S9) 0 EQ COMMA 0 → 8058
0x3033…303a 5840 19402b01f108f3
0x303a…304a 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«
0x304a…306c 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
0x306c…3070 5870 1a402bf3
0x3070…3074 5880 1a402af3
0x3074…3082 5890 LET ELEMENT var(N') ( var(K9%) var(K9%) ) [] COMMA var(T9) EOS
0x3082…3086 5900 1a402cf3
0x3086…3088 5910 RETURN EOS
0x3088…30aa 5915 REM SOLVE FOR WEIGHT COEFFISIENTS
0x30aa…30bb 5920 19402a07f101f16e8100000000000081f3
0x30bb…30d5 5930 LET var(T9) COMMA ELEMENT var(N') ( var(I9%) var(I9%) ) [] COMMA ELEMENT var(N') ( var(I9%) var(I9%) ) [] COMMA 1 EOS
0x30d5…30dd 5940 19402c01f1402af3
0x30dd…30eb 5950 LET var(S9) COMMA ELEMENT var(N') ( var(I9%) var(K9%) ) [] EOS
0x30eb…30f4 5960 IF var(I9%) 7 EQ COMMA 0 0 var(FNT)
0x30f4…30fe 5970 19402b402a01e2f107f3
0x30fe…3119 5980 LET var(S9) COMMA var(S9) ELEMENT var(N') ( var(I9%) var(J9%) ) [] ELEMENT var(N') ( var(J9%) var(K9%) ) [] MULT SUB2 EOS
0x3119…311d 5990 1a402bf3
0x311d…312e 6000 LET ELEMENT var(N') ( var(I9%) var(K9%) ) [] COMMA var(S9) var(T9) DIV EOS
0x312e…3132 6010 1a402cf3
0x3132…3136 6020 1a402af3
0x3136…3138 6120 RETURN EOS
0x3138…3153 6170 REM UPDATE ROTATION MATRIX
0x3153…316b 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
0x316b…3189 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
0x3189…31a0 6200 LET ELEMENT var(R') ( 1 2 ) [] COMMA 2 ( var(A) var(B) MULT var(C) SUB2 ) MULT var(R0) MULT EOS
0x31a0…31b7 6210 LET ELEMENT var(R') ( 1 3 ) [] COMMA 2 ( var(A) var(C) MULT var(B) PLUS ) MULT var(R0) MULT EOS
0x31b7…31ce 6220 LET ELEMENT var(R') ( 2 1 ) [] COMMA 2 ( var(A) var(B) MULT var(C) PLUS ) MULT var(R0) MULT EOS
0x31ce…31ec 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
0x31ec…3203 6240 LET ELEMENT var(R') ( 2 3 ) [] COMMA 2 ( var(B) var(C) MULT var(A) SUB2 ) MULT var(R0) MULT EOS
0x3203…321a 6250 LET ELEMENT var(R') ( 3 1 ) [] COMMA 2 ( var(A) var(C) MULT var(B) SUB2 ) MULT var(R0) MULT EOS
0x321a…3231 6260 LET ELEMENT var(R') ( 3 2 ) [] COMMA 2 ( var(B) var(C) MULT var(A) PLUS ) MULT var(R0) MULT EOS
0x3231…324f 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
0x324f…3256 6290 19402b01f103f3
0x3256…325d 6300 19402a01f103f3
0x325d…3271 6310 LET ELEMENT var(S9') ( var(I9%) ) [] COMMA ELEMENT var(R1') ( var(I9%) var(J9%) ) [] EOS
0x3271…3275 6320 1a402af3
0x3275…327c 6330 19402a01f103f3
0x327c…32ba 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
0x32ba…32be 6350 1a402af3
0x32be…32c2 6360 1a402bf3
0x32c2…32c4 6370 RETURN EOS
0x32c4…32dc 6380 REM TRANSFORM ONE POINT
0x32dc…32e3 6390 19402a01f103f3
0x32e3…32f5 6400 LET ELEMENT var(S9') ( var(I9%) ) [] COMMA ELEMENT var(X') ( var(I9%) ) [] EOS
0x32f5…32f9 6410 1a402af3
0x32f9…3300 6420 19402a01f103f3
0x3300…3341 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
0x3341…3345 6440 1a402af3
0x3345…3347 6450 RETURN EOS
0x3347…335a 6480 REM PRINT LINEFEED
0x335a…3361 6482 196401f14020f3
0x3361…3363 6490 PRINT EOS
0x3363…336b 6500 PRINT 5# SEMI » « EOS
0x336b…336e 6510 1a64f3
0x336e…3370 6520 RETURN EOS
0x3370…3376 6530 REM C
0x3376…3381 9700 PRINT = ( 27 ) → af700145e2f3
0x3381…338c 9710 CHAIN »DIG.NEW« EOS
0x338c…338d 9999 END