|
DataMuseum.dkPresents historical artifacts from the history of: Zilog MCZ Floppy Disks |
This is an automatic "excavation" of a thematic subset of
Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 10092 (0x276c)
Notes: ZILOG_BASIC
Names: »INDAT.MAP.BP«
└─⟦8ff4bf6ca⟧ Bits:30006821 8" ZilogMCZ floppy NThun_0029 (MAPDAT-DIG/PLOT 18/10-82 Tilpasset for bruk pÅ MCZ 1/35 Ny versjon av PREPARE)
└─⟦this⟧ »INDAT.MAP.BP«
0x0000…0014 BasicHead {variables=0x00a0, stms=0x063c, f2=0x207c, f3=0000000000000000000000000000}
0x0014…00b4 [
0x0014…00b4 [0x00]: VarDef {f0=0x6790, f1=0x41, f2=0x24} E1% 0x27
0x0014…00b4 [0x01]: VarDef {f0=0x6780, f1=0x41, f2=0x39} Z1% 0x26
0x0014…00b4 [0x02]: VarDef {f0=0x6770, f1=0x41, f2=0x38} Y1% 0x25
0x0014…00b4 [0x03]: VarDef {f0=0x6760, f1=0x41, f2=0x37} X1% 0x24
0x0014…00b4 [0x04]: VarDef {f0=0x6750, f1=0x4f, f2=0x24} E% 0x23
0x0014…00b4 [0x05]: VarDef {f0=0x6740, f1=0x4f, f2=0x39} Z% 0x22
0x0014…00b4 [0x06]: VarDef {f0=0x6730, f1=0x4f, f2=0x38} Y% 0x21
0x0014…00b4 [0x07]: VarDef {f0=0x6720, f1=0x4f, f2=0x37} X% 0x20
0x0014…00b4 [0x08]: VarDef {f0=0x6700, f1=0x4f, f2=0x20} A% 0x1f
0x0014…00b4 [0x09]: VarDef {f0=0x6640, f1=0x4f, f2=0x19} Z 0x1e
0x0014…00b4 [0x0a]: VarDef {f0=0x6632, f1=0x4f, f2=0x18} Y 0x1d
0x0014…00b4 [0x0b]: VarDef {f0=0x6630, f1=0x4f, f2=0x17} X 0x1c
0x0014…00b4 [0x0c]: VarDef {f0=0x6550, f1=0x46, f2=0x32} S6% 0x1b
0x0014…00b4 [0x0d]: VarDef {f0=0x5017, f1=0x4f, f2=0x2a} K% 0x1a
0x0014…00b4 [0x0e]: VarDef {f0=0x2280, f1=0x4f, f2=0x29} J% 0x19
0x0014…00b4 [0x0f]: VarDef {f0=0x1660, f1=0x4f, f2=0x28} I% 0x18
0x0014…00b4 [0x10]: VarDef {f0=0x1420, f1=0x4f, f2=0x2b} L% 0x17
0x0014…00b4 [0x11]: VarDef {f0=0x1419, f1=0x41, f2=0x26} G1% 0x16
0x0014…00b4 [0x12]: VarDef {f0=0x1418, f1=0x40, f2=0x26} G0% 0x15
0x0014…00b4 [0x13]: VarDef {f0=0x1417, f1=0x40, f2=0x2d} N0% 0x14
0x0014…00b4 [0x14]: VarDef {f0=0x1411, f1=0x49, f2=0x06} G9 0x13
0x0014…00b4 [0x15]: VarDef {f0=0x1409, f1=0x40, f2=0x0c} M0 0x12
0x0014…00b4 [0x16]: VarDef {f0=0x1407, f1=0x40, f2=0x05} F0 0x11
0x0014…00b4 [0x17]: VarDef {f0=0x1240, f1=0x40, f2=0x20} A0% 0x10
0x0014…00b4 [0x18]: VarDef {f0=0x1205, f1=0x45, f2=0x86} G5' 0xf
0x0014…00b4 [0x19]: VarDef {f0=0x1200, f1=0x4f, f2=0x8f} P' 0xe
0x0014…00b4 [0x1a]: VarDef {f0=0x1030, f1=0x4f, f2=0x86} G' 0xd
0x0014…00b4 [0x1b]: VarDef {f0=0x1025, f1=0x4f, f2=0x8c} M' 0xc
0x0014…00b4 [0x1c]: VarDef {f0=0x1023, f1=0x49, f2=0x39} Z9% 0xb
0x0014…00b4 [0x1d]: VarDef {f0=0x1021, f1=0x42, f2=0x43} D2$ 0xa
0x0014…00b4 [0x1e]: VarDef {f0=0x1020, f1=0x41, f2=0x43} D1$ 0x9
0x0014…00b4 [0x1f]: VarDef {f0=0x1019, f1=0x4f, f2=0x43} D$ 0x8
0x0014…00b4 [0x20]: VarDef {f0=0x1018, f1=0x4f, f2=0x4d} N$ 0x7
0x0014…00b4 [0x21]: VarDef {f0=0x1017, f1=0x4f, f2=0x53} T$ 0x6
0x0014…00b4 [0x22]: VarDef {f0=0x1016, f1=0x4f, f2=0x4f} P$ 0x5
0x0014…00b4 [0x23]: VarDef {f0=0x0230, f1=0x4f, f2=0x02} C 0x4
0x0014…00b4 [0x24]: VarDef {f0=0x0210, f1=0x43, f2=0x22} C3% 0x3
0x0014…00b4 [0x25]: VarDef {f0=0x0150, f1=0x42, f2=0x22} C2% 0x2
0x0014…00b4 [0x26]: VarDef {f0=0x0102, f1=0x41, f2=0x22} C1% 0x1
0x0014…00b4 [0x27]: VarDef {f0=0x0101, f1=0x5f, f2=0x22} FNC% 0x0
0x0014…00b4 ]
0x00b4…00b8 Statement 33168 @0x276a
0x00b8…00bc Statement 33152 @0x2758
0x00bc…00c0 Statement 33136 @0x2738
0x00c0…00c4 Statement 33120 @0x2722
0x00c4…00c8 Statement 33104 @0x2710
0x00c8…00cc Statement 33088 @0x26f0
0x00cc…00d0 Statement 33072 @0x26da
0x00d0…00d4 Statement 33056 @0x26c8
0x00d4…00d8 Statement 33040 @0x26a8
0x00d8…00dc Statement 33024 @0x2692
0x00dc…00e0 Statement 32848 @0x2676
0x00e0…00e4 Statement 32772 @0x2671
0x00e4…00e8 Statement 32768 @0x2643
0x00e8…00ec Statement 24688 @0x2640
0x00ec…00f0 Statement 24681 @0x263d
0x00f0…00f4 Statement 24680 @0x2630
0x00f4…00f8 Statement 24679 @0x262c
0x00f8…00fc Statement 24678 @0x261f
0x00fc…0100 Statement 24677 @0x261b
0x0100…0104 Statement 24676 @0x260e
0x0104…0108 Statement 24675 @0x2603
0x0108…010c Statement 24674 @0x25f8
0x010c…0110 Statement 24673 @0x25ed
0x0110…0114 Statement 24661 @0x25d4
0x0114…0118 Statement 24656 @0x25c7
0x0118…011c Statement 24645 @0x25b0
0x011c…0120 Statement 24641 @0x25a3
0x0120…0124 Statement 24640 @0x2594
0x0124…0128 Statement 24629 @0x2578
0x0128…012c Statement 24627 @0x2577
0x012c…0130 Statement 24626 @0x2574
0x0130…0134 Statement 24625 @0x256d
0x0134…0138 Statement 24624 @0x2562
0x0138…013c Statement 24609 @0x255b
0x013c…0140 Statement 24595 @0x254e
0x0140…0144 Statement 24594 @0x254b
0x0144…0148 Statement 24593 @0x2542
0x0148…014c Statement 24592 @0x2535
0x014c…0150 Statement 24581 @0x252e
0x0150…0154 Statement 24580 @0x24eb
0x0154…0158 Statement 24579 @0x24e0
0x0158…015c Statement 24576 @0x24b2
0x015c…0160 Statement 22937 @0x24af
0x0160…0164 Statement 21376 @0x24a2
0x0164…0168 Statement 21360 @0x2482
0x0168…016c Statement 21344 @0x2462
0x016c…0170 Statement 21248 @0x2442
0x0170…0174 Statement 17232 @0x2440
0x0174…0178 Statement 17216 @0x243e
0x0178…017c Statement 17200 @0x243b
0x017c…0180 Statement 17184 @0x23fe
0x0180…0184 Statement 17024 @0x23ec
0x0184…0188 Statement 17008 @0x23dd
0x0188…018c Statement 16992 @0x23af
0x018c…0190 Statement 16976 @0x239e
0x0190…0194 Statement 16960 @0x238f
0x0194…0198 Statement 16944 @0x2361
0x0198…019c Statement 16928 @0x2354
0x019c…01a0 Statement 16912 @0x2342
0x01a0…01a4 Statement 16896 @0x232f
0x01a4…01a8 Statement 16784 @0x2322
0x01a8…01ac Statement 16768 @0x2319
0x01ac…01b0 Statement 16752 @0x22eb
0x01b0…01b4 Statement 16736 @0x22d8
0x01b4…01b8 Statement 16720 @0x22cb
0x01b8…01bc Statement 16704 @0x22c2
0x01bc…01c0 Statement 16688 @0x2294
0x01c0…01c4 Statement 16672 @0x2291
0x01c4…01c8 Statement 16656 @0x228b
0x01c8…01cc Statement 16640 @0x2288
0x01cc…01d0 Statement 16528 @0x2285
0x01d0…01d4 Statement 16512 @0x2279
0x01d4…01d8 Statement 16496 @0x2273
0x01d8…01dc Statement 16480 @0x226d
0x01dc…01e0 Statement 16464 @0x2244
0x01e0…01e4 Statement 16448 @0x2230
0x01e4…01e8 Statement 16432 @0x221e
0x01e8…01ec Statement 16416 @0x2211
0x01ec…01f0 Statement 16400 @0x2208
0x01f0…01f4 Statement 16384 @0x21da
0x01f4…01f8 Statement 14736 @0x21c7
0x01f8…01fc Statement 14720 @0x218a
0x01fc…0200 Statement 14704 @0x2188
0x0200…0204 Statement 14688 @0x2186
0x0204…0208 Statement 14672 @0x2184
0x0208…020c Statement 14656 @0x2182
0x020c…0210 Statement 14640 @0x2180
0x0210…0214 Statement 14624 @0x217d
0x0214…0218 Statement 14608 @0x217a
0x0218…021c Statement 14592 @0x2177
0x021c…0220 Statement 14480 @0x216b
0x0220…0224 Statement 14464 @0x2165
0x0224…0228 Statement 14448 @0x215f
0x0228…022c Statement 14432 @0x2133
0x022c…0230 Statement 14416 @0x211f
0x0230…0234 Statement 14400 @0x210f
0x0234…0238 Statement 14384 @0x210b
0x0238…023c Statement 14368 @0x20dd
0x023c…0240 Statement 14352 @0x20af
0x0240…0244 Statement 14336 @0x20ad
0x0244…0248 Statement 14224 @0x20aa
0x0248…024c Statement 14208 @0x20a4
0x024c…0250 Statement 14192 @0x20a1
0x0250…0254 Statement 14176 @0x209e
0x0254…0258 Statement 14160 @0x2092
0x0258…025c Statement 14144 @0x208c
0x025c…0260 Statement 14128 @0x2086
0x0260…0264 Statement 14112 @0x206c
0x0264…0268 Statement 14096 @0x205a
0x0268…026c Statement 14080 @0x2056
0x026c…0270 Statement 13968 @0x2014
0x0270…0274 Statement 13952 @0x1fd2
0x0274…0278 Statement 13936 @0x1fd0
0x0278…027c Statement 13920 @0x1fcd
0x027c…0280 Statement 13904 @0x1fca
0x0280…0284 Statement 13888 @0x1fc7
0x0284…0288 Statement 13872 @0x1fbb
0x0288…028c Statement 13856 @0x1fb5
0x028c…0290 Statement 13840 @0x1faf
0x0290…0294 Statement 13824 @0x1f9e
0x0294…0298 Statement 13712 @0x1f8e
0x0298…029c Statement 13696 @0x1f8a
0x029c…02a0 Statement 13680 @0x1f50
0x02a0…02a4 Statement 13664 @0x1f16
0x02a4…02a8 Statement 13648 @0x1f12
0x02a8…02ac Statement 13632 @0x1ef0
0x02ac…02b0 Statement 13616 @0x1ed4
0x02b0…02b4 Statement 13600 @0x1ed1
0x02b4…02b8 Statement 13584 @0x1ece
0x02b8…02bc Statement 13568 @0x1ebb
0x02bc…02c0 Statement 13456 @0x1ea8
0x02c0…02c4 Statement 13440 @0x1e99
0x02c4…02c8 Statement 13424 @0x1e7f
0x02c8…02cc Statement 13408 @0x1e79
0x02cc…02d0 Statement 13392 @0x1e76
0x02d0…02d4 Statement 13376 @0x1e6d
0x02d4…02d8 Statement 13360 @0x1e60
0x02d8…02dc Statement 13344 @0x1e5e
0x02dc…02e0 Statement 13328 @0x1e58
0x02e0…02e4 Statement 13312 @0x1e31
0x02e4…02e8 Statement 13200 @0x1dff
0x02e8…02ec Statement 13184 @0x1dfd
0x02ec…02f0 Statement 13168 @0x1dfa
0x02f0…02f4 Statement 13152 @0x1dca
0x02f4…02f8 Statement 13136 @0x1d91
0x02f8…02fc Statement 13120 @0x1d7f
0x02fc…0300 Statement 13104 @0x1d71
0x0300…0304 Statement 12944 @0x1d66
0x0304…0308 Statement 12928 @0x1d62
0x0308…030c Statement 12912 @0x1d5b
0x030c…0310 Statement 12896 @0x1d58
0x0310…0314 Statement 12880 @0x1d44
0x0314…0318 Statement 12864 @0x1d31
0x0318…031c Statement 12848 @0x1d23
0x031c…0320 Statement 12832 @0x1d1c
0x0320…0324 Statement 12816 @0x1d11
0x0324…0328 Statement 12800 @0x1cde
0x0328…032c Statement 12688 @0x1cd3
0x032c…0330 Statement 12677 @0x1cd0
0x0330…0334 Statement 12672 @0x1cc5
0x0334…0338 Statement 12656 @0x1cc1
0x0338…033c Statement 12640 @0x1cba
0x033c…0340 Statement 12624 @0x1cb7
0x0340…0344 Statement 12608 @0x1ca3
0x0344…0348 Statement 12592 @0x1c90
0x0348…034c Statement 12576 @0x1c81
0x034c…0350 Statement 12560 @0x1c7a
0x0350…0354 Statement 12544 @0x1c6f
0x0354…0358 Statement 12432 @0x1c3c
0x0358…035c Statement 12416 @0x1c31
0x035c…0360 Statement 12400 @0x1c2d
0x0360…0364 Statement 12384 @0x1c26
0x0364…0368 Statement 12368 @0x1c23
0x0368…036c Statement 12357 @0x1c20
0x036c…0370 Statement 12352 @0x1c15
0x0370…0374 Statement 12336 @0x1c01
0x0374…0378 Statement 12320 @0x1bff
0x0378…037c Statement 12309 @0x1bfc
0x037c…0380 Statement 12304 @0x1bf1
0x0380…0384 Statement 12288 @0x1bee
0x0384…0388 Statement 10640 @0x1bb8
0x0388…038c Statement 10624 @0x1bad
0x038c…0390 Statement 10608 @0x1ba0
0x0390…0394 Statement 10592 @0x1b9e
0x0394…0398 Statement 10576 @0x1b78
0x0398…039c Statement 10560 @0x1b63
0x039c…03a0 Statement 10544 @0x1b57
0x03a0…03a4 Statement 10528 @0x1b50
0x03a4…03a8 Statement 10512 @0x1b45
0x03a8…03ac Statement 10496 @0x1b12
0x03ac…03b0 Statement 10384 @0x1b07
0x03b0…03b4 Statement 10368 @0x1b03
0x03b4…03b8 Statement 10352 @0x1b00
0x03b8…03bc Statement 10336 @0x1af9
0x03bc…03c0 Statement 10320 @0x1af6
0x03c0…03c4 Statement 10304 @0x1acb
0x03c4…03c8 Statement 10288 @0x1ab3
0x03c8…03cc Statement 10272 @0x1a92
0x03cc…03d0 Statement 10256 @0x1a83
0x03d0…03d4 Statement 10240 @0x1a75
0x03d4…03d8 Statement 10128 @0x1a68
0x03d8…03dc Statement 10112 @0x1a65
0x03dc…03e0 Statement 10096 @0x1a62
0x03e0…03e4 Statement 10080 @0x1a4f
0x03e4…03e8 Statement 10064 @0x1a3c
0x03e8…03ec Statement 10048 @0x1a2d
0x03ec…03f0 Statement 10032 @0x1a03
0x03f0…03f4 Statement 10016 @0x19fd
0x03f4…03f8 Statement 10000 @0x19fa
0x03f8…03fc Statement 09984 @0x19f1
0x03fc…0400 Statement 09872 @0x19e4
0x0400…0404 Statement 09856 @0x19dc
0x0404…0408 Statement 09840 @0x19da
0x0408…040c Statement 09824 @0x19bd
0x040c…0410 Statement 09808 @0x19a7
0x0410…0414 Statement 09792 @0x1997
0x0414…0418 Statement 09776 @0x1994
0x0418…041c Statement 09760 @0x1977
0x041c…0420 Statement 09744 @0x1971
0x0420…0424 Statement 09728 @0x196a
0x0424…0428 Statement 09616 @0x195f
0x0428…042c Statement 09600 @0x192c
0x042c…0430 Statement 09584 @0x1921
0x0430…0434 Statement 09568 @0x191e
0x0434…0438 Statement 09552 @0x1917
0x0438…043c Statement 09536 @0x1914
0x043c…0440 Statement 09520 @0x18e9
0x0440…0444 Statement 09504 @0x18d1
0x0444…0448 Statement 09488 @0x18ce
0x0448…044c Statement 09472 @0x189d
0x044c…0450 Statement 09360 @0x1872
0x0450…0454 Statement 09344 @0x186f
0x0454…0458 Statement 09328 @0x1849
0x0458…045c Statement 09312 @0x1836
0x045c…0460 Statement 09296 @0x1830
0x0460…0464 Statement 09280 @0x181b
0x0464…0468 Statement 09264 @0x17fc
0x0468…046c Statement 09248 @0x17e6
0x046c…0470 Statement 09232 @0x17df
0x0470…0474 Statement 09216 @0x17ce
0x0474…0478 Statement 09104 @0x17ca
0x0478…047c Statement 09088 @0x17c3
0x047c…0480 Statement 09072 @0x17c0
0x0480…0484 Statement 09056 @0x17ba
0x0484…0488 Statement 09040 @0x17a4
0x0488…048c Statement 09024 @0x1791
0x048c…0490 Statement 09008 @0x178e
0x0490…0494 Statement 08992 @0x1771
0x0494…0498 Statement 08976 @0x176b
0x0498…049c Statement 08960 @0x1765
0x049c…04a0 Statement 08848 @0x175a
0x04a0…04a4 Statement 08832 @0x1727
0x04a4…04a8 Statement 08816 @0x171c
0x04a8…04ac Statement 08800 @0x1718
0x04ac…04b0 Statement 08784 @0x1711
0x04b0…04b4 Statement 08768 @0x170e
0x04b4…04b8 Statement 08752 @0x16eb
0x04b8…04bc Statement 08736 @0x16d6
0x04bc…04c0 Statement 08720 @0x16d3
0x04c0…04c4 Statement 08704 @0x16a1
0x04c4…04c8 Statement 08592 @0x1692
0x04c8…04cc Statement 08576 @0x1681
0x04cc…04d0 Statement 08560 @0x167d
0x04d0…04d4 Statement 08544 @0x1676
0x04d4…04d8 Statement 08528 @0x1673
0x04d8…04dc Statement 08512 @0x166d
0x04dc…04e0 Statement 08496 @0x166a
0x04e0…04e4 Statement 08480 @0x163b
0x04e4…04e8 Statement 08464 @0x1633
0x04e8…04ec Statement 08448 @0x1609
0x04ec…04f0 Statement 08336 @0x15eb
0x04f0…04f4 Statement 08320 @0x15dc
0x04f4…04f8 Statement 08304 @0x15bd
0x04f8…04fc Statement 08295 @0x15b5
0x04fc…0500 Statement 08293 @0x1588
0x0500…0504 Statement 08272 @0x1572
0x0504…0508 Statement 08256 @0x155b
0x0508…050c Statement 08240 @0x152f
0x050c…0510 Statement 08224 @0x1501
0x0510…0514 Statement 08208 @0x14e5
0x0514…0518 Statement 08192 @0x14c7
0x0518…051c Statement 06544 @0x14b5
0x051c…0520 Statement 06533 @0x14aa
0x0520…0524 Statement 06528 @0x1489
0x0524…0528 Statement 06512 @0x1477
0x0528…052c Statement 06496 @0x1470
0x052c…0530 Statement 06488 @0x146c
0x0530…0534 Statement 06480 @0x145f
0x0534…0538 Statement 06464 @0x145c
0x0538…053c Statement 06448 @0x1453
0x053c…0540 Statement 06432 @0x1446
0x0540…0544 Statement 06416 @0x1444
0x0544…0548 Statement 06288 @0x143d
0x0548…054c Statement 06256 @0x1424
0x054c…0550 Statement 06240 @0x1413
0x0550…0554 Statement 06224 @0x13f7
0x0554…0558 Statement 06208 @0x13c7
0x0558…055c Statement 06192 @0x13aa
0x055c…0560 Statement 06176 @0x1369
0x0560…0564 Statement 06160 @0x1332
0x0564…0568 Statement 06144 @0x1311
0x0568…056c Statement 06032 @0x12f2
0x056c…0570 Statement 06016 @0x12ee
0x0570…0574 Statement 06000 @0x12b5
0x0574…0578 Statement 05984 @0x128a
0x0578…057c Statement 05968 @0x1287
0x057c…0580 Statement 05952 @0x1246
0x0580…0584 Statement 05936 @0x1240
0x0584…0588 Statement 05920 @0x1235
0x0588…058c Statement 05904 @0x1218
0x058c…0590 Statement 05888 @0x1202
0x0590…0594 Statement 05776 @0x11ff
0x0594…0598 Statement 05760 @0x11be
0x0598…059c Statement 05744 @0x11b8
0x059c…05a0 Statement 05728 @0x11a3
0x05a0…05a4 Statement 05712 @0x1187
0x05a4…05a8 Statement 05696 @0x1165
0x05a8…05ac Statement 05680 @0x1136
0x05ac…05b0 Statement 05664 @0x112f
0x05b0…05b4 Statement 05648 @0x1124
0x05b4…05b8 Statement 05632 @0x10eb
0x05b8…05bc Statement 05520 @0x10b2
0x05bc…05c0 Statement 05509 @0x10b0
0x05c0…05c4 Statement 05504 @0x1098
0x05c4…05c8 Statement 05488 @0x1095
0x05c8…05cc Statement 05472 @0x1054
0x05cc…05d0 Statement 05456 @0x104e
0x05d0…05d4 Statement 05440 @0x102f
0x05d4…05d8 Statement 05424 @0x1019
0x05d8…05dc Statement 05408 @0x1016
0x05dc…05e0 Statement 05392 @0xfd5
0x05e0…05e4 Statement 05376 @0xfcf
0x05e4…05e8 Statement 05264 @0xfba
0x05e8…05ec Statement 05248 @0xf9a
0x05ec…05f0 Statement 05232 @0xf76
0x05f0…05f4 Statement 05216 @0xf56
0x05f4…05f8 Statement 05200 @0xf4f
0x05f8…05fc Statement 05184 @0xf44
0x05fc…0600 Statement 05168 @0xf0b
0x0600…0604 Statement 05152 @0xed2
0x0604…0608 Statement 05141 @0xed0
0x0608…060c Statement 05136 @0xec5
0x060c…0610 Statement 05120 @0xeaf
0x0610…0614 Statement 04992 @0xe8b
0x0614…0618 Statement 04985 @0xe89
0x0618…061c Statement 04983 @0xe86
0x061c…0620 Statement 04981 @0xe83
0x0620…0624 Statement 04976 @0xe51
0x0624…0628 Statement 04968 @0xe25
0x0628…062c Statement 04966 @0xdf8
0x062c…0630 Statement 04964 @0xde6
0x0630…0634 Statement 04962 @0xde2
0x0634…0638 Statement 04944 @0xda7
0x0638…063c Statement 04928 @0xd77
0x063c…0640 Statement 04912 @0xd48
0x0640…0644 Statement 04896 @0xd20
0x0644…0648 Statement 04880 @0xcfa
0x0648…064c Statement 04864 @0xcd2
0x064c…0650 Statement 04752 @0xca1
0x0650…0654 Statement 04736 @0xc9f
0x0654…0658 Statement 04725 @0xc5f
0x0658…065c Statement 04720 @0xc1f
0x065c…0660 Statement 04704 @0xc1d
0x0660…0664 Statement 04693 @0xbfe
0x0664…0668 Statement 04688 @0xbda
0x0668…066c Statement 04672 @0xba5
0x066c…0670 Statement 04662 @0xb65
0x0670…0674 Statement 04660 @0xb31
0x0674…0678 Statement 04658 @0xb00
0x0678…067c Statement 04656 @0xac6
0x067c…0680 Statement 04640 @0xa8e
0x0680…0684 Statement 04625 @0xa5d
0x0684…0688 Statement 04624 @0xa2b
0x0688…068c Statement 04608 @0xa29
0x068c…0690 Statement 04496 @0xa27
0x0690…0694 Statement 04480 @0x9e1
0x0694…0698 Statement 04464 @0x99b
0x0698…069c Statement 04448 @0x955
0x069c…06a0 Statement 04368 @0x94a
0x06a0…06a4 Statement 04352 @0x91d
0x06a4…06a8 Statement 04240 @0x8f0
0x06a8…06ac Statement 04229 @0x8dd
0x06ac…06b0 Statement 04224 @0x8ad
0x06b0…06b4 Statement 04208 @0x87c
0x06b4…06b8 Statement 04192 @0x862
0x06b8…06bc Statement 04176 @0x84b
0x06bc…06c0 Statement 04160 @0x830
0x06c0…06c4 Statement 04144 @0x806
0x06c4…06c8 Statement 04128 @0x802
0x06c8…06cc Statement 04112 @0x7c8
0x06cc…06d0 Statement 04101 @0x78c
0x06d0…06d4 Statement 04096 @0x752
0x06d4…06d8 Statement 01152 @0x751
0x06d8…06dc Statement 01136 @0x74e
0x06dc…06e0 Statement 01088 @0x733
0x06e0…06e4 Statement 01072 @0x717
0x06e4…06e8 Statement 01056 @0x707
0x06e8…06ec Statement 01040 @0x701
0x06ec…06f0 Statement 01024 @0x6f0
0x06f0…0701 0400 REM ** OUTSCR **
0x0701…0707 0410 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x0707…0717 0420 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af700145e2f3
0x0717…0733 0430 PRINT = ( 27 ) → af700146e2f271731f43e274aff271731f44e274aff2f3
0x0733…074e 0440 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → aff271736f4e0042e374aff2f3
0x074e…0751 0470 RETURN 0 EOS
0x0751…0752 0480 FNEND
0x0752…078c 1000 REM **************************************************
0x078c…07c8 1005 REM *** THREE DIMENSIONAL ORTHOGONAL TRANSFORMATION ***
0x07c8…0802 1010 REM **************************************************
0x0802…0806 1020 REM
0x0806…0830 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
0x0830…084b 1040 LET var(Z9%) COMMA 19 EOS 32 var(M') var(FNC%) var(L%) 46 32 var(G') var(N0%) var(M') var(C1%) var(C) var(F0) 32 var(P') var(P$) 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x084b…0862 1050 DIM ELEMENT var(M') ( 4 var(Z9%) ) [] ELEMENT var(G') ( 4 var(Z9%) ) [] ELEMENT var(P') ( 4 var(Z9%) ) [] EOS
0x0862…087c 1060 DIM ELEMENT var(G5') ( 4 2 ) [] EOS 32 var(Z9%) var(D$) var(M') var(D$) var(G9) 32 var(P$) var(P') var(F0) 32 var(M') var(FNC%) var(G9) var(F0) var(D$) var(L%)
0x087c…08ad 1070 LET ELEMENT var(G5') ( 1 1 ) [] COMMA 9999 COMMA ELEMENT var(G5') ( 1 2 ) [] COMMA 1 EOS 32 var(Z9%) var(D$) var(M') var(D$) var(G9) 32 var(P$) var(P') var(F0) 32 var(G5') var(P') var(D$) var(G') var(G9) 32 var(G') var(P') 46
0x08ad…08dd 1080 LET ELEMENT var(G5') ( 2 1 ) [] COMMA 1e+07 COMMA ELEMENT var(G5') ( 2 2 ) [] COMMA 0 EOS 32 var(Z9%) var(D$) var(M') var(D$) var(G9) 32 var(P$) var(P') var(F0) 32 var(L%) 45 var(C2%) var(P') var(P') var(F0) var(C3%) 46
0x08dd…08f0 1085 LET ELEMENT var(G5') ( 2 2 ) [] COMMA -10000 EOS
0x08f0…091d 1090 LET ELEMENT var(G5') ( 3 1 ) [] COMMA 1e+07 COMMA ELEMENT var(G5') ( 3 2 ) [] COMMA -1e+07 EOS 32 32 32 32 32 32 32 var(I%)
0x091d…094a 1100 LET ELEMENT var(G5') ( 4 1 ) [] COMMA 999999 COMMA ELEMENT var(G5') ( 4 2 ) [] COMMA -999999 EOS 32 32 32 32 32 32 32 var(J%)
0x094a…0955 1110 LET var(A0%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x0955…099b 1160 PRINT »******************************************************************« EOS
0x099b…09e1 1170 PRINT »** TYPING DATA AND THREE DIMENSIONAL ORTHOGONAL TRANSFORMATION **« EOS
0x09e1…0a27 1180 PRINT »******************************************************************« EOS
0x0a27…0a29 1190 PRINT EOS
0x0a29…0a2b 1200 PRINT EOS
0x0a2b…0a5d 1210 PRINT » FIRST READ MODEL POINTS FROM INSTRUMENT« EOS
0x0a5d…0a8e 1211 PRINT » THEN ENTER COORDINATES OF KNOWN POINTS« EOS
0x0a8e…0ac6 1220 PRINT » IF YOU WISH TO SPECIFY NUMBER OF KNOWN POINTS« EOS
0x0ac6…0b00 1230 PRINT » TYPE 'N' AND THE SYSTEM WILL PROMPT FOR NUMBER.« EOS
0x0b00…0b31 1232 PRINT » ONLY THE FIRST 'N' POINTS WILL BE USED« EOS
0x0b31…0b65 1234 PRINT » DEFAULT IS NUMBER OF KNOWN POINTS ENTERED« EOS
0x0b65…0ba5 1236 PRINT » -----------------------------------------------------« EOS
0x0ba5…0bda 1240 PRINT » FOR BOTH GROUPS READ POINT NO. , X , Y « EOS
0x0bda…0bfe 1250 PRINT » AND Z FOR EACH POINT« EOS
0x0bfe…0c1d 1255 PRINT » MAX : « SEMI var(Z9%) SEMI EOS
0x0c1d…0c1f 1260 PRINT EOS
0x0c1f…0c5f 1270 PRINT » IN PLACE OF POINT NUMBERS THESE COMMANDS CAN BE TYPED« EOS
0x0c5f…0c9f 1275 PRINT » -----------------------------------------------------« EOS
0x0c9f…0ca1 1280 PRINT EOS
0x0ca1…0cd2 1290 PRINT » F(Finish) - Finished entering points« EOS
0x0cd2…0cfa 1300 PRINT » C(Correct) - Correct a point« EOS
0x0cfa…0d20 1310 PRINT » E(Erase) - Erase a point« EOS
0x0d20…0d48 1320 PRINT » L(List) - List the points« EOS
0x0d48…0d77 1330 PRINT » N(Number) - Number of known points« EOS
0x0d77…0da7 1340 PRINT » P(Factor) - Axis orientation factor« EOS
0x0da7…0de2 1350 PRINT » I(Instrument) - Begin reading data from instrument« EOS
0x0de2…0de6 1362 TRAP ERR 1375
0x0de6…0df8 1364 1603f2700c302f504152414d2e44415441f3
0x0df8…0e25 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') var(T$) 32 var(FNC%) var(L%) var(D$) var(M0) 32 var(P') var(F0) var(D$) var(C) var(G') var(G9) var(FNC%) var(G9) var(D$) var(P') var(G') 32 var(P$) var(FNC%) var(C2%) var(G9) var(P') var(F0)
0x0e25…0e51 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)
0x0e51…0e83 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') var(F0) 32 var(Z9%) var(D$) var(M') var(D$) var(G9)
0x0e83…0e86 1375 TRAP ERR OFF
0x0e86…0e89 1377 1403f3
0x0e89…0e8b 1379 PRINT EOS
0x0e8b…0eaf 1380 LINPUT » O K ?« var(N$) EOS
0x0eaf…0ec5 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')
0x0ec5…0ed0 1410 LET var(A0%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x0ed0…0ed2 1415 PRINT EOS
0x0ed2…0f0b 1420 PRINT = ( 13 ) → b5f2702f2a2a2a20202052454144494e47204f425345525645442020504f494e54532020203a202020202020202020202a2a2af3
0x0f0b…0f44 1430 PRINT = ( 13 ) → b5f2702f2a2a2a20202057414e5420544f204b454550204f4c4420504f494e545320203f202020203a205f5f5f2020202a2a2af3
0x0f44…0f4f 1440 LET var(A0%) COMMA = ( 2 3 50 ) var(FNC%) EOS
0x0f4f…0f56 1450 INPUT » « COMMA var(N$) EOS
0x0f56…0f76 1460 IF = ( var(N$) ) LEN 0 EQ COMMA 27 ELEMENT var(N$) ( 1 1 ) [] COMMA »Q« EOS 32 var(G') var(P') 32 var(FNC%) var(G') var(M0) var(G1%) var(C) var(F0)
0x0f76…0f9a 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') var(C1%) var(M0) var(C) var(F0) var(G0%) var(C) var(C3%) 32 var(G5') var(P') var(D$) var(G') var(G9)
0x0f9a…0fba 1480 LET var(L%) COMMA var(N0%) EOS 32 32 var(G') var(N0%) var(M') var(C1%) var(C) var(F0) 32 var(P') var(P$) 32 var(P') var(C1%) var(M0) var(C) var(F0) var(G0%) var(C) var(C3%) 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x0fba…0fcf 1490 IF var(L%) 0 EQ COMMA 0 48 21 32 var(G') var(P') var(G') var(C) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$)
0x0fcf…0fd5 1500 195901f158f3
0x0fd5…1016 1510 LET ELEMENT var(P') ( 1 var(I%) ) [] COMMA ELEMENT var(M') ( 1 var(I%) ) [] COMMA ELEMENT var(P') ( 2 var(I%) ) [] COMMA ELEMENT var(M') ( 2 var(I%) ) [] COMMA ELEMENT var(P') ( 3 var(I%) ) [] COMMA ELEMENT var(M') ( 3 var(I%) ) [] COMMA ELEMENT var(P') ( 4 var(I%) ) [] COMMA ELEMENT var(M') ( 4 var(I%) ) [] EOS
0x1016…1019 1520 1a59f3
0x1019…102f 1530 GOSUB 0 24 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$) 32 var(M0) var(N0%) var(C1%) var(F0) var(P') var(N0%) var(G9) var(D$) var(G') var(C)
0x102f…104e 1540 LET var(N0%) COMMA var(L%) EOS 32 var(G') var(N0%) var(M') var(C1%) var(C) var(F0) 32 var(P') var(P$) 32 var(P') var(C1%) var(M0) var(C) var(F0) var(G0%) var(C) var(C3%) 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x104e…1054 1550 195901f158f3
0x1054…1095 1560 LET ELEMENT var(M') ( 1 var(I%) ) [] COMMA ELEMENT var(P') ( 1 var(I%) ) [] COMMA ELEMENT var(M') ( 2 var(I%) ) [] COMMA ELEMENT var(P') ( 2 var(I%) ) [] COMMA ELEMENT var(M') ( 3 var(I%) ) [] COMMA ELEMENT var(P') ( 3 var(I%) ) [] COMMA ELEMENT var(M') ( 4 var(I%) ) [] COMMA ELEMENT var(P') ( 4 var(I%) ) [] EOS
0x1095…1098 1570 1a59f3
0x1098…10b0 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')
0x10b0…10b2 1585 PRINT EOS
0x10b2…10eb 1590 PRINT = ( 13 ) → b5f2702f2a2a2a20202052454144494e47204b4e4f574e20504f494e5453202020202020203a202020202020202020202a2a2af3
0x10eb…1124 1600 PRINT = ( 13 ) → b5f2702f2a2a2a20202057414e5420544f204b454550204f4c4420504f494e5453203f20202020203a205f5f5f2020202a2a2af3
0x1124…112f 1610 LET var(A0%) COMMA = ( 2 3 50 ) var(FNC%) EOS
0x112f…1136 1620 INPUT » « COMMA var(N$) EOS
0x1136…1165 1630 IF = ( var(N$) ) LEN 0 EQ COMMA 27 ELEMENT var(N$) ( 1 1 ) [] COMMA »Q« EOS 32 var(G') var(P') 32 var(FNC%) var(G') var(M0) var(G1%) var(C) var(F0) 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32
0x1165…1187 1640 IF ELEMENT var(N$) ( 1 1 ) [] »N« <> COMMA 1 → 80362052454144204b4e4f574e20504f494e5453
0x1187…11a3 1650 LET var(L%) COMMA var(G0%) EOS 32 var(G') var(N0%) var(M') var(C1%) var(C) var(F0) 32 var(P') var(P$) 32 var(D2$) var(G') var(P') var(G1%) var(G') 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x11a3…11b8 1660 IF var(L%) 0 EQ COMMA 0 0 23 32 var(G') var(P') var(G') var(C) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$)
0x11b8…11be 1670 195901f158f3
0x11be…11ff 1680 LET ELEMENT var(P') ( 1 var(I%) ) [] COMMA ELEMENT var(G') ( 1 var(I%) ) [] COMMA ELEMENT var(P') ( 2 var(I%) ) [] COMMA ELEMENT var(G') ( 2 var(I%) ) [] COMMA ELEMENT var(P') ( 3 var(I%) ) [] COMMA ELEMENT var(G') ( 3 var(I%) ) [] COMMA ELEMENT var(P') ( 4 var(I%) ) [] COMMA ELEMENT var(G') ( 4 var(I%) ) [] EOS
0x11ff…1202 1690 1a59f3
0x1202…1218 1700 GOSUB 0 24 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$) 32 var(M0) var(N0%) var(C1%) var(F0) var(P') var(N0%) var(G9) var(D$) var(G') var(C)
0x1218…1235 1710 LET var(G0%) COMMA var(L%) EOS 32 var(G') var(N0%) var(M') var(C1%) var(C) var(F0) 32 var(P') var(P$) 32 var(D2$) var(G') var(P') var(G1%) var(G') 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0) 32
0x1235…1240 1720 IF var(G1%) 0 EQ COMMA 27 var(G1%) COMMA var(L%) EOS 32
0x1240…1246 1730 195901f158f3
0x1246…1287 1740 LET ELEMENT var(G') ( 1 var(I%) ) [] COMMA ELEMENT var(P') ( 1 var(I%) ) [] COMMA ELEMENT var(G') ( 2 var(I%) ) [] COMMA ELEMENT var(P') ( 2 var(I%) ) [] COMMA ELEMENT var(G') ( 3 var(I%) ) [] COMMA ELEMENT var(P') ( 3 var(I%) ) [] COMMA ELEMENT var(G') ( 4 var(I%) ) [] COMMA ELEMENT var(P') ( 4 var(I%) ) [] EOS
0x1287…128a 1750 1a59f3
0x128a…12b5 1760 GOTO 16 56 32 var(P$) var(D$) var(G') var(D$) var(M0) var(N$) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$) 32 32 61 62 32 var(M0) var(G9) var(P') var(F0) var(C) 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0) 32 var(G9) var(P') 32 var(P$) var(D$) var(Z9%) var(C)
0x12b5…12ee 1770 REM --------------------------------------------
0x12ee…12f2 1780 REM
0x12f2…1311 1790 REM *** READING SUBROUTINE ***
0x1311…1332 1800 LET var(D$) COMMA »DD« COMMA var(D1$) COMMA » ###D« COMMA var(D2$) COMMA »######D.DD« EOS
0x1332…1369 1810 LET var(T$) COMMA » « EOS 32 52 48 32 var(M0) var(G5') var(FNC%) var(C2%) var(C)
0x1369…13aa 1820 LET var(T$) COMMA var(T$) » « PLUS EOS 32 var(G9) var(P') var(T$) var(C) var(G9) var(N$) var(C) var(F0) var(C) 32 55 57 32 var(M0) var(G5') var(FNC%) var(C2%) var(C)
0x13aa…13c7 1830 LET var(P$) COMMA » : PT. NO =____ « EOS
0x13c7…13f7 1840 LET var(P$) COMMA var(P$) »X=_______.__ Y=_______.__ Z=_______.__« PLUS EOS
0x13f7…1413 1850 IF var(L%) 0 > COMMA 0 0 52 32 var(Z9%) var(D$) var(M0) var(G9) 32 var(P') var(C1%) var(M0) var(C) var(F0) var(G0%) var(C) var(C3%) 32 var(G5') var(P') var(D$) var(G') var(G9)
0x1413…1424 1860 LET var(L%) COMMA var(L%) 1 PLUS EOS 32 var(D$) var(G') var(C2%) var(F0) var(C) var(M') var(C) var(G') var(G9)
0x1424…143d 1870 IF var(L%) var(Z9%) > COMMA 0 var(A%) 51 32 var(P$) var(D$) var(G') var(D$) var(M0) var(N$) var(C) var(C3%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$)
0x143d…1444 1890 PRINT = ( 7 ) → aff3
0x1444…1446 1910 PRINT EOS
0x1446…1453 1920 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 1 ) var(FNC%) EOS
0x1453…145c 1930 PRINT USING ( var(D$) ) COMMA var(L%) SEMI EOS
0x145c…145f 1940 PRINT var(P$) EOS
0x145f…146c 1950 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 13 ) var(FNC%) EOS
0x146c…1470 1958 TRAP ERR 3390
0x1470…1477 1960 INPUT »=« COMMA var(N$) EOS
0x1477…1489 1970 IF = ( var(N$) ) LEN 0 EQ COMMA 0 → 9018204552524f52
0x1489…14aa 1980 IF ELEMENT var(N$) ( 1 1 ) [] »F« EQ COMMA 0 var(A%) 51 32 var(P$) var(D$) var(G') var(D$) var(M0) var(N$) var(C) var(C3%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$)
0x14aa…14b5 1985 LET var(A0%) COMMA = ( 3 3 1 ) var(FNC%) EOS
0x14b5…14c7 1990 LET var(L%) COMMA var(L%) 1 SUB2 EOS 32 var(D$) var(G') var(C2%) var(F0) var(C) var(M') var(C) var(G') var(G9) 32
0x14c7…14e5 2000 IF ELEMENT var(N$) ( 1 1 ) [] »C« EQ COMMA 0 var(A0x22) 32 var(C2%) var(P') var(F0) var(F0) var(C) var(C2%) var(G9) 32 var(G5') var(P') var(D$) var(G') var(G9)
0x14e5…1501 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') var(P') var(D$) var(G') var(G9)
0x1501…152f 2020 IF ELEMENT var(N$) ( 1 1 ) [] »L« EQ COMMA 0 → 9033204c495354204f4253455256454420504f494e54284e4f54204c41535429
0x152f…155b 2030 IF ELEMENT var(N$) ( 1 1 ) [] »N« EQ var(L%) 1 > AND var(N0%) 0 > AND COMMA 0 var(G5') 40 32 var(G') var(P') 46 32 var(P') var(P$) 32 var(D2$) var(G') var(P') var(G1%) var(G') 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x155b…1572 2040 IF ELEMENT var(N$) ( 1 1 ) [] »P« EQ COMMA 0 var(A0x30) 32 var(P$) var(FNC%) var(C2%) var(G9) var(P') var(F0)
0x1572…1588 2050 IF ELEMENT var(N$) ( 1 1 ) [] »S« EQ COMMA 0 var(G5') 49 32 var(M0) var(C2%) var(FNC%) var(Z9%) var(C)
0x1588…15b5 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') var(T$) 32 var(C3%) var(FNC%) var(G9) var(FNC%) 32 var(P$) var(F0) var(P') var(M') 32 var(D$) var(G') var(M0) var(G9) var(F0) var(N0%) var(M') var(C) var(G') var(G9)
0x15b5…15bd 2067 PRINT = ( 7 ) → aff2f3
0x15bd…15dc 2070 LET var(L%) COMMA var(L%) 1 PLUS EOS 32 var(D$) var(G') var(C2%) var(F0) var(C) var(M') var(C) var(G') var(G9) 32 var(G') var(P') 46 32 var(P') var(P$) 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x15dc…15eb 2080 LET ELEMENT var(P') ( 1 var(L%) ) [] COMMA = ( var(N$) ) VAL EOS
0x15eb…1609 2090 IF = ( ELEMENT var(P') ( 1 var(L%) ) [] ) → a1724f730158749fecf1009018204552524f52
0x1609…1633 2100 IF ELEMENT var(P') ( 1 var(L%) ) [] ELEMENT var(G5') ( 1 1 ) [] > ELEMENT var(P') ( 1 var(L%) ) [] ELEMENT var(G5') ( 1 2 ) [] ?< OR COMMA 0 → 9018204552524f52
0x1633…163b 2110 195a01f15801e3f3
0x163b…166a 2120 IF ELEMENT var(P') ( 1 var(L%) ) [] ELEMENT var(P') ( 1 var(J%) ) [] EQ COMMA 0 → 9018205448454e2053414d45204e4f204953205245414420414741494e
0x166a…166d 2130 1a5af3
0x166d…1673 2140 195a01f103f3
0x1673…1676 2150 GOTO »«si»qs\x07t\xaf\xf3\x1c«soh»`!\x1bQ\xf1qs\x02X\x03\xe2
Z«so»\xe4\xe2tA\xf3\x10p«soh»=\xf1«
0x1676…167d 2160 PRINT = ( 7 ) → aff3
0x167d…1681 2170 TRAP ERR 2160
0x1681…1692 2180 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 13 var(J%) 14 MULT PLUS ) var(FNC%) EOS
0x1692…16a1 2190 INPUT »=« COMMA ELEMENT var(P') ( var(J%) 1 PLUS var(L%) ) [] EOS
0x16a1…16d3 2200 IF ELEMENT var(P') ( var(J%) 1 PLUS var(L%) ) [] ELEMENT var(G5') ( var(J%) 1 PLUS 1 ) [] > ELEMENT var(P') ( var(J%) 1 PLUS var(L%) ) [] ELEMENT var(G5') ( var(J%) 1 PLUS 2 ) [] ?< OR COMMA 0 var(A%) 33 32 var(C) var(F0) var(F0) var(P') var(F0)
0x16d3…16d6 2210 1a5af3
0x16d6…16eb 2220 GOTO var(A%) 24 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$) 32 var(G') var(C) var(G1%) 32 var(G5') var(P') var(D$) var(G') var(G9)
0x16eb…170e 2230 REM *** CORRECT POINT ***
0x170e…1711 2240 GOTO var(A%) 34
0x1711…1718 2250 PRINT = ( 7 ) → aff3
0x1718…171c 2260 TRAP ERR 2250
0x171c…1727 2270 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1727…175a 2280 PRINT »*** NO. OF POINT TO CORRECT : ____ ***« EOS
0x175a…1765 2290 LET var(A0%) COMMA = ( 2 3 48 ) var(FNC%) EOS
0x1765…176b 2300 INPUT »« COMMA var(K%) EOS
0x176b…1771 2310 195901f158f3
0x1771…178e 2320 IF var(K%) ELEMENT var(P') ( 1 var(I%) ) [] EQ COMMA 0 var(G5') 35 32 var(G5') var(P') var(D$) var(G') var(G9) 32 var(D$) var(M0) 32 var(P$) var(P') var(N0%) var(G') var(C3%)
0x178e…1791 2330 1a59f3
0x1791…17a4 2340 GOTO var(G5') 34 32 var(G5') var(P') var(D$) var(G') var(G9) 32 var(G') var(P') var(G9) 32 var(P$) var(P') var(N0%) var(G') var(C3%)
0x17a4…17ba 2350 GOSUB var(A%) 41 32 var(G5') var(F0) var(D$) var(G') var(G9) 32 var(D2$) var(G') var(P') var(G1%) var(G') 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x17ba…17c0 2360 195a01f104f3
0x17c0…17c3 2370 GOTO → 9023
0x17c3…17ca 2380 PRINT = ( 7 ) → aff3
0x17ca…17ce 2390 TRAP ERR 2380
0x17ce…17df 2400 LET var(A0%) COMMA = ( 2 var(I%) 3 PLUS var(J%) 14 MULT 1 SUB2 ) var(FNC%) EOS
0x17df…17e6 2410 LINPUT »=« COMMA var(N$) EOS
0x17e6…17fc 2420 IF = ( var(N$) ) LEN 0 EQ COMMA 0 16 37 32 var(G') var(P') 32 var(C2%) var(N$) var(FNC%) var(G') var(T$) var(C)
0x17fc…181b 2430 LET ELEMENT var(P') ( var(J%) var(I%) ) [] COMMA = ( var(N$) ) VAL EOS 32 var(C2%) var(P') 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)
0x181b…1830 2440 IF var(J%) 1 > COMMA 0 0 37 32 var(G') var(P') var(G9) 32 var(G5') var(P') var(D$) var(G') var(G9) 32 var(G') var(P')
0x1830…1836 2450 195b01f158f3
0x1836…1849 2460 IF var(K%) var(I%) EQ COMMA 0 → 80242053414d4520504f494e54
0x1849…186f 2470 IF ELEMENT var(P') ( 1 var(K%) ) [] ELEMENT var(P') ( var(J%) var(I%) ) [] EQ COMMA 0 → 8023204552524f52202d53414d4520504f494e54
0x186f…1872 2480 1a5bf3
0x1872…189d 2490 IF = ( ELEMENT var(P') ( var(J%) var(I%) ) [] ) → a1724f735a59749fecf1008023204552524f522d204e4f5420494e5445474552
0x189d…18ce 2500 IF ELEMENT var(P') ( var(J%) var(I%) ) [] ELEMENT var(G5') ( var(J%) 1 ) [] > ELEMENT var(P') ( var(J%) var(I%) ) [] ELEMENT var(G5') ( var(J%) 2 ) [] ?< OR COMMA 0 → 8023204552524f52204e554d424552
0x18ce…18d1 2510 1a5af3
0x18d1…18e9 2520 GOTO var(A%) 24 32 var(G') var(C) var(G1%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$) 32 var(P') var(P$) 32 var(G5') var(P') var(D$) var(G') var(G9)
0x18e9…1914 2530 REM *** ERASE OBSERVED POINT ***"
0x1914…1917 2540 GOTO var(A%) 37
0x1917…191e 2550 PRINT = ( 7 ) → aff3
0x191e…1921 2560 TRAP ERR OFF
0x1921…192c 2570 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x192c…195f 2580 PRINT »*** NO. OF POINT TO ERASE : ____ ***« EOS
0x195f…196a 2590 LET var(A0%) COMMA = ( 2 3 49 ) var(FNC%) EOS
0x196a…1971 2600 INPUT » « COMMA var(K%) EOS
0x1971…1977 2610 195901f158f3
0x1977…1994 2620 IF var(K%) ELEMENT var(P') ( 1 var(I%) ) [] EQ COMMA 0 var(G5') 38 32 var(G5') var(P') var(D$) var(G') var(G9) 32 var(D$) var(M0) 32 var(P$) var(P') var(N0%) var(G') var(C3%)
0x1994…1997 2630 1a59f3
0x1997…19a7 2640 GOTO var(G5') 37 32 var(G') var(P') 32 var(G') var(P') var(G9) 32 var(P$) var(P') var(N0%) var(G') var(C3%)
0x19a7…19bd 2650 GOSUB var(A%) 41 32 var(G5') var(F0) var(D$) var(G') var(G9) 32 var(D2$) var(G') var(P') var(G1%) var(G') 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x19bd…19da 2660 IF var(I%) var(L%) EQ COMMA 0 → 90274552415345204c415354205245414420504f494e54
0x19da…19dc 2670 PRINT EOS
0x19dc…19e4 2680 195a59f15801e3f3
0x19e4…19f1 2690 LET var(A0%) COMMA = ( 2 var(J%) 3 PLUS 1 ) var(FNC%) EOS
0x19f1…19fa 2700 PRINT USING ( var(D$) ) COMMA var(J%) SEMI EOS
0x19fa…19fd 2710 PRINT var(P$) EOS
0x19fd…1a03 2720 195b01f104f3
0x1a03…1a2d 2730 LET ELEMENT var(P') ( var(K%) var(J%) ) [] COMMA ELEMENT var(P') ( var(K%) var(J%) 1 PLUS ) [] EOS 32 var(M') var(P') var(G0%) var(C) 32 var(G5') var(P') var(D$) var(G') var(G9) 32 var(P') var(G') var(C) 32 var(M0) var(G9) var(C) var(G5') 32 var(N0%) var(G5')
0x1a2d…1a3c 2740 LET var(A0%) COMMA = ( 2 var(J%) 3 PLUS var(K%) 14 MULT ) var(FNC%) EOS
0x1a3c…1a4f 2750 IF var(K%) 1 EQ COMMA 15 USING ( var(D1$) ) COMMA ELEMENT var(P') ( var(K%) var(J%) ) [] EOS
0x1a4f…1a62 2760 IF var(K%) 1 > COMMA 15 USING ( var(D2$) ) COMMA ELEMENT var(P') ( var(K%) var(J%) ) [] EOS
0x1a62…1a65 2770 1a5bf3
0x1a65…1a68 2780 1a5af3
0x1a68…1a75 2790 LET var(A0%) COMMA = ( 2 var(L%) 2 PLUS 1 ) var(FNC%) EOS
0x1a75…1a83 2800 PRINT var(T$) EOS 32 var(C) var(F0) var(FNC%) var(M0) var(C) 32 var(Z9%) var(D$) var(G') var(C)
0x1a83…1a92 2810 PRINT var(T$) EOS 32 45 45 45 45 var(A%) var(A%) 45 45 45 45 45
0x1a92…1ab3 2820 LET var(L%) COMMA var(L%) 1 SUB2 EOS 32 var(C3%) var(C) var(C2%) var(F0) var(C) var(M') var(C) var(G') var(G9) 32 var(G') var(P') 46 32 var(FNC%) var(P$) var(G9) var(C) var(F0) 32 var(C) var(F0) var(FNC%) var(M0) var(C)
0x1ab3…1acb 2830 GOTO var(A%) 24 32 var(G9) var(P') 32 var(G') var(C) var(G1%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$) 32 var(G5') var(P') var(D$) var(G') var(G9)
0x1acb…1af6 2840 REM *** READING NO. OF KNOWN POINTS ***
0x1af6…1af9 2850 GOTO »«si»qs\x07t\xaf\xf3\x1c«soh»\xf6\x0bp«soh»
\x1bQ\xf1qs\x02\x03
tA\xf3«si»p/*** NO. OF«
0x1af9…1b00 2860 PRINT = ( 7 ) → aff3
0x1b00…1b03 2870 TRAP ERR OFF
0x1b03…1b07 2880 REM
0x1b07…1b12 2890 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1b12…1b45 2900 PRINT »*** NO. OF KNOWN POINTS : __ ***« EOS
0x1b45…1b50 2910 LET var(A0%) COMMA = ( 2 3 49 ) var(FNC%) EOS
0x1b50…1b57 2920 INPUT » « COMMA var(G1%) EOS
0x1b57…1b63 2930 IF var(G1%) var(L%) > var(G1%) 1 ?< OR COMMA 0 var(A%) 40
0x1b63…1b78 2940 GOTO var(A%) 24 32 var(G') var(C) var(G1%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$) 32 var(G5') var(P') var(D$) var(G') var(G9)
0x1b78…1b9e 2950 REM *** PRINT NO. OF KNOWN POINTS ***
0x1b9e…1ba0 2960 PRINT EOS
0x1ba0…1bad 2970 IF var(G1%) 0 EQ COMMA 0 16 48 32 var(G') var(P') var(G') var(C)
0x1bad…1bb8 2980 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1bb8…1bee 2990 PRINT »*** NO. OF KNOWN POINTS :« SEMI var(G1%) SEMI » ***« EOS
0x1bee…1bf1 3000 GOTO 32 48
0x1bf1…1bfc 3010 LET var(A0%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x1bfc…1bff 3015 PRINT var(T$) EOS
0x1bff…1c01 3020 RETURN EOS
0x1c01…1c15 3030 REM --- READ F0 ---
0x1c15…1c20 3040 LET var(A0%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x1c20…1c23 3045 PRINT var(T$) EOS
0x1c23…1c26 3050 GOTO »«si»qs\x07t\xaf\xf3\x1c«soh»`0\x1bQ\xf1qs\x02\x03
tA\xf3«si»p/*** AXIS ORIENTATION «
0x1c26…1c2d 3060 PRINT = ( 7 ) → aff3
0x1c2d…1c31 3070 TRAP ERR 3060
0x1c31…1c3c 3080 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1c3c…1c6f 3090 PRINT »*** AXIS ORIENTATION FACTOR : __.__ ***« EOS
0x1c6f…1c7a 3100 LET var(A0%) COMMA = ( 2 3 47 ) var(FNC%) EOS
0x1c7a…1c81 3110 INPUT » « COMMA var(F0) EOS
0x1c81…1c90 3120 GOSUB var(A%) 41 32 var(Z9%) var(D$) var(G') var(G') var(C) 32 var(G5') var(F0) var(D$) var(G') var(G9)
0x1c90…1ca3 3130 GOTO var(A%) 24 32 var(G') var(C) var(G1%) 32 var(D$) var(G') var(G5') var(N0%) var(G9) 32 var(G5') var(P') var(D$) var(G') var(G9)
0x1ca3…1cb7 3140 REM --- READ M0 ---
0x1cb7…1cba 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«
0x1cba…1cc1 3160 PRINT = ( 7 ) → aff3
0x1cc1…1cc5 3170 TRAP ERR 3160
0x1cc5…1cd0 3180 LET var(A0%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x1cd0…1cd3 3185 PRINT var(T$) EOS
0x1cd3…1cde 3190 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1cde…1d11 3200 PRINT »*** SCALE : ___.___ ***« EOS
0x1d11…1d1c 3210 LET var(A0%) COMMA = ( 2 3 31 ) var(FNC%) EOS
0x1d1c…1d23 3220 INPUT » « COMMA var(M0) EOS
0x1d23…1d31 3230 GOSUB var(A%) 41 32 var(Z9%) var(D$) var(G') var(C) 32 var(G5') var(F0) var(D$) var(G') var(G9)
0x1d31…1d44 3240 GOTO var(A%) 24 32 var(G') var(C) var(G1%) 32 var(D$) var(G') var(G5') var(N0%) var(G9) 32 var(G5') var(P') var(D$) var(G') var(G9)
0x1d44…1d58 3250 REM --- READ G9 ---
0x1d58…1d5b 3260 GOTO → 8032
0x1d5b…1d62 3270 PRINT = ( 7 ) → aff3
0x1d62…1d66 3280 TRAP ERR 3270
0x1d66…1d71 3290 LET var(A0%) COMMA = ( 2 3 13 ) var(FNC%) EOS
0x1d71…1d7f 3330 GOSUB var(A%) 41 32 var(Z9%) var(D$) var(G') var(C) 32 var(G5') var(F0) var(D$) var(G') var(G9)
0x1d7f…1d91 3340 GOTO var(A%) 24 32 var(G') var(C) var(G1%) 32 var(Z9%) var(D$) var(G') var(C) 32 var(G5') var(F0) var(D$) var(G') var(G9)
0x1d91…1dca 3350 REM ====================================================
0x1dca…1dfa 3360 LET var(L%) COMMA var(L%) 1 SUB2 EOS 32 var(Z9%) var(FNC%) var(M0) var(G9) 32 var(G5') var(P') var(D$) var(G') var(G9) 32 var(G') var(P') var(G9) 32 var(F0) var(C) var(FNC%) var(C3%) 32 32 32 32 32 40 var(G') var(P') 61 34 var(P$) 40 var(P$) var(D$) var(G') var(D$) var(M0) var(N$) 41 34 41
0x1dfa…1dfd 3370 TRAP ERR OFF
0x1dfd…1dff 3380 RETURN EOS
0x1dff…1e31 3390 REM ---------------------------------------------
0x1e31…1e58 3400 REM *** LIST OBSERVED POINTS ***
0x1e58…1e5e 3410 195a01f158f3
0x1e5e…1e60 3420 PRINT EOS
0x1e60…1e6d 3430 LET var(A0%) COMMA = ( 2 var(J%) 3 PLUS 1 ) var(FNC%) EOS
0x1e6d…1e76 3440 PRINT USING ( var(D$) ) COMMA var(J%) SEMI EOS
0x1e76…1e79 3450 PRINT var(P$) EOS
0x1e79…1e7f 3460 195b01f104f3
0x1e7f…1e99 3470 IF var(K%) 1 EQ COMMA 27 ELEMENT var(P') ( var(K%) var(J%) ) [] COMMA = ( ELEMENT var(P') ( var(K%) var(J%) ) [] ) → a1f3
0x1e99…1ea8 3480 LET var(A0%) COMMA = ( 2 var(J%) 3 PLUS var(K%) 14 MULT ) var(FNC%) EOS
0x1ea8…1ebb 3490 IF var(K%) 1 EQ COMMA 15 USING ( var(D1$) ) COMMA ELEMENT var(P') ( var(K%) var(J%) ) [] EOS
0x1ebb…1ece 3500 IF var(K%) 1 > COMMA 15 USING ( var(D2$) ) COMMA ELEMENT var(P') ( var(K%) var(J%) ) [] EOS
0x1ece…1ed1 3510 1a5bf3
0x1ed1…1ed4 3520 1a5af3
0x1ed4…1ef0 3530 IF var(G1%) 0 > COMMA 1 var(A%) 41 32 var(G') var(P') 46 32 var(P') var(P$) 32 var(D2$) var(G') var(P') var(G1%) var(G') 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x1ef0…1f12 3540 GOTO var(A%) 24 32 var(G') var(C) var(G1%) 32 var(F0) var(C) var(FNC%) var(C3%) var(D$) var(G') var(T$) 32 var(G5') var(P') var(D$) var(G') var(G9) 32 32 var(P') var(F0) 32 32 var(C2%) var(P') var(M') var(M') var(FNC%) var(G') var(C3%)
0x1f12…1f16 3550 REM
0x1f16…1f50 3560 REM *** SUBROUTINE TO GET OBSERVED POINTS FROM FILE ***
0x1f50…1f8a 3570 REM ***************************************************
0x1f8a…1f8e 3580 REM
0x1f8e…1f9e 3590 1601f2700a302f4f42532e44415441f3
0x1f9e…1faf 3600 INPUT 1# SEMI var(N0%) EOS 32 var(G') var(P') 46 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x1faf…1fb5 3610 195901f155f3
0x1fb5…1fbb 3620 195a01f104f3
0x1fbb…1fc7 3630 INPUT 1# SEMI ELEMENT var(M') ( var(J%) var(I%) ) [] EOS
0x1fc7…1fca 3640 1a5af3
0x1fca…1fcd 3650 1a59f3
0x1fcd…1fd0 3660 1401f3
0x1fd0…1fd2 3670 RETURN EOS
0x1fd2…2014 3680 REM *** SUBROUTINE TO GET KNOWN POINTS FROM KNOWN.DATA FILE ***
0x2014…2056 3690 REM ***********************************************************
0x2056…205a 3700 REM
0x205a…206c 3710 1602f2700c302f4b4e4f574e2e44415441f3
0x206c…2086 3720 INPUT 2# SEMI var(G0%) EOS 32 var(G') var(P') 46 32 var(P') var(P$) 32 var(D2$) var(G') var(P') var(G1%) var(G') 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x2086…208c 3730 195901f156f3
0x208c…2092 3740 195a01f104f3
0x2092…209e 3750 INPUT 2# SEMI ELEMENT var(G') ( var(J%) var(I%) ) [] EOS
0x209e…20a1 3760 1a5af3
0x20a1…20a4 3770 1a59f3
0x20a4…20aa 3780 INPUT 2# SEMI var(G1%) EOS
0x20aa…20ad 3790 1402f3
0x20ad…20af 3800 RETURN EOS
0x20af…20dd 3810 REM *** STORE ALL POINTS TO FILE ***
0x20dd…210b 3820 REM ***************************************
0x210b…210f 3830 REM
0x210f…211f 3840 1601f2700a302f4f42532e44415441f3
0x211f…2133 3850 PRINT 1# SEMI var(N0%) EOS 32 var(G') var(P') 46 32 var(P') var(P$) 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x2133…215f 3860 REM --- STORE POINTS TO FILE (OBS.DATA) ---
0x215f…2165 3870 195901f155f3
0x2165…216b 3880 195a01f104f3
0x216b…2177 3890 PRINT 1# SEMI ELEMENT var(M') ( var(J%) var(I%) ) [] EOS
0x2177…217a 3900 1a5af3
0x217a…217d 3910 1a59f3
0x217d…2180 3920 1401f3
0x2180…2182 3930 PRINT EOS
0x2182…2184 3940 PRINT EOS
0x2184…2186 3950 PRINT EOS
0x2186…2188 3960 PRINT EOS
0x2188…218a 3970 PRINT EOS
0x218a…21c7 3980 PRINT »*********************************************************« EOS
0x21c7…21da 3990 PRINT »***« SEMI = ( 55 ) → b5f270032a2a2af3
0x21da…2208 4000 PRINT »*** NO. OF OBSERV. POINTS STORED TO FILE=« SEMI EOS
0x2208…2211 4010 PRINT USING ( var(D$) ) COMMA var(N0%) SEMI EOS
0x2211…221e 4020 PRINT = ( 55 ) → b5f270032a2a2af3
0x221e…2230 4030 1602f2700c302f4b4e4f574e2e44415441f3
0x2230…2244 4040 PRINT 2# SEMI var(G0%) EOS 32 var(G') var(P') 46 32 var(P') var(P$) 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x2244…226d 4050 REM --- STORE KNOWN POINTS TO FILE ---
0x226d…2273 4060 195901f156f3
0x2273…2279 4070 195a01f104f3
0x2279…2285 4080 PRINT 2# SEMI ELEMENT var(G') ( var(J%) var(I%) ) [] EOS
0x2285…2288 4090 1a5af3
0x2288…228b 4100 1a59f3
0x228b…2291 4110 PRINT 2# SEMI var(G1%) EOS
0x2291…2294 4120 1402f3
0x2294…22c2 4130 PRINT »*** NO. OF KNOWN POINTS STORED TO FILE = « SEMI EOS
0x22c2…22cb 4140 PRINT USING ( var(D$) ) COMMA var(G0%) SEMI EOS
0x22cb…22d8 4150 PRINT = ( 55 ) → b5f270032a2a2af3
0x22d8…22eb 4160 PRINT »***« SEMI = ( 55 ) → b5f270032a2a2af3
0x22eb…2319 4170 PRINT »*** NO. OF KNOWN POINTS = « SEMI EOS
0x2319…2322 4180 PRINT USING ( var(D$) ) COMMA var(G1%) SEMI EOS
0x2322…232f 4190 PRINT = ( 55 ) → b5f270032a2a2af3
0x232f…2342 4200 PRINT »***« SEMI = ( 55 ) → b5f270032a2a2af3
0x2342…2354 4210 1603f2700c302f504152414d2e44415441f3
0x2354…2361 4220 PRINT 3# SEMI var(F0) EOS 32 var(P$) var(FNC%) var(C2%) var(G9) var(P') var(F0)
0x2361…238f 4230 PRINT »*** AXIS ORIENTATION FACTOR = « SEMI EOS
0x238f…239e 4240 PRINT var(F0) SEMI = ( 55 ) → b5f270032a2a2af3
0x239e…23af 4250 PRINT 3# SEMI var(M0) EOS 32 var(M0) var(C2%) var(FNC%) var(Z9%) var(C) 32 32 32 32 32
0x23af…23dd 4260 PRINT »*** SCALE = « SEMI EOS
0x23dd…23ec 4270 PRINT var(M0) SEMI = ( 55 ) → b5f270032a2a2af3
0x23ec…23fe 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') var(M0) var(C)
0x23fe…243b 4320 PRINT »*********************************************************« EOS
0x243b…243e 4330 1403f3
0x243e…2440 4340 PRINT EOS
0x2440…2442 4350 PRINT EOS
0x2442…2462 5300 PRINT » ########################« EOS
0x2462…2482 5360 PRINT » ### CHAIN TO TRANS ###« EOS
0x2482…24a2 5370 PRINT » ########################« EOS
0x24a2…24af 5380 CHAIN »TRANS.MAP« EOS
0x24af…24b2 5999 GOTO → 9999
0x24b2…24e0 6000 REM ** SUBROUTINE TO READ FROM COUNTCART **
0x24e0…24eb 6003 LET var(A0%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x24eb…252e 6004 PRINT »*************** READING DATA FROM INSTRUMENT ***************« EOS
0x252e…2535 6005 LET var(L%) COMMA var(L%) 1 PLUS EOS
0x2535…2542 6010 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 1 ) var(FNC%) EOS
0x2542…254b 6011 PRINT USING ( var(D$) ) COMMA var(L%) SEMI EOS
0x254b…254e 6012 PRINT var(P$) EOS
0x254e…255b 6013 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 13 ) var(FNC%) EOS
0x255b…2562 6021 INPUT »=« COMMA var(N$) EOS
0x2562…256d 6030 IF = ( var(N$) ) LEN 0 EQ COMMA 34 EOS
0x256d…2574 6031 LET var(N$) COMMA »F« EOS
0x2574…2577 6032 GOTO → 8019
0x2577…2578 6033 DOEND
0x2578…2594 6035 IF = ( var(N$) ) LEN 1 EQ = ( var(N$) ) → ac30e8ed71734874ac39eaeef1008019
0x2594…25a3 6040 LET ELEMENT var(P') ( 1 var(L%) ) [] COMMA = ( var(N$) ) VAL EOS
0x25a3…25b0 6041 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 31 ) var(FNC%) EOS
0x25b0…25c7 6045 GOSUB 0 → 8020524541442046524f4d20434f554e5443415254
0x25c7…25d4 6050 1d7005504544414cf101f25cf3
0x25d4…25ed 6055 IF var(S6%) 0 EQ COMMA 0 var(C) var(A%) 32 var(G5') var(C) var(C3%) var(FNC%) var(Z9%) 32 var(G') var(P') var(G9) 32 var(C3%) var(P') var(G1%) var(G') 32 32
0x25ed…25f8 6061 LET ELEMENT var(P') ( 2 var(L%) ) [] COMMA var(X) EOS
0x25f8…2603 6062 LET ELEMENT var(P') ( 3 var(L%) ) [] COMMA var(Y) EOS
0x2603…260e 6063 LET ELEMENT var(P') ( 4 var(L%) ) [] COMMA var(Z) EOS
0x260e…261b 6064 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 28 ) var(FNC%) EOS
0x261b…261f 6065 PRINT var(X) SEMI EOS
0x261f…262c 6066 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 42 ) var(FNC%) EOS
0x262c…2630 6067 PRINT var(Y) SEMI EOS
0x2630…263d 6068 LET var(A0%) COMMA = ( 2 var(L%) 3 PLUS 56 ) var(FNC%) EOS
0x263d…2640 6069 PRINT var(Z) EOS
0x2640…2643 6070 GOTO 5 var(A%)
0x2643…2671 8000 REM ** SUBROUTINE TO READ FROM COUNTCART ***
0x2671…2676 8004 LET var(A%) COMMA 3 EOS
0x2676…2692 8050 1d700654454c4c4552f160f261f162f163f164f165f166f167f168f3
0x2692…26a8 8100 IF var(X1%) %128 > COMMA 27 var(X1%) COMMA var(X1%) 256 SUB2 EOS
0x26a8…26c8 8110 IF var(X%) 0 ?< COMMA 27 var(X) COMMA var(X1%) 65534 MULT 65534 PLUS var(X%) PLUS EOS
0x26c8…26da 8120 ELSE 27 var(X) COMMA var(X1%) 65534 MULT var(X%) PLUS EOS
0x26da…26f0 8130 IF var(Y1%) %128 > COMMA 27 var(Y1%) COMMA var(Y1%) 256 SUB2 EOS
0x26f0…2710 8140 IF var(Y%) 0 ?< COMMA 27 var(Y) COMMA var(Y1%) 65534 MULT 65534 PLUS var(Y%) PLUS EOS
0x2710…2722 8150 ELSE 27 var(Y) COMMA var(Y1%) 65534 MULT var(Y%) PLUS EOS
0x2722…2738 8160 IF var(Z1%) %128 > COMMA 27 var(Z1%) COMMA var(Z1%) 256 SUB2 EOS
0x2738…2758 8170 IF var(Z%) 0 ?< COMMA 27 var(Z) COMMA var(Z1%) 65534 MULT 65534 PLUS var(Z%) PLUS EOS
0x2758…276a 8180 ELSE 27 var(Z) COMMA var(Z1%) 65534 MULT var(Z%) PLUS EOS
0x276a…276c 8190 RETURN EOS