|
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: 9268 (0x2434)
Notes: ZILOG_BASIC
Names: »PLOT.2.BP«
└─⟦1939a49b1⟧ Bits:30006827 8" ZilogMCZ floppy NThun_0050 (25.9.82 Program PLOT PLOT.BP PLOT.2.BP (c) VIAK DATA)
└─⟦this⟧ »PLOT.2.BP«
0x0000…0014 BasicHead {variables=0x0268, stms=0x07b0, f2=0x1a08, f3=0000000000000000000000000000}
0x0014…027c [
0x0014…027c [0x00]: VarDef {f0=0xff00, f1=0x51, f2=0x0f} FNP1 0x99
0x0014…027c [0x01]: VarDef {f0=0x0000, f1=0x48, f2=0x29} J8% 0x98
0x0014…027c [0x02]: VarDef {f0=0x0000, f1=0x46, f2=0x15} V6 0x97
0x0014…027c [0x03]: VarDef {f0=0x0000, f1=0x46, f2=0x14} U6 0x96
0x0014…027c [0x04]: VarDef {f0=0x0000, f1=0x4f, f2=0x38} Y% 0x95
0x0014…027c [0x05]: VarDef {f0=0x0000, f1=0x49, f2=0x28} I9% 0x94
0x0014…027c [0x06]: VarDef {f0=0x0000, f1=0x41, f2=0x03} D1 0x93
0x0014…027c [0x07]: VarDef {f0=0x0000, f1=0x47, f2=0x15} V7 0x92
0x0014…027c [0x08]: VarDef {f0=0x0000, f1=0x47, f2=0x14} U7 0x91
0x0014…027c [0x09]: VarDef {f0=0x0000, f1=0x42, f2=0x02} C2 0x90
0x0014…027c [0x0a]: VarDef {f0=0x0000, f1=0x43, f2=0x16} W3 0x8f
0x0014…027c [0x0b]: VarDef {f0=0x0000, f1=0x43, f2=0x00} A3 0x8e
0x0014…027c [0x0c]: VarDef {f0=0x0000, f1=0x45, f2=0x15} V5 0x8d
0x0014…027c [0x0d]: VarDef {f0=0x0000, f1=0x45, f2=0x14} U5 0x8c
0x0014…027c [0x0e]: VarDef {f0=0x0000, f1=0x44, f2=0x16} W4 0x8b
0x0014…027c [0x0f]: VarDef {f0=0x0000, f1=0x45, f2=0x16} W5 0x8a
0x0014…027c [0x10]: VarDef {f0=0x0000, f1=0x44, f2=0x28} I4% 0x89
0x0014…027c [0x11]: VarDef {f0=0x0000, f1=0x43, f2=0x15} V3 0x88
0x0014…027c [0x12]: VarDef {f0=0x0000, f1=0x43, f2=0x14} U3 0x87
0x0014…027c [0x13]: VarDef {f0=0x0000, f1=0x42, f2=0x2a} K2% 0x86
0x0014…027c [0x14]: VarDef {f0=0x0000, f1=0x44, f2=0x15} V4 0x85
0x0014…027c [0x15]: VarDef {f0=0x0000, f1=0x44, f2=0x14} U4 0x84
0x0014…027c [0x16]: VarDef {f0=0x0000, f1=0x41, f2=0x2a} K1% 0x83
0x0014…027c [0x17]: VarDef {f0=0x0000, f1=0x46, f2=0x2b} L6% 0x82
0x0014…027c [0x18]: VarDef {f0=0x0000, f1=0x40, f2=0x2f} P0% 0x81
0x0014…027c [0x19]: VarDef {f0=0x0000, f1=0x48, f2=0x28} I8% 0x80
0x0014…027c [0x1a]: VarDef {f0=0x0000, f1=0x42, f2=0x28} I2% 0x7f
0x0014…027c [0x1b]: VarDef {f0=0x0000, f1=0x49, f2=0x29} J9% 0x7e
0x0014…027c [0x1c]: VarDef {f0=0x0000, f1=0x41, f2=0x06} G1 0x7d
0x0014…027c [0x1d]: VarDef {f0=0x0000, f1=0x48, f2=0x06} G8 0x7c
0x0014…027c [0x1e]: VarDef {f0=0x0000, f1=0x47, f2=0x06} G7 0x7b
0x0014…027c [0x1f]: VarDef {f0=0x0000, f1=0x4f, f2=0x10} Q 0x7a
0x0014…027c [0x20]: VarDef {f0=0x0000, f1=0x4f, f2=0x0f} P 0x79
0x0014…027c [0x21]: VarDef {f0=0x0000, f1=0x48, f2=0x2b} L8% 0x78
0x0014…027c [0x22]: VarDef {f0=0x4122, f1=0x49, f2=0x2b} L9% 0x77
0x0014…027c [0x23]: VarDef {f0=0x5e5e, f1=0x56, f2=0x36} FNW6% 0x76
0x0014…027c [0x24]: VarDef {f0=0x2e22, f1=0x44, f2=0x06} G4 0x75
0x0014…027c [0x25]: VarDef {f0=0x2a00, f1=0x43, f2=0x06} G3 0x74
0x0014…027c [0x26]: VarDef {f0=0x0000, f1=0x59, f2=0x2f} FNP9% 0x73
0x0014…027c [0x27]: VarDef {f0=0x0000, f1=0x51, f2=0x2f} FNP1% 0x72
0x0014…027c [0x28]: VarDef {f0=0x0000, f1=0x46, f2=0x02} C6 0x71
0x0014…027c [0x29]: VarDef {f0=0x0045, f1=0x44, f2=0x22} C4% 0x70
0x0014…027c [0x2a]: VarDef {f0=0x2d2d, f1=0x45, f2=0x02} C5 0x6f
0x0014…027c [0x2b]: VarDef {f0=0x2000, f1=0x41, f2=0x28} I1% 0x6e
0x0014…027c [0x2c]: VarDef {f0=0x0000, f1=0x41, f2=0x11} R1 0x6d
0x0014…027c [0x2d]: VarDef {f0=0x0000, f1=0x42, f2=0x16} W2 0x6c
0x0014…027c [0x2e]: VarDef {f0=0x0000, f1=0x52, f2=0x22} FNC2% 0x6b
0x0014…027c [0x2f]: VarDef {f0=0x0000, f1=0x51, f2=0x15} FNV1 0x6a
0x0014…027c [0x30]: VarDef {f0=0x0d00, f1=0x47, f2=0x11} R7 0x69
0x0014…027c [0x31]: VarDef {f0=0x454e, f1=0x46, f2=0x11} R6 0x68
0x0014…027c [0x32]: VarDef {f0=0x4122, f1=0x47, f2=0x03} D7 0x67
0x0014…027c [0x33]: VarDef {f0=0x4c45, f1=0x42, f2=0x00} A2 0x66
0x0014…027c [0x34]: VarDef {f0=0x5e5e, f1=0x41, f2=0x00} A1 0x65
0x0014…027c [0x35]: VarDef {f0=0x5e5e, f1=0x5f, f2=0x16} FNW 0x64
0x0014…027c [0x36]: VarDef {f0=0x0100, f1=0x48, f2=0x15} V8 0x63
0x0014…027c [0x37]: VarDef {f0=0x2a59, f1=0x48, f2=0x14} U8 0x62
0x0014…027c [0x38]: VarDef {f0=0x2929, f1=0x41, f2=0x16} W1 0x61
0x0014…027c [0x39]: VarDef {f0=0x4020, f1=0x5f, f2=0x12} FNS 0x60
0x0014…027c [0x3a]: VarDef {f0=0x2825, f1=0x43, f2=0x08} I3 0x5f
0x0014…027c [0x3b]: VarDef {f0=0x2820, f1=0x47, f2=0x08} I7 0x5e
0x0014…027c [0x3c]: VarDef {f0=0x2815, f1=0x45, f2=0x0b} L5 0x5d
0x0014…027c [0x3d]: VarDef {f0=0x2800, f1=0x45, f2=0x31} R5% 0x5c
0x0014…027c [0x3e]: VarDef {f0=0x2765, f1=0x45, f2=0x28} I5% 0x5b
0x0014…027c [0x3f]: VarDef {f0=0x2760, f1=0x46, f2=0x28} I6% 0x5a
0x0014…027c [0x40]: VarDef {f0=0x2755, f1=0x5f, f2=0x2b} FNL% 0x59
0x0014…027c [0x41]: VarDef {f0=0x2695, f1=0x46, f2=0x03} D6 0x58
0x0014…027c [0x42]: VarDef {f0=0x2675, f1=0x45, f2=0x03} D5 0x57
0x0014…027c [0x43]: VarDef {f0=0x2672, f1=0x46, f2=0x16} W6 0x56
0x0014…027c [0x44]: VarDef {f0=0x2665, f1=0x5f, f2=0x15} FNV 0x55
0x0014…027c [0x45]: VarDef {f0=0xf348, f1=0x4f, f2=0x2d} N% 0x54
0x0014…027c [0x46]: VarDef {f0=0xf3ff, f1=0x52, f2=0x2b} FNL2% 0x53
0x0014…027c [0x47]: VarDef {f0=0x0000, f1=0x49, f2=0x10} Q9 0x52
0x0014…027c [0x48]: VarDef {f0=0x0000, f1=0x48, f2=0x10} Q8 0x51
0x0014…027c [0x49]: VarDef {f0=0x1500, f1=0x47, f2=0x10} Q7 0x50
0x0014…027c [0x4a]: VarDef {f0=0xfe98, f1=0x46, f2=0x10} Q6 0x4f
0x0014…027c [0x4b]: VarDef {f0=0x0f27, f1=0x4f, f2=0x11} R 0x4e
0x0014…027c [0x4c]: VarDef {f0=0xff2c, f1=0x4f, f2=0x28} I% 0x4d
0x0014…027c [0x4d]: VarDef {f0=0x1300, f1=0x43, f2=0x12} S3 0x4c
0x0014…027c [0x4e]: VarDef {f0=0x1200, f1=0x4f, f2=0x03} D 0x4b
0x0014…027c [0x4f]: VarDef {f0=0x1200, f1=0x42, f2=0x12} S2 0x4a
0x0014…027c [0x50]: VarDef {f0=0xff90, f1=0x41, f2=0x12} S1 0x49
0x0014…027c [0x51]: VarDef {f0=0x1200, f1=0x4f, f2=0x32} S% 0x48
0x0014…027c [0x52]: VarDef {f0=0x43c0, f1=0x51, f2=0x2b} FNL1% 0x47
0x0014…027c [0x53]: VarDef {f0=0x0000, f1=0x42, f2=0x10} Q2 0x46
0x0014…027c [0x54]: VarDef {f0=0x7003, f1=0x41, f2=0x10} Q1 0x45
0x0014…027c [0x55]: VarDef {f0=0x1910, f1=0x42, f2=0x18} Y2 0x44
0x0014…027c [0x56]: VarDef {f0=0x1900, f1=0x42, f2=0x17} X2 0x43
0x0014…027c [0x57]: VarDef {f0=0x1890, f1=0x5f, f2=0x03} FND 0x42
0x0014…027c [0x58]: VarDef {f0=0x1780, f1=0x5f, f2=0x30} FNQ% 0x41
0x0014…027c [0x59]: VarDef {f0=0x1690, f1=0x5f, f2=0x33} FNT% 0x40
0x0014…027c [0x5a]: VarDef {f0=0x1590, f1=0x4f, f2=0x15} V 0x3f
0x0014…027c [0x5b]: VarDef {f0=0x1580, f1=0x4f, f2=0x07} H 0x3e
0x0014…027c [0x5c]: VarDef {f0=0x1570, f1=0x4f, f2=0x18} Y 0x3d
0x0014…027c [0x5d]: VarDef {f0=0x1560, f1=0x5f, f2=0x37} FNX% 0x3c
0x0014…027c [0x5e]: VarDef {f0=0x1510, f1=0x43, f2=0x17} X3 0x3b
0x0014…027c [0x5f]: VarDef {f0=0x1500, f1=0x43, f2=0x18} Y3 0x3a
0x0014…027c [0x60]: VarDef {f0=0x1480, f1=0x5f, f2=0x39} FNZ% 0x39
0x0014…027c [0x61]: VarDef {f0=0x1460, f1=0x41, f2=0x18} Y1 0x38
0x0014…027c [0x62]: VarDef {f0=0x1450, f1=0x41, f2=0x17} X1 0x37
0x0014…027c [0x63]: VarDef {f0=0x1370, f1=0x4f, f2=0x17} X 0x36
0x0014…027c [0x64]: VarDef {f0=0x1360, f1=0x5f, f2=0x57} FNX$ 0x35
0x0014…027c [0x65]: VarDef {f0=0x1280, f1=0x4f, f2=0x29} J% 0x34
0x0014…027c [0x66]: VarDef {f0=0x1260, f1=0x4f, f2=0x0a} K 0x33
0x0014…027c [0x67]: VarDef {f0=0x1250, f1=0x51, f2=0x36} FNW1% 0x32
0x0014…027c [0x68]: VarDef {f0=0x1190, f1=0x40, f2=0x19} Z0 0x31
0x0014…027c [0x69]: VarDef {f0=0x1120, f1=0x40, f2=0x28} I0% 0x30
0x0014…027c [0x6a]: VarDef {f0=0x1100, f1=0x40, f2=0x29} J0% 0x2f
0x0014…027c [0x6b]: VarDef {f0=0x1060, f1=0x5f, f2=0x21} FNB% 0x2e
0x0014…027c [0x6c]: VarDef {f0=0x0970, f1=0x41, f2=0x02} C1 0x2d
0x0014…027c [0x6d]: VarDef {f0=0x0950, f1=0x5f, f2=0x36} FNW% 0x2c
0x0014…027c [0x6e]: VarDef {f0=0x0870, f1=0x40, f2=0x36} W0% 0x2b
0x0014…027c [0x6f]: VarDef {f0=0x0850, f1=0x40, f2=0x35} V0% 0x2a
0x0014…027c [0x70]: VarDef {f0=0x0790, f1=0x40, f2=0x25} F0% 0x29
0x0014…027c [0x71]: VarDef {f0=0x0760, f1=0x40, f2=0x2b} L0% 0x28
0x0014…027c [0x72]: VarDef {f0=0x0660, f1=0x44, f2=0x18} Y4 0x27
0x0014…027c [0x73]: VarDef {f0=0x0650, f1=0x44, f2=0x17} X4 0x26
0x0014…027c [0x74]: VarDef {f0=0x0640, f1=0x5f, f2=0x2f} FNP% 0x25
0x0014…027c [0x75]: VarDef {f0=0x0630, f1=0x4f, f2=0x37} X% 0x24
0x0014…027c [0x76]: VarDef {f0=0x0530, f1=0x5f, f2=0x20} FNA% 0x23
0x0014…027c [0x77]: VarDef {f0=0x0500, f1=0x49, f2=0x19} Z9 0x22
0x0014…027c [0x78]: VarDef {f0=0x0460, f1=0x40, f2=0x18} Y0 0x21
0x0014…027c [0x79]: VarDef {f0=0x0440, f1=0x40, f2=0x17} X0 0x20
0x0014…027c [0x7a]: VarDef {f0=0x0400, f1=0x40, f2=0x83} D0' 0x1f
0x0014…027c [0x7b]: VarDef {f0=0x0380, f1=0x49, f2=0x50} Q9$ 0x1e
0x0014…027c [0x7c]: VarDef {f0=0x0370, f1=0x4f, f2=0x52} S$ 0x1d
0x0014…027c [0x7d]: VarDef {f0=0x0350, f1=0x40, f2=0x52} S0$ 0x1c
0x0014…027c [0x7e]: VarDef {f0=0x0340, f1=0x40, f2=0x59} Z0$ 0x1b
0x0014…027c [0x7f]: VarDef {f0=0x0330, f1=0x40, f2=0x4b} L0$ 0x1a
0x0014…027c [0x80]: VarDef {f0=0x0320, f1=0x40, f2=0x4f} P0$ 0x19
0x0014…027c [0x81]: VarDef {f0=0x0310, f1=0x4f, f2=0x57} X$ 0x18
0x0014…027c [0x82]: VarDef {f0=0x0290, f1=0x40, f2=0x0c} M0 0x17
0x0014…027c [0x83]: VarDef {f0=0x0270, f1=0x49, f2=0x16} W9 0x16
0x0014…027c [0x84]: VarDef {f0=0x0260, f1=0x48, f2=0x16} W8 0x15
0x0014…027c [0x85]: VarDef {f0=0x0250, f1=0x41, f2=0x07} H1 0x14
0x0014…027c [0x86]: VarDef {f0=0x0240, f1=0x41, f2=0x0f} P1 0x13
0x0014…027c [0x87]: VarDef {f0=0x0230, f1=0x41, f2=0x15} V1 0x12
0x0014…027c [0x88]: VarDef {f0=0x0220, f1=0x40, f2=0x15} V0 0x11
0x0014…027c [0x89]: VarDef {f0=0x0210, f1=0x47, f2=0x18} Y7 0x10
0x0014…027c [0x8a]: VarDef {f0=0x0200, f1=0x47, f2=0x17} X7 0xf
0x0014…027c [0x8b]: VarDef {f0=0x0190, f1=0x40, f2=0x12} S0 0xe
0x0014…027c [0x8c]: VarDef {f0=0x0180, f1=0x4f, f2=0x56} W$ 0xd
0x0014…027c [0x8d]: VarDef {f0=0x0160, f1=0x41, f2=0x98} Y1' 0xc
0x0014…027c [0x8e]: VarDef {f0=0x0150, f1=0x41, f2=0x97} X1' 0xb
0x0014…027c [0x8f]: VarDef {f0=0x0140, f1=0x4f, f2=0x90} Q' 0xa
0x0014…027c [0x90]: VarDef {f0=0x0130, f1=0x4f, f2=0x8f} P' 0x9
0x0014…027c [0x91]: VarDef {f0=0x0110, f1=0x4f, f2=0x59} Z$ 0x8
0x0014…027c [0x92]: VarDef {f0=0x0100, f1=0x4f, f2=0x50} Q$ 0x7
0x0014…027c [0x93]: VarDef {f0=0x0090, f1=0x4f, f2=0x4f} P$ 0x6
0x0014…027c [0x94]: VarDef {f0=0x0070, f1=0x43, f2=0x4d} N3$ 0x5
0x0014…027c [0x95]: VarDef {f0=0x0060, f1=0x42, f2=0x4d} N2$ 0x4
0x0014…027c [0x96]: VarDef {f0=0x0050, f1=0x41, f2=0x4d} N1$ 0x3
0x0014…027c [0x97]: VarDef {f0=0x0030, f1=0x41, f2=0x53} T1$ 0x2
0x0014…027c [0x98]: VarDef {f0=0x0020, f1=0x40, f2=0x53} T0$ 0x1
0x0014…027c [0x99]: VarDef {f0=0x0010, f1=0x4f, f2=0x41} B$ 0x0
0x0014…027c ]
0x027c…0280 Statement 39321 @0x2433
0x0280…0284 Statement 38256 @0x2425
0x0284…0288 Statement 38240 @0x240e
0x0288…028c Statement 38208 @0x240c
0x028c…0290 Statement 38192 @0x23f5
0x0290…0294 Statement 38176 @0x23f3
0x0294…0298 Statement 38160 @0x23f1
0x0298…029c Statement 38144 @0x23d9
0x029c…02a0 Statement 33877 @0x23ad
0x02a0…02a4 Statement 33872 @0x23ab
0x02a4…02a8 Statement 33861 @0x239b
0x02a8…02ac Statement 33856 @0x238e
0x02ac…02b0 Statement 33845 @0x237e
0x02b0…02b4 Statement 33840 @0x237c
0x02b4…02b8 Statement 33829 @0x236f
0x02b8…02bc Statement 33824 @0x236e
0x02bc…02c0 Statement 33813 @0x236b
0x02c0…02c4 Statement 33808 @0x2365
0x02c4…02c8 Statement 33792 @0x235a
0x02c8…02cc Statement 33685 @0x234d
0x02cc…02d0 Statement 33680 @0x2344
0x02d0…02d4 Statement 33669 @0x233b
0x02d4…02d8 Statement 33664 @0x2332
0x02d8…02dc Statement 33653 @0x2325
0x02dc…02e0 Statement 33648 @0x231e
0x02e0…02e4 Statement 33637 @0x2311
0x02e4…02e8 Statement 33632 @0x230a
0x02e8…02ec Statement 33621 @0x2303
0x02ec…02f0 Statement 33616 @0x22f1
0x02f0…02f4 Statement 33606 @0x22db
0x02f4…02f8 Statement 33605 @0x22c3
0x02f8…02fc Statement 33600 @0x22bc
0x02fc…0300 Statement 33589 @0x22b0
0x0300…0304 Statement 33584 @0x229f
0x0304…0308 Statement 33573 @0x2295
0x0308…030c Statement 33568 @0x2284
0x030c…0310 Statement 33557 @0x2273
0x0310…0314 Statement 33554 @0x225f
0x0314…0318 Statement 33553 @0x225b
0x0318…031c Statement 33552 @0x224d
0x031c…0320 Statement 33542 @0x2241
0x0320…0324 Statement 33541 @0x2237
0x0324…0328 Statement 33538 @0x222b
0x0328…032c Statement 33536 @0x221b
0x032c…0330 Statement 33429 @0x220b
0x0330…0334 Statement 33413 @0x21f3
0x0334…0338 Statement 33409 @0x21e5
0x0338…033c Statement 33408 @0x21cd
0x033c…0340 Statement 33397 @0x21b7
0x0340…0344 Statement 33392 @0x21a7
0x0344…0348 Statement 33381 @0x21a5
0x0348…034c Statement 33376 @0x2198
0x034c…0350 Statement 33365 @0x2191
0x0350…0354 Statement 33363 @0x2171
0x0354…0358 Statement 33362 @0x2170
0x0358…035c Statement 33361 @0x216c
0x035c…0360 Statement 33360 @0x2159
0x0360…0364 Statement 33353 @0x2151
0x0364…0368 Statement 33351 @0x2143
0x0368…036c Statement 33350 @0x212b
0x036c…0370 Statement 33349 @0x2122
0x0370…0374 Statement 33344 @0x2114
0x0374…0378 Statement 33333 @0x2102
0x0378…037c Statement 33328 @0x20f2
0x037c…0380 Statement 33317 @0x20f0
0x0380…0384 Statement 33312 @0x20e3
0x0384…0388 Statement 33301 @0x20dd
0x0388…038c Statement 33296 @0x20cb
0x038c…0390 Statement 33285 @0x20c2
0x0390…0394 Statement 33280 @0x20b2
0x0394…0398 Statement 33177 @0x20b0
0x0398…039c Statement 33176 @0x20af
0x039c…03a0 Statement 33175 @0x20ab
0x03a0…03a4 Statement 33170 @0x2098
0x03a4…03a8 Statement 33169 @0x2090
0x03a8…03ac Statement 33168 @0x2087
0x03ac…03b0 Statement 33157 @0x2071
0x03b0…03b4 Statement 33156 @0x2070
0x03b4…03b8 Statement 33155 @0x206e
0x03b8…03bc Statement 33154 @0x2061
0x03bc…03c0 Statement 33153 @0x2054
0x03c0…03c4 Statement 33152 @0x2049
0x03c4…03c8 Statement 33141 @0x2023
0x03c8…03cc Statement 33136 @0x2021
0x03cc…03d0 Statement 33125 @0x201b
0x03d0…03d4 Statement 33120 @0x200b
0x03d4…03d8 Statement 33110 @0x1ffd
0x03d8…03dc Statement 33109 @0x1fea
0x03dc…03e0 Statement 33104 @0x1fe1
0x03e0…03e4 Statement 33093 @0x1fd6
0x03e4…03e8 Statement 33088 @0x1fd0
0x03e8…03ec Statement 33077 @0x1fac
0x03ec…03f0 Statement 33072 @0x1faa
0x03f0…03f4 Statement 33061 @0x1f9e
0x03f4…03f8 Statement 33045 @0x1f98
0x03f8…03fc Statement 33040 @0x1f85
0x03fc…0400 Statement 33028 @0x1f78
0x0400…0404 Statement 33026 @0x1f64
0x0404…0408 Statement 33024 @0x1f3e
0x0408…040c Statement 32912 @0x1f04
0x040c…0410 Statement 30976 @0x1f02
0x0410…0414 Statement 29952 @0x1efe
0x0414…0418 Statement 29845 @0x1ef5
0x0418…041c Statement 29840 @0x1eef
0x041c…0420 Statement 29264 @0x1eee
0x0420…0424 Statement 29184 @0x1eed
0x0424…0428 Statement 28805 @0x1eda
0x0428…042c Statement 28800 @0x1ec7
0x042c…0430 Statement 28789 @0x1eb3
0x0430…0434 Statement 28784 @0x1eb0
0x0434…0438 Statement 28773 @0x1e94
0x0438…043c Statement 28772 @0x1e93
0x043c…0440 Statement 28771 @0x1e90
0x0440…0444 Statement 28770 @0x1e8d
0x0444…0448 Statement 28769 @0x1e77
0x0448…044c Statement 28768 @0x1e72
0x044c…0450 Statement 28761 @0x1e69
0x0450…0454 Statement 28760 @0x1e68
0x0454…0458 Statement 28754 @0x1e56
0x0458…045c Statement 28753 @0x1e30
0x045c…0460 Statement 28752 @0x1e1f
0x0460…0464 Statement 28741 @0x1e0e
0x0464…0468 Statement 28736 @0x1e05
0x0468…046c Statement 28727 @0x1df9
0x046c…0470 Statement 28688 @0x1df0
0x0470…0474 Statement 28680 @0x1de7
0x0474…0478 Statement 28672 @0x1daf
0x0478…047c Statement 17200 @0x1dac
0x047c…0480 Statement 17184 @0x1da9
0x0480…0484 Statement 17168 @0x1d92
0x0484…0488 Statement 17152 @0x1d89
0x0488…048c Statement 17040 @0x1d86
0x048c…0490 Statement 17024 @0x1d7e
0x0490…0494 Statement 17008 @0x1d74
0x0494…0498 Statement 16992 @0x1d6a
0x0498…049c Statement 16976 @0x1d61
0x049c…04a0 Statement 16960 @0x1d56
0x04a0…04a4 Statement 16944 @0x1d52
0x04a4…04a8 Statement 16928 @0x1d48
0x04a8…04ac Statement 16912 @0x1d42
0x04ac…04b0 Statement 16896 @0x1d3c
0x04b0…04b4 Statement 16784 @0x1d27
0x04b4…04b8 Statement 16768 @0x1d12
0x04b8…04bc Statement 16752 @0x1d08
0x04bc…04c0 Statement 16736 @0x1cdd
0x04c0…04c4 Statement 16720 @0x1cdb
0x04c4…04c8 Statement 16709 @0x1cc4
0x04c8…04cc Statement 16704 @0x1cc0
0x04cc…04d0 Statement 16688 @0x1cba
0x04d0…04d4 Statement 16672 @0x1cae
0x04d4…04d8 Statement 16656 @0x1cab
0x04d8…04dc Statement 16528 @0x1ca5
0x04dc…04e0 Statement 16512 @0x1ca3
0x04e0…04e4 Statement 16496 @0x1c9f
0x04e4…04e8 Statement 16480 @0x1c99
0x04e8…04ec Statement 16469 @0x1c95
0x04ec…04f0 Statement 16464 @0x1c6d
0x04f0…04f4 Statement 16448 @0x1c33
0x04f4…04f8 Statement 16432 @0x1c0b
0x04f8…04fc Statement 16416 @0x1c09
0x04fc…0500 Statement 16400 @0x1c03
0x0500…0504 Statement 16384 @0x1bd2
0x0504…0508 Statement 12288 @0x1bd1
0x0508…050c Statement 10512 @0x1bce
0x050c…0510 Statement 10341 @0x1bcd
0x0510…0514 Statement 10336 @0x1bc0
0x0514…0518 Statement 10320 @0x1bb2
0x0518…051c Statement 10304 @0x1ba2
0x051c…0520 Statement 10288 @0x1b88
0x0520…0524 Statement 10277 @0x1b85
0x0524…0528 Statement 10272 @0x1b84
0x0528…052c Statement 10263 @0x1b81
0x052c…0530 Statement 10261 @0x1b74
0x0530…0534 Statement 10256 @0x1b6b
0x0534…0538 Statement 10245 @0x1b61
0x0538…053c Statement 10240 @0x1b57
0x053c…0540 Statement 10096 @0x1b47
0x0540…0544 Statement 10085 @0x1b2d
0x0544…0548 Statement 10080 @0x1b1d
0x0548…054c Statement 10069 @0x1b0d
0x054c…0550 Statement 10064 @0x1b04
0x0550…0554 Statement 10053 @0x1af3
0x0554…0558 Statement 10048 @0x1ada
0x0558…055c Statement 10037 @0x1ac7
0x055c…0560 Statement 10032 @0x1ac1
0x0560…0564 Statement 10021 @0x1aaf
0x0564…0568 Statement 10016 @0x1a9d
0x0568…056c Statement 10005 @0x1a9a
0x056c…0570 Statement 09989 @0x1a8b
0x0570…0574 Statement 09986 @0x1a81
0x0574…0578 Statement 09984 @0x1a79
0x0578…057c Statement 09877 @0x1a4c
0x057c…0580 Statement 09856 @0x1a4b
0x0580…0584 Statement 09845 @0x1a48
0x0584…0588 Statement 09843 @0x1a3d
0x0588…058c Statement 09842 @0x1a37
0x058c…0590 Statement 09840 @0x1a36
0x0590…0594 Statement 09829 @0x1a30
0x0594…0598 Statement 09824 @0x1a11
0x0598…059c Statement 09813 @0x19f3
0x059c…05a0 Statement 09808 @0x19d4
0x05a0…05a4 Statement 09797 @0x19be
0x05a4…05a8 Statement 09792 @0x19a9
0x05a8…05ac Statement 09781 @0x1993
0x05ac…05b0 Statement 09776 @0x1989
0x05b0…05b4 Statement 09765 @0x1988
0x05b4…05b8 Statement 09760 @0x1982
0x05b8…05bc Statement 09749 @0x196d
0x05bc…05c0 Statement 09744 @0x1957
0x05c0…05c4 Statement 09733 @0x194e
0x05c4…05c8 Statement 09730 @0x1948
0x05c8…05cc Statement 09728 @0x1944
0x05cc…05d0 Statement 09621 @0x190f
0x05d0…05d4 Statement 09253 @0x190e
0x05d4…05d8 Statement 09248 @0x190b
0x05d8…05dc Statement 09237 @0x1901
0x05dc…05e0 Statement 09232 @0x18f4
0x05e0…05e4 Statement 09221 @0x18e5
0x05e4…05e8 Statement 09216 @0x18dd
0x05e8…05ec Statement 09109 @0x18a9
0x05ec…05f0 Statement 09072 @0x18a8
0x05f0…05f4 Statement 09056 @0x18a5
0x05f4…05f8 Statement 09040 @0x18a1
0x05f8…05fc Statement 09024 @0x1894
0x05fc…0600 Statement 09008 @0x1893
0x0600…0604 Statement 08992 @0x1875
0x0604…0608 Statement 08976 @0x1857
0x0608…060c Statement 08960 @0x1854
0x060c…0610 Statement 08848 @0x1853
0x0610…0614 Statement 08832 @0x1835
0x0614…0618 Statement 08816 @0x1817
0x0618…061c Statement 08800 @0x180f
0x061c…0620 Statement 08784 @0x1807
0x0620…0624 Statement 08768 @0x17f2
0x0624…0628 Statement 08757 @0x17d1
0x0628…062c Statement 08752 @0x17c2
0x062c…0630 Statement 08736 @0x17ab
0x0630…0634 Statement 08720 @0x1786
0x0634…0638 Statement 08704 @0x1776
0x0638…063c Statement 08597 @0x1742
0x063c…0640 Statement 08464 @0x1741
0x0640…0644 Statement 08456 @0x173d
0x0644…0648 Statement 08454 @0x1728
0x0648…064c Statement 08453 @0x1717
0x064c…0650 Statement 08448 @0x1711
0x0650…0654 Statement 05888 @0x1710
0x0654…0658 Statement 05781 @0x170c
0x0658…065c Statement 05776 @0x1700
0x065c…0660 Statement 05765 @0x16fa
0x0660…0664 Statement 05760 @0x16ef
0x0664…0668 Statement 05749 @0x16dd
0x0668…066c Statement 05744 @0x16d5
0x066c…0670 Statement 05733 @0x16d4
0x0670…0674 Statement 05728 @0x16d1
0x0674…0678 Statement 05717 @0x16c0
0x0678…067c Statement 05712 @0x16af
0x067c…0680 Statement 05701 @0x16a3
0x0680…0684 Statement 05696 @0x16a2
0x0684…0688 Statement 05685 @0x169e
0x0688…068c Statement 05684 @0x1687
0x068c…0690 Statement 05680 @0x167a
0x0690…0694 Statement 05669 @0x1676
0x0694…0698 Statement 05664 @0x1669
0x0698…069c Statement 05653 @0x1660
0x069c…06a0 Statement 05648 @0x1657
0x06a0…06a4 Statement 05637 @0x164e
0x06a4…06a8 Statement 05632 @0x163a
0x06a8…06ac Statement 05525 @0x1627
0x06ac…06b0 Statement 05520 @0x1621
0x06b0…06b4 Statement 05509 @0x1611
0x06b4…06b8 Statement 05504 @0x15e7
0x06b8…06bc Statement 05493 @0x15e6
0x06bc…06c0 Statement 05488 @0x15e2
0x06c0…06c4 Statement 05477 @0x15e1
0x06c4…06c8 Statement 05472 @0x15d0
0x06c8…06cc Statement 05461 @0x15ba
0x06cc…06d0 Statement 05456 @0x15b7
0x06d0…06d4 Statement 05445 @0x15b6
0x06d4…06d8 Statement 05440 @0x15a5
0x06d8…06dc Statement 05429 @0x158f
0x06dc…06e0 Statement 05424 @0x1585
0x06e0…06e4 Statement 05413 @0x157b
0x06e4…06e8 Statement 05408 @0x1575
0x06e8…06ec Statement 05397 @0x1569
0x06ec…06f0 Statement 05392 @0x1545
0x06f0…06f4 Statement 04960 @0x1544
0x06f4…06f8 Statement 04949 @0x1541
0x06f8…06fc Statement 04944 @0x153d
0x06fc…0700 Statement 04933 @0x1532
0x0700…0704 Statement 04928 @0x1525
0x0704…0708 Statement 04917 @0x151a
0x0708…070c Statement 04912 @0x150f
0x070c…0710 Statement 04903 @0x150b
0x0710…0714 Statement 04757 @0x14fe
0x0714…0718 Statement 04752 @0x14f3
0x0718…071c Statement 04741 @0x14e8
0x071c…0720 Statement 04736 @0x14db
0x0720…0724 Statement 04725 @0x14d0
0x0724…0728 Statement 04720 @0x14c5
0x0728…072c Statement 04711 @0x14be
0x072c…0730 Statement 04709 @0x14b6
0x0730…0734 Statement 04706 @0x14a1
0x0734…0738 Statement 04704 @0x1498
0x0738…073c Statement 04693 @0x148f
0x073c…0740 Statement 04688 @0x1485
0x0740…0744 Statement 04677 @0x147b
0x0744…0748 Statement 04672 @0x146a
0x0748…074c Statement 04661 @0x145d
0x074c…0750 Statement 04656 @0x144f
0x0750…0754 Statement 04645 @0x1441
0x0754…0758 Statement 04640 @0x1431
0x0758…075c Statement 04629 @0x141e
0x075c…0760 Statement 04624 @0x140e
0x0760…0764 Statement 04613 @0x1404
0x0764…0768 Statement 04608 @0x13d3
0x0768…076c Statement 04485 @0x13d2
0x076c…0770 Statement 04480 @0x13cf
0x0770…0774 Statement 04469 @0x13c0
0x0774…0778 Statement 04464 @0x1399
0x0778…077c Statement 04453 @0x138a
0x077c…0780 Statement 04448 @0x1382
0x0780…0784 Statement 04437 @0x1351
0x0784…0788 Statement 04432 @0x1350
0x0788…078c Statement 04421 @0x134d
0x078c…0790 Statement 04405 @0x1349
0x0790…0794 Statement 04400 @0x133c
0x0794…0798 Statement 04389 @0x1331
0x0798…079c Statement 04384 @0x1326
0x079c…07a0 Statement 04373 @0x1319
0x07a0…07a4 Statement 04368 @0x130e
0x07a4…07a8 Statement 04360 @0x1303
0x07a8…07ac Statement 04359 @0x12fb
0x07ac…07b0 Statement 04358 @0x12fa
0x07b0…07b4 Statement 04357 @0x12ed
0x07b4…07b8 Statement 04355 @0x12e2
0x07b8…07bc Statement 04354 @0x12d7
0x07bc…07c0 Statement 04353 @0x12d4
0x07c0…07c4 Statement 04352 @0x12bf
0x07c4…07c8 Statement 04249 @0x12b6
0x07c8…07cc Statement 04248 @0x12ad
0x07cc…07d0 Statement 04246 @0x129a
0x07d0…07d4 Statement 04245 @0x128d
0x07d4…07d8 Statement 04242 @0x1283
0x07d8…07dc Statement 04240 @0x1276
0x07dc…07e0 Statement 04229 @0x1268
0x07e0…07e4 Statement 04224 @0x125e
0x07e4…07e8 Statement 04213 @0x1254
0x07e8…07ec Statement 04208 @0x1244
0x07ec…07f0 Statement 04197 @0x1231
0x07f0…07f4 Statement 04192 @0x1221
0x07f4…07f8 Statement 04165 @0x1217
0x07f8…07fc Statement 04160 @0x1207
0x07fc…0800 Statement 04149 @0x1206
0x0800…0804 Statement 04148 @0x1203
0x0804…0808 Statement 04133 @0x11f3
0x0808…080c Statement 04128 @0x11e3
0x080c…0810 Statement 04117 @0x11cf
0x0810…0814 Statement 04112 @0x11bb
0x0814…0818 Statement 04101 @0x11b3
0x0818…081c Statement 04096 @0x119c
0x081c…0820 Statement 02405 @0x116c
0x0820…0824 Statement 02400 @0x1157
0x0824…0828 Statement 02373 @0x1156
0x0828…082c Statement 02368 @0x1153
0x082c…0830 Statement 02357 @0x1152
0x0830…0834 Statement 02352 @0x1126
0x0834…0838 Statement 02341 @0x1119
0x0838…083c Statement 02336 @0x110b
0x083c…0840 Statement 02325 @0x1108
0x0840…0844 Statement 02320 @0x1107
0x0844…0848 Statement 02309 @0x10e4
0x0848…084c Statement 02306 @0x10be
0x084c…0850 Statement 02304 @0x10b4
0x0850…0854 Statement 02200 @0x10b3
0x0854…0858 Statement 02198 @0x109e
0x0858…085c Statement 02196 @0x1078
0x085c…0860 Statement 02194 @0x106e
0x0860…0864 Statement 02193 @0x106d
0x0864…0868 Statement 02192 @0x1056
0x0868…086c Statement 02184 @0x1048
0x086c…0870 Statement 02183 @0x103e
0x0870…0874 Statement 02182 @0x103d
0x0874…0878 Statement 02181 @0x1026
0x0878…087c Statement 02180 @0x1018
0x087c…0880 Statement 02178 @0x100f
0x0880…0884 Statement 02176 @0xfff
0x0884…0888 Statement 02160 @0xff5
0x0888…088c Statement 02149 @0xfec
0x088c…0890 Statement 02144 @0xfce
0x0890…0894 Statement 02128 @0xfcd
0x0894…0898 Statement 02117 @0xfca
0x0898…089c Statement 02096 @0xf90
0x089c…08a0 Statement 02068 @0xf83
0x08a0…08a4 Statement 02064 @0xf76
0x08a4…08a8 Statement 02056 @0xf65
0x08a8…08ac Statement 02053 @0xf5a
0x08ac…08b0 Statement 02048 @0xf4d
0x08b0…08b4 Statement 01941 @0xf31
0x08b4…08b8 Statement 01925 @0xf30
0x08b8…08bc Statement 01920 @0xf2d
0x08bc…08c0 Statement 01909 @0xf0d
0x08c0…08c4 Statement 01877 @0xf00
0x08c4…08c8 Statement 01872 @0xef8
0x08c8…08cc Statement 01861 @0xee4
0x08cc…08d0 Statement 01856 @0xee3
0x08d0…08d4 Statement 01845 @0xed0
0x08d4…08d8 Statement 01824 @0xec7
0x08d8…08dc Statement 01813 @0xeb9
0x08dc…08e0 Statement 01810 @0xead
0x08e0…08e4 Statement 01808 @0xea7
0x08e4…08e8 Statement 01797 @0xe88
0x08e8…08ec Statement 01344 @0xe87
0x08ec…08f0 Statement 01333 @0xe84
0x08f0…08f4 Statement 01328 @0xe81
0x08f4…08f8 Statement 01317 @0xe74
0x08f8…08fc Statement 01312 @0xe6d
0x08fc…0900 Statement 01301 @0xe5e
0x0900…0904 Statement 01296 @0xe58
0x0904…0908 Statement 01285 @0xe2d
0x0908…090c Statement 01280 @0xe2c
0x090c…0910 Statement 01120 @0xe2b
0x0910…0914 Statement 01109 @0xe28
0x0914…0918 Statement 01093 @0xe18
0x0918…091c Statement 01088 @0xe09
0x091c…0920 Statement 01077 @0xdfa
0x0920…0924 Statement 01074 @0xde9
0x0924…0928 Statement 01072 @0xde6
0x0928…092c Statement 01056 @0xdde
0x092c…0930 Statement 01045 @0xdce
0x0930…0934 Statement 01040 @0xdbe
0x0934…0938 Statement 01029 @0xda4
0x0938…093c Statement 00896 @0xd9b
0x093c…0940 Statement 00853 @0xd96
0x0940…0944 Statement 00848 @0xd54
0x0944…0948 Statement 00832 @0xd53
0x0948…094c Statement 00640 @0xd50
0x094c…0950 Statement 00624 @0xd3d
0x0950…0954 Statement 00616 @0xd26
0x0954…0958 Statement 00613 @0xd07
0x0958…095c Statement 00609 @0xcfc
0x095c…0960 Statement 00608 @0xce4
0x0960…0964 Statement 00544 @0xce1
0x0964…0968 Statement 00528 @0xcb7
0x0968…096c Statement 00512 @0xcb6
0x096c…0970 Statement 00407 @0xcad
0x0970…0974 Statement 00405 @0xcaa
0x0974…0978 Statement 00400 @0xca6
0x0978…097c Statement 00368 @0xca5
0x097c…0980 Statement 00357 @0xc96
0x0980…0984 Statement 00352 @0xc87
0x0984…0988 Statement 00341 @0xc77
0x0988…098c Statement 00338 @0xc67
0x098c…0990 Statement 00336 @0xc5e
0x0990…0994 Statement 00325 @0xc5d
0x0994…0998 Statement 00320 @0xc4e
0x0998…099c Statement 00311 @0xc44
0x099c…09a0 Statement 00309 @0xc31
0x09a0…09a4 Statement 00306 @0xc17
0x09a4…09a8 Statement 00305 @0xbfd
0x09a8…09ac Statement 00304 @0xbf2
0x09ac…09b0 Statement 00290 @0xbe9
0x09b0…09b4 Statement 00288 @0xbe8
0x09b4…09b8 Statement 00280 @0xbe5
0x09b8…09bc Statement 00278 @0xbe4
0x09bc…09c0 Statement 00276 @0xbbb
0x09c0…09c4 Statement 00275 @0xbae
0x09c4…09c8 Statement 00274 @0xba5
0x09c8…09cc Statement 00272 @0xb93
0x09cc…09d0 Statement 00263 @0xb88
0x09d0…09d4 Statement 00261 @0xb7d
0x09d4…09d8 Statement 00260 @0xb7b
0x09d8…09dc Statement 00258 @0xb62
0x09dc…09e0 Statement 00257 @0xb60
0x09e0…09e4 Statement 00150 @0xb54
0x09e4…09e8 Statement 00148 @0xb50
0x09e8…09ec Statement 00128 @0xb18
0x09ec…09f0 Statement 00117 @0xb07
0x09f0…09f4 Statement 00112 @0xb02
0x09f4…09f8 Statement 00102 @0xaf5
0x09f8…09fc Statement 00098 @0xaf0
0x09fc…0a00 Statement 00096 @0xaeb
0x0a00…0a04 Statement 00048 @0xae0
0x0a04…0a08 Statement 00037 @0xad1
0x0a08…0a0c Statement 00032 @0xac9
0x0a0c…0a10 Statement 00021 @0xabb
0x0a10…0a14 Statement 00016 @0xa98
0x0a14…0a18 Statement 00009 @0xa95
0x0a18…0a1c Statement 00008 @0xa84
0x0a1c…0a20 Statement 00007 @0xa6a
0x0a20…0a24 Statement 00006 @0xa54
0x0a24…0a28 Statement 00005 @0xa40
0x0a28…0a2c Statement 00001 @0xa2c
0x0a2c…0a40 0001 COM ELEMENT var(B$) ( 8 ) [] ELEMENT var(T0$) ( 8 ) [] ELEMENT var(T1$) ( 8 ) [] EOS
0x0a40…0a54 0005 COM ELEMENT var(N1$) ( 20 ) [] ELEMENT var(N2$) ( 20 ) [] ELEMENT var(N3$) ( 20 ) [] EOS
0x0a54…0a6a 0006 COM ELEMENT var(P$) ( 8 ) [] ELEMENT var(Q$) ( 8 ) [] ELEMENT var(Z$) ( %70 ) [] EOS
0x0a6a…0a84 0007 COM ELEMENT var(P') ( 5 ) [] ELEMENT var(Q') ( 5 ) [] ELEMENT var(X1') ( 5 ) [] ELEMENT var(Y1') ( 5 ) [] EOS
0x0a84…0a95 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
0x0a95…0a98 0009 COM var(M0) EOS
0x0a98…0abb 0010 DIM ELEMENT var(X$) ( %70 ) [] ELEMENT var(P0$) ( 8 ) [] ELEMENT var(L0$) ( 1 ) [] ELEMENT var(Z0$) ( 1 ) [] ELEMENT var(S0$) ( 2 1 ) [] EOS
0x0abb…0ac9 0015 DIM ELEMENT var(S$) ( 1 ) [] ELEMENT var(Q9$) ( 6 ) [] EOS
0x0ac9…0ad1 0020 DIM ELEMENT var(D0') ( 7 ) [] EOS
0x0ad1…0ae0 0025 SYSTEM »LINELEN« COMMA %80 EOS
0x0ae0…0aeb 0030 SYSTEM »WARNOFF« EOS
0x0aeb…0af0 0060 LET var(X0) COMMA 0 EOS
0x0af0…0af5 0062 LET var(Y0) COMMA 0 EOS
0x0af5…0b02 0066 LET var(P1) COMMA 3.14159 EOS
0x0b02…0b07 0070 LET var(H1) COMMA 3 EOS
0x0b07…0b18 0075 LET var(Z9) COMMA 1 var(M0) MULT 1000 DIV EOS
0x0b18…0b50 0080 REM ************* READ CURRENT PARAM ******************
0x0b50…0b54 0094 DEF var(FNA%) var(X$) EOS
0x0b54…0b60 0096 IF = ( var(X$) ) LEN 5 ?< COMMA 5 0 EOS
0x0b60…0b62 0101 PRINT EOS
0x0b62…0b7b 0102 PRINT »>CURRENT TH. CODE :« SEMI var(X$) EOS
0x0b7b…0b7d 0104 PRINT EOS
0x0b7d…0b88 0105 LET var(Z0$) COMMA ELEMENT var(X$) ( 11 11 ) [] EOS
0x0b88…0b93 0107 LET var(T0$) COMMA ELEMENT var(X$) ( 1 8 ) [] EOS
0x0b93…0ba5 0110 IF ELEMENT var(T0$) ( 1 4 ) [] »MESS« EQ COMMA 34 EOS
0x0ba5…0bae 0112 IF var(Z0$) »H« EQ COMMA 34 EOS
0x0bae…0bbb 0113 LET var(X%) COMMA = ( var(X4) var(Y4) »U« ) var(FNP%) EOS
0x0bbb…0be4 0114 LINPUT »>HIT RETURN-KEY TO CONTINUE :« COMMA ELEMENT var(X$) ( 1 1 ) [] EOS
0x0be4…0be5 0116 DOEND
0x0be5…0be8 0118 RETURN 0 EOS
0x0be8…0be9 0120 DOEND
0x0be9…0bf2 0122 IF var(Z0$) »L« EQ COMMA 34 EOS
0x0bf2…0bfd 0130 LET var(L0$) COMMA ELEMENT var(X$) ( 13 13 ) [] EOS
0x0bfd…0c17 0131 IF ELEMENT var(X$) ( 14 14 ) [] » « EQ COMMA 27 ELEMENT var(X$) ( 14 14 ) [] COMMA »0« EOS
0x0c17…0c31 0132 IF ELEMENT var(X$) ( 15 15 ) [] » « EQ COMMA 27 ELEMENT var(X$) ( 15 15 ) [] COMMA »0« EOS
0x0c31…0c44 0135 LET var(L0%) COMMA = ( = ( ELEMENT var(X$) ( 14 15 ) [] ) VAL ) → a1f3
0x0c44…0c4e 0137 IF var(L0%) 0 EQ COMMA 27 var(L0%) COMMA 5 EOS
0x0c4e…0c5d 0140 LET var(F0%) COMMA ELEMENT var(X$) ( 16 16 ) [] »S« EQ EOS
0x0c5d…0c5e 0145 DOEND
0x0c5e…0c67 0150 IF var(Z0$) »P« EQ COMMA 34 EOS
0x0c67…0c77 0152 LET ELEMENT var(S0$) ( 1 ) [] COMMA ELEMENT var(X$) ( 13 13 ) [] EOS
0x0c77…0c87 0155 LET ELEMENT var(S0$) ( 2 ) [] COMMA ELEMENT var(X$) ( 14 14 ) [] EOS
0x0c87…0c96 0160 LET var(V0%) COMMA ELEMENT var(X$) ( 15 15 ) [] »P« EQ EOS
0x0c96…0ca5 0165 LET var(W0%) COMMA ELEMENT var(X$) ( 16 16 ) [] »Z« EQ EOS
0x0ca5…0ca6 0170 DOEND
0x0ca6…0caa 0190 RESTORE 2# EOS
0x0caa…0cad 0195 RETURN 1 EOS
0x0cad…0cb6 0197 REM CONT
0x0cb6…0cb7 0200 FNEND
0x0cb7…0ce1 0210 REM ******** COMPUTE ANGLE **************
0x0ce1…0ce4 0220 DEF var(FNW%) EOS
0x0ce4…0cfc 0260 LET var(C1) COMMA 450 ( var(V0) %180 MULT var(P1) DIV ) SUB2 EOS
0x0cfc…0d07 0261 LET var(C1) COMMA var(C1) %180 SUB2 EOS
0x0d07…0d26 0265 IF var(C1) 360 > COMMA 27 var(C1) COMMA var(C1) 360 SUB2 EOS
0x0d26…0d3d 0268 IF var(C1) 0 ?< COMMA 27 var(C1) COMMA var(C1) 360 PLUS EOS
0x0d3d…0d50 0270 LET var(X4) COMMA ELEMENT var(X1') ( 1 ) [] COMMA var(Y4) COMMA ELEMENT var(Y1') ( 1 ) [] EOS
0x0d50…0d53 0280 RETURN 1 EOS
0x0d53…0d54 0340 FNEND
0x0d54…0d96 0350 REM ******************** READ CURRENT POINT *********************
0x0d96…0d9b 0355 DEF var(FNB%) var(X$) EOS
0x0d9b…0da4 0380 PRINT ELEMENT var(X$) ( 4 51 ) [] EOS
0x0da4…0dbe 0405 IF ELEMENT var(X$) ( 1 1 ) [] » « EQ COMMA 27 ELEMENT var(X$) ( 1 1 ) [] COMMA »0« EOS
0x0dbe…0dce 0410 LET var(J0%) COMMA = ( ELEMENT var(X$) ( 1 1 ) [] ) VAL EOS
0x0dce…0dde 0415 LET var(I0%) COMMA = ( ELEMENT var(X$) ( 2 3 ) [] ) VAL EOS
0x0dde…0de6 0420 IF var(I0%) → eff10500f3
0x0de6…0de9 0430 ELSE 34 EOS
0x0de9…0dfa 0432 LET ELEMENT var(P0$) ( 1 8 ) [] COMMA ELEMENT var(X$) ( 4 11 ) [] EOS
0x0dfa…0e09 0435 LET var(X0) COMMA = ( ELEMENT var(X$) ( 32 43 ) [] ) VAL EOS
0x0e09…0e18 0440 LET var(Y0) COMMA = ( ELEMENT var(X$) ( 20 31 ) [] ) VAL EOS
0x0e18…0e28 0445 LET var(Z0) COMMA = ( ELEMENT var(X$) ( 44 51 ) [] ) VAL EOS
0x0e28…0e2b 0455 RETURN 1 EOS
0x0e2b…0e2c 0460 DOEND
0x0e2c…0e2d 0500 FNEND
0x0e2d…0e58 0505 REM ********* DELAY FUNCTION *************
0x0e58…0e5e 0510 DEF var(FNW1%) var(K) EOS
0x0e5e…0e6d 0515 LET var(J%) COMMA = ( %100 var(K) MULT ) → a1f3
0x0e6d…0e74 0520 196501f14007f3
0x0e74…0e81 0525 LET var(X%) COMMA var(X%) 1 MULT 1 MULT 1 MULT 1 MULT EOS
0x0e81…0e84 0530 1a65f3
0x0e84…0e87 0535 RETURN 1 EOS
0x0e87…0e88 0540 FNEND
0x0e88…0ea7 0705 REM VALUE TO STRING CONVERSION
0x0ea7…0ead 0710 DEF var(FNX$) var(X) EOS
0x0ead…0eb9 0712 LET var(Q9$) COMMA »000000« EOS
0x0eb9…0ec7 0715 LET var(P$) COMMA = ( = ( var(X) ) → a174b0f3
0x0ec7…0ed0 0720 LET var(X%) COMMA = ( var(P$) ) LEN EOS
0x0ed0…0ee3 0735 RETURN ELEMENT var(Q9$) ( 1 6 var(X%) SUB2 ) [] ELEMENT var(P$) ( 1 var(X%) ) [] PLUS EOS
0x0ee3…0ee4 0740 FNEND
0x0ee4…0ef8 0745 REM PLOT COORDINATE
0x0ef8…0f00 0750 DEF var(FNP%) var(X1) var(Y1) var(S$) EOS
0x0f00…0f0d 0755 LET var(X%) COMMA = ( var(X1) var(Y1) ) var(FNZ%) EOS
0x0f0d…0f2d 0775 PRINT 5# SEMI ELEMENT var(S$) ( 1 1 ) [] = ( var(Y3) ) var(FNX$) PLUS »,« PLUS = ( var(X3) ) var(FNX$) PLUS EOS
0x0f2d…0f30 0780 RETURN 1 EOS
0x0f30…0f31 0785 FNEND
0x0f31…0f4d 0795 REM OUTPUT STRING OR SYMBOL
0x0f4d…0f5a 0800 DEF var(FNX%) var(X) var(Y) var(H) var(V) var(X$) EOS
0x0f5a…0f65 0805 LET var(V) COMMA var(V) %100 MULT EOS
0x0f65…0f76 0808 LET var(H) COMMA var(H) 3.333 MULT EOS
0x0f76…0f83 0810 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x0f83…0f90 0814 LET var(X) COMMA var(X3) COMMA var(Y) COMMA var(Y3) EOS
0x0f90…0fca 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
0x0fca…0fcd 0845 RETURN 1 EOS
0x0fcd…0fce 0850 FNEND
0x0fce…0fec 0860 REM **** SELECT SYMBOL ******
0x0fec…0ff5 0865 DEF var(FNT%) var(X) var(Y) var(Z$) EOS
0x0ff5…0fff 0870 LET var(X%) COMMA = ( 1 ) var(FNW1%) EOS
0x0fff…100f 0880 IF var(Z$) »A« ?< var(Z$) »F« > OR COMMA 5 0 EOS
0x100f…1018 0882 IF var(Z$) »C« EQ COMMA 34 EOS
0x1018…1026 0884 LET var(H) COMMA 2.25 EOS
0x1026…103d 0885 LET var(X%) COMMA = ( var(X) var(Y) var(H) var(V1) = ( %115 ) → af74400ff3
0x103d…103e 0886 DOEND
0x103e…1048 0887 ELSE 3 var(Z$) »D« EQ COMMA 34 EOS
0x1048…1056 0888 LET var(H) COMMA 2.25 EOS
0x1056…106d 0890 LET var(X%) COMMA = ( var(X) var(Y) var(H) var(V1) = ( %122 ) → af74400ff3
0x106d…106e 0891 DOEND
0x106e…1078 0892 ELSE 3 var(Z$) »E« EQ COMMA 34 EOS
0x1078…109e 0894 LET var(H) COMMA 4.5 ( var(M0) 500 > ) 1.5 MULT PLUS EOS
0x109e…10b3 0896 LET var(X%) COMMA = ( var(X) var(Y) var(H) var(V1) = ( 42 ) → af74400ff3
0x10b3…10b4 0898 DOEND
0x10b4…10be 0900 ELSE 3 var(Z$) »F« EQ COMMA 34 EOS
0x10be…10e4 0902 LET var(H) COMMA 4.5 ( var(M0) 500 > ) 1.5 MULT PLUS EOS
0x10e4…1107 0905 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNQ%) COMMA var(X%) COMMA = ( var(X) var(Y) var(H) var(V1) = ( %97 ) → af74400ff3
0x1107…1108 0910 DOEND
0x1108…110b 0915 ELSE 34 EOS
0x110b…1119 0920 LET var(H) COMMA 1 ( var(Z$) »B« EQ ) PLUS EOS
0x1119…1126 0925 LET var(X%) COMMA = ( var(X) var(Y) ) var(FNZ%) EOS
0x1126…1152 0930 PRINT 5# SEMI »C« = ( var(Y3) ) var(FNX$) PLUS »,« PLUS = ( var(X3) ) var(FNX$) PLUS »,« PLUS = ( 20 var(H) MULT 2 DIV ) var(FNX$) PLUS EOS
0x1152…1153 0935 DOEND
0x1153…1156 0940 RETURN 1 EOS
0x1156…1157 0945 FNEND
0x1157…116c 0960 REM COMPUTE DISTANCE
0x116c…119c 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
0x119c…11b3 1000 REM COMPUTE PLOT-UNITS
0x11b3…11bb 1005 DEF var(FNZ%) var(X) var(Y) EOS
0x11bb…11cf 1010 LET var(Q1) COMMA var(S0) ( var(X) ELEMENT var(X1') ( 1 ) [] SUB2 ) MULT var(M0) DIV EOS
0x11cf…11e3 1015 LET var(Q2) COMMA var(S0) ( var(Y) ELEMENT var(Y1') ( 1 ) [] SUB2 ) MULT var(M0) DIV EOS
0x11e3…11f3 1020 LET var(X3) COMMA var(X7) var(Q1) var(W9) MULT PLUS var(Q2) var(W8) MULT SUB2 EOS
0x11f3…1203 1025 LET var(Y3) COMMA var(Y7) var(Q2) var(W9) MULT PLUS var(Q1) var(W8) MULT PLUS EOS
0x1203…1206 1034 RETURN 1 EOS
0x1206…1207 1035 FNEND
0x1207…1217 1040 REM BROKEN LINE
0x1217…1221 1045 DEF var(FNL1%) var(X1) var(Y1) var(S%) EOS
0x1221…1231 1060 LET var(S1) COMMA 0.001 var(M0) MULT EOS
0x1231…1244 1065 LET var(S2) COMMA 0.001 var(S%) MULT var(M0) MULT EOS
0x1244…1254 1070 LET var(D) COMMA = ( var(X1) var(Y1) var(X4) var(Y4) ) var(FND) EOS
0x1254…125e 1075 LET var(D) COMMA var(D) var(S2) SUB2 EOS
0x125e…1268 1080 LET var(S3) COMMA var(S1) var(S2) PLUS EOS
0x1268…1276 1085 LET var(I%) COMMA = ( var(D) var(S3) DIV ) → a1f3
0x1276…1283 1090 LET var(R) COMMA var(D) var(S3) var(I%) MULT SUB2 EOS
0x1283…128d 1092 LET var(D) COMMA var(D) var(S2) PLUS EOS
0x128d…129a 1095 LET var(S1) COMMA var(S1) var(R) var(I%) DIV PLUS EOS
0x129a…12ad 1096 LET var(Q6) COMMA var(S1) var(D) DIV COMMA var(Q7) COMMA var(S2) var(D) DIV EOS
0x12ad…12b6 1098 LET var(Q8) COMMA var(X1) var(X4) SUB2 EOS
0x12b6…12bf 1099 LET var(Q9) COMMA var(Y1) var(Y4) SUB2 EOS
0x12bf…12d4 1100 IF var(I%) 0 → e9f11b65f17173400a400b7001447466f3
0x12d4…12d7 1101 ELSE 34 EOS
0x12d7…12e2 1102 LET var(X4) COMMA var(X4) var(Q7) var(Q8) MULT PLUS EOS
0x12e2…12ed 1103 LET var(Y4) COMMA var(Y4) var(Q7) var(Q9) MULT PLUS EOS
0x12ed…12fa 1105 LET var(X%) COMMA = ( var(X4) var(Y4) »D« ) var(FNP%) EOS
0x12fa…12fb 1106 DOEND
0x12fb…1303 1107 19400701f14020f3
0x1303…130e 1108 LET var(X4) COMMA var(X4) var(Q6) var(Q8) MULT PLUS EOS
0x130e…1319 1110 LET var(Y4) COMMA var(Y4) var(Q6) var(Q9) MULT PLUS EOS
0x1319…1326 1115 LET var(X%) COMMA = ( var(X4) var(Y4) »U« ) var(FNP%) EOS
0x1326…1331 1120 LET var(X4) COMMA var(X4) var(Q7) var(Q8) MULT PLUS EOS
0x1331…133c 1125 LET var(Y4) COMMA var(Y4) var(Q7) var(Q9) MULT PLUS EOS
0x133c…1349 1130 LET var(X%) COMMA = ( var(X4) var(Y4) »D« ) var(FNP%) EOS
0x1349…134d 1135 1a4007f3
0x134d…1350 1145 RETURN 1 EOS
0x1350…1351 1150 FNEND
0x1351…1382 1155 REM *********** PLOT SINGLE POINT **************
0x1382…138a 1160 DEF var(FNQ%) var(X) var(Y) EOS
0x138a…1399 1165 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x1399…13c0 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
0x13c0…13cf 1175 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x13cf…13d2 1180 RETURN 1 EOS
0x13d2…13d3 1185 FNEND
0x13d3…1404 1200 REM ****** BROKEN/DOTTED LINE ******************
0x1404…140e 1205 DEF var(FNL2%) var(X1) var(Y1) var(S%) EOS
0x140e…141e 1210 LET var(S1) COMMA 0.001 var(M0) MULT EOS
0x141e…1431 1215 LET var(S2) COMMA 0.001 var(S%) MULT var(M0) MULT EOS
0x1431…1441 1220 LET var(D) COMMA = ( var(X1) var(Y1) var(X4) var(Y4) ) var(FND) EOS
0x1441…144f 1225 LET var(S3) COMMA 3 var(S1) MULT 2 var(S2) MULT PLUS EOS
0x144f…145d 1230 LET var(N%) COMMA = ( var(D) var(S3) DIV ) → a1f3
0x145d…146a 1235 LET var(R) COMMA var(D) var(N%) var(S3) MULT SUB2 EOS
0x146a…147b 1240 LET var(S1) COMMA var(S1) var(R) ( 3 var(N%) MULT ) DIV PLUS EOS
0x147b…1485 1245 LET var(Q6) COMMA var(S1) var(D) DIV EOS
0x1485…148f 1250 LET var(Q7) COMMA var(S2) var(D) DIV EOS
0x148f…1498 1255 LET var(Q8) COMMA var(X1) var(X4) SUB2 EOS
0x1498…14a1 1260 LET var(Q9) COMMA var(Y1) var(Y4) SUB2 EOS
0x14a1…14b6 1262 IF var(N%) 0 EQ COMMA 27 var(X%) COMMA = ( var(X1) var(Y1) var(S%) ) var(FNL1%) EOS
0x14b6…14be 1265 19400701f14027f3
0x14be…14c5 1267 19402001f102f3
0x14c5…14d0 1270 LET var(X4) COMMA var(X4) var(Q6) var(Q8) MULT PLUS EOS
0x14d0…14db 1275 LET var(Y4) COMMA var(Y4) var(Q6) var(Q9) MULT PLUS EOS
0x14db…14e8 1280 LET var(X%) COMMA = ( var(X4) var(Y4) »U« ) var(FNP%) EOS
0x14e8…14f3 1285 LET var(X4) COMMA var(X4) var(Q7) var(Q8) MULT PLUS EOS
0x14f3…14fe 1290 LET var(Y4) COMMA var(Y4) var(Q7) var(Q9) MULT PLUS EOS
0x14fe…150b 1295 LET var(X%) COMMA = ( var(X4) var(Y4) »D« ) var(FNP%) EOS
0x150b…150f 1327 1a4020f3
0x150f…151a 1330 LET var(X4) COMMA var(X4) var(Q6) var(Q8) MULT PLUS EOS
0x151a…1525 1335 LET var(Y4) COMMA var(Y4) var(Q6) var(Q9) MULT PLUS EOS
0x1525…1532 1340 LET var(X%) COMMA = ( var(X4) var(Y4) »U« ) var(FNP%) EOS
0x1532…153d 1345 LET var(X%) COMMA = ( var(X4) var(Y4) ) var(FNQ%) EOS
0x153d…1541 1350 1a4007f3
0x1541…1544 1355 RETURN 1 EOS
0x1544…1545 1360 FNEND
0x1545…1569 1510 REM ------------- FUN VINKEL ------
0x1569…1575 1515 DEF var(FNV) var(X1) var(Y1) var(X2) var(Y2) EOS
0x1575…157b 1520 LET var(W6) COMMA 0 EOS
0x157b…1585 1525 LET var(D5) COMMA var(X2) var(X1) SUB2 EOS
0x1585…158f 1530 LET var(D6) COMMA var(Y2) var(Y1) SUB2 EOS
0x158f…15a5 1535 IF ( = ( var(D6) ) ?ABS 1e-06 ?< ) COMMA 34 EOS
0x15a5…15b6 1540 IF ( var(D5) 0 ?< ) COMMA 27 var(W6) COMMA var(W6) var(P1) PLUS EOS
0x15b6…15b7 1545 DOEND
0x15b7…15ba 1550 ELSE 34 EOS
0x15ba…15d0 1555 LET var(W6) COMMA = ( = ( var(D5) var(D6) DIV ) → aa5402e5e374a2f3
0x15d0…15e1 1560 IF ( var(D6) 0 ?< ) COMMA 27 var(W6) COMMA var(W6) var(P1) PLUS EOS
0x15e1…15e2 1565 DOEND
0x15e2…15e6 1570 RETURN var(W6) EOS
0x15e6…15e7 1575 FNEND
0x15e7…1611 1580 REM ------------- FUN LENG --------------
0x1611…1621 1585 DEF var(FNL%) var(X1) var(Y1) var(X2) var(Y2) var(I6%) var(I5%) EOS
0x1621…1627 1590 LET var(R5%) COMMA 0 EOS
0x1627…163a 1595 LET var(D5) COMMA var(X1) var(X2) SUB2 COMMA var(D6) COMMA var(Y1) var(Y2) SUB2 EOS
0x163a…164e 1600 LET var(L5) COMMA = ( var(D5) var(D5) MULT var(D6) var(D6) MULT PLUS ) SQR EOS
0x164e…1657 1605 LET var(I7) COMMA var(I3) 2 MULT EOS
0x1657…1660 1610 IF var(I6%) 2 EQ COMMA 0 48 22
0x1660…1669 1615 IF var(I5%) 2 EQ COMMA 0 48 22
0x1669…1676 1620 IF var(L5) var(I3) > COMMA 27 var(R5%) COMMA 2 EOS
0x1676…167a 1625 RETURN var(R5%) EOS
0x167a…1687 1630 IF var(L5) var(I7) > COMMA 27 var(R5%) COMMA 2 EOS
0x1687…169e 1634 ELSE 3 var(L5) var(I3) > COMMA 27 var(I3) COMMA var(L5) var(I3) SUB2 COMMA var(R5%) COMMA 2 EOS
0x169e…16a2 1635 RETURN var(R5%) EOS
0x16a2…16a3 1640 FNEND
0x16a3…16af 1645 DEF var(FNS) var(X1) var(Y1) var(W1) var(I3) EOS
0x16af…16c0 1650 LET var(U8) COMMA var(X1) var(I3) = ( var(W1) ) → a8e4e2f3
0x16c0…16d1 1655 LET var(V8) COMMA var(Y1) var(I3) = ( var(W1) ) → a9e4e2f3
0x16d1…16d4 1660 RETURN 1 EOS
0x16d4…16d5 1665 FNEND
0x16d5…16dd 1670 DEF var(FNW) var(A1) var(A2) EOS
0x16dd…16ef 1675 LET var(D7) COMMA ( var(A1) var(A2) SUB2 ) %180 MULT var(P1) DIV EOS
0x16ef…16fa 1680 LET var(R6) COMMA = ( var(D7) ) ?ABS EOS
0x16fa…1700 1685 LET var(R7) COMMA 2 EOS
0x1700…170c 1690 IF var(R6) 2 ?< COMMA 27 var(R7) COMMA 1 EOS
0x170c…1710 1695 RETURN var(R7) EOS
0x1710…1711 1700 FNEND
0x1711…1717 2100 DEF var(FNV1) var(W1) EOS
0x1717…1728 2105 IF var(W1) 0 ?< COMMA 27 var(W1) COMMA var(W1) 2 var(P1) MULT PLUS EOS
0x1728…173d 2106 IF var(W1) ( 2 var(P1) MULT ) > COMMA 27 var(W1) COMMA var(W1) 2 var(P1) MULT SUB2 EOS
0x173d…1741 2108 RETURN var(W1) EOS
0x1741…1742 2110 FNEND
0x1742…1776 2195 REM ******** PLOT PSEUDO-ARC **********************
0x1776…1786 2200 DEF var(FNC2%) var(X1) var(Y1) var(W1) var(W2) var(R1) var(I1%) EOS
0x1786…17ab 2210 LET var(W1) COMMA 1.5 var(P1) MULT var(W1) PLUS COMMA var(W2) COMMA 1.5 var(P1) MULT var(W2) PLUS EOS
0x17ab…17c2 2220 LET var(W1) COMMA = ( var(W1) ) var(FNV1) COMMA var(W2) COMMA = ( var(W2) ) var(FNV1) EOS
0x17c2…17d1 2230 LET var(C5) COMMA = ( var(W2) var(W1) SUB2 ) var(FNV1) EOS
0x17d1…17f2 2235 IF var(I1%) 2 EQ COMMA 27 var(C5) COMMA 2 var(P1) MULT var(C5) SUB2 COMMA var(R1) COMMA -1 var(R1) MULT EOS
0x17f2…1807 2240 LET var(C4%) COMMA = ( var(C5) 0.5 DIV ) → a1f3
0x1807…180f 2250 19402001f14043f3
0x180f…1817 2260 IF var(I1%) 3 EQ COMMA 34 EOS
0x1817…1835 2270 LET var(C5) COMMA var(X1) var(R1) = ( var(W1) var(I%) 0.5 MULT PLUS ) → a8e4e2f3
0x1835…1853 2280 LET var(C6) COMMA var(Y1) var(R1) = ( var(W1) var(I%) 0.5 MULT PLUS ) → a9e4e2f3
0x1853…1854 2290 DOEND
0x1854…1857 2300 ELSE 34 EOS
0x1857…1875 2310 LET var(C5) COMMA var(X1) var(R1) = ( var(W1) var(I%) 0.5 MULT SUB2 ) → a8e4e2f3
0x1875…1893 2320 LET var(C6) COMMA var(Y1) var(R1) = ( var(W1) var(I%) 0.5 MULT SUB2 ) → a9e4e2f3
0x1893…1894 2330 DOEND
0x1894…18a1 2340 LET var(X%) COMMA = ( var(C5) var(C6) ) var(FNP1%) EOS
0x18a1…18a5 2350 1a4020f3
0x18a5…18a8 2360 RETURN 1 EOS
0x18a8…18a9 2370 FNEND
0x18a9…18dd 2395 REM ********* START SPLINE SEQUENCE ***************
0x18dd…18e5 2400 DEF var(FNP9%) var(X) var(Y) EOS
0x18e5…18f4 2405 LET var(X%) COMMA = ( var(X) var(Y) »U« ) var(FNP%) EOS
0x18f4…1901 2410 LET var(G3) COMMA var(X) COMMA var(G4) COMMA var(Y) EOS
0x1901…190b 2415 LET ELEMENT var(D0') ( 7 ) [] COMMA 0 EOS
0x190b…190e 2420 RETURN 1 EOS
0x190e…190f 2425 FNEND
0x190f…1944 2595 REM ********* INITIATE SPLINE LINE TYPE ************
0x1944…1948 2600 DEF var(FNW6%) EOS
0x1948…194e 2602 LET var(J8%) COMMA 0 EOS
0x194e…1957 2605 IF var(L0$) »B« EQ COMMA 34 EOS
0x1957…196d 2610 LET ELEMENT var(D0') ( 1 ) [] COMMA var(M0) var(L0%) MULT 1000 DIV EOS
0x196d…1982 2615 LET ELEMENT var(D0') ( 2 ) [] COMMA var(M0) SUB1 1000 DIV EOS
0x1982…1988 2620 LET var(L9%) COMMA 2 EOS
0x1988…1989 2625 DOEND
0x1989…1993 2630 ELSE 3 var(L0$) »C« EQ COMMA 34 EOS
0x1993…19a9 2635 LET ELEMENT var(D0') ( 1 ) [] COMMA var(M0) var(L0%) MULT 1000 DIV EOS
0x19a9…19be 2640 LET ELEMENT var(D0') ( 2 ) [] COMMA var(M0) SUB1 1000 DIV EOS
0x19be…19d4 2645 LET ELEMENT var(D0') ( 3 ) [] COMMA var(M0) var(L0%) MULT 1000 DIV EOS
0x19d4…19f3 2650 LET ELEMENT var(D0') ( 4 ) [] COMMA var(M0) SUB1 0.95 MULT 1000 DIV EOS
0x19f3…1a11 2655 LET ELEMENT var(D0') ( 5 ) [] COMMA var(M0) 0.01 MULT 1000 DIV EOS
0x1a11…1a30 2660 LET ELEMENT var(D0') ( 6 ) [] COMMA var(M0) SUB1 0.95 MULT 1000 DIV EOS
0x1a30…1a36 2665 LET var(L9%) COMMA 6 EOS
0x1a36…1a37 2670 DOEND
0x1a37…1a3d 2672 LET var(L8%) COMMA 1 EOS
0x1a3d…1a48 2673 LET var(G3) COMMA var(X0) COMMA var(G4) COMMA var(Y0) EOS
0x1a48…1a4b 2675 RETURN 1 EOS
0x1a4b…1a4c 2680 FNEND
0x1a4c…1a79 2695 REM ********* OUTPUT SPLINE LINE ***********
0x1a79…1a81 2700 DEF var(FNP1%) var(P) var(Q) EOS
0x1a81…1a8b 2702 IF var(L0$) »A« <> COMMA 0 32 39
0x1a8b…1a9a 2705 LET var(X%) COMMA = ( var(P) var(Q) »D« ) var(FNP%) EOS
0x1a9a…1a9d 2715 RETURN 1 EOS
0x1a9d…1aaf 2720 REM STIPLET LINJE
0x1aaf…1ac1 2725 LET var(D) COMMA = ( var(P) var(Q) var(G3) var(G4) ) var(FND) EOS
0x1ac1…1ac7 2730 REM C
0x1ac7…1ada 2735 LET var(G7) COMMA var(P) var(G3) SUB2 COMMA var(G8) COMMA var(Q) var(G4) SUB2 EOS
0x1ada…1af3 2740 IF ELEMENT var(D0') ( 7 ) [] 0 <> COMMA 27 var(G1) COMMA = ( ELEMENT var(D0') ( 7 ) [] ) ?ABS EOS
0x1af3…1b04 2745 ELSE 27 var(G1) COMMA = ( ELEMENT var(D0') ( var(L8%) ) [] ) ?ABS EOS
0x1b04…1b0d 2750 IF var(G1) var(D) → e9f122f3
0x1b0d…1b1d 2755 LET var(G3) COMMA var(G3) var(G7) var(G1) MULT var(D) DIV PLUS EOS
0x1b1d…1b2d 2760 LET var(G4) COMMA var(G4) var(G8) var(G1) MULT var(D) DIV PLUS EOS
0x1b2d…1b47 2765 IF ELEMENT var(D0') ( var(L8%) ) [] 0 ?< COMMA 27 var(X%) COMMA = ( var(G3) var(G4) »U« ) var(FNP%) EOS
0x1b47…1b57 2770 ELSE 27 var(X%) COMMA = ( var(G3) var(G4) »D« ) var(FNP%) EOS
0x1b57…1b61 2800 LET ELEMENT var(D0') ( 7 ) [] COMMA 0 EOS
0x1b61…1b6b 2805 LET var(D) COMMA var(D) var(G1) SUB2 EOS
0x1b6b…1b74 2810 LET var(L8%) COMMA var(L8%) 1 PLUS EOS
0x1b74…1b81 2815 IF var(L8%) var(L9%) > COMMA 27 var(L8%) COMMA 1 EOS
0x1b81…1b84 2817 GOTO 48 39
0x1b84…1b85 2820 DOEND
0x1b85…1b88 2825 ELSE 34 EOS
0x1b88…1ba2 2830 IF ELEMENT var(D0') ( var(L8%) ) [] 0 ?< COMMA 27 var(X%) COMMA = ( var(P) var(Q) »U« ) var(FNP%) EOS
0x1ba2…1bb2 2840 ELSE 27 var(X%) COMMA = ( var(P) var(Q) »D« ) var(FNP%) EOS
0x1bb2…1bc0 2850 LET ELEMENT var(D0') ( 7 ) [] COMMA var(G1) var(D) SUB2 EOS
0x1bc0…1bcd 2860 LET var(G3) COMMA var(P) COMMA var(G4) COMMA var(Q) EOS
0x1bcd…1bce 2865 DOEND
0x1bce…1bd1 2910 RETURN 1 EOS
0x1bd1…1bd2 3000 FNEND
0x1bd2…1c03 4000 REM ************ MAIN PROGRAM ******************
0x1c03…1c09 4010 LET var(X%) COMMA = var(FNW%) EOS
0x1c09…1c0b 4020 PRINT EOS
0x1c0b…1c33 4030 PRINT »>PROCESSING PARAM.FILE SEQUENCIALLY.« EOS
0x1c33…1c6d 4040 PRINT »>WHEN PROCESSING,HIT ESCAPE-KEY TO RESTART A SEQUENCE.« EOS
0x1c6d…1c95 4050 LINPUT »>HIT RETURN-KEY TO PROCEED :« COMMA ELEMENT var(X$) ( 1 1 ) [] EOS
0x1c95…1c99 4055 RESTORE 3# EOS
0x1c99…1c9f 4060 LINPUT 3# SEMI var(X$) EOS
0x1c9f…1ca3 4070 TRAP ESC 4120
0x1ca3…1ca5 4080 PRINT EOS
0x1ca5…1cab 4090 REM C
0x1cab…1cae 4110 GOTO 0 var(T0$)
0x1cae…1cba 4120 REM RESTART
0x1cba…1cc0 4130 LET var(X%) COMMA = → b6f3
0x1cc0…1cc4 4140 TRAP ESC 4120
0x1cc4…1cdb 4145 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x1cdb…1cdd 4150 PRINT EOS
0x1cdd…1d08 4160 LINPUT »>E=EXIT,P=PREVIOUS,N=NEXT,R=REPEAT : « COMMA var(X$) EOS
0x1d08…1d12 4170 IF var(X$) »E« EQ COMMA 0 0 → 95
0x1d12…1d27 4180 ELSE 3 var(X$) »R« EQ COMMA 33 3 SEMI -42 EOS
0x1d27…1d3c 4190 ELSE 3 var(X$) »P« EQ COMMA 33 3 SEMI -84 EOS
0x1d3c…1d42 4200 REM C
0x1d42…1d48 4210 LINPUT 3# SEMI var(X$) EOS
0x1d48…1d52 4220 IF = ( 3 ) → b1f1000043
0x1d52…1d56 4230 RESTORE 2# EOS
0x1d56…1d61 4240 IF = ( var(X$) ) var(FNA%) → eff1009040
0x1d61…1d6a 4250 REM CONT
0x1d6a…1d74 4260 READ 2# SEMI var(T1$) var(I1%) var(I2%) EOS
0x1d74…1d7e 4270 IF = ( 2 ) → b1f1009040
0x1d7e…1d86 4280 IF var(T0$) var(T1$) EQ COMMA 1 0 »«
0x1d86…1d89 4290 GOTO var(X7) var(T0$)
0x1d89…1d92 4300 REM CONT
0x1d92…1da9 4310 LET var(X%) COMMA = ( ELEMENT var(X1') ( 3 ) [] ELEMENT var(Y1') ( 3 ) [] »U« ) var(FNP%) EOS
0x1da9…1dac 4320 TRAP ESC 00f3
0x1dac…1daf 4330 GOTO 0 → 95
0x1daf…1de7 7000 REM ******* PLOT COORDINATES OF CURRENT THEME *********
0x1de7…1df0 7008 1940534041f14052f3
0x1df0…1df9 7010 LINPUT 1# COMMA var(I8%) SEMI var(X$) EOS
0x1df9…1e05 7037 IF = ( var(X$) ) var(FNB%) → eff1009074
0x1e05…1e0e 7040 IF var(Z0$) »P« EQ COMMA 34 EOS
0x1e0e…1e1f 7045 LET var(X%) COMMA = ( var(X0) var(Y0) ELEMENT var(S0$) ( 1 ) [] ) var(FNT%) EOS
0x1e1f…1e30 7050 LET var(X%) COMMA = ( var(X0) var(Y0) ELEMENT var(S0$) ( 2 ) [] ) var(FNT%) EOS
0x1e30…1e56 7051 IF ( ELEMENT var(S0$) ( 1 ) [] » « EQ ) ( ELEMENT var(S0$) ( 2 ) [] » « EQ ) AND COMMA 27 var(X%) COMMA = ( var(X0) var(Y0) ) var(FNQ%) EOS
0x1e56…1e68 7052 IF var(V0%) COMMA 27 var(X%) COMMA = ( var(X0) var(Y0) var(H1) var(V1) var(P0%) ) var(FNX%) EOS
0x1e68…1e69 7058 DOEND
0x1e69…1e72 7059 IF var(Z0$) »L« EQ COMMA 34 EOS
0x1e72…1e77 7060 IF var(F0%) COMMA 34 EOS
0x1e77…1e8d 7061 IF ( var(J0%) 1 EQ ) ( var(J0%) 4 EQ ) OR COMMA 27 var(X%) COMMA = var(FNW6%) EOS
0x1e8d…1e90 7062 GOSUB 0 → 81
0x1e90…1e93 7063 GOTO → 9074
0x1e93…1e94 7064 DOEND
0x1e94…1eb0 7065 IF ( var(J0%) 1 EQ ) ( var(J0%) 4 EQ ) OR COMMA 27 var(X%) COMMA = ( var(X0) var(Y0) »U« ) var(FNP%) EOS
0x1eb0…1eb3 7070 ELSE 34 EOS
0x1eb3…1ec7 7075 IF var(L0$) »A« EQ COMMA 27 var(X%) COMMA = ( var(X0) var(Y0) »D« ) var(FNP%) EOS
0x1ec7…1eda 7080 IF var(L0$) »B« EQ COMMA 27 var(X%) COMMA = ( var(X0) var(Y0) var(L0%) ) var(FNL1%) EOS
0x1eda…1eed 7085 IF var(L0$) »C« EQ COMMA 27 var(X%) COMMA = ( var(X0) var(Y0) var(L0%) ) var(FNL2%) EOS
0x1eed…1eee 7200 DOEND
0x1eee…1eef 7250 DOEND
0x1eef…1ef5 7490 REM C
0x1ef5…1efe 7495 LET var(X4) COMMA var(X0) COMMA var(Y4) COMMA var(Y0) EOS
0x1efe…1f02 7500 1a4053f3
0x1f02…1f04 7900 RETURN EOS
0x1f04…1f3e 8090 REM ****** PROCESS COORDINATE FOR SPLINING **************
0x1f3e…1f64 8100 REM ---- REM SUBROUTINE GLATTING ----
0x1f64…1f78 8102 IF var(J0%) 3 > COMMA 27 var(I5%) COMMA 2 COMMA var(I6%) COMMA var(J0%) 3 SUB2 EOS
0x1f78…1f85 8104 ELSE 27 var(I6%) COMMA var(J0%) COMMA var(I5%) COMMA 1 EOS
0x1f85…1f98 8110 LET var(L6%) COMMA 0 COMMA var(I3) COMMA var(Z9) COMMA var(J8%) COMMA var(J8%) 1 PLUS EOS
0x1f98…1f9e 8115 REM C
0x1f9e…1faa 8125 ON var(I6%) COMMA 0 53 → 8175817581f3
0x1faa…1fac 8130 RETURN EOS
0x1fac…1fd0 8135 REM ---------- FIRST POINT --------
0x1fd0…1fd6 8140 LET var(K1%) COMMA 1 EOS
0x1fd6…1fe1 8145 LET var(U4) COMMA var(X0) COMMA var(V4) COMMA var(Y0) EOS
0x1fe1…1fea 8150 IF var(I5%) 2 EQ COMMA 0 var(D0') → 81
0x1fea…1ffd 8155 IF var(I6%) 1 EQ COMMA 27 var(X%) COMMA = ( var(U4) var(V4) ) var(FNP9%) EOS
0x1ffd…200b 8156 ELSE 27 var(X%) COMMA = ( var(U4) var(V4) ) var(FNP1%) EOS
0x200b…201b 8160 REM ------------
0x201b…2021 8165 LET var(K2%) COMMA 1 EOS
0x2021…2023 8170 RETURN EOS
0x2023…2049 8175 REM ---------- INT. OR LAST PT. -----
0x2049…2054 8180 LET var(U3) COMMA var(X0) COMMA var(V3) COMMA var(Y0) EOS
0x2054…2061 8181 IF var(I6%) 3 EQ var(J8%) 2 EQ AND COMMA 34 EOS
0x2061…206e 8182 LET var(X%) COMMA = ( var(U3) var(V3) ) var(FNP1%) EOS
0x206e…2070 8183 RETURN EOS
0x2070…2071 8184 DOEND
0x2071…2087 8185 LET var(I4%) COMMA = ( var(U4) var(V4) var(U3) var(V3) var(I6%) var(I5%) ) var(FNL%) EOS
0x2087…2090 8190 IF var(I4%) 2 EQ COMMA 0 0 → 82
0x2090…2098 8191 IF var(I6%) 3 EQ COMMA 34 EOS
0x2098…20ab 8192 IF var(I5%) 1 EQ COMMA 27 var(X%) COMMA = ( var(U3) var(V3) ) var(FNP1%) EOS
0x20ab…20af 8197 ELSE 0 »\x08\x05\xf3\x0bp
------------
\x03@V\x02\xe7\xf1\x000\x82\x1b@]\xf1qs@W@X@Z@[t@(\xf3\x1b@V\xf1\x02\xf3\x1b@W\xf1@Z\xf1@X\xf1@[\xf3\x05\xf3\x0bp
------------
\x1b@4\xf1qs@W@X@Z@[t@(\xf3\x1b@^\xf1qs@]@4t@7\xf3\x03@^\x02\xe7\xf1\x00p\x82\x03@Y«soh»\xe7@.«
0x20af…20b0 8198 DOEND
0x20b0…20b2 8199 RETURN EOS
0x20b2…20c2 8200 REM ------------
0x20c2…20cb 8205 IF var(K1%) 2 EQ COMMA 0 48 → 82
0x20cb…20dd 8210 LET var(W5) COMMA = ( var(U4) var(V4) var(U3) var(V3) ) var(FNV) EOS
0x20dd…20e3 8215 LET var(K1%) COMMA 2 EOS
0x20e3…20f0 8220 LET var(U4) COMMA var(U3) COMMA var(V4) COMMA var(V3) EOS
0x20f0…20f2 8225 RETURN EOS
0x20f2…2102 8230 REM ------------
0x2102…2114 8235 LET var(W1) COMMA = ( var(U4) var(V4) var(U3) var(V3) ) var(FNV) EOS
0x2114…2122 8240 LET var(W4) COMMA = ( var(W5) var(W1) ) var(FNW) EOS
0x2122…212b 8245 IF var(W4) 2 EQ COMMA 0 »\x03@Y«soh»\xe7@.\x02\xe7\xed\xf1\x1be\xf1qs@W@Xt@F\xf3\x04\x1be\xf1qs@W@Xt@E\xf3\x03@-\x03\xe7\xf1"\xf3\x03@.«soh»\xe7\xf1\x1be\xf1qs@Z@[t@E\xf3\x04\x00p\x83\x08\x03@.\x02\xe7@Y«soh»\xe7\xed\xf1\x1b@_\xf1@W\xf1@`\xf1@X\xf1@Y\xf1@Y«soh»\xe2\xf3\x1b@]\xf1@4\xf3\x1b@W\xf1@Z\xf1@X\xf1@[\xf3\x05\xf3\x0bp
---«
0x212b…2143 8246 IF var(K2%) 1 EQ var(I5%) 2 EQ AND COMMA 27 var(X%) COMMA = ( var(U4) var(V4) ) var(FNP9%) EOS
0x2143…2151 8247 ELSE 27 var(X%) COMMA = ( var(U4) var(V4) ) var(FNP1%) EOS
0x2151…2159 8249 IF var(I6%) 3 EQ COMMA 34 EOS
0x2159…216c 8250 IF var(I5%) 1 EQ COMMA 27 var(X%) COMMA = ( var(U3) var(V3) ) var(FNP1%) EOS
0x216c…2170 8251 ELSE 0 »\x08\x03@.\x02\xe7@Y«soh»\xe7\xed\xf1\x1b@_\xf1@W\xf1@`\xf1@X\xf1@Y\xf1@Y«soh»\xe2\xf3\x1b@]\xf1@4\xf3\x1b@W\xf1@Z\xf1@X\xf1@[\xf3\x05\xf3\x0bp
------------
\x1b@a\xf1qs@W@Xs@]T\xe2t@2t@3\xf3\x03@.\x02\xe7@Y«soh»\xe7\xed\xf1\x1be\xf1qs@5@6t@F\xf3\x04\x1be\xf1qs@5@6t@E\xf3«
0x2170…2171 8252 DOEND
0x2171…2191 8253 IF var(I5%) 2 EQ var(K2%) 1 EQ AND COMMA 27 var(U5) COMMA var(U4) COMMA var(V5) COMMA var(V4) COMMA var(K2%) COMMA var(K2%) 1 PLUS EOS
0x2191…2198 8255 LET var(W5) COMMA var(W1) EOS
0x2198…21a5 8260 LET var(U4) COMMA var(U3) COMMA var(V4) COMMA var(V3) EOS
0x21a5…21a7 8265 RETURN EOS
0x21a7…21b7 8270 REM ------------
0x21b7…21cd 8275 LET var(A3) COMMA = ( var(U4) var(V4) ( var(W5) var(P1) PLUS ) var(I3) ) var(FNS) EOS
0x21cd…21e5 8280 IF var(I5%) 2 EQ var(K2%) 1 EQ AND COMMA 27 var(X%) COMMA = ( var(U8) var(V8) ) var(FNP9%) EOS
0x21e5…21f3 8281 ELSE 27 var(X%) COMMA = ( var(U8) var(V8) ) var(FNP1%) EOS
0x21f3…220b 8285 IF var(I5%) 2 EQ var(K2%) 1 EQ AND COMMA 27 var(U5) COMMA var(U8) COMMA var(V5) COMMA var(V8) EOS
0x220b…221b 8295 REM ------------
0x221b…222b 8300 LET var(W2) COMMA ( var(P1) var(W5) PLUS var(W1) SUB2 ) 2 DIV EOS
0x222b…2237 8302 LET var(W2) COMMA = ( var(W2) ) var(FNV1) EOS
0x2237…2241 8305 LET var(W3) COMMA var(W1) var(W2) PLUS EOS
0x2241…224d 8306 LET var(W3) COMMA = ( var(W3) ) var(FNV1) EOS
0x224d…225b 8310 LET var(C2) COMMA var(I3) = ( var(W2) ) → a8e5f3
0x225b…225f 8311 REM
0x225f…2273 8312 LET var(R1) COMMA = ( var(C2) var(C2) MULT var(I3) var(I3) MULT SUB2 ) SQR EOS
0x2273…2284 8315 LET var(U7) COMMA var(U4) var(C2) = ( var(W3) ) → a8e4e2f3
0x2284…2295 8320 LET var(V7) COMMA var(V4) var(C2) = ( var(W3) ) → a9e4e2f3
0x2295…229f 8325 LET var(D1) COMMA var(W1) var(W5) SUB2 EOS
0x229f…22b0 8330 IF var(D1) 0 ?< COMMA 27 var(D1) COMMA var(D1) 2 var(P1) MULT PLUS EOS
0x22b0…22bc 8335 IF var(D1) var(P1) > COMMA 27 var(I9%) COMMA 2 EOS
0x22bc…22c3 8340 ELSE 27 var(I9%) COMMA 3 EOS
0x22c3…22db 8345 REM ----- DRAW ARC ----
0x22db…22f1 8346 LET var(Y%) COMMA = ( var(U7) var(V7) var(W5) var(W1) var(R1) var(I9%) ) var(FNC2%) EOS
0x22f1…2303 8350 LET var(A3) COMMA = ( var(U4) var(V4) var(W1) var(I3) ) var(FNS) EOS
0x2303…230a 8355 LET var(U6) COMMA var(U8) EOS
0x230a…2311 8360 LET var(V6) COMMA var(V8) EOS
0x2311…231e 8365 LET var(X%) COMMA = ( var(U6) var(V6) ) var(FNP1%) EOS
0x231e…2325 8370 LET var(W5) COMMA var(W1) EOS
0x2325…2332 8375 LET var(U4) COMMA var(U3) COMMA var(V4) COMMA var(V3) EOS
0x2332…233b 8380 LET var(K2%) COMMA var(K2%) 1 PLUS EOS
0x233b…2344 8385 IF var(I6%) 2 EQ COMMA 0 var(X7) → 84
0x2344…234d 8390 IF var(L6%) 1 EQ COMMA 0 53 → 84
0x234d…235a 8395 IF var(I6%) 3 EQ var(I5%) 2 EQ AND COMMA 34 EOS
0x235a…2365 8400 LET var(X0) COMMA var(U5) COMMA var(Y0) COMMA var(V5) EOS
0x2365…236b 8410 LET var(L6%) COMMA 1 EOS
0x236b…236e 8415 GOTO 21 → 81
0x236e…236f 8420 DOEND
0x236f…237c 8425 LET var(X%) COMMA = ( var(U4) var(V4) ) var(FNP1%) EOS
0x237c…237e 8430 RETURN EOS
0x237e…238e 8435 REM ------------
0x238e…239b 8440 LET var(X%) COMMA = ( var(U5) var(V5) ) var(FNP1%) EOS
0x239b…23ab 8445 REM ------------
0x23ab…23ad 8450 RETURN EOS
0x23ad…23d9 8455 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x23d9…23f1 9500 REM PROGRAM TERMINATION
0x23f1…23f3 9510 PRINT EOS
0x23f3…23f5 9520 PRINT EOS
0x23f5…240c 9530 PRINT »>CLOSING DATAFILES.« EOS
0x240c…240e 9540 14f3
0x240e…2425 9560 PRINT »>ERASING TABLE-FILE« EOS
0x2425…2433 9570 1e700a544142454c4c2e445441f3
0x2433…2434 9999 END