|
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: 11898 (0x2e7a)
Notes: ZILOG_BASIC
Names: »INDAT.BP«
└─⟦3b14772ef⟧ Bits:30006814 8" ZilogMCZ floppy NThun_0016 (OPERATIVSYSTEM 1/05 850619 KOPI)
└─ ⟦this⟧ »INDAT.BP«
└─⟦5cd73ff62⟧ Bits:30006813 8" ZilogMCZ floppy NThun_0015 (OPERATOR'S SYSTEM TEXT IN ENGLISH gp)
└─ ⟦this⟧ »INDAT.BP«
└─⟦84a75cdbc⟧ Bits:30006816 8" ZilogMCZ floppy NThun_0018 (Styrediskette Basic 3.0 Rio 2.2 Hjælpeprogrammer)
└─ ⟦this⟧ »INDAT.BP«
└─⟦ec2a36bc1⟧ Bits:30006815 8" ZilogMCZ floppy NThun_0017 (OPERATIVSYSTEM 1/05 851203)
└─ ⟦this⟧ »INDAT.BP«
0x0000…0014 BasicHead {variables=0x0134, stms=0x07a8, f2=0x258a, f3=0000000000000000000000000000}
0x0014…0148 [
0x0014…0148 [0x00]: VarDef {f0=0x0018, f1=0x41, f2=0x4a} K1$ 0x4c
0x0014…0148 [0x01]: VarDef {f0=0x1d1f, f1=0x4f, f2=0x0d} N 0x4b
0x0014…0148 [0x02]: VarDef {f0=0x0100, f1=0x4f, f2=0x2f} P% 0x4a
0x0014…0148 [0x03]: VarDef {f0=0x0018, f1=0x4f, f2=0x4a} K$ 0x49
0x0014…0148 [0x04]: VarDef {f0=0xff98, f1=0x5f, f2=0x2a} FNK% 0x48
0x0014…0148 [0x05]: VarDef {f0=0x0000, f1=0x4f, f2=0x4e} O$ 0x47
0x0014…0148 [0x06]: VarDef {f0=0xffcc, f1=0x5f, f2=0x2e} FNO% 0x46
0x0014…0148 [0x07]: VarDef {f0=0x00ba, f1=0x4f, f2=0x40} A$ 0x45
0x0014…0148 [0x08]: VarDef {f0=0xfeb8, f1=0x5f, f2=0x2b} FNL% 0x44
0x0014…0148 [0x09]: VarDef {f0=0xfee4, f1=0x5f, f2=0x2f} FNP% 0x43
0x0014…0148 [0x0a]: VarDef {f0=0xff18, f1=0x5f, f2=0x2c} FNM% 0x42
0x0014…0148 [0x0b]: VarDef {f0=0xff48, f1=0x5f, f2=0x27} FNH% 0x41
0x0014…0148 [0x0c]: VarDef {f0=0xc2ff, f1=0x4f, f2=0x08} I 0x40
0x0014…0148 [0x0d]: VarDef {f0=0x4829, f1=0x43, f2=0xa8} I3%' 0x3f
0x0014…0148 [0x0e]: VarDef {f0=0x0000, f1=0x49, f2=0x2a} K9% 0x3e
0x0014…0148 [0x0f]: VarDef {f0=0x15c0, f1=0x40, f2=0xa8} I0%' 0x3d
0x0014…0148 [0x10]: VarDef {f0=0xd948, f1=0x48, f2=0x2a} K8% 0x3c
0x0014…0148 [0x11]: VarDef {f0=0x1d1f, f1=0x4f, f2=0x97} X' 0x3b
0x0014…0148 [0x12]: VarDef {f0=0x0100, f1=0x47, f2=0x2a} K7% 0x3a
0x0014…0148 [0x13]: VarDef {f0=0x0300, f1=0x46, f2=0x2a} K6% 0x39
0x0014…0148 [0x14]: VarDef {f0=0x0100, f1=0x45, f2=0x2a} K5% 0x38
0x0014…0148 [0x15]: VarDef {f0=0x5800, f1=0x40, f2=0x03} D0 0x37
0x0014…0148 [0x16]: VarDef {f0=0x00ec, f1=0x46, f2=0x4d} N6$ 0x36
0x0014…0148 [0x17]: VarDef {f0=0x00d4, f1=0x45, f2=0x4d} N5$ 0x35
0x0014…0148 [0x18]: VarDef {f0=0x1800, f1=0x43, f2=0x2a} K3% 0x34
0x0014…0148 [0x19]: VarDef {f0=0x0c00, f1=0x4f, f2=0x0f} P 0x33
0x0014…0148 [0x1a]: VarDef {f0=0x1800, f1=0x44, f2=0x28} I4% 0x32
0x0014…0148 [0x1b]: VarDef {f0=0x1500, f1=0x42, f2=0x2a} K2% 0x31
0x0014…0148 [0x1c]: VarDef {f0=0x0100, f1=0x41, f2=0x2a} K1% 0x30
0x0014…0148 [0x1d]: VarDef {f0=0x156c, f1=0x4f, f2=0x09} J 0x2f
0x0014…0148 [0x1e]: VarDef {f0=0x153c, f1=0x4f, f2=0x0a} K 0x2e
0x0014…0148 [0x1f]: VarDef {f0=0x1574, f1=0x4f, f2=0x00} A 0x2d
0x0014…0148 [0x20]: VarDef {f0=0x0064, f1=0x4f, f2=0x05} F 0x2c
0x0014…0148 [0x21]: VarDef {f0=0x0200, f1=0x47, f2=0x28} I7% 0x2b
0x0014…0148 [0x22]: VarDef {f0=0x12d1, f1=0x4f, f2=0x4c} M$ 0x2a
0x0014…0148 [0x23]: VarDef {f0=0x10d9, f1=0x41, f2=0x4f} P1$ 0x29
0x0014…0148 [0x24]: VarDef {f0=0x0ee1, f1=0x4f, f2=0x46} G$ 0x28
0x0014…0148 [0x25]: VarDef {f0=0x0000, f1=0x41, f2=0x24} E1% 0x27
0x0014…0148 [0x26]: VarDef {f0=0x0000, f1=0x41, f2=0x39} Z1% 0x26
0x0014…0148 [0x27]: VarDef {f0=0x0000, f1=0x41, f2=0x38} Y1% 0x25
0x0014…0148 [0x28]: VarDef {f0=0x0000, f1=0x41, f2=0x37} X1% 0x24
0x0014…0148 [0x29]: VarDef {f0=0x0000, f1=0x4f, f2=0x24} E% 0x23
0x0014…0148 [0x2a]: VarDef {f0=0x0000, f1=0x4f, f2=0x39} Z% 0x22
0x0014…0148 [0x2b]: VarDef {f0=0x0000, f1=0x4f, f2=0x38} Y% 0x21
0x0014…0148 [0x2c]: VarDef {f0=0x0000, f1=0x4f, f2=0x37} X% 0x20
0x0014…0148 [0x2d]: VarDef {f0=0x0300, f1=0x4f, f2=0x20} A% 0x1f
0x0014…0148 [0x2e]: VarDef {f0=0x1ef8, f1=0x4f, f2=0x19} Z 0x1e
0x0014…0148 [0x2f]: VarDef {f0=0x1ef0, f1=0x4f, f2=0x18} Y 0x1d
0x0014…0148 [0x30]: VarDef {f0=0x1ee8, f1=0x4f, f2=0x17} X 0x1c
0x0014…0148 [0x31]: VarDef {f0=0x0100, f1=0x46, f2=0x32} S6% 0x1b
0x0014…0148 [0x32]: VarDef {f0=0x0500, f1=0x4f, f2=0x2a} K% 0x1a
0x0014…0148 [0x33]: VarDef {f0=0x0400, f1=0x4f, f2=0x29} J% 0x19
0x0014…0148 [0x34]: VarDef {f0=0x1600, f1=0x4f, f2=0x28} I% 0x18
0x0014…0148 [0x35]: VarDef {f0=0x1500, f1=0x4f, f2=0x2b} L% 0x17
0x0014…0148 [0x36]: VarDef {f0=0x3200, f1=0x41, f2=0x26} G1% 0x16
0x0014…0148 [0x37]: VarDef {f0=0x1500, f1=0x40, f2=0x26} G0% 0x15
0x0014…0148 [0x38]: VarDef {f0=0x0700, f1=0x40, f2=0x2d} N0% 0x14
0x0014…0148 [0x39]: VarDef {f0=0x151f, f1=0x49, f2=0x06} G9 0x13
0x0014…0148 [0x3a]: VarDef {f0=0x1517, f1=0x40, f2=0x0c} M0 0x12
0x0014…0148 [0x3b]: VarDef {f0=0x150f, f1=0x40, f2=0x05} F0 0x11
0x0014…0148 [0x3c]: VarDef {f0=0x0000, f1=0x40, f2=0x20} A0% 0x10
0x0014…0148 [0x3d]: VarDef {f0=0x14c9, f1=0x45, f2=0x86} G5' 0xf
0x0014…0148 [0x3e]: VarDef {f0=0x0a2b, f1=0x4f, f2=0x8f} P' 0xe
0x0014…0148 [0x3f]: VarDef {f0=0x0575, f1=0x4f, f2=0x86} G' 0xd
0x0014…0148 [0x40]: VarDef {f0=0x00bf, f1=0x4f, f2=0x8c} M' 0xc
0x0014…0148 [0x41]: VarDef {f0=0x3200, f1=0x49, f2=0x39} Z9% 0xb
0x0014…0148 [0x42]: VarDef {f0=0x00ac, f1=0x42, f2=0x43} D2$ 0xa
0x0014…0148 [0x43]: VarDef {f0=0x00a3, f1=0x41, f2=0x43} D1$ 0x9
0x0014…0148 [0x44]: VarDef {f0=0x009c, f1=0x4f, f2=0x43} D$ 0x8
0x0014…0148 [0x45]: VarDef {f0=0x0084, f1=0x4f, f2=0x4d} N$ 0x7
0x0014…0148 [0x46]: VarDef {f0=0x0054, f1=0x4f, f2=0x53} T$ 0x6
0x0014…0148 [0x47]: VarDef {f0=0x0030, f1=0x4f, f2=0x4f} P$ 0x5
0x0014…0148 [0x48]: VarDef {f0=0x0230, f1=0x4f, f2=0x02} C 0x4
0x0014…0148 [0x49]: VarDef {f0=0x0210, f1=0x43, f2=0x22} C3% 0x3
0x0014…0148 [0x4a]: VarDef {f0=0x0150, f1=0x42, f2=0x22} C2% 0x2
0x0014…0148 [0x4b]: VarDef {f0=0x0102, f1=0x41, f2=0x22} C1% 0x1
0x0014…0148 [0x4c]: VarDef {f0=0xff68, f1=0x5f, f2=0x22} FNC% 0x0
0x0014…0148 ]
0x0148…014c Statement 36864 @0x2e79
0x014c…0150 Statement 34096 @0x2e74
0x0150…0154 Statement 34080 @0x2e50
0x0154…0158 Statement 34064 @0x2e45
0x0158…015c Statement 34053 @0x2e43
0x015c…0160 Statement 34048 @0x2dfe
0x0160…0164 Statement 33344 @0x2df5
0x0164…0168 Statement 33328 @0x2dbd
0x0168…016c Statement 33312 @0x2db2
0x016c…0170 Statement 33296 @0x2db0
0x0170…0174 Statement 33280 @0x2d6a
0x0174…0178 Statement 33168 @0x2d68
0x0178…017c Statement 33152 @0x2d56
0x017c…0180 Statement 33136 @0x2d36
0x0180…0184 Statement 33120 @0x2d20
0x0184…0188 Statement 33104 @0x2d0e
0x0188…018c Statement 33088 @0x2cee
0x018c…0190 Statement 33072 @0x2cd8
0x0190…0194 Statement 33056 @0x2cc6
0x0194…0198 Statement 33040 @0x2ca6
0x0198…019c Statement 33024 @0x2c90
0x019c…01a0 Statement 32848 @0x2c74
0x01a0…01a4 Statement 32772 @0x2c6f
0x01a4…01a8 Statement 32768 @0x2c26
0x01a8…01ac Statement 25600 @0x2c24
0x01ac…01b0 Statement 25488 @0x2be9
0x01b0…01b4 Statement 25477 @0x2be7
0x01b4…01b8 Statement 25472 @0x2baa
0x01b8…01bc Statement 25461 @0x2b68
0x01bc…01c0 Statement 25456 @0x2b27
0x01c0…01c4 Statement 25445 @0x2af7
0x01c4…01c8 Statement 25440 @0x2ab7
0x01c8…01cc Statement 25424 @0x2ab5
0x01cc…01d0 Statement 25408 @0x2a8f
0x01d0…01d4 Statement 25397 @0x2a61
0x01d4…01d8 Statement 25392 @0x2a29
0x01d8…01dc Statement 25376 @0x2a06
0x01dc…01e0 Statement 25360 @0x29e3
0x01e0…01e4 Statement 25344 @0x29bb
0x01e4…01e8 Statement 25232 @0x2970
0x01e8…01ec Statement 25221 @0x296e
0x01ec…01f0 Statement 25216 @0x294c
0x01f0…01f4 Statement 25200 @0x2909
0x01f4…01f8 Statement 25184 @0x28c8
0x01f8…01fc Statement 25173 @0x28c6
0x01fc…0200 Statement 25168 @0x288c
0x0200…0204 Statement 25152 @0x284b
0x0204…0208 Statement 25120 @0x2826
0x0208…020c Statement 25109 @0x2824
0x020c…0210 Statement 25104 @0x2819
0x0210…0214 Statement 25093 @0x280e
0x0214…0218 Statement 25088 @0x27ce
0x0218…021c Statement 24688 @0x27cb
0x021c…0220 Statement 24677 @0x27a4
0x0220…0224 Statement 24674 @0x2785
0x0224…0228 Statement 24672 @0x2782
0x0228…022c Statement 24661 @0x277a
0x022c…0230 Statement 24656 @0x276d
0x0230…0234 Statement 24647 @0x2764
0x0234…0238 Statement 24645 @0x2761
0x0238…023c Statement 24643 @0x274f
0x023c…0240 Statement 24642 @0x2747
0x0240…0244 Statement 24640 @0x2730
0x0244…0248 Statement 24631 @0x272f
0x0248…024c Statement 24629 @0x272c
0x024c…0250 Statement 24624 @0x2721
0x0250…0254 Statement 24616 @0x2716
0x0254…0258 Statement 24613 @0x270e
0x0258…025c Statement 24609 @0x2707
0x025c…0260 Statement 24608 @0x26ff
0x0260…0264 Statement 24595 @0x26f3
0x0264…0268 Statement 24593 @0x26e4
0x0268…026c Statement 24592 @0x26d8
0x026c…0270 Statement 24583 @0x26cc
0x0270…0274 Statement 24582 @0x26be
0x0274…0278 Statement 24581 @0x26b3
0x0278…027c Statement 24580 @0x2684
0x027c…0280 Statement 24579 @0x2679
0x0280…0284 Statement 24576 @0x262f
0x0284…0288 Statement 17232 @0x262d
0x0288…028c Statement 17200 @0x262a
0x028c…0290 Statement 17024 @0x2609
0x0290…0294 Statement 16976 @0x25ed
0x0294…0298 Statement 16928 @0x25d0
0x0298…029c Statement 16896 @0x25c0
0x029c…02a0 Statement 16704 @0x257d
0x02a0…02a4 Statement 16688 @0x257b
0x02a4…02a8 Statement 16672 @0x2578
0x02a8…02ac Statement 16661 @0x2575
0x02ac…02b0 Statement 16656 @0x254a
0x02b0…02b4 Statement 16640 @0x2547
0x02b4…02b8 Statement 16528 @0x2544
0x02b8…02bc Statement 16512 @0x2538
0x02bc…02c0 Statement 16496 @0x2532
0x02c0…02c4 Statement 16485 @0x2527
0x02c4…02c8 Statement 16480 @0x2521
0x02c8…02cc Statement 16400 @0x24ff
0x02cc…02d0 Statement 16384 @0x24db
0x02d0…02d4 Statement 14736 @0x24cd
0x02d4…02d8 Statement 14640 @0x248a
0x02d8…02dc Statement 14629 @0x2488
0x02dc…02e0 Statement 14624 @0x2485
0x02e0…02e4 Statement 14613 @0x2482
0x02e4…02e8 Statement 14608 @0x247f
0x02e8…02ec Statement 14592 @0x247c
0x02ec…02f0 Statement 14480 @0x2470
0x02f0…02f4 Statement 14464 @0x246a
0x02f4…02f8 Statement 14453 @0x245f
0x02f8…02fc Statement 14448 @0x2459
0x02fc…0300 Statement 14416 @0x2436
0x0300…0304 Statement 14400 @0x240f
0x0304…0308 Statement 14368 @0x2401
0x0308…030c Statement 14352 @0x23f6
0x030c…0310 Statement 14336 @0x23ae
0x0310…0314 Statement 14224 @0x23ab
0x0314…0318 Statement 14208 @0x239e
0x0318…031c Statement 14197 @0x2360
0x031c…0320 Statement 14192 @0x235d
0x0320…0324 Statement 14182 @0x2349
0x0324…0328 Statement 14181 @0x2311
0x0328…032c Statement 14176 @0x2303
0x032c…0330 Statement 14165 @0x22c5
0x0330…0334 Statement 14149 @0x22b7
0x0334…0338 Statement 14147 @0x22ad
0x0338…033c Statement 14144 @0x229f
0x033c…0340 Statement 14135 @0x229c
0x0340…0344 Statement 14133 @0x228a
0x0344…0348 Statement 14128 @0x227c
0x0348…034c Statement 14117 @0x225b
0x034c…0350 Statement 14112 @0x2250
0x0350…0354 Statement 14101 @0x224c
0x0354…0358 Statement 14096 @0x2244
0x0358…035c Statement 14085 @0x2241
0x035c…0360 Statement 14080 @0x21fc
0x0360…0364 Statement 13973 @0x21fa
0x0364…0368 Statement 13971 @0x21f7
0x0368…036c Statement 13968 @0x21f1
0x036c…0370 Statement 13957 @0x21ee
0x0370…0374 Statement 13952 @0x21eb
0x0374…0378 Statement 13941 @0x21df
0x0378…037c Statement 13936 @0x21d9
0x037c…0380 Statement 13925 @0x21cc
0x0380…0384 Statement 13920 @0x21c6
0x0384…0388 Statement 13909 @0x21c0
0x0388…038c Statement 13904 @0x2179
0x038c…0390 Statement 13893 @0x2177
0x0390…0394 Statement 13888 @0x2174
0x0394…0398 Statement 13877 @0x2171
0x0398…039c Statement 13872 @0x216e
0x039c…03a0 Statement 13861 @0x2162
0x03a0…03a4 Statement 13856 @0x215c
0x03a4…03a8 Statement 13845 @0x214f
0x03a8…03ac Statement 13840 @0x2149
0x03ac…03b0 Statement 13829 @0x2143
0x03b0…03b4 Statement 13824 @0x20fb
0x03b4…03b8 Statement 12576 @0x20f9
0x03b8…03bc Statement 12565 @0x20f6
0x03bc…03c0 Statement 12560 @0x20eb
0x03c0…03c4 Statement 12544 @0x20e4
0x03c4…03c8 Statement 12441 @0x20e2
0x03c8…03cc Statement 12440 @0x20d7
0x03cc…03d0 Statement 12437 @0x20ce
0x03d0…03d4 Statement 12432 @0x20c5
0x03d4…03d8 Statement 12421 @0x20bf
0x03d8…03dc Statement 12416 @0x20bb
0x03dc…03e0 Statement 12405 @0x20b0
0x03e0…03e4 Statement 12400 @0x20a3
0x03e4…03e8 Statement 12384 @0x209b
0x03e8…03ec Statement 12376 @0x2092
0x03ec…03f0 Statement 12373 @0x2089
0x03f0…03f4 Statement 12368 @0x2083
0x03f4…03f8 Statement 12357 @0x207f
0x03f8…03fc Statement 12352 @0x2074
0x03fc…0400 Statement 12344 @0x2067
0x0400…0404 Statement 12341 @0x2063
0x0404…0408 Statement 12336 @0x204a
0x0408…040c Statement 12325 @0x2040
0x040c…0410 Statement 12320 @0x2037
0x0410…0414 Statement 12309 @0x2031
0x0414…0418 Statement 12304 @0x202d
0x0418…041c Statement 12293 @0x2022
0x041c…0420 Statement 12288 @0x1fdd
0x0420…0424 Statement 10560 @0x1fdb
0x0424…0428 Statement 10544 @0x1fd8
0x0428…042c Statement 10528 @0x1f9f
0x042c…0430 Statement 10512 @0x1f87
0x0430…0434 Statement 10501 @0x1f7f
0x0434…0438 Statement 10496 @0x1f39
0x0438…043c Statement 10352 @0x1f37
0x043c…0440 Statement 10336 @0x1f34
0x0440…0444 Statement 10325 @0x1f2d
0x0444…0448 Statement 10320 @0x1eea
0x0448…044c Statement 10293 @0x1ee7
0x044c…0450 Statement 10291 @0x1ed6
0x0450…0454 Statement 10288 @0x1ebe
0x0454…0458 Statement 10272 @0x1e9d
0x0458…045c Statement 10128 @0x1e90
0x045c…0460 Statement 10117 @0x1e88
0x0460…0464 Statement 10112 @0x1e85
0x0464…0468 Statement 10016 @0x1e4c
0x0468…046c Statement 10000 @0x1e3b
0x046c…0470 Statement 09984 @0x1e32
0x0470…0474 Statement 09872 @0x1e25
0x0474…0478 Statement 09863 @0x1e1d
0x0478…047c Statement 09861 @0x1dd6
0x047c…0480 Statement 09856 @0x1dce
0x0480…0484 Statement 09827 @0x1dc6
0x0484…0488 Statement 09824 @0x1dba
0x0488…048c Statement 09808 @0x1dad
0x048c…0490 Statement 09792 @0x1d9d
0x0490…0494 Statement 09776 @0x1d9a
0x0494…0498 Statement 09760 @0x1d8d
0x0498…049c Statement 09744 @0x1d87
0x049c…04a0 Statement 09728 @0x1d7c
0x04a0…04a4 Statement 09616 @0x1d70
0x04a4…04a8 Statement 09600 @0x1d28
0x04a8…04ac Statement 09584 @0x1d1d
0x04ac…04b0 Statement 09568 @0x1d10
0x04b0…04b4 Statement 09552 @0x1d08
0x04b4…04b8 Statement 09536 @0x1d05
0x04b8…04bc Statement 09520 @0x1cbe
0x04bc…04c0 Statement 09504 @0x1cbb
0x04c0…04c4 Statement 09494 @0x1cb0
0x04c4…04c8 Statement 09493 @0x1cae
0x04c8…04cc Statement 09488 @0x1cab
0x04cc…04d0 Statement 09472 @0x1c83
0x04d0…04d4 Statement 09360 @0x1c80
0x04d4…04d8 Statement 09344 @0x1c7d
0x04d8…04dc Statement 09328 @0x1c6b
0x04dc…04e0 Statement 09312 @0x1c58
0x04e0…04e4 Statement 09296 @0x1c52
0x04e4…04e8 Statement 09280 @0x1c3d
0x04e8…04ec Statement 09264 @0x1c2b
0x04ec…04f0 Statement 09253 @0x1c1a
0x04f0…04f4 Statement 09248 @0x1c04
0x04f4…04f8 Statement 09232 @0x1bfd
0x04f8…04fc Statement 09216 @0x1bed
0x04fc…0500 Statement 09104 @0x1be9
0x0500…0504 Statement 09088 @0x1be1
0x0504…0508 Statement 09072 @0x1bde
0x0508…050c Statement 09063 @0x1bd8
0x050c…0510 Statement 09061 @0x1bcc
0x0510…0514 Statement 09056 @0x1bc4
0x0514…0518 Statement 09049 @0x1bc1
0x0518…051c Statement 09048 @0x1bbe
0x051c…0520 Statement 09047 @0x1bb3
0x0520…0524 Statement 09046 @0x1ba7
0x0524…0528 Statement 09045 @0x1b9e
0x0528…052c Statement 09044 @0x1b92
0x052c…0530 Statement 09042 @0x1b8a
0x0530…0534 Statement 09041 @0x1b82
0x0534…0538 Statement 09029 @0x1b75
0x0538…053c Statement 09024 @0x1b62
0x053c…0540 Statement 09008 @0x1b5f
0x0540…0544 Statement 08992 @0x1b52
0x0544…0548 Statement 08976 @0x1b4c
0x0548…054c Statement 08960 @0x1b41
0x054c…0550 Statement 08848 @0x1b35
0x0550…0554 Statement 08832 @0x1aed
0x0554…0558 Statement 08821 @0x1aea
0x0558…055c Statement 08816 @0x1adf
0x055c…0560 Statement 08800 @0x1aca
0x0560…0564 Statement 08784 @0x1ac2
0x0564…0568 Statement 08768 @0x1abf
0x0568…056c Statement 08752 @0x1a77
0x056c…0570 Statement 08736 @0x1a62
0x0570…0574 Statement 08727 @0x1a22
0x0574…0578 Statement 08725 @0x1a16
0x0578…057c Statement 08720 @0x1a13
0x057c…0580 Statement 08704 @0x19eb
0x0580…0584 Statement 08592 @0x19de
0x0584…0588 Statement 08576 @0x19ce
0x0588…058c Statement 08560 @0x19ca
0x058c…0590 Statement 08544 @0x19c2
0x0590…0594 Statement 08528 @0x19bf
0x0594…0598 Statement 08512 @0x19b9
0x0598…059c Statement 08496 @0x19b6
0x059c…05a0 Statement 08480 @0x19a4
0x05a0…05a4 Statement 08464 @0x199c
0x05a4…05a8 Statement 08304 @0x1980
0x05a8…05ac Statement 08295 @0x1972
0x05ac…05b0 Statement 08293 @0x1968
0x05b0…05b4 Statement 08224 @0x195e
0x05b4…05b8 Statement 08208 @0x1954
0x05b8…05bc Statement 08192 @0x194a
0x05bc…05c0 Statement 06544 @0x1939
0x05c0…05c4 Statement 06528 @0x1930
0x05c4…05c8 Statement 06512 @0x192d
0x05c8…05cc Statement 06496 @0x1926
0x05cc…05d0 Statement 06488 @0x1922
0x05d0…05d4 Statement 06464 @0x1916
0x05d4…05d8 Statement 06453 @0x190e
0x05d8…05dc Statement 06448 @0x1905
0x05dc…05e0 Statement 06432 @0x18f9
0x05e0…05e4 Statement 06416 @0x18ed
0x05e4…05e8 Statement 06400 @0x18e5
0x05e8…05ec Statement 06256 @0x18dd
0x05ec…05f0 Statement 06240 @0x18cc
0x05f0…05f4 Statement 06226 @0x18c4
0x05f4…05f8 Statement 06225 @0x18b9
0x05f8…05fc Statement 06224 @0x18ae
0x05fc…0600 Statement 06217 @0x18a3
0x0600…0604 Statement 06216 @0x1898
0x0604…0608 Statement 06215 @0x188d
0x0608…060c Statement 06214 @0x1882
0x060c…0610 Statement 06213 @0x1880
0x0610…0614 Statement 06208 @0x1850
0x0614…0618 Statement 06192 @0x1833
0x0618…061c Statement 06160 @0x1812
0x061c…0620 Statement 06144 @0x17c9
0x0620…0624 Statement 06021 @0x17c7
0x0624…0628 Statement 06016 @0x17c4
0x0628…062c Statement 06005 @0x17c1
0x062c…0630 Statement 06000 @0x17b0
0x0630…0634 Statement 05989 @0x17aa
0x0634…0638 Statement 05984 @0x179b
0x0638…063c Statement 05973 @0x1795
0x063c…0640 Statement 05968 @0x174b
0x0640…0644 Statement 05941 @0x1749
0x0644…0648 Statement 05936 @0x1746
0x0648…064c Statement 05925 @0x1743
0x064c…0650 Statement 05920 @0x1732
0x0650…0654 Statement 05909 @0x172c
0x0654…0658 Statement 05904 @0x171b
0x0658…065c Statement 05893 @0x1715
0x065c…0660 Statement 05888 @0x16cc
0x0660…0664 Statement 05733 @0x16ca
0x0664…0668 Statement 05728 @0x16bf
0x0668…066c Statement 05717 @0x16bc
0x066c…0670 Statement 05712 @0x167d
0x0670…0674 Statement 05701 @0x1677
0x0674…0678 Statement 05696 @0x1672
0x0678…067c Statement 05685 @0x166f
0x067c…0680 Statement 05683 @0x166a
0x0680…0684 Statement 05653 @0x1663
0x0684…0688 Statement 05648 @0x1662
0x0688…068c Statement 05637 @0x1661
0x068c…0690 Statement 05509 @0x1656
0x0690…0694 Statement 05504 @0x1613
0x0694…0698 Statement 05496 @0x1608
0x0698…069c Statement 05493 @0x1600
0x069c…06a0 Statement 05477 @0x15f7
0x06a0…06a4 Statement 05475 @0x15f5
0x06a4…06a8 Statement 05472 @0x15b4
0x06a8…06ac Statement 05461 @0x15a9
0x06ac…06b0 Statement 05456 @0x1562
0x06b0…06b4 Statement 05429 @0x1560
0x06b4…06b8 Statement 05424 @0x1555
0x06b8…06bc Statement 05413 @0x1552
0x06bc…06c0 Statement 05408 @0x1513
0x06c0…06c4 Statement 05397 @0x150d
0x06c4…06c8 Statement 05392 @0x1508
0x06c8…06cc Statement 05381 @0x1505
0x06cc…06d0 Statement 05376 @0x1500
0x06d0…06d4 Statement 05248 @0x14f9
0x06d4…06d8 Statement 05237 @0x14f8
0x06d8…06dc Statement 05232 @0x14f7
0x06dc…06e0 Statement 05189 @0x14ec
0x06e0…06e4 Statement 05184 @0x14a9
0x06e4…06e8 Statement 05176 @0x149e
0x06e8…06ec Statement 05173 @0x1496
0x06ec…06f0 Statement 05157 @0x148d
0x06f0…06f4 Statement 05155 @0x148b
0x06f4…06f8 Statement 05152 @0x144a
0x06f8…06fc Statement 05136 @0x143f
0x06fc…0700 Statement 05120 @0x13f5
0x0700…0704 Statement 04672 @0x13f2
0x0704…0708 Statement 04640 @0x13ef
0x0708…070c Statement 04624 @0x13ec
0x070c…0710 Statement 04608 @0x13e9
0x0710…0714 Statement 04496 @0x13e6
0x0714…0718 Statement 04480 @0x13e3
0x0718…071c Statement 04464 @0x13e0
0x071c…0720 Statement 04448 @0x13dd
0x0720…0724 Statement 04432 @0x13da
0x0724…0728 Statement 04416 @0x13d7
0x0728…072c Statement 04400 @0x13d4
0x072c…0730 Statement 04384 @0x13d1
0x0730…0734 Statement 04368 @0x13c0
0x0734…0738 Statement 04357 @0x1398
0x0738…073c Statement 04354 @0x1395
0x073c…0740 Statement 04352 @0x1366
0x0740…0744 Statement 04240 @0x1362
0x0744…0748 Statement 04224 @0x135a
0x0748…074c Statement 04213 @0x134f
0x074c…0750 Statement 04208 @0x1342
0x0750…0754 Statement 04192 @0x133f
0x0754…0758 Statement 04176 @0x1338
0x0758…075c Statement 04165 @0x1331
0x075c…0760 Statement 04112 @0x132a
0x0760…0764 Statement 04101 @0x1323
0x0764…0768 Statement 04096 @0x12dd
0x0768…076c Statement 02176 @0x12dc
0x076c…0770 Statement 02165 @0x12d9
0x0770…0774 Statement 02164 @0x12d7
0x0774…0778 Statement 02163 @0x12d3
0x0778…077c Statement 02162 @0x12b9
0x077c…0780 Statement 02160 @0x12ae
0x0780…0784 Statement 02151 @0x12ab
0x0784…0788 Statement 02149 @0x12a0
0x0788…078c Statement 02146 @0x129d
0x078c…0790 Statement 02144 @0x1292
0x0790…0794 Statement 02133 @0x1290
0x0794…0798 Statement 02128 @0x125f
0x0798…079c Statement 02112 @0x122e
0x079c…07a0 Statement 02096 @0x11fd
0x07a0…07a4 Statement 02080 @0x11e0
0x07a4…07a8 Statement 02064 @0x11dc
0x07a8…07ac Statement 02048 @0x1198
0x07ac…07b0 Statement 01936 @0x1197
0x07b0…07b4 Statement 01925 @0x1194
0x07b4…07b8 Statement 01920 @0x1191
0x07b8…07bc Statement 01904 @0x118e
0x07bc…07c0 Statement 01888 @0x116b
0x07c0…07c4 Statement 01872 @0x114e
0x07c4…07c8 Statement 01856 @0x111f
0x07c8…07cc Statement 01840 @0x110f
0x07cc…07d0 Statement 01824 @0x110b
0x07d0…07d4 Statement 01808 @0x1107
0x07d4…07d8 Statement 01792 @0x10c4
0x07d8…07dc Statement 01685 @0x10c3
0x07dc…07e0 Statement 01680 @0x10c0
0x07e0…07e4 Statement 01669 @0x10be
0x07e4…07e8 Statement 01664 @0x109e
0x07e8…07ec Statement 01648 @0x1083
0x07ec…07f0 Statement 01632 @0x104b
0x07f0…07f4 Statement 01616 @0x101e
0x07f4…07f8 Statement 01600 @0xfe7
0x07f8…07fc Statement 01584 @0xfac
0x07fc…0800 Statement 01568 @0xf9b
0x0800…0804 Statement 01552 @0xf8a
0x0804…0808 Statement 01541 @0xf86
0x0808…080c Statement 01536 @0xf48
0x080c…0810 Statement 01408 @0xf47
0x0810…0814 Statement 01392 @0xf44
0x0814…0818 Statement 01384 @0xf42
0x0818…081c Statement 01381 @0xef7
0x081c…0820 Statement 01379 @0xeab
0x0820…0824 Statement 01376 @0xe5f
0x0824…0828 Statement 01360 @0xe13
0x0828…082c Statement 01344 @0xdc7
0x082c…0830 Statement 01328 @0xd7c
0x0830…0834 Statement 01312 @0xd71
0x0834…0838 Statement 01296 @0xd6d
0x0838…083c Statement 01280 @0xd2c
0x083c…0840 Statement 01152 @0xd2b
0x0840…0844 Statement 01136 @0xd28
0x0844…0848 Statement 01104 @0xd0d
0x0848…084c Statement 01088 @0xcf2
0x084c…0850 Statement 01072 @0xcd6
0x0850…0854 Statement 01056 @0xcc6
0x0854…0858 Statement 01040 @0xcc0
0x0858…085c Statement 01024 @0xc7d
0x085c…0860 Statement 00848 @0xc7c
0x0860…0864 Statement 00837 @0xc78
0x0864…0868 Statement 00832 @0xc77
0x0868…086c Statement 00821 @0xc74
0x086c…0870 Statement 00816 @0xc61
0x0870…0874 Statement 00805 @0xc48
0x0874…0878 Statement 00800 @0xc41
0x0878…087c Statement 00789 @0xc2f
0x087c…0880 Statement 00786 @0xc17
0x0880…0884 Statement 00784 @0xbd3
0x0884…0888 Statement 00773 @0xbcf
0x0888…088c Statement 00768 @0xb88
0x088c…0890 Statement 00608 @0xb87
0x0890…0894 Statement 00592 @0xb83
0x0894…0898 Statement 00581 @0xb82
0x0898…089c Statement 00576 @0xb7f
0x089c…08a0 Statement 00565 @0xb6c
0x08a0…08a4 Statement 00560 @0xb53
0x08a4…08a8 Statement 00551 @0xb48
0x08a8…08ac Statement 00549 @0xb41
0x08ac…08b0 Statement 00544 @0xb2f
0x08b0…08b4 Statement 00533 @0xb19
0x08b4…08b8 Statement 00528 @0xad6
0x08b8…08bc Statement 00517 @0xad2
0x08bc…08c0 Statement 00512 @0xa8c
0x08c0…08c4 Statement 00272 @0xa7d
0x08c4…08c8 Statement 00133 @0xa70
0x08c8…08cc Statement 00128 @0xa5f
0x08cc…08d0 Statement 00112 @0xa1c
0x08d0…08d4 Statement 00096 @0x9db
0x08d4…08d8 Statement 00080 @0x998
0x08d8…08dc Statement 00064 @0x95c
0x08dc…08e0 Statement 00048 @0x930
0x08e0…08e4 Statement 00032 @0x92b
0x08e4…08e8 Statement 00021 @0x922
0x08e8…08ec Statement 00016 @0x900
0x08ec…08f0 Statement 00005 @0x8f0
0x08f0…0900 0005 COM ELEMENT var(O$) ( 20 ) [] ELEMENT var(K1$) ( 20 ) [] EOS
0x0900…0922 0010 DIM ELEMENT var(P$) ( %80 ) [] ELEMENT var(N$) ( 20 ) [] ELEMENT var(D$) ( 3 ) [] ELEMENT var(D1$) ( 5 ) [] ELEMENT var(D2$) ( 10 ) [] EOS
0x0922…092b 0015 DIM ELEMENT var(A$) ( 1 ) [] EOS
0x092b…0930 0020 LET var(Z9%) COMMA 50 EOS
0x0930…095c 0030 DIM ELEMENT var(M') ( 3 var(Z9%) ) [] ELEMENT var(G') ( 3 var(Z9%) ) [] ELEMENT var(P') ( 3 var(Z9%) ) [] ELEMENT var(G$) ( var(Z9%) 8 ) [] ELEMENT var(P1$) ( var(Z9%) 8 ) [] ELEMENT var(M$) ( var(Z9%) 8 ) [] EOS
0x095c…0998 0040 DIM ELEMENT var(G5') ( 4 2 ) [] EOS 32 32 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 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%)
0x0998…09db 0050 LET ELEMENT var(G5') ( 2 1 ) [] COMMA 1e+07 COMMA ELEMENT var(G5') ( 2 2 ) [] COMMA -99999 EOS 32 32 45 45 45 45 45 45 45 45 45 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
0x09db…0a1c 0060 LET ELEMENT var(G5') ( 3 1 ) [] COMMA 1e+07 COMMA ELEMENT var(G5') ( 3 2 ) [] COMMA -1e+07 EOS 32 32 45 45 45 45 45 45 45 32 var(Z9%) var(D$) var(M') var(D$) var(G9) 32 var(P$) var(P') var(F0) 32 var(I%) 45 var(C2%) var(P') var(P') var(F0) var(C3%) 46
0x0a1c…0a5f 0070 LET ELEMENT var(G5') ( 4 1 ) [] COMMA 999999 COMMA ELEMENT var(G5') ( 4 2 ) [] COMMA -999999 EOS 32 32 45 45 45 45 45 45 45 45 45 32 var(Z9%) var(D$) var(M') var(D$) var(G9) 32 var(P$) var(P') var(F0) 32 var(J%) 45 var(C2%) var(P') var(P') var(F0) var(C3%) 46
0x0a5f…0a70 0080 LET var(N0%) COMMA 0 COMMA var(G0%) COMMA 0 COMMA var(G1%) COMMA 0 COMMA var(L%) COMMA 0 EOS
0x0a70…0a7d 0085 LET var(O$) COMMA »« COMMA var(K1$) COMMA »« EOS
0x0a7d…0a8c 0110 SYSTEM »LINELEN« COMMA %200 EOS
0x0a8c…0ad2 0200 REM ------------------------------------------ FUNCTION OPEN OBS.FIL
0x0ad2…0ad6 0205 DEF var(FNO%) EOS
0x0ad6…0b19 0210 INPUT » Gi filnavn for observerte punkt (RETURN ==> OBS.DATA) : « COMMA var(O$) EOS
0x0b19…0b2f 0215 IF var(O$) »« EQ COMMA 27 var(O$) COMMA »OBS.DATA« EOS
0x0b2f…0b41 0220 1601f2401a70073b4143433d494ee2f161f3
0x0b41…0b48 0225 IF var(X%) 2 EQ COMMA 34 EOS
0x0b48…0b53 0227 LET var(X%) COMMA = ( 2 4 1 ) var(FNC%) EOS
0x0b53…0b6c 0230 PRINT = ( 63 ) → b5f2700f202d2d20204e592046494c20202d2df3
0x0b6c…0b7f 0235 1601f2401a70083b4143433d4e4557e2f161f3
0x0b7f…0b82 0240 RETURN 1 EOS
0x0b82…0b83 0245 DOEND
0x0b83…0b87 0250 ELSE 5 0 EOS
0x0b87…0b88 0260 FNEND
0x0b88…0bcf 0300 REM ------------------------------------------ FUNCTION OPEN KJ.P.FIL
0x0bcf…0bd3 0305 DEF var(FNK%) EOS
0x0bd3…0c17 0310 INPUT » Giv filnavn for kendte punkter (skriv PAS sagsnummer)......:« COMMA var(K1$) EOS
0x0c17…0c2f 0312 IF var(K1$) »« EQ COMMA 27 var(K1$) COMMA »KNOWN.DATA« EOS
0x0c2f…0c41 0315 1602f2401f70073b4143433d494ee2f161f3
0x0c41…0c48 0320 IF var(X%) 2 EQ COMMA 34 EOS
0x0c48…0c61 0325 PRINT = ( 61 ) → b5f2700f202d2d20204e592046494c20202d2df3
0x0c61…0c74 0330 1602f2401f70083b4143433d4e4557e2f161f3
0x0c74…0c77 0335 RETURN 1 EOS
0x0c77…0c78 0340 DOEND
0x0c78…0c7c 0345 ELSE 5 0 EOS
0x0c7c…0c7d 0350 FNEND
0x0c7d…0cc0 0400 REM ------------------------------------------ FUNCTION OUTSCREEN
0x0cc0…0cc6 0410 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x0cc6…0cd6 0420 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af700145e2f3
0x0cd6…0cf2 0430 PRINT = ( 27 ) → af700146e2f271731f43e274aff271731f44e274aff2f3
0x0cf2…0d0d 0440 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → aff271736f4e0042e374aff2f3
0x0d0d…0d28 0450 IF var(C1%) 5 EQ var(C1%) 6 EQ OR COMMA 15 = ( 27 ) → aff271736f6d0042e374aff2f3
0x0d28…0d2b 0470 RETURN 0 EOS
0x0d2b…0d2c 0480 FNEND
0x0d2c…0d6d 0500 REM ------------------------------------------ FUNCTION HEADING
0x0d6d…0d71 0510 DEF var(FNH%) EOS
0x0d71…0d7c 0520 PRINT = ( 27 ) → af700145e2f3
0x0d7c…0dc7 0530 PRINT » ~~ M A P D A T F O T O G R A M M E T R I ~~~~~~~~~~ viak a/s ~~« EOS
0x0dc7…0e13 0540 PRINT » | |« EOS
0x0e13…0e5f 0550 PRINT » | S T E R E O D I G versjon 2.0 |« EOS
0x0e5f…0eab 0560 PRINT » | |« EOS
0x0eab…0ef7 0563 PRINT » | Program : I N D A T -- Input data for transformasjon. |« EOS
0x0ef7…0f42 0565 PRINT » ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~« EOS
0x0f42…0f44 0568 PRINT EOS
0x0f44…0f47 0570 RETURN 0 EOS
0x0f47…0f48 0580 FNEND
0x0f48…0f86 0600 REM ------------------------------------------ FUNCTION MENU
0x0f86…0f8a 0605 DEF var(FNM%) EOS
0x0f8a…0f9b 0610 PRINT = ( 35 ) → b5f270074d2045204e2059f3
0x0f9b…0fac 0620 PRINT = ( 35 ) → b5f270072d2d2d2d2d2d2df3
0x0fac…0fe7 0630 PRINT = ( 15 ) → b5f27031312e20202e2e2e2e2e2020496e707574202f20656469746572696e67206176206f6273657276657274652070756e6b742ef3
0x0fe7…101e 0640 PRINT = ( 15 ) → b5702d322e20202e2e2e2e2e2020496e707574202f20656469746572696e67206176206b6a656e74652070756e6b742ee2f3
0x101e…104b 0650 PRINT = ( 15 ) → b5f27023332e20202e2e2e2e2e2020456469746572696e6720617620706172616d65746572652ef3
0x104b…1083 0660 PRINT = ( 15 ) → b5f2702e342e20202e2e2e2e2e2020537461727420332d44206f72746f676f6e616c207472616e73666f726d61736a6f6e2ef3
0x1083…109e 0670 PRINT = ( 15 ) → b5f27011352e20202e2e2e2e2e2020486a656c702ef3
0x109e…10be 0680 PRINT = ( 15 ) → b5f27016362e20202e2e2e2e2e20204578697420494e4441542ef3
0x10be…10c0 0685 PRINT EOS
0x10c0…10c3 0690 RETURN 0 EOS
0x10c3…10c4 0695 FNEND
0x10c4…1107 0700 REM ------------------------------------------ FUNCTION PARAM INN
0x1107…110b 0710 DEF var(FNP%) EOS
0x110b…110f 0720 TRAP ERR 0770
0x110f…111f 0730 1603f2700a504152414d2e44415441f3
0x111f…114e 0740 INPUT 3# SEMI var(F0) EOS 32 32 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 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)
0x114e…116b 0750 INPUT 3# SEMI var(M0) EOS 32 32 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 32 var(M0) var(C2%) var(FNC%) var(Z9%) var(C)
0x116b…118e 0760 INPUT 3# SEMI var(G9) EOS 32 32 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 32 var(C) var(F0) var(F0) var(P') var(F0) 32 var(Z9%) var(D$) var(M') var(D$) var(G9)
0x118e…1191 0770 TRAP ERR OFF
0x1191…1194 0780 1403f3
0x1194…1197 0785 RETURN 0 EOS
0x1197…1198 0790 FNEND
0x1198…11dc 0800 REM ------------------------------------------ FUNCTION LIST PARAM
0x11dc…11e0 0810 DEF var(FNL%) EOS
0x11e0…11fd 0820 PRINT = ( 28 ) → b5f2701350204120522041204d20452054204520522045f3
0x11fd…122e 0830 PRINT = ( 15 ) → b5f27027416b73656f7269656e746572696e67732d66616b746f7220202e2e2e2e2e2e2e2e2e2e20203a20f3
0x122e…125f 0840 PRINT = ( 15 ) → b5f270274d616c6573746f6b6b74616c6c20202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e20203a20f3
0x125f…1290 0850 PRINT = ( 15 ) → b5f27027416e74616c6c206b6f6e74726f6c6c70756e6b7420202e2e2e2e2e2e2e2e2e2e2e2e2e20203a20f3
0x1290…1292 0855 PRINT EOS
0x1292…129d 0860 LET var(X%) COMMA = ( 3 10 54 ) var(FNC%) EOS
0x129d…12a0 0862 PRINT var(F0) EOS
0x12a0…12ab 0865 LET var(X%) COMMA = ( 3 11 54 ) var(FNC%) EOS
0x12ab…12ae 0867 PRINT var(M0) EOS
0x12ae…12b9 0870 LET var(X%) COMMA = ( 3 12 54 ) var(FNC%) EOS
0x12b9…12d3 0872 IF var(G1%) 0 EQ COMMA 15 » Ikke spesifisert« EOS
0x12d3…12d7 0873 ELSE 15 var(G1%) EOS
0x12d7…12d9 0874 PRINT EOS
0x12d9…12dc 0875 RETURN 0 EOS
0x12dc…12dd 0880 FNEND
0x12dd…1323 1000 REM ========================================= M A I N P R O G R A M
0x1323…132a 1005 LET var(X%) COMMA = var(FNP%) EOS
0x132a…1331 1010 LET var(X%) COMMA = var(FNH%) EOS
0x1331…1338 1045 LET var(X%) COMMA = var(FNL%) EOS
0x1338…133f 1050 LET var(X%) COMMA = var(FNM%) EOS
0x133f…1342 1060 GOTO → 9010
0x1342…134f 1070 REM CONTINUE
0x134f…135a 1075 LET var(X%) COMMA = ( 3 23 1 ) var(FNC%) EOS
0x135a…1362 1080 PRINT = ( 7 ) → aff2f3
0x1362…1366 1090 TRAP ERR 1070
0x1366…1395 1100 INPUT » Velg nr. : « COMMA var(I%) EOS
0x1395…1398 1102 TRAP ERR OFF
0x1398…13c0 1105 REM VALG: 1 2 3 4 5 6
0x13c0…13d1 1110 ON var(I%) COMMA 0 32 17 var(K9%) var(A%) 17 → 801100122012f3
0x13d1…13d4 1120 GOSUB 0 20
0x13d4…13d7 1130 GOTO 16 16
0x13d7…13da 1140 GOSUB var(G5') 21
0x13da…13dd 1150 GOTO 16 16
0x13dd…13e0 1160 GOSUB 0 48
0x13e0…13e3 1170 GOTO 0 17
0x13e3…13e6 1180 GOSUB 0 56
0x13e6…13e9 1190 GOTO 0 → 82
0x13e9…13ec 1200 GOSUB 0 var(Y%)
0x13ec…13ef 1210 GOTO 16 16
0x13ef…13f2 1220 GOSUB 0 56
0x13f2…13f5 1240 GOTO 0 → 85
0x13f5…143f 1400 REM ----------------------------------------- SUBROUTINE OBSERVED POINTS
0x143f…144a 1410 LET var(X%) COMMA = ( 1 1 5 ) var(FNC%) EOS
0x144a…148b 1420 PRINT »========== INPUT / EDITERING AV OBSERVERTE PUNKT ==========« EOS
0x148b…148d 1423 PRINT EOS
0x148d…1496 1425 IF var(O$) »« EQ COMMA 34 EOS
0x1496…149e 1435 IF = var(FNO%) → eff122f3
0x149e…14a9 1438 LET var(X%) COMMA = ( 2 4 1 ) var(FNC%) EOS
0x14a9…14ec 1440 INPUT » Vil du beholde gamle punkt ? ................ (J/N) : « COMMA var(A$) EOS
0x14ec…14f7 1445 IF var(A$) »N« <> COMMA 1 0 54
0x14f7…14f8 1470 DOEND
0x14f8…14f9 1475 DOEND
0x14f9…1500 1480 ELSE 3 var(N0%) COMMA 1 0 23
0x1500…1505 1500 LET var(L%) COMMA var(N0%) EOS
0x1505…1508 1505 GOSUB 0 24
0x1508…150d 1510 LET var(N0%) COMMA var(L%) EOS
0x150d…1513 1515 195901f158f3
0x1513…1552 1520 LET ELEMENT var(M$) ( var(I%) ) [] COMMA ELEMENT var(P1$) ( var(I%) ) [] COMMA 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%) ) [] EOS
0x1552…1555 1525 1a59f3
0x1555…1560 1530 LET var(X%) COMMA = ( 5 3 1 ) var(FNC%) EOS
0x1560…1562 1535 RETURN EOS
0x1562…15a9 1550 REM ----------------------------------------- SUBROUTINE KNOWN POINTS
0x15a9…15b4 1555 LET var(X%) COMMA = ( 1 1 5 ) var(FNC%) EOS
0x15b4…15f5 1560 PRINT »============ INPUT / EDITERING AV KJENTE PUNKT ============« EOS
0x15f5…15f7 1563 PRINT EOS
0x15f7…1600 1565 IF var(K1$) »« EQ COMMA 34 EOS
0x1600…1608 1575 IF = var(FNK%) → eff122f3
0x1608…1613 1578 LET var(X%) COMMA = ( 2 4 1 ) var(FNC%) EOS
0x1613…1656 1580 INPUT » Vil du beholde gamle punkt ? ................ (J/N) : « COMMA var(A$) EOS
0x1656…1661 1585 IF var(A$) »N« <> COMMA 1 var(G5') 54
0x1661…1662 1605 DOEND
0x1662…1663 1610 DOEND
0x1663…166a 1615 ELSE 3 var(G0%) COMMA 1 var(G5') 23
0x166a…166f 1633 LET var(L%) COMMA var(G0%) EOS
0x166f…1672 1635 GOSUB 0 24
0x1672…1677 1640 LET var(G0%) COMMA var(L%) EOS
0x1677…167d 1645 195901f158f3
0x167d…16bc 1650 LET ELEMENT var(G$) ( var(I%) ) [] COMMA ELEMENT var(P1$) ( var(I%) ) [] COMMA 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%) ) [] EOS
0x16bc…16bf 1655 1a59f3
0x16bf…16ca 1660 LET var(X%) COMMA = ( 5 3 1 ) var(FNC%) EOS
0x16ca…16cc 1665 RETURN EOS
0x16cc…1715 1700 REM ----------------------------------------- SUBROUTINE INIT WORK OBS.
0x1715…171b 1705 195901f155f3
0x171b…172c 1710 LET ELEMENT var(P1$) ( var(I%) 1 8 ) [] COMMA ELEMENT var(M$) ( var(I%) ) [] EOS
0x172c…1732 1715 195a01f103f3
0x1732…1743 1720 LET ELEMENT var(P') ( var(J%) var(I%) ) [] COMMA ELEMENT var(M') ( var(J%) var(I%) ) [] EOS
0x1743…1746 1725 1a5af3
0x1746…1749 1730 1a59f3
0x1749…174b 1735 RETURN EOS
0x174b…1795 1750 REM ----------------------------------------- SUBROUTINE INIT WORK KJ.P.
0x1795…179b 1755 195901f156f3
0x179b…17aa 1760 LET ELEMENT var(P1$) ( var(I%) ) [] COMMA ELEMENT var(G$) ( var(I%) ) [] EOS
0x17aa…17b0 1765 195a01f103f3
0x17b0…17c1 1770 LET ELEMENT var(P') ( var(J%) var(I%) ) [] COMMA ELEMENT var(G') ( var(J%) var(I%) ) [] EOS
0x17c1…17c4 1775 1a5af3
0x17c4…17c7 1780 1a59f3
0x17c7…17c9 1785 RETURN EOS
0x17c9…1812 1800 REM ----------------------------------------- SUBROUTINE READING POINTS
0x1812…1833 1810 LET var(D$) COMMA »DD« COMMA var(D1$) COMMA » ###D« COMMA var(D2$) COMMA »######D.DD« EOS
0x1833…1850 1830 LET var(P$) COMMA » : PKT.NR =________ « EOS
0x1850…1880 1840 LET var(P$) COMMA var(P$) »X=_______.__ Y=_______.__ Z=_______.__« PLUS EOS
0x1880…1882 1845 PRINT EOS
0x1882…188d 1846 LET var(X%) COMMA = ( 3 3 1 ) var(FNC%) EOS
0x188d…1898 1847 LET var(X%) COMMA = ( 3 4 1 ) var(FNC%) EOS
0x1898…18a3 1848 LET var(A0%) COMMA = ( 6 3 1 ) var(FNC%) EOS
0x18a3…18ae 1849 LET var(K1%) COMMA 1 COMMA var(K2%) COMMA var(L%) EOS
0x18ae…18b9 1850 LET var(X%) COMMA = ( 3 2 1 ) var(FNC%) EOS
0x18b9…18c4 1851 LET var(X%) COMMA = ( 2 3 1 ) var(FNC%) EOS
0x18c4…18cc 1852 IF var(L%) 0 > COMMA 1 0 41
0x18cc…18dd 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)
0x18dd…18e5 1870 IF var(L%) var(Z9%) > COMMA 0 var(G5') 40
0x18e5…18ed 1900 LET var(K3%) COMMA var(L%) 2 PLUS EOS
0x18ed…18f9 1910 IF var(K3%) 24 > COMMA 27 var(K3%) COMMA 24 EOS
0x18f9…1905 1920 LET var(A0%) COMMA = ( 2 var(K3%) 1 ) var(FNC%) EOS
0x1905…190e 1930 PRINT USING var(D$) COMMA var(L%) SEMI var(P$) SEMI EOS
0x190e…1916 1935 PRINT = ( 7 ) → aff2f3
0x1916…1922 1940 LET var(A0%) COMMA = ( 2 var(K3%) 13 ) var(FNC%) EOS
0x1922…1926 1958 TRAP ERR 2900
0x1926…192d 1960 INPUT »=« COMMA var(N$) EOS
0x192d…1930 1970 TRAP ERR OFF
0x1930…1939 1980 IF var(N$) »« EQ COMMA 0 var(G5') 40
0x1939…194a 1990 LET var(L%) COMMA var(L%) 1 SUB2 COMMA var(A0%) COMMA = ( 5 3 1 ) var(FNC%) EOS
0x194a…1954 2000 IF var(N$) »C« EQ COMMA 0 var(A0x22)
0x1954…195e 2010 IF var(N$) »D« EQ COMMA 0 var(A0x25)
0x195e…1968 2020 IF var(N$) »L« EQ COMMA 0 var(C) 24
0x1968…1972 2065 IF var(N$) »I« EQ COMMA 0 0 var(A%)
0x1972…1980 2067 IF var(N$) »M« EQ var(L%) 1 > AND COMMA 0 0 55
0x1980…199c 2070 LET var(L%) COMMA var(L%) 1 PLUS COMMA var(A0%) COMMA = ( 6 3 1 ) var(FNC%) COMMA ELEMENT var(P1$) ( var(L%) 1 8 ) [] COMMA var(N$) EOS
0x199c…19a4 2110 195a01f15801e3f3
0x19a4…19b6 2120 IF ELEMENT var(P1$) ( var(L%) ) [] ELEMENT var(P1$) ( var(J%) ) [] EQ COMMA 0 53 25
0x19b6…19b9 2130 1a5af3
0x19b9…19bf 2140 195a01f103f3
0x19bf…19c2 2150 GOTO »«si»qs\x07t\xaf\xf2\xf3\x1c«soh»`!\x1bQ\xf1qs\x02@\x07
Z«so»\xe4\xe2tA\xf3\x10p«soh»=\xf1«
0x19c2…19ca 2160 PRINT = ( 7 ) → aff2f3
0x19ca…19ce 2170 TRAP ERR 2160
0x19ce…19de 2180 LET var(A0%) COMMA = ( 2 var(K3%) 13 var(J%) 14 MULT PLUS ) var(FNC%) EOS
0x19de…19eb 2190 INPUT »=« COMMA ELEMENT var(P') ( var(J%) var(L%) ) [] EOS
0x19eb…1a13 2200 IF ELEMENT var(P') ( var(J%) var(L%) ) [] ELEMENT var(G5') ( var(J%) 1 PLUS 1 ) [] > ELEMENT var(P') ( var(J%) var(L%) ) [] ELEMENT var(G5') ( var(J%) 1 PLUS 2 ) [] ?< OR COMMA 0 var(A%) 33
0x1a13…1a16 2210 1a5af3
0x1a16…1a22 2215 LET var(A0%) COMMA = ( 2 var(K3%) 14 ) var(FNC%) EOS
0x1a22…1a62 2217 PRINT ELEMENT var(P1$) ( var(L%) ) [] SEMI » X=« SEMI USING var(D2$) COMMA ELEMENT var(P') ( 1 var(L%) ) [] SEMI » Y=« SEMI USING var(D2$) COMMA ELEMENT var(P') ( 2 var(L%) ) [] SEMI » Z=« SEMI USING var(D2$) COMMA ELEMENT var(P') ( 3 var(L%) ) [] EOS
0x1a62…1a77 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)
0x1a77…1abf 2230 REM ----------------------------------------- SUBROUTINE CORRECT POINT
0x1abf…1ac2 2240 GOTO var(A%) 34
0x1ac2…1aca 2250 PRINT = ( 7 ) → aff2f3
0x1aca…1adf 2260 REM TRAP ERR TO 2250
0x1adf…1aea 2270 LET var(X%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x1aea…1aed 2275 TRAP ERR OFF
0x1aed…1b35 2280 INPUT » PKT.NR. som skal rettes ............................ : « COMMA ELEMENT var(N$) ( 1 8 ) [] EOS
0x1b35…1b41 2290 IF = ( var(N$) ) → ac20e7f1004918
0x1b41…1b4c 2300 LET var(X%) COMMA = ( 3 2 1 ) var(FNC%) EOS
0x1b4c…1b52 2310 195901f158f3
0x1b52…1b5f 2320 IF var(N$) ELEMENT var(P1$) ( var(I%) ) [] EQ COMMA 0 var(C) 35
0x1b5f…1b62 2330 1a59f3
0x1b62…1b75 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%)
0x1b75…1b82 2345 REM CONTINUE
0x1b82…1b8a 2351 IF var(L%) 22 ?< COMMA 0 var(A%) 35
0x1b8a…1b92 2352 LET var(K1%) COMMA var(I%) 20 SUB2 EOS
0x1b92…1b9e 2354 IF var(K1%) 1 ?< COMMA 27 var(K1%) COMMA 1 EOS
0x1b9e…1ba7 2355 LET var(K2%) COMMA var(K1%) 20 PLUS EOS
0x1ba7…1bb3 2356 IF var(K2%) var(L%) > COMMA 27 var(K2%) COMMA var(L%) EOS
0x1bb3…1bbe 2357 LET var(K3%) COMMA var(I%) var(K1%) SUB2 3 PLUS EOS
0x1bbe…1bc1 2358 GOSUB 0 41
0x1bc1…1bc4 2359 GOTO var(X1%) 35
0x1bc4…1bcc 2360 LET var(K3%) COMMA var(I%) 2 PLUS EOS
0x1bcc…1bd8 2365 LET var(A0%) COMMA = ( 2 var(K3%) 13 ) var(FNC%) EOS
0x1bd8…1bde 2367 195a01f104f3
0x1bde…1be1 2370 GOTO → 9023
0x1be1…1be9 2380 PRINT = ( 7 ) → aff2f3
0x1be9…1bed 2390 TRAP ERR 2380
0x1bed…1bfd 2400 LET var(A0%) COMMA = ( 2 var(K3%) var(J%) 14 MULT 1 SUB2 ) var(FNC%) EOS
0x1bfd…1c04 2410 LINPUT »=« COMMA var(N$) EOS
0x1c04…1c1a 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)
0x1c1a…1c2b 2425 IF var(J%) 1 EQ COMMA 27 ELEMENT var(P1$) ( var(I%) 1 8 ) [] COMMA var(N$) EOS
0x1c2b…1c3d 2430 ELSE 27 ELEMENT var(P') ( var(J%) 1 SUB2 var(I%) ) [] COMMA = ( var(N$) ) VAL EOS
0x1c3d…1c52 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')
0x1c52…1c58 2450 195b01f158f3
0x1c58…1c6b 2460 IF var(K%) var(I%) EQ COMMA 0 → 80242053414d4520504f494e54
0x1c6b…1c7d 2470 IF ELEMENT var(P1$) ( var(K%) ) [] ELEMENT var(P1$) ( var(I%) ) [] EQ COMMA 0 → 8023
0x1c7d…1c80 2480 1a5bf3
0x1c80…1c83 2490 GOTO 16 37
0x1c83…1cab 2500 IF ELEMENT var(P') ( var(J%) 1 SUB2 var(I%) ) [] ELEMENT var(G5') ( var(J%) 1 ) [] > ELEMENT var(P') ( var(J%) 1 SUB2 var(I%) ) [] ELEMENT var(G5') ( var(J%) 2 ) [] ?< OR COMMA 0 → 8023
0x1cab…1cae 2510 1a5af3
0x1cae…1cb0 2515 PRINT EOS
0x1cb0…1cbb 2516 LET var(A0%) COMMA = ( 2 3 1 ) var(FNC%) EOS
0x1cbb…1cbe 2520 GOTO var(D$) 24
0x1cbe…1d05 2530 REM ----------------------------------------- SUBROUTINE DELETE POINT
0x1d05…1d08 2540 GOTO var(A%) 37
0x1d08…1d10 2550 PRINT = ( 7 ) → aff2f3
0x1d10…1d1d 2560 REM CONTINUE
0x1d1d…1d28 2570 LET var(X%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x1d28…1d70 2580 INPUT » PKT.NR. som skal slettes ........................... : « COMMA ELEMENT var(N$) ( 1 8 ) [] EOS
0x1d70…1d7c 2590 IF = ( var(N$) ) → ac20e7f1004918
0x1d7c…1d87 2600 LET var(X%) COMMA = ( 3 2 1 ) var(FNC%) EOS
0x1d87…1d8d 2610 195901f158f3
0x1d8d…1d9a 2620 IF var(N$) ELEMENT var(P1$) ( var(I%) ) [] EQ COMMA 0 var(G5') 38
0x1d9a…1d9d 2630 1a59f3
0x1d9d…1dad 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%)
0x1dad…1dba 2650 REM CONTINUE
0x1dba…1dc6 2660 IF var(I%) var(L%) EQ var(L%) 21 ?< AND COMMA 0 → 9027
0x1dc6…1dce 2663 IF var(I%) var(L%) EQ COMMA 0 51 40
0x1dce…1dd6 2680 195a59f15801e3f3
0x1dd6…1e1d 2685 LET ELEMENT var(P1$) ( var(J%) ) [] COMMA ELEMENT var(P1$) ( var(J%) 1 PLUS ) [] COMMA ELEMENT var(P') ( 1 var(J%) ) [] COMMA ELEMENT var(P') ( 1 var(J%) 1 PLUS ) [] COMMA ELEMENT var(P') ( 2 var(J%) ) [] COMMA ELEMENT var(P') ( 2 var(J%) 1 PLUS ) [] COMMA ELEMENT var(P') ( 3 var(J%) ) [] COMMA ELEMENT var(P') ( 3 var(J%) 1 PLUS ) [] EOS
0x1e1d…1e25 2687 IF var(L%) 20 > COMMA 0 → 8027
0x1e25…1e32 2690 LET var(A0%) COMMA = ( 2 var(J%) 2 PLUS 1 ) var(FNC%) EOS
0x1e32…1e3b 2700 PRINT USING ( var(D$) ) COMMA var(J%) SEMI EOS
0x1e3b…1e4c 2710 PRINT ELEMENT var(P$) ( 1 11 ) [] SEMI ELEMENT var(P1$) ( var(J%) ) [] SEMI EOS
0x1e4c…1e85 2720 PRINT » X=« SEMI USING var(D2$) COMMA ELEMENT var(P') ( 1 var(J%) ) [] SEMI » Y=« SEMI USING var(D2$) COMMA ELEMENT var(P') ( 2 var(J%) ) [] SEMI » Z=« SEMI USING var(D2$) COMMA ELEMENT var(P') ( 3 var(J%) ) [] EOS
0x1e85…1e88 2780 1a5af3
0x1e88…1e90 2785 IF var(L%) 20 > COMMA 0 51 40
0x1e90…1e9d 2790 LET var(A0%) COMMA = ( 4 var(L%) 2 PLUS 1 ) var(FNC%) EOS
0x1e9d…1ebe 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)
0x1ebe…1ed6 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)
0x1ed6…1ee7 2833 LET var(L%) COMMA var(L%) 1 SUB2 COMMA var(A0%) COMMA = ( 4 3 1 ) var(FNC%) EOS
0x1ee7…1eea 2835 GOTO var(D$) 24
0x1eea…1f2d 2850 REM ----------------------------------------- EXIT READING POINTS
0x1f2d…1f34 2855 LET var(L%) COMMA var(L%) 1 SUB2 EOS
0x1f34…1f37 2860 TRAP ERR OFF
0x1f37…1f39 2870 RETURN EOS
0x1f39…1f7f 2900 REM ----------------------------------------- SUBROUTINE LIST POINTS
0x1f7f…1f87 2905 195a4003f14004f3
0x1f87…1f9f 2910 PRINT USING ( var(D$) ) COMMA var(J%) SEMI ELEMENT var(P$) ( 1 11 ) [] SEMI ELEMENT var(P1$) ( var(J%) ) [] SEMI EOS
0x1f9f…1fd8 2920 PRINT » X=« SEMI USING var(D2$) COMMA ELEMENT var(P') ( 1 var(J%) ) [] SEMI » Y=« SEMI USING var(D2$) COMMA ELEMENT var(P') ( 2 var(J%) ) [] SEMI » Z=« SEMI USING var(D2$) COMMA ELEMENT var(P') ( 3 var(J%) ) [] EOS
0x1fd8…1fdb 2930 1a5af3
0x1fdb…1fdd 2940 RETURN EOS
0x1fdd…2022 3000 REM ----------------------------------------- SUBROUTINE EDIT PARAM
0x2022…202d 3005 LET var(X%) COMMA = ( 3 10 55 ) var(FNC%) EOS
0x202d…2031 3010 TRAP ERR 3000
0x2031…2037 3015 INPUT »« COMMA var(N$) EOS
0x2037…2040 3020 IF var(N$) »« EQ COMMA 0 var(A0x30)
0x2040…204a 3025 LET var(P%) COMMA = ( var(N$) ) VAL EOS
0x204a…2063 3030 IF var(P%) -1 → eb401d01e9eef11b52f1401df3
0x2063…2067 3035 ELSE 0 5 48
0x2067…2074 3038 REM CONTINUE
0x2074…207f 3040 LET var(X%) COMMA = ( 3 11 55 ) var(FNC%) EOS
0x207f…2083 3045 TRAP ERR 3038
0x2083…2089 3050 INPUT »« COMMA var(N$) EOS
0x2089…2092 3055 IF var(N$) »« EQ COMMA 0 »\x1bS\xf1qsHt\xad\xf3\x03S\x00\xe8\xf1\x00@0\x0bp
CONTINUE
\x1ba\xf1qs\x03\f
7tA\xf3\x1c«soh»p0\x10p\x00«
0x2092…209b 3058 LET var(M0) COMMA = ( var(N$) ) VAL EOS
0x209b…20a3 3060 IF var(M0) 0 ?< COMMA 0 var(A0x30)
0x20a3…20b0 3070 REM CONTINUE
0x20b0…20bb 3075 LET var(X%) COMMA = ( 3 12 55 ) var(FNC%) EOS
0x20bb…20bf 3080 TRAP ERR 3070
0x20bf…20c5 3085 INPUT »« COMMA var(N$) EOS
0x20c5…20ce 3090 IF var(N$) »« EQ COMMA 0 → 9830
0x20ce…20d7 3095 LET var(G1%) COMMA = ( var(N$) ) VAL EOS
0x20d7…20e2 3098 LET var(X%) COMMA = ( 2 8 1 ) var(FNC%) EOS
0x20e2…20e4 3099 PRINT EOS
0x20e4…20eb 3100 LET var(X%) COMMA = var(FNL%) EOS
0x20eb…20f6 3110 LET var(X%) COMMA = ( 3 23 1 ) var(FNC%) EOS
0x20f6…20f9 3115 TRAP ERR OFF
0x20f9…20fb 3120 RETURN EOS
0x20fb…2143 3600 REM ----------------------------------------- SUBROUTINE READ OBS.FILE
0x2143…2149 3605 INPUT 1# SEMI var(N0%) EOS
0x2149…214f 3610 195901f155f3
0x214f…215c 3615 INPUT 1# SEMI ELEMENT var(P1$) ( var(I%) 1 8 ) [] EOS
0x215c…2162 3620 195a01f103f3
0x2162…216e 3625 INPUT 1# SEMI ELEMENT var(P') ( var(J%) var(I%) ) [] EOS
0x216e…2171 3630 1a5af3
0x2171…2174 3635 1a59f3
0x2174…2177 3640 1401f3
0x2177…2179 3645 RETURN EOS
0x2179…21c0 3650 REM ----------------------------------------- SUBROUTINE READ KJ.FILE
0x21c0…21c6 3655 INPUT 2# SEMI var(G0%) EOS
0x21c6…21cc 3660 195901f156f3
0x21cc…21d9 3665 INPUT 2# SEMI ELEMENT var(P1$) ( var(I%) 1 8 ) [] EOS
0x21d9…21df 3670 195a01f103f3
0x21df…21eb 3675 INPUT 2# SEMI ELEMENT var(P') ( var(J%) var(I%) ) [] EOS
0x21eb…21ee 3680 1a5af3
0x21ee…21f1 3685 1a59f3
0x21f1…21f7 3690 INPUT 2# SEMI var(G1%) EOS
0x21f7…21fa 3693 1402f3
0x21fa…21fc 3695 RETURN EOS
0x21fc…2241 3700 REM ----------------------------------------- SUBROUTINE MOVE POINT
0x2241…2244 3705 GOTO 21 55
0x2244…224c 3710 PRINT = ( 7 ) → aff2f3
0x224c…2250 3715 TRAP ERR 3710
0x2250…225b 3720 LET var(A0%) COMMA = ( 2 2 13 ) var(FNC%) EOS
0x225b…227c 3725 INPUT » Flytt punktet i linje « COMMA var(K5%) EOS
0x227c…228a 3730 IF var(K5%) 1 ?< var(K5%) var(L%) > OR COMMA 0 16 55
0x228a…229c 3735 INPUT » til linje « COMMA var(K6%) EOS
0x229c…229f 3737 TRAP ERR OFF
0x229f…22ad 3740 IF var(K6%) 1 ?< var(K6%) var(L%) > OR COMMA 0 16 55
0x22ad…22b7 3743 IF var(K6%) var(K5%) EQ COMMA 0 → 8037
0x22b7…22c5 3745 LET var(K7%) COMMA = ( var(K6%) var(K5%) SUB2 ) ?SGN EOS
0x22c5…2303 3755 LET var(N$) COMMA ELEMENT var(P1$) ( var(K5%) ) [] COMMA ELEMENT var(X') ( 1 ) [] COMMA ELEMENT var(P') ( 1 var(K5%) ) [] COMMA ELEMENT var(X') ( 2 ) [] COMMA ELEMENT var(P') ( 2 var(K5%) ) [] COMMA ELEMENT var(X') ( 3 ) [] COMMA ELEMENT var(P') ( 3 var(K5%) ) [] EOS
0x2303…2311 3760 195a400bf1400c400de3f1400df3
0x2311…2349 3765 LET ELEMENT var(P1$) ( var(J%) ) [] COMMA ELEMENT var(P1$) ( var(J%) var(K7%) PLUS ) [] COMMA ELEMENT var(P') ( 1 var(J%) ) [] COMMA ELEMENT var(P') ( 1 var(J%) var(K7%) PLUS ) [] COMMA ELEMENT var(P') ( 2 var(J%) ) [] COMMA ELEMENT var(P') ( 2 var(J%) var(K7%) PLUS ) [] EOS
0x2349…235d 3766 LET ELEMENT var(P') ( 3 var(J%) ) [] COMMA ELEMENT var(P') ( 3 var(J%) var(K7%) PLUS ) [] EOS
0x235d…2360 3770 1a5af3
0x2360…239e 3775 LET ELEMENT var(P1$) ( var(K6%) ) [] COMMA var(N$) COMMA ELEMENT var(P') ( 1 var(K6%) ) [] COMMA ELEMENT var(X') ( 1 ) [] COMMA ELEMENT var(P') ( 2 var(K6%) ) [] COMMA ELEMENT var(X') ( 2 ) [] COMMA ELEMENT var(P') ( 3 var(K6%) ) [] COMMA ELEMENT var(X') ( 3 ) [] EOS
0x239e…23ab 3780 REM CONTINUE
0x23ab…23ae 3790 GOTO var(D$) 24
0x23ae…23f6 3800 REM ----------------------------------------- SUBROUTINE STORE TO FILE
0x23f6…2401 3810 LET var(X%) COMMA = ( 4 14 1 ) var(FNC%) EOS
0x2401…240f 3820 IF var(O$) »« EQ var(N0%) 0 EQ OR COMMA 0 → 9039
0x240f…2436 3840 1601f2401af320202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e204f4253455256454420504f494e5453
0x2436…2459 3850 PRINT 1# SEMI var(N0%) EOS 32 32 46 46 46 46 46 46 46 46 46 46 46 46 46 32 var(G') var(P') 46 32 var(P') var(P$) 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x2459…245f 3870 195901f155f3
0x245f…246a 3875 PRINT 1# SEMI ELEMENT var(M$) ( var(I%) ) [] EOS
0x246a…2470 3880 195a01f103f3
0x2470…247c 3890 PRINT 1# SEMI ELEMENT var(M') ( var(J%) var(I%) ) [] EOS
0x247c…247f 3900 1a5af3
0x247f…2482 3910 1a59f3
0x2482…2485 3915 2001f3
0x2485…2488 3920 1401f3
0x2488…248a 3925 PRINT EOS
0x248a…24cd 3930 PRINT = ( 10 ) → b5f2702a416e74616c6c206f6273657276657274652070756e6b7420736b72657665742074696c2066696c656e20f2401af27007202e2e2e203a20f255f3
0x24cd…24db 3990 IF var(K1$) »« EQ var(G0%) 0 EQ OR COMMA 0 0 var(C1%)
0x24db…24ff 4000 1602f2401ff320202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e204b4e4f574e20504f494e5453
0x24ff…2521 4010 PRINT 2# SEMI var(G0%) EOS 32 32 46 46 46 46 46 46 46 46 46 46 46 46 46 32 var(G') var(P') 46 var(P') var(P$) 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x2521…2527 4060 195901f156f3
0x2527…2532 4065 PRINT 2# SEMI ELEMENT var(G$) ( var(I%) ) [] EOS
0x2532…2538 4070 195a01f103f3
0x2538…2544 4080 PRINT 2# SEMI ELEMENT var(G') ( var(J%) var(I%) ) [] EOS
0x2544…2547 4090 1a5af3
0x2547…254a 4100 1a59f3
0x254a…2575 4110 PRINT 2# SEMI var(G1%) EOS 32 32 46 46 46 46 46 46 46 46 46 46 46 46 46 32 var(G') var(P') 46 32 var(P') var(P$) 32 var(C2%) var(P') var(G') var(G9) var(F0) var(P') var(Z9%) 32 var(G5') var(P') var(D$) var(G') var(G9) var(M0)
0x2575…2578 4115 2002f3
0x2578…257b 4120 1402f3
0x257b…257d 4130 PRINT EOS
0x257d…25c0 4140 PRINT = ( 10 ) → b5f27026416e74616c6c206b6a656e74652070756e6b7420736b72657665742074696c2066696c656e20f2401ff2700b202e2e2e2e2e2e2e203a20f256f3
0x25c0…25d0 4200 1603f2700a504152414d2e44415441f3
0x25d0…25ed 4220 PRINT 3# SEMI var(F0) EOS 32 32 46 46 46 46 46 46 46 46 46 46 46 46 46 46 32 var(P$) var(FNC%) var(C2%) var(G9) var(P') var(F0)
0x25ed…2609 4250 PRINT 3# SEMI var(M0) EOS 32 32 46 46 46 46 46 46 46 46 46 46 46 46 46 46 32 var(M0) var(C2%) var(FNC%) var(Z9%) var(C)
0x2609…262a 4280 PRINT 3# SEMI var(G9) EOS 32 32 46 46 46 46 46 46 46 46 46 46 46 46 46 46 32 var(P$) var(C) var(D$) var(Z9%) var(T$) var(F0) var(C) var(G') var(M0) var(C)
0x262a…262d 4330 1403f3
0x262d…262f 4350 RETURN EOS
0x262f…2679 6000 REM ----------------------------------------- SUBROUTINE READ INSTRUMENT
0x2679…2684 6003 LET var(A0%) COMMA = ( 2 2 1 ) var(FNC%) EOS
0x2684…26b3 6004 PRINT = ( 24 ) → b5f270252d2d2d20204c4553455220444154412046524120494e535452554d454e54455420202d2d2df3
0x26b3…26be 6005 LET var(A0%) COMMA = ( 6 3 1 ) var(FNC%) EOS
0x26be…26cc 6006 LET var(L%) COMMA var(L%) 1 PLUS COMMA var(K3%) COMMA var(L%) 2 PLUS EOS
0x26cc…26d8 6007 IF var(K3%) 24 > COMMA 27 var(K3%) COMMA 24 EOS
0x26d8…26e4 6010 LET var(A0%) COMMA = ( 2 var(K3%) 1 ) var(FNC%) EOS
0x26e4…26f3 6011 PRINT USING var(D$) COMMA var(L%) SEMI ELEMENT var(P$) ( 1 19 ) [] SEMI EOS
0x26f3…26ff 6013 LET var(A0%) COMMA = ( 2 var(K3%) 13 ) var(FNC%) EOS
0x26ff…2707 6020 PRINT = ( 7 ) → aff2f3
0x2707…270e 6021 INPUT »=« COMMA var(N$) EOS
0x270e…2716 6025 IF var(N$) »« EQ COMMA 34 EOS
0x2716…2721 6028 LET var(X%) COMMA = ( 5 3 1 ) var(FNC%) EOS
0x2721…272c 6030 LET var(X%) COMMA = ( 3 2 1 ) var(FNC%) EOS
0x272c…272f 6035 GOTO »\x08\x1brjsX«soh»\x08t\x9f\xf1H\xf1Q\xf1qs\x02@\x07«so»tA\xf3«
0x272f…2730 6037 DOEND
0x2730…2747 6040 LET ELEMENT var(P1$) ( var(L%) 1 8 ) [] COMMA var(N$) COMMA var(A0%) COMMA = ( 2 var(K3%) 14 ) var(FNC%) EOS
0x2747…274f 6042 195901f15801e3f3
0x274f…2761 6043 IF ELEMENT var(P1$) ( var(L%) ) [] ELEMENT var(P1$) ( var(I%) ) [] EQ COMMA 0 16 var(A%)
0x2761…2764 6045 1a59f3
0x2764…276d 6047 PRINT ELEMENT var(P1$) ( var(L%) ) [] SEMI EOS
0x276d…277a 6050 1d7005504544414cf101f25cf3
0x277a…2782 6055 IF var(S6%) 0 EQ COMMA 0 var(G5') var(A%)
0x2782…2785 6060 GOSUB 0 → 80
0x2785…27a4 6062 LET ELEMENT var(P') ( 1 var(L%) ) [] COMMA var(X) COMMA ELEMENT var(P') ( 2 var(L%) ) [] COMMA var(Y) COMMA ELEMENT var(P') ( 3 var(L%) ) [] COMMA var(Z) EOS
0x27a4…27cb 6065 PRINT » X=« SEMI USING var(D2$) COMMA var(X) SEMI » Y=« SEMI USING var(D2$) COMMA var(Y) SEMI » Z=« SEMI USING var(D2$) COMMA var(Z) EOS
0x27cb…27ce 6070 GOTO 5 var(A%)
0x27ce…280e 6200 REM ----------------------------------------- SUBROUTINE HJELP
0x280e…2819 6205 PRINT = ( 27 ) → af700145e2f3
0x2819…2824 6210 LET var(X%) COMMA = ( 2 1 1 ) var(FNC%) EOS
0x2824…2826 6215 PRINT EOS
0x2826…284b 6220 PRINT = ( 3 ) → b5f2701b49204e2046204f20202d202050726f6772616d20494e444154203af3
0x284b…288c 6240 PRINT = ( 15 ) → b5f2703750726f6772616d6d6574207461722073656720617620696e6e6c65736e696e67206176206d6f64656c6c2d206f672074657272656e672df3
0x288c…28c6 6250 PRINT = ( 15 ) → b5f270306b6f6f7264696e6174657220666f72207472616e73666f726d61736a6f6e2c2073616d7420706172616d65746572652ef3
0x28c6…28c8 6255 PRINT EOS
0x28c8…2909 6260 PRINT = ( 15 ) → b5f27037416c6c65206d6f64656c6c70756e6b74206d6120686120706b742e6e722e2c20782c20792c206f67207a2073706573696669736572742ef3
0x2909…294c 6270 PRINT = ( 15 ) → b5f27039466f72206b6a656e74652070756e6b7420676f6474617320616c6c65206b6f6d62696e61736a6f6e657220617620782c20792c206f67207a2ef3
0x294c…296e 6280 PRINT = ( 15 ) → b5f270164d616b732e20616e74616c6c2070756e6b7420657220f24cf3
0x296e…2970 6285 PRINT EOS
0x2970…29bb 6290 PRINT = ( 15 ) → b5f2704156656420696e6e6c65736e696e672061762070756e6b74206b616e20666f6c67656e6465206b6f6d6d616e646f6572206769732069204e522e66656c746574203af3
0x29bb…29e3 6300 PRINT = ( 25 ) → b5f2701e4320202e2e2e2e2e2e2e2e202052657474696e672061762070756e6b742ef3
0x29e3…2a06 6310 PRINT = ( 25 ) → b5f270194420202e2e2e2e2e2e2e2e2020536c6574742070756e6b742ef3
0x2a06…2a29 6320 PRINT = ( 25 ) → b5f270194d20202e2e2e2e2e2e2e2e2020466c797474206c696e6a652ef3
0x2a29…2a61 6330 PRINT = ( 25 ) → b5f2702e4920202e2e2e2e2e2e2e2e2020537461727420696e7075742070756e6b742066726120696e737472756d656e742ef3
0x2a61…2a8f 6335 PRINT = ( 25 ) → b5f270244c20202e2e2e2e2e2e2e2e20204c6973742072656769737472657274652070756e6b742ef3
0x2a8f…2ab5 6340 PRINT = ( 25 ) → b5f2701c52455455524e20202e2e2e202052657475722074696c206d656e792ef3
0x2ab5…2ab7 6350 PRINT EOS
0x2ab7…2af7 6360 PRINT = ( 15 ) → b5f2703646696c6e61766e20666f72206b6f6f7264696e617466696c657220616e676973206176206272756b65722e2052455455524e20676972f3
0x2af7…2b27 6365 PRINT = ( 15 ) → b5f2702664656661756c742d66696c656e65204f42532e44415441206f67204b4e4f574e2e444154412ef3
0x2b27…2b68 6370 PRINT = ( 15 ) → b5f2703756656420656469746572696e6720617620706172616d65746572652c206d656e7976616c6720332c20666c797474657320637572736f72f3
0x2b68…2baa 6375 PRINT = ( 15 ) → b5f2703874696c20706172616d6574657266656c7465742e204e79207665726469206176736c7574746574206d65642052455455524e20666f722061f3
0x2baa…2be7 6380 PRINT = ( 15 ) → b5f27033656e64726520696e6e686f6c642c20626172652052455455524e2067697220686f70702074696c206e657374652066656c742ef3
0x2be7…2be9 6385 PRINT EOS
0x2be9…2c24 6390 INPUT » Trykk RETURN for meny.« COMMA var(A$) EOS
0x2c24…2c26 6400 RETURN EOS
0x2c26…2c6f 8000 REM ----------------------------------------- SUBROUTINE READ COUNTCARD
0x2c6f…2c74 8004 LET var(A%) COMMA 3 EOS
0x2c74…2c90 8050 1d700654454c4c4552f160f261f162f163f164f165f166f167f168f3
0x2c90…2ca6 8100 IF var(X1%) %128 > COMMA 27 var(X1%) COMMA var(X1%) 256 SUB2 EOS
0x2ca6…2cc6 8110 IF var(X%) 0 ?< COMMA 27 var(X) COMMA var(X1%) 65534 MULT 65534 PLUS var(X%) PLUS EOS
0x2cc6…2cd8 8120 ELSE 27 var(X) COMMA var(X1%) 65534 MULT var(X%) PLUS EOS
0x2cd8…2cee 8130 IF var(Y1%) %128 > COMMA 27 var(Y1%) COMMA var(Y1%) 256 SUB2 EOS
0x2cee…2d0e 8140 IF var(Y%) 0 ?< COMMA 27 var(Y) COMMA var(Y1%) 65534 MULT 65534 PLUS var(Y%) PLUS EOS
0x2d0e…2d20 8150 ELSE 27 var(Y) COMMA var(Y1%) 65534 MULT var(Y%) PLUS EOS
0x2d20…2d36 8160 IF var(Z1%) %128 > COMMA 27 var(Z1%) COMMA var(Z1%) 256 SUB2 EOS
0x2d36…2d56 8170 IF var(Z%) 0 ?< COMMA 27 var(Z) COMMA var(Z1%) 65534 MULT 65534 PLUS var(Z%) PLUS EOS
0x2d56…2d68 8180 ELSE 27 var(Z) COMMA var(Z1%) 65534 MULT var(Z%) PLUS EOS
0x2d68…2d6a 8190 RETURN EOS
0x2d6a…2db0 8200 REM ----------------------------------------- SUBROUTINE CHAIN TRANS
0x2db0…2db2 8210 PRINT EOS
0x2db2…2dbd 8220 LET var(X%) COMMA = ( 2 20 1 ) var(FNC%) EOS
0x2dbd…2df5 8230 PRINT = ( 20 ) → b5f2702e3d3d3d202020537461727420332d44206f72746f676f6e616c207472616e73666f726d61736a6f6e2020203d3d3df3
0x2df5…2dfe 8240 CHAIN »TRANS« EOS
0x2dfe…2e43 8500 REM ----------------------------------------- SUBROUTINE EXIT INDAT
0x2e43…2e45 8505 PRINT EOS
0x2e45…2e50 8510 LET var(X%) COMMA = ( 2 20 1 ) var(FNC%) EOS
0x2e50…2e74 8520 PRINT = ( 30 ) → b5f2701a3d3d3d202020457869742049204e2044204120542020203d3d3df3
0x2e74…2e79 8530 CHAIN »S« EOS
0x2e79…2e7a 9000 END