|
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: 11508 (0x2cf4)
Notes: ZILOG_BASIC
Names: »PLOT.2.BP«
└─⟦837bc648a⟧ Bits:30006817 8" ZilogMCZ floppy NThun_0019 (Styredisk Plot - Prepare)
└─⟦this⟧ »PLOT.2.BP«
0x0000…0014 BasicHead {variables=0x0248, stms=0x07c4, f2=0x22d4, f3=0000000000000000000000000000}
0x0014…025c [
0x0014…025c [0x00]: VarDef {f0=0x01c2, f1=0x42, f2=0x98} Y2' 0x91
0x0014…025c [0x01]: VarDef {f0=0x0196, f1=0x42, f2=0x97} X2' 0x90
0x0014…025c [0x02]: VarDef {f0=0x0466, f1=0x45, f2=0x0b} L5 0x8f
0x0014…025c [0x03]: VarDef {f0=0x045e, f1=0x45, f2=0x0a} K5 0x8e
0x0014…025c [0x04]: VarDef {f0=0x0416, f1=0x40, f2=0x0b} L0 0x8d
0x0014…025c [0x05]: VarDef {f0=0x040e, f1=0x40, f2=0x0a} K0 0x8c
0x0014…025c [0x06]: VarDef {f0=0x0e00, f1=0x40, f2=0x28} I0% 0x8b
0x0014…025c [0x07]: VarDef {f0=0x7100, f1=0x41, f2=0x21} B1% 0x8a
0x0014…025c [0x08]: VarDef {f0=0xaaaa, f1=0x43, f2=0x03} D3 0x89
0x0014…025c [0x09]: VarDef {f0=0x048e, f1=0x46, f2=0x0f} P6 0x88
0x0014…025c [0x0a]: VarDef {f0=0x7000, f1=0x40, f2=0x21} B0% 0x87
0x0014…025c [0x0b]: VarDef {f0=0x047e, f1=0x42, f2=0x11} R2 0x86
0x0014…025c [0x0c]: VarDef {f0=0x0466, f1=0x41, f2=0x11} R1 0x85
0x0014…025c [0x0d]: VarDef {f0=0x0100, f1=0x45, f2=0x35} V5% 0x84
0x0014…025c [0x0e]: VarDef {f0=0xaaaa, f1=0x43, f2=0x16} W3 0x83
0x0014…025c [0x0f]: VarDef {f0=0x044e, f1=0x45, f2=0x18} Y5 0x82
0x0014…025c [0x10]: VarDef {f0=0x0456, f1=0x45, f2=0x17} X5 0x81
0x0014…025c [0x11]: VarDef {f0=0x0426, f1=0x41, f2=0x0b} L1 0x80
0x0014…025c [0x12]: VarDef {f0=0x041e, f1=0x41, f2=0x0a} K1 0x7f
0x0014…025c [0x13]: VarDef {f0=0x0446, f1=0x42, f2=0x0b} L2 0x7e
0x0014…025c [0x14]: VarDef {f0=0x043e, f1=0x42, f2=0x0a} K2 0x7d
0x0014…025c [0x15]: VarDef {f0=0xaaaa, f1=0x43, f2=0x0b} L3 0x7c
0x0014…025c [0x16]: VarDef {f0=0xaaaa, f1=0x43, f2=0x0a} K3 0x7b
0x0014…025c [0x17]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x19} Z 0x7a
0x0014…025c [0x18]: VarDef {f0=0x046e, f1=0x42, f2=0x03} D2 0x79
0x0014…025c [0x19]: VarDef {f0=0xaaaa, f1=0x41, f2=0x16} W1 0x78
0x0014…025c [0x1a]: VarDef {f0=0x0436, f1=0x43, f2=0x01} B3 0x77
0x0014…025c [0x1b]: VarDef {f0=0x042e, f1=0x43, f2=0x00} A3 0x76
0x0014…025c [0x1c]: VarDef {f0=0x0396, f1=0x40, f2=0x19} Z0 0x75
0x0014…025c [0x1d]: VarDef {f0=0x0406, f1=0x44, f2=0x18} Y4 0x74
0x0014…025c [0x1e]: VarDef {f0=0x03fe, f1=0x44, f2=0x17} X4 0x73
0x0014…025c [0x1f]: VarDef {f0=0x0500, f1=0x40, f2=0x29} J0% 0x72
0x0014…025c [0x20]: VarDef {f0=0xaaaa, f1=0x41, f2=0x06} G1 0x71
0x0014…025c [0x21]: VarDef {f0=0xaaaa, f1=0x48, f2=0x06} G8 0x70
0x0014…025c [0x22]: VarDef {f0=0xaaaa, f1=0x47, f2=0x06} G7 0x6f
0x0014…025c [0x23]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x03} D 0x6e
0x0014…025c [0x24]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x10} Q 0x6d
0x0014…025c [0x25]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x0f} P 0x6c
0x0014…025c [0x26]: VarDef {f0=0xfb78, f1=0x51, f2=0x2f} FNP1% 0x6b
0x0014…025c [0x27]: VarDef {f0=0xaaaa, f1=0x49, f2=0x2b} L9% 0x6a
0x0014…025c [0x28]: VarDef {f0=0x03f6, f1=0x42, f2=0x16} W2 0x69
0x0014…025c [0x29]: VarDef {f0=0x0000, f1=0x41, f2=0x25} F1% 0x68
0x0014…025c [0x2a]: VarDef {f0=0x03ee, f1=0x42, f2=0x01} B2 0x67
0x0014…025c [0x2b]: VarDef {f0=0x03e6, f1=0x42, f2=0x00} A2 0x66
0x0014…025c [0x2c]: VarDef {f0=0x03de, f1=0x41, f2=0x01} B1 0x65
0x0014…025c [0x2d]: VarDef {f0=0x03d6, f1=0x41, f2=0x00} A1 0x64
0x0014…025c [0x2e]: VarDef {f0=0x0500, f1=0x48, f2=0x29} J8% 0x63
0x0014…025c [0x2f]: VarDef {f0=0x03ce, f1=0x44, f2=0x06} G4 0x62
0x0014…025c [0x30]: VarDef {f0=0x03c6, f1=0x43, f2=0x06} G3 0x61
0x0014…025c [0x31]: VarDef {f0=0x0100, f1=0x48, f2=0x2b} L8% 0x60
0x0014…025c [0x32]: VarDef {f0=0xfbd4, f1=0x59, f2=0x2f} FNP9% 0x5f
0x0014…025c [0x33]: VarDef {f0=0x0300, f1=0x4f, f2=0x29} J% 0x5e
0x0014…025c [0x34]: VarDef {f0=0x1000, f1=0x42, f2=0x28} I2% 0x5d
0x0014…025c [0x35]: VarDef {f0=0x0700, f1=0x41, f2=0x28} I1% 0x5c
0x0014…025c [0x36]: VarDef {f0=0x0c00, f1=0x48, f2=0x28} I8% 0x5b
0x0014…025c [0x37]: VarDef {f0=0xfcb8, f1=0x5f, f2=0x29} FNJ% 0x5a
0x0014…025c [0x38]: VarDef {f0=0xfd04, f1=0x5f, f2=0x2a} FNK% 0x59
0x0014…025c [0x39]: VarDef {f0=0xfd1c, f1=0x5f, f2=0x15} FNV 0x58
0x0014…025c [0x3a]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x04} E 0x57
0x0014…025c [0x3b]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x12} S 0x56
0x0014…025c [0x3c]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x09} J 0x55
0x0014…025c [0x3d]: VarDef {f0=0xfd88, f1=0x5f, f2=0x30} FNQ% 0x54
0x0014…025c [0x3e]: VarDef {f0=0x03a6, f1=0x42, f2=0x10} Q2 0x53
0x0014…025c [0x3f]: VarDef {f0=0x039e, f1=0x41, f2=0x10} Q1 0x52
0x0014…025c [0x40]: VarDef {f0=0xaaaa, f1=0x42, f2=0x18} Y2 0x51
0x0014…025c [0x41]: VarDef {f0=0xaaaa, f1=0x42, f2=0x17} X2 0x50
0x0014…025c [0x42]: VarDef {f0=0xaaaa, f1=0x41, f2=0x18} Y1 0x4f
0x0014…025c [0x43]: VarDef {f0=0xaaaa, f1=0x41, f2=0x17} X1 0x4e
0x0014…025c [0x44]: VarDef {f0=0xfdac, f1=0x5f, f2=0x03} FND 0x4d
0x0014…025c [0x45]: VarDef {f0=0x03be, f1=0x4f, f2=0x11} R 0x4c
0x0014…025c [0x46]: VarDef {f0=0xfd34, f1=0x51, f2=0x24} FNE1% 0x4b
0x0014…025c [0x47]: VarDef {f0=0xfd6c, f1=0x5f, f2=0x24} FNE% 0x4a
0x0014…025c [0x48]: VarDef {f0=0xfe54, f1=0x5f, f2=0x33} FNT% 0x49
0x0014…025c [0x49]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x15} V 0x48
0x0014…025c [0x4a]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x07} H 0x47
0x0014…025c [0x4b]: VarDef {f0=0xfe80, f1=0x5f, f2=0x37} FNX% 0x46
0x0014…025c [0x4c]: VarDef {f0=0x03ae, f1=0x43, f2=0x17} X3 0x45
0x0014…025c [0x4d]: VarDef {f0=0x03b6, f1=0x43, f2=0x18} Y3 0x44
0x0014…025c [0x4e]: VarDef {f0=0xfda4, f1=0x5f, f2=0x39} FNZ% 0x43
0x0014…025c [0x4f]: VarDef {f0=0x0476, f1=0x4f, f2=0x18} Y 0x42
0x0014…025c [0x50]: VarDef {f0=0x046e, f1=0x4f, f2=0x17} X 0x41
0x0014…025c [0x51]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x24} E% 0x40
0x0014…025c [0x52]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x23} D% 0x3f
0x0014…025c [0x53]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x22} C% 0x3e
0x0014…025c [0x54]: VarDef {f0=0x0300, f1=0x4f, f2=0x28} I% 0x3d
0x0014…025c [0x55]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x38} Y% 0x3c
0x0014…025c [0x56]: VarDef {f0=0xfed0, f1=0x5f, f2=0x25} FNF% 0x3b
0x0014…025c [0x57]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x21} B% 0x3a
0x0014…025c [0x58]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x20} A% 0x39
0x0014…025c [0x59]: VarDef {f0=0xfed8, f1=0x5f, f2=0x2c} FNM% 0x38
0x0014…025c [0x5a]: VarDef {f0=0xaaaa, f1=0x43, f2=0x22} C3% 0x37
0x0014…025c [0x5b]: VarDef {f0=0xaaaa, f1=0x42, f2=0x22} C2% 0x36
0x0014…025c [0x5c]: VarDef {f0=0xaaaa, f1=0x41, f2=0x22} C1% 0x35
0x0014…025c [0x5d]: VarDef {f0=0x038e, f1=0x41, f2=0x07} H1 0x34
0x0014…025c [0x5e]: VarDef {f0=0x0000, f1=0x40, f2=0x36} W0% 0x33
0x0014…025c [0x5f]: VarDef {f0=0x0000, f1=0x40, f2=0x35} V0% 0x32
0x0014…025c [0x60]: VarDef {f0=0x0300, f1=0x40, f2=0x25} F0% 0x31
0x0014…025c [0x61]: VarDef {f0=0x0700, f1=0x40, f2=0x2b} L0% 0x30
0x0014…025c [0x62]: VarDef {f0=0xfe98, f1=0x5f, f2=0x2f} FNP% 0x2f
0x0014…025c [0x63]: VarDef {f0=0xfef0, f1=0x5f, f2=0x22} FNC% 0x2e
0x0014…025c [0x64]: VarDef {f0=0x0100, f1=0x4f, f2=0x37} X% 0x2d
0x0014…025c [0x65]: VarDef {f0=0xffa4, f1=0x5f, f2=0x20} FNA% 0x2c
0x0014…025c [0x66]: VarDef {f0=0x0386, f1=0x48, f2=0x19} Z8 0x2b
0x0014…025c [0x67]: VarDef {f0=0x037e, f1=0x49, f2=0x19} Z9 0x2a
0x0014…025c [0x68]: VarDef {f0=0x0376, f1=0x45, f2=0x0f} P5 0x29
0x0014…025c [0x69]: VarDef {f0=0x036e, f1=0x40, f2=0x0f} P0 0x28
0x0014…025c [0x6a]: VarDef {f0=0x0366, f1=0x42, f2=0x0f} P2 0x27
0x0014…025c [0x6b]: VarDef {f0=0x035e, f1=0x40, f2=0x18} Y0 0x26
0x0014…025c [0x6c]: VarDef {f0=0x0356, f1=0x40, f2=0x17} X0 0x25
0x0014…025c [0x6d]: VarDef {f0=0x02d0, f1=0x40, f2=0x83} D0' 0x24
0x0014…025c [0x6e]: VarDef {f0=0x02c4, f1=0x41, f2=0x53} T1$ 0x23
0x0014…025c [0x6f]: VarDef {f0=0x02ba, f1=0x49, f2=0x50} Q9$ 0x22
0x0014…025c [0x70]: VarDef {f0=0x02b5, f1=0x4f, f2=0x52} S$ 0x21
0x0014…025c [0x71]: VarDef {f0=0x02ab, f1=0x40, f2=0x52} S0$ 0x20
0x0014…025c [0x72]: VarDef {f0=0x02a6, f1=0x40, f2=0x59} Z0$ 0x1f
0x0014…025c [0x73]: VarDef {f0=0x02a1, f1=0x40, f2=0x4b} L0$ 0x1e
0x0014…025c [0x74]: VarDef {f0=0x0295, f1=0x40, f2=0x4f} P0$ 0x1d
0x0014…025c [0x75]: VarDef {f0=0x024b, f1=0x4f, f2=0x57} X$ 0x1c
0x0014…025c [0x76]: VarDef {f0=0x0243, f1=0x40, f2=0x10} Q0 0x1b
0x0014…025c [0x77]: VarDef {f0=0x023b, f1=0x49, f2=0x03} D9 0x1a
0x0014…025c [0x78]: VarDef {f0=0x0200, f1=0x49, f2=0x2c} M9% 0x19
0x0014…025c [0x79]: VarDef {f0=0x0233, f1=0x40, f2=0x0c} M0 0x18
0x0014…025c [0x7a]: VarDef {f0=0x022b, f1=0x49, f2=0x16} W9 0x17
0x0014…025c [0x7b]: VarDef {f0=0x0223, f1=0x48, f2=0x16} W8 0x16
0x0014…025c [0x7c]: VarDef {f0=0x021b, f1=0x41, f2=0x0f} P1 0x15
0x0014…025c [0x7d]: VarDef {f0=0x0213, f1=0x41, f2=0x15} V1 0x14
0x0014…025c [0x7e]: VarDef {f0=0x020b, f1=0x40, f2=0x15} V0 0x13
0x0014…025c [0x7f]: VarDef {f0=0x0203, f1=0x47, f2=0x18} Y7 0x12
0x0014…025c [0x80]: VarDef {f0=0x01fb, f1=0x47, f2=0x17} X7 0x11
0x0014…025c [0x81]: VarDef {f0=0x01f3, f1=0x40, f2=0x12} S0 0x10
0x0014…025c [0x82]: VarDef {f0=0x01ee, f1=0x4f, f2=0x56} W$ 0xf
0x0014…025c [0x83]: VarDef {f0=0x016a, f1=0x41, f2=0x98} Y1' 0xe
0x0014…025c [0x84]: VarDef {f0=0x013e, f1=0x41, f2=0x97} X1' 0xd
0x0014…025c [0x85]: VarDef {f0=0x0112, f1=0x4f, f2=0x90} Q' 0xc
0x0014…025c [0x86]: VarDef {f0=0x00e6, f1=0x4f, f2=0x8f} P' 0xb
0x0014…025c [0x87]: VarDef {f0=0x030c, f1=0x4f, f2=0x59} Z$ 0xa
0x0014…025c [0x88]: VarDef {f0=0x00da, f1=0x4f, f2=0x50} Q$ 0x9
0x0014…025c [0x89]: VarDef {f0=0x00ce, f1=0x4f, f2=0x4f} P$ 0x8
0x0014…025c [0x8a]: VarDef {f0=0x007a, f1=0x49, f2=0x53} T9$ 0x7
0x0014…025c [0x8b]: VarDef {f0=0x0062, f1=0x43, f2=0x4d} N3$ 0x6
0x0014…025c [0x8c]: VarDef {f0=0x004a, f1=0x42, f2=0x4d} N2$ 0x5
0x0014…025c [0x8d]: VarDef {f0=0x0032, f1=0x41, f2=0x4d} N1$ 0x4
0x0014…025c [0x8e]: VarDef {f0=0x002d, f1=0x4f, f2=0x42} C$ 0x3
0x0014…025c [0x8f]: VarDef {f0=0x0028, f1=0x4f, f2=0x40} A$ 0x2
0x0014…025c [0x90]: VarDef {f0=0x000c, f1=0x42, f2=0x53} T2$ 0x1
0x0014…025c [0x91]: VarDef {f0=0x0000, f1=0x40, f2=0x53} T0$ 0x0
0x0014…025c ]
0x025c…0260 Statement 39321 @0x2cf3
0x0260…0264 Statement 39200 @0x2ceb
0x0264…0268 Statement 39184 @0x2cd2
0x0268…026c Statement 39168 @0x2ca0
0x026c…0270 Statement 37952 @0x2c9e
0x0270…0274 Statement 37936 @0x2c98
0x0274…0278 Statement 37920 @0x2c94
0x0278…027c Statement 37904 @0x2c72
0x027c…0280 Statement 37888 @0x2c68
0x0280…0284 Statement 37776 @0x2c60
0x0284…0288 Statement 37760 @0x2c53
0x0288…028c Statement 37744 @0x2c3b
0x028c…0290 Statement 37728 @0x2c2c
0x0290…0294 Statement 37712 @0x2c12
0x0294…0298 Statement 37696 @0x2bef
0x0298…029c Statement 37680 @0x2be2
0x029c…02a0 Statement 37664 @0x2bc3
0x02a0…02a4 Statement 37632 @0x2b98
0x02a4…02a8 Statement 37520 @0x2b6d
0x02a8…02ac Statement 37504 @0x2b6a
0x02ac…02b0 Statement 37488 @0x2b11
0x02b0…02b4 Statement 37472 @0x2aed
0x02b4…02b8 Statement 37456 @0x2aea
0x02b8…02bc Statement 37440 @0x2ac2
0x02bc…02c0 Statement 37408 @0x2a9a
0x02c0…02c4 Statement 37392 @0x2a97
0x02c4…02c8 Statement 37376 @0x2a62
0x02c8…02cc Statement 37264 @0x2a59
0x02cc…02d0 Statement 37248 @0x2a3d
0x02d0…02d4 Statement 37232 @0x2a3b
0x02d4…02d8 Statement 37216 @0x2a26
0x02d8…02dc Statement 37200 @0x29f0
0x02dc…02e0 Statement 37184 @0x29d9
0x02e0…02e4 Statement 37168 @0x29d0
0x02e4…02e8 Statement 37152 @0x29b6
0x02e8…02ec Statement 37136 @0x29ad
0x02ec…02f0 Statement 37120 @0x297c
0x02f0…02f4 Statement 36960 @0x297a
0x02f4…02f8 Statement 36949 @0x296a
0x02f8…02fc Statement 36944 @0x295b
0x02fc…0300 Statement 36933 @0x294c
0x0300…0304 Statement 36928 @0x293b
0x0304…0308 Statement 36912 @0x291c
0x0308…030c Statement 36896 @0x2913
0x030c…0310 Statement 36885 @0x2906
0x0310…0314 Statement 36880 @0x28fd
0x0314…0318 Statement 36864 @0x28d1
0x0318…031c Statement 35093 @0x28cf
0x031c…0320 Statement 35088 @0x28c1
0x0320…0324 Statement 35077 @0x28bb
0x0324…0328 Statement 35072 @0x28b9
0x0328…032c Statement 34965 @0x28b5
0x032c…0330 Statement 34960 @0x2893
0x0330…0334 Statement 34933 @0x2889
0x0334…0338 Statement 34928 @0x2881
0x0338…033c Statement 34918 @0x285f
0x033c…0340 Statement 34917 @0x2843
0x0340…0344 Statement 34912 @0x2840
0x0344…0348 Statement 34901 @0x2833
0x0348…034c Statement 34896 @0x2826
0x034c…0350 Statement 34885 @0x2815
0x0350…0354 Statement 34880 @0x2806
0x0354…0358 Statement 34869 @0x27f8
0x0358…035c Statement 34864 @0x27e1
0x035c…0360 Statement 34848 @0x27da
0x0360…0364 Statement 34837 @0x27bd
0x0364…0368 Statement 34832 @0x27a7
0x0368…036c Statement 34821 @0x27a0
0x036c…0370 Statement 34816 @0x279c
0x0370…0374 Statement 34704 @0x2774
0x0374…0378 Statement 34688 @0x2772
0x0378…037c Statement 34677 @0x2752
0x037c…0380 Statement 34672 @0x272a
0x0380…0384 Statement 34656 @0x2703
0x0384…0388 Statement 34645 @0x26fd
0x0388…038c Statement 34640 @0x26fb
0x038c…0390 Statement 34629 @0x26dc
0x0390…0394 Statement 34624 @0x26d5
0x0394…0398 Statement 34613 @0x26bd
0x0398…039c Statement 34608 @0x26b7
0x039c…03a0 Statement 34597 @0x26b5
0x03a0…03a4 Statement 34592 @0x2696
0x03a4…03a8 Statement 34581 @0x268f
0x03a8…03ac Statement 34576 @0x2677
0x03ac…03b0 Statement 34560 @0x264f
0x03b0…03b4 Statement 34368 @0x264d
0x03b4…03b8 Statement 34336 @0x2634
0x03b8…03bc Statement 34160 @0x260f
0x03bc…03c0 Statement 34144 @0x260e
0x03c0…03c4 Statement 34128 @0x25ff
0x03c4…03c8 Statement 34064 @0x25f3
0x03c8…03cc Statement 34048 @0x25f0
0x03cc…03d0 Statement 33792 @0x25ef
0x03d0…03d4 Statement 33616 @0x25ce
0x03d4…03d8 Statement 33600 @0x25cd
0x03d8…03dc Statement 33568 @0x25ba
0x03dc…03e0 Statement 33536 @0x25b7
0x03e0…03e4 Statement 33408 @0x25ae
0x03e4…03e8 Statement 33312 @0x25a5
0x03e8…03ec Statement 33296 @0x259f
0x03ec…03f0 Statement 33152 @0x257a
0x03f0…03f4 Statement 33136 @0x2555
0x03f4…03f8 Statement 33125 @0x2547
0x03f8…03fc Statement 33120 @0x2518
0x03fc…0400 Statement 33113 @0x2504
0x0400…0404 Statement 33112 @0x24f1
0x0404…0408 Statement 33109 @0x24e2
0x0408…040c Statement 33104 @0x24cf
0x040c…0410 Statement 33024 @0x249a
0x0410…0414 Statement 32800 @0x2498
0x0414…0418 Statement 32784 @0x248c
0x0418…041c Statement 32768 @0x245b
0x041c…0420 Statement 30976 @0x2459
0x0420…0424 Statement 29952 @0x2455
0x0424…0428 Statement 29302 @0x2435
0x0428…042c Statement 29301 @0x241b
0x042c…0430 Statement 29296 @0x23f4
0x0430…0434 Statement 29285 @0x23e2
0x0434…0438 Statement 29280 @0x23d0
0x0438…043c Statement 29269 @0x23cd
0x043c…0440 Statement 29264 @0x23c4
0x0440…0444 Statement 29248 @0x23b3
0x0444…0448 Statement 29237 @0x23b1
0x0448…044c Statement 29232 @0x23ad
0x044c…0450 Statement 29216 @0x23a2
0x0450…0454 Statement 29200 @0x2399
0x0454…0458 Statement 28784 @0x2382
0x0458…045c Statement 28704 @0x237f
0x045c…0460 Statement 28688 @0x2376
0x0460…0464 Statement 28677 @0x236c
0x0464…0468 Statement 28672 @0x232a
0x0468…046c Statement 21248 @0x2326
0x046c…0470 Statement 21136 @0x231b
0x0470…0474 Statement 21120 @0x2310
0x0474…0478 Statement 21040 @0x2306
0x0478…047c Statement 21024 @0x22da
0x047c…0480 Statement 21014 @0x22d4
0x0480…0484 Statement 21013 @0x22d0
0x0484…0488 Statement 21008 @0x22c3
0x0488…048c Statement 20992 @0x22bd
0x048c…0490 Statement 20816 @0x22ba
0x0490…0494 Statement 20800 @0x22b2
0x0494…0498 Statement 20784 @0x22a8
0x0498…049c Statement 20768 @0x229e
0x049c…04a0 Statement 20752 @0x2298
0x04a0…04a4 Statement 20736 @0x2291
0x04a4…04a8 Statement 20624 @0x2284
0x04a8…04ac Statement 20608 @0x2276
0x04ac…04b0 Statement 20592 @0x226c
0x04b0…04b4 Statement 20576 @0x2266
0x04b4…04b8 Statement 20560 @0x2260
0x04b8…04bc Statement 20528 @0x225d
0x04bc…04c0 Statement 20512 @0x2254
0x04c0…04c4 Statement 20496 @0x2248
0x04c4…04c8 Statement 20486 @0x223f
0x04c8…04cc Statement 20484 @0x222b
0x04cc…04d0 Statement 20483 @0x221e
0x04d0…04d4 Statement 20481 @0x2213
0x04d4…04d8 Statement 20480 @0x21df
0x04d8…04dc Statement 17200 @0x21dc
0x04dc…04e0 Statement 17168 @0x21c3
0x04e0…04e4 Statement 17152 @0x21ba
0x04e4…04e8 Statement 17040 @0x21b7
0x04e8…04ec Statement 17029 @0x21b4
0x04ec…04f0 Statement 17024 @0x21ac
0x04f0…04f4 Statement 17008 @0x21a2
0x04f4…04f8 Statement 16992 @0x2198
0x04f8…04fc Statement 16976 @0x218f
0x04fc…0500 Statement 16928 @0x2187
0x0500…0504 Statement 16896 @0x2160
0x0504…0508 Statement 16720 @0x2151
0x0508…050c Statement 16704 @0x2138
0x050c…0510 Statement 16688 @0x2134
0x0510…0514 Statement 16677 @0x212d
0x0514…0518 Statement 16672 @0x2100
0x0518…051c Statement 16656 @0x20fd
0x051c…0520 Statement 16448 @0x20f2
0x0520…0524 Statement 16432 @0x20ec
0x0524…0528 Statement 16421 @0x20e4
0x0528…052c Statement 16416 @0x20de
0x052c…0530 Statement 16400 @0x20da
0x0530…0534 Statement 16389 @0x20d6
0x0534…0538 Statement 16384 @0x20a6
0x0538…053c Statement 12288 @0x20a5
0x053c…0540 Statement 10512 @0x20a2
0x0540…0544 Statement 10320 @0x2088
0x0544…0548 Statement 10304 @0x2076
0x0548…054c Statement 10288 @0x205a
0x054c…0550 Statement 10272 @0x2054
0x0550…0554 Statement 10263 @0x2051
0x0554…0558 Statement 10261 @0x2044
0x0558…055c Statement 10240 @0x2029
0x055c…0560 Statement 10096 @0x2017
0x0560…0564 Statement 10085 @0x1ffb
0x0564…0568 Statement 10080 @0x1feb
0x0568…056c Statement 10069 @0x1fdb
0x056c…0570 Statement 10064 @0x1fd1
0x0570…0574 Statement 10053 @0x1fc0
0x0574…0578 Statement 10048 @0x1fa7
0x0578…057c Statement 10037 @0x1f94
0x057c…0580 Statement 10032 @0x1f8e
0x0580…0584 Statement 10021 @0x1f66
0x0584…0588 Statement 10016 @0x1f54
0x0588…058c Statement 10005 @0x1f51
0x058c…0590 Statement 09989 @0x1f40
0x0590…0594 Statement 09986 @0x1f36
0x0594…0598 Statement 09984 @0x1f2e
0x0598…059c Statement 09877 @0x1efd
0x059c…05a0 Statement 09872 @0x1efc
0x05a0…05a4 Statement 09861 @0x1ef9
0x05a4…05a8 Statement 09856 @0x1ef3
0x05a8…05ac Statement 09829 @0x1eed
0x05ac…05b0 Statement 09824 @0x1ed8
0x05b0…05b4 Statement 09813 @0x1ec4
0x05b4…05b8 Statement 09808 @0x1eaf
0x05b8…05bc Statement 09797 @0x1e98
0x05bc…05c0 Statement 09792 @0x1e83
0x05c0…05c4 Statement 09781 @0x1e6c
0x05c4…05c8 Statement 09776 @0x1e5a
0x05c8…05cc Statement 09765 @0x1e57
0x05cc…05d0 Statement 09760 @0x1e51
0x05d0…05d4 Statement 09749 @0x1e3c
0x05d4…05d8 Statement 09744 @0x1e25
0x05d8…05dc Statement 09733 @0x1e13
0x05dc…05e0 Statement 09472 @0x1e10
0x05e0…05e4 Statement 09360 @0x1dfd
0x05e4…05e8 Statement 09280 @0x1dd9
0x05e8…05ec Statement 09237 @0x1dc0
0x05ec…05f0 Statement 09221 @0x1db1
0x05f0…05f4 Statement 09216 @0x1dad
0x05f4…05f8 Statement 09109 @0x1d7d
0x05f8…05fc Statement 08752 @0x1d7c
0x05fc…0600 Statement 08741 @0x1d78
0x0600…0604 Statement 08736 @0x1d6d
0x0604…0608 Statement 08720 @0x1d66
0x0608…060c Statement 08704 @0x1d59
0x060c…0610 Statement 08592 @0x1d58
0x0610…0614 Statement 08580 @0x1d50
0x0614…0618 Statement 08579 @0x1d4d
0x0618…061c Statement 08578 @0x1d3b
0x061c…0620 Statement 08576 @0x1d31
0x0620…0624 Statement 08566 @0x1d2b
0x0624…0628 Statement 08565 @0x1cfc
0x0628…062c Statement 08560 @0x1cef
0x062c…0630 Statement 08544 @0x1cdf
0x0630…0634 Statement 08533 @0x1cdc
0x0634…0638 Statement 08528 @0x1ca5
0x0638…063c Statement 08517 @0x1c98
0x063c…0640 Statement 08514 @0x1c94
0x0640…0644 Statement 08513 @0x1c8e
0x0644…0648 Statement 08512 @0x1c85
0x0648…064c Statement 08496 @0x1c71
0x064c…0650 Statement 08480 @0x1c64
0x0650…0654 Statement 08464 @0x1c50
0x0654…0658 Statement 08453 @0x1c4f
0x0658…065c Statement 08448 @0x1c43
0x065c…0660 Statement 08341 @0x1c34
0x0660…0664 Statement 08336 @0x1c31
0x0664…0668 Statement 08325 @0x1c29
0x0668…066c Statement 08320 @0x1c23
0x066c…0670 Statement 08272 @0x1c19
0x0670…0674 Statement 08246 @0x1c13
0x0674…0678 Statement 08245 @0x1bee
0x0678…067c Statement 08229 @0x1be1
0x067c…0680 Statement 08224 @0x1bd3
0x0680…0684 Statement 08213 @0x1bc7
0x0684…0688 Statement 08208 @0x1ba7
0x0688…068c Statement 08197 @0x1b9a
0x068c…0690 Statement 08192 @0x1b94
0x0690…0694 Statement 06544 @0x1b61
0x0694…0698 Statement 06533 @0x1b54
0x0698…069c Statement 06528 @0x1b32
0x069c…06a0 Statement 06517 @0x1b25
0x06a0…06a4 Statement 06512 @0x1af8
0x06a4…06a8 Statement 06501 @0x1aeb
0x06a8…06ac Statement 06496 @0x1ac1
0x06ac…06b0 Statement 06485 @0x1ab4
0x06b0…06b4 Statement 06480 @0x1a8c
0x06b4…06b8 Statement 06469 @0x1a7f
0x06b8…06bc Statement 06464 @0x1a61
0x06bc…06c0 Statement 06453 @0x1a54
0x06c0…06c4 Statement 06448 @0x1a2e
0x06c4…06c8 Statement 06437 @0x1a21
0x06c8…06cc Statement 06421 @0x19e4
0x06cc…06d0 Statement 06416 @0x19d7
0x06d0…06d4 Statement 06404 @0x19be
0x06d4…06d8 Statement 06400 @0x19ba
0x06d8…06dc Statement 06288 @0x1982
0x06dc…06e0 Statement 06144 @0x1981
0x06e0…06e4 Statement 06000 @0x197e
0x06e4…06e8 Statement 05984 @0x196e
0x06e8…06ec Statement 05968 @0x1961
0x06ec…06f0 Statement 05952 @0x1950
0x06f0…06f4 Statement 05936 @0x1943
0x06f4…06f8 Statement 05920 @0x192d
0x06f8…06fc Statement 05904 @0x1920
0x06fc…0700 Statement 05888 @0x190a
0x0700…0704 Statement 05776 @0x18fd
0x0704…0708 Statement 05760 @0x18de
0x0708…070c Statement 05744 @0x18d1
0x070c…0710 Statement 05728 @0x18a5
0x0710…0714 Statement 05712 @0x187f
0x0714…0718 Statement 05696 @0x1872
0x0718…071c Statement 05680 @0x1865
0x071c…0720 Statement 05664 @0x1863
0x0720…0724 Statement 05632 @0x185d
0x0724…0728 Statement 05504 @0x1830
0x0728…072c Statement 05493 @0x182f
0x072c…0730 Statement 05424 @0x1825
0x0730…0734 Statement 05413 @0x17f9
0x0734…0738 Statement 05408 @0x17e6
0x0738…073c Statement 05397 @0x17da
0x073c…0740 Statement 05392 @0x17b0
0x0740…0744 Statement 05376 @0x17af
0x0744…0748 Statement 05248 @0x17ac
0x0748…074c Statement 05221 @0x1794
0x074c…0750 Statement 05216 @0x176d
0x0750…0754 Statement 05200 @0x175f
0x0754…0758 Statement 05189 @0x172b
0x0758…075c Statement 05184 @0x16f4
0x075c…0760 Statement 05173 @0x16f3
0x0760…0764 Statement 05168 @0x16f0
0x0764…0768 Statement 05157 @0x16b6
0x0768…076c Statement 05152 @0x1676
0x076c…0770 Statement 05141 @0x1640
0x0770…0774 Statement 05136 @0x1606
0x0774…0778 Statement 05125 @0x15d3
0x0778…077c Statement 05120 @0x15cc
0x077c…0780 Statement 05013 @0x15c5
0x0780…0784 Statement 05008 @0x15b7
0x0784…0788 Statement 04997 @0x159c
0x0788…078c Statement 04981 @0x1594
0x078c…0790 Statement 04976 @0x1565
0x0790…0794 Statement 04896 @0x1564
0x0794…0798 Statement 04880 @0x1561
0x0798…079c Statement 04864 @0x1550
0x079c…07a0 Statement 04752 @0x1527
0x07a0…07a4 Statement 04736 @0x1516
0x07a4…07a8 Statement 04720 @0x150e
0x07a8…07ac Statement 04704 @0x14db
0x07ac…07b0 Statement 04688 @0x14da
0x07b0…07b4 Statement 04672 @0x14d7
0x07b4…07b8 Statement 04656 @0x14c7
0x07b8…07bc Statement 04640 @0x14b7
0x07bc…07c0 Statement 04608 @0x1494
0x07c0…07c4 Statement 04496 @0x148c
0x07c4…07c8 Statement 04480 @0x145d
0x07c8…07cc Statement 04464 @0x142d
0x07cc…07d0 Statement 04448 @0x13fe
0x07d0…07d4 Statement 04437 @0x13fd
0x07d4…07d8 Statement 04434 @0x13fa
0x07d8…07dc Statement 04432 @0x13d8
0x07dc…07e0 Statement 04421 @0x13b6
0x07e0…07e4 Statement 04416 @0x13ad
0x07e4…07e8 Statement 04405 @0x138b
0x07e8…07ec Statement 04400 @0x1369
0x07ec…07f0 Statement 04392 @0x1360
0x07f0…07f4 Statement 04389 @0x1352
0x07f4…07f8 Statement 04384 @0x1341
0x07f8…07fc Statement 04368 @0x133e
0x07fc…0800 Statement 04354 @0x131c
0x0800…0804 Statement 04352 @0x12fa
0x0804…0808 Statement 04245 @0x12f1
0x0808…080c Statement 04240 @0x12e3
0x080c…0810 Statement 04224 @0x12d4
0x0810…0814 Statement 04216 @0x12d1
0x0814…0818 Statement 04215 @0x12b0
0x0818…081c Statement 04214 @0x128f
0x081c…0820 Statement 04212 @0x1281
0x0820…0824 Statement 04210 @0x1273
0x0824…0828 Statement 04208 @0x1262
0x0828…082c Statement 04197 @0x125f
0x082c…0830 Statement 04192 @0x1251
0x0830…0834 Statement 04176 @0x1240
0x0834…0838 Statement 04160 @0x123d
0x0838…083c Statement 04144 @0x1227
0x083c…0840 Statement 04128 @0x1216
0x0840…0844 Statement 04112 @0x1205
0x0844…0848 Statement 04096 @0x1202
0x0848…084c Statement 02448 @0x11ea
0x084c…0850 Statement 02432 @0x11d9
0x0850…0854 Statement 02416 @0x11c8
0x0854…0858 Statement 02400 @0x11c5
0x0858…085c Statement 02384 @0x11ad
0x085c…0860 Statement 02368 @0x119c
0x0860…0864 Statement 02352 @0x118b
0x0864…0868 Statement 02336 @0x1188
0x0868…086c Statement 02320 @0x1174
0x086c…0870 Statement 02309 @0x1166
0x0870…0874 Statement 02304 @0x115d
0x0874…0878 Statement 02192 @0x112b
0x0878…087c Statement 02176 @0x112a
0x087c…0880 Statement 02160 @0x1127
0x0880…0884 Statement 02144 @0x110d
0x0884…0888 Statement 02128 @0x10f0
0x0888…088c Statement 02096 @0x10e2
0x088c…0890 Statement 02080 @0x10d1
0x0890…0894 Statement 02064 @0x10c6
0x0894…0898 Statement 02054 @0x10af
0x0898…089c Statement 02053 @0x1090
0x089c…08a0 Statement 02048 @0x1083
0x08a0…08a4 Statement 01941 @0x1051
0x08a4…08a8 Statement 01936 @0x1050
0x08a8…08ac Statement 01928 @0x104d
0x08ac…08b0 Statement 01925 @0x1029
0x08b0…08b4 Statement 01877 @0x101b
0x08b4…08b8 Statement 01872 @0x1012
0x08b8…08bc Statement 01861 @0xfe5
0x08bc…08c0 Statement 01680 @0xfe4
0x08c0…08c4 Statement 01669 @0xfe1
0x08c4…08c8 Statement 01592 @0xfba
0x08c8…08cc Statement 01394 @0xfa9
0x08cc…08d0 Statement 01393 @0xf9c
0x08d0…08d4 Statement 01392 @0xf8d
0x08d4…08d8 Statement 01385 @0xf7e
0x08d8…08dc Statement 01384 @0xf6d
0x08dc…08e0 Statement 01383 @0xf60
0x08e0…08e4 Statement 01382 @0xf44
0x08e4…08e8 Statement 01380 @0xf35
0x08e8…08ec Statement 01379 @0xf26
0x08ec…08f0 Statement 01378 @0xf1e
0x08f0…08f4 Statement 01377 @0xef2
0x08f4…08f8 Statement 01376 @0xeda
0x08f8…08fc Statement 01365 @0xed9
0x08fc…0900 Statement 01360 @0xed6
0x0900…0904 Statement 01349 @0xeb8
0x0904…0908 Statement 01344 @0xe96
0x0908…090c Statement 01333 @0xe80
0x090c…0910 Statement 01328 @0xe76
0x0910…0914 Statement 01317 @0xe48
0x0914…0918 Statement 01312 @0xe21
0x0918…091c Statement 01301 @0xdf1
0x091c…0920 Statement 01296 @0xdd9
0x0920…0924 Statement 01285 @0xdb6
0x0924…0928 Statement 01136 @0xdb5
0x0928…092c Statement 01120 @0xdb2
0x092c…0930 Statement 01104 @0xdb1
0x0930…0934 Statement 01088 @0xda0
0x0934…0938 Statement 01072 @0xd8c
0x0938…093c Statement 01056 @0xd7c
0x093c…0940 Statement 01040 @0xd6c
0x0940…0944 Statement 01024 @0xd5c
0x0944…0948 Statement 00912 @0xd4c
0x0948…094c Statement 00896 @0xd49
0x094c…0950 Statement 00880 @0xd48
0x0950…0954 Statement 00869 @0xd41
0x0954…0958 Statement 00864 @0xd2d
0x0958…095c Statement 00853 @0xd1a
0x095c…0960 Statement 00848 @0xd0e
0x0960…0964 Statement 00832 @0xcfa
0x0964…0968 Statement 00816 @0xce0
0x0968…096c Statement 00800 @0xcc6
0x096c…0970 Statement 00784 @0xcbb
0x0970…0974 Statement 00768 @0xcb2
0x0974…0978 Statement 00660 @0xcaf
0x0978…097c Statement 00658 @0xca2
0x097c…0980 Statement 00656 @0xc9c
0x0980…0984 Statement 00640 @0xc99
0x0984…0988 Statement 00624 @0xc98
0x0988…098c Statement 00608 @0xc8b
0x098c…0990 Statement 00592 @0xc65
0x0990…0994 Statement 00576 @0xc58
0x0994…0998 Statement 00560 @0xc3f
0x0998…099c Statement 00544 @0xc36
0x099c…09a0 Statement 00528 @0xc29
0x09a0…09a4 Statement 00512 @0xc1c
0x09a4…09a8 Statement 00400 @0xc09
0x09a8…09ac Statement 00384 @0xbfe
0x09ac…09b0 Statement 00368 @0xbf3
0x09b0…09b4 Statement 00320 @0xbe9
0x09b4…09b8 Statement 00304 @0xbe3
0x09b8…09bc Statement 00293 @0xbdd
0x09bc…09c0 Statement 00288 @0xbd9
0x09c0…09c4 Statement 00272 @0xbd6
0x09c4…09c8 Statement 00256 @0xba2
0x09c8…09cc Statement 00144 @0xb9b
0x09cc…09d0 Statement 00133 @0xb8f
0x09d0…09d4 Statement 00118 @0xb88
0x09d4…09d8 Statement 00117 @0xb77
0x09d8…09dc Statement 00115 @0xb70
0x09dc…09e0 Statement 00114 @0xb69
0x09e0…09e4 Statement 00112 @0xb62
0x09e4…09e8 Statement 00102 @0xb55
0x09e8…09ec Statement 00096 @0xb4c
0x09ec…09f0 Statement 00048 @0xb41
0x09f0…09f4 Statement 00037 @0xb32
0x09f4…09f8 Statement 00034 @0xaeb
0x09f8…09fc Statement 00032 @0xadb
0x09fc…0a00 Statement 00021 @0xac7
0x0a00…0a04 Statement 00016 @0xaa4
0x0a04…0a08 Statement 00009 @0xa9e
0x0a08…0a0c Statement 00008 @0xa8e
0x0a0c…0a10 Statement 00007 @0xa66
0x0a10…0a14 Statement 00006 @0xa58
0x0a14…0a18 Statement 00005 @0xa3c
0x0a18…0a1c Statement 00002 @0xa2e
0x0a1c…0a20 Statement 00001 @0xa20
0x0a20…0a2e 0001 COM ELEMENT var(T0$) ( 8 ) [] ELEMENT var(T2$) ( 24 ) [] EOS
0x0a2e…0a3c 0002 COM ELEMENT var(A$) ( 1 ) [] ELEMENT var(C$) ( 1 ) [] EOS
0x0a3c…0a58 0005 COM ELEMENT var(N1$) ( 20 ) [] ELEMENT var(N2$) ( 20 ) [] ELEMENT var(N3$) ( 20 ) [] ELEMENT var(T9$) ( %80 ) [] EOS
0x0a58…0a66 0006 COM ELEMENT var(P$) ( 8 ) [] ELEMENT var(Q$) ( 8 ) [] EOS
0x0a66…0a8e 0007 COM ELEMENT var(P') ( 5 ) [] ELEMENT var(Q') ( 5 ) [] ELEMENT var(X1') ( 5 ) [] ELEMENT var(Y1') ( 5 ) [] ELEMENT var(X2') ( 5 ) [] ELEMENT var(Y2') ( 5 ) [] EOS
0x0a8e…0a9e 0008 COM ELEMENT var(W$) ( 1 ) [] var(S0) var(X7) var(Y7) var(V0) var(V1) var(P1) var(W8) var(W9) EOS
0x0a9e…0aa4 0009 COM var(M0) var(M9%) var(D9) var(Q0) EOS
0x0aa4…0ac7 0010 DIM ELEMENT var(X$) ( %70 ) [] ELEMENT var(P0$) ( 8 ) [] ELEMENT var(L0$) ( 1 ) [] ELEMENT var(Z0$) ( 1 ) [] ELEMENT var(S0$) ( 2 1 ) [] EOS
0x0ac7…0adb 0015 DIM ELEMENT var(S$) ( 1 ) [] ELEMENT var(Q9$) ( 6 ) [] ELEMENT var(T1$) ( 8 ) [] EOS
0x0adb…0aeb 0020 DIM ELEMENT var(D0') ( 7 ) [] ELEMENT var(Z$) ( %70 ) [] EOS
0x0aeb…0b32 0022 REM ----------PLOT.2.BP rev. april 1983------ Copyright VIAK a/s------
0x0b32…0b41 0025 SYSTEM »LINELEN« COMMA %80 EOS
0x0b41…0b4c 0030 SYSTEM »WARNOFF« EOS
0x0b4c…0b55 0060 LET var(X0) COMMA 0 COMMA var(Y0) COMMA 0 EOS
0x0b55…0b62 0066 LET var(P1) COMMA 3.14159 EOS
0x0b62…0b69 0070 LET var(P2) COMMA var(P1) 2 MULT EOS
0x0b69…0b70 0072 LET var(P0) COMMA var(P1) 2 DIV EOS
0x0b70…0b77 0073 LET var(P5) COMMA var(P1) 8 DIV EOS
0x0b77…0b88 0075 LET var(Z9) COMMA 2 var(M0) MULT 1000 DIV EOS
0x0b88…0b8f 0076 LET var(Z8) COMMA var(Z9) 2 DIV EOS
0x0b8f…0b9b 0085 LET var(Q9$) COMMA »DDDDDD« EOS
0x0b9b…0ba2 0090 LET var(Q0) COMMA var(S0) var(M0) DIV EOS
0x0ba2…0bd6 0100 REM -----------Read current parameters ------------
0x0bd6…0bd9 0110 DEF var(FNA%) EOS
0x0bd9…0bdd 0120 RESTORE 2# EOS
0x0bdd…0be3 0125 REM C
0x0be3…0be9 0130 LINPUT 3# SEMI var(X$) EOS
0x0be9…0bf3 0140 IF = ( 3 ) → b1f10500f3
0x0bf3…0bfe 0170 LET var(Z0$) COMMA ELEMENT var(X$) ( 11 11 ) [] EOS
0x0bfe…0c09 0180 LET var(T0$) COMMA ELEMENT var(X$) ( 1 8 ) [] EOS
0x0c09…0c1c 0190 IF ELEMENT var(T0$) ( 1 4 ) [] »MESS« <> COMMA 0 → 9002
0x0c1c…0c29 0200 LET var(X%) COMMA = ( 3 13 14 ) var(FNC%) EOS
0x0c29…0c36 0210 PRINT ELEMENT var(X$) ( 13 = ( var(X$) ) LEN ) [] EOS
0x0c36…0c3f 0220 IF var(Z0$) »H« EQ COMMA 34 EOS
0x0c3f…0c58 0230 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x0c58…0c65 0240 LET var(X%) COMMA = ( 2 20 5 ) var(FNC%) EOS
0x0c65…0c8b 0250 LINPUT »Trykk return for aa fortsette : « COMMA var(X$) EOS
0x0c8b…0c98 0260 LET var(X%) COMMA = ( 3 20 5 ) var(FNC%) EOS
0x0c98…0c99 0270 DOEND
0x0c99…0c9c 0280 GOTO 37 1
0x0c9c…0ca2 0290 REM C
0x0ca2…0caf 0292 LET var(X%) COMMA = ( 3 10 12 ) var(FNC%) EOS
0x0caf…0cb2 0294 PRINT var(X$) EOS
0x0cb2…0cbb 0300 IF var(Z0$) »L« EQ COMMA 34 EOS
0x0cbb…0cc6 0310 LET var(L0$) COMMA ELEMENT var(X$) ( 13 13 ) [] EOS
0x0cc6…0ce0 0320 IF ELEMENT var(X$) ( 14 14 ) [] » « EQ COMMA 27 ELEMENT var(X$) ( 14 14 ) [] COMMA »0« EOS
0x0ce0…0cfa 0330 IF ELEMENT var(X$) ( 15 15 ) [] » « EQ COMMA 27 ELEMENT var(X$) ( 15 15 ) [] COMMA »0« EOS
0x0cfa…0d0e 0340 LET var(L0%) COMMA = ( = ( ELEMENT var(X$) ( 14 15 ) [] ) VAL ) → a1f3
0x0d0e…0d1a 0350 IF var(L0%) 0 EQ COMMA 27 var(L0%) COMMA 5 EOS
0x0d1a…0d2d 0355 IF ELEMENT var(X$) ( 16 16 ) [] »S« EQ COMMA 27 var(F0%) COMMA 2 EOS
0x0d2d…0d41 0360 ELSE 3 ELEMENT var(X$) ( 16 16 ) [] »B« EQ COMMA 27 var(F0%) COMMA 3 EOS
0x0d41…0d48 0365 ELSE 27 var(F0%) COMMA 1 EOS
0x0d48…0d49 0370 DOEND
0x0d49…0d4c 0380 ELSE 34 EOS
0x0d4c…0d5c 0390 LET ELEMENT var(S0$) ( 1 ) [] COMMA ELEMENT var(X$) ( 13 13 ) [] EOS
0x0d5c…0d6c 0400 LET ELEMENT var(S0$) ( 2 ) [] COMMA ELEMENT var(X$) ( 14 14 ) [] EOS
0x0d6c…0d7c 0410 LET var(V0%) COMMA ELEMENT var(X$) ( 15 15 ) [] »P« EQ EOS
0x0d7c…0d8c 0420 LET var(W0%) COMMA ELEMENT var(X$) ( 16 16 ) [] »Z« EQ EOS
0x0d8c…0da0 0430 IF ELEMENT var(X$) ( 17 18 ) [] » « EQ COMMA 27 var(H1) COMMA 3 EOS
0x0da0…0db1 0440 ELSE 27 var(H1) COMMA = ( ELEMENT var(X$) ( 17 18 ) [] ) VAL EOS
0x0db1…0db2 0450 DOEND
0x0db2…0db5 0460 RETURN 1 EOS
0x0db5…0db6 0470 FNEND
0x0db6…0dd9 0505 REM ****** SCREEN-HANDLER ********
0x0dd9…0df1 0510 REM C1%=1 ERASE SCREEN
0x0df1…0e21 0515 REM 2 CURSOR ADRESSING TO LINE C2%,POS C3%
0x0e21…0e48 0520 REM 3 ERASE LINE C2% FROM POS C3%
0x0e48…0e76 0525 REM 4 ERASE SCREEN FROM LINE C2% POS C3%
0x0e76…0e80 0530 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x0e80…0e96 0535 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af71736f450074afe2f2f3
0x0e96…0eb8 0540 PRINT = ( 27 ) → af71736f460074afe271731f4009e274afe271731f400ae274afe2f2f3
0x0eb8…0ed6 0545 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → af71736f4e004008e374afe2f2f3
0x0ed6…0ed9 0550 RETURN 1 EOS
0x0ed9…0eda 0555 FNEND
0x0eda…0ef2 0560 DEF var(FNM%) var(A%) var(B%) 5 var(A%) = ( var(A%) var(B%) DIV ) → a1400de4e3f3
0x0ef2…0f1e 0561 REM TEKTRONIX-FORSATS----------------------
0x0f1e…0f26 0562 DEF var(FNF%) var(X%) var(Y%) EOS
0x0f26…0f35 0563 LET var(I%) COMMA = ( var(Y%) %128 DIV ) → a1f3
0x0f35…0f44 0564 LET var(A%) COMMA = ( var(I%) 32 ) var(FNM%) 32 PLUS EOS
0x0f44…0f60 0566 LET var(B%) COMMA = ( var(Y%) 4 ) var(FNM%) 4 MULT = ( var(X%) 4 ) var(FNM%) PLUS %96 PLUS EOS
0x0f60…0f6d 0567 LET var(I%) COMMA = ( var(Y%) 4 DIV ) → a1f3
0x0f6d…0f7e 0568 LET var(C%) COMMA = ( var(I%) 32 ) var(FNM%) %96 PLUS EOS
0x0f7e…0f8d 0569 LET var(I%) COMMA = ( var(X%) %128 DIV ) → a1f3
0x0f8d…0f9c 0570 LET var(D%) COMMA = ( var(I%) 32 ) var(FNM%) 32 PLUS EOS
0x0f9c…0fa9 0571 LET var(I%) COMMA = ( var(X%) 4 DIV ) → a1f3
0x0fa9…0fba 0572 LET var(E%) COMMA = ( var(I%) 32 ) var(FNM%) %64 PLUS EOS
0x0fba…0fe1 0638 PRINT 5# SEMI = ( var(A%) ) → af7173400d74afe27173401174afe27173401274afe27173401374afe2f3
0x0fe1…0fe4 0685 RETURN 1 EOS
0x0fe4…0fe5 0690 FNEND
0x0fe5…1012 0745 REM --------- PLOT COORDINATE --------------
0x1012…101b 0750 DEF var(FNP%) var(X) var(Y) var(S$) EOS
0x101b…1029 0755 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x1029…104d 0785 PRINT 5# SEMI var(S$) SEMI USING »DDDDDD« COMMA var(Y3) SEMI »,« SEMI USING »DDDDDD« COMMA var(X3) EOS
0x104d…1050 0788 RETURN 1 EOS
0x1050…1051 0790 FNEND
0x1051…1083 0795 REM --------- OUTPUT STRING ---------------------
0x1083…1090 0800 DEF var(FNX%) var(X) var(Y) var(H) var(V) var(X$) EOS
0x1090…10af 0805 IF var(V) 360 > COMMA 27 var(V) COMMA var(V) 360 SUB2 EOS
0x10af…10c6 0806 IF var(V) 0 ?< COMMA 27 var(V) COMMA var(V) 360 PLUS EOS
0x10c6…10d1 0810 LET var(V) COMMA var(V) %100 MULT EOS
0x10d1…10e2 0820 LET var(H) COMMA var(H) 3.333 MULT EOS
0x10e2…10f0 0830 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x10f0…110d 0850 PRINT 5# SEMI »L« SEMI USING var(Q9$) COMMA var(V) SEMI »,« SEMI USING var(Q9$) COMMA var(H) SEMI »,« SEMI EOS
0x110d…1127 0860 PRINT 5# SEMI USING var(Q9$) COMMA var(Y3) SEMI »,« SEMI USING var(Q9$) COMMA var(X3) SEMI »,« SEMI var(X$) EOS
0x1127…112a 0870 RETURN 1 EOS
0x112a…112b 0880 FNEND
0x112b…115d 0890 REM ----------- SELECT SYMBOL -------------------
0x115d…1166 0900 DEF var(FNT%) var(X) var(Y) var(Z$) EOS
0x1166…1174 0905 LET var(X%) COMMA = ( var(Z$) ) → ac6f4000e3f3
0x1174…1188 0910 ON var(X%) COMMA 0 → 8010201130097009101050107010f3
0x1188…118b 0920 RETURN 1 EOS
0x118b…119c 0930 REM ==> SYMBOL C
0x119c…11ad 0940 LET var(H) COMMA var(H1) 1.5 MULT EOS
0x11ad…11c5 0950 LET var(X%) COMMA = ( var(X) var(Y) var(H) var(V1) = ( %115 ) → af744019f3
0x11c5…11c8 0960 RETURN 1 EOS
0x11c8…11d9 0970 REM ==> SYMBOL D
0x11d9…11ea 0980 LET var(H) COMMA var(H1) 1.5 MULT EOS
0x11ea…1202 0990 LET var(X%) COMMA = ( var(X) var(Y) var(H) var(V1) = ( %122 ) → af744019f3
0x1202…1205 1000 RETURN 1 EOS
0x1205…1216 1010 REM ==> SYMBOL E
0x1216…1227 1020 LET var(H) COMMA 1.5 var(H1) MULT EOS
0x1227…123d 1030 LET var(X%) COMMA = ( var(X) var(Y) var(H) var(V1) = ( 42 ) → af744019f3
0x123d…1240 1040 RETURN 1 EOS
0x1240…1251 1050 REM ==> SYMBOL F
0x1251…125f 1060 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNE%) EOS
0x125f…1262 1065 RETURN 1 EOS
0x1262…1273 1070 REM ==> SYMBOL G
0x1273…1281 1072 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNE%) EOS
0x1281…128f 1074 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x128f…12b0 1076 LET var(X%) COMMA = ( var(Y3) var(X3) 10 18000 18001 ) var(FNE1%) EOS
0x12b0…12d1 1077 LET var(X%) COMMA = ( var(Y3) var(X3) 10 18001 20000 ) var(FNE1%) EOS
0x12d1…12d4 1078 RETURN 1 EOS
0x12d4…12e3 1080 REM ==>SYMBOL A
0x12e3…12f1 1090 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x12f1…12fa 1095 LET var(R) COMMA var(H1) 10 MULT EOS
0x12fa…131c 1100 LET var(X%) COMMA = ( var(Y3) var(X3) var(R) 18000 18001 ) var(FNE1%) EOS
0x131c…133e 1102 LET var(X%) COMMA = ( var(Y3) var(X3) var(R) 18001 20000 ) var(FNE1%) EOS
0x133e…1341 1110 RETURN 1 EOS
0x1341…1352 1120 REM ==> SYMBOL B
0x1352…1360 1125 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x1360…1369 1128 LET var(R) COMMA var(H1) 10 MULT EOS
0x1369…138b 1130 LET var(X%) COMMA = ( var(Y3) var(X3) var(R) 18000 18001 ) var(FNE1%) EOS
0x138b…13ad 1135 LET var(X%) COMMA = ( var(Y3) var(X3) var(R) 18000 18001 ) var(FNE1%) EOS
0x13ad…13b6 1140 LET var(R) COMMA var(H1) 5 MULT EOS
0x13b6…13d8 1145 LET var(X%) COMMA = ( var(Y3) var(X3) var(R) 18000 18001 ) var(FNE1%) EOS
0x13d8…13fa 1150 LET var(X%) COMMA = ( var(Y3) var(X3) var(R) 18001 20000 ) var(FNE1%) EOS
0x13fa…13fd 1152 RETURN 1 EOS
0x13fd…13fe 1155 FNEND
0x13fe…142d 1160 REM ------------DISTANCE----------------------
0x142d…145d 1170 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
0x145d…148c 1180 REM ---------- COMPUTE PLOTTING-UNITS --------
0x148c…1494 1190 DEF var(FNZ%) var(X) var(Y) EOS
0x1494…14b7 1200 LET var(Q1) COMMA var(Q0) ( var(X) ELEMENT var(X1') ( 1 ) [] SUB2 ) MULT COMMA var(Q2) COMMA var(Q0) ( var(Y) ELEMENT var(Y1') ( 1 ) [] SUB2 ) MULT EOS
0x14b7…14c7 1220 LET var(X3) COMMA var(X7) var(Q1) var(W9) MULT PLUS var(Q2) var(W8) MULT SUB2 EOS
0x14c7…14d7 1230 LET var(Y3) COMMA var(Y7) var(Q2) var(W9) MULT PLUS var(Q1) var(W8) MULT PLUS EOS
0x14d7…14da 1240 RETURN 1 EOS
0x14da…14db 1250 FNEND
0x14db…150e 1260 REM -------------- PLOT SINGLE POINT -------------
0x150e…1516 1270 DEF var(FNQ%) var(X) var(Y) EOS
0x1516…1527 1280 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x1527…1550 1290 LET var(X%) COMMA = ( var(X) 0.00015 var(M0) MULT PLUS var(Y) 0.00015 var(M0) MULT PLUS »D« ) var(FNP%) EOS
0x1550…1561 1300 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x1561…1564 1310 RETURN 1 EOS
0x1564…1565 1320 FNEND
0x1565…1594 1370 REM ----------- DRAW TREE-SYMBOL -------------
0x1594…159c 1375 DEF var(FNE%) var(X) var(Y) EOS
0x159c…15b7 1385 LET var(J) COMMA ( var(H1) var(S0) MULT ) ( 2000 %130 MULT ) DIV EOS
0x15b7…15c5 1390 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x15c5…15cc 1395 LET var(X) COMMA var(Y3) EOS
0x15cc…15d3 1400 LET var(Y) COMMA var(X3) EOS
0x15d3…1606 1405 LET var(X%) COMMA = ( var(X) var(J) 300 MULT var(Y) PLUS var(J) %250 MULT 17000 35900 ) var(FNE1%) EOS
0x1606…1640 1410 LET var(X%) COMMA = ( var(J) %220 MULT var(X) PLUS var(J) %70 MULT var(Y) PLUS var(J) 280 MULT 8600 27000 ) var(FNE1%) EOS
0x1640…1676 1415 LET var(X%) COMMA = ( var(J) 30 MULT var(X) PLUS var(J) -190 MULT var(Y) PLUS var(J) 280 MULT 0 21000 ) var(FNE1%) EOS
0x1676…16b6 1420 LET var(X%) COMMA = ( var(J) -255 MULT var(X) PLUS var(J) -200 MULT var(Y) PLUS var(J) %230 MULT 29800 12500 ) var(FNE1%) EOS
0x16b6…16f0 1425 LET var(X%) COMMA = ( var(J) -270 MULT var(X) PLUS var(J) %115 MULT var(Y) PLUS var(J) %250 MULT 22800 7000 ) var(FNE1%) EOS
0x16f0…16f3 1430 RETURN 1 EOS
0x16f3…16f4 1435 FNEND
0x16f4…172b 1440 REM ---------- DRAW CIRCLE ANTI-CLOCKWISE ------------
0x172b…175f 1445 REM ----X,Y IN PLOTTING-UNITS----------------------
0x175f…176d 1450 DEF var(FNE1%) var(X) var(Y) var(R) var(S) var(E) EOS
0x176d…1794 1460 PRINT 5# SEMI »E« SEMI USING var(Q9$) COMMA var(X) SEMI »,« SEMI USING var(Q9$) COMMA var(Y) SEMI »,« SEMI USING var(Q9$) COMMA var(R) SEMI »,« SEMI EOS
0x1794…17ac 1465 PRINT 5# SEMI »C« SEMI USING var(Q9$) COMMA var(S) SEMI »,« SEMI USING var(Q9$) COMMA var(E) EOS
0x17ac…17af 1480 RETURN 1 EOS
0x17af…17b0 1500 FNEND
0x17b0…17da 1510 REM ------------ RETNINGSVINKEL ---------
0x17da…17e6 1515 DEF var(FNV) var(X1) var(Y1) var(X2) var(Y2) EOS
0x17e6…17f9 1520 LET var(X) COMMA var(X2) var(X1) SUB2 COMMA var(Y) COMMA var(Y2) var(Y1) SUB2 EOS
0x17f9…1825 1525 IF = ( var(Y) ) ?ABS 1e-06 > COMMA 5 = ( = ( var(X) var(Y) DIV ) → aa69e374a25673401500e874e4e2f3
0x1825…182f 1530 RETURN var(P1) ( var(X) 0 ?< ) MULT EOS
0x182f…1830 1575 FNEND
0x1830…185d 1580 REM ----------- PRINT HEADING --------------
0x185d…1863 1600 DEF var(FNK%) var(I%) EOS
0x1863…1865 1620 PRINT EOS
0x1865…1872 1630 LET var(X%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x1872…187f 1640 LET var(X%) COMMA = ( 2 1 5 ) var(FNC%) EOS
0x187f…18a5 1650 IF var(I%) 2 EQ COMMA 15 »Tegning av spesifisert tema.« EOS
0x18a5…18d1 1660 ELSE 15 »Parameterfilen prosesseres sekvensielt.« EOS
0x18d1…18de 1670 LET var(X%) COMMA = ( 2 3 5 ) var(FNC%) EOS
0x18de…18fd 1680 PRINT »Trykk escape for aa avbryte« EOS
0x18fd…190a 1690 LET var(X%) COMMA = ( 2 8 12 ) var(FNC%) EOS
0x190a…1920 1700 PRINT »Temakode Opsjoner« EOS
0x1920…192d 1710 LET var(X%) COMMA = ( 2 9 12 ) var(FNC%) EOS
0x192d…1943 1720 PRINT »------------------« EOS
0x1943…1950 1730 LET var(X%) COMMA = ( 2 13 1 ) var(FNC%) EOS
0x1950…1961 1740 PRINT » Oplysning : « EOS
0x1961…196e 1750 LET var(X%) COMMA = ( 2 15 1 ) var(FNC%) EOS
0x196e…197e 1760 PRINT » Koordinat :« EOS
0x197e…1981 1770 RETURN 1 EOS
0x1981…1982 1800 FNEND
0x1982…19ba 1890 REM ------------- Interrupt-menu ----------------------
0x19ba…19be 1900 DEF var(FNJ%) EOS
0x19be…19d7 1904 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x19d7…19e4 1910 LET var(X%) COMMA = ( 1 1 5 ) var(FNC%) EOS
0x19e4…1a21 1915 PRINT »Stopp i recordnr.« SEMI var(I8%) SEMI » i sekvens « SEMI var(I1%) SEMI »-« SEMI var(I2%) SEMI » i tema « SEMI var(T0$) EOS
0x1a21…1a2e 1925 LET var(X%) COMMA = ( 2 5 5 ) var(FNC%) EOS
0x1a2e…1a54 1930 PRINT »1 ==> Fortsett fra siste koordinat« EOS
0x1a54…1a61 1935 LET var(X%) COMMA = ( 2 6 5 ) var(FNC%) EOS
0x1a61…1a7f 1940 PRINT »2 ==> Gjenta siste sekvens« EOS
0x1a7f…1a8c 1945 LET var(X%) COMMA = ( 2 7 5 ) var(FNC%) EOS
0x1a8c…1ab4 1950 PRINT »3 ==> Start fra og med neste sekvens« EOS
0x1ab4…1ac1 1955 LET var(X%) COMMA = ( 2 8 5 ) var(FNC%) EOS
0x1ac1…1aeb 1960 PRINT »4 ==> Start fra og med forrige sekvens« EOS
0x1aeb…1af8 1965 LET var(X%) COMMA = ( 2 9 5 ) var(FNC%) EOS
0x1af8…1b25 1970 PRINT »5 ==> Start fra selvvalgt koordinatrecord« EOS
0x1b25…1b32 1975 LET var(X%) COMMA = ( 2 10 5 ) var(FNC%) EOS
0x1b32…1b54 1980 PRINT »6 ==> Start fra selvvalgt tema« EOS
0x1b54…1b61 1985 LET var(X%) COMMA = ( 2 11 5 ) var(FNC%) EOS
0x1b61…1b94 1990 PRINT »7 ==> Avslutt tegning og returner til hovedmeny« EOS
0x1b94…1b9a 2000 REM C
0x1b9a…1ba7 2005 LET var(X%) COMMA = ( 3 14 5 ) var(FNC%) EOS
0x1ba7…1bc7 2010 LINPUT »* --> Gi kommando (1-7) : « COMMA var(X$) EOS
0x1bc7…1bd3 2015 LET var(I%) COMMA = ( var(X$) ) → ac30e3f3
0x1bd3…1be1 2020 IF var(I%) 7 > var(I%) 1 ?< OR COMMA 0 0 32
0x1be1…1bee 2025 LET var(X%) COMMA = ( 3 14 5 ) var(FNC%) EOS
0x1bee…1c13 2035 PRINT »Er « SEMI var(I%) SEMI » riktig valg ? (J/N) : « SEMI EOS
0x1c13…1c19 2036 LINPUT »« COMMA var(X$) EOS
0x1c19…1c23 2050 IF var(X$) »J« <> COMMA 0 0 32
0x1c23…1c29 2080 LET var(J%) COMMA 1 EOS
0x1c29…1c31 2085 IF var(I%) 1 EQ COMMA 34 EOS
0x1c31…1c34 2090 GOSUB 0 → 90
0x1c34…1c43 2095 LET var(X%) COMMA = ( var(X0) var(Y0) »U« ) var(FNP%) EOS
0x1c43…1c4f 2100 LET var(J%) COMMA 2 COMMA var(I1%) COMMA var(I8%) EOS
0x1c4f…1c50 2105 DOEND
0x1c50…1c64 2110 ELSE 3 var(I%) 2 EQ COMMA 33 3 SEMI -41 EOS
0x1c64…1c71 2120 ELSE 3 var(I%) 3 EQ COMMA 27 var(J%) COMMA 1 EOS
0x1c71…1c85 2130 ELSE 3 var(I%) 4 EQ COMMA 33 3 SEMI -82 EOS
0x1c85…1c8e 2140 ELSE 3 var(I%) 5 EQ COMMA 34 EOS
0x1c8e…1c94 2141 REM C
0x1c94…1c98 2142 TRAP ERR 2141
0x1c98…1ca5 2145 LET var(X%) COMMA = ( 3 14 5 ) var(FNC%) EOS
0x1ca5…1cdc 2150 INPUT »Gi startrecord i avbrudt sekvens (Se ovenfor) : « COMMA var(I%) EOS
0x1cdc…1cdf 2155 TRAP ERR OFF
0x1cdf…1cef 2160 IF var(I%) var(I2%) > var(I%) var(I1%) ?< OR COMMA 0 var(T0$) 33
0x1cef…1cfc 2170 LET var(X%) COMMA = ( 3 14 5 ) var(FNC%) EOS
0x1cfc…1d2b 2175 PRINT »*--> Er « SEMI var(I%) SEMI » riktig gjenstart ? (J/N) : « SEMI EOS
0x1d2b…1d31 2176 LINPUT »« COMMA var(X$) EOS
0x1d31…1d3b 2180 IF var(X$) »J« <> COMMA 0 0 32
0x1d3b…1d4d 2182 LET var(I8%) COMMA var(I%) COMMA var(I1%) COMMA var(I%) COMMA var(J%) COMMA 2 EOS
0x1d4d…1d50 2183 GOSUB 0 → 90
0x1d50…1d58 2184 LET var(X%) COMMA = var(FNP9%) EOS
0x1d58…1d59 2190 DOEND
0x1d59…1d66 2200 ELSE 3 var(I%) 6 EQ COMMA 27 var(J%) COMMA 3 EOS
0x1d66…1d6d 2210 ELSE 27 var(J%) COMMA 4 EOS
0x1d6d…1d78 2220 LET var(X%) COMMA = ( var(M9%) ) var(FNK%) EOS
0x1d78…1d7c 2225 RETURN var(J%) EOS
0x1d7c…1d7d 2230 FNEND
0x1d7d…1dad 2395 REM ----------- INITIATE LINE -----------------
0x1dad…1db1 2400 DEF var(FNP9%) EOS
0x1db1…1dc0 2405 LET var(X%) COMMA = ( var(X0) var(Y0) »U« ) var(FNP%) EOS
0x1dc0…1dd9 2415 LET ELEMENT var(D0') ( 7 ) [] COMMA 0 COMMA var(L8%) COMMA 1 COMMA var(G3) COMMA var(X0) COMMA var(G4) COMMA var(Y0) EOS
0x1dd9…1dfd 2440 LET var(J8%) COMMA 1 COMMA var(A1) COMMA 0 COMMA var(B1) COMMA 0 COMMA var(A2) COMMA var(X0) COMMA var(B2) COMMA var(Y0) COMMA var(F1%) COMMA 0 COMMA var(W2) COMMA 0 EOS
0x1dfd…1e10 2490 ON = ( var(L0$) ) → ac6f4000e3f100802605263026f3
0x1e10…1e13 2500 RETURN 1 EOS
0x1e13…1e25 2605 REM C LINJETYPE B
0x1e25…1e3c 2610 LET ELEMENT var(D0') ( 1 ) [] COMMA var(M0) var(L0%) MULT 0.001 MULT EOS
0x1e3c…1e51 2615 LET ELEMENT var(D0') ( 2 ) [] COMMA var(M0) SUB1 0.001 MULT EOS
0x1e51…1e57 2620 LET var(L9%) COMMA 2 EOS
0x1e57…1e5a 2625 RETURN 1 EOS
0x1e5a…1e6c 2630 REM C LINJETYPE C
0x1e6c…1e83 2635 LET ELEMENT var(D0') ( 1 ) [] COMMA var(M0) var(L0%) MULT 0.001 MULT EOS
0x1e83…1e98 2640 LET ELEMENT var(D0') ( 2 ) [] COMMA var(M0) SUB1 0.001 MULT EOS
0x1e98…1eaf 2645 LET ELEMENT var(D0') ( 3 ) [] COMMA var(M0) var(L0%) MULT 0.001 MULT EOS
0x1eaf…1ec4 2650 LET ELEMENT var(D0') ( 4 ) [] COMMA var(M0) SUB1 0.001 MULT EOS
0x1ec4…1ed8 2655 LET ELEMENT var(D0') ( 5 ) [] COMMA var(M0) 0.001 MULT EOS
0x1ed8…1eed 2660 LET ELEMENT var(D0') ( 6 ) [] COMMA var(M0) SUB1 0.001 MULT EOS
0x1eed…1ef3 2665 LET var(L9%) COMMA 6 EOS
0x1ef3…1ef9 2680 REM C
0x1ef9…1efc 2685 RETURN 1 EOS
0x1efc…1efd 2690 FNEND
0x1efd…1f2e 2695 REM ------------ OUTPUT SPLINE-LINE-SEGMENT-----
0x1f2e…1f36 2700 DEF var(FNP1%) var(P) var(Q) EOS
0x1f36…1f40 2702 IF var(L0$) »A« <> COMMA 0 32 39
0x1f40…1f51 2705 LET var(X%) COMMA = ( var(P) var(Q) »D« ) var(FNP%) EOS
0x1f51…1f54 2715 RETURN 1 EOS
0x1f54…1f66 2720 REM STIPLET LINJE
0x1f66…1f8e 2725 LET var(D) COMMA = ( ( var(P) var(G3) SUB2 ) ( var(P) var(G3) SUB2 ) MULT ( var(Q) var(G4) SUB2 ) ( var(Q) var(G4) SUB2 ) MULT PLUS ) SQR EOS
0x1f8e…1f94 2730 REM C
0x1f94…1fa7 2735 LET var(G7) COMMA var(P) var(G3) SUB2 COMMA var(G8) COMMA var(Q) var(G4) SUB2 EOS
0x1fa7…1fc0 2740 IF ELEMENT var(D0') ( 7 ) [] 0 <> COMMA 27 var(G1) COMMA = ( ELEMENT var(D0') ( 7 ) [] ) ?ABS EOS
0x1fc0…1fd1 2745 ELSE 27 var(G1) COMMA = ( ELEMENT var(D0') ( var(L8%) ) [] ) ?ABS EOS
0x1fd1…1fdb 2750 IF var(G1) var(D) > COMMA 0 32 40
0x1fdb…1feb 2755 LET var(G3) COMMA var(G3) var(G7) var(G1) MULT var(D) DIV PLUS EOS
0x1feb…1ffb 2760 LET var(G4) COMMA var(G4) var(G8) var(G1) MULT var(D) DIV PLUS EOS
0x1ffb…2017 2765 IF ELEMENT var(D0') ( var(L8%) ) [] 0 ?< COMMA 27 var(X%) COMMA = ( var(G3) var(G4) »U« ) var(FNP%) EOS
0x2017…2029 2770 ELSE 27 var(X%) COMMA = ( var(G3) var(G4) »D« ) var(FNP%) EOS
0x2029…2044 2800 LET ELEMENT var(D0') ( 7 ) [] COMMA 0 COMMA var(D) COMMA var(D) var(G1) SUB2 COMMA var(L8%) COMMA var(L8%) 1 PLUS EOS
0x2044…2051 2815 IF var(L8%) var(L9%) > COMMA 27 var(L8%) COMMA 1 EOS
0x2051…2054 2817 GOTO 48 39
0x2054…205a 2820 REM C
0x205a…2076 2830 IF ELEMENT var(D0') ( var(L8%) ) [] 0 ?< COMMA 27 var(X%) COMMA = ( var(P) var(Q) »U« ) var(FNP%) EOS
0x2076…2088 2840 ELSE 27 var(X%) COMMA = ( var(P) var(Q) »D« ) var(FNP%) EOS
0x2088…20a2 2850 LET ELEMENT var(D0') ( 7 ) [] COMMA var(G1) var(D) SUB2 COMMA var(G3) COMMA var(P) COMMA var(G4) COMMA var(Q) EOS
0x20a2…20a5 2910 RETURN 1 EOS
0x20a5…20a6 3000 FNEND
0x20a6…20d6 4000 REM --------------- MAIN PROGRAM --------------
0x20d6…20da 4005 TRAP ESC 4120
0x20da…20de 4010 RESTORE 3# EOS
0x20de…20e4 4020 LINPUT 3# SEMI var(X$) EOS
0x20e4…20ec 4025 IF var(M9%) 2 EQ COMMA 0 0 var(W$)
0x20ec…20f2 4030 REM C
0x20f2…20fd 4040 LET var(X%) COMMA = ( 1 ) var(FNK%) EOS
0x20fd…2100 4110 GOTO 0 var(T2$)
0x2100…212d 4120 REM ------------ RESTART PROCEDURE ---------
0x212d…2134 4125 LET var(X%) COMMA = → b6f3
0x2134…2138 4130 TRAP ESC 4120
0x2138…2151 4140 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x2151…2160 4150 ON = var(FNJ%) COMMA 0 0 var(T2$) → 854200500099f3
0x2160…2187 4200 REM C --------------------------------
0x2187…218f 4220 IF = var(FNA%) → eff1000043
0x218f…2198 4250 REM CONT
0x2198…21a2 4260 READ 2# SEMI var(T1$) var(I1%) var(I2%) EOS
0x21a2…21ac 4270 IF = ( 2 ) → b1f1000042
0x21ac…21b4 4280 IF var(T0$) var(T1$) <> COMMA 0 var(W$) var(T2$)
0x21b4…21b7 4285 GOSUB 0 »«
0x21b7…21ba 4290 GOTO var(W$) var(T2$)
0x21ba…21c3 4300 REM CONT
0x21c3…21dc 4310 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x21dc…21df 4330 GOTO 0 → 99
0x21df…2213 5000 REM ----------- TEGNING AV SPESIFISERT TEMA --------
0x2213…221e 5001 LET var(X%) COMMA = ( 2 ) var(FNK%) EOS
0x221e…222b 5003 LET var(X%) COMMA = ( 3 21 5 ) var(FNC%) EOS
0x222b…223f 5004 LINPUT »Gi temakode : « COMMA var(T0$) EOS
0x223f…2248 5006 IF var(T0$) »« EQ COMMA 0 0 → 99
0x2248…2254 5010 IF = ( var(T0$) ) LEN 8 EQ COMMA 0 var(W$) var(W$)
0x2254…225d 5020 LET var(T0$) COMMA » « var(T0$) PLUS EOS
0x225d…2260 5030 GOTO 6 var(W$)
0x2260…2266 5050 REM C
0x2266…226c 5060 LINPUT 3# SEMI var(X$) EOS
0x226c…2276 5070 IF = ( 3 ) → b1f1000052
0x2276…2284 5080 IF ELEMENT var(X$) ( 1 8 ) [] var(T0$) <> COMMA 0 var(W$) var(W$)
0x2284…2291 5090 SPACE 3 SEMI -41 EOS
0x2291…2298 5100 LET var(X%) COMMA = var(FNA%) EOS
0x2298…229e 5110 REM C
0x229e…22a8 5120 READ 2# SEMI var(T1$) var(I1%) var(I2%) EOS
0x22a8…22b2 5130 IF = ( 2 ) → b1f1000052
0x22b2…22ba 5140 IF var(T0$) var(T1$) EQ COMMA 1 0 »«
0x22ba…22bd 5150 GOTO 16 var(S0)
0x22bd…22c3 5200 REM C
0x22c3…22d0 5210 LET var(X%) COMMA = ( 3 20 5 ) var(FNC%) EOS
0x22d0…22d4 5215 RESTORE 3# EOS
0x22d4…22da 5216 LINPUT 3# SEMI var(X$) EOS
0x22da…2306 5220 LINPUT »E=Exit,F=Fortsett,N=Nytt enkelttema : « COMMA var(X$) EOS
0x2306…2310 5230 IF var(X$) »N« EQ COMMA 0 3 var(W$)
0x2310…231b 5280 ELSE 3 var(X$) »F« EQ COMMA 0 48 var(F0%)
0x231b…2326 5290 ELSE 3 var(X$) »E« EQ COMMA 0 0 → 99
0x2326…232a 5300 ELSE 0 0 var(X7)
0x232a…236c 7000 REM --------Plot sequence I1%-I2% of current thematic code ------
0x236c…2376 7005 IF var(Z0$) »L« <> COMMA 0 var(A0x72)
0x2376…237f 7010 19402e402ff14030f3
0x237f…2382 7020 GOSUB 0 → 90
0x2382…2399 7070 IF var(J0%) 1 <> var(J0%) 4 <> AND COMMA 2 var(F0%) COMMA 1 0 → 8000810091f3
0x2399…23a2 7210 ELSE 27 var(X%) COMMA = var(FNP9%) EOS
0x23a2…23ad 7220 LET var(X4) COMMA var(X0) COMMA var(Y4) COMMA var(Y0) EOS
0x23ad…23b1 7230 1a402ef3
0x23b1…23b3 7235 RETURN EOS
0x23b3…23c4 7240 REM Plot symbols
0x23c4…23cd 7250 19402e402ff14030f3
0x23cd…23d0 7255 GOSUB 0 → 90
0x23d0…23e2 7260 LET var(X%) COMMA = ( var(X0) var(Y0) ELEMENT var(S0$) ( 1 ) [] ) var(FNT%) EOS
0x23e2…23f4 7265 LET var(X%) COMMA = ( var(X0) var(Y0) ELEMENT var(S0$) ( 2 ) [] ) var(FNT%) EOS
0x23f4…241b 7270 IF ( ELEMENT var(S0$) ( 1 ) [] » « EQ ) ( ELEMENT var(S0$) ( 2 ) [] » « EQ ) AND COMMA 27 var(X%) COMMA = ( var(X0) var(Y0) ) var(FNQ%) EOS
0x241b…2435 7275 IF var(V0%) 1 EQ COMMA 27 var(X%) COMMA = ( var(X0) var(Y0) 3 var(V1) » « var(P0$) PLUS ) var(FNX%) EOS
0x2435…2455 7276 ELSE 3 var(V0%) 2 EQ COMMA 27 var(X%) COMMA = ( var(X0) var(Y0) 3 var(V1) » « = ( var(Z0) ) → b0e2744019f3
0x2455…2459 7500 1a402ef3
0x2459…245b 7900 RETURN EOS
0x245b…248c 8000 REM ------------ DRAW STRAIGHT LINE ------------
0x248c…2498 8010 LET var(X%) COMMA = ( var(X0) var(Y0) ) var(FNP1%) EOS
0x2498…249a 8020 RETURN EOS
0x249a…24cf 8100 REM ------------- ADD COORD. TO SPLINE LINE --------
0x24cf…24e2 8150 LET var(A3) COMMA var(X0) COMMA var(B3) COMMA var(Y0) COMMA var(W1) COMMA var(W2) var(P1) PLUS EOS
0x24e2…24f1 8155 IF var(W1) var(P2) > COMMA 27 var(W1) COMMA var(W1) var(P2) SUB2 EOS
0x24f1…2504 8158 LET var(X) COMMA var(A3) var(A2) SUB2 COMMA var(Y) COMMA var(B3) var(B2) SUB2 EOS
0x2504…2518 8159 LET var(D2) COMMA = ( var(X) var(X) MULT var(Y) var(Y) MULT PLUS ) SQR EOS
0x2518…2547 8160 IF = ( var(Y) ) ?ABS 1e-06 > COMMA 27 var(W2) COMMA = ( = ( var(X) var(Y) DIV ) → aa69e374a25673401500e874e4e2f3
0x2547…2555 8165 ELSE 27 var(W2) COMMA var(P1) ( var(X) 0 ?< ) MULT EOS
0x2555…257a 8170 LET var(Z) COMMA var(Z8) var(D2) DIV COMMA var(X) COMMA ( var(A3) var(A2) SUB2 ) var(Z) MULT COMMA var(Y) COMMA ( var(B3) var(B2) SUB2 ) var(Z) MULT EOS
0x257a…259f 8180 LET var(K3) COMMA var(A3) var(X) SUB2 COMMA var(L3) COMMA var(B3) var(Y) SUB2 COMMA var(K2) COMMA var(A2) var(X) PLUS COMMA var(L2) COMMA var(B2) var(Y) PLUS EOS
0x259f…25a5 8210 IF var(F1%) COMMA 34 EOS
0x25a5…25ae 8220 IF var(D2) var(Z9) > COMMA 1 0 → 88
0x25ae…25b7 8280 ELSE 3 var(D2) var(Z8) > COMMA 34 EOS
0x25b7…25ba 8300 GOSUB 0 → 88
0x25ba…25cd 8320 LET var(X%) COMMA = ( var(A3) var(B3) ) var(FNP1%) COMMA var(F1%) COMMA 0 EOS
0x25cd…25ce 8340 DOEND
0x25ce…25ef 8350 ELSE 27 var(X%) COMMA = ( var(A2) var(B2) ) var(FNP1%) COMMA var(X%) COMMA = ( var(A3) var(B3) ) var(FNP1%) COMMA var(F1%) COMMA 0 EOS
0x25ef…25f0 8400 DOEND
0x25f0…25f3 8500 ELSE 34 EOS
0x25f3…25ff 8510 IF var(D2) var(Z8) > COMMA 27 var(F1%) COMMA 1 EOS
0x25ff…260e 8550 ELSE 27 var(X%) COMMA = ( var(A3) var(B3) ) var(FNP1%) EOS
0x260e…260f 8560 DOEND
0x260f…2634 8570 LET var(K1) COMMA var(K3) COMMA var(L1) COMMA var(L3) COMMA var(A1) COMMA var(A2) COMMA var(B1) COMMA var(B2) COMMA var(A2) COMMA var(A3) COMMA var(B2) COMMA var(B3) EOS
0x2634…264d 8620 IF var(J0%) 3 EQ var(J0%) 6 EQ OR COMMA 27 var(X%) COMMA = ( var(A3) var(B3) ) var(FNP1%) EOS
0x264d…264f 8640 RETURN EOS
0x264f…2677 8700 REM ----- COMPUTE ORIGO OF ARC --------
0x2677…268f 8710 IF = ( var(B3) var(L2) SUB2 ) ?ABS 1e-06 > COMMA 0 48 → 87
0x268f…2696 8715 LET var(X5) COMMA var(K2) EOS
0x2696…26b5 8720 LET var(Y5) COMMA var(L1) ( var(K2) var(K1) SUB2 ) ( var(K1) var(A1) SUB2 ) MULT ( var(L1) var(B1) SUB2 ) DIV SUB2 EOS
0x26b5…26b7 8725 RETURN EOS
0x26b7…26bd 8730 REM C
0x26bd…26d5 8735 IF = ( var(L1) var(B1) SUB2 ) ?ABS 1e-06 > COMMA 0 var(V1) → 87
0x26d5…26dc 8740 LET var(X5) COMMA var(K1) EOS
0x26dc…26fb 8745 LET var(Y5) COMMA var(L2) ( var(K2) var(K1) SUB2 ) ( var(A3) var(K2) SUB2 ) MULT ( var(B3) var(L2) SUB2 ) DIV PLUS EOS
0x26fb…26fd 8750 RETURN EOS
0x26fd…2703 8755 REM C
0x2703…272a 8760 LET var(Q1) COMMA ( var(A3) var(K2) SUB2 ) ( var(B3) var(L2) SUB2 ) DIV COMMA var(Q2) COMMA ( var(K1) var(A1) SUB2 ) ( var(L1) var(B1) SUB2 ) DIV EOS
0x272a…2752 8770 LET var(Y5) COMMA ( var(Q1) var(Q2) MULT ( var(K2) var(K1) SUB2 ) MULT var(L2) var(Q2) MULT PLUS var(L1) var(Q1) MULT SUB2 ) ( var(Q2) var(Q1) SUB2 ) DIV EOS
0x2752…2772 8775 LET var(X5) COMMA ( var(K1) var(Q2) MULT var(K2) var(Q1) MULT SUB2 var(L1) PLUS var(L2) SUB2 ) ( var(Q2) var(Q1) SUB2 ) DIV EOS
0x2772…2774 8780 RETURN EOS
0x2774…279c 8790 REM --------- PLOT PSEUDO-ARC ---------
0x279c…27a0 8800 REM
0x27a0…27a7 8805 LET var(W3) COMMA var(W2) EOS
0x27a7…27bd 8810 IF var(W1) var(P1) > COMMA 3 var(W3) var(W1) ?< COMMA 27 var(W3) COMMA var(W3) var(P2) PLUS EOS
0x27bd…27da 8815 IF var(W1) var(W3) ?< var(W3) var(W1) var(P1) PLUS ?< AND COMMA 27 var(V5%) COMMA -1 EOS
0x27da…27e1 8820 ELSE 27 var(V5%) COMMA 1 EOS
0x27e1…27f8 8830 LET var(R1) COMMA var(W1) var(V5%) var(P0) MULT PLUS COMMA var(R2) COMMA var(W2) var(V5%) var(P0) MULT SUB2 EOS
0x27f8…2806 8835 LET var(R) COMMA = ( var(R2) var(R1) SUB2 ) ?ABS EOS
0x2806…2815 8840 IF var(R) var(P1) > COMMA 27 var(R) COMMA var(P2) var(R) SUB2 EOS
0x2815…2826 8845 IF var(R) 3.07 > COMMA 0 5 → 89
0x2826…2833 8850 LET var(B0%) COMMA = ( var(R) var(P5) DIV ) → a1f3
0x2833…2840 8855 LET var(P6) COMMA var(V5%) var(R) MULT var(B0%) DIV EOS
0x2840…2843 8860 GOSUB 0 → 87
0x2843…285f 8865 LET var(D3) COMMA = ( ( var(K1) var(X5) SUB2 ) 2 POW ( var(L1) var(Y5) SUB2 ) 2 POW PLUS ) SQR EOS
0x285f…2881 8866 LET var(X%) COMMA = ( var(X5) var(D3) = ( var(R1) ) → a8e4e24055405c7173405874a9e4e274403ef3
0x2881…2889 8870 19405d01f1405af3
0x2889…2893 8875 LET var(R1) COMMA var(R1) var(P6) PLUS EOS
0x2893…28b5 8890 LET var(X%) COMMA = ( var(X5) var(D3) = ( var(R1) ) → a8e4e24055405c7173405874a9e4e274403ef3
0x28b5…28b9 8895 1a405df3
0x28b9…28bb 8900 RETURN EOS
0x28bb…28c1 8905 REM C
0x28c1…28cf 8910 LET var(X%) COMMA = ( var(K2) var(L2) ) var(FNP1%) EOS
0x28cf…28d1 8915 RETURN EOS
0x28d1…28fd 9000 REM ---------- READ CURRENT POINT ---------
0x28fd…2906 9010 LINPUT 1# COMMA var(I8%) SEMI var(X$) EOS
0x2906…2913 9015 LET var(X%) COMMA = ( 2 15 13 ) var(FNC%) EOS
0x2913…291c 9020 PRINT ELEMENT var(X$) ( 20 51 ) [] EOS
0x291c…293b 9030 LET var(J0%) COMMA = ( ELEMENT var(X$) ( 1 1 ) [] ) VAL COMMA var(I0%) COMMA = ( ELEMENT var(X$) ( 2 3 ) [] ) VAL EOS
0x293b…294c 9040 LET ELEMENT var(P0$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 4 11 ) [] EOS
0x294c…295b 9045 LET var(X0) COMMA = ( ELEMENT var(X$) ( 32 43 ) [] ) VAL EOS
0x295b…296a 9050 LET var(Y0) COMMA = ( ELEMENT var(X$) ( 20 31 ) [] ) VAL EOS
0x296a…297a 9055 LET var(Z0) COMMA = ( ELEMENT var(X$) ( 44 51 ) [] ) VAL EOS
0x297a…297c 9060 RETURN EOS
0x297c…29ad 9100 REM --------ADD POINT TO CIRCULAR ARC ----------
0x29ad…29b6 9110 LET var(J8%) COMMA var(J8%) 1 PLUS EOS
0x29b6…29d0 9120 REM ------ ACCEPT 2.POINT
0x29d0…29d9 9130 IF var(J8%) 2 <> COMMA 0 → 8091
0x29d9…29f0 9140 LET var(A2) COMMA var(X0) COMMA var(B2) COMMA var(Y0) COMMA var(K0) COMMA var(A1) COMMA var(L0) COMMA var(B1) EOS
0x29f0…2a26 9150 IF var(J0%) 3 <> var(J0%) 6 <> AND COMMA 27 var(K1) COMMA ( var(A1) var(A2) PLUS ) 0.5 MULT COMMA var(L1) COMMA ( var(B1) var(B2) PLUS ) 0.5 MULT EOS
0x2a26…2a3b 9160 ELSE 3 var(J0%) 6 <> COMMA 27 var(X%) COMMA = ( var(A2) var(B2) ) var(FNP1%) EOS
0x2a3b…2a3d 9170 RETURN EOS
0x2a3d…2a59 9180 REM ---------ACCEPT 3.POINT
0x2a59…2a62 9190 IF var(J8%) 3 <> COMMA 0 var(Z0$) → 92
0x2a62…2a97 9200 LET var(A3) COMMA var(X0) COMMA var(B3) COMMA var(Y0) COMMA var(K2) COMMA ( var(A2) var(A3) PLUS ) 0.5 MULT COMMA var(L2) COMMA ( var(B2) var(B3) PLUS ) 0.5 MULT EOS
0x2a97…2a9a 9210 GOSUB 0 → 87
0x2a9a…2ac2 9220 LET var(K5) COMMA var(X5) COMMA var(L5) COMMA var(Y5) COMMA var(D2) COMMA = ( ( var(X5) var(A1) SUB2 ) 2 POW ( var(Y5) var(B1) SUB2 ) 2 POW PLUS ) SQR EOS
0x2ac2…2aea 9240 LET var(V5%) COMMA = ( ( var(A1) var(A2) SUB2 ) ( var(B3) var(B2) SUB2 ) MULT ( var(A2) var(A3) SUB2 ) ( var(B2) var(B1) SUB2 ) MULT SUB2 ) ?SGN EOS
0x2aea…2aed 9250 GOTO 32 → 93
0x2aed…2b11 9260 REM ------ACCEPT POINT 4. OR HIGHER
0x2b11…2b6a 9270 LET var(A1) COMMA var(A2) COMMA var(B1) COMMA var(B2) COMMA var(A2) COMMA var(A3) COMMA var(B2) COMMA var(B3) COMMA var(A3) COMMA var(X0) COMMA var(B3) COMMA var(Y0) COMMA var(K1) COMMA var(K2) COMMA var(L1) COMMA var(L2) COMMA var(K2) COMMA ( var(A2) var(A3) PLUS ) 0.5 MULT COMMA var(L2) COMMA ( var(B2) var(B3) PLUS ) 0.5 MULT EOS
0x2b6a…2b6d 9280 GOSUB 0 → 87
0x2b6d…2b98 9290 LET var(D2) COMMA 0.5 ( var(D2) = ( ( var(X5) var(A3) SUB2 ) 2 POW ( var(Y5) var(B3) SUB2 ) 2 POW PLUS ) SQR PLUS ) MULT EOS
0x2b98…2bc3 9300 LET var(K5) COMMA ( var(K5) var(X5) PLUS ) 0.5 MULT COMMA var(L5) COMMA ( var(L5) var(Y5) PLUS ) 0.5 MULT EOS
0x2bc3…2be2 9320 REM ------- TEST IF LAST POINT
0x2be2…2bef 9330 IF var(J0%) 3 <> var(J0%) 6 <> AND COMMA 5 EOS
0x2bef…2c12 9340 LET var(R1) COMMA = ( var(K5) var(L5) var(K0) var(L0) ) var(FNV) COMMA var(R2) COMMA = ( var(K5) var(L5) var(A3) var(B3) ) var(FNV) EOS
0x2c12…2c2c 9350 IF var(V5%) ( var(R2) var(R1) SUB2 ) MULT 0 → ebf11b4059f14059405768e4e3f3
0x2c2c…2c3b 9360 LET var(R) COMMA var(V5%) ( var(R1) var(R2) SUB2 ) MULT EOS
0x2c3b…2c53 9370 LET var(B0%) COMMA var(D2) var(R) MULT ( 0.001 var(M0) MULT ) DIV EOS
0x2c53…2c60 9380 LET var(P6) COMMA var(V5%) var(R) MULT var(B0%) DIV EOS
0x2c60…2c68 9390 19405d01f1405af3
0x2c68…2c72 9400 LET var(R1) COMMA var(R1) var(P6) SUB2 EOS
0x2c72…2c94 9410 LET var(X%) COMMA = ( var(K5) var(D2) = ( var(R1) ) → a8e4e24062404c7173405874a9e4e274403ef3
0x2c94…2c98 9420 1a405df3
0x2c98…2c9e 9430 LET var(J8%) COMMA 0 EOS
0x2c9e…2ca0 9440 RETURN EOS
0x2ca0…2cd2 9900 REM -------------- CHAIN TO MAIN PROGRAM --------
0x2cd2…2ceb 9910 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x2ceb…2cf3 9920 CHAIN »PLOT« EOS
0x2cf3…2cf4 9999 END