|
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: 10426 (0x28ba)
Notes: ZILOG_BASIC
Names: »INDAT.AER.BP«
└─⟦70e1b4124⟧ Bits:30006818 8" ZilogMCZ floppy NThun_0020 (21/5-82 MAPDAT AEROTRIANGULERING COPYRIGHT VIAK A/S)
└─ ⟦this⟧ »INDAT.AER.BP«
0x0000…0014 BasicHead {variables=0x00dc, stms=0x0690, f2=0x213a, f3=0000000000000000000000000000}
0x0014…00f0 [
0x0014…00f0 [0x00]: VarDef {f0=0xffda, f1=0x44, f2=0x19} Z4 0x36
0x0014…00f0 [0x01]: VarDef {f0=0xc501, f1=0x44, f2=0x18} Y4 0x35
0x0014…00f0 [0x02]: VarDef {f0=0x088c, f1=0x44, f2=0x17} X4 0x34
0x0014…00f0 [0x03]: VarDef {f0=0x08a4, f1=0x09, f2=0x00} A9 0x33
0x0014…00f0 [0x04]: VarDef {f0=0x089c, f1=0x08, f2=0x00} A8 0x32
0x0014…00f0 [0x05]: VarDef {f0=0x0894, f1=0x07, f2=0x00} A7 0x31
0x0014…00f0 [0x06]: VarDef {f0=0x088c, f1=0x06, f2=0x00} A6 0x30
0x0014…00f0 [0x07]: VarDef {f0=0x0884, f1=0x05, f2=0x00} A5 0x2f
0x0014…00f0 [0x08]: VarDef {f0=0x087c, f1=0x04, f2=0x00} A4 0x2e
0x0014…00f0 [0x09]: VarDef {f0=0x0874, f1=0x03, f2=0x00} A3 0x2d
0x0014…00f0 [0x0a]: VarDef {f0=0x086c, f1=0x02, f2=0x00} A2 0x2c
0x0014…00f0 [0x0b]: VarDef {f0=0x0864, f1=0x01, f2=0x00} A1 0x2b
0x0014…00f0 [0x0c]: VarDef {f0=0x085c, f1=0x03, f2=0x02} C3 0x2a
0x0014…00f0 [0x0d]: VarDef {f0=0x0854, f1=0x02, f2=0x02} C2 0x29
0x0014…00f0 [0x0e]: VarDef {f0=0x084c, f1=0x01, f2=0x02} C1 0x28
0x0014…00f0 [0x0f]: VarDef {f0=0x0000, f1=0x41, f2=0x24} E1% 0x27
0x0014…00f0 [0x10]: VarDef {f0=0xffff, f1=0x41, f2=0x39} Z1% 0x26
0x0014…00f0 [0x11]: VarDef {f0=0x0000, f1=0x41, f2=0x38} Y1% 0x25
0x0014…00f0 [0x12]: VarDef {f0=0x0000, f1=0x41, f2=0x37} X1% 0x24
0x0014…00f0 [0x13]: VarDef {f0=0x0000, f1=0x4f, f2=0x24} E% 0x23
0x0014…00f0 [0x14]: VarDef {f0=0xffff, f1=0x4f, f2=0x39} Z% 0x22
0x0014…00f0 [0x15]: VarDef {f0=0x0000, f1=0x4f, f2=0x38} Y% 0x21
0x0014…00f0 [0x16]: VarDef {f0=0x0100, f1=0x4f, f2=0x37} X% 0x20
0x0014…00f0 [0x17]: VarDef {f0=0x0300, f1=0x4f, f2=0x20} A% 0x1f
0x0014…00f0 [0x18]: VarDef {f0=0x0874, f1=0x4f, f2=0x19} Z 0x1e
0x0014…00f0 [0x19]: VarDef {f0=0x086c, f1=0x4f, f2=0x18} Y 0x1d
0x0014…00f0 [0x1a]: VarDef {f0=0x0864, f1=0x4f, f2=0x17} X 0x1c
0x0014…00f0 [0x1b]: VarDef {f0=0x0000, f1=0x46, f2=0x32} S6% 0x1b
0x0014…00f0 [0x1c]: VarDef {f0=0x0500, f1=0x4f, f2=0x2a} K% 0x1a
0x0014…00f0 [0x1d]: VarDef {f0=0x0300, f1=0x4f, f2=0x29} J% 0x19
0x0014…00f0 [0x1e]: VarDef {f0=0x0100, f1=0x4f, f2=0x28} I% 0x18
0x0014…00f0 [0x1f]: VarDef {f0=0x0200, f1=0x4f, f2=0x2b} L% 0x17
0x0014…00f0 [0x20]: VarDef {f0=0x0000, f1=0x41, f2=0x26} G1% 0x16
0x0014…00f0 [0x21]: VarDef {f0=0x0000, f1=0x40, f2=0x26} G0% 0x15
0x0014…00f0 [0x22]: VarDef {f0=0x0800, f1=0x40, f2=0x2d} N0% 0x14
0x0014…00f0 [0x23]: VarDef {f0=0x08bc, f1=0x09, f2=0x06} G9 0x13
0x0014…00f0 [0x24]: VarDef {f0=0x08b4, f1=0x00, f2=0x0c} M0 0x12
0x0014…00f0 [0x25]: VarDef {f0=0x08ac, f1=0x00, f2=0x05} F0 0x11
0x0014…00f0 [0x26]: VarDef {f0=0x0000, f1=0x00, f2=0x20} A0% 0x10
0x0014…00f0 [0x27]: VarDef {f0=0x0806, f1=0x25, f2=0x86} G5'<2586> 0xf
0x0014…00f0 [0x28]: VarDef {f0=0x05a0, f1=0x2f, f2=0x8f} P'<2f8f> 0xe
0x0014…00f0 [0x29]: VarDef {f0=0x033a, f1=0x2f, f2=0x86} G'<2f86> 0xd
0x0014…00f0 [0x2a]: VarDef {f0=0x00d4, f1=0x2f, f2=0x8c} M'<2f8c> 0xc
0x0014…00f0 [0x2b]: VarDef {f0=0x1300, f1=0x09, f2=0x39} Z9% 0xb
0x0014…00f0 [0x2c]: VarDef {f0=0x00c6, f1=0x02, f2=0x43} D2$ 0xa
0x0014…00f0 [0x2d]: VarDef {f0=0x00bd, f1=0x01, f2=0x43} D1$ 0x9
0x0014…00f0 [0x2e]: VarDef {f0=0x00b6, f1=0x0f, f2=0x43} D$ 0x8
0x0014…00f0 [0x2f]: VarDef {f0=0x00a8, f1=0x0f, f2=0x4d} N$ 0x7
0x0014…00f0 [0x30]: VarDef {f0=0x0054, f1=0x0f, f2=0x53} T$ 0x6
0x0014…00f0 [0x31]: VarDef {f0=0x0000, f1=0x0f, f2=0x4f} P$ 0x5
0x0014…00f0 [0x32]: VarDef {f0=0x0230, f1=0x4f, f2=0x02} C 0x4
0x0014…00f0 [0x33]: VarDef {f0=0x0210, f1=0x43, f2=0x22} C3% 0x3
0x0014…00f0 [0x34]: VarDef {f0=0x0150, f1=0x42, f2=0x22} C2% 0x2
0x0014…00f0 [0x35]: VarDef {f0=0x0102, f1=0x41, f2=0x22} C1% 0x1
0x0014…00f0 [0x36]: VarDef {f0=0xeff7, f1=0x1f, f2=0x22} FNC% 0x0
0x0014…00f0 ]
0x00f0…00f4 Statement 37200 @0x28b8
0x00f4…00f8 Statement 37184 @0x28b5
0x00f8…00fc Statement 37168 @0x28ae
0x00fc…0100 Statement 37152 @0x28a7
0x0100…0104 Statement 37136 @0x28a0
0x0104…0108 Statement 37120 @0x2899
0x0108…010c Statement 37008 @0x2892
0x010c…0110 Statement 36992 @0x288b
0x0110…0114 Statement 36976 @0x2884
0x0114…0118 Statement 36960 @0x287e
0x0118…011c Statement 36944 @0x2878
0x011c…0120 Statement 36928 @0x2872
0x0120…0124 Statement 36912 @0x286c
0x0124…0128 Statement 36896 @0x2866
0x0128…012c Statement 36880 @0x2855
0x012c…0130 Statement 36864 @0x2840
0x0130…0134 Statement 33328 @0x283e
0x0134…0138 Statement 33312 @0x282e
0x0138…013c Statement 33296 @0x2819
0x013c…0140 Statement 33280 @0x2804
0x0140…0144 Statement 33168 @0x27f1
0x0144…0148 Statement 33152 @0x27df
0x0148…014c Statement 33136 @0x27bf
0x014c…0150 Statement 33120 @0x27a9
0x0150…0154 Statement 33104 @0x2797
0x0154…0158 Statement 33088 @0x2777
0x0158…015c Statement 33072 @0x2761
0x015c…0160 Statement 33056 @0x274f
0x0160…0164 Statement 33040 @0x272f
0x0164…0168 Statement 33024 @0x2719
0x0168…016c Statement 32848 @0x26fd
0x016c…0170 Statement 32772 @0x26f8
0x0170…0174 Statement 32768 @0x26ca
0x0174…0178 Statement 24688 @0x26c7
0x0178…017c Statement 24681 @0x26c4
0x017c…0180 Statement 24680 @0x26b7
0x0180…0184 Statement 24679 @0x26b3
0x0184…0188 Statement 24678 @0x26a6
0x0188…018c Statement 24677 @0x26a2
0x018c…0190 Statement 24676 @0x2695
0x0190…0194 Statement 24675 @0x268a
0x0194…0198 Statement 24674 @0x267f
0x0198…019c Statement 24673 @0x2674
0x019c…01a0 Statement 24661 @0x265b
0x01a0…01a4 Statement 24656 @0x264e
0x01a4…01a8 Statement 24645 @0x2637
0x01a8…01ac Statement 24641 @0x262a
0x01ac…01b0 Statement 24640 @0x261b
0x01b0…01b4 Statement 24629 @0x25ff
0x01b4…01b8 Statement 24627 @0x25fe
0x01b8…01bc Statement 24626 @0x25fb
0x01bc…01c0 Statement 24625 @0x25f4
0x01c0…01c4 Statement 24624 @0x25e9
0x01c4…01c8 Statement 24609 @0x25e2
0x01c8…01cc Statement 24595 @0x25d5
0x01cc…01d0 Statement 24594 @0x25d2
0x01d0…01d4 Statement 24593 @0x25c9
0x01d4…01d8 Statement 24592 @0x25bc
0x01d8…01dc Statement 24581 @0x25b5
0x01dc…01e0 Statement 24580 @0x2572
0x01e0…01e4 Statement 24579 @0x2567
0x01e4…01e8 Statement 24576 @0x2539
0x01e8…01ec Statement 22937 @0x2536
0x01ec…01f0 Statement 21376 @0x2529
0x01f0…01f4 Statement 21360 @0x2509
0x01f4…01f8 Statement 21344 @0x24e9
0x01f8…01fc Statement 21248 @0x24c9
0x01fc…0200 Statement 17232 @0x24c7
0x0200…0204 Statement 17216 @0x24c5
0x0204…0208 Statement 17200 @0x24c2
0x0208…020c Statement 17184 @0x2485
0x020c…0210 Statement 17024 @0x2473
0x0210…0214 Statement 17008 @0x2464
0x0214…0218 Statement 16992 @0x2436
0x0218…021c Statement 16976 @0x2425
0x021c…0220 Statement 16960 @0x2416
0x0220…0224 Statement 16944 @0x23e8
0x0224…0228 Statement 16928 @0x23db
0x0228…022c Statement 16912 @0x23cb
0x022c…0230 Statement 16896 @0x23b8
0x0230…0234 Statement 16784 @0x23ab
0x0234…0238 Statement 16768 @0x23a2
0x0238…023c Statement 16752 @0x2374
0x023c…0240 Statement 16736 @0x2361
0x0240…0244 Statement 16720 @0x2354
0x0244…0248 Statement 16704 @0x234b
0x0248…024c Statement 16688 @0x231d
0x024c…0250 Statement 16672 @0x231a
0x0250…0254 Statement 16656 @0x2314
0x0254…0258 Statement 16640 @0x2311
0x0258…025c Statement 16528 @0x230e
0x025c…0260 Statement 16512 @0x2302
0x0260…0264 Statement 16496 @0x22fc
0x0264…0268 Statement 16480 @0x22f6
0x0268…026c Statement 16464 @0x22cd
0x026c…0270 Statement 16448 @0x22b9
0x0270…0274 Statement 16432 @0x22a9
0x0274…0278 Statement 16416 @0x229c
0x0278…027c Statement 16400 @0x2293
0x027c…0280 Statement 16384 @0x2265
0x0280…0284 Statement 14736 @0x2252
0x0284…0288 Statement 14720 @0x2215
0x0288…028c Statement 14704 @0x2213
0x028c…0290 Statement 14688 @0x2211
0x0290…0294 Statement 14672 @0x220f
0x0294…0298 Statement 14656 @0x220d
0x0298…029c Statement 14640 @0x220b
0x029c…02a0 Statement 14624 @0x2208
0x02a0…02a4 Statement 14608 @0x2205
0x02a4…02a8 Statement 14592 @0x2202
0x02a8…02ac Statement 14480 @0x21f6
0x02ac…02b0 Statement 14464 @0x21f0
0x02b0…02b4 Statement 14448 @0x21ea
0x02b4…02b8 Statement 14432 @0x21be
0x02b8…02bc Statement 14416 @0x21aa
0x02bc…02c0 Statement 14400 @0x219c
0x02c0…02c4 Statement 14384 @0x2198
0x02c4…02c8 Statement 14368 @0x216a
0x02c8…02cc Statement 14352 @0x213c
0x02cc…02d0 Statement 14336 @0x213a
0x02d0…02d4 Statement 14224 @0x2137
0x02d4…02d8 Statement 14208 @0x2131
0x02d8…02dc Statement 14192 @0x212e
0x02dc…02e0 Statement 14176 @0x212b
0x02e0…02e4 Statement 14160 @0x211f
0x02e4…02e8 Statement 14144 @0x2119
0x02e8…02ec Statement 14128 @0x2113
0x02ec…02f0 Statement 14112 @0x20f9
0x02f0…02f4 Statement 14096 @0x20e9
0x02f4…02f8 Statement 14080 @0x20e5
0x02f8…02fc Statement 13968 @0x20a3
0x02fc…0300 Statement 13952 @0x2061
0x0300…0304 Statement 13936 @0x205f
0x0304…0308 Statement 13920 @0x205c
0x0308…030c Statement 13904 @0x2059
0x030c…0310 Statement 13888 @0x2056
0x0310…0314 Statement 13872 @0x204a
0x0314…0318 Statement 13856 @0x2044
0x0318…031c Statement 13840 @0x203e
0x031c…0320 Statement 13824 @0x202d
0x0320…0324 Statement 13712 @0x201f
0x0324…0328 Statement 13696 @0x201b
0x0328…032c Statement 13680 @0x1fe1
0x032c…0330 Statement 13664 @0x1fa7
0x0330…0334 Statement 13648 @0x1fa3
0x0334…0338 Statement 13632 @0x1f81
0x0338…033c Statement 13616 @0x1f65
0x033c…0340 Statement 13600 @0x1f62
0x0340…0344 Statement 13584 @0x1f5f
0x0344…0348 Statement 13568 @0x1f4c
0x0348…034c Statement 13456 @0x1f39
0x034c…0350 Statement 13440 @0x1f2a
0x0350…0354 Statement 13424 @0x1f10
0x0354…0358 Statement 13408 @0x1f0a
0x0358…035c Statement 13392 @0x1f07
0x035c…0360 Statement 13376 @0x1efe
0x0360…0364 Statement 13360 @0x1ef1
0x0364…0368 Statement 13344 @0x1eef
0x0368…036c Statement 13328 @0x1ee9
0x036c…0370 Statement 13312 @0x1ec2
0x0370…0374 Statement 13200 @0x1e90
0x0374…0378 Statement 13184 @0x1e8e
0x0378…037c Statement 13168 @0x1e8b
0x037c…0380 Statement 13152 @0x1e5b
0x0380…0384 Statement 13136 @0x1e22
0x0384…0388 Statement 13120 @0x1e10
0x0388…038c Statement 13104 @0x1e02
0x038c…0390 Statement 12944 @0x1df7
0x0390…0394 Statement 12928 @0x1df3
0x0394…0398 Statement 12912 @0x1dec
0x0398…039c Statement 12896 @0x1de9
0x039c…03a0 Statement 12880 @0x1dd5
0x03a0…03a4 Statement 12864 @0x1dc2
0x03a4…03a8 Statement 12848 @0x1db4
0x03a8…03ac Statement 12832 @0x1dad
0x03ac…03b0 Statement 12816 @0x1da2
0x03b0…03b4 Statement 12800 @0x1d6f
0x03b4…03b8 Statement 12688 @0x1d64
0x03b8…03bc Statement 12677 @0x1d61
0x03bc…03c0 Statement 12672 @0x1d56
0x03c0…03c4 Statement 12656 @0x1d52
0x03c4…03c8 Statement 12640 @0x1d4b
0x03c8…03cc Statement 12624 @0x1d48
0x03cc…03d0 Statement 12608 @0x1d34
0x03d0…03d4 Statement 12592 @0x1d21
0x03d4…03d8 Statement 12576 @0x1d12
0x03d8…03dc Statement 12560 @0x1d0b
0x03dc…03e0 Statement 12544 @0x1d00
0x03e0…03e4 Statement 12432 @0x1ccd
0x03e4…03e8 Statement 12416 @0x1cc2
0x03e8…03ec Statement 12400 @0x1cbe
0x03ec…03f0 Statement 12384 @0x1cb7
0x03f0…03f4 Statement 12368 @0x1cb4
0x03f4…03f8 Statement 12357 @0x1cb1
0x03f8…03fc Statement 12352 @0x1ca6
0x03fc…0400 Statement 12336 @0x1c92
0x0400…0404 Statement 12320 @0x1c90
0x0404…0408 Statement 12309 @0x1c8d
0x0408…040c Statement 12304 @0x1c82
0x040c…0410 Statement 12288 @0x1c7f
0x0410…0414 Statement 10640 @0x1c49
0x0414…0418 Statement 10624 @0x1c3e
0x0418…041c Statement 10608 @0x1c31
0x041c…0420 Statement 10592 @0x1c2f
0x0420…0424 Statement 10576 @0x1c09
0x0424…0428 Statement 10560 @0x1bf4
0x0428…042c Statement 10544 @0x1be8
0x042c…0430 Statement 10528 @0x1be1
0x0430…0434 Statement 10512 @0x1bd6
0x0434…0438 Statement 10496 @0x1ba3
0x0438…043c Statement 10384 @0x1b98
0x043c…0440 Statement 10368 @0x1b94
0x0440…0444 Statement 10352 @0x1b91
0x0444…0448 Statement 10336 @0x1b8a
0x0448…044c Statement 10320 @0x1b87
0x044c…0450 Statement 10304 @0x1b5c
0x0450…0454 Statement 10288 @0x1b44
0x0454…0458 Statement 10272 @0x1b23
0x0458…045c Statement 10256 @0x1b14
0x045c…0460 Statement 10240 @0x1b06
0x0460…0464 Statement 10128 @0x1af9
0x0464…0468 Statement 10112 @0x1af6
0x0468…046c Statement 10096 @0x1af3
0x046c…0470 Statement 10080 @0x1ae0
0x0470…0474 Statement 10064 @0x1acd
0x0474…0478 Statement 10048 @0x1abe
0x0478…047c Statement 10032 @0x1a94
0x047c…0480 Statement 10016 @0x1a8e
0x0480…0484 Statement 10000 @0x1a8b
0x0484…0488 Statement 09984 @0x1a82
0x0488…048c Statement 09872 @0x1a75
0x048c…0490 Statement 09856 @0x1a6d
0x0490…0494 Statement 09840 @0x1a6b
0x0494…0498 Statement 09824 @0x1a4e
0x0498…049c Statement 09808 @0x1a38
0x049c…04a0 Statement 09792 @0x1a28
0x04a0…04a4 Statement 09776 @0x1a25
0x04a4…04a8 Statement 09760 @0x1a08
0x04a8…04ac Statement 09744 @0x1a02
0x04ac…04b0 Statement 09728 @0x19fb
0x04b0…04b4 Statement 09616 @0x19f0
0x04b4…04b8 Statement 09600 @0x19bd
0x04b8…04bc Statement 09584 @0x19b2
0x04bc…04c0 Statement 09568 @0x19af
0x04c0…04c4 Statement 09552 @0x19a8
0x04c4…04c8 Statement 09536 @0x19a5
0x04c8…04cc Statement 09520 @0x197a
0x04cc…04d0 Statement 09504 @0x1962
0x04d0…04d4 Statement 09488 @0x195f
0x04d4…04d8 Statement 09472 @0x192e
0x04d8…04dc Statement 09360 @0x1903
0x04dc…04e0 Statement 09344 @0x1900
0x04e0…04e4 Statement 09328 @0x18da
0x04e4…04e8 Statement 09312 @0x18c7
0x04e8…04ec Statement 09296 @0x18c1
0x04ec…04f0 Statement 09280 @0x18ac
0x04f0…04f4 Statement 09264 @0x188d
0x04f4…04f8 Statement 09248 @0x1877
0x04f8…04fc Statement 09232 @0x1870
0x04fc…0500 Statement 09216 @0x185f
0x0500…0504 Statement 09104 @0x185b
0x0504…0508 Statement 09088 @0x1854
0x0508…050c Statement 09072 @0x1851
0x050c…0510 Statement 09056 @0x184b
0x0510…0514 Statement 09040 @0x1835
0x0514…0518 Statement 09024 @0x1822
0x0518…051c Statement 09008 @0x181f
0x051c…0520 Statement 08992 @0x1802
0x0520…0524 Statement 08976 @0x17fc
0x0524…0528 Statement 08960 @0x17f6
0x0528…052c Statement 08848 @0x17eb
0x052c…0530 Statement 08832 @0x17b8
0x0530…0534 Statement 08816 @0x17ad
0x0534…0538 Statement 08800 @0x17a9
0x0538…053c Statement 08784 @0x17a2
0x053c…0540 Statement 08768 @0x179f
0x0540…0544 Statement 08752 @0x177c
0x0544…0548 Statement 08736 @0x1767
0x0548…054c Statement 08720 @0x1764
0x054c…0550 Statement 08704 @0x1732
0x0550…0554 Statement 08592 @0x1723
0x0554…0558 Statement 08576 @0x1712
0x0558…055c Statement 08560 @0x170e
0x055c…0560 Statement 08544 @0x1707
0x0560…0564 Statement 08528 @0x1704
0x0564…0568 Statement 08512 @0x16fe
0x0568…056c Statement 08496 @0x16fb
0x056c…0570 Statement 08480 @0x16cc
0x0570…0574 Statement 08464 @0x16c4
0x0574…0578 Statement 08448 @0x169a
0x0578…057c Statement 08336 @0x167c
0x057c…0580 Statement 08320 @0x166d
0x0580…0584 Statement 08304 @0x164e
0x0584…0588 Statement 08295 @0x1646
0x0588…058c Statement 08293 @0x1619
0x058c…0590 Statement 08272 @0x1603
0x0590…0594 Statement 08256 @0x15ec
0x0594…0598 Statement 08240 @0x15c0
0x0598…059c Statement 08224 @0x1592
0x059c…05a0 Statement 08208 @0x1576
0x05a0…05a4 Statement 08192 @0x1558
0x05a4…05a8 Statement 06544 @0x1546
0x05a8…05ac Statement 06533 @0x153b
0x05ac…05b0 Statement 06528 @0x151a
0x05b0…05b4 Statement 06512 @0x1508
0x05b4…05b8 Statement 06496 @0x1501
0x05b8…05bc Statement 06488 @0x14fd
0x05bc…05c0 Statement 06480 @0x14f0
0x05c0…05c4 Statement 06464 @0x14ed
0x05c4…05c8 Statement 06448 @0x14e4
0x05c8…05cc Statement 06432 @0x14d7
0x05cc…05d0 Statement 06416 @0x14d5
0x05d0…05d4 Statement 06288 @0x14ce
0x05d4…05d8 Statement 06256 @0x14b5
0x05d8…05dc Statement 06240 @0x14a4
0x05dc…05e0 Statement 06224 @0x1488
0x05e0…05e4 Statement 06208 @0x1458
0x05e4…05e8 Statement 06192 @0x143b
0x05e8…05ec Statement 06176 @0x13fa
0x05ec…05f0 Statement 06160 @0x13c3
0x05f0…05f4 Statement 06144 @0x13a2
0x05f4…05f8 Statement 06032 @0x1383
0x05f8…05fc Statement 06016 @0x137f
0x05fc…0600 Statement 06000 @0x1346
0x0600…0604 Statement 05984 @0x131b
0x0604…0608 Statement 05968 @0x1318
0x0608…060c Statement 05952 @0x12d7
0x060c…0610 Statement 05936 @0x12d1
0x0610…0614 Statement 05920 @0x12c6
0x0614…0618 Statement 05904 @0x12a9
0x0618…061c Statement 05888 @0x1293
0x061c…0620 Statement 05776 @0x1290
0x0620…0624 Statement 05760 @0x124f
0x0624…0628 Statement 05744 @0x1249
0x0628…062c Statement 05728 @0x1234
0x062c…0630 Statement 05712 @0x1218
0x0630…0634 Statement 05696 @0x11f6
0x0634…0638 Statement 05680 @0x11c7
0x0638…063c Statement 05664 @0x11c0
0x063c…0640 Statement 05648 @0x11b5
0x0640…0644 Statement 05632 @0x117c
0x0644…0648 Statement 05520 @0x1143
0x0648…064c Statement 05509 @0x1141
0x064c…0650 Statement 05504 @0x1129
0x0650…0654 Statement 05488 @0x1126
0x0654…0658 Statement 05472 @0x10e5
0x0658…065c Statement 05456 @0x10df
0x065c…0660 Statement 05440 @0x10c0
0x0660…0664 Statement 05424 @0x10aa
0x0664…0668 Statement 05408 @0x10a7
0x0668…066c Statement 05392 @0x1066
0x066c…0670 Statement 05376 @0x1060
0x0670…0674 Statement 05264 @0x104b
0x0674…0678 Statement 05248 @0x102b
0x0678…067c Statement 05232 @0x1007
0x067c…0680 Statement 05216 @0xfe7
0x0680…0684 Statement 05200 @0xfe0
0x0684…0688 Statement 05184 @0xfd5
0x0688…068c Statement 05168 @0xf9c
0x068c…0690 Statement 05152 @0xf63
0x0690…0694 Statement 05141 @0xf61
0x0694…0698 Statement 05136 @0xf56
0x0698…069c Statement 05120 @0xf40
0x069c…06a0 Statement 04992 @0xf1c
0x06a0…06a4 Statement 04985 @0xf1a
0x06a4…06a8 Statement 04983 @0xf17
0x06a8…06ac Statement 04981 @0xf14
0x06ac…06b0 Statement 04976 @0xee2
0x06b0…06b4 Statement 04968 @0xeb6
0x06b4…06b8 Statement 04966 @0xe89
0x06b8…06bc Statement 04964 @0xe79
0x06bc…06c0 Statement 04963 @0xe76
0x06c0…06c4 Statement 04962 @0xe72
0x06c4…06c8 Statement 04944 @0xe37
0x06c8…06cc Statement 04928 @0xe07
0x06cc…06d0 Statement 04912 @0xdd8
0x06d0…06d4 Statement 04896 @0xdb0
0x06d4…06d8 Statement 04880 @0xd8a
0x06d8…06dc Statement 04864 @0xd62
0x06dc…06e0 Statement 04752 @0xd31
0x06e0…06e4 Statement 04736 @0xd2f
0x06e4…06e8 Statement 04725 @0xcef
0x06e8…06ec Statement 04720 @0xcaf
0x06ec…06f0 Statement 04704 @0xcad
0x06f0…06f4 Statement 04693 @0xc8e
0x06f4…06f8 Statement 04688 @0xc6a
0x06f8…06fc Statement 04672 @0xc35
0x06fc…0700 Statement 04662 @0xbf5
0x0700…0704 Statement 04660 @0xbc1
0x0704…0708 Statement 04658 @0xb90
0x0708…070c Statement 04656 @0xb56
0x070c…0710 Statement 04640 @0xb1e
0x0710…0714 Statement 04625 @0xaed
0x0714…0718 Statement 04624 @0xabb
0x0718…071c Statement 04608 @0xab9
0x071c…0720 Statement 04496 @0xab7
0x0720…0724 Statement 04480 @0xa71
0x0724…0728 Statement 04464 @0xa2b
0x0728…072c Statement 04448 @0x9e5
0x072c…0730 Statement 04368 @0x9da
0x0730…0734 Statement 04352 @0x9ad
0x0734…0738 Statement 04240 @0x980
0x0738…073c Statement 04229 @0x96d
0x073c…0740 Statement 04224 @0x93d
0x0740…0744 Statement 04208 @0x90c
0x0744…0748 Statement 04192 @0x8f2
0x0748…074c Statement 04176 @0x8db
0x074c…0750 Statement 04160 @0x8c0
0x0750…0754 Statement 04144 @0x896
0x0754…0758 Statement 04128 @0x892
0x0758…075c Statement 04112 @0x858
0x075c…0760 Statement 04101 @0x81c
0x0760…0764 Statement 04096 @0x7e2
0x0764…0768 Statement 01152 @0x7e1
0x0768…076c Statement 01136 @0x7de
0x076c…0770 Statement 01088 @0x7c3
0x0770…0774 Statement 01072 @0x7a7
0x0774…0778 Statement 01056 @0x797
0x0778…077c Statement 01040 @0x791
0x077c…0780 Statement 01024 @0x780
0x0780…0791 0400 REM ** OUTSCR **
0x0791…0797 0410 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x0797…07a7 0420 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af700145e2f3
0x07a7…07c3 0430 PRINT = ( 27 ) → af700146e2f271731f43e274aff271731f44e274aff2f3
0x07c3…07de 0440 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → aff271736f4e0042e374aff2f3
0x07de…07e1 0470 RETURN 0 EOS
0x07e1…07e2 0480 FNEND
0x07e2…081c 1000 REM **************************************************
0x081c…0858 1005 REM *** THREE DIMENSIONAL ORTHOGONAL TRANSFORMATION ***
0x0858…0892 1010 REM **************************************************
0x0892…0896 1020 REM
0x0896…08c0 1030 DIM ELEMENT var(P$) ( %80 ) [] ELEMENT var(T$) ( %80 ) [] ELEMENT var(N$) ( 10 ) [] ELEMENT var(D$) ( 3 ) [] ELEMENT var(D1$) ( 5 ) [] ELEMENT var(D2$) ( 10 ) [] EOS
0x08c0…08db 1040 LET var(Z9%) COMMA 19 EOS 32 var(M'<2f8c>) var(FNC%) var(L%) 46 32 var(G'<2f86>) var(N0%) var(M'<2f8c>) var(C1%) var(C) var(F0) 32 var(P'<2f8f>) var(P$) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x08db…08f2 1050 DIM ELEMENT var(M'<2f8c>) ( 4 var(Z9%) ) [] ELEMENT var(G'<2f86>) ( 4 var(Z9%) ) [] ELEMENT var(P'<2f8f>) ( 4 var(Z9%) ) [] EOS
0x08f2…090c 1060 DIM ELEMENT var(G5'<2586>) ( 4 2 ) [] EOS 32 var(Z9%) var(D$) var(M'<2f8c>) var(D$) var(G9) 32 var(P$) var(P'<2f8f>) var(F0) 32 var(M'<2f8c>) var(FNC%) var(G9) var(F0) var(D$) var(L%)
0x090c…093d 1070 LET ELEMENT var(G5'<2586>) ( 1 1 ) [] COMMA 9999 COMMA ELEMENT var(G5'<2586>) ( 1 2 ) [] COMMA 1 EOS 32 var(Z9%) var(D$) var(M'<2f8c>) var(D$) var(G9) 32 var(P$) var(P'<2f8f>) var(F0) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) 32 var(G'<2f86>) var(P'<2f8f>) 46
0x093d…096d 1080 LET ELEMENT var(G5'<2586>) ( 2 1 ) [] COMMA 1e+07 COMMA ELEMENT var(G5'<2586>) ( 2 2 ) [] COMMA 0 EOS 32 var(Z9%) var(D$) var(M'<2f8c>) var(D$) var(G9) 32 var(P$) var(P'<2f8f>) var(F0) 32 var(L%) 45 var(C2%) var(P'<2f8f>) var(P'<2f8f>) var(F0) var(C3%) 46
0x096d…0980 1085 LET ELEMENT var(G5'<2586>) ( 2 2 ) [] COMMA -10000 EOS
0x0980…09ad 1090 LET ELEMENT var(G5'<2586>) ( 3 1 ) [] COMMA 1e+07 COMMA ELEMENT var(G5'<2586>) ( 3 2 ) [] COMMA -1e+07 EOS 32 32 32 32 32 32 32 var(I%)
0x09ad…09da 1100 LET ELEMENT var(G5'<2586>) ( 4 1 ) [] COMMA 999999 COMMA ELEMENT var(G5'<2586>) ( 4 2 ) [] COMMA -999999 EOS 32 32 32 32 32 32 32 var(J%)
0x09da…09e5 1110 LET var(A0%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x09e5…0a2b 1160 PRINT »******************************************************************« EOS
0x0a2b…0a71 1170 PRINT »** TYPING DATA AND THREE DIMENSIONAL ORTHOGONAL TRANSFORMATION **« EOS
0x0a71…0ab7 1180 PRINT »******************************************************************« EOS
0x0ab7…0ab9 1190 PRINT EOS
0x0ab9…0abb 1200 PRINT EOS
0x0abb…0aed 1210 PRINT » FIRST READ MODEL POINTS FROM INSTRUMENT« EOS
0x0aed…0b1e 1211 PRINT » THEN ENTER COORDINATES OF KNOWN POINTS« EOS
0x0b1e…0b56 1220 PRINT » IF YOU WISH TO SPECIFY NUMBER OF KNOWN POINTS« EOS
0x0b56…0b90 1230 PRINT » TYPE 'N' AND THE SYSTEM WILL PROMPT FOR NUMBER.« EOS
0x0b90…0bc1 1232 PRINT » ONLY THE FIRST 'N' POINTS WILL BE USED« EOS
0x0bc1…0bf5 1234 PRINT » DEFAULT IS NUMBER OF KNOWN POINTS ENTERED« EOS
0x0bf5…0c35 1236 PRINT » -----------------------------------------------------« EOS
0x0c35…0c6a 1240 PRINT » FOR BOTH GROUPS READ POINT NO. , X , Y « EOS
0x0c6a…0c8e 1250 PRINT » AND Z FOR EACH POINT« EOS
0x0c8e…0cad 1255 PRINT » MAX : « SEMI var(Z9%) SEMI EOS
0x0cad…0caf 1260 PRINT EOS
0x0caf…0cef 1270 PRINT » IN PLACE OF POINT NUMBERS THESE COMMANDS CAN BE TYPED« EOS
0x0cef…0d2f 1275 PRINT » -----------------------------------------------------« EOS
0x0d2f…0d31 1280 PRINT EOS
0x0d31…0d62 1290 PRINT » F(Finish) - Finished entering points« EOS
0x0d62…0d8a 1300 PRINT » C(Correct) - Correct a point« EOS
0x0d8a…0db0 1310 PRINT » E(Erase) - Erase a point« EOS
0x0db0…0dd8 1320 PRINT » L(List) - List the points« EOS
0x0dd8…0e07 1330 PRINT » N(Number) - Number of known points« EOS
0x0e07…0e37 1340 PRINT » P(Factor) - Axis orientation factor« EOS
0x0e37…0e72 1350 PRINT » I(Instrument) - Begin reading data from instrument« EOS
0x0e72…0e76 1362 TRAP ERR 1375
0x0e76…0e79 1363 GOSUB 0 → 90
0x0e79…0e89 1364 1603f2700a504152414d2e44415441f3
0x0e89…0eb6 1366 INPUT 3# SEMI var(F0) EOS 32 32 32 32 32 32 32 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$) 32 var(FNC%) var(L%) var(D$) var(M0) 32 var(P'<2f8f>) var(F0) var(D$) var(C) var(G'<2f86>) var(G9) var(FNC%) var(G9) var(D$) var(P'<2f8f>) var(G'<2f86>) 32 var(P$) var(FNC%) var(C2%) var(G9) var(P'<2f8f>) var(F0)
0x0eb6…0ee2 1368 INPUT 3# SEMI var(M0) EOS 32 32 32 32 32 32 32 32 45 45 45 39 39 45 45 45 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 var(M0) var(C2%) var(FNC%) var(Z9%) var(C)
0x0ee2…0f14 1370 INPUT 3# SEMI var(G9) EOS 32 32 32 32 32 32 32 32 45 45 45 39 39 45 45 45 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 var(C) var(F0) var(F0) var(P'<2f8f>) var(F0) 32 var(Z9%) var(D$) var(M'<2f8c>) var(D$) var(G9)
0x0f14…0f17 1375 TRAP ERR OFF
0x0f17…0f1a 1377 1403f3
0x0f1a…0f1c 1379 PRINT EOS
0x0f1c…0f40 1380 LINPUT » O K ?« var(N$) EOS
0x0f40…0f56 1400 LET var(N0%) COMMA 0 COMMA var(G0%) COMMA 0 COMMA var(G1%) COMMA 0 COMMA var(L%) COMMA 0 EOS 32 var(J%) var(C) var(F0) var(P'<2f8f>)
0x0f56…0f61 1410 LET var(A0%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x0f61…0f63 1415 PRINT EOS
0x0f63…0f9c 1420 PRINT = ( 13 ) → b5f2702f2a2a2a20202052454144494e47204f425345525645442020504f494e54532020203a202020202020202020202a2a2af3
0x0f9c…0fd5 1430 PRINT = ( 13 ) → b5f2702f2a2a2a20202057414e5420544f204b454550204f4c4420504f494e545320203f202020203a205f5f5f2020202a2a2af3
0x0fd5…0fe0 1440 LET var(A0%) COMMA = ( 2 3 50 ) var(FNC%) EOS
0x0fe0…0fe7 1450 INPUT » « COMMA var(N$) EOS
0x0fe7…1007 1460 IF = ( var(N$) ) LEN 0 EQ COMMA 27 ELEMENT var(N$) ( 1 1 ) [] COMMA »Q« EOS 32 var(G'<2f86>) var(P'<2f8f>) 32 var(FNC%) var(G'<2f86>) var(M0) var(G1%) var(C) var(F0)
0x1007…102b 1470 IF ELEMENT var(N$) ( 1 1 ) [] »N« <> COMMA 1 var(A%) 53 32 var(F0) var(C) var(FNC%) var(C3%) 32 var(P'<2f8f>) var(C1%) var(M0) var(C) var(F0) var(G0%) var(C) var(C3%) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9)
0x102b…104b 1480 LET var(L%) COMMA var(N0%) EOS 32 32 var(G'<2f86>) var(N0%) var(M'<2f8c>) var(C1%) var(C) var(F0) 32 var(P'<2f8f>) var(P$) 32 var(P'<2f8f>) var(C1%) var(M0) var(C) var(F0) var(G0%) var(C) var(C3%) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x104b…1060 1490 IF var(L%) 0 EQ COMMA 0 48 21 32 var(G'<2f86>) var(P'<2f8f>) var(G'<2f86>) var(C) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$)
0x1060…1066 1500 195901f158f3
0x1066…10a7 1510 LET ELEMENT var(P'<2f8f>) ( 1 var(I%) ) [] COMMA ELEMENT var(M'<2f8c>) ( 1 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 2 var(I%) ) [] COMMA ELEMENT var(M'<2f8c>) ( 2 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 3 var(I%) ) [] COMMA ELEMENT var(M'<2f8c>) ( 3 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 4 var(I%) ) [] COMMA ELEMENT var(M'<2f8c>) ( 4 var(I%) ) [] EOS
0x10a7…10aa 1520 1a59f3
0x10aa…10c0 1530 GOSUB 0 24 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$) 32 var(M0) var(N0%) var(C1%) var(F0) var(P'<2f8f>) var(N0%) var(G9) var(D$) var(G'<2f86>) var(C)
0x10c0…10df 1540 LET var(N0%) COMMA var(L%) EOS 32 var(G'<2f86>) var(N0%) var(M'<2f8c>) var(C1%) var(C) var(F0) 32 var(P'<2f8f>) var(P$) 32 var(P'<2f8f>) var(C1%) var(M0) var(C) var(F0) var(G0%) var(C) var(C3%) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x10df…10e5 1550 195901f158f3
0x10e5…1126 1560 LET ELEMENT var(M'<2f8c>) ( 1 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 1 var(I%) ) [] COMMA ELEMENT var(M'<2f8c>) ( 2 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 2 var(I%) ) [] COMMA ELEMENT var(M'<2f8c>) ( 3 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 3 var(I%) ) [] COMMA ELEMENT var(M'<2f8c>) ( 4 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 4 var(I%) ) [] EOS
0x1126…1129 1570 1a59f3
0x1129…1141 1580 LET var(A0%) COMMA = ( 1 1 1 ) var(FNC%) EOS 32 var(C2%) var(Z9%) var(C) var(FNC%) var(F0) 32 var(M0) var(C2%) var(F0) var(C) var(C) var(G'<2f86>)
0x1141…1143 1585 PRINT EOS
0x1143…117c 1590 PRINT = ( 13 ) → b5f2702f2a2a2a20202052454144494e47204b4e4f574e20504f494e5453202020202020203a202020202020202020202a2a2af3
0x117c…11b5 1600 PRINT = ( 13 ) → b5f2702f2a2a2a20202057414e5420544f204b454550204f4c4420504f494e5453203f20202020203a205f5f5f2020202a2a2af3
0x11b5…11c0 1610 LET var(A0%) COMMA = ( 2 3 50 ) var(FNC%) EOS
0x11c0…11c7 1620 INPUT » « COMMA var(N$) EOS
0x11c7…11f6 1630 IF = ( var(N$) ) LEN 0 EQ COMMA 27 ELEMENT var(N$) ( 1 1 ) [] COMMA »Q« EOS 32 var(G'<2f86>) var(P'<2f8f>) 32 var(FNC%) var(G'<2f86>) var(M0) var(G1%) var(C) var(F0) 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32
0x11f6…1218 1640 IF ELEMENT var(N$) ( 1 1 ) [] »N« <> COMMA 1 → 80362052454144204b4e4f574e20504f494e5453
0x1218…1234 1650 LET var(L%) COMMA var(G0%) EOS 32 var(G'<2f86>) var(N0%) var(M'<2f8c>) var(C1%) var(C) var(F0) 32 var(P'<2f8f>) var(P$) 32 var(D2$) var(G'<2f86>) var(P'<2f8f>) var(G1%) var(G'<2f86>) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x1234…1249 1660 IF var(L%) 0 EQ COMMA 0 0 23 32 var(G'<2f86>) var(P'<2f8f>) var(G'<2f86>) var(C) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$)
0x1249…124f 1670 195901f158f3
0x124f…1290 1680 LET ELEMENT var(P'<2f8f>) ( 1 var(I%) ) [] COMMA ELEMENT var(G'<2f86>) ( 1 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 2 var(I%) ) [] COMMA ELEMENT var(G'<2f86>) ( 2 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 3 var(I%) ) [] COMMA ELEMENT var(G'<2f86>) ( 3 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 4 var(I%) ) [] COMMA ELEMENT var(G'<2f86>) ( 4 var(I%) ) [] EOS
0x1290…1293 1690 1a59f3
0x1293…12a9 1700 GOSUB 0 24 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$) 32 var(M0) var(N0%) var(C1%) var(F0) var(P'<2f8f>) var(N0%) var(G9) var(D$) var(G'<2f86>) var(C)
0x12a9…12c6 1710 LET var(G0%) COMMA var(L%) EOS 32 var(G'<2f86>) var(N0%) var(M'<2f8c>) var(C1%) var(C) var(F0) 32 var(P'<2f8f>) var(P$) 32 var(D2$) var(G'<2f86>) var(P'<2f8f>) var(G1%) var(G'<2f86>) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0) 32
0x12c6…12d1 1720 IF var(G1%) 0 EQ COMMA 27 var(G1%) COMMA var(L%) EOS 32
0x12d1…12d7 1730 195901f158f3
0x12d7…1318 1740 LET ELEMENT var(G'<2f86>) ( 1 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 1 var(I%) ) [] COMMA ELEMENT var(G'<2f86>) ( 2 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 2 var(I%) ) [] COMMA ELEMENT var(G'<2f86>) ( 3 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 3 var(I%) ) [] COMMA ELEMENT var(G'<2f86>) ( 4 var(I%) ) [] COMMA ELEMENT var(P'<2f8f>) ( 4 var(I%) ) [] EOS
0x1318…131b 1750 1a59f3
0x131b…1346 1760 GOTO 16 56 32 var(P$) var(D$) var(G'<2f86>) var(D$) var(M0) var(N$) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$) 32 32 61 62 32 var(M0) var(G9) var(P'<2f8f>) var(F0) var(C) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0) 32 var(G9) var(P'<2f8f>) 32 var(P$) var(D$) var(Z9%) var(C)
0x1346…137f 1770 REM --------------------------------------------
0x137f…1383 1780 REM
0x1383…13a2 1790 REM *** READING SUBROUTINE ***
0x13a2…13c3 1800 LET var(D$) COMMA »DD« COMMA var(D1$) COMMA » ###D« COMMA var(D2$) COMMA »######D.DD« EOS
0x13c3…13fa 1810 LET var(T$) COMMA » « EOS 32 52 48 32 var(M0) var(G5'<2586>) var(FNC%) var(C2%) var(C)
0x13fa…143b 1820 LET var(T$) COMMA var(T$) » « PLUS EOS 32 var(G9) var(P'<2f8f>) var(T$) var(C) var(G9) var(N$) var(C) var(F0) var(C) 32 55 57 32 var(M0) var(G5'<2586>) var(FNC%) var(C2%) var(C)
0x143b…1458 1830 LET var(P$) COMMA » : PT. NO =____ « EOS
0x1458…1488 1840 LET var(P$) COMMA var(P$) »X=_______.__ Y=_______.__ Z=_______.__« PLUS EOS
0x1488…14a4 1850 IF var(L%) 0 > COMMA 0 0 52 32 var(Z9%) var(D$) var(M0) var(G9) 32 var(P'<2f8f>) var(C1%) var(M0) var(C) var(F0) var(G0%) var(C) var(C3%) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9)
0x14a4…14b5 1860 LET var(L%) COMMA var(L%) 1 PLUS EOS 32 var(D$) var(G'<2f86>) var(C2%) var(F0) var(C) var(M'<2f8c>) var(C) var(G'<2f86>) var(G9)
0x14b5…14ce 1870 IF var(L%) var(Z9%) > COMMA 0 var(A%) 51 32 var(P$) var(D$) var(G'<2f86>) var(D$) var(M0) var(N$) var(C) var(C3%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$)
0x14ce…14d5 1890 PRINT = ( 7 ) → aff3
0x14d5…14d7 1910 PRINT EOS
0x14d7…14e4 1920 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 1 ) var(FNC%) EOS
0x14e4…14ed 1930 PRINT USING ( var(D$) ) COMMA var(L%) SEMI EOS
0x14ed…14f0 1940 PRINT var(P$) EOS
0x14f0…14fd 1950 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 13 ) var(FNC%) EOS
0x14fd…1501 1958 TRAP ERR 3390
0x1501…1508 1960 INPUT »=« COMMA var(N$) EOS
0x1508…151a 1970 IF = ( var(N$) ) LEN 0 EQ COMMA 0 → 9018204552524f52
0x151a…153b 1980 IF ELEMENT var(N$) ( 1 1 ) [] »F« EQ COMMA 0 var(A%) 51 32 var(P$) var(D$) var(G'<2f86>) var(D$) var(M0) var(N$) var(C) var(C3%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$)
0x153b…1546 1985 LET var(A0%) COMMA = ( 3 3 1 ) var(FNC%) EOS
0x1546…1558 1990 LET var(L%) COMMA var(L%) 1 SUB2 EOS 32 var(D$) var(G'<2f86>) var(C2%) var(F0) var(C) var(M'<2f8c>) var(C) var(G'<2f86>) var(G9) 32
0x1558…1576 2000 IF ELEMENT var(N$) ( 1 1 ) [] »C« EQ COMMA 0 var(A0x22) 32 var(C2%) var(P'<2f8f>) var(F0) var(F0) var(C) var(C2%) var(G9) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9)
0x1576…1592 2010 IF ELEMENT var(N$) ( 1 1 ) [] »E« EQ COMMA 0 var(A0x25) 32 var(C) var(F0) var(FNC%) var(M0) var(C) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9)
0x1592…15c0 2020 IF ELEMENT var(N$) ( 1 1 ) [] »L« EQ COMMA 0 → 9033204c495354204f4253455256454420504f494e54284e4f54204c41535429
0x15c0…15ec 2030 IF ELEMENT var(N$) ( 1 1 ) [] »N« EQ var(L%) 1 > AND var(N0%) 0 > AND COMMA 0 var(G5'<2586>) 40 32 var(G'<2f86>) var(P'<2f8f>) 46 32 var(P'<2f8f>) var(P$) 32 var(D2$) var(G'<2f86>) var(P'<2f8f>) var(G1%) var(G'<2f86>) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x15ec…1603 2040 IF ELEMENT var(N$) ( 1 1 ) [] »P« EQ COMMA 0 var(A0x30) 32 var(P$) var(FNC%) var(C2%) var(G9) var(P'<2f8f>) var(F0)
0x1603…1619 2050 IF ELEMENT var(N$) ( 1 1 ) [] »S« EQ COMMA 0 var(G5'<2586>) 49 32 var(M0) var(C2%) var(FNC%) var(Z9%) var(C)
0x1619…1646 2065 IF ELEMENT var(N$) ( 1 1 ) [] »I« EQ COMMA 0 0 var(A%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$) 32 var(C3%) var(FNC%) var(G9) var(FNC%) 32 var(P$) var(F0) var(P'<2f8f>) var(M'<2f8c>) 32 var(D$) var(G'<2f86>) var(M0) var(G9) var(F0) var(N0%) var(M'<2f8c>) var(C) var(G'<2f86>) var(G9)
0x1646…164e 2067 PRINT = ( 7 ) → aff2f3
0x164e…166d 2070 LET var(L%) COMMA var(L%) 1 PLUS EOS 32 var(D$) var(G'<2f86>) var(C2%) var(F0) var(C) var(M'<2f8c>) var(C) var(G'<2f86>) var(G9) 32 var(G'<2f86>) var(P'<2f8f>) 46 32 var(P'<2f8f>) var(P$) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x166d…167c 2080 LET ELEMENT var(P'<2f8f>) ( 1 var(L%) ) [] COMMA = ( var(N$) ) VAL EOS
0x167c…169a 2090 IF = ( ELEMENT var(P'<2f8f>) ( 1 var(L%) ) [] ) → a1724f730158749fecf1009018204552524f52
0x169a…16c4 2100 IF ELEMENT var(P'<2f8f>) ( 1 var(L%) ) [] ELEMENT var(G5'<2586>) ( 1 1 ) [] > ELEMENT var(P'<2f8f>) ( 1 var(L%) ) [] ELEMENT var(G5'<2586>) ( 1 2 ) [] ?< OR COMMA 0 → 9018204552524f52
0x16c4…16cc 2110 195a01f15801e3f3
0x16cc…16fb 2120 IF ELEMENT var(P'<2f8f>) ( 1 var(L%) ) [] ELEMENT var(P'<2f8f>) ( 1 var(J%) ) [] EQ COMMA 0 → 9018205448454e2053414d45204e4f204953205245414420414741494e
0x16fb…16fe 2130 1a5af3
0x16fe…1704 2140 195a01f103f3
0x1704…1707 2150 GOTO »«si»qs\x07t\xaf\xf3\x1c«soh»`!\x1bQ\xf1qs\x02X\x03\xe2
Z«so»\xe4\xe2tA\xf3\x10p«soh»=\xf1«
0x1707…170e 2160 PRINT = ( 7 ) → aff3
0x170e…1712 2170 TRAP ERR 2160
0x1712…1723 2180 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 13 var(J%) 14 MULT PLUS ) var(FNC%) EOS
0x1723…1732 2190 INPUT »=« COMMA ELEMENT var(P'<2f8f>) ( var(J%) 1 PLUS var(L%) ) [] EOS
0x1732…1764 2200 IF ELEMENT var(P'<2f8f>) ( var(J%) 1 PLUS var(L%) ) [] ELEMENT var(G5'<2586>) ( var(J%) 1 PLUS 1 ) [] > ELEMENT var(P'<2f8f>) ( var(J%) 1 PLUS var(L%) ) [] ELEMENT var(G5'<2586>) ( var(J%) 1 PLUS 2 ) [] ?< OR COMMA 0 var(A%) 33 32 var(C) var(F0) var(F0) var(P'<2f8f>) var(F0)
0x1764…1767 2210 1a5af3
0x1767…177c 2220 GOTO var(A%) 24 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$) 32 var(G'<2f86>) var(C) var(G1%) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9)
0x177c…179f 2230 REM *** CORRECT POINT ***
0x179f…17a2 2240 GOTO var(A%) 34
0x17a2…17a9 2250 PRINT = ( 7 ) → aff3
0x17a9…17ad 2260 TRAP ERR 2250
0x17ad…17b8 2270 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x17b8…17eb 2280 PRINT »*** NO. OF POINT TO CORRECT : ____ ***« EOS
0x17eb…17f6 2290 LET var(A0%) COMMA = ( 2 3 48 ) var(FNC%) EOS
0x17f6…17fc 2300 INPUT »« COMMA var(K%) EOS
0x17fc…1802 2310 195901f158f3
0x1802…181f 2320 IF var(K%) ELEMENT var(P'<2f8f>) ( 1 var(I%) ) [] EQ COMMA 0 var(G5'<2586>) 35 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) 32 var(D$) var(M0) 32 var(P$) var(P'<2f8f>) var(N0%) var(G'<2f86>) var(C3%)
0x181f…1822 2330 1a59f3
0x1822…1835 2340 GOTO var(G5'<2586>) 34 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) 32 var(G'<2f86>) var(P'<2f8f>) var(G9) 32 var(P$) var(P'<2f8f>) var(N0%) var(G'<2f86>) var(C3%)
0x1835…184b 2350 GOSUB var(A%) 41 32 var(G5'<2586>) var(F0) var(D$) var(G'<2f86>) var(G9) 32 var(D2$) var(G'<2f86>) var(P'<2f8f>) var(G1%) var(G'<2f86>) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x184b…1851 2360 195a01f104f3
0x1851…1854 2370 GOTO → 9023
0x1854…185b 2380 PRINT = ( 7 ) → aff3
0x185b…185f 2390 TRAP ERR 2380
0x185f…1870 2400 LET var(A0%) COMMA = ( 2 var(I%) 3 PLUS var(J%) 14 MULT 1 SUB2 ) var(FNC%) EOS
0x1870…1877 2410 LINPUT »=« COMMA var(N$) EOS
0x1877…188d 2420 IF = ( var(N$) ) LEN 0 EQ COMMA 0 16 37 32 var(G'<2f86>) var(P'<2f8f>) 32 var(C2%) var(N$) var(FNC%) var(G'<2f86>) var(T$) var(C)
0x188d…18ac 2430 LET ELEMENT var(P'<2f8f>) ( var(J%) var(I%) ) [] COMMA = ( var(N$) ) VAL EOS 32 var(C2%) var(P'<2f8f>) var(F0) var(F0) var(C) var(C2%) var(G9) var(C) var(C3%) 32 var(G0%) var(FNC%) var(Z9%) var(N0%) var(C)
0x18ac…18c1 2440 IF var(J%) 1 > COMMA 0 0 37 32 var(G'<2f86>) var(P'<2f8f>) var(G9) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) 32 var(G'<2f86>) var(P'<2f8f>)
0x18c1…18c7 2450 195b01f158f3
0x18c7…18da 2460 IF var(K%) var(I%) EQ COMMA 0 → 80242053414d4520504f494e54
0x18da…1900 2470 IF ELEMENT var(P'<2f8f>) ( 1 var(K%) ) [] ELEMENT var(P'<2f8f>) ( var(J%) var(I%) ) [] EQ COMMA 0 → 8023204552524f52202d53414d4520504f494e54
0x1900…1903 2480 1a5bf3
0x1903…192e 2490 IF = ( ELEMENT var(P'<2f8f>) ( var(J%) var(I%) ) [] ) → a1724f735a59749fecf1008023204552524f522d204e4f5420494e5445474552
0x192e…195f 2500 IF ELEMENT var(P'<2f8f>) ( var(J%) var(I%) ) [] ELEMENT var(G5'<2586>) ( var(J%) 1 ) [] > ELEMENT var(P'<2f8f>) ( var(J%) var(I%) ) [] ELEMENT var(G5'<2586>) ( var(J%) 2 ) [] ?< OR COMMA 0 → 8023204552524f52204e554d424552
0x195f…1962 2510 1a5af3
0x1962…197a 2520 GOTO var(A%) 24 32 var(G'<2f86>) var(C) var(G1%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$) 32 var(P'<2f8f>) var(P$) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9)
0x197a…19a5 2530 REM *** ERASE OBSERVED POINT ***"
0x19a5…19a8 2540 GOTO var(A%) 37
0x19a8…19af 2550 PRINT = ( 7 ) → aff3
0x19af…19b2 2560 TRAP ERR OFF
0x19b2…19bd 2570 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x19bd…19f0 2580 PRINT »*** NO. OF POINT TO ERASE : ____ ***« EOS
0x19f0…19fb 2590 LET var(A0%) COMMA = ( 2 3 49 ) var(FNC%) EOS
0x19fb…1a02 2600 INPUT » « COMMA var(K%) EOS
0x1a02…1a08 2610 195901f158f3
0x1a08…1a25 2620 IF var(K%) ELEMENT var(P'<2f8f>) ( 1 var(I%) ) [] EQ COMMA 0 var(G5'<2586>) 38 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) 32 var(D$) var(M0) 32 var(P$) var(P'<2f8f>) var(N0%) var(G'<2f86>) var(C3%)
0x1a25…1a28 2630 1a59f3
0x1a28…1a38 2640 GOTO var(G5'<2586>) 37 32 var(G'<2f86>) var(P'<2f8f>) 32 var(G'<2f86>) var(P'<2f8f>) var(G9) 32 var(P$) var(P'<2f8f>) var(N0%) var(G'<2f86>) var(C3%)
0x1a38…1a4e 2650 GOSUB var(A%) 41 32 var(G5'<2586>) var(F0) var(D$) var(G'<2f86>) var(G9) 32 var(D2$) var(G'<2f86>) var(P'<2f8f>) var(G1%) var(G'<2f86>) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x1a4e…1a6b 2660 IF var(I%) var(L%) EQ COMMA 0 → 90274552415345204c415354205245414420504f494e54
0x1a6b…1a6d 2670 PRINT EOS
0x1a6d…1a75 2680 195a59f15801e3f3
0x1a75…1a82 2690 LET var(A0%) COMMA = ( 2 var(J%) 3 PLUS 1 ) var(FNC%) EOS
0x1a82…1a8b 2700 PRINT USING ( var(D$) ) COMMA var(J%) SEMI EOS
0x1a8b…1a8e 2710 PRINT var(P$) EOS
0x1a8e…1a94 2720 195b01f104f3
0x1a94…1abe 2730 LET ELEMENT var(P'<2f8f>) ( var(K%) var(J%) ) [] COMMA ELEMENT var(P'<2f8f>) ( var(K%) var(J%) 1 PLUS ) [] EOS 32 var(M'<2f8c>) var(P'<2f8f>) var(G0%) var(C) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) 32 var(P'<2f8f>) var(G'<2f86>) var(C) 32 var(M0) var(G9) var(C) var(G5'<2586>) 32 var(N0%) var(G5'<2586>)
0x1abe…1acd 2740 LET var(A0%) COMMA = ( 2 var(J%) 3 PLUS var(K%) 14 MULT ) var(FNC%) EOS
0x1acd…1ae0 2750 IF var(K%) 1 EQ COMMA 15 USING ( var(D1$) ) COMMA ELEMENT var(P'<2f8f>) ( var(K%) var(J%) ) [] EOS
0x1ae0…1af3 2760 IF var(K%) 1 > COMMA 15 USING ( var(D2$) ) COMMA ELEMENT var(P'<2f8f>) ( var(K%) var(J%) ) [] EOS
0x1af3…1af6 2770 1a5bf3
0x1af6…1af9 2780 1a5af3
0x1af9…1b06 2790 LET var(A0%) COMMA = ( 2 var(L%) 2 PLUS 1 ) var(FNC%) EOS
0x1b06…1b14 2800 PRINT var(T$) EOS 32 var(C) var(F0) var(FNC%) var(M0) var(C) 32 var(Z9%) var(D$) var(G'<2f86>) var(C)
0x1b14…1b23 2810 PRINT var(T$) EOS 32 45 45 45 45 var(A%) var(A%) 45 45 45 45 45
0x1b23…1b44 2820 LET var(L%) COMMA var(L%) 1 SUB2 EOS 32 var(C3%) var(C) var(C2%) var(F0) var(C) var(M'<2f8c>) var(C) var(G'<2f86>) var(G9) 32 var(G'<2f86>) var(P'<2f8f>) 46 32 var(FNC%) var(P$) var(G9) var(C) var(F0) 32 var(C) var(F0) var(FNC%) var(M0) var(C)
0x1b44…1b5c 2830 GOTO var(A%) 24 32 var(G9) var(P'<2f8f>) 32 var(G'<2f86>) var(C) var(G1%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9)
0x1b5c…1b87 2840 REM *** READING NO. OF KNOWN POINTS ***
0x1b87…1b8a 2850 GOTO »«si»qs\x07t\xaf\xf3\x1c«soh»\xf6\x0bp«soh»
\x1bQ\xf1qs\x02\x03
tA\xf3«si»p/*** NO. OF«
0x1b8a…1b91 2860 PRINT = ( 7 ) → aff3
0x1b91…1b94 2870 TRAP ERR OFF
0x1b94…1b98 2880 REM
0x1b98…1ba3 2890 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1ba3…1bd6 2900 PRINT »*** NO. OF KNOWN POINTS : __ ***« EOS
0x1bd6…1be1 2910 LET var(A0%) COMMA = ( 2 3 49 ) var(FNC%) EOS
0x1be1…1be8 2920 INPUT » « COMMA var(G1%) EOS
0x1be8…1bf4 2930 IF var(G1%) var(L%) > var(G1%) 1 ?< OR COMMA 0 var(A%) 40
0x1bf4…1c09 2940 GOTO var(A%) 24 32 var(G'<2f86>) var(C) var(G1%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9)
0x1c09…1c2f 2950 REM *** PRINT NO. OF KNOWN POINTS ***
0x1c2f…1c31 2960 PRINT EOS
0x1c31…1c3e 2970 IF var(G1%) 0 EQ COMMA 0 16 48 32 var(G'<2f86>) var(P'<2f8f>) var(G'<2f86>) var(C)
0x1c3e…1c49 2980 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1c49…1c7f 2990 PRINT »*** NO. OF KNOWN POINTS :« SEMI var(G1%) SEMI » ***« EOS
0x1c7f…1c82 3000 GOTO 32 48
0x1c82…1c8d 3010 LET var(A0%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x1c8d…1c90 3015 PRINT var(T$) EOS
0x1c90…1c92 3020 RETURN EOS
0x1c92…1ca6 3030 REM --- READ F0 ---
0x1ca6…1cb1 3040 LET var(A0%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x1cb1…1cb4 3045 PRINT var(T$) EOS
0x1cb4…1cb7 3050 GOTO »«si»qs\x07t\xaf\xf3\x1c«soh»`0\x1bQ\xf1qs\x02\x03
tA\xf3«si»p/*** AXIS ORIENTATION «
0x1cb7…1cbe 3060 PRINT = ( 7 ) → aff3
0x1cbe…1cc2 3070 TRAP ERR 3060
0x1cc2…1ccd 3080 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1ccd…1d00 3090 PRINT »*** AXIS ORIENTATION FACTOR : __.__ ***« EOS
0x1d00…1d0b 3100 LET var(A0%) COMMA = ( 2 3 47 ) var(FNC%) EOS
0x1d0b…1d12 3110 INPUT » « COMMA var(F0) EOS
0x1d12…1d21 3120 GOSUB var(A%) 41 32 var(Z9%) var(D$) var(G'<2f86>) var(G'<2f86>) var(C) 32 var(G5'<2586>) var(F0) var(D$) var(G'<2f86>) var(G9)
0x1d21…1d34 3130 GOTO var(A%) 24 32 var(G'<2f86>) var(C) var(G1%) 32 var(D$) var(G'<2f86>) var(G5'<2586>) var(N0%) var(G9) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9)
0x1d34…1d48 3140 REM --- READ M0 ---
0x1d48…1d4b 3150 GOTO »«si»qs\x07t\xaf\xf3\x1c«soh»`1\x1bQ\xf1qs\x02\x02«soh»tA\xf3«si»G\xf3\x1bQ\xf1qs\x02\x03
tA\xf3«si»p/*** SCAL«
0x1d4b…1d52 3160 PRINT = ( 7 ) → aff3
0x1d52…1d56 3170 TRAP ERR 3160
0x1d56…1d61 3180 LET var(A0%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x1d61…1d64 3185 PRINT var(T$) EOS
0x1d64…1d6f 3190 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1d6f…1da2 3200 PRINT »*** SCALE : ___.___ ***« EOS
0x1da2…1dad 3210 LET var(A0%) COMMA = ( 2 3 31 ) var(FNC%) EOS
0x1dad…1db4 3220 INPUT » « COMMA var(M0) EOS
0x1db4…1dc2 3230 GOSUB var(A%) 41 32 var(Z9%) var(D$) var(G'<2f86>) var(C) 32 var(G5'<2586>) var(F0) var(D$) var(G'<2f86>) var(G9)
0x1dc2…1dd5 3240 GOTO var(A%) 24 32 var(G'<2f86>) var(C) var(G1%) 32 var(D$) var(G'<2f86>) var(G5'<2586>) var(N0%) var(G9) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9)
0x1dd5…1de9 3250 REM --- READ G9 ---
0x1de9…1dec 3260 GOTO → 8032
0x1dec…1df3 3270 PRINT = ( 7 ) → aff3
0x1df3…1df7 3280 TRAP ERR 3270
0x1df7…1e02 3290 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1e02…1e10 3330 GOSUB var(A%) 41 32 var(Z9%) var(D$) var(G'<2f86>) var(C) 32 var(G5'<2586>) var(F0) var(D$) var(G'<2f86>) var(G9)
0x1e10…1e22 3340 GOTO var(A%) 24 32 var(G'<2f86>) var(C) var(G1%) 32 var(Z9%) var(D$) var(G'<2f86>) var(C) 32 var(G5'<2586>) var(F0) var(D$) var(G'<2f86>) var(G9)
0x1e22…1e5b 3350 REM ====================================================
0x1e5b…1e8b 3360 LET var(L%) COMMA var(L%) 1 SUB2 EOS 32 var(Z9%) var(FNC%) var(M0) var(G9) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) 32 var(G'<2f86>) var(P'<2f8f>) var(G9) 32 var(F0) var(C) var(FNC%) var(C3%) 32 32 32 32 32 40 var(G'<2f86>) var(P'<2f8f>) 61 34 var(P$) 40 var(P$) var(D$) var(G'<2f86>) var(D$) var(M0) var(N$) 41 34 41
0x1e8b…1e8e 3370 TRAP ERR OFF
0x1e8e…1e90 3380 RETURN EOS
0x1e90…1ec2 3390 REM ---------------------------------------------
0x1ec2…1ee9 3400 REM *** LIST OBSERVED POINTS ***
0x1ee9…1eef 3410 195a01f158f3
0x1eef…1ef1 3420 PRINT EOS
0x1ef1…1efe 3430 LET var(A0%) COMMA = ( 2 var(J%) 3 PLUS 1 ) var(FNC%) EOS
0x1efe…1f07 3440 PRINT USING ( var(D$) ) COMMA var(J%) SEMI EOS
0x1f07…1f0a 3450 PRINT var(P$) EOS
0x1f0a…1f10 3460 195b01f104f3
0x1f10…1f2a 3470 IF var(K%) 1 EQ COMMA 27 ELEMENT var(P'<2f8f>) ( var(K%) var(J%) ) [] COMMA = ( ELEMENT var(P'<2f8f>) ( var(K%) var(J%) ) [] ) → a1f3
0x1f2a…1f39 3480 LET var(A0%) COMMA = ( 2 var(J%) 3 PLUS var(K%) 14 MULT ) var(FNC%) EOS
0x1f39…1f4c 3490 IF var(K%) 1 EQ COMMA 15 USING ( var(D1$) ) COMMA ELEMENT var(P'<2f8f>) ( var(K%) var(J%) ) [] EOS
0x1f4c…1f5f 3500 IF var(K%) 1 > COMMA 15 USING ( var(D2$) ) COMMA ELEMENT var(P'<2f8f>) ( var(K%) var(J%) ) [] EOS
0x1f5f…1f62 3510 1a5bf3
0x1f62…1f65 3520 1a5af3
0x1f65…1f81 3530 IF var(G1%) 0 > COMMA 1 var(A%) 41 32 var(G'<2f86>) var(P'<2f8f>) 46 32 var(P'<2f8f>) var(P$) 32 var(D2$) var(G'<2f86>) var(P'<2f8f>) var(G1%) var(G'<2f86>) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x1f81…1fa3 3540 GOTO var(A%) 24 32 var(G'<2f86>) var(C) var(G1%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G'<2f86>) var(T$) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) 32 32 var(P'<2f8f>) var(F0) 32 32 var(C2%) var(P'<2f8f>) var(M'<2f8c>) var(M'<2f8c>) var(FNC%) var(G'<2f86>) var(C3%)
0x1fa3…1fa7 3550 REM
0x1fa7…1fe1 3560 REM *** SUBROUTINE TO GET OBSERVED POINTS FROM FILE ***
0x1fe1…201b 3570 REM ***************************************************
0x201b…201f 3580 REM
0x201f…202d 3590 1601f270084f42532e44415441f3
0x202d…203e 3600 INPUT 1# SEMI var(N0%) EOS 32 var(G'<2f86>) var(P'<2f8f>) 46 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x203e…2044 3610 195901f155f3
0x2044…204a 3620 195a01f104f3
0x204a…2056 3630 INPUT 1# SEMI ELEMENT var(M'<2f8c>) ( var(J%) var(I%) ) [] EOS
0x2056…2059 3640 1a5af3
0x2059…205c 3650 1a59f3
0x205c…205f 3660 1401f3
0x205f…2061 3670 RETURN EOS
0x2061…20a3 3680 REM *** SUBROUTINE TO GET KNOWN POINTS FROM KNOWN.DATA FILE ***
0x20a3…20e5 3690 REM ***********************************************************
0x20e5…20e9 3700 REM
0x20e9…20f9 3710 1602f2700a4b4e4f574e2e44415441f3
0x20f9…2113 3720 INPUT 2# SEMI var(G0%) EOS 32 var(G'<2f86>) var(P'<2f8f>) 46 32 var(P'<2f8f>) var(P$) 32 var(D2$) var(G'<2f86>) var(P'<2f8f>) var(G1%) var(G'<2f86>) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x2113…2119 3730 195901f156f3
0x2119…211f 3740 195a01f104f3
0x211f…212b 3750 INPUT 2# SEMI ELEMENT var(G'<2f86>) ( var(J%) var(I%) ) [] EOS
0x212b…212e 3760 1a5af3
0x212e…2131 3770 1a59f3
0x2131…2137 3780 INPUT 2# SEMI var(G1%) EOS
0x2137…213a 3790 1402f3
0x213a…213c 3800 RETURN EOS
0x213c…216a 3810 REM *** STORE ALL POINTS TO FILE ***
0x216a…2198 3820 REM ***************************************
0x2198…219c 3830 REM
0x219c…21aa 3840 1601f270084f42532e44415441f3
0x21aa…21be 3850 PRINT 1# SEMI var(N0%) EOS 32 var(G'<2f86>) var(P'<2f8f>) 46 32 var(P'<2f8f>) var(P$) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x21be…21ea 3860 REM --- STORE POINTS TO FILE (OBS.DATA) ---
0x21ea…21f0 3870 195901f155f3
0x21f0…21f6 3880 195a01f104f3
0x21f6…2202 3890 PRINT 1# SEMI ELEMENT var(M'<2f8c>) ( var(J%) var(I%) ) [] EOS
0x2202…2205 3900 1a5af3
0x2205…2208 3910 1a59f3
0x2208…220b 3920 1401f3
0x220b…220d 3930 PRINT EOS
0x220d…220f 3940 PRINT EOS
0x220f…2211 3950 PRINT EOS
0x2211…2213 3960 PRINT EOS
0x2213…2215 3970 PRINT EOS
0x2215…2252 3980 PRINT »*********************************************************« EOS
0x2252…2265 3990 PRINT »***« SEMI = ( 55 ) → b5f270032a2a2af3
0x2265…2293 4000 PRINT »*** NO. OF OBSERV. POINTS STORED TO FILE=« SEMI EOS
0x2293…229c 4010 PRINT USING ( var(D$) ) COMMA var(N0%) SEMI EOS
0x229c…22a9 4020 PRINT = ( 55 ) → b5f270032a2a2af3
0x22a9…22b9 4030 1602f2700a4b4e4f574e2e44415441f3
0x22b9…22cd 4040 PRINT 2# SEMI var(G0%) EOS 32 var(G'<2f86>) var(P'<2f8f>) 46 32 var(P'<2f8f>) var(P$) 32 var(G5'<2586>) var(P'<2f8f>) var(D$) var(G'<2f86>) var(G9) var(M0)
0x22cd…22f6 4050 REM --- STORE KNOWN POINTS TO FILE ---
0x22f6…22fc 4060 195901f156f3
0x22fc…2302 4070 195a01f104f3
0x2302…230e 4080 PRINT 2# SEMI ELEMENT var(G'<2f86>) ( var(J%) var(I%) ) [] EOS
0x230e…2311 4090 1a5af3
0x2311…2314 4100 1a59f3
0x2314…231a 4110 PRINT 2# SEMI var(G1%) EOS
0x231a…231d 4120 1402f3
0x231d…234b 4130 PRINT »*** NO. OF KNOWN POINTS STORED TO FILE = « SEMI EOS
0x234b…2354 4140 PRINT USING ( var(D$) ) COMMA var(G0%) SEMI EOS
0x2354…2361 4150 PRINT = ( 55 ) → b5f270032a2a2af3
0x2361…2374 4160 PRINT »***« SEMI = ( 55 ) → b5f270032a2a2af3
0x2374…23a2 4170 PRINT »*** NO. OF KNOWN POINTS = « SEMI EOS
0x23a2…23ab 4180 PRINT USING ( var(D$) ) COMMA var(G1%) SEMI EOS
0x23ab…23b8 4190 PRINT = ( 55 ) → b5f270032a2a2af3
0x23b8…23cb 4200 PRINT »***« SEMI = ( 55 ) → b5f270032a2a2af3
0x23cb…23db 4210 1603f2700a504152414d2e44415441f3
0x23db…23e8 4220 PRINT 3# SEMI var(F0) EOS 32 var(P$) var(FNC%) var(C2%) var(G9) var(P'<2f8f>) var(F0)
0x23e8…2416 4230 PRINT »*** AXIS ORIENTATION FACTOR = « SEMI EOS
0x2416…2425 4240 PRINT var(F0) SEMI = ( 55 ) → b5f270032a2a2af3
0x2425…2436 4250 PRINT 3# SEMI var(M0) EOS 32 var(M0) var(C2%) var(FNC%) var(Z9%) var(C) 32 32 32 32 32
0x2436…2464 4260 PRINT »*** SCALE = « SEMI EOS
0x2464…2473 4270 PRINT var(M0) SEMI = ( 55 ) → b5f270032a2a2af3
0x2473…2485 4280 PRINT 3# SEMI var(G9) EOS 32 var(P$) var(C) var(D$) var(Z9%) 32 var(T$) var(F0) var(C) var(G'<2f86>) var(M0) var(C)
0x2485…24c2 4320 PRINT »*********************************************************« EOS
0x24c2…24c5 4330 1403f3
0x24c5…24c7 4340 PRINT EOS
0x24c7…24c9 4350 PRINT EOS
0x24c9…24e9 5300 PRINT » ########################« EOS
0x24e9…2509 5360 PRINT » ### CHAIN TO TRANS ###« EOS
0x2509…2529 5370 PRINT » ########################« EOS
0x2529…2536 5380 CHAIN »TRANS.MAP« EOS
0x2536…2539 5999 GOTO → 9999
0x2539…2567 6000 REM ** SUBROUTINE TO READ FROM COUNTCART **
0x2567…2572 6003 LET var(A0%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x2572…25b5 6004 PRINT »*************** READING DATA FROM INSTRUMENT ***************« EOS
0x25b5…25bc 6005 LET var(L%) COMMA var(L%) 1 PLUS EOS
0x25bc…25c9 6010 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 1 ) var(FNC%) EOS
0x25c9…25d2 6011 PRINT USING ( var(D$) ) COMMA var(L%) SEMI EOS
0x25d2…25d5 6012 PRINT var(P$) EOS
0x25d5…25e2 6013 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 13 ) var(FNC%) EOS
0x25e2…25e9 6021 INPUT »=« COMMA var(N$) EOS
0x25e9…25f4 6030 IF = ( var(N$) ) LEN 0 EQ COMMA 34 EOS
0x25f4…25fb 6031 LET var(N$) COMMA »F« EOS
0x25fb…25fe 6032 GOTO → 8019
0x25fe…25ff 6033 DOEND
0x25ff…261b 6035 IF = ( var(N$) ) LEN 1 EQ = ( var(N$) ) → ac30e8ed71734874ac39eaeef1008019
0x261b…262a 6040 LET ELEMENT var(P'<2f8f>) ( 1 var(L%) ) [] COMMA = ( var(N$) ) VAL EOS
0x262a…2637 6041 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 31 ) var(FNC%) EOS
0x2637…264e 6045 GOSUB 0 → 8020524541442046524f4d20434f554e5443415254
0x264e…265b 6050 1d7005504544414cf101f25cf3
0x265b…2674 6055 IF var(S6%) 0 EQ COMMA 0 var(C) var(A%) 32 var(G5'<2586>) var(C) var(C3%) var(FNC%) var(Z9%) 32 var(G'<2f86>) var(P'<2f8f>) var(G9) 32 var(C3%) var(P'<2f8f>) var(G1%) var(G'<2f86>) 32 32
0x2674…267f 6061 LET ELEMENT var(P'<2f8f>) ( 2 var(L%) ) [] COMMA var(X) EOS
0x267f…268a 6062 LET ELEMENT var(P'<2f8f>) ( 3 var(L%) ) [] COMMA var(Y) EOS
0x268a…2695 6063 LET ELEMENT var(P'<2f8f>) ( 4 var(L%) ) [] COMMA var(Z) EOS
0x2695…26a2 6064 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 28 ) var(FNC%) EOS
0x26a2…26a6 6065 PRINT var(X) SEMI EOS
0x26a6…26b3 6066 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 42 ) var(FNC%) EOS
0x26b3…26b7 6067 PRINT var(Y) SEMI EOS
0x26b7…26c4 6068 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 56 ) var(FNC%) EOS
0x26c4…26c7 6069 PRINT var(Z) EOS
0x26c7…26ca 6070 GOTO 5 var(A%)
0x26ca…26f8 8000 REM ** SUBROUTINE TO READ FROM COUNTCART ***
0x26f8…26fd 8004 LET var(A%) COMMA 3 EOS
0x26fd…2719 8050 1d700654454c4c4552f160f261f162f163f164f165f166f167f168f3
0x2719…272f 8100 IF var(X1%) %128 > COMMA 27 var(X1%) COMMA var(X1%) 256 SUB2 EOS
0x272f…274f 8110 IF var(X%) 0 ?< COMMA 27 var(X) COMMA var(X1%) 65534 MULT 65534 PLUS var(X%) PLUS EOS
0x274f…2761 8120 ELSE 27 var(X) COMMA var(X1%) 65534 MULT var(X%) PLUS EOS
0x2761…2777 8130 IF var(Y1%) %128 > COMMA 27 var(Y1%) COMMA var(Y1%) 256 SUB2 EOS
0x2777…2797 8140 IF var(Y%) 0 ?< COMMA 27 var(Y) COMMA var(Y1%) 65534 MULT 65534 PLUS var(Y%) PLUS EOS
0x2797…27a9 8150 ELSE 27 var(Y) COMMA var(Y1%) 65534 MULT var(Y%) PLUS EOS
0x27a9…27bf 8160 IF var(Z1%) %128 > COMMA 27 var(Z1%) COMMA var(Z1%) 256 SUB2 EOS
0x27bf…27df 8170 IF var(Z%) 0 ?< COMMA 27 var(Z) COMMA var(Z1%) 65534 MULT 65534 PLUS var(Z%) PLUS EOS
0x27df…27f1 8180 ELSE 27 var(Z) COMMA var(Z1%) 65534 MULT var(Z%) PLUS EOS
0x27f1…2804 8190 LET var(X4) COMMA var(C1) var(A1) var(X) MULT PLUS var(A2) var(Y) MULT PLUS var(A3) var(Z) MULT PLUS EOS
0x2804…2819 8200 LET var(Y4) COMMA var(C2) var(A4) var(X) MULT PLUS var(A5) var(Y) MULT PLUS var(A6) var(Z) MULT PLUS EOS
0x2819…282e 8210 LET var(Z4) COMMA var(C3) var(A7) var(X) MULT PLUS var(A8) var(Y) MULT PLUS var(A9) var(Z) MULT PLUS EOS
0x282e…283e 8220 LET var(X) COMMA var(X4) COMMA var(Y) COMMA var(Y4) COMMA var(Z) COMMA var(Z4) EOS
0x283e…2840 8230 RETURN EOS
0x2840…2855 9000 REM LESER TRANSPARAM
0x2855…2866 9010 1603f2700b415452414e532e44415441f3
0x2866…286c 9020 INPUT 3# SEMI var(C1) EOS
0x286c…2872 9030 INPUT 3# SEMI var(C2) EOS
0x2872…2878 9040 INPUT 3# SEMI var(C3) EOS
0x2878…287e 9050 INPUT 3# SEMI var(A1) EOS
0x287e…2884 9060 INPUT 3# SEMI var(A2) EOS
0x2884…288b 9070 INPUT 3# SEMI var(A3) EOS
0x288b…2892 9080 INPUT 3# SEMI var(A4) EOS
0x2892…2899 9090 INPUT 3# SEMI var(A5) EOS
0x2899…28a0 9100 INPUT 3# SEMI var(A6) EOS
0x28a0…28a7 9110 INPUT 3# SEMI var(A7) EOS
0x28a7…28ae 9120 INPUT 3# SEMI var(A8) EOS
0x28ae…28b5 9130 INPUT 3# SEMI var(A9) EOS
0x28b5…28b8 9140 1403f3
0x28b8…28ba 9150 RETURN EOS