|
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: 9178 (0x23da)
Notes: ZILOG_BASIC
Names: »PLOT.BP«
└─⟦1939a49b1⟧ Bits:30006827 8" ZilogMCZ floppy NThun_0050 (25.9.82 Program PLOT PLOT.BP PLOT.2.BP (c) VIAK DATA)
└─⟦this⟧ »PLOT.BP«
0x0000…0014 BasicHead {variables=0x0168, stms=0x06ec, f2=0x1b72, f3=0000000000000000000000000000}
0x0014…017c [
0x0014…017c [0x00]: VarDef {f0=0x028e, f1=0x42, f2=0x07} H2 0x59
0x0014…017c [0x01]: VarDef {f0=0x0000, f1=0x4f, f2=0x12} S 0x58
0x0014…017c [0x02]: VarDef {f0=0x494e, f1=0x4f, f2=0x19} Z 0x57
0x0014…017c [0x03]: VarDef {f0=0x2a2a, f1=0x4f, f2=0x05} F 0x56
0x0014…017c [0x04]: VarDef {f0=0x2a2a, f1=0x4f, f2=0x04} E 0x55
0x0014…017c [0x05]: VarDef {f0=0x0000, f1=0x4f, f2=0x01} B 0x54
0x0014…017c [0x06]: VarDef {f0=0x0000, f1=0x4f, f2=0x00} A 0x53
0x0014…017c [0x07]: VarDef {f0=0x0000, f1=0x42, f2=0x15} V2 0x52
0x0014…017c [0x08]: VarDef {f0=0x0000, f1=0x4f, f2=0x2d} N% 0x51
0x0014…017c [0x09]: VarDef {f0=0x0014, f1=0x4f, f2=0x2c} M% 0x50
0x0014…017c [0x0a]: VarDef {f0=0x0054, f1=0x49, f2=0x03} D9 0x4f
0x0014…017c [0x0b]: VarDef {f0=0x0000, f1=0x4f, f2=0x25} F% 0x4e
0x0014…017c [0x0c]: VarDef {f0=0x0400, f1=0x42, f2=0x2d} N2% 0x4d
0x0014…017c [0x0d]: VarDef {f0=0xe500, f1=0x42, f2=0x28} I2% 0x4c
0x0014…017c [0x0e]: VarDef {f0=0x9a00, f1=0x41, f2=0x28} I1% 0x4b
0x0014…017c [0x0f]: VarDef {f0=0x3600, f1=0x4f, f2=0x10} Q 0x4a
0x0014…017c [0x10]: VarDef {f0=0xe8af, f1=0x59, f2=0x36} FNW9% 0x49
0x0014…017c [0x11]: VarDef {f0=0xe8d3, f1=0x58, f2=0x36} FNW8% 0x48
0x0014…017c [0x12]: VarDef {f0=0x02a6, f1=0x49, f2=0x15} V9 0x47
0x0014…017c [0x13]: VarDef {f0=0x029e, f1=0x49, f2=0x14} U9 0x46
0x0014…017c [0x14]: VarDef {f0=0x0286, f1=0x4f, f2=0x03} D 0x45
0x0014…017c [0x15]: VarDef {f0=0xe937, f1=0x57, f2=0x36} FNW7% 0x44
0x0014…017c [0x16]: VarDef {f0=0xe953, f1=0x5f, f2=0x30} FNQ% 0x43
0x0014…017c [0x17]: VarDef {f0=0xe97b, f1=0x5f, f2=0x03} FND 0x42
0x0014…017c [0x18]: VarDef {f0=0x3400, f1=0x4f, f2=0x28} I% 0x41
0x0014…017c [0x19]: VarDef {f0=0x0296, f1=0x4f, f2=0x15} V 0x40
0x0014…017c [0x1a]: VarDef {f0=0x1480, f1=0x4f, f2=0x07} H 0x3f
0x0014…017c [0x1b]: VarDef {f0=0x0276, f1=0x43, f2=0x17} X3 0x3e
0x0014…017c [0x1c]: VarDef {f0=0x027e, f1=0x43, f2=0x18} Y3 0x3d
0x0014…017c [0x1d]: VarDef {f0=0xe973, f1=0x5f, f2=0x39} FNZ% 0x3c
0x0014…017c [0x1e]: VarDef {f0=0xe9c3, f1=0x5f, f2=0x2f} FNP% 0x3b
0x0014…017c [0x1f]: VarDef {f0=0xe9db, f1=0x5f, f2=0x57} FNX$ 0x3a
0x0014…017c [0x20]: VarDef {f0=0x1220, f1=0x4f, f2=0x23} D% 0x39
0x0014…017c [0x21]: VarDef {f0=0x1200, f1=0x4f, f2=0x22} C% 0x38
0x0014…017c [0x22]: VarDef {f0=0x1180, f1=0x4f, f2=0x21} B% 0x37
0x0014…017c [0x23]: VarDef {f0=0x1160, f1=0x4f, f2=0x20} A% 0x36
0x0014…017c [0x24]: VarDef {f0=0x1040, f1=0x45, f2=0x17} X5 0x35
0x0014…017c [0x25]: VarDef {f0=0x1020, f1=0x45, f2=0x18} Y5 0x34
0x0014…017c [0x26]: VarDef {f0=0x026e, f1=0x42, f2=0x10} Q2 0x33
0x0014…017c [0x27]: VarDef {f0=0x0266, f1=0x41, f2=0x10} Q1 0x32
0x0014…017c [0x28]: VarDef {f0=0x0950, f1=0x42, f2=0x01} B2 0x31
0x0014…017c [0x29]: VarDef {f0=0x0940, f1=0x42, f2=0x00} A2 0x30
0x0014…017c [0x2a]: VarDef {f0=0x0930, f1=0x41, f2=0x01} B1 0x2f
0x0014…017c [0x2b]: VarDef {f0=0x0920, f1=0x41, f2=0x00} A1 0x2e
0x0014…017c [0x2c]: VarDef {f0=0x0910, f1=0x42, f2=0x18} Y2 0x2d
0x0014…017c [0x2d]: VarDef {f0=0x0900, f1=0x42, f2=0x17} X2 0x2c
0x0014…017c [0x2e]: VarDef {f0=0x0890, f1=0x41, f2=0x18} Y1 0x2b
0x0014…017c [0x2f]: VarDef {f0=0x0880, f1=0x41, f2=0x17} X1 0x2a
0x0014…017c [0x30]: VarDef {f0=0xea47, f1=0x5f, f2=0x32} FNS% 0x29
0x0014…017c [0x31]: VarDef {f0=0x6400, f1=0x4f, f2=0x29} J% 0x28
0x0014…017c [0x32]: VarDef {f0=0x0770, f1=0x4f, f2=0x0a} K 0x27
0x0014…017c [0x33]: VarDef {f0=0xea67, f1=0x51, f2=0x36} FNW1% 0x26
0x0014…017c [0x34]: VarDef {f0=0xe9ab, f1=0x5f, f2=0x37} FNX% 0x25
0x0014…017c [0x35]: VarDef {f0=0x0100, f1=0x4f, f2=0x37} X% 0x24
0x0014…017c [0x36]: VarDef {f0=0x025e, f1=0x4f, f2=0x18} Y 0x23
0x0014…017c [0x37]: VarDef {f0=0x0256, f1=0x4f, f2=0x17} X 0x22
0x0014…017c [0x38]: VarDef {f0=0xeaaf, f1=0x5f, f2=0x36} FNW% 0x21
0x0014…017c [0x39]: VarDef {f0=0x0251, f1=0x42, f2=0x56} W2$ 0x20
0x0014…017c [0x3a]: VarDef {f0=0x024c, f1=0x41, f2=0x56} W1$ 0x1f
0x0014…017c [0x3b]: VarDef {f0=0x0242, f1=0x49, f2=0x50} Q9$ 0x1e
0x0014…017c [0x3c]: VarDef {f0=0x023d, f1=0x4f, f2=0x52} S$ 0x1d
0x0014…017c [0x3d]: VarDef {f0=0x0233, f1=0x40, f2=0x52} S0$ 0x1c
0x0014…017c [0x3e]: VarDef {f0=0x022e, f1=0x40, f2=0x59} Z0$ 0x1b
0x0014…017c [0x3f]: VarDef {f0=0x0229, f1=0x40, f2=0x4b} L0$ 0x1a
0x0014…017c [0x40]: VarDef {f0=0x021d, f1=0x40, f2=0x4f} P0$ 0x19
0x0014…017c [0x41]: VarDef {f0=0x01d3, f1=0x4f, f2=0x57} X$ 0x18
0x0014…017c [0x42]: VarDef {f0=0x01cb, f1=0x40, f2=0x0c} M0 0x17
0x0014…017c [0x43]: VarDef {f0=0x01c3, f1=0x49, f2=0x16} W9 0x16
0x0014…017c [0x44]: VarDef {f0=0x01bb, f1=0x48, f2=0x16} W8 0x15
0x0014…017c [0x45]: VarDef {f0=0x01b3, f1=0x41, f2=0x07} H1 0x14
0x0014…017c [0x46]: VarDef {f0=0x01ab, f1=0x41, f2=0x0f} P1 0x13
0x0014…017c [0x47]: VarDef {f0=0x01a3, f1=0x41, f2=0x15} V1 0x12
0x0014…017c [0x48]: VarDef {f0=0x019b, f1=0x40, f2=0x15} V0 0x11
0x0014…017c [0x49]: VarDef {f0=0x0193, f1=0x47, f2=0x18} Y7 0x10
0x0014…017c [0x4a]: VarDef {f0=0x018b, f1=0x47, f2=0x17} X7 0xf
0x0014…017c [0x4b]: VarDef {f0=0x0183, f1=0x40, f2=0x12} S0 0xe
0x0014…017c [0x4c]: VarDef {f0=0x017e, f1=0x4f, f2=0x56} W$ 0xd
0x0014…017c [0x4d]: VarDef {f0=0x0152, f1=0x41, f2=0x98} Y1' 0xc
0x0014…017c [0x4e]: VarDef {f0=0x0126, f1=0x41, f2=0x97} X1' 0xb
0x0014…017c [0x4f]: VarDef {f0=0x00fa, f1=0x4f, f2=0x90} Q' 0xa
0x0014…017c [0x50]: VarDef {f0=0x00ce, f1=0x4f, f2=0x8f} P' 0x9
0x0014…017c [0x51]: VarDef {f0=0x0084, f1=0x4f, f2=0x59} Z$ 0x8
0x0014…017c [0x52]: VarDef {f0=0x0078, f1=0x4f, f2=0x50} Q$ 0x7
0x0014…017c [0x53]: VarDef {f0=0x006c, f1=0x4f, f2=0x4f} P$ 0x6
0x0014…017c [0x54]: VarDef {f0=0x0054, f1=0x43, f2=0x4d} N3$ 0x5
0x0014…017c [0x55]: VarDef {f0=0x003c, f1=0x42, f2=0x4d} N2$ 0x4
0x0014…017c [0x56]: VarDef {f0=0x0024, f1=0x41, f2=0x4d} N1$ 0x3
0x0014…017c [0x57]: VarDef {f0=0x0018, f1=0x41, f2=0x53} T1$ 0x2
0x0014…017c [0x58]: VarDef {f0=0x000c, f1=0x40, f2=0x53} T0$ 0x1
0x0014…017c [0x59]: VarDef {f0=0x0000, f1=0x4f, f2=0x41} B$ 0x0
0x0014…017c ]
0x017c…0180 Statement 39321 @0x23d9
0x0180…0184 Statement 38736 @0x23c0
0x0184…0188 Statement 38672 @0x23be
0x0188…018c Statement 38656 @0x23bc
0x018c…0190 Statement 38480 @0x23ba
0x0190…0194 Statement 38400 @0x2388
0x0194…0198 Statement 38256 @0x237e
0x0198…019c Statement 38240 @0x236b
0x019c…01a0 Statement 38176 @0x2369
0x01a0…01a4 Statement 38160 @0x2367
0x01a4…01a8 Statement 38144 @0x2338
0x01a8…01ac Statement 36864 @0x2336
0x01ac…01b0 Statement 35072 @0x232d
0x01b0…01b4 Statement 34960 @0x231c
0x01b4…01b8 Statement 34949 @0x230e
0x01b8…01bc Statement 34944 @0x22fd
0x01bc…01c0 Statement 34933 @0x22ec
0x01c0…01c4 Statement 34928 @0x22db
0x01c4…01c8 Statement 34917 @0x22cd
0x01c8…01cc Statement 34912 @0x22bc
0x01cc…01d0 Statement 34901 @0x22ab
0x01d0…01d4 Statement 34896 @0x229a
0x01d4…01d8 Statement 34885 @0x228c
0x01d8…01dc Statement 34880 @0x227b
0x01dc…01e0 Statement 34869 @0x226a
0x01e0…01e4 Statement 34864 @0x2259
0x01e4…01e8 Statement 34853 @0x224b
0x01e8…01ec Statement 34848 @0x223a
0x01ec…01f0 Statement 34837 @0x2224
0x01f0…01f4 Statement 34832 @0x220e
0x01f4…01f8 Statement 34821 @0x21fd
0x01f8…01fc Statement 34816 @0x21ef
0x01fc…0200 Statement 34709 @0x21dc
0x0200…0204 Statement 34704 @0x21c9
0x0204…0208 Statement 34693 @0x21b8
0x0208…020c Statement 34688 @0x21a7
0x020c…0210 Statement 34677 @0x2199
0x0210…0214 Statement 34672 @0x2188
0x0214…0218 Statement 34661 @0x2177
0x0218…021c Statement 34656 @0x2173
0x021c…0220 Statement 34645 @0x2162
0x0220…0224 Statement 34640 @0x2154
0x0224…0228 Statement 34629 @0x2141
0x0228…022c Statement 34624 @0x212e
0x022c…0230 Statement 34613 @0x211d
0x0230…0234 Statement 34608 @0x2116
0x0234…0238 Statement 34599 @0x210d
0x0238…023c Statement 34597 @0x20fc
0x023c…0240 Statement 34592 @0x20ee
0x0240…0244 Statement 34581 @0x20dd
0x0244…0248 Statement 34576 @0x20cc
0x0248…024c Statement 34565 @0x20bb
0x024c…0250 Statement 34560 @0x20ad
0x0250…0254 Statement 34448 @0x209a
0x0254…0258 Statement 34437 @0x2087
0x0258…025c Statement 34432 @0x2076
0x025c…0260 Statement 34421 @0x2065
0x0260…0264 Statement 34416 @0x2057
0x0264…0268 Statement 34405 @0x2046
0x0268…026c Statement 34400 @0x2035
0x026c…0270 Statement 34391 @0x202c
0x0270…0274 Statement 34389 @0x2028
0x0274…0278 Statement 34384 @0x2017
0x0278…027c Statement 34373 @0x2009
0x027c…0280 Statement 34370 @0x1ff6
0x0280…0284 Statement 34368 @0x1fe3
0x0284…0288 Statement 34357 @0x1fd2
0x0288…028c Statement 34352 @0x1fcb
0x028c…0290 Statement 34341 @0x1fba
0x0290…0294 Statement 34336 @0x1fac
0x0294…0298 Statement 34325 @0x1f9b
0x0298…029c Statement 34320 @0x1f85
0x029c…02a0 Statement 34309 @0x1f6f
0x02a0…02a4 Statement 34306 @0x1f5f
0x02a4…02a8 Statement 34304 @0x1f27
0x02a8…02ac Statement 32848 @0x1f25
0x02ac…02b0 Statement 32800 @0x1f21
0x02b0…02b4 Statement 32789 @0x1f07
0x02b4…02b8 Statement 32784 @0x1f00
0x02b8…02bc Statement 32773 @0x1ee8
0x02bc…02c0 Statement 32768 @0x1eb4
0x02c0…02c4 Statement 18224 @0x1eb2
0x02c4…02c8 Statement 18208 @0x1eac
0x02c8…02cc Statement 18192 @0x1eab
0x02cc…02d0 Statement 18176 @0x1ea8
0x02d0…02d4 Statement 18064 @0x1e9e
0x02d4…02d8 Statement 18048 @0x1e9a
0x02d8…02dc Statement 18032 @0x1e76
0x02dc…02e0 Statement 18016 @0x1e52
0x02e0…02e4 Statement 18000 @0x1e4c
0x02e4…02e8 Statement 17984 @0x1e3b
0x02e8…02ec Statement 17968 @0x1e2a
0x02ec…02f0 Statement 17952 @0x1e1d
0x02f0…02f4 Statement 17936 @0x1e13
0x02f4…02f8 Statement 17920 @0x1e07
0x02f8…02fc Statement 17808 @0x1e01
0x02fc…0300 Statement 17792 @0x1e00
0x0300…0304 Statement 17776 @0x1df3
0x0304…0308 Statement 17760 @0x1deb
0x0308…030c Statement 17744 @0x1dd8
0x030c…0310 Statement 17728 @0x1da0
0x0310…0314 Statement 17712 @0x1d6c
0x0314…0318 Statement 17696 @0x1d68
0x0318…031c Statement 17680 @0x1d55
0x031c…0320 Statement 17664 @0x1d1d
0x0320…0324 Statement 17552 @0x1ce9
0x0324…0328 Statement 17536 @0x1ce3
0x0328…032c Statement 17520 @0x1cdb
0x032c…0330 Statement 17504 @0x1cba
0x0330…0334 Statement 17488 @0x1c9a
0x0334…0338 Statement 17472 @0x1c97
0x0338…033c Statement 17456 @0x1c8f
0x033c…0340 Statement 17440 @0x1c89
0x0340…0344 Statement 17424 @0x1c88
0x0344…0348 Statement 17408 @0x1c85
0x0348…034c Statement 17296 @0x1c7b
0x034c…0350 Statement 17280 @0x1c77
0x0350…0354 Statement 17264 @0x1c53
0x0354…0358 Statement 17248 @0x1c2d
0x0358…035c Statement 17232 @0x1c27
0x035c…0360 Statement 17216 @0x1c16
0x0360…0364 Statement 17200 @0x1c02
0x0364…0368 Statement 17184 @0x1bff
0x0368…036c Statement 17168 @0x1bfe
0x036c…0370 Statement 17152 @0x1bee
0x0370…0374 Statement 17040 @0x1bde
0x0374…0378 Statement 17024 @0x1bd6
0x0378…037c Statement 17008 @0x1bc9
0x037c…0380 Statement 16992 @0x1b91
0x0380…0384 Statement 16976 @0x1b5d
0x0384…0388 Statement 16960 @0x1b59
0x0388…038c Statement 16944 @0x1b49
0x038c…0390 Statement 16928 @0x1b11
0x0390…0394 Statement 16912 @0x1add
0x0394…0398 Statement 16896 @0x1ad0
0x0398…039c Statement 16784 @0x1aca
0x039c…03a0 Statement 16768 @0x1ac9
0x03a0…03a4 Statement 16688 @0x1abf
0x03a4…03a8 Statement 16677 @0x1ab9
0x03a8…03ac Statement 16674 @0x1ab6
0x03ac…03b0 Statement 16672 @0x1aac
0x03b0…03b4 Statement 16656 @0x1a8c
0x03b4…03b8 Statement 16645 @0x1a7e
0x03b8…03bc Statement 16640 @0x1a78
0x03bc…03c0 Statement 16528 @0x1a72
0x03c0…03c4 Statement 16512 @0x1a68
0x03c4…03c8 Statement 16502 @0x1a4f
0x03c8…03cc Statement 16501 @0x1a3d
0x03cc…03d0 Statement 16496 @0x1a31
0x03d0…03d4 Statement 16480 @0x1a2b
0x03d4…03d8 Statement 16464 @0x1a19
0x03d8…03dc Statement 16448 @0x1a02
0x03dc…03e0 Statement 16432 @0x19f0
0x03e0…03e4 Statement 16416 @0x19d9
0x03e4…03e8 Statement 16400 @0x19bc
0x03e8…03ec Statement 16384 @0x19bb
0x03ec…03f0 Statement 14736 @0x19a8
0x03f0…03f4 Statement 14720 @0x198f
0x03f4…03f8 Statement 14704 @0x1988
0x03f8…03fc Statement 14688 @0x197e
0x03fc…0400 Statement 14672 @0x1974
0x0400…0404 Statement 14656 @0x1959
0x0404…0408 Statement 14640 @0x1948
0x0408…040c Statement 14624 @0x1937
0x040c…0410 Statement 14608 @0x192b
0x0410…0414 Statement 14592 @0x191b
0x0414…0418 Statement 14480 @0x1917
0x0418…041c Statement 14464 @0x1904
0x041c…0420 Statement 14448 @0x18f1
0x0420…0424 Statement 14432 @0x18ea
0x0424…0428 Statement 14416 @0x18e4
0x0428…042c Statement 14400 @0x18da
0x042c…0430 Statement 14384 @0x18c5
0x0430…0434 Statement 14368 @0x18b5
0x0434…0438 Statement 14352 @0x18af
0x0438…043c Statement 14336 @0x18ab
0x043c…0440 Statement 14224 @0x18aa
0x0440…0444 Statement 14208 @0x18a3
0x0444…0448 Statement 14192 @0x1895
0x0448…044c Statement 14176 @0x188e
0x044c…0450 Statement 14160 @0x1888
0x0450…0454 Statement 14144 @0x1884
0x0454…0458 Statement 14128 @0x186f
0x0458…045c Statement 14112 @0x185a
0x045c…0460 Statement 14096 @0x1858
0x0460…0464 Statement 14080 @0x1855
0x0464…0468 Statement 13968 @0x184a
0x0468…046c Statement 13952 @0x1843
0x046c…0470 Statement 13936 @0x1841
0x0470…0474 Statement 13920 @0x1839
0x0474…0478 Statement 13904 @0x17fb
0x0478…047c Statement 13888 @0x17d1
0x047c…0480 Statement 13872 @0x179d
0x0480…0484 Statement 13856 @0x179b
0x0484…0488 Statement 13840 @0x178f
0x0488…048c Statement 13824 @0x1766
0x048c…0490 Statement 13680 @0x1764
0x0490…0494 Statement 13669 @0x1763
0x0494…0498 Statement 13653 @0x1759
0x0498…049c Statement 13650 @0x173f
0x049c…04a0 Statement 13648 @0x173d
0x04a0…04a4 Statement 13637 @0x1736
0x04a4…04a8 Statement 13632 @0x1732
0x04a8…04ac Statement 13621 @0x172c
0x04ac…04b0 Statement 13616 @0x1726
0x04b0…04b4 Statement 13605 @0x1707
0x04b4…04b8 Statement 13600 @0x16fe
0x04b8…04bc Statement 13589 @0x16fa
0x04bc…04c0 Statement 13573 @0x16e6
0x04c0…04c4 Statement 13570 @0x16da
0x04c4…04c8 Statement 13568 @0x16d0
0x04c8…04cc Statement 13461 @0x16ca
0x04cc…04d0 Statement 13456 @0x16c1
0x04d0…04d4 Statement 13440 @0x16ad
0x04d4…04d8 Statement 13429 @0x16a0
0x04d8…04dc Statement 13424 @0x168f
0x04dc…04e0 Statement 13408 @0x168b
0x04e0…04e4 Statement 13397 @0x1683
0x04e4…04e8 Statement 13394 @0x167d
0x04e8…04ec Statement 13392 @0x1669
0x04ec…04f0 Statement 13381 @0x164c
0x04f0…04f4 Statement 13376 @0x164a
0x04f4…04f8 Statement 13365 @0x1623
0x04f8…04fc Statement 13360 @0x1621
0x04fc…0500 Statement 13088 @0x161b
0x0500…0504 Statement 13077 @0x1616
0x0504…0508 Statement 13072 @0x1602
0x0508…050c Statement 13061 @0x15fc
0x050c…0510 Statement 13056 @0x15f9
0x0510…0514 Statement 12949 @0x15f1
0x0514…0518 Statement 12944 @0x15f0
0x0518…051c Statement 12933 @0x15e9
0x051c…0520 Statement 12928 @0x15e2
0x0520…0524 Statement 12917 @0x15db
0x0524…0528 Statement 12912 @0x15ca
0x0528…052c Statement 12901 @0x15b6
0x052c…0530 Statement 12896 @0x15a9
0x0530…0534 Statement 12885 @0x159f
0x0534…0538 Statement 12880 @0x1596
0x0538…053c Statement 12869 @0x158d
0x053c…0540 Statement 12864 @0x1584
0x0540…0544 Statement 12853 @0x157d
0x0544…0548 Statement 12848 @0x1576
0x0548…054c Statement 12837 @0x1565
0x054c…0550 Statement 12832 @0x155c
0x0550…0554 Statement 12821 @0x1557
0x0554…0558 Statement 12816 @0x1551
0x0558…055c Statement 12800 @0x1536
0x055c…0560 Statement 12693 @0x1534
0x0560…0564 Statement 12688 @0x150f
0x0564…0568 Statement 12677 @0x150d
0x0568…056c Statement 12672 @0x150c
0x056c…0570 Statement 12661 @0x1508
0x0570…0574 Statement 12656 @0x14fe
0x0574…0578 Statement 12645 @0x14e9
0x0578…057c Statement 12640 @0x14cd
0x057c…0580 Statement 12631 @0x14cb
0x0580…0584 Statement 12629 @0x14c4
0x0584…0588 Statement 12624 @0x14b3
0x0588…058c Statement 12613 @0x148e
0x058c…0590 Statement 12608 @0x148c
0x0590…0594 Statement 12597 @0x1489
0x0594…0598 Statement 12592 @0x1463
0x0598…059c Statement 12581 @0x1461
0x059c…05a0 Statement 12576 @0x1460
0x05a0…05a4 Statement 12565 @0x145c
0x05a4…05a8 Statement 12560 @0x1452
0x05a8…05ac Statement 12549 @0x143d
0x05ac…05b0 Statement 12544 @0x1430
0x05b0…05b4 Statement 12432 @0x1427
0x05b4…05b8 Statement 12421 @0x140f
0x05b8…05bc Statement 12416 @0x13ee
0x05bc…05c0 Statement 12405 @0x13ec
0x05c0…05c4 Statement 12402 @0x13e6
0x05c4…05c8 Statement 12400 @0x13c5
0x05c8…05cc Statement 12384 @0x13b5
0x05cc…05d0 Statement 12368 @0x13b3
0x05d0…05d4 Statement 12359 @0x139a
0x05d4…05d8 Statement 12357 @0x1398
0x05d8…05dc Statement 12352 @0x1363
0x05dc…05e0 Statement 12341 @0x1360
0x05e0…05e4 Statement 12310 @0x135d
0x05e4…05e8 Statement 12308 @0x135a
0x05e8…05ec Statement 12306 @0x1357
0x05ec…05f0 Statement 12304 @0x1354
0x05f0…05f4 Statement 12295 @0x1351
0x05f4…05f8 Statement 12288 @0x1322
0x05f8…05fc Statement 10240 @0x1321
0x05fc…0600 Statement 10128 @0x131e
0x0600…0604 Statement 10037 @0x1301
0x0604…0608 Statement 10032 @0x12de
0x0608…060c Statement 10021 @0x12bb
0x060c…0610 Statement 10016 @0x1298
0x0610…0614 Statement 10005 @0x1275
0x0614…0618 Statement 09989 @0x1244
0x0618…061c Statement 09984 @0x123e
0x061c…0620 Statement 09877 @0x123d
0x0620…0624 Statement 09872 @0x123a
0x0624…0628 Statement 09776 @0x1237
0x0628…062c Statement 09765 @0x121a
0x062c…0630 Statement 09760 @0x11fd
0x0630…0634 Statement 09749 @0x11d4
0x0634…0638 Statement 09744 @0x11ab
0x0638…063c Statement 09733 @0x1176
0x063c…0640 Statement 09728 @0x1172
0x0640…0644 Statement 09621 @0x1140
0x0644…0648 Statement 09600 @0x113f
0x0648…064c Statement 09589 @0x113c
0x064c…0650 Statement 09296 @0x112b
0x0650…0654 Statement 09285 @0x1112
0x0654…0658 Statement 09284 @0x1101
0x0658…065c Statement 09282 @0x10ec
0x065c…0660 Statement 09280 @0x10db
0x0660…0664 Statement 09273 @0x10c2
0x0664…0668 Statement 09272 @0x10b1
0x0668…066c Statement 09264 @0x109c
0x066c…0670 Statement 09253 @0x1096
0x0670…0674 Statement 09248 @0x1085
0x0674…0678 Statement 09240 @0x1066
0x0678…067c Statement 09237 @0x1051
0x067c…0680 Statement 09235 @0x1040
0x0680…0684 Statement 09234 @0x102b
0x0684…0688 Statement 09232 @0x101a
0x0688…068c Statement 09224 @0xffb
0x068c…0690 Statement 09223 @0xfe6
0x0690…0694 Statement 09222 @0xfd5
0x0694…0698 Statement 09221 @0xfc0
0x0698…069c Statement 09218 @0xfb5
0x069c…06a0 Statement 09217 @0xfa5
0x06a0…06a4 Statement 09216 @0xfa1
0x06a4…06a8 Statement 09109 @0xf62
0x06a8…06ac Statement 04485 @0xf61
0x06ac…06b0 Statement 04480 @0xf5e
0x06b0…06b4 Statement 04469 @0xf50
0x06b4…06b8 Statement 04464 @0xf2a
0x06b8…06bc Statement 04453 @0xf1c
0x06bc…06c0 Statement 04448 @0xf16
0x06c0…06c4 Statement 04437 @0xee1
0x06c4…06c8 Statement 04149 @0xee0
0x06c8…06cc Statement 04148 @0xedd
0x06cc…06d0 Statement 04133 @0xecd
0x06d0…06d4 Statement 04128 @0xebd
0x06d4…06d8 Statement 04117 @0xeaa
0x06d8…06dc Statement 04112 @0xe97
0x06dc…06e0 Statement 04101 @0xe91
0x06e0…06e4 Statement 04096 @0xe6e
0x06e4…06e8 Statement 02405 @0xe47
0x06e8…06ec Statement 02400 @0xe32
0x06ec…06f0 Statement 02160 @0xe31
0x06f0…06f4 Statement 02149 @0xe2e
0x06f4…06f8 Statement 02128 @0xe2a
0x06f8…06fc Statement 02117 @0xe12
0x06fc…0700 Statement 02101 @0xe07
0x0700…0704 Statement 02096 @0xdcf
0x0704…0708 Statement 02068 @0xdc4
0x0708…070c Statement 02064 @0xdb9
0x070c…0710 Statement 02056 @0xda8
0x0710…0714 Statement 02053 @0xd9d
0x0714…0718 Statement 02048 @0xd93
0x0718…071c Statement 01941 @0xd61
0x071c…0720 Statement 01925 @0xd60
0x0720…0724 Statement 01920 @0xd5d
0x0724…0728 Statement 01909 @0xd3d
0x0728…072c Statement 01877 @0xd32
0x072c…0730 Statement 01872 @0xd2b
0x0730…0734 Statement 01861 @0xcf9
0x0734…0738 Statement 01856 @0xcf8
0x0738…073c Statement 01845 @0xce5
0x073c…0740 Statement 01824 @0xcdc
0x0740…0744 Statement 01813 @0xccf
0x0744…0748 Statement 01808 @0xcca
0x0748…074c Statement 01797 @0xc94
0x074c…0750 Statement 01792 @0xc93
0x0750…0754 Statement 01680 @0xc86
0x0754…0758 Statement 01574 @0xc79
0x0758…075c Statement 01573 @0xc6c
0x075c…0760 Statement 01570 @0xc60
0x0760…0764 Statement 01569 @0xc55
0x0764…0768 Statement 01568 @0xc2d
0x0768…076c Statement 01557 @0xc05
0x076c…0770 Statement 01552 @0xbdf
0x0770…0774 Statement 01541 @0xbbb
0x0774…0778 Statement 01536 @0xbb5
0x0778…077c Statement 01429 @0xb8f
0x077c…0780 Statement 01424 @0xb71
0x0780…0784 Statement 01413 @0xb70
0x0784…0788 Statement 01408 @0xb6d
0x0788…078c Statement 01397 @0xb5d
0x078c…0790 Statement 01392 @0xb56
0x0790…0794 Statement 01381 @0xb4d
0x0794…0798 Statement 01376 @0xb4c
0x0798…079c Statement 01365 @0xb49
0x079c…07a0 Statement 01360 @0xb38
0x07a0…07a4 Statement 01349 @0xb32
0x07a4…07a8 Statement 01344 @0xb2a
0x07a8…07ac Statement 01317 @0xb16
0x07ac…07b0 Statement 01312 @0xb05
0x07b0…07b4 Statement 01296 @0xaf5
0x07b4…07b8 Statement 01285 @0xac0
0x07b8…07bc Statement 00896 @0xabf
0x07bc…07c0 Statement 00885 @0xabc
0x07c0…07c4 Statement 00880 @0xab9
0x07c4…07c8 Statement 00869 @0xaac
0x07c8…07cc Statement 00864 @0xaa6
0x07cc…07d0 Statement 00853 @0xa99
0x07d0…07d4 Statement 00848 @0xa95
0x07d4…07d8 Statement 00837 @0xa6b
0x07d8…07dc Statement 00832 @0xa6a
0x07dc…07e0 Statement 00768 @0xa67
0x07e0…07e4 Statement 00661 @0xa5a
0x07e4…07e8 Statement 00658 @0xa52
0x07e8…07ec Statement 00656 @0xa51
0x07ec…07f0 Statement 00629 @0xa3b
0x07f0…07f4 Statement 00624 @0xa25
0x07f4…07f8 Statement 00613 @0xa22
0x07f8…07fc Statement 00611 @0xa21
0x07fc…0800 Statement 00610 @0xa0b
0x0800…0804 Statement 00608 @0x9f5
0x0804…0808 Statement 00599 @0x9ee
0x0808…080c Statement 00597 @0x9dd
0x080c…0810 Statement 00592 @0x9d2
0x0810…0814 Statement 00581 @0x9b5
0x0814…0818 Statement 00576 @0x9ad
0x0818…081c Statement 00544 @0x9aa
0x081c…0820 Statement 00528 @0x97f
0x0820…0824 Statement 00117 @0x973
0x0824…0828 Statement 00112 @0x96e
0x0828…082c Statement 00102 @0x961
0x082c…0830 Statement 00086 @0x954
0x0830…0834 Statement 00084 @0x947
0x0834…0838 Statement 00082 @0x93a
0x0838…083c Statement 00080 @0x92d
0x083c…0840 Statement 00048 @0x922
0x0840…0844 Statement 00037 @0x913
0x0844…0848 Statement 00032 @0x905
0x0848…084c Statement 00021 @0x8f7
0x084c…0850 Statement 00016 @0x8d4
0x0850…0854 Statement 00009 @0x8d1
0x0854…0858 Statement 00008 @0x8c0
0x0858…085c Statement 00007 @0x8a6
0x085c…0860 Statement 00006 @0x890
0x0860…0864 Statement 00005 @0x87c
0x0864…0868 Statement 00001 @0x868
0x0868…087c 0001 COM ELEMENT var(B$) ( 8 ) [] ELEMENT var(T0$) ( 8 ) [] ELEMENT var(T1$) ( 8 ) [] EOS
0x087c…0890 0005 COM ELEMENT var(N1$) ( 20 ) [] ELEMENT var(N2$) ( 20 ) [] ELEMENT var(N3$) ( 20 ) [] EOS
0x0890…08a6 0006 COM ELEMENT var(P$) ( 8 ) [] ELEMENT var(Q$) ( 8 ) [] ELEMENT var(Z$) ( %70 ) [] EOS
0x08a6…08c0 0007 COM ELEMENT var(P') ( 5 ) [] ELEMENT var(Q') ( 5 ) [] ELEMENT var(X1') ( 5 ) [] ELEMENT var(Y1') ( 5 ) [] EOS
0x08c0…08d1 0008 COM ELEMENT var(W$) ( 1 ) [] var(S0) var(X7) var(Y7) var(V0) var(V1) var(P1) var(H1) var(W8) var(W9) EOS
0x08d1…08d4 0009 COM var(M0) EOS
0x08d4…08f7 0010 DIM ELEMENT var(X$) ( %70 ) [] ELEMENT var(P0$) ( 8 ) [] ELEMENT var(L0$) ( 1 ) [] ELEMENT var(Z0$) ( 1 ) [] ELEMENT var(S0$) ( 2 1 ) [] EOS
0x08f7…0905 0015 DIM ELEMENT var(S$) ( 1 ) [] ELEMENT var(Q9$) ( 6 ) [] EOS
0x0905…0913 0020 DIM ELEMENT var(W1$) ( 1 ) [] ELEMENT var(W2$) ( 1 ) [] EOS
0x0913…0922 0025 SYSTEM »LINELEN« COMMA %80 EOS
0x0922…092d 0030 SYSTEM »WARNOFF« EOS
0x092d…093a 0050 LET var(S0) COMMA 20000 EOS
0x093a…0947 0052 LET var(X7) COMMA 2600 EOS
0x0947…0954 0054 LET var(Y7) COMMA 2800 EOS
0x0954…0961 0056 LET var(V1) COMMA 270 EOS
0x0961…096e 0066 LET var(P1) COMMA 3.14159 EOS
0x096e…0973 0070 LET var(H1) COMMA 3 EOS
0x0973…097f 0075 LET var(Q9$) COMMA »000000« EOS
0x097f…09aa 0210 REM READ TOP OF SORTFILE *****************
0x09aa…09ad 0220 DEF var(FNW%) EOS
0x09ad…09b5 0240 LINPUT 1# COMMA 1 SEMI var(X$) EOS
0x09b5…09d2 0245 LET var(M0) COMMA = ( ELEMENT var(X$) ( 14 20 ) [] ) VAL COMMA var(V0) COMMA = ( ELEMENT var(X$) ( 1 13 ) [] ) VAL EOS
0x09d2…09dd 0250 LET var(W$) COMMA ELEMENT var(X$) ( 21 21 ) [] EOS
0x09dd…09ee 0255 LET var(W8) COMMA = ( var(V0) ) → a9f157f171735274a8f3
0x09ee…09f5 0257 IF var(V0) 0 EQ COMMA 34 EOS
0x09f5…0a0b 0260 LET var(X) COMMA ELEMENT var(X1') ( 2 ) [] var(M0) 0.0015 MULT SUB2 EOS
0x0a0b…0a21 0262 LET var(Y) COMMA ELEMENT var(Y1') ( 2 ) [] var(M0) 0.099 MULT SUB2 EOS
0x0a21…0a22 0263 DOEND
0x0a22…0a25 0265 ELSE 34 EOS
0x0a25…0a3b 0270 LET var(X) COMMA ELEMENT var(X1') ( 2 ) [] var(M0) 0.0015 MULT SUB2 EOS
0x0a3b…0a51 0275 LET var(Y) COMMA ELEMENT var(Y1') ( 2 ) [] var(M0) 0.03 MULT SUB2 EOS
0x0a51…0a52 0290 DOEND
0x0a52…0a5a 0292 LINPUT 1# COMMA 0 SEMI var(X$) EOS
0x0a5a…0a67 0295 LET var(X%) COMMA = ( var(X) var(Y) 4 var(V1) var(X$) ) var(FNX%) EOS
0x0a67…0a6a 0300 RETURN 1 EOS
0x0a6a…0a6b 0340 FNEND
0x0a6b…0a95 0345 REM ********* TIME DELAY ****************
0x0a95…0a99 0350 DEF var(FNW1%) var(K) EOS
0x0a99…0aa6 0355 LET var(J%) COMMA = ( var(K) %100 MULT ) → a1f3
0x0aa6…0aac 0360 196501f169f3
0x0aac…0ab9 0365 LET var(X%) COMMA var(X%) 1 MULT 1 MULT 1 MULT 1 MULT EOS
0x0ab9…0abc 0370 1a65f3
0x0abc…0abf 0375 RETURN 1 EOS
0x0abf…0ac0 0380 FNEND
0x0ac0…0af5 0505 REM *********** COMPUTE INTERSECTION ***************
0x0af5…0b05 0510 DEF var(FNS%) var(X1) var(Y1) var(X2) var(Y2) var(A1) var(B1) var(A2) var(B2) EOS
0x0b05…0b16 0520 LET var(Q1) COMMA ( var(X2) var(X1) SUB2 ) ( var(Y2) var(Y1) SUB2 ) DIV EOS
0x0b16…0b2a 0525 LET var(Q2) COMMA ( var(A2) var(A1) SUB2 ) ( var(B2) var(B1) SUB2 ) DIV EOS
0x0b2a…0b32 0540 IF var(Y2) var(Y1) EQ COMMA 34 EOS
0x0b32…0b38 0545 LET var(Y5) COMMA var(Y1) EOS
0x0b38…0b49 0550 LET var(X5) COMMA var(A1) var(Q2) ( var(Y1) var(B1) SUB2 ) MULT PLUS EOS
0x0b49…0b4c 0555 GOTO 0 6
0x0b4c…0b4d 0560 DOEND
0x0b4d…0b56 0565 IF var(B2) var(B1) EQ COMMA 34 EOS
0x0b56…0b5d 0570 LET var(Y5) COMMA var(B1) EOS
0x0b5d…0b6d 0575 LET var(X5) COMMA var(X1) var(Q1) ( var(Y1) var(B1) SUB2 ) MULT SUB2 EOS
0x0b6d…0b70 0580 GOTO 0 6
0x0b70…0b71 0585 DOEND
0x0b71…0b8f 0590 LET var(Y5) COMMA ( var(A1) var(X1) SUB2 var(Q2) var(B1) MULT SUB2 var(Q1) var(Y1) MULT PLUS ) ( var(Q1) var(Q2) SUB2 ) DIV EOS
0x0b8f…0bb5 0595 LET var(X5) COMMA ( var(Q1) var(A1) MULT var(Q2) var(X1) MULT SUB2 var(Q1) var(Q2) MULT ( var(Y1) var(B1) SUB2 ) MULT PLUS ) ( var(Q1) var(Q2) SUB2 ) DIV EOS
0x0bb5…0bbb 0600 REM C
0x0bbb…0bdf 0605 LET var(A%) COMMA ( ( var(X2) var(X5) → eb74736b4008e974ed7473736b4008eb74736d4008e974ed74eef3
0x0bdf…0c05 0610 LET var(B%) COMMA ( ( var(Y2) var(Y5) → eb74736c4007e974ed7473736c4007eb747340004007e974ed74eef3
0x0c05…0c2d 0615 LET var(C%) COMMA ( ( var(A2) var(X5) → eb747340014008e974ed74737340014008eb747340034008e974ed74eef3
0x0c2d…0c55 0620 LET var(D%) COMMA ( ( var(B2) var(Y5) → eb747340024007e974ed74737340024007eb747340044007e974ed74eef3
0x0c55…0c60 0621 IF var(X1) var(X2) EQ COMMA 27 var(A%) COMMA 1 EOS
0x0c60…0c6c 0622 IF var(Y1) var(Y2) EQ COMMA 27 var(B%) COMMA 1 EOS
0x0c6c…0c79 0625 IF var(A2) var(A1) EQ COMMA 27 var(C%) COMMA 1 EOS
0x0c79…0c86 0626 IF var(B1) var(B2) EQ COMMA 27 var(D%) COMMA 1 EOS
0x0c86…0c93 0690 RETURN var(A%) var(B%) AND var(C%) AND var(D%) AND EOS
0x0c93…0c94 0700 FNEND
0x0c94…0cca 0705 REM ********** VALUE TO STRING CONVERSION ***********
0x0cca…0ccf 0710 DEF var(FNX$) var(X) EOS
0x0ccf…0cdc 0715 LET var(P$) COMMA = ( = ( var(X) ) → a174b0f3
0x0cdc…0ce5 0720 LET var(X%) COMMA = ( var(P$) ) LEN EOS
0x0ce5…0cf8 0735 RETURN ELEMENT var(Q9$) ( 1 6 var(X%) SUB2 ) [] ELEMENT var(P$) ( 1 var(X%) ) [] PLUS EOS
0x0cf8…0cf9 0740 FNEND
0x0cf9…0d2b 0745 REM ************ PLOT COORDINATE ****************
0x0d2b…0d32 0750 DEF var(FNP%) var(X1) var(Y1) var(S$) EOS
0x0d32…0d3d 0755 LET var(X%) COMMA = ( var(X1) var(Y1) ) var(FNZ%) EOS
0x0d3d…0d5d 0775 PRINT 5# SEMI ELEMENT var(S$) ( 1 1 ) [] = ( var(Y3) ) var(FNX$) PLUS »,« PLUS = ( var(X3) ) var(FNX$) PLUS EOS
0x0d5d…0d60 0780 RETURN 1 EOS
0x0d60…0d61 0785 FNEND
0x0d61…0d93 0795 REM ********** OUTPUT STRING OR SYMBOL *********
0x0d93…0d9d 0800 DEF var(FNX%) var(X) var(Y) var(H) var(V) var(X$) EOS
0x0d9d…0da8 0805 LET var(V) COMMA var(V) %100 MULT EOS
0x0da8…0db9 0808 LET var(H) COMMA var(H) 3.333 MULT EOS
0x0db9…0dc4 0810 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x0dc4…0dcf 0814 LET var(X) COMMA var(X3) COMMA var(Y) COMMA var(Y3) EOS
0x0dcf…0e07 0830 PRINT 5# SEMI »L« = ( var(V) ) var(FNX$) PLUS »,« PLUS = ( var(H) ) var(FNX$) PLUS »,« PLUS = ( var(Y) ) var(FNX$) PLUS »,« PLUS = ( var(X) ) var(FNX$) PLUS »,« PLUS var(X$) PLUS EOS
0x0e07…0e12 0835 19401401f171735974abf3
0x0e12…0e2a 0845 IF ELEMENT var(X$) ( var(I%) var(I%) ) [] » « <> COMMA 27 var(X%) COMMA = ( 1 ) var(FNW1%) EOS
0x0e2a…0e2e 0850 1a4014f3
0x0e2e…0e31 0865 RETURN 1 EOS
0x0e31…0e32 0870 FNEND
0x0e32…0e47 0960 REM COMPUTE DISTANCE
0x0e47…0e6e 0965 DEF var(FND) var(X1) var(Y1) var(X2) var(Y2) 5 = ( ( var(X2) var(X1) SUB2 ) ( var(X2) var(X1) SUB2 ) MULT ( var(Y2) var(Y1) SUB2 ) ( var(Y2) var(Y1) SUB2 ) MULT PLUS ) SQR EOS
0x0e6e…0e91 1000 REM ******* COMPUTE PLOTTING-UNITS
0x0e91…0e97 1005 DEF var(FNZ%) var(X) var(Y) EOS
0x0e97…0eaa 1010 LET var(Q1) COMMA var(S0) ( var(X) ELEMENT var(X1') ( 1 ) [] SUB2 ) MULT var(M0) DIV EOS
0x0eaa…0ebd 1015 LET var(Q2) COMMA var(S0) ( var(Y) ELEMENT var(Y1') ( 1 ) [] SUB2 ) MULT var(M0) DIV EOS
0x0ebd…0ecd 1020 LET var(X3) COMMA var(X7) var(Q1) var(W9) MULT PLUS var(Q2) var(W8) MULT SUB2 EOS
0x0ecd…0edd 1025 LET var(Y3) COMMA var(Y7) var(Q2) var(W9) MULT PLUS var(Q1) var(W8) MULT PLUS EOS
0x0edd…0ee0 1034 RETURN 1 EOS
0x0ee0…0ee1 1035 FNEND
0x0ee1…0f16 1155 REM ************** PLOT SINGLE POINT ***************
0x0f16…0f1c 1160 DEF var(FNQ%) var(X) var(Y) EOS
0x0f1c…0f2a 1165 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x0f2a…0f50 1170 LET var(X%) COMMA = ( var(X) 0.00015 var(M0) MULT PLUS var(Y) 0.00015 var(M0) MULT PLUS »D« ) var(FNP%) EOS
0x0f50…0f5e 1175 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x0f5e…0f61 1180 RETURN 1 EOS
0x0f61…0f62 1185 FNEND
0x0f62…0fa1 2395 REM ********* CORNEWR VALUES FOR STANDARD SYSTEM *************
0x0fa1…0fa5 2400 DEF var(FNW7%) EOS
0x0fa5…0fb5 2401 LET var(D) COMMA 0.015 var(M0) MULT EOS
0x0fb5…0fc0 2402 LET var(H) COMMA 2 COMMA var(V) COMMA 0 EOS
0x0fc0…0fd5 2405 LET var(U9) COMMA ELEMENT var(X1') ( 2 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 2 ) [] EOS
0x0fd5…0fe6 2406 IF var(W$) »U« EQ COMMA 27 var(V9) COMMA var(V9) var(D) SUB2 EOS
0x0fe6…0ffb 2407 LET var(X$) COMMA »X = « = ( ELEMENT var(X1') ( 2 ) [] ) → b0e2f3
0x0ffb…101a 2408 LET var(V9) COMMA var(V9) ( = ( var(X$) ) LEN 4 PLUS ) 2 MULT var(M0) MULT 1000 DIV SUB2 EOS
0x101a…102b 2410 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x102b…1040 2412 LET var(U9) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x1040…1051 2413 IF var(W$) »U« EQ COMMA 27 var(V9) COMMA var(V9) var(D) SUB2 EOS
0x1051…1066 2415 LET var(X$) COMMA »X = « = ( ELEMENT var(X1') ( 1 ) [] ) → b0e2f3
0x1066…1085 2418 LET var(V9) COMMA var(V9) ( = ( var(X$) ) LEN 4 PLUS ) 2 MULT var(M0) MULT 1000 DIV SUB2 EOS
0x1085…1096 2420 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x1096…109c 2425 LET var(V) COMMA var(V1) EOS
0x109c…10b1 2430 LET var(U9) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x10b1…10c2 2438 IF var(W$) »U« EQ COMMA 27 var(U9) COMMA var(U9) var(D) SUB2 EOS
0x10c2…10db 2439 LET var(X$) COMMA » Y = « = ( ELEMENT var(Y1') ( 1 ) [] ) → b0e2f3
0x10db…10ec 2440 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x10ec…1101 2442 LET var(U9) COMMA ELEMENT var(X1') ( 4 ) [] COMMA var(V9) COMMA ELEMENT var(Y1') ( 4 ) [] EOS
0x1101…1112 2444 IF var(W$) »U« EQ COMMA 27 var(U9) COMMA var(U9) var(D) SUB2 EOS
0x1112…112b 2445 LET var(X$) COMMA » Y = « = ( ELEMENT var(Y1') ( 4 ) [] ) → b0e2f3
0x112b…113c 2450 LET var(X%) COMMA = ( var(U9) var(V9) var(H) var(V) var(X$) ) var(FNX%) EOS
0x113c…113f 2575 RETURN 1 EOS
0x113f…1140 2580 FNEND
0x1140…1172 2595 REM ******** COMPUTE TEXTBOX ********************
0x1172…1176 2600 DEF var(FNW8%) EOS
0x1176…11ab 2605 LET ELEMENT var(P') ( 3 ) [] COMMA ELEMENT var(X1') ( 2 ) [] var(M0) 0.0295 MULT SUB2 COMMA ELEMENT var(Q') ( 3 ) [] COMMA ELEMENT var(Y1') ( 2 ) [] var(M0) 0.022 MULT SUB2 EOS
0x11ab…11d4 2610 LET ELEMENT var(P') ( 4 ) [] COMMA ELEMENT var(P') ( 3 ) [] var(M0) 0.1335 MULT SUB2 COMMA ELEMENT var(Q') ( 4 ) [] COMMA ELEMENT var(Q') ( 3 ) [] EOS
0x11d4…11fd 2615 LET ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(P') ( 4 ) [] COMMA ELEMENT var(Q') ( 1 ) [] COMMA ELEMENT var(Q') ( 4 ) [] var(M0) 0.04 MULT SUB2 EOS
0x11fd…121a 2620 LET ELEMENT var(P') ( 2 ) [] COMMA ELEMENT var(P') ( 3 ) [] COMMA ELEMENT var(Q') ( 2 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x121a…1237 2625 LET ELEMENT var(P') ( 5 ) [] COMMA ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(Q') ( 5 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x1237…123a 2630 GOSUB 0 → 80
0x123a…123d 2690 RETURN 1 EOS
0x123d…123e 2695 FNEND
0x123e…1244 2700 DEF var(FNW9%) var(Q) EOS
0x1244…1275 2705 REM *********** FRAME CORRECTION ***************
0x1275…1298 2715 LET ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(P') ( 1 ) [] var(Q) SUB2 COMMA ELEMENT var(Q') ( 1 ) [] COMMA ELEMENT var(Q') ( 1 ) [] var(Q) SUB2 EOS
0x1298…12bb 2720 LET ELEMENT var(P') ( 2 ) [] COMMA ELEMENT var(P') ( 2 ) [] var(Q) PLUS COMMA ELEMENT var(Q') ( 2 ) [] COMMA ELEMENT var(Q') ( 2 ) [] var(Q) SUB2 EOS
0x12bb…12de 2725 LET ELEMENT var(P') ( 3 ) [] COMMA ELEMENT var(P') ( 3 ) [] var(Q) PLUS COMMA ELEMENT var(Q') ( 3 ) [] COMMA ELEMENT var(Q') ( 3 ) [] var(Q) PLUS EOS
0x12de…1301 2730 LET ELEMENT var(P') ( 4 ) [] COMMA ELEMENT var(P') ( 4 ) [] var(Q) SUB2 COMMA ELEMENT var(Q') ( 4 ) [] COMMA ELEMENT var(Q') ( 4 ) [] var(Q) PLUS EOS
0x1301…131e 2735 LET ELEMENT var(P') ( 5 ) [] COMMA ELEMENT var(P') ( 1 ) [] COMMA ELEMENT var(Q') ( 5 ) [] COMMA ELEMENT var(Q') ( 1 ) [] EOS
0x131e…1321 2790 RETURN 1 EOS
0x1321…1322 2800 FNEND
0x1322…1351 3000 REM ************** MAIN PROGRAM **************
0x1351…1354 3007 GOSUB var(A0x30)
0x1354…1357 3010 GOSUB 48 49
0x1357…135a 3012 GOSUB → 9031
0x135a…135d 3014 GOSUB 53 52
0x135d…1360 3016 GOSUB 0 54
0x1360…1363 3035 GOTO 0 → 95
0x1363…1398 3040 REM ******** OPEN TABLE-FILE AND SORT-FILE *********
0x1398…139a 3045 PRINT EOS
0x139a…13b3 3047 PRINT »>CREATING TABLE-FILE.« EOS
0x13b3…13b5 3050 14f3
0x13b5…13c5 3060 1e700a544142454c4c2e445441f165f3
0x13c5…13e6 3070 1602f27019544142454c4c2e4454413b4143433d4e45573b5245433d3132f165f3
0x13e6…13ec 3072 REM C
0x13ec…13ee 3075 PRINT EOS
0x13ee…140f 3080 INPUT »>GIVE NAME OF SORTED FILE :« COMMA var(N1$) EOS
0x140f…1427 3085 1601f244700e3b4143433d494e3b5245433d3532e2f165f3
0x1427…1430 3090 IF ( var(X%) 2 EQ ) COMMA 34 EOS
0x1430…143d 3100 PRINT »>NO FILE.« EOS
0x143d…1452 3105 INPUT »EXIT ? (Y/N) : « COMMA var(X$) EOS
0x1452…145c 3110 IF var(X$) »Y« EQ COMMA 0 0 → 96
0x145c…1460 3115 ELSE 0 ELEMENT 48
0x1460…1461 3120 DOEND
0x1461…1463 3125 RETURN EOS
0x1463…1489 3130 REM **** OPEN PARAMETERFILE *********
0x1489…148c 3135 1403f3
0x148c…148e 3140 PRINT EOS
0x148e…14b3 3145 INPUT »>GIVE NAME OF PARAMETER-FILE : « COMMA var(N2$) EOS
0x14b3…14c4 3150 1603f24570073b4143433d494ee2f165f3
0x14c4…14cb 3155 IF var(X%) 2 EQ COMMA 34 EOS
0x14cb…14cd 3157 PRINT EOS
0x14cd…14e9 3160 PRINT = ( 7 ) → aff270124e4f4e2d4558495354494e472046494c452ef3
0x14e9…14fe 3165 INPUT »>EXIT ? (Y/N) : « var(X$) EOS
0x14fe…1508 3170 IF var(X$) »Y« EQ COMMA 0 0 → 96
0x1508…150c 3175 ELSE 0 53 49
0x150c…150d 3180 DOEND
0x150d…150f 3185 RETURN EOS
0x150f…1534 3190 REM **** CREATE TABLE-FILE *********
0x1534…1536 3195 PRINT EOS
0x1536…1551 3200 PRINT »>ANALYZING SORTED FILE.« EOS
0x1551…1557 3210 LET var(I%) COMMA 7 EOS
0x1557…155c 3215 LET var(J%) COMMA 0 EOS
0x155c…1565 3220 LINPUT 1# COMMA var(I%) SEMI var(X$) EOS
0x1565…1576 3225 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 12 19 ) [] EOS
0x1576…157d 3230 LET var(I1%) COMMA var(I%) EOS
0x157d…1584 3235 LET var(I2%) COMMA var(I%) EOS
0x1584…158d 3240 REM CONT
0x158d…1596 3245 LET var(I%) COMMA var(I%) 1 PLUS EOS
0x1596…159f 3250 LINPUT 1# COMMA var(I%) SEMI var(X$) EOS
0x159f…15a9 3255 IF = ( 1 ) → b1f1000533
0x15a9…15b6 3260 IF var(Q$) ELEMENT var(X$) ( 12 19 ) [] <> COMMA 34 EOS
0x15b6…15ca 3265 13f402f169f27248730108749ff1401ef1401ff3
0x15ca…15db 3270 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 12 19 ) [] EOS
0x15db…15e2 3275 LET var(I1%) COMMA var(I%) EOS
0x15e2…15e9 3280 LET var(I2%) COMMA var(I%) EOS
0x15e9…15f0 3285 LET var(J%) COMMA var(J%) 1 PLUS EOS
0x15f0…15f1 3290 DOEND
0x15f1…15f9 3295 ELSE 27 var(I2%) COMMA var(I%) EOS
0x15f9…15fc 3300 GOTO var(A0x32)
0x15fc…1602 3305 REM C
0x1602…1616 3310 13f402f169f27248730108749ff1401ef1401ff3
0x1616…161b 3315 PRINT 2# SEMI EOS
0x161b…1621 3320 LET var(N2%) COMMA var(J%) EOS
0x1621…1623 3430 RETURN EOS
0x1623…164a 3435 REM ******* CHECK PAR.FIL ************
0x164a…164c 3440 PRINT EOS
0x164c…1669 3445 PRINT »>CHECKING PARAMETER-FILE.« EOS
0x1669…167d 3450 LET ELEMENT var(Q$) ( 1 8 ) [] COMMA »DUMMY-XX« EOS
0x167d…1683 3452 LET var(F%) COMMA 1 EOS
0x1683…168b 3455 19401400f14020f3
0x168b…168f 3460 RESTORE 3# EOS
0x168f…16a0 3470 LET ELEMENT var(P$) ( 1 8 ) [] COMMA ELEMENT var(Q$) ( 1 8 ) [] EOS
0x16a0…16ad 3475 READ 2# COMMA var(I%) SEMI var(Q$) var(I1%) var(I2%) EOS
0x16ad…16c1 3480 IF ELEMENT var(Q$) ( 1 8 ) [] ELEMENT var(P$) ( 1 8 ) [] EQ COMMA 0 53 53
0x16c1…16ca 3490 REM CONT
0x16ca…16d0 3495 LINPUT 3# SEMI var(X$) EOS
0x16d0…16da 3500 IF = ( 3 ) → b1f1002035
0x16da…16e6 3502 IF = ( var(X$) ) LEN 0 EQ COMMA 0 32 53
0x16e6…16fa 3505 IF ELEMENT var(Q$) ( 1 8 ) [] ELEMENT var(X$) ( 1 8 ) [] EQ COMMA 0 53 53
0x16fa…16fe 3515 ELSE 0 → 9034
0x16fe…1707 3520 REM CONT
0x1707…1726 3525 PRINT »>UNKNOWN THEMATIC CODE : « COMMA var(Q$) EOS
0x1726…172c 3530 LET var(F%) COMMA 0 EOS
0x172c…1732 3535 REM C
0x1732…1736 3540 1a4014f3
0x1736…173d 3545 IF var(F%) → eff122f3
0x173d…173f 3550 PRINT EOS
0x173f…1759 3552 LINPUT »>CONTINUE ? (Y/N) : « COMMA var(X$) EOS
0x1759…1763 3555 IF var(X$) »N« EQ COMMA 0 0 → 96
0x1763…1764 3565 DOEND
0x1764…1766 3570 RETURN EOS
0x1766…178f 3600 REM *********** DRAW FRAME *************
0x178f…179b 3610 1605f27006245445524d33f3
0x179b…179d 3620 PRINT EOS
0x179d…17d1 3630 PRINT »>MOVE PEN TO SUITABLE ORIGO ( DOWN,LEFT CORNER).« EOS
0x17d1…17fb 3640 PRINT »>PRESS RESET-SWITCH ON PLOTTING-TABLE.« EOS
0x17fb…1839 3650 LINPUT »>HIT RETURN-KEY WHEN READY FOR DRAWING FRAME/GRID:« COMMA ELEMENT var(X$) ( 1 1 ) [] EOS
0x1839…1841 3660 PRINT 5# SEMI »R« EOS
0x1841…1843 3670 PRINT EOS
0x1843…184a 3680 19401401f105f3
0x184a…1855 3690 LINPUT 1# COMMA var(I%) 1 PLUS SEMI var(X$) EOS
0x1855…1858 3700 PRINT var(X$) EOS
0x1858…185a 3710 PRINT EOS
0x185a…186f 3720 LET ELEMENT var(X1') ( var(I%) ) [] COMMA = ( ELEMENT var(X$) ( 32 43 ) [] ) VAL EOS
0x186f…1884 3730 LET ELEMENT var(Y1') ( var(I%) ) [] COMMA = ( ELEMENT var(X$) ( 20 31 ) [] ) VAL EOS
0x1884…1888 3740 1a4014f3
0x1888…188e 3750 LET var(X%) COMMA = var(FNW%) EOS
0x188e…1895 3760 IF var(V0) 0 EQ COMMA 34 EOS
0x1895…18a3 3770 IF var(W$) »U« <> COMMA 27 var(X%) COMMA = var(FNW8%) EOS
0x18a3…18aa 3780 LET var(X%) COMMA = var(FNW7%) EOS
0x18aa…18ab 3790 DOEND
0x18ab…18af 3800 RESTORE 3# EOS
0x18af…18b5 3810 LINPUT 3# SEMI var(X$) EOS
0x18b5…18c5 3820 LET var(D9) COMMA = ( ELEMENT var(X$) ( 2 3 ) [] ) VAL EOS
0x18c5…18da 3830 LET var(W1$) COMMA ELEMENT var(X$) ( 1 1 ) [] COMMA var(W2$) COMMA ELEMENT var(X$) ( 4 4 ) [] EOS
0x18da…18e4 3840 IF var(V0) 0 → ebf11b69f100f3
0x18e4…18ea 3850 ELSE 27 var(J%) COMMA 1 EOS
0x18ea…18f1 3860 19401401f104f3
0x18f1…1904 3870 LET ELEMENT var(P') ( var(I%) var(J%) PLUS ) [] COMMA ELEMENT var(X1') ( var(I%) ) [] EOS
0x1904…1917 3880 LET ELEMENT var(Q') ( var(I%) var(J%) PLUS ) [] COMMA ELEMENT var(Y1') ( var(I%) ) [] EOS
0x1917…191b 3890 1a4014f3
0x191b…192b 3900 IF var(V0) 0 ?< COMMA 27 var(M%) COMMA 1 COMMA var(N%) COMMA 5 EOS
0x192b…1937 3910 ELSE 27 var(M%) COMMA 5 COMMA var(N%) COMMA 1 EOS
0x1937…1948 3920 LET ELEMENT var(P') ( var(M%) ) [] COMMA ELEMENT var(P') ( var(N%) ) [] EOS
0x1948…1959 3930 LET ELEMENT var(Q') ( var(M%) ) [] COMMA ELEMENT var(Q') ( var(N%) ) [] EOS
0x1959…1974 3940 IF var(W$) »U« EQ COMMA 27 var(X%) COMMA = ( 0.015 var(M0) MULT ) var(FNW9%) EOS
0x1974…197e 3950 IF var(W1$) »R« EQ COMMA 1 0 → 80
0x197e…1988 3960 IF var(W2$) »M« EQ COMMA 1 0 → 86
0x1988…198f 3970 IF var(V0) 0 EQ COMMA 34 EOS
0x198f…19a8 3980 IF var(W1$) »R« <> COMMA 27 var(X%) COMMA = ( 0.1 ) var(FNW9%) EOS
0x19a8…19bb 3990 ELSE 27 var(X%) COMMA = ( -0.1 ) var(FNW9%) EOS
0x19bb…19bc 4000 DOEND
0x19bc…19d9 4010 LET var(V2) COMMA var(V1) var(V0) %180 MULT var(P1) DIV SUB2 COMMA var(D) COMMA 0.1 var(M0) MULT EOS
0x19d9…19f0 4020 LET var(X) COMMA = ( ELEMENT var(P') ( 1 ) [] var(D) DIV ) → a14018e44018e2f3
0x19f0…1a02 4030 IF var(X) ELEMENT var(P') ( 1 ) [] → e9f11b63f1634018e2f3
0x1a02…1a19 4040 LET var(Y) COMMA = ( ELEMENT var(Q') ( 2 ) [] var(D) DIV ) → a14018e44018e2f3
0x1a19…1a2b 4050 IF var(Y) ELEMENT var(Q') ( 2 ) [] → e9f11b64f1644018e2f3
0x1a2b…1a31 4060 REM C
0x1a31…1a3d 4070 IF var(V0) 0 EQ var(D9) 0 <> AND COMMA 34 EOS
0x1a3d…1a4f 4075 IF var(X) var(D) 2 DIV SUB2 ELEMENT var(P') ( 1 ) [] ?< COMMA 0 → 9041
0x1a4f…1a68 4076 IF var(X) ELEMENT var(P') ( 1 ) [] SUB2 0.075 var(M0) MULT > COMMA 0 → 9041
0x1a68…1a72 4080 LET var(X) COMMA var(X) var(D) 2 DIV SUB2 EOS
0x1a72…1a78 4090 LET var(Z) COMMA var(Y) EOS
0x1a78…1a7e 4100 REM C
0x1a7e…1a8c 4105 IF var(Z) ELEMENT var(Q') ( 4 ) [] ?< COMMA 0 37 var(B$)
0x1a8c…1aac 4110 LET var(X%) COMMA = ( var(X) var(Z) var(D9) 1.5 MULT var(V2) = ( %115 ) → af7466f3
0x1aac…1ab6 4120 LET var(Z) COMMA var(Z) var(D) PLUS EOS
0x1ab6…1ab9 4122 GOTO 0 var(B$)
0x1ab9…1abf 4125 REM C
0x1abf…1ac9 4130 LET var(X) COMMA var(X) var(D) 2 DIV PLUS EOS
0x1ac9…1aca 4180 DOEND
0x1aca…1ad0 4190 REM C
0x1ad0…1add 4200 IF var(X) ELEMENT var(P') ( 3 ) [] → ebf1006044
0x1add…1b11 4210 LET var(X%) COMMA = ( ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] ELEMENT var(P') ( 2 ) [] ELEMENT var(Q') ( 2 ) [] var(X) 8.88889e+08 var(X) -1e+09 ) var(FNS%) EOS
0x1b11…1b49 4220 IF var(X%) → eff11b65f17173724a7302749f724b7302749f724a7303749f724b7303749f636e0888888888000089636e8999999999000089746af3
0x1b49…1b59 4230 IF var(X%) COMMA 27 var(A) COMMA var(X5) COMMA var(B) COMMA var(Y5) EOS
0x1b59…1b5d 4240 ELSE 0 32 var(N1$)
0x1b5d…1b91 4250 LET var(X%) COMMA = ( ELEMENT var(P') ( 5 ) [] ELEMENT var(Q') ( 5 ) [] ELEMENT var(P') ( 4 ) [] ELEMENT var(Q') ( 4 ) [] var(X) 1e+08 var(X) -8.88889e+08 ) var(FNS%) EOS
0x1b91…1bc9 4260 IF var(X%) → eff11b65f17173724a7304749f724b7304749f724a7303749f724b7303749f636e0888888888000089636e8999999999000089746af3
0x1bc9…1bd6 4270 LET var(E) COMMA var(X5) COMMA var(F) COMMA var(Y5) EOS
0x1bd6…1bde 4280 IF var(D9) 0 EQ COMMA 34 EOS
0x1bde…1bee 4290 LET var(X%) COMMA = ( var(A) var(B) »U« ) var(FNP%) EOS
0x1bee…1bfe 4300 LET var(X%) COMMA = ( var(E) var(F) »D« ) var(FNP%) EOS
0x1bfe…1bff 4310 DOEND
0x1bff…1c02 4320 ELSE 34 EOS
0x1c02…1c16 4330 LET var(Z) COMMA = ( var(B) var(D) DIV ) → a14018e44018e2f3
0x1c16…1c27 4340 IF var(Z) var(B) → e9f11b402af1402a4018e2f3
0x1c27…1c2d 4350 REM C
0x1c2d…1c53 4360 LET var(X%) COMMA = ( var(A) var(B) var(E) var(F) 8.88889e+07 var(Z) -1e+08 var(Z) ) var(FNS%) EOS
0x1c53…1c77 4370 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) var(D9) 1.5 MULT var(V2) = ( %115 ) → af7466f3
0x1c77…1c7b 4380 ELSE 0 32 var(N1$)
0x1c7b…1c85 4390 LET var(Z) COMMA var(Z) var(D) PLUS EOS
0x1c85…1c88 4400 GOTO var(X7) var(T1$)
0x1c88…1c89 4410 DOEND
0x1c89…1c8f 4420 REM C
0x1c8f…1c97 4430 LET var(X) COMMA var(X) var(D) PLUS EOS
0x1c97…1c9a 4440 GOTO var(W1$) var(C%)
0x1c9a…1cba 4450 REM COMPLETION ALL GRID-CROSSES
0x1cba…1cdb 4460 REM COMPL. HORIZONTAL GRID-LINES
0x1cdb…1ce3 4470 IF var(D9) 0 EQ COMMA 34 EOS
0x1ce3…1ce9 4480 REM C
0x1ce9…1d1d 4490 LET var(X%) COMMA = ( ELEMENT var(P') ( 2 ) [] ELEMENT var(Q') ( 2 ) [] ELEMENT var(P') ( 3 ) [] ELEMENT var(Q') ( 3 ) [] 8.88889e+08 var(Y) -1e+09 var(Y) ) var(FNS%) EOS
0x1d1d…1d55 4500 IF var(X%) → eff11b65f17173724a7303749f724b7303749f724a7304749f724b7304749f6e0888888888000089646e899999999900008964746af3
0x1d55…1d68 4510 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) »U« ) var(FNP%) EOS
0x1d68…1d6c 4520 ELSE 0 → 9045
0x1d6c…1da0 4530 LET var(X%) COMMA = ( ELEMENT var(P') ( 2 ) [] ELEMENT var(Q') ( 2 ) [] ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] 8.88889e+08 var(Y) -1e+09 var(Y) ) var(FNS%) EOS
0x1da0…1dd8 4540 IF var(X%) → eff11b65f17173724a7301749f724b7301749f724a7304749f724b7304749f6e0888888888000089646e899999999900008964746af3
0x1dd8…1deb 4550 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) »D« ) var(FNP%) EOS
0x1deb…1df3 4560 LET var(Y) COMMA var(Y) var(D) PLUS EOS
0x1df3…1e00 4570 IF var(Y) ELEMENT var(Q') ( 4 ) [] ?< COMMA 0 → 8044
0x1e00…1e01 4580 DOEND
0x1e01…1e07 4590 REM C
0x1e07…1e13 4600 IF var(V0) 0 EQ var(D9) 0 <> AND COMMA 34 EOS
0x1e13…1e1d 4610 LET var(X) COMMA var(X) var(D) 2 DIV SUB2 EOS
0x1e1d…1e2a 4620 IF var(X) ELEMENT var(P') ( 2 ) [] → ebf1002047
0x1e2a…1e3b 4630 LET var(Z) COMMA = ( var(B) var(D) DIV ) → a14018e4f3
0x1e3b…1e4c 4640 IF var(Z) var(B) → e9f11b402af1402a4018e2f3
0x1e4c…1e52 4650 REM C
0x1e52…1e76 4660 LET var(X%) COMMA = ( var(X) var(B) var(X) var(F) 8.88889e+07 var(Z) -1e+08 var(Z) ) var(FNS%) EOS
0x1e76…1e9a 4670 IF var(X%) COMMA 27 var(X%) COMMA = ( var(X5) var(Y5) var(D9) 1.5 MULT var(V2) = ( %115 ) → af7466f3
0x1e9a…1e9e 4680 ELSE 0 32 var(P$)
0x1e9e…1ea8 4690 LET var(Z) COMMA var(Z) var(D) PLUS EOS
0x1ea8…1eab 4700 GOTO var(X7) var(N3$)
0x1eab…1eac 4710 DOEND
0x1eac…1eb2 4720 REM C
0x1eb2…1eb4 4730 RETURN EOS
0x1eb4…1ee8 8000 REM ************* DRAW RECTANGLE ******************
0x1ee8…1f00 8005 LET var(X%) COMMA = ( ELEMENT var(P') ( 1 ) [] ELEMENT var(Q') ( 1 ) [] »U« ) var(FNP%) EOS
0x1f00…1f07 8010 19401402f105f3
0x1f07…1f21 8015 LET var(X%) COMMA = ( ELEMENT var(P') ( var(I%) ) [] ELEMENT var(Q') ( var(I%) ) [] »D« ) var(FNP%) EOS
0x1f21…1f25 8020 1a4014f3
0x1f25…1f27 8050 RETURN EOS
0x1f27…1f5f 8600 REM ************* FOELGE OG SKJAEREMERKER *************
0x1f5f…1f6f 8602 LET var(S) COMMA var(M0) 0.005 MULT EOS
0x1f6f…1f85 8605 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.08 MULT SUB2 EOS
0x1f85…1f9b 8610 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.084 MULT SUB2 EOS
0x1f9b…1fac 8615 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »U« ) var(FNP%) EOS
0x1fac…1fba 8620 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x1fba…1fcb 8625 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »D« ) var(FNP%) EOS
0x1fcb…1fd2 8630 19401401f103f3
0x1fd2…1fe3 8635 LET var(X) COMMA var(X) var(M0) 0.21 MULT PLUS EOS
0x1fe3…1ff6 8640 LET var(X%) COMMA = ( var(X) var(S) 2 DIV SUB2 var(Y) »U« ) var(FNP%) EOS
0x1ff6…2009 8642 LET var(X%) COMMA = ( var(X) var(S) 2 DIV PLUS var(Y) »D« ) var(FNP%) EOS
0x2009…2017 8645 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x2017…2028 8650 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »D« ) var(FNP%) EOS
0x2028…202c 8655 1a4014f3
0x202c…2035 8657 LET var(X%) COMMA = ( 5 ) var(FNW1%) EOS
0x2035…2046 8660 LET var(X) COMMA var(X) var(M0) 0.21 MULT PLUS EOS
0x2046…2057 8665 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »U« ) var(FNP%) EOS
0x2057…2065 8670 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2065…2076 8675 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »D« ) var(FNP%) EOS
0x2076…2087 8680 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT PLUS EOS
0x2087…209a 8685 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV SUB2 »U« ) var(FNP%) EOS
0x209a…20ad 8690 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV PLUS »D« ) var(FNP%) EOS
0x20ad…20bb 8700 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x20bb…20cc 8705 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »D« ) var(FNP%) EOS
0x20cc…20dd 8710 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT PLUS EOS
0x20dd…20ee 8715 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »U« ) var(FNP%) EOS
0x20ee…20fc 8720 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x20fc…210d 8725 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »D« ) var(FNP%) EOS
0x210d…2116 8727 LET var(X%) COMMA = ( 5 ) var(FNW1%) EOS
0x2116…211d 8730 19401401f103f3
0x211d…212e 8735 LET var(X) COMMA var(X) var(M0) 0.21 MULT SUB2 EOS
0x212e…2141 8740 LET var(X%) COMMA = ( var(X) var(S) 2 DIV PLUS var(Y) »U« ) var(FNP%) EOS
0x2141…2154 8745 LET var(X%) COMMA = ( var(X) var(S) 2 DIV SUB2 var(Y) »D« ) var(FNP%) EOS
0x2154…2162 8750 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x2162…2173 8755 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »D« ) var(FNP%) EOS
0x2173…2177 8760 1a4014f3
0x2177…2188 8765 LET var(X) COMMA var(X) var(M0) 0.21 MULT SUB2 EOS
0x2188…2199 8770 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »U« ) var(FNP%) EOS
0x2199…21a7 8775 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x21a7…21b8 8780 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »D« ) var(FNP%) EOS
0x21b8…21c9 8785 LET var(Y) COMMA var(Y) var(M0) 0.297 MULT SUB2 EOS
0x21c9…21dc 8790 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV PLUS »U« ) var(FNP%) EOS
0x21dc…21ef 8795 LET var(X%) COMMA = ( var(X) var(Y) var(S) 2 DIV SUB2 »D« ) var(FNP%) EOS
0x21ef…21fd 8800 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x21fd…220e 8805 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »D« ) var(FNP%) EOS
0x220e…2224 8810 LET var(X) COMMA ELEMENT var(X1') ( 1 ) [] var(M0) 0.11 MULT SUB2 EOS
0x2224…223a 8815 LET var(Y) COMMA ELEMENT var(Y1') ( 1 ) [] var(M0) 0.114 MULT SUB2 EOS
0x223a…224b 8820 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »U« ) var(FNP%) EOS
0x224b…2259 8825 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x2259…226a 8830 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »D« ) var(FNP%) EOS
0x226a…227b 8835 LET var(X) COMMA var(X) var(M0) 0.9 MULT PLUS EOS
0x227b…228c 8840 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »U« ) var(FNP%) EOS
0x228c…229a 8845 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x229a…22ab 8850 LET var(X%) COMMA = ( var(X) var(Y) var(S) PLUS »D« ) var(FNP%) EOS
0x22ab…22bc 8855 LET var(Y) COMMA var(Y) var(M0) 0.654 MULT PLUS EOS
0x22bc…22cd 8860 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »U« ) var(FNP%) EOS
0x22cd…22db 8865 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x22db…22ec 8870 LET var(X%) COMMA = ( var(X) var(S) SUB2 var(Y) »D« ) var(FNP%) EOS
0x22ec…22fd 8875 LET var(X) COMMA var(X) var(M0) 0.9 MULT SUB2 EOS
0x22fd…230e 8880 LET var(X%) COMMA = ( var(X) var(S) PLUS var(Y) »U« ) var(FNP%) EOS
0x230e…231c 8885 LET var(X%) COMMA = ( var(X) var(Y) »D« ) var(FNP%) EOS
0x231c…232d 8890 LET var(X%) COMMA = ( var(X) var(Y) var(S) SUB2 »D« ) var(FNP%) EOS
0x232d…2336 8900 LET var(X%) COMMA = ( 5 ) var(FNW1%) EOS
0x2336…2338 9000 RETURN EOS
0x2338…2367 9500 REM ********* CHAIN TO NEXT MODULE ***********
0x2367…2369 9510 PRINT EOS
0x2369…236b 9520 PRINT EOS
0x236b…237e 9560 PRINT »>CHAINER PLOT.2« EOS
0x237e…2388 9570 CHAIN »PLOT.2« EOS
0x2388…23ba 9600 REM *********** PROGRAM TERMINATION *************
0x23ba…23bc 9650 14f3
0x23bc…23be 9700 PRINT EOS
0x23be…23c0 9710 PRINT EOS
0x23c0…23d9 9750 PRINT »>PROGRAM TERMINATION.« EOS
0x23d9…23da 9999 END