/ PSION CD 2 / PsionCDVol2.iso / Programs / 874 / Plotter.sis

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 6d 00 00 10 | 19 04 00 10 bf d9 96 9d |....m...|........|
|00000010| a9 f1 01 00 0a 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 64 00 00 00 00 00 00 00 | 01 00 00 00 00 00 00 00 |d.......|........|
|00000030| 44 00 00 00 46 00 00 00 | ae 01 00 00 00 00 00 00 |D...F...|........|
|00000040| ae 01 00 00 01 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 18 00 00 00 b6 01 | 00 00 22 00 00 00 ce 01 |........|..".....|
|00000060| 00 00 33 02 00 00 f9 03 | 00 00 00 00 00 00 00 00 |..3.....|........|
|00000070| 00 00 00 00 00 00 16 00 | 00 00 f0 01 00 00 20 00 |........|...... .|
|00000080| 00 00 06 02 00 00 5b 25 | 00 00 2c 06 00 00 00 00 |......[%|..,.....|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 16 00 00 00 26 02 |........|......&.|
|000000a0| 00 00 20 00 00 00 3c 02 | 00 00 33 16 00 00 87 2b |.. ...<.|..3....+|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 16 00 |........|........|
|000000c0| 00 00 5c 02 00 00 20 00 | 00 00 72 02 00 00 3c 27 |..\... .|..r...<'|
|000000d0| 00 00 ba 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|000000e0| 00 00 1e 00 00 00 92 02 | 00 00 28 00 00 00 b0 02 |........|..(.....|
|000000f0| 00 00 2d 16 00 00 f6 68 | 00 00 00 00 00 00 00 00 |..-....h|........|
|00000100| 00 00 00 00 00 00 1e 00 | 00 00 d8 02 00 00 28 00 |........|......(.|
|00000110| 00 00 f6 02 00 00 1c 27 | 00 00 23 7f 00 00 00 00 |.......'|..#.....|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 12 00 00 00 1e 03 |........|........|
|00000130| 00 00 1c 00 00 00 30 03 | 00 00 9f 00 00 00 3f a6 |......0.|......?.|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 17 00 |........|........|
|00000150| 00 00 4c 03 00 00 21 00 | 00 00 63 03 00 00 44 11 |..L...!.|..c...D.|
|00000160| 00 00 de a6 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 17 00 00 00 84 03 | 00 00 21 00 00 00 9b 03 |........|..!.....|
|00000180| 00 00 28 01 00 00 22 b8 | 00 00 00 00 00 00 01 00 |..(...".|........|
|00000190| 00 00 02 00 00 00 12 00 | 00 00 bc 03 00 00 1c 00 |........|........|
|000001a0| 00 00 ce 03 00 00 77 02 | 00 00 4a b9 00 00 0f 00 |......w.|..J.....|
|000001b0| 00 00 ea 03 00 00 43 3a | 5c 53 69 73 74 65 6d 70 |......C:|\Sistemp|
|000001c0| 5c 73 68 6f 72 74 63 75 | 74 73 2e 6f 70 68 21 3a |\shortcu|ts.oph!:|
|000001d0| 5c 50 73 69 6f 6e 35 43 | 44 31 5c 50 6c 6f 74 74 |\Psion5C|D1\Plott|
|000001e0| 65 72 5c 73 68 6f 72 74 | 63 75 74 73 2e 6f 70 68 |er\short|cuts.oph|
|000001f0| 43 3a 5c 53 69 73 74 65 | 6d 70 5c 70 6c 6f 74 74 |C:\Siste|mp\plott|
|00000200| 65 72 2e 6f 70 70 21 3a | 5c 50 73 69 6f 6e 35 43 |er.opp!:|\Psion5C|
|00000210| 44 31 5c 50 6c 6f 74 74 | 65 72 5c 70 6c 6f 74 74 |D1\Plott|er\plott|
|00000220| 65 72 2e 6f 70 70 43 3a | 5c 53 69 73 74 65 6d 70 |er.oppC:|\Sistemp|
|00000230| 5c 70 6c 6f 74 74 65 72 | 2e 6f 70 6f 21 3a 5c 50 |\plotter|.opo!:\P|
|00000240| 73 69 6f 6e 35 43 44 31 | 5c 50 6c 6f 74 74 65 72 |sion5CD1|\Plotter|
|00000250| 5c 70 6c 6f 74 74 65 72 | 2e 6f 70 6f 43 3a 5c 53 |\plotter|.opoC:\S|
|00000260| 69 73 74 65 6d 70 5c 70 | 6c 6f 74 74 65 72 2e 6f |istemp\p|lotter.o|
|00000270| 70 6c 21 3a 5c 50 73 69 | 6f 6e 35 43 44 31 5c 50 |pl!:\Psi|on5CD1\P|
|00000280| 6c 6f 74 74 65 72 5c 70 | 6c 6f 74 74 65 72 2e 6f |lotter\p|lotter.o|
|00000290| 70 6c 43 3a 5c 53 69 73 | 74 65 6d 70 5c 70 6c 6f |plC:\Sis|temp\plo|
|000002a0| 74 74 65 72 28 6e 6f 63 | 6c 69 70 29 2e 6f 70 6f |tter(noc|lip).opo|
|000002b0| 21 3a 5c 50 73 69 6f 6e | 35 43 44 31 5c 50 6c 6f |!:\Psion|5CD1\Plo|
|000002c0| 74 74 65 72 5c 70 6c 6f | 74 74 65 72 28 6e 6f 63 |tter\plo|tter(noc|
|000002d0| 6c 69 70 29 2e 6f 70 6f | 43 3a 5c 53 69 73 74 65 |lip).opo|C:\Siste|
|000002e0| 6d 70 5c 70 6c 6f 74 74 | 65 72 28 6e 6f 63 6c 69 |mp\plott|er(nocli|
|000002f0| 70 29 2e 6f 70 6c 21 3a | 5c 50 73 69 6f 6e 35 43 |p).opl!:|\Psion5C|
|00000300| 44 31 5c 50 6c 6f 74 74 | 65 72 5c 70 6c 6f 74 74 |D1\Plott|er\plott|
|00000310| 65 72 28 6e 6f 63 6c 69 | 70 29 2e 6f 70 6c 43 3a |er(nocli|p).oplC:|
|00000320| 5c 53 69 73 74 65 6d 70 | 5c 70 6c 6f 74 74 65 72 |\Sistemp|\plotter|
|00000330| 21 3a 5c 50 73 69 6f 6e | 35 43 44 31 5c 50 6c 6f |!:\Psion|5CD1\Plo|
|00000340| 74 74 65 72 5c 70 6c 6f | 74 74 65 72 43 3a 5c 53 |tter\plo|tterC:\S|
|00000350| 69 73 74 65 6d 70 5c 64 | 72 61 77 70 6c 6f 74 2e |istemp\d|rawplot.|
|00000360| 6f 70 70 21 3a 5c 50 73 | 69 6f 6e 35 43 44 31 5c |opp!:\Ps|ion5CD1\|
|00000370| 50 6c 6f 74 74 65 72 5c | 64 72 61 77 70 6c 6f 74 |Plotter\|drawplot|
|00000380| 2e 6f 70 70 43 3a 5c 53 | 69 73 74 65 6d 70 5c 64 |.oppC:\S|istemp\d|
|00000390| 72 61 77 70 6c 6f 74 2e | 6f 70 68 21 3a 5c 50 73 |rawplot.|oph!:\Ps|
|000003a0| 69 6f 6e 35 43 44 31 5c | 50 6c 6f 74 74 65 72 5c |ion5CD1\|Plotter\|
|000003b0| 64 72 61 77 70 6c 6f 74 | 2e 6f 70 68 43 3a 5c 53 |drawplot|.ophC:\S|
|000003c0| 69 73 74 65 6d 70 5c 42 | 69 73 2e 74 78 74 21 3a |istemp\B|is.txt!:|
|000003d0| 5c 50 73 69 6f 6e 35 43 | 44 31 5c 50 6c 6f 74 74 |\Psion5C|D1\Plott|
|000003e0| 65 72 5c 42 69 73 2e 74 | 78 74 50 6c 6f 74 74 65 |er\Bis.t|xtPlotte|
|000003f0| 72 20 34 35 2e 33 20 6b | 42 2f 2f 20 4b 65 79 62 |r 45.3 k|B// Keyb|
|00000400| 6f 61 72 64 20 73 68 6f | 72 74 63 75 74 73 20 66 |oard sho|rtcuts f|
|00000410| 6f 72 20 50 6c 6f 74 74 | 65 72 0d 0a 2f 2f 20 a9 |or Plott|er..// .|
|00000420| 20 31 39 39 39 2d 32 30 | 30 30 20 47 6c 65 6e 6e | 1999-20|00 Glenn|
|00000430| 20 53 74 72 6f 6e 67 20 | 3c 47 6c 65 6e 6e 2e 53 | Strong |<Glenn.S|
|00000440| 74 72 6f 6e 67 40 63 73 | 2e 74 63 64 2e 69 65 3e |trong@cs|.tcd.ie>|
|00000450| 0d 0a 2f 2f 20 49 73 73 | 75 65 64 20 75 6e 64 65 |..// Iss|ued unde|
|00000460| 72 20 74 68 65 20 47 4e | 55 20 47 65 6e 65 72 61 |r the GN|U Genera|
|00000470| 6c 20 50 75 62 6c 69 63 | 20 6c 69 63 65 6e 73 65 |l Public| license|
|00000480| 2c 20 76 65 72 73 69 6f | 6e 20 32 0d 0a 23 64 65 |, versio|n 2..#de|
|00000490| 66 69 6e 65 20 4b 45 59 | 45 58 50 4f 52 54 20 25 |fine KEY|EXPORT %|
|000004a0| 73 0d 0a 23 64 65 66 69 | 6e 65 20 4b 45 59 4c 4f |s..#defi|ne KEYLO|
|000004b0| 41 44 4d 20 25 4d 0d 0a | 23 64 65 66 69 6e 65 20 |ADM %M..|#define |
|000004c0| 4b 45 59 55 4e 4c 4f 41 | 44 4d 20 25 55 0d 0a 23 |KEYUNLOA|DM %U..#|
|000004d0| 64 65 66 69 6e 65 20 4b | 45 59 51 55 49 54 20 25 |define K|EYQUIT %|
|000004e0| 65 0d 0a 23 64 65 66 69 | 6e 65 20 4b 45 59 43 4f |e..#defi|ne KEYCO|
|000004f0| 50 59 20 25 63 0d 0a 23 | 64 65 66 69 6e 65 20 4b |PY %c..#|define K|
|00000500| 45 59 46 55 4e 43 54 49 | 4f 4e 20 25 66 0d 0a 23 |EYFUNCTI|ON %f..#|
|00000510| 64 65 66 69 6e 65 20 4b | 45 59 52 41 4e 47 45 20 |define K|EYRANGE |
|00000520| 25 72 0d 0a 23 64 65 66 | 69 6e 65 20 4b 45 59 50 |%r..#def|ine KEYP|
|00000530| 4c 4f 54 20 25 70 0d 0a | 23 64 65 66 69 6e 65 20 |LOT %p..|#define |
|00000540| 4b 45 59 4d 45 53 48 20 | 25 6d 0d 0a 23 64 65 66 |KEYMESH |%m..#def|
|00000550| 69 6e 65 20 4b 45 59 5a | 4f 4f 4d 20 25 7a 0d 0a |ine KEYZ|OOM %z..|
|00000560| 23 64 65 66 69 6e 65 20 | 4b 45 59 43 4c 53 20 25 |#define |KEYCLS %|
|00000570| 43 0d 0a 23 64 65 66 69 | 6e 65 20 4b 45 59 43 45 |C..#defi|ne KEYCE|
|00000580| 4e 54 45 52 20 25 6f 0d | 0a 23 64 65 66 69 6e 65 |NTER %o.|.#define|
|00000590| 20 4b 45 59 52 45 53 45 | 54 43 45 4e 54 45 52 20 | KEYRESE|TCENTER |
|000005a0| 25 4f 0d 0a 23 64 65 66 | 69 6e 65 20 4b 45 59 4f |%O..#def|ine KEYO|
|000005b0| 46 46 53 43 52 45 45 4e | 20 25 47 0d 0a 23 64 65 |FFSCREEN| %G..#de|
|000005c0| 66 69 6e 65 20 4b 45 59 | 41 58 45 53 20 25 78 0d |fine KEY|AXES %x.|
|000005d0| 0a 23 64 65 66 69 6e 65 | 20 4b 45 59 4f 56 45 52 |.#define| KEYOVER|
|000005e0| 50 52 49 4e 54 20 25 76 | 0d 0a 23 64 65 66 69 6e |PRINT %v|..#defin|
|000005f0| 65 20 4b 45 59 54 4f 4f | 4c 42 41 52 20 25 74 0d |e KEYTOO|LBAR %t.|
|00000600| 0a 23 64 65 66 69 6e 65 | 20 4b 45 59 55 53 45 4c |.#define| KEYUSEL|
|00000610| 49 4e 45 53 20 25 71 0d | 0a 23 64 65 66 69 6e 65 |INES %q.|.#define|
|00000620| 20 4b 45 59 41 42 4f 55 | 54 20 25 61 2f 2f 20 50 | KEYABOU|T %a// P|
|00000630| 6c 6f 74 74 65 72 20 6d | 61 69 6e 20 6d 6f 64 75 |lotter m|ain modu|
|00000640| 6c 65 0d 0a 2f 2f 20 a9 | 20 31 39 39 39 2d 32 30 |le..// .| 1999-20|
|00000650| 30 30 20 47 6c 65 6e 6e | 20 53 74 72 6f 6e 67 20 |00 Glenn| Strong |
|00000660| 3c 47 6c 65 6e 6e 2e 53 | 74 72 6f 6e 67 40 63 73 |<Glenn.S|trong@cs|
|00000670| 2e 74 63 64 2e 69 65 3e | 0d 0a 2f 2f 20 49 73 73 |.tcd.ie>|..// Iss|
|00000680| 75 65 64 20 75 6e 64 65 | 72 20 74 68 65 20 47 4e |ued unde|r the GN|
|00000690| 55 20 47 65 6e 65 72 61 | 6c 20 50 75 62 6c 69 63 |U Genera|l Public|
|000006a0| 20 6c 69 63 65 6e 73 65 | 2c 20 76 65 72 73 69 6f | license|, versio|
|000006b0| 6e 20 32 0d 0a 0d 0a 44 | 45 43 4c 41 52 45 20 45 |n 2....D|ECLARE E|
|000006c0| 58 54 45 52 4e 41 4c 0d | 0a 09 0d 0a 2f 2f 20 44 |XTERNAL.|....// D|
|000006d0| 65 66 69 6e 65 20 65 78 | 61 63 74 6c 79 20 6f 6e |efine ex|actly on|
|000006e0| 65 20 6f 66 20 74 68 65 | 73 65 3a 0d 0a 2f 2f 23 |e of the|se:..//#|
|000006f0| 64 65 66 69 6e 65 20 43 | 4c 49 50 42 4f 41 52 44 |define C|LIPBOARD|
|00000700| 5f 4e 4f 4e 45 0d 0a 23 | 64 65 66 69 6e 65 20 43 |_NONE..#|define C|
|00000710| 4c 49 50 42 4f 41 52 44 | 5f 43 4c 49 50 42 49 54 |LIPBOARD|_CLIPBIT|
|00000720| 0d 0a 0d 0a 23 69 66 64 | 65 66 20 43 4c 49 50 42 |....#ifd|ef CLIPB|
|00000730| 4f 41 52 44 5f 43 4c 49 | 50 42 49 54 0d 0a 69 6e |OARD_CLI|PBIT..in|
|00000740| 63 6c 75 64 65 20 22 63 | 6c 69 70 62 69 74 2e 6f |clude "c|lipbit.o|
|00000750| 78 68 22 0d 0a 23 65 6e | 64 69 66 0d 0a 0d 0a 49 |xh"..#en|dif....I|
|00000760| 4e 43 4c 55 44 45 20 22 | 63 6f 6e 73 74 2e 6f 70 |NCLUDE "|const.op|
|00000770| 68 22 0d 0a 49 4e 43 4c | 55 44 45 20 22 53 79 73 |h"..INCL|UDE "Sys|
|00000780| 74 65 6d 2e 6f 78 68 22 | 0d 0a 49 4e 43 4c 55 44 |tem.oxh"|..INCLUD|
|00000790| 45 20 22 54 6f 6f 6c 62 | 61 72 2e 6f 70 68 22 0d |E "Toolb|ar.oph".|
|000007a0| 0a 0d 0a 50 52 4f 43 20 | 4d 61 69 6e 3a 0d 0a 09 |...PROC |Main:...|
|000007b0| 4c 4f 41 44 4d 20 22 5a | 3a 5c 53 79 73 74 65 6d |LOADM "Z|:\System|
|000007c0| 5c 4f 70 6c 5c 54 6f 6f | 6c 62 61 72 2e 6f 70 6f |\Opl\Too|lbar.opo|
|000007d0| 22 0d 0a 09 54 42 61 72 | 4c 69 6e 6b 3a 28 22 4d |"...TBar|Link:("M|
|000007e0| 61 69 6e 4c 6f 6f 70 22 | 29 0d 0a 45 4e 44 50 0d |ainLoop"|)..ENDP.|
|000007f0| 0a 0d 0a 45 58 54 45 52 | 4e 41 4c 20 62 75 66 24 |...EXTER|NAL buf$|
|00000800| 3a 28 62 26 29 0d 0a 45 | 58 54 45 52 4e 41 4c 20 |:(b&)..E|XTERNAL |
|00000810| 6d 61 69 6e 44 69 61 6c | 6f 67 25 3a 0d 0a 45 58 |mainDial|og%:..EX|
|00000820| 54 45 52 4e 41 4c 20 53 | 65 74 75 70 4d 65 6e 75 |TERNAL S|etupMenu|
|00000830| 3a 0d 0a 45 58 54 45 52 | 4e 41 4c 20 47 65 74 46 |:..EXTER|NAL GetF|
|00000840| 75 6e 63 74 69 6f 6e 24 | 3a 28 66 24 29 0d 0a 45 |unction$|:(f$)..E|
|00000850| 58 54 45 52 4e 41 4c 20 | 47 65 74 52 61 6e 67 65 |XTERNAL |GetRange|
|00000860| 3a 0d 0a 45 58 54 45 52 | 4e 41 4c 20 47 65 74 4d |:..EXTER|NAL GetM|
|00000870| 65 73 68 3a 0d 0a 45 58 | 54 45 52 4e 41 4c 20 47 |esh:..EX|TERNAL G|
|00000880| 65 74 5a 6f 6f 6d 3a 0d | 0a 45 58 54 45 52 4e 41 |etZoom:.|.EXTERNA|
|00000890| 4c 20 47 65 74 43 65 6e | 74 65 72 3a 0d 0a 45 58 |L GetCen|ter:..EX|
|000008a0| 54 45 52 4e 41 4c 20 4c | 6f 61 64 4d 6f 64 75 6c |TERNAL L|oadModul|
|000008b0| 65 3a 0d 0a 45 58 54 45 | 52 4e 41 4c 20 55 6e 6c |e:..EXTE|RNAL Unl|
|000008c0| 6f 61 64 4d 6f 64 75 6c | 65 3a 0d 0a 0d 0a 43 4f |oadModul|e:....CO|
|000008d0| 4e 53 54 20 42 57 25 3d | 31 30 20 20 20 20 20 20 |NST BW%=|10      |
|000008e0| 20 52 45 4d 20 42 6f 72 | 64 65 72 20 77 69 64 74 | REM Bor|der widt|
|000008f0| 68 20 69 6e 20 70 69 78 | 65 6c 73 0d 0a 43 4f 4e |h in pix|els..CON|
|00000900| 53 54 20 4b 4d 61 78 3d | 31 2e 30 0d 0a 43 4f 4e |ST KMax=|1.0..CON|
|00000910| 53 54 20 4d 61 78 5a 6f | 6f 6d 25 3d 31 30 0d 0a |ST MaxZo|om%=10..|
|00000920| 0d 0a 23 69 6e 63 6c 75 | 64 65 20 22 53 68 6f 72 |..#inclu|de "Shor|
|00000930| 74 63 75 74 73 2e 6f 70 | 68 22 0d 0a 23 69 6e 63 |tcuts.op|h"..#inc|
|00000940| 6c 75 64 65 20 22 44 72 | 61 77 50 6c 6f 74 2e 6f |lude "Dr|awPlot.o|
|00000950| 70 68 22 0d 0a 0d 0a 50 | 52 4f 43 20 4d 61 69 6e |ph"....P|ROC Main|
|00000960| 4c 6f 6f 70 3a 0d 0a 09 | 45 58 54 45 52 4e 41 4c |Loop:...|EXTERNAL|
|00000970| 20 54 62 57 69 64 74 68 | 25 2c 20 54 56 69 73 69 | TbWidth|%, TVisi|
|00000980| 62 6c 65 25 2c 20 54 62 | 4d 65 6e 75 53 79 6d 25 |ble%, Tb|MenuSym%|
|00000990| 0d 0a 09 2f 2f 20 50 6c | 6f 74 20 70 61 72 61 6d |...// Pl|ot param|
|000009a0| 65 74 65 72 73 0d 0a 09 | 47 4c 4f 42 41 4c 20 57 |eters...|GLOBAL W|
|000009b0| 69 6e 48 25 2c 20 57 69 | 6e 57 25 2c 20 5a 6f 6f |inH%, Wi|nW%, Zoo|
|000009c0| 6d 2c 20 4d 65 73 68 26 | 2c 20 4f 66 66 73 63 72 |m, Mesh&|, Offscr|
|000009d0| 65 65 6e 25 2c 20 4f 76 | 65 72 70 72 69 6e 74 25 |een%, Ov|erprint%|
|000009e0| 0d 0a 09 47 4c 4f 42 41 | 4c 20 58 43 65 6e 74 25 |...GLOBA|L XCent%|
|000009f0| 2c 20 59 43 65 6e 74 25 | 2c 20 44 72 61 77 41 78 |, YCent%|, DrawAx|
|00000a00| 65 73 25 2c 20 51 75 69 | 74 46 6c 61 67 25 2c 20 |es%, Qui|tFlag%, |
|00000a10| 55 73 65 4c 69 6e 65 73 | 25 2c 20 6f 76 65 72 50 |UseLines|%, overP|
|00000a20| 72 69 6e 74 43 6f 75 6e | 74 25 0d 0a 09 47 4c 4f |rintCoun|t%...GLO|
|00000a30| 42 41 4c 20 4c 6f 61 64 | 65 64 4d 6f 64 75 6c 65 |BAL Load|edModule|
|00000a40| 73 24 28 38 2c 32 35 35 | 29 0d 0a 09 2f 2f 20 46 |s$(8,255|)...// F|
|00000a50| 75 6e 63 74 69 6f 6e 20 | 70 61 72 61 6d 65 74 65 |unction |paramete|
|00000a60| 72 73 0d 0a 09 47 4c 4f | 42 41 4c 20 52 4d 69 6e |rs...GLO|BAL RMin|
|00000a70| 2c 20 52 4d 61 78 2c 20 | 66 24 28 32 35 35 29 2c |, RMax, |f$(255),|
|00000a80| 20 64 72 61 77 57 69 6e | 64 6f 77 25 0d 0a 09 4c | drawWin|dow%...L|
|00000a90| 4f 43 41 4c 20 6b 25 2c | 20 6d 6f 64 25 2c 20 65 |OCAL k%,| mod%, e|
|00000aa0| 76 26 28 31 36 29 2c 20 | 62 6c 61 6e 6b 25 2c 20 |v&(16), |blank%, |
|00000ab0| 66 69 6c 65 24 28 4b 44 | 46 69 6c 65 4e 61 6d 65 |file$(KD|FileName|
|00000ac0| 4c 65 6e 25 29 0d 0a 0d | 0a 09 6b 25 3d 31 0d 0a |Len%)...|..k%=1..|
|00000ad0| 09 44 4f 0d 0a 09 09 4c | 6f 61 64 65 64 4d 6f 64 |.DO....L|oadedMod|
|00000ae0| 75 6c 65 73 24 28 6b 25 | 29 3d 22 22 0d 0a 09 09 |ules$(k%|)=""....|
|00000af0| 6b 25 2b 2b 0d 0a 09 55 | 4e 54 49 4c 20 6b 25 3e |k%++...U|NTIL k%>|
|00000b00| 38 0d 0a 09 0d 0a 09 64 | 72 61 77 57 69 6e 64 6f |8......d|rawWindo|
|00000b10| 77 25 3d 67 49 44 45 4e | 54 49 54 59 09 0d 0a 09 |w%=gIDEN|TITY....|
|00000b20| 62 6c 61 6e 6b 25 3d 67 | 43 52 45 41 54 45 42 49 |blank%=g|CREATEBI|
|00000b30| 54 28 31 2c 31 29 0d 0a | 09 67 55 53 45 20 64 72 |T(1,1)..|.gUSE dr|
|00000b40| 61 77 57 69 6e 64 6f 77 | 25 0d 0a 09 6f 76 65 72 |awWindow|%...over|
|00000b50| 50 72 69 6e 74 43 6f 75 | 6e 74 25 3d 30 0d 0a 09 |PrintCou|nt%=0...|
|00000b60| 0d 0a 09 54 42 61 72 49 | 6e 69 74 3a 28 22 50 6c |...TBarI|nit:("Pl|
|00000b70| 6f 74 74 65 72 22 2c 67 | 57 49 44 54 48 2c 67 48 |otter",g|WIDTH,gH|
|00000b80| 45 49 47 48 54 29 0d 0a | 09 54 42 61 72 42 75 74 |EIGHT)..|.TBarBut|
|00000b90| 74 3a 28 22 70 22 2c 31 | 2c 22 50 6c 6f 74 22 2c |t:("p",1|,"Plot",|
|00000ba0| 30 2c 62 6c 61 6e 6b 25 | 2c 30 2c 30 29 0d 0a 09 |0,blank%|,0,0)...|
|00000bb0| 54 42 61 72 42 75 74 74 | 3a 28 22 66 22 2c 32 2c |TBarButt|:("f",2,|
|00000bc0| 22 46 75 6e 63 22 2c 30 | 2c 62 6c 61 6e 6b 25 2c |"Func",0|,blank%,|
|00000bd0| 30 2c 30 29 0d 0a 09 54 | 42 61 72 42 75 74 74 3a |0,0)...T|BarButt:|
|00000be0| 28 22 72 22 2c 33 2c 22 | 52 61 6e 67 65 22 2c 30 |("r",3,"|Range",0|
|00000bf0| 2c 62 6c 61 6e 6b 25 2c | 30 2c 30 29 0d 0a 09 54 |,blank%,|0,0)...T|
|00000c00| 42 61 72 42 75 74 74 3a | 28 22 65 22 2c 34 2c 22 |BarButt:|("e",4,"|
|00000c10| 45 78 69 74 22 2c 30 2c | 62 6c 61 6e 6b 25 2c 30 |Exit",0,|blank%,0|
|00000c20| 2c 30 29 0d 0a 09 54 42 | 61 72 53 68 6f 77 3a 0d |,0)...TB|arShow:.|
|00000c30| 0a 0d 0a 09 67 55 50 44 | 41 54 45 20 4f 4e 0d 0a |....gUPD|ATE ON..|
|00000c40| 0d 0a 09 57 69 6e 48 25 | 20 3d 20 67 48 45 49 47 |...WinH%| = gHEIG|
|00000c50| 48 54 20 2d 20 42 57 25 | 0d 0a 09 57 69 6e 57 25 |HT - BW%|...WinW%|
|00000c60| 20 3d 20 67 57 49 44 54 | 48 20 2d 20 42 57 25 20 | = gWIDT|H - BW% |
|00000c70| 2d 20 54 42 57 69 64 74 | 68 25 0d 0a 09 58 43 65 |- TBWidt|h%...XCe|
|00000c80| 6e 74 25 20 3d 20 57 69 | 6e 57 25 2f 32 0d 0a 09 |nt% = Wi|nW%/2...|
|00000c90| 59 43 65 6e 74 25 20 3d | 20 57 69 6e 48 25 2f 32 |YCent% =| WinH%/2|
|00000ca0| 0d 0a 09 2f 2f 20 53 65 | 74 20 64 65 66 61 75 6c |...// Se|t defaul|
|00000cb0| 74 20 76 61 6c 75 65 73 | 0d 0a 09 4f 66 66 73 63 |t values|...Offsc|
|00000cc0| 72 65 65 6e 25 3d 4b 46 | 61 6c 73 65 25 20 3a 09 |reen%=KF|alse% :.|
|00000cd0| 5a 6f 6f 6d 3d 31 2e 30 | 20 3a 20 4d 65 73 68 26 |Zoom=1.0| : Mesh&|
|00000ce0| 3d 57 69 6e 57 25 2f 31 | 30 0d 0a 09 66 24 3d 22 |=WinW%/1|0...f$="|
|00000cf0| 53 49 4e 28 78 29 22 20 | 3a 09 52 4d 69 6e 3d 2d |SIN(x)" |:.RMin=-|
|00000d00| 36 2e 30 20 3a 20 52 4d | 61 78 3d 36 2e 30 0d 0a |6.0 : RM|ax=6.0..|
|00000d10| 09 44 72 61 77 41 78 65 | 73 25 3d 4b 54 72 75 65 |.DrawAxe|s%=KTrue|
|00000d20| 25 20 3a 20 4f 76 65 72 | 50 72 69 6e 74 25 3d 4b |% : Over|Print%=K|
|00000d30| 46 61 6c 73 65 25 20 3a | 20 55 73 65 4c 69 6e 65 |False% :| UseLine|
|00000d40| 73 25 3d 4b 54 72 75 65 | 25 0d 0a 0d 0a 09 51 75 |s%=KTrue|%.....Qu|
|00000d50| 69 74 46 6c 61 67 25 3d | 4b 46 61 6c 73 65 25 0d |itFlag%=|KFalse%.|
|00000d60| 0a 0d 0a 09 44 4f 0d 0a | 09 09 47 45 54 45 56 45 |....DO..|..GETEVE|
|00000d70| 4e 54 33 32 20 65 76 26 | 28 29 0d 0a 0d 0a 09 09 |NT32 ev&|()......|
|00000d80| 49 46 20 65 76 26 28 4b | 45 76 41 54 79 70 65 25 |IF ev&(K|EvAType%|
|00000d90| 29 3d 4b 45 76 50 74 72 | 26 0d 0a 09 09 09 49 46 |)=KEvPtr|&.....IF|
|00000da0| 20 54 42 61 72 4f 66 66 | 65 72 25 3a 28 65 76 26 | TBarOff|er%:(ev&|
|00000db0| 28 4b 45 76 41 50 74 72 | 4f 70 6c 57 69 6e 64 6f |(KEvAPtr|OplWindo|
|00000dc0| 77 49 64 25 29 2c 65 76 | 26 28 4b 45 76 41 50 74 |wId%),ev|&(KEvAPt|
|00000dd0| 72 54 79 70 65 25 29 2c | 65 76 26 28 4b 45 76 41 |rType%),|ev&(KEvA|
|00000de0| 50 74 72 50 6f 73 69 74 | 69 6f 6e 58 25 29 2c 65 |PtrPosit|ionX%),e|
|00000df0| 76 26 28 4b 45 76 41 50 | 74 72 50 6f 73 69 74 69 |v&(KEvAP|trPositi|
|00000e00| 6f 6e 59 25 29 29 0d 0a | 09 09 09 09 43 4f 4e 54 |onY%))..|....CONT|
|00000e10| 49 4e 55 45 0d 0a 09 09 | 09 45 4e 44 49 46 0d 0a |INUE....|.ENDIF..|
|00000e20| 09 09 45 4c 53 45 49 46 | 20 28 28 65 76 26 28 4b |..ELSEIF| ((ev&(K|
|00000e30| 45 76 41 54 79 70 65 25 | 29 20 41 4e 44 20 26 34 |EvAType%|) AND &4|
|00000e40| 30 30 29 3d 30 29 20 4f | 52 20 28 65 76 26 28 4b |00)=0) O|R (ev&(K|
|00000e50| 45 76 41 54 79 70 65 25 | 29 3d 4b 4b 65 79 53 69 |EvAType%|)=KKeySi|
|00000e60| 64 65 62 61 72 4d 65 6e | 75 33 32 25 29 0d 0a 09 |debarMen|u32%)...|
|00000e70| 09 09 6b 25 3d 65 76 26 | 28 4b 45 76 41 54 79 70 |..k%=ev&|(KEvATyp|
|00000e80| 65 25 29 0d 0a 09 09 09 | 6d 6f 64 25 3d 65 76 26 |e%).....|mod%=ev&|
|00000e90| 28 4b 45 76 41 4b 4d 6f | 64 25 29 0d 0a 09 09 09 |(KEvAKMo|d%).....|
|00000ea0| 49 46 20 28 6b 25 3d 4b | 4b 65 79 4d 65 6e 75 33 |IF (k%=K|KeyMenu3|
|00000eb0| 32 25 29 20 4f 52 20 28 | 6b 25 3d 4b 4b 65 79 53 |2%) OR (|k%=KKeyS|
|00000ec0| 69 64 65 62 61 72 4d 65 | 6e 75 33 32 25 29 0d 0a |idebarMe|nu32%)..|
|00000ed0| 09 09 09 09 53 65 74 75 | 70 4d 65 6e 75 3a 0d 0a |....Setu|pMenu:..|
|00000ee0| 09 09 09 09 6b 25 3d 4d | 45 4e 55 0d 0a 09 09 09 |....k%=M|ENU.....|
|00000ef0| 09 6d 6f 64 25 3d 30 0d | 0a 09 09 09 45 4c 53 45 |.mod%=0.|....ELSE|
|00000f00| 49 46 20 6d 6f 64 25 20 | 41 4e 44 20 4b 4b 6d 6f |IF mod% |AND KKmo|
|00000f10| 64 43 6f 6e 74 72 6f 6c | 25 0d 0a 09 09 09 09 6b |dControl|%......k|
|00000f20| 25 3d 6b 25 2b 24 36 30 | 0d 0a 09 09 09 09 49 46 |%=k%+$60|......IF|
|00000f30| 20 6d 6f 64 25 20 41 4e | 44 20 4b 4b 6d 6f 64 53 | mod% AN|D KKmodS|
|00000f40| 68 69 66 74 25 0d 0a 09 | 09 09 09 09 6b 25 3d 6b |hift%...|....k%=k|
|00000f50| 25 2d 33 32 20 2f 2f 20 | 44 6f 20 75 70 70 65 72 |%-32 // |Do upper|
|00000f60| 63 61 73 65 20 74 72 61 | 6e 73 6c 61 74 69 6f 6e |case tra|nslation|
|00000f70| 0d 0a 09 09 09 09 45 4e | 44 49 46 0d 0a 09 09 09 |......EN|DIF.....|
|00000f80| 45 4c 53 45 0d 0a 09 09 | 09 09 43 4f 4e 54 49 4e |ELSE....|..CONTIN|
|00000f90| 55 45 0d 0a 09 09 09 45 | 4e 44 49 46 0d 0a 0d 0a |UE.....E|NDIF....|
|00000fa0| 09 09 09 49 46 20 6b 25 | 3d 4b 45 59 43 4f 50 59 |...IF k%|=KEYCOPY|
|00000fb0| 0d 0a 23 69 66 64 65 66 | 20 43 4c 49 50 42 4f 41 |..#ifdef| CLIPBOA|
|00000fc0| 52 44 5f 4e 4f 4e 45 0d | 0a 09 09 09 09 67 49 50 |RD_NONE.|.....gIP|
|00000fd0| 52 49 4e 54 20 22 4e 6f | 74 20 69 6d 70 6c 65 6d |RINT "No|t implem|
|00000fe0| 65 6e 74 65 64 20 28 73 | 6f 72 72 79 29 22 0d 0a |ented (s|orry)"..|
|00000ff0| 23 65 6e 64 69 66 0d 0a | 23 69 66 64 65 66 20 43 |#endif..|#ifdef C|
|00001000| 4c 49 50 42 4f 41 52 44 | 5f 43 4c 49 50 42 49 54 |LIPBOARD|_CLIPBIT|
|00001010| 0d 0a 09 09 09 09 42 69 | 74 6d 61 70 54 6f 43 6c |......Bi|tmapToCl|
|00001020| 69 70 42 72 64 25 3a 28 | 67 49 44 45 4e 54 49 54 |ipBrd%:(|gIDENTIT|
|00001030| 59 29 0d 0a 09 09 09 09 | 67 49 50 52 49 4e 54 20 |Y)......|gIPRINT |
|00001040| 22 43 6f 70 69 65 64 22 | 0d 0a 23 65 6e 64 69 66 |"Copied"|..#endif|
|00001050| 0d 0a 09 09 09 45 4c 53 | 45 49 46 20 6b 25 3d 4b |.....ELS|EIF k%=K|
|00001060| 45 59 43 4c 53 0d 0a 09 | 09 09 09 67 43 4c 53 0d |EYCLS...|...gCLS.|
|00001070| 0a 09 09 09 09 6f 76 65 | 72 50 72 69 6e 74 43 6f |.....ove|rPrintCo|
|00001080| 75 6e 74 25 3d 30 0d 0a | 09 09 09 45 4c 53 45 49 |unt%=0..|...ELSEI|
|00001090| 46 20 6b 25 3d 4b 45 59 | 46 55 4e 43 54 49 4f 4e |F k%=KEY|FUNCTION|
|000010a0| 0d 0a 09 09 09 09 66 24 | 3d 47 65 74 46 75 6e 63 |......f$|=GetFunc|
|000010b0| 74 69 6f 6e 24 3a 28 66 | 24 29 0d 0a 09 09 09 45 |tion$:(f|$).....E|
|000010c0| 4c 53 45 49 46 20 6b 25 | 3d 4b 45 59 52 41 4e 47 |LSEIF k%|=KEYRANG|
|000010d0| 45 0d 0a 09 09 09 09 47 | 65 74 52 61 6e 67 65 3a |E......G|etRange:|
|000010e0| 0d 0a 09 09 09 45 4c 53 | 45 49 46 20 6b 25 3d 4b |.....ELS|EIF k%=K|
|000010f0| 45 59 4c 4f 41 44 4d 0d | 0a 09 09 09 09 4c 6f 61 |EYLOADM.|.....Loa|
|00001100| 64 4d 6f 64 75 6c 65 3a | 0d 0a 09 09 09 45 4c 53 |dModule:|.....ELS|
|00001110| 45 49 46 20 6b 25 3d 4b | 45 59 55 4e 4c 4f 41 44 |EIF k%=K|EYUNLOAD|
|00001120| 4d 0d 0a 09 09 09 09 55 | 6e 6c 6f 61 64 4d 6f 64 |M......U|nloadMod|
|00001130| 75 6c 65 3a 0d 0a 09 09 | 09 45 4c 53 45 49 46 20 |ule:....|.ELSEIF |
|00001140| 6b 25 3d 4b 45 59 50 4c | 4f 54 0d 0a 09 09 09 09 |k%=KEYPL|OT......|
|00001150| 49 46 20 4e 4f 54 20 4f | 76 65 72 50 72 69 6e 74 |IF NOT O|verPrint|
|00001160| 25 0d 0a 09 09 09 09 09 | 67 43 4c 53 0d 0a 09 09 |%.......|gCLS....|
|00001170| 09 09 09 6f 76 65 72 50 | 72 69 6e 74 43 6f 75 6e |...overP|rintCoun|
|00001180| 74 25 3d 30 0d 0a 09 09 | 09 09 45 4c 53 45 0d 0a |t%=0....|..ELSE..|
|00001190| 09 09 09 09 09 6f 76 65 | 72 50 72 69 6e 74 43 6f |.....ove|rPrintCo|
|000011a0| 75 6e 74 25 2b 2b 0d 0a | 09 09 09 09 45 4e 44 49 |unt%++..|....ENDI|
|000011b0| 46 0d 0a 09 09 09 09 49 | 46 20 44 72 61 77 41 78 |F......I|F DrawAx|
|000011c0| 65 73 25 0d 0a 09 09 09 | 09 09 41 78 69 73 3a 0d |es%.....|..Axis:.|
|000011d0| 0a 09 09 09 09 45 4e 44 | 49 46 0d 0a 09 09 09 09 |.....END|IF......|
|000011e0| 43 61 70 74 69 6f 6e 3a | 0d 0a 09 09 09 09 50 6c |Caption:|......Pl|
|000011f0| 6f 74 46 75 6e 63 74 69 | 6f 6e 3a 28 66 24 29 0d |otFuncti|on:(f$).|
|00001200| 0a 09 09 09 45 4c 53 45 | 49 46 20 6b 25 3d 4b 45 |....ELSE|IF k%=KE|
|00001210| 59 4d 45 53 48 0d 0a 09 | 09 09 09 47 65 74 4d 65 |YMESH...|...GetMe|
|00001220| 73 68 3a 0d 0a 09 09 09 | 45 4c 53 45 49 46 20 6b |sh:.....|ELSEIF k|
|00001230| 25 3d 4b 45 59 5a 4f 4f | 4d 0d 0a 09 09 09 09 47 |%=KEYZOO|M......G|
|00001240| 65 74 5a 6f 6f 6d 3a 0d | 0a 09 09 09 45 4c 53 45 |etZoom:.|....ELSE|
|00001250| 49 46 20 6b 25 3d 4b 45 | 59 43 45 4e 54 45 52 0d |IF k%=KE|YCENTER.|
|00001260| 0a 09 09 09 09 47 65 74 | 43 65 6e 74 65 72 3a 0d |.....Get|Center:.|
|00001270| 0a 09 09 09 45 4c 53 45 | 49 46 20 6b 25 3d 4b 45 |....ELSE|IF k%=KE|
|00001280| 59 52 45 53 45 54 43 45 | 4e 54 45 52 0d 0a 09 09 |YRESETCE|NTER....|
|00001290| 09 09 58 43 65 6e 74 25 | 20 3d 20 57 69 6e 57 25 |..XCent%| = WinW%|
|000012a0| 2f 32 0d 0a 09 09 09 09 | 59 43 65 6e 74 25 20 3d |/2......|YCent% =|
|000012b0| 20 57 69 6e 48 25 2f 32 | 0d 0a 09 09 09 09 67 49 | WinH%/2|......gI|
|000012c0| 50 52 49 4e 54 20 22 4f | 72 69 67 69 6e 20 72 65 |PRINT "O|rigin re|
|000012d0| 73 65 74 22 0d 0a 09 09 | 09 45 4c 53 45 49 46 20 |set"....|.ELSEIF |
|000012e0| 6b 25 3d 4b 45 59 4f 46 | 46 53 43 52 45 45 4e 0d |k%=KEYOF|FSCREEN.|
|000012f0| 0a 09 09 09 09 4f 66 66 | 73 63 72 65 65 6e 25 20 |.....Off|screen% |
|00001300| 3d 20 4e 4f 54 20 4f 66 | 66 73 63 72 65 65 6e 25 |= NOT Of|fscreen%|
|00001310| 0d 0a 09 09 09 09 49 46 | 20 4f 66 66 73 63 72 65 |......IF| Offscre|
|00001320| 65 6e 25 0d 0a 09 09 09 | 09 09 67 49 50 52 49 4e |en%.....|..gIPRIN|
|00001330| 54 20 22 4f 66 66 73 63 | 72 65 65 6e 20 73 65 74 |T "Offsc|reen set|
|00001340| 22 0d 0a 09 09 09 09 45 | 4c 53 45 0d 0a 09 09 09 |"......E|LSE.....|
|00001350| 09 09 67 49 50 52 49 4e | 54 20 22 4f 66 66 73 63 |..gIPRIN|T "Offsc|
|00001360| 72 65 65 6e 20 75 6e 73 | 65 74 22 0d 0a 09 09 09 |reen uns|et".....|
|00001370| 09 45 4e 44 49 46 0d 0a | 09 09 09 45 4c 53 45 49 |.ENDIF..|...ELSEI|
|00001380| 46 20 6b 25 3d 4b 45 59 | 4f 56 45 52 50 52 49 4e |F k%=KEY|OVERPRIN|
|00001390| 54 0d 0a 09 09 09 09 4f | 76 65 72 70 72 69 6e 74 |T......O|verprint|
|000013a0| 25 20 3d 20 4e 4f 54 20 | 4f 76 65 72 70 72 69 6e |% = NOT |Overprin|
|000013b0| 74 25 0d 0a 09 09 09 45 | 4c 53 45 49 46 20 6b 25 |t%.....E|LSEIF k%|
|000013c0| 3d 4b 45 59 41 58 45 53 | 0d 0a 09 09 09 09 44 72 |=KEYAXES|......Dr|
|000013d0| 61 77 41 78 65 73 25 20 | 3d 20 4e 4f 54 20 44 72 |awAxes% |= NOT Dr|
|000013e0| 61 77 41 78 65 73 25 0d | 0a 09 09 09 09 49 46 20 |awAxes%.|.....IF |
|000013f0| 44 72 61 77 41 78 65 73 | 25 0d 0a 09 09 09 09 09 |DrawAxes|%.......|
|00001400| 67 49 50 52 49 4e 54 20 | 22 41 78 65 73 20 4f 6e |gIPRINT |"Axes On|
|00001410| 22 0d 0a 09 09 09 09 45 | 4c 53 45 0d 0a 09 09 09 |"......E|LSE.....|
|00001420| 09 09 67 49 50 52 49 4e | 54 20 22 41 78 65 73 20 |..gIPRIN|T "Axes |
|00001430| 6f 66 66 22 0d 0a 09 09 | 09 09 45 4e 44 49 46 0d |off"....|..ENDIF.|
|00001440| 0a 09 09 09 45 4c 53 45 | 49 46 20 6b 25 3d 4b 45 |....ELSE|IF k%=KE|
|00001450| 59 55 53 45 4c 49 4e 45 | 53 0d 0a 09 09 09 09 55 |YUSELINE|S......U|
|00001460| 73 65 6c 69 6e 65 73 25 | 20 3d 20 4e 4f 54 20 55 |selines%| = NOT U|
|00001470| 73 65 4c 69 6e 65 73 25 | 0d 0a 09 09 09 09 49 46 |seLines%|......IF|
|00001480| 20 55 73 65 6c 69 6e 65 | 73 25 0d 0a 09 09 09 09 | Useline|s%......|
|00001490| 09 67 49 50 52 49 4e 54 | 20 22 4c 69 6e 65 73 20 |.gIPRINT| "Lines |
|000014a0| 6f 6e 22 0d 0a 09 09 09 | 09 45 4c 53 45 0d 0a 09 |on".....|.ELSE...|
|000014b0| 09 09 09 09 67 49 50 52 | 49 4e 54 20 22 4c 69 6e |....gIPR|INT "Lin|
|000014c0| 65 73 20 6f 66 66 22 0d | 0a 09 09 09 09 45 4e 44 |es off".|.....END|
|000014d0| 49 46 0d 0a 09 09 09 45 | 4c 53 45 49 46 20 6b 25 |IF.....E|LSEIF k%|
|000014e0| 3d 4b 45 59 54 4f 4f 4c | 42 41 52 0d 0a 09 09 09 |=KEYTOOL|BAR.....|
|000014f0| 09 49 46 20 54 62 4d 65 | 6e 75 53 79 6d 25 3c 3e |.IF TbMe|nuSym%<>|
|00001500| 4b 4d 65 6e 75 43 68 65 | 63 6b 42 6f 78 25 0d 0a |KMenuChe|ckBox%..|
|00001510| 09 09 09 09 09 54 62 61 | 72 48 69 64 65 3a 0d 0a |.....Tba|rHide:..|
|00001520| 09 09 09 09 09 57 69 6e | 57 25 20 3d 20 67 57 49 |.....Win|W% = gWI|
|00001530| 44 54 48 20 2d 20 42 57 | 25 0d 0a 09 09 09 09 09 |DTH - BW|%.......|
|00001540| 58 43 65 6e 74 25 20 3d | 20 57 69 6e 57 25 2f 32 |XCent% =| WinW%/2|
|00001550| 0d 0a 09 09 09 09 45 4c | 53 45 0d 0a 09 09 09 09 |......EL|SE......|
|00001560| 09 54 62 61 72 53 68 6f | 77 3a 0d 0a 09 09 09 09 |.TbarSho|w:......|
|00001570| 09 57 69 6e 57 25 20 3d | 20 67 57 49 44 54 48 20 |.WinW% =| gWIDTH |
|00001580| 2d 20 42 57 25 20 2d 20 | 54 42 57 69 64 74 68 25 |- BW% - |TBWidth%|
|00001590| 0d 0a 09 09 09 09 09 58 | 43 65 6e 74 25 20 3d 20 |.......X|Cent% = |
|000015a0| 57 69 6e 57 25 2f 32 0d | 0a 09 09 09 09 45 4e 44 |WinW%/2.|.....END|
|000015b0| 49 46 0d 0a 09 09 09 45 | 4c 53 45 49 46 20 6b 25 |IF.....E|LSEIF k%|
|000015c0| 3d 4b 45 59 45 58 50 4f | 52 54 0d 0a 09 09 09 09 |=KEYEXPO|RT......|
|000015d0| 64 49 4e 49 54 20 22 45 | 78 70 6f 72 74 20 4d 42 |dINIT "E|xport MB|
|000015e0| 4d 20 66 69 6c 65 22 0d | 0a 09 09 09 09 64 46 49 |M file".|.....dFI|
|000015f0| 4c 45 20 66 69 6c 65 24 | 2c 20 22 46 69 6c 65 2c |LE file$|, "File,|
|00001600| 46 6f 6c 64 65 72 2c 44 | 69 73 6b 22 2c 20 4b 44 |Folder,D|isk", KD|
|00001610| 46 69 6c 65 45 64 69 74 | 42 6f 78 25 2b 4b 44 46 |FileEdit|Box%+KDF|
|00001620| 69 6c 65 45 64 69 74 6f | 72 51 75 65 72 79 45 78 |ileEdito|rQueryEx|
|00001630| 69 73 74 69 6e 67 25 0d | 0a 09 09 09 09 64 42 55 |isting%.|.....dBU|
|00001640| 54 54 4f 4e 53 20 22 43 | 61 6e 63 65 6c 22 2c 20 |TTONS "C|ancel", |
|00001650| 2d 4b 44 42 75 74 74 6f | 6e 45 73 63 25 2c 20 22 |-KDButto|nEsc%, "|
|00001660| 4f 4b 22 2c 20 4b 44 42 | 75 74 74 6f 6e 45 6e 74 |OK", KDB|uttonEnt|
|00001670| 65 72 25 0d 0a 09 09 09 | 09 49 46 20 44 49 41 4c |er%.....|.IF DIAL|
|00001680| 4f 47 3c 3e 30 0d 0a 09 | 09 09 09 20 20 67 49 50 |OG<>0...|...  gIP|
|00001690| 52 49 4e 54 20 22 53 61 | 76 69 6e 67 2e 2e 2e 22 |RINT "Sa|ving..."|
|000016a0| 0d 0a 09 09 09 09 20 20 | 67 53 41 56 45 42 49 54 |......  |gSAVEBIT|
|000016b0| 20 66 69 6c 65 24 0d 0a | 09 09 09 09 45 4c 53 45 | file$..|....ELSE|
|000016c0| 0d 0a 09 09 09 09 09 67 | 49 50 52 49 4e 54 20 22 |.......g|IPRINT "|
|000016d0| 43 61 6e 63 65 6c 6c 65 | 64 2e 2e 2e 22 0d 0a 09 |Cancelle|d..."...|
|000016e0| 09 09 09 45 4e 44 49 46 | 0d 0a 09 09 09 45 4c 53 |...ENDIF|.....ELS|
|000016f0| 45 49 46 20 6b 25 3d 4b | 45 59 51 55 49 54 0d 0a |EIF k%=K|EYQUIT..|
|00001700| 09 09 09 09 51 75 69 74 | 46 6c 61 67 25 3d 4b 54 |....Quit|Flag%=KT|
|00001710| 72 75 65 25 0d 0a 09 09 | 09 45 4c 53 45 49 46 20 |rue%....|.ELSEIF |
|00001720| 6b 25 3d 4b 45 59 41 42 | 4f 55 54 0d 0a 09 09 09 |k%=KEYAB|OUT.....|
|00001730| 09 64 49 4e 49 54 20 22 | 41 62 6f 75 74 20 74 68 |.dINIT "|About th|
|00001740| 69 73 20 70 72 6f 67 72 | 61 6d 22 0d 0a 09 09 09 |is progr|am".....|
|00001750| 09 64 54 45 58 54 20 22 | 50 6c 6f 74 74 65 72 20 |.dTEXT "|Plotter |
|00001760| 22 2c 22 76 65 72 73 69 | 6f 6e 20 31 2e 30 22 2c |","versi|on 1.0",|
|00001770| 20 4b 44 54 65 78 74 52 | 69 67 68 74 25 0d 0a 09 | KDTextR|ight%...|
|00001780| 09 09 09 64 54 45 58 54 | 20 22 22 2c 20 22 a9 20 |...dTEXT| "", ". |
|00001790| 31 39 39 39 2d 32 30 30 | 30 20 47 6c 65 6e 6e 20 |1999-200|0 Glenn |
|000017a0| 53 74 72 6f 6e 67 22 2c | 20 4b 44 54 65 78 74 43 |Strong",| KDTextC|
|000017b0| 65 6e 74 72 65 25 0d 0a | 09 09 09 09 64 54 45 58 |entre%..|....dTEX|
|000017c0| 54 20 22 22 2c 20 22 46 | 72 65 65 20 73 6f 66 74 |T "", "F|ree soft|
|000017d0| 77 61 72 65 20 75 6e 64 | 65 72 20 74 68 65 20 47 |ware und|er the G|
|000017e0| 50 4c 22 2c 20 4b 44 54 | 65 78 74 43 65 6e 74 72 |PL", KDT|extCentr|
|000017f0| 65 25 0d 0a 09 09 09 09 | 64 54 45 58 54 20 22 22 |e%......|dTEXT ""|
|00001800| 2c 22 22 2c 20 4b 44 54 | 65 78 74 53 65 70 61 72 |,"", KDT|extSepar|
|00001810| 61 74 6f 72 25 0d 0a 09 | 09 09 09 64 54 45 58 54 |ator%...|...dTEXT|
|00001820| 20 22 22 2c 20 22 47 6c | 65 6e 6e 2e 53 74 72 6f | "", "Gl|enn.Stro|
|00001830| 6e 67 40 63 73 2e 74 63 | 64 2e 69 65 22 2c 20 4b |ng@cs.tc|d.ie", K|
|00001840| 44 54 65 78 74 43 65 6e | 74 72 65 25 0d 0a 09 09 |DTextCen|tre%....|
|00001850| 09 09 64 54 45 58 54 20 | 22 22 2c 22 68 74 74 70 |..dTEXT |"","http|
|00001860| 3a 2f 2f 77 77 77 2e 63 | 73 2e 74 63 64 2e 69 65 |://www.c|s.tcd.ie|
|00001870| 2f 47 6c 65 6e 6e 2e 53 | 74 72 6f 6e 67 2f 65 70 |/Glenn.S|trong/ep|
|00001880| 6f 63 2f 22 2c 20 4b 44 | 54 65 78 74 43 65 6e 74 |oc/", KD|TextCent|
|00001890| 72 65 25 0d 0a 09 09 09 | 09 64 42 55 54 54 4f 4e |re%.....|.dBUTTON|
|000018a0| 53 20 22 4f 4b 22 2c 20 | 4b 44 42 75 74 74 6f 6e |S "OK", |KDButton|
|000018b0| 45 6e 74 65 72 25 20 4f | 52 20 4b 44 42 75 74 74 |Enter% O|R KDButt|
|000018c0| 6f 6e 4e 6f 4c 61 62 65 | 6c 25 0d 0a 09 09 09 09 |onNoLabe|l%......|
|000018d0| 44 49 41 4c 4f 47 0d 0a | 09 09 09 45 4e 44 49 46 |DIALOG..|...ENDIF|
|000018e0| 0d 0a 09 09 45 4e 44 49 | 46 0d 0a 09 55 4e 54 49 |....ENDI|F...UNTI|
|000018f0| 4c 20 51 75 69 74 46 6c | 61 67 25 0d 0a 45 4e 44 |L QuitFl|ag%..END|
|00001900| 50 0d 0a 0d 0a 0d 0a 2f | 2f 20 43 6f 6e 76 65 72 |P....../|/ Conver|
|00001910| 74 20 75 70 20 74 6f 20 | 32 35 35 20 62 79 74 65 |t up to |255 byte|
|00001920| 73 20 6f 66 20 61 20 62 | 75 66 66 65 72 20 69 6e |s of a b|uffer in|
|00001930| 74 6f 20 61 20 73 74 72 | 69 6e 67 2e 0d 0a 50 52 |to a str|ing...PR|
|00001940| 4f 43 20 62 75 66 24 3a | 28 62 26 29 0d 0a 09 4c |OC buf$:|(b&)...L|
|00001950| 4f 43 41 4c 20 6c 25 2c | 20 77 26 2c 20 73 24 28 |OCAL l%,| w&, s$(|
|00001960| 32 35 35 29 0d 0a 09 77 | 26 20 3d 20 50 45 45 4b |255)...w|& = PEEK|
|00001970| 4c 28 62 26 29 0d 0a 09 | 6c 25 20 3d 20 4d 49 4e |L(b&)...|l% = MIN|
|00001980| 28 32 35 35 2c 77 26 29 | 0d 0a 09 50 4f 4b 45 42 |(255,w&)|...POKEB|
|00001990| 20 28 62 26 2b 33 29 2c | 6c 25 0d 0a 09 73 24 3d | (b&+3),|l%...s$=|
|000019a0| 50 45 45 4b 24 28 62 26 | 2b 33 29 0d 0a 09 50 4f |PEEK$(b&|+3)...PO|
|000019b0| 4b 45 4c 20 62 26 2c 20 | 77 26 0d 0a 09 52 45 54 |KEL b&, |w&...RET|
|000019c0| 55 52 4e 20 73 24 0d 0a | 45 4e 44 50 0d 0a 0d 0a |URN s$..|ENDP....|
|000019d0| 0d 0a 2f 2f 20 53 65 74 | 20 75 70 20 6d 65 6e 75 |..// Set| up menu|
|000019e0| 20 61 6e 64 20 70 72 6f | 63 65 73 73 20 73 65 6c | and pro|cess sel|
|000019f0| 65 63 74 69 6f 6e 0d 0a | 50 52 4f 43 20 53 65 74 |ection..|PROC Set|
|00001a00| 75 70 4d 65 6e 75 3a 0d | 0a 09 45 58 54 45 52 4e |upMenu:.|..EXTERN|
|00001a10| 41 4c 20 4f 66 66 73 63 | 72 65 65 6e 25 2c 20 44 |AL Offsc|reen%, D|
|00001a20| 72 61 77 41 78 65 73 25 | 2c 20 4f 76 65 72 50 72 |rawAxes%|, OverPr|
|00001a30| 69 6e 74 25 2c 20 54 62 | 4d 65 6e 75 53 79 6d 25 |int%, Tb|MenuSym%|
|00001a40| 0d 0a 09 45 58 54 45 52 | 4e 41 4c 20 55 73 65 6c |...EXTER|NAL Usel|
|00001a50| 69 6e 65 73 25 0d 0a 09 | 4c 4f 43 41 4c 20 4f 53 |ines%...|LOCAL OS|
|00001a60| 4f 70 74 69 6f 6e 25 2c | 20 41 58 4f 70 74 69 6f |Option%,| AXOptio|
|00001a70| 6e 25 2c 20 4f 50 4f 70 | 74 69 6f 6e 25 2c 20 4c |n%, OPOp|tion%, L|
|00001a80| 49 4f 70 74 69 6f 6e 25 | 0d 0a 0d 0a 09 4f 53 4f |IOption%|.....OSO|
|00001a90| 70 74 69 6f 6e 25 20 3d | 20 4b 4d 65 6e 75 43 68 |ption% =| KMenuCh|
|00001aa0| 65 63 6b 42 6f 78 25 0d | 0a 09 49 46 20 4f 66 66 |eckBox%.|..IF Off|
|00001ab0| 73 63 72 65 65 6e 25 20 | 3a 20 4f 53 4f 70 74 69 |screen% |: OSOpti|
|00001ac0| 6f 6e 25 20 3d 20 4f 53 | 4f 70 74 69 6f 6e 25 20 |on% = OS|Option% |
|00001ad0| 4f 52 20 4b 4d 65 6e 75 | 53 79 6d 62 6f 6c 4f 6e |OR KMenu|SymbolOn|
|00001ae0| 25 20 3a 09 45 4e 44 49 | 46 0d 0a 0d 0a 09 41 58 |% :.ENDI|F.....AX|
|00001af0| 4f 70 74 69 6f 6e 25 20 | 3d 20 4b 4d 65 6e 75 43 |Option% |= KMenuC|
|00001b00| 68 65 63 6b 42 6f 78 25 | 0d 0a 09 49 46 20 44 72 |heckBox%|...IF Dr|
|00001b10| 61 77 41 78 65 73 25 20 | 3a 20 41 58 4f 70 74 69 |awAxes% |: AXOpti|
|00001b20| 6f 6e 25 20 3d 20 41 58 | 4f 70 74 69 6f 6e 25 20 |on% = AX|Option% |
|00001b30| 4f 52 20 4b 4d 65 6e 75 | 53 79 6d 62 6f 6c 4f 6e |OR KMenu|SymbolOn|
|00001b40| 25 20 3a 20 45 4e 44 49 | 46 0d 0a 0d 0a 09 4f 50 |% : ENDI|F.....OP|
|00001b50| 4f 70 74 69 6f 6e 25 20 | 3d 20 4b 4d 65 6e 75 43 |Option% |= KMenuC|
|00001b60| 68 65 63 6b 42 6f 78 25 | 0d 0a 09 49 46 20 4f 76 |heckBox%|...IF Ov|
|00001b70| 65 72 50 72 69 6e 74 25 | 20 3a 20 4f 50 4f 70 74 |erPrint%| : OPOpt|
|00001b80| 69 6f 6e 25 20 3d 20 4f | 50 4f 70 74 69 6f 6e 25 |ion% = O|POption%|
|00001b90| 20 4f 52 20 4b 4d 65 6e | 75 53 79 6d 62 6f 6c 4f | OR KMen|uSymbolO|
|00001ba0| 6e 25 20 3a 20 45 4e 44 | 49 46 0d 0a 0d 0a 09 4c |n% : END|IF.....L|
|00001bb0| 49 4f 70 74 69 6f 6e 25 | 20 3d 20 4b 4d 65 6e 75 |IOption%| = KMenu|
|00001bc0| 43 68 65 63 6b 42 6f 78 | 25 0d 0a 09 49 46 20 55 |CheckBox|%...IF U|
|00001bd0| 73 65 4c 69 6e 65 73 25 | 0d 0a 09 09 4c 49 4f 70 |seLines%|....LIOp|
|00001be0| 74 69 6f 6e 25 20 3d 20 | 4c 49 4f 70 74 69 6f 6e |tion% = |LIOption|
|00001bf0| 25 20 4f 52 20 4b 4d 65 | 6e 75 53 79 6d 62 6f 6c |% OR KMe|nuSymbol|
|00001c00| 4f 6e 25 0d 0a 09 45 4e | 44 49 46 0d 0a 0d 0a 09 |On%...EN|DIF.....|
|00001c10| 6d 49 4e 49 54 0d 0a 09 | 6d 43 41 52 44 20 22 46 |mINIT...|mCARD "F|
|00001c20| 69 6c 65 22 2c 22 45 78 | 70 6f 72 74 20 70 6c 6f |ile","Ex|port plo|
|00001c30| 74 2e 2e 2e 22 2c 4b 45 | 59 45 58 50 4f 52 54 2c |t...",KE|YEXPORT,|
|00001c40| 22 43 6c 6f 73 65 22 2c | 4b 45 59 51 55 49 54 0d |"Close",|KEYQUIT.|
|00001c50| 0a 09 6d 43 41 52 44 20 | 22 45 64 69 74 22 2c 22 |..mCARD |"Edit","|
|00001c60| 43 6f 70 79 22 2c 4b 45 | 59 43 4f 50 59 2c 22 45 |Copy",KE|YCOPY,"E|
|00001c70| 72 61 73 65 22 2c 4b 45 | 59 43 4c 53 0d 0a 09 6d |rase",KE|YCLS...m|
|00001c80| 43 41 52 44 20 22 46 75 | 6e 63 74 69 6f 6e 22 2c |CARD "Fu|nction",|
|00001c90| 22 53 65 74 2e 2e 2e 22 | 2c 4b 45 59 46 55 4e 43 |"Set..."|,KEYFUNC|
|00001ca0| 54 49 4f 4e 2c 22 52 61 | 6e 67 65 2e 2e 2e 22 2c |TION,"Ra|nge...",|
|00001cb0| 4b 45 59 52 41 4e 47 45 | 2c 5c 0d 0a 09 20 20 20 |KEYRANGE|,\...   |
|00001cc0| 20 20 20 22 4c 6f 61 64 | 20 6d 6f 64 75 6c 65 2e |   "Load| module.|
|00001cd0| 2e 2e 22 2c 20 4b 45 59 | 4c 4f 41 44 4d 2c 20 22 |..", KEY|LOADM, "|
|00001ce0| 55 6e 6c 6f 61 64 20 6d | 6f 64 75 6c 65 2e 2e 2e |Unload m|odule...|
|00001cf0| 22 2c 20 4b 45 59 55 4e | 4c 4f 41 44 4d 0d 0a 09 |", KEYUN|LOADM...|
|00001d00| 6d 43 41 52 44 20 22 47 | 72 61 70 68 22 2c 20 22 |mCARD "G|raph", "|
|00001d10| 50 6c 6f 74 22 2c 4b 45 | 59 50 4c 4f 54 2c 20 22 |Plot",KE|YPLOT, "|
|00001d20| 4d 65 73 68 2e 2e 2e 22 | 2c 4b 45 59 4d 45 53 48 |Mesh..."|,KEYMESH|
|00001d30| 2c 20 22 5a 6f 6f 6d 22 | 2c 4b 45 59 5a 4f 4f 4d |, "Zoom"|,KEYZOOM|
|00001d40| 2c 5c 0d 0a 20 09 20 20 | 20 20 20 20 22 53 65 74 |,\.. .  |    "Set|
|00001d50| 20 6f 72 69 67 69 6e 22 | 2c 4b 45 59 43 45 4e 54 | origin"|,KEYCENT|
|00001d60| 45 52 2c 20 22 52 65 73 | 65 74 20 6f 72 69 67 69 |ER, "Res|et origi|
|00001d70| 6e 22 2c 20 4b 45 59 52 | 45 53 45 54 43 45 4e 54 |n", KEYR|ESETCENT|
|00001d80| 45 52 0d 0a 09 6d 43 41 | 52 44 20 22 4f 70 74 69 |ER...mCA|RD "Opti|
|00001d90| 6f 6e 73 22 2c 20 22 4f | 66 66 73 63 72 65 65 6e |ons", "O|ffscreen|
|00001da0| 22 2c 28 4b 45 59 4f 46 | 46 53 43 52 45 45 4e 20 |",(KEYOF|FSCREEN |
|00001db0| 4f 52 20 4f 53 4f 70 74 | 69 6f 6e 25 29 2c 5c 0d |OR OSOpt|ion%),\.|
|00001dc0| 0a 09 20 20 20 20 20 20 | 22 44 72 61 77 20 41 78 |..      |"Draw Ax|
|00001dd0| 65 73 22 2c 28 4b 45 59 | 41 58 45 53 20 4f 52 20 |es",(KEY|AXES OR |
|00001de0| 41 58 4f 70 74 69 6f 6e | 25 29 2c 20 5c 0d 0a 09 |AXOption|%), \...|
|00001df0| 09 09 09 22 4f 76 65 72 | 70 72 69 6e 74 22 2c 28 |..."Over|print",(|
|00001e00| 4b 45 59 4f 56 45 52 50 | 52 49 4e 54 20 4f 52 20 |KEYOVERP|RINT OR |
|00001e10| 4f 50 4f 70 74 69 6f 6e | 25 29 2c 5c 0d 0a 09 09 |OPOption|%),\....|
|00001e20| 09 09 20 22 53 68 6f 77 | 20 74 6f 6f 6c 62 61 72 |.. "Show| toolbar|
|00001e30| 22 2c 28 4b 45 59 54 4f | 4f 4c 42 41 52 20 6f 72 |",(KEYTO|OLBAR or|
|00001e40| 20 54 62 4d 65 6e 75 53 | 79 6d 25 29 2c 5c 0d 0a | TbMenuS|ym%),\..|
|00001e50| 09 09 09 09 20 22 55 73 | 65 20 6c 69 6e 65 73 22 |.... "Us|e lines"|
|00001e60| 2c 20 28 4b 45 59 55 53 | 45 4c 49 4e 45 53 20 6f |, (KEYUS|ELINES o|
|00001e70| 72 20 4c 49 4f 70 74 69 | 6f 6e 25 29 0d 0a 09 6d |r LIOpti|on%)...m|
|00001e80| 43 41 52 44 20 22 48 65 | 6c 70 22 2c 20 22 41 62 |CARD "He|lp", "Ab|
|00001e90| 6f 75 74 2e 2e 2e 22 2c | 20 4b 45 59 41 42 4f 55 |out...",| KEYABOU|
|00001ea0| 54 0d 0a 45 4e 44 50 0d | 0a 0d 0a 2f 2f 20 47 65 |T..ENDP.|...// Ge|
|00001eb0| 74 20 61 6e 64 20 72 65 | 74 75 72 6e 20 61 20 6e |t and re|turn a n|
|00001ec0| 65 77 20 66 75 6e 63 74 | 69 6f 6e 20 66 72 6f 6d |ew funct|ion from|
|00001ed0| 20 74 68 65 20 75 73 65 | 72 2e 0d 0a 2f 2f 20 54 | the use|r...// T|
|00001ee0| 68 65 20 6f 6c 64 20 66 | 75 6e 63 74 69 6f 6e 20 |he old f|unction |
|00001ef0| 74 6f 20 6f 66 66 65 72 | 20 69 73 20 69 6e 20 66 |to offer| is in f|
|00001f00| 24 0d 0a 50 52 4f 43 20 | 47 65 74 46 75 6e 63 74 |$..PROC |GetFunct|
|00001f10| 69 6f 6e 24 3a 28 66 24 | 29 0d 0a 09 4c 4f 43 41 |ion$:(f$|)...LOCA|
|00001f20| 4c 20 62 26 28 36 34 29 | 2c 20 74 24 28 32 35 35 |L b&(64)|, t$(255|
|00001f30| 29 2c 20 6b 25 2c 20 69 | 25 2c 20 70 40 0d 0a 09 |), k%, i|%, p@...|
|00001f40| 0d 0a 09 50 4f 4b 45 24 | 20 41 44 44 52 28 62 26 |...POKE$| ADDR(b&|
|00001f50| 28 29 29 2b 33 2c 66 24 | 0d 0a 09 50 4f 4b 45 4c |())+3,f$|...POKEL|
|00001f60| 20 41 44 44 52 28 62 26 | 28 29 29 2c 20 4c 45 4e | ADDR(b&|()), LEN|
|00001f70| 28 66 24 29 0d 0a 09 64 | 49 4e 49 54 20 22 46 75 |(f$)...d|INIT "Fu|
|00001f80| 6e 63 74 69 6f 6e 22 0d | 0a 09 64 45 44 49 54 4d |nction".|..dEDITM|
|00001f90| 55 4c 54 49 20 41 44 44 | 52 28 62 26 28 29 29 2c |ULTI ADD|R(b&()),|
|00001fa0| 20 22 66 28 78 29 3d 22 | 2c 31 35 2c 33 2c 32 35 | "f(x)="|,15,3,25|
|00001fb0| 35 0d 0a 09 64 42 55 54 | 54 4f 4e 53 20 22 4f 4b |5...dBUT|TONS "OK|
|00001fc0| 22 2c 25 6f 2c 22 43 61 | 6e 63 65 6c 22 2c 4b 4b |",%o,"Ca|ncel",KK|
|00001fd0| 65 79 45 73 63 25 0d 0a | 09 6b 25 3d 44 49 41 4c |eyEsc%..|.k%=DIAL|
|00001fe0| 4f 47 0d 0a 09 49 46 20 | 6b 25 3d 25 6f 0d 0a 09 |OG...IF |k%=%o...|
|00001ff0| 09 74 24 3d 62 75 66 24 | 3a 28 41 44 44 52 28 62 |.t$=buf$|:(ADDR(b|
|00002000| 26 28 29 29 29 0d 0a 09 | 09 2f 2f 20 52 65 6d 6f |&()))...|.// Remo|
|00002010| 76 65 20 65 6d 62 65 64 | 64 65 64 20 63 6f 6e 74 |ve embed|ded cont|
|00002020| 72 6f 6c 20 63 68 61 72 | 61 63 74 65 72 73 0d 0a |rol char|acters..|
|00002030| 09 09 69 25 3d 31 0d 0a | 09 09 70 40 3d 41 44 44 |..i%=1..|..p@=ADD|
|00002040| 52 28 74 24 29 0d 0a 09 | 09 57 48 49 4c 45 20 69 |R(t$)...|.WHILE i|
|00002050| 25 3c 3d 4c 45 4e 28 74 | 24 29 0d 0a 09 09 09 49 |%<=LEN(t|$).....I|
|00002060| 46 20 50 45 45 4b 42 28 | 70 40 2b 69 25 29 20 3c |F PEEKB(|p@+i%) <|
|00002070| 20 33 32 20 2f 2f 20 43 | 6f 6e 74 72 6f 6c 20 63 | 32 // C|ontrol c|
|00002080| 6f 64 65 0d 0a 09 09 09 | 09 50 4f 4b 45 42 20 70 |ode.....|.POKEB p|
|00002090| 40 2b 69 25 2c 33 32 20 | 20 20 20 2f 2f 20 53 70 |@+i%,32 |   // Sp|
|000020a0| 61 63 65 0d 0a 09 09 09 | 45 4e 44 49 46 0d 0a 09 |ace.....|ENDIF...|
|000020b0| 09 09 69 25 2b 2b 0d 0a | 09 09 45 4e 44 57 48 0d |..i%++..|..ENDWH.|
|000020c0| 0a 09 09 52 45 54 55 52 | 4e 20 74 24 0d 0a 09 45 |...RETUR|N t$...E|
|000020d0| 4c 53 45 0d 0a 09 09 52 | 45 54 55 52 4e 20 66 24 |LSE....R|ETURN f$|
|000020e0| 0d 0a 09 45 4e 44 49 46 | 0d 0a 45 4e 44 50 0d 0a |...ENDIF|..ENDP..|
|000020f0| 0d 0a 2f 2f 20 50 72 6f | 6d 70 74 20 74 68 65 20 |..// Pro|mpt the |
|00002100| 75 73 65 72 20 74 6f 20 | 63 68 61 6e 67 65 20 74 |user to |change t|
|00002110| 68 65 20 72 61 6e 67 65 | 0d 0a 50 52 4f 43 20 47 |he range|..PROC G|
|00002120| 65 74 52 61 6e 67 65 3a | 0d 0a 09 45 58 54 45 52 |etRange:|...EXTER|
|00002130| 4e 41 4c 20 52 4d 69 6e | 2c 20 52 4d 61 78 0d 0a |NAL RMin|, RMax..|
|00002140| 09 64 49 4e 49 54 20 22 | 53 65 6c 65 63 74 20 52 |.dINIT "|Select R|
|00002150| 61 6e 67 65 20 6f 66 20 | 78 22 0d 0a 09 64 46 4c |ange of |x"...dFL|
|00002160| 4f 41 54 20 52 4d 69 6e | 2c 20 22 20 46 72 6f 6d |OAT RMin|, " From|
|00002170| 20 22 2c 20 2d 31 30 30 | 2c 20 31 30 30 0d 0a 09 | ", -100|, 100...|
|00002180| 64 46 4c 4f 41 54 20 52 | 4d 61 78 2c 20 22 20 54 |dFLOAT R|Max, " T|
|00002190| 6f 20 22 2c 20 2d 31 30 | 30 2c 20 31 30 30 0d 0a |o ", -10|0, 100..|
|000021a0| 09 64 42 75 74 74 6f 6e | 73 20 22 4f 4b 22 2c 4b |.dButton|s "OK",K|
|000021b0| 4b 65 79 45 6e 74 65 72 | 25 2c 22 43 61 6e 63 65 |KeyEnter|%,"Cance|
|000021c0| 6c 22 2c 4b 4b 65 79 45 | 73 63 25 0d 0a 09 44 49 |l",KKeyE|sc%...DI|
|000021d0| 41 4c 4f 47 0d 0a 45 4e | 44 50 0d 0a 0d 0a 2f 2f |ALOG..EN|DP....//|
|000021e0| 20 50 72 6f 6d 70 74 20 | 74 68 65 20 75 73 65 72 | Prompt |the user|
|000021f0| 20 74 6f 20 63 68 61 6e | 67 65 20 74 68 65 20 6d | to chan|ge the m|
|00002200| 65 73 68 0d 0a 50 52 4f | 43 20 47 65 74 4d 65 73 |esh..PRO|C GetMes|
|00002210| 68 3a 0d 0a 09 45 58 54 | 45 52 4e 41 4c 20 4d 65 |h:...EXT|ERNAL Me|
|00002220| 73 68 26 2c 20 57 69 6e | 57 25 0d 0a 09 64 49 4e |sh&, Win|W%...dIN|
|00002230| 49 54 20 22 4d 65 73 68 | 20 67 72 61 6e 75 6c 61 |IT "Mesh| granula|
|00002240| 72 69 74 79 22 0d 0a 09 | 64 4c 4f 4e 47 20 4d 65 |rity"...|dLONG Me|
|00002250| 73 68 26 2c 22 4d 65 73 | 68 3a 22 2c 31 2c 57 69 |sh&,"Mes|h:",1,Wi|
|00002260| 6e 57 25 0d 0a 09 64 42 | 75 74 74 6f 6e 73 20 22 |nW%...dB|uttons "|
|00002270| 4f 4b 22 2c 4b 4b 65 79 | 45 6e 74 65 72 25 2c 22 |OK",KKey|Enter%,"|
|00002280| 43 61 6e 63 65 6c 22 2c | 4b 4b 65 79 45 73 63 25 |Cancel",|KKeyEsc%|
|00002290| 0d 0a 09 44 49 41 4c 4f | 47 0d 0a 45 4e 44 50 0d |...DIALO|G..ENDP.|
|000022a0| 0a 0d 0a 2f 2f 20 50 72 | 6f 6d 70 74 20 74 68 65 |...// Pr|ompt the|
|000022b0| 20 75 73 65 72 20 74 6f | 20 63 68 61 6e 67 65 20 | user to| change |
|000022c0| 74 68 65 20 7a 6f 6f 6d | 65 76 65 6c 0d 0a 50 52 |the zoom|evel..PR|
|000022d0| 4f 43 20 47 65 74 5a 6f | 6f 6d 3a 0d 0a 09 45 58 |OC GetZo|om:...EX|
|000022e0| 54 45 52 4e 41 4c 20 5a | 6f 6f 6d 2c 20 57 69 6e |TERNAL Z|oom, Win|
|000022f0| 57 25 0d 0a 09 4c 4f 43 | 41 4c 20 7a 26 0d 0a 09 |W%...LOC|AL z&...|
|00002300| 7a 26 3d 5a 6f 6f 6d 0d | 0a 09 64 49 4e 49 54 20 |z&=Zoom.|..dINIT |
|00002310| 22 5a 6f 6f 6d 6c 65 76 | 65 6c 22 0d 0a 09 64 4c |"Zoomlev|el"...dL|
|00002320| 4f 4e 47 20 7a 26 2c 20 | 22 5a 6f 6f 6d 3a 22 2c |ONG z&, |"Zoom:",|
|00002330| 20 2d 4d 61 78 5a 6f 6f | 6d 25 2c 20 4d 61 78 5a | -MaxZoo|m%, MaxZ|
|00002340| 6f 6f 6d 25 0d 0a 09 64 | 42 75 74 74 6f 6e 73 20 |oom%...d|Buttons |
|00002350| 22 4f 4b 22 2c 4b 4b 65 | 79 45 6e 74 65 72 25 2c |"OK",KKe|yEnter%,|
|00002360| 22 43 61 6e 63 65 6c 22 | 2c 4b 4b 65 79 45 73 63 |"Cancel"|,KKeyEsc|
|00002370| 25 0d 0a 09 49 46 20 44 | 49 41 4c 4f 47 0d 0a 09 |%...IF D|IALOG...|
|00002380| 09 49 46 20 7a 26 3d 30 | 0d 0a 09 09 09 7a 26 3d |.IF z&=0|.....z&=|
|00002390| 31 0d 0a 09 09 45 4e 44 | 49 46 0d 0a 09 09 5a 6f |1....END|IF....Zo|
|000023a0| 6f 6d 3d 7a 26 0d 0a 09 | 45 4e 44 49 46 0d 0a 45 |om=z&...|ENDIF..E|
|000023b0| 4e 44 50 0d 0a 0d 0a 2f | 2f 20 50 72 6f 6d 70 74 |NDP..../|/ Prompt|
|000023c0| 20 74 68 65 20 75 73 65 | 72 20 74 6f 20 63 68 61 | the use|r to cha|
|000023d0| 6e 67 65 20 74 68 65 20 | 6f 72 69 67 69 6e 0d 0a |nge the |origin..|
|000023e0| 50 52 4f 43 20 47 65 74 | 43 65 6e 74 65 72 3a 0d |PROC Get|Center:.|
|000023f0| 0a 09 45 58 54 45 52 4e | 41 4c 20 58 43 65 6e 74 |..EXTERN|AL XCent|
|00002400| 25 2c 20 59 43 65 6e 74 | 25 0d 0a 09 4c 4f 43 41 |%, YCent|%...LOCA|
|00002410| 4c 20 65 76 26 28 31 36 | 29 2c 20 64 6f 6e 65 25 |L ev&(16|), done%|
|00002420| 0d 0a 09 42 55 53 59 20 | 22 54 61 70 20 6e 65 77 |...BUSY |"Tap new|
|00002430| 20 6f 72 69 67 69 6e 22 | 0d 0a 09 64 6f 6e 65 25 | origin"|...done%|
|00002440| 3d 4b 46 61 6c 73 65 25 | 0d 0a 09 44 4f 0d 0a 09 |=KFalse%|...DO...|
|00002450| 09 47 45 54 45 56 45 4e | 54 33 32 20 65 76 26 28 |.GETEVEN|T32 ev&(|
|00002460| 29 0d 0a 09 09 49 46 20 | 65 76 26 28 4b 45 76 41 |)....IF |ev&(KEvA|
|00002470| 54 79 70 65 25 29 3d 4b | 45 76 50 74 72 26 0d 0a |Type%)=K|EvPtr&..|
|00002480| 09 09 09 58 43 65 6e 74 | 25 3d 65 76 26 28 4b 45 |...XCent|%=ev&(KE|
|00002490| 76 41 50 74 72 50 6f 73 | 69 74 69 6f 6e 58 25 29 |vAPtrPos|itionX%)|
|000024a0| 0d 0a 09 09 09 59 43 65 | 6e 74 25 3d 65 76 26 28 |.....YCe|nt%=ev&(|
|000024b0| 4b 45 76 41 50 74 72 50 | 6f 73 69 74 69 6f 6e 59 |KEvAPtrP|ositionY|
|000024c0| 25 29 0d 0a 09 09 09 44 | 6f 6e 65 25 3d 4b 54 72 |%).....D|one%=KTr|
|000024d0| 75 65 25 0d 0a 09 09 45 | 4c 53 45 49 46 20 65 76 |ue%....E|LSEIF ev|
|000024e0| 26 28 4b 45 76 41 54 79 | 70 65 25 29 3d 4b 45 76 |&(KEvATy|pe%)=KEv|
|000024f0| 4b 65 79 44 6f 77 6e 26 | 0d 0a 09 09 09 44 6f 6e |KeyDown&|.....Don|
|00002500| 65 25 20 3d 20 65 76 26 | 28 33 29 3d 34 20 20 2f |e% = ev&|(3)=4  /|
|00002510| 2f 20 53 63 61 6e 63 6f | 64 65 20 66 6f 72 20 45 |/ Scanco|de for E|
|00002520| 53 43 0d 0a 09 09 45 4e | 44 49 46 0d 0a 09 55 4e |SC....EN|DIF...UN|
|00002530| 54 49 4c 20 44 6f 6e 65 | 25 0d 0a 09 42 55 53 59 |TIL Done|%...BUSY|
|00002540| 20 4f 46 46 0d 0a 45 4e | 44 50 0d 0a 0d 0a 50 52 | OFF..EN|DP....PR|
|00002550| 4f 43 20 4c 6f 61 64 4d | 6f 64 75 6c 65 3a 0d 0a |OC LoadM|odule:..|
|00002560| 09 45 58 54 45 52 4e 41 | 4c 20 4c 6f 61 64 65 64 |.EXTERNA|L Loaded|
|00002570| 4d 6f 64 75 6c 65 73 24 | 28 29 0d 0a 09 4c 4f 43 |Modules$|()...LOC|
|00002580| 41 4c 20 66 69 6c 65 24 | 28 32 35 35 29 2c 20 66 |AL file$|(255), f|
|00002590| 72 65 65 25 0d 0a 09 66 | 72 65 65 25 3d 31 0d 0a |ree%...f|ree%=1..|
|000025a0| 09 57 48 49 4c 45 20 28 | 66 72 65 65 25 3c 39 29 |.WHILE (|free%<9)|
|000025b0| 20 41 4e 44 20 28 4c 6f | 61 64 65 64 4d 6f 64 75 | AND (Lo|adedModu|
|000025c0| 6c 65 73 24 28 66 72 65 | 65 25 29 3c 3e 22 22 29 |les$(fre|e%)<>"")|
|000025d0| 0d 0a 09 09 66 72 65 65 | 25 2b 2b 0d 0a 09 45 4e |....free|%++...EN|
|000025e0| 44 57 48 0d 0a 09 49 46 | 20 66 72 65 65 25 3d 39 |DWH...IF| free%=9|
|000025f0| 0d 0a 09 09 41 4c 45 52 | 54 28 22 43 61 6e 27 74 |....ALER|T("Can't|
|00002600| 20 6c 6f 61 64 20 61 6e | 79 20 6d 6f 72 65 20 6d | load an|y more m|
|00002610| 6f 64 75 6c 65 73 21 22 | 29 0d 0a 09 09 52 45 54 |odules!"|)....RET|
|00002620| 55 52 4e 0d 0a 09 45 4e | 44 49 46 0d 0a 09 64 49 |URN...EN|DIF...dI|
|00002630| 4e 49 54 20 22 4c 6f 61 | 64 20 61 20 6d 6f 64 75 |NIT "Loa|d a modu|
|00002640| 6c 65 22 0d 0a 09 64 46 | 49 4c 45 20 66 69 6c 65 |le"...dF|ILE file|
|00002650| 24 2c 20 22 46 69 6c 65 | 2c 46 6f 6c 64 65 72 2c |$, "File|,Folder,|
|00002660| 44 69 73 6b 22 2c 20 30 | 2c 20 30 2c 20 4b 55 69 |Disk", 0|, 0, KUi|
|00002670| 64 4f 50 4f 26 2c 20 30 | 0d 0a 09 64 42 55 54 54 |dOPO&, 0|...dBUTT|
|00002680| 4f 4e 53 20 22 43 61 6e | 63 65 6c 22 2c 20 2d 4b |ONS "Can|cel", -K|
|00002690| 44 42 75 74 74 6f 6e 45 | 73 63 25 2c 20 22 4f 4b |DButtonE|sc%, "OK|
|000026a0| 22 2c 20 4b 44 42 75 74 | 74 6f 6e 45 6e 74 65 72 |", KDBut|tonEnter|
|000026b0| 25 0d 0a 09 49 46 20 44 | 49 41 4c 4f 47 3c 3e 30 |%...IF D|IALOG<>0|
|000026c0| 0d 0a 09 20 20 4c 4f 41 | 44 4d 28 66 69 6c 65 24 |...  LOA|DM(file$|
|000026d0| 29 0d 0a 09 20 20 67 49 | 50 52 49 4e 54 20 22 4c |)...  gI|PRINT "L|
|000026e0| 6f 61 64 65 64 20 22 2b | 66 69 6c 65 24 0d 0a 09 |oaded "+|file$...|
|000026f0| 20 20 4c 6f 61 64 65 64 | 4d 6f 64 75 6c 65 73 24 |  Loaded|Modules$|
|00002700| 28 66 72 65 65 25 29 3d | 66 69 6c 65 24 0d 0a 09 |(free%)=|file$...|
|00002710| 45 4e 44 49 46 0d 0a 45 | 4e 44 50 0d 0a 0d 0a 50 |ENDIF..E|NDP....P|
|00002720| 52 4f 43 20 55 6e 6c 6f | 61 64 4d 6f 64 75 6c 65 |ROC Unlo|adModule|
|00002730| 3a 0d 0a 09 45 58 54 45 | 52 4e 41 4c 20 4c 6f 61 |:...EXTE|RNAL Loa|
|00002740| 64 65 64 4d 6f 64 75 6c | 65 73 24 28 29 0d 0a 09 |dedModul|es$()...|
|00002750| 4c 4f 43 41 4c 20 72 65 | 6c 65 61 73 65 25 0d 0a |LOCAL re|lease%..|
|00002760| 09 72 65 6c 65 61 73 65 | 25 20 3d 20 6d 50 4f 50 |.release|% = mPOP|
|00002770| 55 50 28 30 2c 30 2c 30 | 2c 4c 6f 61 64 65 64 4d |UP(0,0,0|,LoadedM|
|00002780| 6f 64 75 6c 65 73 24 28 | 31 29 2c 31 2c 5c 0d 0a |odules$(|1),1,\..|
|00002790| 09 20 20 20 20 20 20 20 | 20 20 20 20 4c 6f 61 64 |.       |    Load|
|000027a0| 65 64 4d 6f 64 75 6c 65 | 73 24 28 32 29 2c 32 2c |edModule|s$(2),2,|
|000027b0| 5c 0d 0a 09 20 20 20 20 | 20 20 20 20 20 20 20 4c |\...    |       L|
|000027c0| 6f 61 64 65 64 4d 6f 64 | 75 6c 65 73 24 28 33 29 |oadedMod|ules$(3)|
|000027d0| 2c 33 2c 5c 0d 0a 09 20 | 20 20 20 20 20 20 20 20 |,3,\... |        |
|000027e0| 20 20 4c 6f 61 64 65 64 | 4d 6f 64 75 6c 65 73 24 |  Loaded|Modules$|
|000027f0| 28 34 29 2c 34 2c 5c 0d | 0a 09 20 20 20 20 20 20 |(4),4,\.|..      |
|00002800| 20 20 20 20 20 4c 6f 61 | 64 65 64 4d 6f 64 75 6c |     Loa|dedModul|
|00002810| 65 73 24 28 35 29 2c 35 | 2c 5c 0d 0a 09 20 20 20 |es$(5),5|,\...   |
|00002820| 20 20 20 20 20 20 20 20 | 4c 6f 61 64 65 64 4d 6f |        |LoadedMo|
|00002830| 64 75 6c 65 73 24 28 36 | 29 2c 36 2c 5c 0d 0a 09 |dules$(6|),6,\...|
|00002840| 20 20 20 20 20 20 20 20 | 20 20 20 4c 6f 61 64 65 |        |   Loade|
|00002850| 64 4d 6f 64 75 6c 65 73 | 24 28 37 29 2c 37 2c 5c |dModules|$(7),7,\|
|00002860| 0d 0a 09 20 20 20 20 20 | 20 20 20 20 20 20 4c 6f |...     |      Lo|
|00002870| 61 64 65 64 4d 6f 64 75 | 6c 65 73 24 28 38 29 2c |adedModu|les$(8),|
|00002880| 38 29 0d 0a 09 49 46 20 | 28 72 65 6c 65 61 73 65 |8)...IF |(release|
|00002890| 25 3c 3e 30 29 20 41 4e | 44 20 28 4c 6f 61 64 65 |%<>0) AN|D (Loade|
|000028a0| 64 4d 6f 64 75 6c 65 73 | 24 28 72 65 6c 65 61 73 |dModules|$(releas|
|000028b0| 65 25 29 3c 3e 22 22 29 | 0d 0a 09 09 55 4e 4c 4f |e%)<>"")|....UNLO|
|000028c0| 41 44 4d 28 4c 6f 61 64 | 65 64 4d 6f 64 75 6c 65 |ADM(Load|edModule|
|000028d0| 73 24 28 72 65 6c 65 61 | 73 65 25 29 29 0d 0a 09 |s$(relea|se%))...|
|000028e0| 09 67 49 50 52 49 4e 54 | 20 22 55 6e 6c 6f 61 64 |.gIPRINT| "Unload|
|000028f0| 65 64 20 22 2b 4c 6f 61 | 64 65 64 4d 6f 64 75 6c |ed "+Loa|dedModul|
|00002900| 65 73 24 28 72 65 6c 65 | 61 73 65 25 29 0d 0a 09 |es$(rele|ase%)...|
|00002910| 09 4c 6f 61 64 65 64 4d | 6f 64 75 6c 65 73 24 28 |.LoadedM|odules$(|
|00002920| 72 65 6c 65 61 73 65 25 | 29 3d 22 22 0d 0a 09 45 |release%|)=""...E|
|00002930| 4e 44 49 46 0d 0a 45 4e | 44 50 0d 0a 0d 0a 2f 2f |NDIF..EN|DP....//|
|00002940| 20 54 6f 6f 6c 62 61 72 | 20 73 68 6f 72 74 63 75 | Toolbar| shortcu|
|00002950| 74 20 70 72 6f 63 65 64 | 75 72 65 73 0d 0a 0d 0a |t proced|ures....|
|00002960| 2f 2f 20 54 6f 6f 6c 62 | 61 72 20 73 68 6f 72 74 |// Toolb|ar short|
|00002970| 63 75 74 20 22 70 22 3a | 20 50 6c 6f 74 0d 0a 50 |cut "p":| Plot..P|
|00002980| 52 4f 43 20 43 6d 64 50 | 25 3a 0d 0a 09 45 58 54 |ROC CmdP|%:...EXT|
|00002990| 45 52 4e 41 4c 20 4f 76 | 65 72 50 72 69 6e 74 25 |ERNAL Ov|erPrint%|
|000029a0| 2c 20 44 72 61 77 41 78 | 65 73 25 2c 20 66 24 2c |, DrawAx|es%, f$,|
|000029b0| 20 6f 76 65 72 70 72 69 | 6e 74 63 6f 75 6e 74 25 | overpri|ntcount%|
|000029c0| 0d 0a 09 49 46 20 4e 4f | 54 20 4f 76 65 72 50 72 |...IF NO|T OverPr|
|000029d0| 69 6e 74 25 0d 0a 09 09 | 67 43 4c 53 0d 0a 09 09 |int%....|gCLS....|
|000029e0| 6f 76 65 72 50 72 69 6e | 74 43 6f 75 6e 74 25 3d |overPrin|tCount%=|
|000029f0| 30 0d 0a 09 45 4e 44 49 | 46 0d 0a 09 49 46 20 44 |0...ENDI|F...IF D|
|00002a00| 72 61 77 41 78 65 73 25 | 0d 0a 09 09 41 78 69 73 |rawAxes%|....Axis|
|00002a10| 3a 0d 0a 09 45 4e 44 49 | 46 0d 0a 09 43 61 70 74 |:...ENDI|F...Capt|
|00002a20| 69 6f 6e 3a 0d 0a 09 50 | 6c 6f 74 46 75 6e 63 74 |ion:...P|lotFunct|
|00002a30| 69 6f 6e 3a 28 66 24 29 | 0d 0a 09 52 45 54 55 52 |ion:(f$)|...RETUR|
|00002a40| 4e 20 30 0d 0a 45 4e 44 | 50 0d 0a 0d 0a 2f 2f 20 |N 0..END|P....// |
|00002a50| 54 6f 6f 6c 62 61 72 20 | 73 68 6f 72 74 63 75 74 |Toolbar |shortcut|
|00002a60| 20 22 66 22 3a 20 53 65 | 74 20 66 75 6e 63 74 69 | "f": Se|t functi|
|00002a70| 6f 6e 0d 0a 50 52 4f 43 | 20 43 6d 64 46 25 3a 0d |on..PROC| CmdF%:.|
|00002a80| 0a 09 45 58 54 45 52 4e | 41 4c 20 66 24 0d 0a 09 |..EXTERN|AL f$...|
|00002a90| 66 24 3d 47 65 74 46 75 | 6e 63 74 69 6f 6e 24 3a |f$=GetFu|nction$:|
|00002aa0| 28 66 24 29 0d 0a 09 52 | 45 54 55 52 4e 20 30 0d |(f$)...R|ETURN 0.|
|00002ab0| 0a 45 4e 44 50 0d 0a 0d | 0a 2f 2f 20 54 6f 6f 6c |.ENDP...|.// Tool|
|00002ac0| 62 61 72 20 73 68 6f 72 | 74 63 75 74 20 22 72 22 |bar shor|tcut "r"|
|00002ad0| 3a 20 53 65 74 20 72 61 | 6e 67 65 0d 0a 50 52 4f |: Set ra|nge..PRO|
|00002ae0| 43 20 43 6d 64 52 25 3a | 0d 0a 09 47 65 74 52 61 |C CmdR%:|...GetRa|
|00002af0| 6e 67 65 3a 0d 0a 09 52 | 45 54 55 52 4e 20 30 0d |nge:...R|ETURN 0.|
|00002b00| 0a 45 4e 44 50 0d 0a 0d | 0a 2f 2f 20 54 6f 6f 6c |.ENDP...|.// Tool|
|00002b10| 62 61 72 20 73 68 6f 72 | 74 63 75 74 20 22 65 22 |bar shor|tcut "e"|
|00002b20| 3a 20 45 78 69 74 0d 0a | 50 52 4f 43 20 43 6d 64 |: Exit..|PROC Cmd|
|00002b30| 45 25 3a 0d 0a 09 45 58 | 54 45 52 4e 41 4c 20 51 |E%:...EX|TERNAL Q|
|00002b40| 75 69 74 46 6c 61 67 25 | 0d 0a 09 51 75 69 74 46 |uitFlag%|...QuitF|
|00002b50| 6c 61 67 25 3d 4b 54 72 | 75 65 25 0d 0a 09 52 65 |lag%=KTr|ue%...Re|
|00002b60| 74 75 72 6e 20 30 0d 0a | 45 4e 44 50 0d 0a 0d 0a |turn 0..|ENDP....|
|00002b70| 23 69 6e 63 6c 75 64 65 | 20 22 44 72 61 77 50 6c |#include| "DrawPl|
|00002b80| 6f 74 2e 6f 70 70 22 37 | 00 00 10 73 00 00 10 68 |ot.opp"7|...s...h|
|00002b90| 01 00 10 e7 bc 39 66 1d | 16 00 00 1f 43 3a 5c 50 |.....9f.|....C:\P|
|00002ba0| 72 6f 67 72 61 6d 73 5c | 50 6c 6f 74 74 65 72 5c |rograms\|Plotter\|
|00002bb0| 50 6c 6f 74 74 65 72 2e | 70 72 65 1a 00 1c 00 2d |Plotter.|pre....-|
|00002bc0| 00 08 00 00 00 00 0a 00 | 08 54 42 41 52 4c 49 4e |........|.TBARLIN|
|00002bd0| 4b 01 00 00 00 00 00 2b | 19 5a 3a 5c 53 79 73 74 |K......+|.Z:\Syst|
|00002be0| 65 6d 5c 4f 70 6c 5c 54 | 6f 6f 6c 62 61 72 2e 6f |em\Opl\T|oolbar.o|
|00002bf0| 70 6f ae 2b 08 4d 61 69 | 6e 4c 6f 6f 70 4f 03 53 |po.+.Mai|nLoopO.S|
|00002c00| 12 00 82 76 a6 01 04 0c | e5 05 1c 00 00 c4 00 05 |...v....|........|
|00002c10| 57 49 4e 48 25 00 85 01 | 05 57 49 4e 57 25 00 87 |WINH%...|.WINW%..|
|00002c20| 01 04 5a 4f 4f 4d 02 89 | 01 05 4d 45 53 48 26 01 |..ZOOM..|..MESH&.|
|00002c30| 91 01 0a 4f 46 46 53 43 | 52 45 45 4e 25 00 95 01 |...OFFSC|REEN%...|
|00002c40| 0a 4f 56 45 52 50 52 49 | 4e 54 25 00 97 01 06 58 |.OVERPRI|NT%....X|
|00002c50| 43 45 4e 54 25 00 99 01 | 06 59 43 45 4e 54 25 00 |CENT%...|.YCENT%.|
|00002c60| 9b 01 09 44 52 41 57 41 | 58 45 53 25 00 9d 01 09 |...DRAWA|XES%....|
|00002c70| 51 55 49 54 46 4c 41 47 | 25 00 9f 01 09 55 53 45 |QUITFLAG|%....USE|
|00002c80| 4c 49 4e 45 53 25 00 a1 | 01 0f 4f 56 45 52 50 52 |LINES%..|..OVERPR|
|00002c90| 49 4e 54 43 4f 55 4e 54 | 25 00 a3 01 0e 4c 4f 41 |INTCOUNT|%....LOA|
|00002ca0| 44 45 44 4d 4f 44 55 4c | 45 53 24 83 a8 01 04 52 |DEDMODUL|ES$....R|
|00002cb0| 4d 49 4e 02 a8 09 04 52 | 4d 41 58 02 b0 09 02 46 |MIN....R|MAX....F|
|00002cc0| 24 03 b9 09 0b 44 52 41 | 57 57 49 4e 44 4f 57 25 |$....DRA|WWINDOW%|
|00002cd0| 00 b9 0a ab 00 08 54 42 | 41 52 49 4e 49 54 03 08 |......TB|ARINIT..|
|00002ce0| 54 42 41 52 42 55 54 54 | 07 08 54 42 41 52 53 48 |TBARBUTT|..TBARSH|
|00002cf0| 4f 57 00 0a 54 42 41 52 | 4f 46 46 45 52 25 04 09 |OW..TBAR|OFFER%..|
|00002d00| 53 45 54 55 50 4d 45 4e | 55 00 0c 47 45 54 46 55 |SETUPMEN|U..GETFU|
|00002d10| 4e 43 54 49 4f 4e 24 01 | 08 47 45 54 52 41 4e 47 |NCTION$.|.GETRANG|
|00002d20| 45 00 0a 4c 4f 41 44 4d | 4f 44 55 4c 45 00 0c 55 |E..LOADM|ODULE..U|
|00002d30| 4e 4c 4f 41 44 4d 4f 44 | 55 4c 45 00 04 41 58 49 |NLOADMOD|ULE..AXI|
|00002d40| 53 00 07 43 41 50 54 49 | 4f 4e 00 0c 50 4c 4f 54 |S..CAPTI|ON..PLOT|
|00002d50| 46 55 4e 43 54 49 4f 4e | 01 07 47 45 54 4d 45 53 |FUNCTION|..GETMES|
|00002d60| 48 00 07 47 45 54 5a 4f | 4f 4d 00 09 47 45 54 43 |H..GETZO|OM..GETC|
|00002d70| 45 4e 54 45 52 00 08 54 | 42 41 52 48 49 44 45 00 |ENTER..T|BARHIDE.|
|00002d80| 08 54 42 57 49 44 54 48 | 25 00 0a 54 42 4d 45 4e |.TBWIDTH|%..TBMEN|
|00002d90| 55 53 59 4d 25 00 00 a7 | 01 ff b8 09 ff 03 0b ff |USYM%...|........|
|00002da0| 00 00 a5 01 08 00 bf 0a | 10 00 00 00 04 bb 0a 4f |........|.......O|
|00002db0| 01 84 00 bb 0a 17 a8 01 | 2b 00 87 04 bb 0a 00 bb |........|+.......|
|00002dc0| 0a 4f 01 48 84 00 bb 0a | 4f 08 38 5b e7 ff 04 b9 |.O.H....|O.8[....|
|00002dd0| 0a 57 2b 84 04 01 0b 4f | 01 4f 01 57 27 02 84 00 |.W+....O|.O.W'...|
|00002de0| b9 0a c7 04 a3 01 4f 00 | 84 2b 07 50 6c 6f 74 74 |......O.|.+.Plott|
|00002df0| 65 72 4f 03 57 2e 4f 00 | 57 2f 4f 00 53 d6 00 82 |erO.W.O.|W/O.S...|
|00002e00| 2b 01 70 4f 03 4f 01 4f | 00 2b 04 50 6c 6f 74 4f |+.pO.O.O|.+.PlotO|
|00002e10| 03 4f 00 4f 00 00 01 0b | 7b 4f 01 4f 00 7b 4f 01 |.O.O....|{O.O.{O.|
|00002e20| 4f 00 4f 00 53 e0 00 82 | 2b 01 66 4f 03 4f 02 4f |O.O.S...|+.fO.O.O|
|00002e30| 00 2b 04 46 75 6e 63 4f | 03 4f 00 4f 00 00 01 0b |.+.FuncO|.O.O....|
|00002e40| 7b 4f 01 4f 00 7b 4f 01 | 4f 00 4f 00 53 e0 00 82 |{O.O.{O.|O.O.S...|
|00002e50| 2b 01 72 4f 03 4f 03 4f | 00 2b 05 52 61 6e 67 65 |+.rO.O.O|.+.Range|
|00002e60| 4f 03 4f 00 4f 00 00 01 | 0b 7b 4f 01 4f 00 7b 4f |O.O.O...|.{O.O.{O|
|00002e70| 01 4f 00 4f 00 53 e0 00 | 82 2b 01 65 4f 03 4f 04 |.O.O.S..|.+.eO.O.|
|00002e80| 4f 00 2b 04 45 78 69 74 | 4f 03 4f 00 4f 00 00 01 |O.+.Exit|O.O.O...|
|00002e90| 0b 7b 4f 01 4f 00 7b 4f | 01 4f 00 4f 00 53 e0 00 |.{O.O.{O|.O.O.S..|
|00002ea0| 82 53 ea 00 82 e3 01 04 | 85 01 57 2f 4f 0a 4c 84 |.S......|..W/O.L.|
|00002eb0| 04 87 01 57 2e 4f 0a 4c | 08 81 01 4c 84 04 99 01 |...W.O.L|...L....|
|00002ec0| 00 87 01 4f 02 54 84 04 | 9b 01 00 85 01 4f 02 54 |...O.T..|.....O.T|
|00002ed0| 84 04 95 01 4f 00 84 06 | 89 01 2a 00 00 00 00 00 |....O...|..*.....|
|00002ee0| 00 f0 3f 86 05 91 01 00 | 87 01 4f 0a 54 7b 85 07 |..?.....|..O.T{..|
|00002ef0| b9 09 2b 06 53 49 4e 28 | 78 29 87 06 a8 09 2a 00 |..+.SIN(|x)....*.|
|00002f00| 00 00 00 00 00 18 40 6a | 86 06 b0 09 2a 00 00 00 |......@j|....*...|
|00002f10| 00 00 00 18 40 86 04 9d | 01 4f ff 84 04 97 01 4f |....@...|.O.....O|
|00002f20| 00 84 04 a1 01 4f ff 84 | 04 9f 01 4f 00 84 4f 01 |.....O..|...O..O.|
|00002f30| 15 c1 0a 57 00 ff 22 4f | 01 11 c1 0a 63 08 04 41 |...W.."O|....c..A|
|00002f40| 5b 2b 00 4f 03 11 c1 0a | 4f 01 4f 04 11 c1 0a 4f |[+.O....|O.O....O|
|00002f50| 01 4f 06 11 c1 0a 4f 01 | 4f 07 11 c1 0a 4f 01 53 |.O....O.|O....O.S|
|00002f60| f4 00 5b 06 00 bf 25 04 | bf 22 04 4f 01 11 c1 0a |..[...%.|.".O....|
|00002f70| 63 00 04 5d 4f 00 7b 41 | 4f 01 11 c1 0a 28 10 27 |c..]O.{A|O....(.'|
|00002f80| 7b 41 60 5b 07 04 04 bb | 0a 4f 01 11 c1 0a 78 84 |{A`[....|.O....x.|
|00002f90| 04 bd 0a 4f 04 11 c1 0a | 78 84 00 bb 0a 28 36 10 |...O....|x....(6.|
|00002fa0| 40 00 bb 0a 28 10 27 40 | 60 5b 16 00 53 00 01 82 |@...(.'@|`[..S...|
|00002fb0| 04 bb 0a 57 36 84 04 bd | 0a 4f 00 84 bf 2f 00 00 |...W6...|.O.../..|
|00002fc0| bd 0a 4f 04 5c 5b 23 00 | 04 bb 0a 00 bb 0a 4f 60 |..O.\[#.|......O`|
|00002fd0| 48 84 00 bd 0a 4f 02 5c | 5b 0d 00 04 bb 0a 00 bb |H....O.\|[.......|
|00002fe0| 0a 4f 20 4c 84 bf 06 00 | bf a2 03 00 bb 0a 4f 63 |.O L....|......Oc|
|00002ff0| 40 5b 19 00 57 2b 7b ff | 18 00 01 00 80 2b 06 43 |@[..W+{.|.....+.C|
|00003000| 6f 70 69 65 64 fc 00 bf | 83 03 00 bb 0a 4f 43 40 |opied...|.....OC@|
|00003010| 5b 0d 00 d1 04 a3 01 4f | 00 84 bf 70 03 00 bb 0a |[......O|...p....|
|00003020| 4f 66 40 5b 12 00 07 b9 | 09 03 b9 09 4f 03 53 0b |Of@[....|....O.S.|
|00003030| 01 87 bf 58 03 00 bb 0a | 4f 72 40 5b 0a 00 53 19 |...X....|Or@[..S.|
|00003040| 01 82 bf 48 03 00 bb 0a | 4f 4d 40 5b 0a 00 53 23 |...H....|OM@[..S#|
|00003050| 01 82 bf 38 03 00 bb 0a | 4f 55 40 5b 0a 00 53 2f |...8....|OU@[..S/|
|00003060| 01 82 bf 28 03 00 bb 0a | 4f 70 40 5b 38 00 00 97 |...(....|Op@[8...|
|00003070| 01 64 5b 0d 00 d1 04 a3 | 01 4f 00 84 bf 0d 00 04 |.d[.....|.O......|
|00003080| a3 01 00 a3 01 4f 01 48 | 84 00 9d 01 5b 07 00 53 |.....O.H|....[..S|
|00003090| 3d 01 82 53 43 01 82 03 | b9 09 4f 03 53 4c 01 82 |=..SC...|..O.SL..|
|000030a0| bf ea 02 00 bb 0a 4f 6d | 40 5b 0a 00 53 5a 01 82 |......Om|@[..SZ..|
|000030b0| bf da 02 00 bb 0a 4f 7a | 40 5b 0a 00 53 63 01 82 |......Oz|@[..Sc..|
|000030c0| bf ca 02 00 bb 0a 4f 6f | 40 5b 0a 00 53 6c 01 82 |......Oo|@[..Sl..|
|000030d0| bf ba 02 00 bb 0a 4f 4f | 40 5b 2a 00 04 99 01 00 |......OO|@[*.....|
|000030e0| 87 01 4f 02 54 84 04 9b | 01 00 85 01 4f 02 54 84 |..O.T...|....O.T.|
|000030f0| 2b 0c 4f 72 69 67 69 6e | 20 72 65 73 65 74 fc 00 |+.Origin| reset..|
|00003100| bf 8a 02 00 bb 0a 4f 47 | 40 5b 3b 00 04 95 01 00 |......OG|@[;.....|
|00003110| 95 01 64 84 00 95 01 5b | 17 00 2b 0d 4f 66 66 73 |..d....[|..+.Offs|
|00003120| 63 72 65 65 6e 20 73 65 | 74 fc 00 bf 16 00 2b 0f |creen se|t.....+.|
|00003130| 4f 66 66 73 63 72 65 65 | 6e 20 75 6e 73 65 74 fc |Offscree|n unset.|
|00003140| 00 bf 49 02 00 bb 0a 4f | 76 40 5b 0e 00 04 97 01 |..I....O|v@[.....|
|00003150| 00 97 01 64 84 bf 35 02 | 00 bb 0a 4f 78 40 5b 2e |...d..5.|...Ox@[.|
|00003160| 00 04 9d 01 00 9d 01 64 | 84 00 9d 01 5b 11 00 2b |.......d|....[..+|
|00003170| 07 41 78 65 73 20 4f 6e | fc 00 bf 0f 00 2b 08 41 |.Axes On|.....+.A|
|00003180| 78 65 73 20 6f 66 66 fc | 00 bf 01 02 00 bb 0a 4f |xes off.|.......O|
|00003190| 71 40 5b 30 00 04 a1 01 | 00 a1 01 64 84 00 a1 01 |q@[0....|...d....|
|000031a0| 5b 12 00 2b 08 4c 69 6e | 65 73 20 6f 6e fc 00 bf |[..+.Lin|es on...|
|000031b0| 10 00 2b 09 4c 69 6e 65 | 73 20 6f 66 66 fc 00 bf |..+.Line|s off...|
|000031c0| cb 01 00 bb 0a 4f 74 40 | 5b 45 00 08 83 01 28 00 |.....Ot@|[E....(.|
|000031d0| 08 44 5b 1d 00 53 77 01 | 82 04 87 01 57 2e 4f 0a |.D[..Sw.|....W.O.|
|000031e0| 4c 84 04 99 01 00 87 01 | 4f 02 54 84 bf 1e 00 53 |L.......|O.T....S|
|000031f0| ea 00 82 04 87 01 57 2e | 4f 0a 4c 08 81 01 4c 84 |......W.|O.L...L.|
|00003200| 04 99 01 00 87 01 4f 02 | 54 84 bf 80 01 00 bb 0a |......O.|T.......|
|00003210| 4f 73 40 5b 7c 00 2b 0f | 45 78 70 6f 72 74 20 4d |Os@[|.+.|Export M|
|00003220| 42 4d 20 66 69 6c 65 ec | 01 07 04 0b 2b 10 46 69 |BM file.|....+.Fi|
|00003230| 6c 65 2c 46 6f 6c 64 65 | 72 2c 44 69 73 6b 4f 01 |le,Folde|r,DiskO.|
|00003240| 4f 10 48 5f 00 5f 00 5f | 00 ed 09 2b 06 43 61 6e |O.H_._._|...+.Can|
|00003250| 63 65 6c 4f 1b 68 2b 02 | 4f 4b 4f 0d ed 0a 02 57 |celO.h+.|OKO....W|
|00003260| 37 4f 00 44 5b 18 00 2b | 09 53 61 76 69 6e 67 2e |7O.D[..+|.Saving.|
|00003270| 2e 2e fc 00 03 04 0b c5 | 00 bf 13 00 2b 0c 43 61 |........|....+.Ca|
|00003280| 6e 63 65 6c 6c 65 64 2e | 2e 2e fc 00 bf fe 00 00 |ncelled.|........|
|00003290| bb 0a 4f 65 40 5b 0c 00 | 04 9f 01 4f ff 84 bf ec |..Oe@[..|...O....|
|000032a0| 00 00 bb 0a 4f 61 40 5b | e3 00 2b 12 41 62 6f 75 |....Oa@[|..+.Abou|
|000032b0| 74 20 74 68 69 73 20 70 | 72 6f 67 72 61 6d ec 01 |t this p|rogram..|
|000032c0| 2b 08 50 6c 6f 74 74 65 | 72 20 2b 0b 76 65 72 73 |+.Plotte|r +.vers|
|000032d0| 69 6f 6e 20 31 2e 30 4f | 01 ed 00 01 2b 00 2b 18 |ion 1.0O|....+.+.|
|000032e0| a9 20 31 39 39 39 2d 32 | 30 30 30 20 47 6c 65 6e |. 1999-2|000 Glen|
|000032f0| 6e 20 53 74 72 6f 6e 67 | 4f 02 ed 00 01 2b 00 2b |n Strong|O....+.+|
|00003300| 1b 46 72 65 65 20 73 6f | 66 74 77 61 72 65 20 75 |.Free so|ftware u|
|00003310| 6e 64 65 72 20 74 68 65 | 20 47 50 4c 4f 02 ed 00 |nder the| GPLO...|
|00003320| 01 2b 00 2b 00 28 00 08 | ed 00 01 2b 00 2b 16 47 |.+.+.(..|...+.+.G|
|00003330| 6c 65 6e 6e 2e 53 74 72 | 6f 6e 67 40 63 73 2e 74 |lenn.Str|ong@cs.t|
|00003340| 63 64 2e 69 65 4f 02 ed | 00 01 2b 00 2b 27 68 74 |cd.ieO..|..+.+'ht|
|00003350| 74 70 3a 2f 2f 77 77 77 | 2e 63 73 2e 74 63 64 2e |tp://www|.cs.tcd.|
|00003360| 69 65 2f 47 6c 65 6e 6e | 2e 53 74 72 6f 6e 67 2f |ie/Glenn|.Strong/|
|00003370| 65 70 6f 63 2f 4f 02 ed | 00 01 2b 02 4f 4b 4f 0d |epoc/O..|..+.OKO.|
|00003380| 28 00 01 60 ed 0a 01 57 | 37 80 00 9f 01 5b a1 fb |(..`...W|7....[..|
|00003390| 76 14 00 1b 01 3c 00 16 | 00 01 01 00 00 00 00 00 |v....<..|........|
|000033a0| 1a 00 ff 00 00 00 00 05 | 16 00 09 12 00 57 43 85 |........|.....WC.|
|000033b0| 04 14 00 28 ff 00 7c 01 | 16 00 7d 57 95 02 79 84 |...(..|.|..}W..y.|
|000033c0| 09 12 00 4f 03 7b 49 00 | 14 00 9c 07 1b 00 09 12 |...O.{I.|........|
|000033d0| 00 4f 03 7b 49 57 cf 87 | 09 12 00 01 16 00 99 03 |.O.{IW..|........|
|000033e0| 1b 00 c0 4a 00 24 00 9f | 01 0c 00 00 00 00 00 00 |...J.$..|........|
|000033f0| 0a 4f 46 46 53 43 52 45 | 45 4e 25 00 09 44 52 41 |.OFFSCRE|EN%..DRA|
|00003400| 57 41 58 45 53 25 00 0a | 4f 56 45 52 50 52 49 4e |WAXES%..|OVERPRIN|
|00003410| 54 25 00 09 55 53 45 4c | 49 4e 45 53 25 00 0a 54 |T%..USEL|INES%..T|
|00003420| 42 4d 45 4e 55 53 59 4d | 25 00 00 00 00 00 00 04 |BMENUSYM|%.......|
|00003430| 1c 00 28 00 08 84 08 12 | 00 5b 0e 00 04 1c 00 00 |..(.....|.[......|
|00003440| 1c 00 28 00 20 60 84 04 | 1e 00 28 00 08 84 08 14 |..(. `..|..(.....|
|00003450| 00 5b 0e 00 04 1e 00 00 | 1e 00 28 00 20 60 84 04 |.[......|..(. `..|
|00003460| 20 00 28 00 08 84 08 16 | 00 5b 0e 00 04 20 00 00 | .(.....|.[... ..|
|00003470| 20 00 28 00 20 60 84 04 | 22 00 28 00 08 84 08 18 | .(. `..|".(.....|
|00003480| 00 5b 0e 00 04 22 00 00 | 22 00 28 00 20 60 84 ea |.[..."..|".(. `..|
|00003490| 2b 04 46 69 6c 65 2b 0e | 45 78 70 6f 72 74 20 70 |+.File+.|Export p|
|000034a0| 6c 6f 74 2e 2e 2e 4f 73 | 2b 05 43 6c 6f 73 65 4f |lot...Os|+.CloseO|
|000034b0| 65 eb 02 2b 04 45 64 69 | 74 2b 04 43 6f 70 79 4f |e..+.Edi|t+.CopyO|
|000034c0| 63 2b 05 45 72 61 73 65 | 4f 43 eb 02 2b 08 46 75 |c+.Erase|OC..+.Fu|
|000034d0| 6e 63 74 69 6f 6e 2b 06 | 53 65 74 2e 2e 2e 4f 66 |nction+.|Set...Of|
|000034e0| 2b 08 52 61 6e 67 65 2e | 2e 2e 4f 72 2b 0e 4c 6f |+.Range.|..Or+.Lo|
|000034f0| 61 64 20 6d 6f 64 75 6c | 65 2e 2e 2e 4f 4d 2b 10 |ad modul|e...OM+.|
|00003500| 55 6e 6c 6f 61 64 20 6d | 6f 64 75 6c 65 2e 2e 2e |Unload m|odule...|
|00003510| 4f 55 eb 04 2b 05 47 72 | 61 70 68 2b 04 50 6c 6f |OU..+.Gr|aph+.Plo|
|00003520| 74 4f 70 2b 07 4d 65 73 | 68 2e 2e 2e 4f 6d 2b 04 |tOp+.Mes|h...Om+.|
|00003530| 5a 6f 6f 6d 4f 7a 2b 0a | 53 65 74 20 6f 72 69 67 |ZoomOz+.|Set orig|
|00003540| 69 6e 4f 6f 2b 0c 52 65 | 73 65 74 20 6f 72 69 67 |inOo+.Re|set orig|
|00003550| 69 6e 4f 4f eb 05 2b 07 | 4f 70 74 69 6f 6e 73 2b |inOO..+.|Options+|
|00003560| 09 4f 66 66 73 63 72 65 | 65 6e 4f 47 00 1c 00 60 |.Offscre|enOG...`|
|00003570| 2b 09 44 72 61 77 20 41 | 78 65 73 4f 78 00 1e 00 |+.Draw A|xesOx...|
|00003580| 60 2b 09 4f 76 65 72 70 | 72 69 6e 74 4f 76 00 20 |`+.Overp|rintOv. |
|00003590| 00 60 2b 0c 53 68 6f 77 | 20 74 6f 6f 6c 62 61 72 |.`+.Show| toolbar|
|000035a0| 4f 74 08 1a 00 60 2b 09 | 55 73 65 20 6c 69 6e 65 |Ot...`+.|Use line|
|000035b0| 73 4f 71 00 22 00 60 eb | 05 2b 04 48 65 6c 70 2b |sOq.".`.|.+.Help+|
|000035c0| 08 41 62 6f 75 74 2e 2e | 2e 4f 61 eb 01 76 1e 00 |.About..|.Oa..v..|
|000035d0| 25 02 c2 00 0c 00 01 03 | 00 00 06 00 04 42 55 46 |%.......|.....BUF|
|000035e0| 24 01 00 1c 01 ff 00 00 | 1a 00 40 00 00 00 4f 01 |$.......|..@...O.|
|000035f0| 15 1c 00 57 00 4f 03 7b | 49 0b 18 00 9b 4f 01 15 |...W.O.{|I....O..|
|00003600| 1c 00 57 00 0b 18 00 57 | 14 7b 99 2b 08 46 75 6e |..W....W|.{.+.Fun|
|00003610| 63 74 69 6f 6e ec 01 4f | 01 15 1c 00 57 00 2b 05 |ction..O|....W.+.|
|00003620| 66 28 78 29 3d 4f 0f 4f | 03 28 ff 00 7b ff 35 2b |f(x)=O.O|.(..{.5+|
|00003630| 02 4f 4b 4f 6f 2b 06 43 | 61 6e 63 65 6c 4f 1b ed |.OKOo+.C|ancelO..|
|00003640| 0a 02 04 1d 02 57 37 84 | 00 1d 02 4f 6f 40 5b 5d |.....W7.|...Oo@[]|
|00003650| 00 07 1d 01 4f 01 15 1c | 00 57 00 4f 01 53 12 00 |....O...|.W.O.S..|
|00003660| 87 04 1f 02 4f 01 84 05 | 21 02 07 1d 01 57 1f 85 |....O...|!....W..|
|00003670| 00 1f 02 03 1d 01 57 14 | 34 5b 2b 00 01 21 02 00 |......W.|4[+..!..|
|00003680| 1f 02 7b 49 57 18 4f 20 | 30 5b 0e 00 01 21 02 00 |..{IW.O |0[...!..|
|00003690| 1f 02 7b 49 4f 20 9c 04 | 1f 02 00 1f 02 4f 01 48 |..{IO ..|.....O.H|
|000036a0| 84 bf cf ff 03 1d 01 c0 | bf 07 00 0b 18 00 c0 77 |........|.......w|
|000036b0| 1c 00 16 00 52 00 16 00 | 00 00 00 00 00 04 52 4d |....R...|......RM|
|000036c0| 49 4e 02 04 52 4d 41 58 | 02 00 00 00 00 00 2b 11 |IN..RMAX|......+.|
|000036d0| 53 65 6c 65 63 74 20 52 | 61 6e 67 65 20 6f 66 20 |Select R|ange of |
|000036e0| 78 ec 01 0e 12 00 2b 06 | 20 46 72 6f 6d 20 4f 64 |x.....+.| From Od|
|000036f0| 68 7c 4f 64 7c ed 03 0e | 14 00 2b 04 20 54 6f 20 |h|Od|...|..+. To |
|00003700| 4f 64 68 7c 4f 64 7c ed | 03 2b 02 4f 4b 4f 0d 2b |Odh|Od|.|.+.OKO.+|
|00003710| 06 43 61 6e 63 65 6c 4f | 1b ed 0a 02 57 37 80 76 |.CancelO|....W7.v|
|00003720| 1e 00 16 00 3e 00 0e 00 | 00 00 00 00 00 05 4d 45 |....>...|......ME|
|00003730| 53 48 26 01 05 57 49 4e | 57 25 00 00 00 00 00 00 |SH&..WIN|W%......|
|00003740| 2b 10 4d 65 73 68 20 67 | 72 61 6e 75 6c 61 72 69 |+.Mesh g|ranulari|
|00003750| 74 79 ec 01 0d 12 00 2b | 05 4d 65 73 68 3a 4f 01 |ty.....+|.Mesh:O.|
|00003760| 7b 08 14 00 7b ed 02 2b | 02 4f 4b 4f 0d 2b 06 43 |{...{..+|.OKO.+.C|
|00003770| 61 6e 63 65 6c 4f 1b ed | 0a 02 57 37 80 76 16 00 |ancelO..|..W7.v..|
|00003780| 18 00 5a 00 0e 00 00 00 | 00 00 00 04 5a 4f 4f 4d |..Z.....|....ZOOM|
|00003790| 02 00 00 00 00 00 05 14 | 00 0a 12 00 7a 85 2b 09 |........|....z.+.|
|000037a0| 5a 6f 6f 6d 6c 65 76 65 | 6c ec 01 05 14 00 2b 05 |Zoomleve|l.....+.|
|000037b0| 5a 6f 6f 6d 3a 4f 0a 68 | 7b 4f 0a 7b ed 02 2b 02 |Zoom:O.h|{O.{..+.|
|000037c0| 4f 4b 4f 0d 2b 06 43 61 | 6e 63 65 6c 4f 1b ed 0a |OKO.+.Ca|ncelO...|
|000037d0| 02 57 37 5b 1c 00 01 14 | 00 4f 00 7b 41 5b 0a 00 |.W7[....|.O.{A[..|
|000037e0| 05 14 00 4f 01 7b 85 0e | 12 00 01 14 00 7d 86 76 |...O.{..|.....}.v|
|000037f0| 24 00 5a 00 6c 00 0e 00 | 00 00 00 00 00 06 58 43 |$.Z.l...|......XC|
|00003800| 45 4e 54 25 00 06 59 43 | 45 4e 54 25 00 00 00 00 |ENT%..YC|ENT%....|
|00003810| 16 00 10 00 00 00 2b 0e | 54 61 70 20 6e 65 77 20 |......+.|Tap new |
|00003820| 6f 72 69 67 69 6e f0 01 | 04 58 00 4f 00 84 4f 01 |origin..|.X.O..O.|
|00003830| 15 18 00 57 00 ff 22 4f | 01 11 18 00 63 08 04 41 |...W.."O|....c..A|
|00003840| 5b 20 00 0c 12 00 4f 06 | 11 18 00 78 84 0c 14 00 |[ ....O.|...x....|
|00003850| 4f 07 11 18 00 78 84 04 | 58 00 4f ff 84 bf 1c 00 |O....x..|X.O.....|
|00003860| 4f 01 11 18 00 63 06 04 | 41 5b 10 00 04 58 00 4f |O....c..|A[...X.O|
|00003870| 03 11 18 00 4f 04 7b 41 | 84 00 58 00 5b b2 ff f0 |....O.{A|..X.[...|
|00003880| 00 76 23 00 17 01 c1 00 | 14 00 00 00 00 00 00 0e |.v#.....|........|
|00003890| 4c 4f 41 44 45 44 4d 4f | 44 55 4c 45 53 24 83 00 |LOADEDMO|DULES$..|
|000038a0| 14 00 ff 00 00 00 00 04 | 15 01 4f 01 84 00 15 01 |........|..O.....|
|000038b0| 4f 09 30 00 15 01 1b 12 | 00 2b 00 47 5c 5b 10 00 |O.0.....|.+.G\[..|
|000038c0| 04 15 01 00 15 01 4f 01 | 48 84 bf e3 ff 00 15 01 |......O.|H.......|
|000038d0| 4f 09 40 5b 26 00 2b 1c | 43 61 6e 27 74 20 6c 6f |O.@[&.+.|Can't lo|
|000038e0| 61 64 20 61 6e 79 20 6d | 6f 72 65 20 6d 6f 64 75 |ad any m|ore modu|
|000038f0| 6c 65 73 21 57 38 01 80 | 76 2b 0d 4c 6f 61 64 20 |les!W8..|v+.Load |
|00003900| 61 20 6d 6f 64 75 6c 65 | ec 01 07 15 00 2b 10 46 |a module|.....+.F|
|00003910| 69 6c 65 2c 46 6f 6c 64 | 65 72 2c 44 69 73 6b 4f |ile,Fold|er,DiskO|
|00003920| 00 4f 00 7b 29 73 00 00 | 10 4f 00 7b ed 09 2b 06 |.O.{)s..|.O.{..+.|
|00003930| 43 61 6e 63 65 6c 4f 1b | 68 2b 02 4f 4b 4f 0d ed |CancelO.|h+.OKO..|
|00003940| 0a 02 57 37 4f 00 44 5b | 20 00 03 15 00 ae 2b 07 |..W7O.D[| .....+.|
|00003950| 4c 6f 61 64 65 64 20 03 | 15 00 4b fc 00 00 15 01 |Loaded .|..K.....|
|00003960| 1f 12 00 03 15 00 87 76 | 20 00 16 00 7d 00 1c 00 |.......v| ...}...|
|00003970| 00 00 00 00 00 0e 4c 4f | 41 44 45 44 4d 4f 44 55 |......LO|ADEDMODU|
|00003980| 4c 45 53 24 83 00 00 00 | 00 00 04 14 00 4f 00 4f |LES$....|.....O.O|
|00003990| 00 4f 00 4f 01 1b 12 00 | 4f 01 4f 02 1b 12 00 4f |.O.O....|O.O....O|
|000039a0| 02 4f 03 1b 12 00 4f 03 | 4f 04 1b 12 00 4f 04 4f |.O....O.|O....O.O|
|000039b0| 05 1b 12 00 4f 05 4f 06 | 1b 12 00 4f 06 4f 07 1b |....O.O.|...O.O..|
|000039c0| 12 00 4f 07 4f 08 1b 12 | 00 4f 08 57 58 13 84 00 |..O.O...|.O.WX...|
|000039d0| 14 00 4f 00 44 00 14 00 | 1b 12 00 2b 00 47 5c 5b |..O.D...|...+.G\[|
|000039e0| 27 00 00 14 00 1b 12 00 | c1 2b 09 55 6e 6c 6f 61 |'.......|.+.Unloa|
|000039f0| 64 65 64 20 00 14 00 1b | 12 00 4b fc 00 00 14 00 |ded ....|..K.....|
|00003a00| 1f 12 00 2b 00 87 76 59 | 00 37 00 28 00 08 00 00 |...+..vY|.7.(....|
|00003a10| 00 00 1d 00 04 41 58 49 | 53 00 07 43 41 50 54 49 |.....AXI|S..CAPTI|
|00003a20| 4f 4e 00 0c 50 4c 4f 54 | 46 55 4e 43 54 49 4f 4e |ON..PLOT|FUNCTION|
|00003a30| 01 0a 4f 56 45 52 50 52 | 49 4e 54 25 00 0f 4f 56 |..OVERPR|INT%..OV|
|00003a40| 45 52 50 52 49 4e 54 43 | 4f 55 4e 54 25 00 09 44 |ERPRINTC|OUNT%..D|
|00003a50| 52 41 57 41 58 45 53 25 | 00 02 46 24 03 00 00 00 |RAWAXES%|..F$....|
|00003a60| 00 00 08 2f 00 64 5b 0a | 00 d1 0c 31 00 4f 00 84 |.../.d[.|...1.O..|
|00003a70| 08 33 00 5b 07 00 53 12 | 00 82 53 18 00 82 0b 35 |.3.[..S.|..S....5|
|00003a80| 00 4f 03 53 21 00 82 4f | 00 c0 22 00 22 00 0f 00 |.O.S!..O|.."."...|
|00003a90| 08 00 00 00 00 0e 00 0c | 47 45 54 46 55 4e 43 54 |........|GETFUNCT|
|00003aa0| 49 4f 4e 24 01 02 46 24 | 03 00 00 00 00 00 0f 20 |ION$..F$|....... |
|00003ab0| 00 0b 20 00 4f 03 53 12 | 00 87 4f 00 c0 1a 00 1c |.. .O.S.|..O.....|
|00003ac0| 00 07 00 08 00 00 00 00 | 0a 00 08 47 45 54 52 41 |........|...GETRA|
|00003ad0| 4e 47 45 00 00 00 00 00 | 00 53 12 00 82 4f 00 c0 |NGE.....|.S...O..|
|00003ae0| 1b 00 14 00 09 00 08 00 | 00 00 00 00 00 09 51 55 |........|......QU|
|00003af0| 49 54 46 4c 41 47 25 00 | 00 00 00 00 00 0c 12 00 |ITFLAG%.|........|
|00003b00| 4f ff 84 4f 00 c0 3f 00 | 42 03 7a 00 0e 00 01 03 |O..O..?.|B.z.....|
|00003b10| 10 00 02 46 24 03 3c 00 | 06 49 54 45 4d 53 25 80 |...F$.<.|.ITEMS%.|
|00003b20| 3e 01 17 00 0a 47 52 41 | 50 48 5f 50 41 53 53 01 |>....GRA|PH_PASS.|
|00003b30| 09 50 4c 4f 54 50 45 52 | 4d 53 02 00 3b 00 ff 00 |.PLOTPER|MS..;...|
|00003b40| 00 3c 01 ff 00 00 00 07 | 3c 00 0b 39 00 87 04 3c |.<......|<..9...<|
|00003b50| 03 4f 01 84 04 3e 03 4f | 01 84 04 40 03 07 3c 00 |.O...>.O|...@..<.|
|00003b60| 57 1f 00 3c 03 7b 49 57 | 18 84 00 40 03 28 b1 00 |W..<.{IW|...@.(..|
|00003b70| 40 5b 17 00 00 3e 03 14 | 3e 01 00 3c 03 84 04 3e |@[...>..|>..<...>|
|00003b80| 03 00 3e 03 4f 01 48 84 | 04 3c 03 00 3c 03 4f 01 |..>.O.H.|.<..<.O.|
|00003b90| 48 84 00 3c 03 0b 39 00 | 57 14 40 5b bf ff 00 3e |H..<..9.|W.@[...>|
|00003ba0| 03 4f 01 40 5b 0f 00 03 | 3c 00 4f 03 53 22 00 82 |.O.@[...|<.O.S"..|
|00003bb0| bf 10 00 4f 01 4f 00 00 | 3e 03 4f 00 53 2e 00 82 |...O.O..|>.O.S...|
|00003bc0| 76 35 00 31 00 93 00 0c | 00 02 00 00 00 00 17 00 |v5.1....|........|
|00003bd0| 09 50 4c 4f 54 50 45 52 | 4d 53 02 0a 47 52 41 50 |.PLOTPER|MS..GRAP|
|00003be0| 48 5f 50 41 53 53 01 02 | 46 24 03 06 49 54 45 4d |H_PASS..|F$..ITEM|
|00003bf0| 53 25 80 00 00 00 00 00 | 08 29 00 08 2b 00 40 5b |S%......|.)..+.@[|
|00003c00| 04 00 76 08 29 00 4f 01 | 40 08 29 00 4f 01 38 0f |..v.).O.|@.).O.8.|
|00003c10| 2d 00 57 1f 08 29 00 7b | 49 57 18 4f 28 40 5c 60 |-.W..).{|IW.O(@\`|
|00003c20| 5b 16 00 0f 2d 00 57 1f | 08 29 00 18 2f 00 7b 49 |[...-.W.|.)../.{I|
|00003c30| 4f 20 9c bf 13 00 0f 2d | 00 57 1f 08 29 00 18 2f |O .....-|.W..)../|
|00003c40| 00 7b 49 4f 2b 9c 08 29 | 00 4f 01 48 4f 00 08 2b |.{IO+..)|.O.HO..+|
|00003c50| 00 4f 00 53 12 00 82 0b | 2d 00 4f 03 53 1d 00 82 |.O.S....|-.O.S...|
|00003c60| 0f 2d 00 57 1f 08 29 00 | 18 2f 00 7b 49 4f 2d 9c |.-.W..).|./.{IO-.|
|00003c70| 08 29 00 4f 01 48 4f 00 | 08 2b 00 4f 00 53 12 00 |.).O.HO.|.+.O.S..|
|00003c80| 82 0b 2d 00 4f 03 53 1d | 00 82 76 71 00 53 00 69 |..-.O.S.|..vq.S.i|
|00003c90| 01 1e 00 01 03 05 00 01 | 58 02 2f 00 00 00 04 52 |........|X./....R|
|00003ca0| 4d 41 58 02 05 4d 45 53 | 48 26 01 04 5a 4f 4f 4d |MAX..MES|H&..ZOOM|
|00003cb0| 02 05 57 49 4e 57 25 00 | 04 52 4d 49 4e 02 0b 44 |..WINW%.|.RMIN..D|
|00003cc0| 52 41 57 57 49 4e 44 4f | 57 25 00 06 59 43 45 4e |RAWWINDO|W%..YCEN|
|00003cd0| 54 25 00 05 57 49 4e 48 | 25 00 0a 4f 46 46 53 43 |T%..WINH|%..OFFSC|
|00003ce0| 52 45 45 4e 25 00 06 58 | 43 45 4e 54 25 00 09 55 |REEN%..X|CENT%..U|
|00003cf0| 53 45 4c 49 4e 45 53 25 | 00 00 00 00 00 00 06 43 |SELINES%|.......C|
|00003d00| 00 0a 19 00 09 1b 00 7d | 56 86 0a 1d 00 4f 00 7c |.......}|V....O.||
|00003d10| 3a 5b 1a 00 06 4b 00 08 | 1f 00 7c 0a 19 00 0a 21 |:[...K..|..|....!|
|00003d20| 00 4e 56 0a 1d 00 52 86 | bf 18 00 06 4b 00 08 1f |.NV...R.|....K...|
|00003d30| 00 7c 0a 19 00 0a 21 00 | 4e 56 0a 1d 00 6a 56 86 |.|....!.|NV...jV.|
|00003d40| 04 41 00 4f ff 84 06 2f | 00 0a 21 00 86 2b 0b 50 |.A.O.../|..!..+.P|
|00003d50| 6c 6f 74 74 69 6e 67 2e | 2e 2e f0 01 b1 ac 00 08 |lotting.|........|
|00003d60| 23 00 c7 02 2f 00 0a 19 | 00 36 5b f7 00 06 37 00 |#.../...|.6[...7.|
|00003d70| 0b 17 00 57 99 02 4b 00 | 52 86 08 25 00 7c 02 37 |...W..K.|R..%.|.7|
|00003d80| 00 4e 08 27 00 4f 02 50 | 7c 3a 08 29 00 64 5c 5b |.N.'.O.P||:.).d\[|
|00003d90| 09 00 04 41 00 4f ff 84 | 00 41 00 5b 23 00 02 2f |...A.O..|.A.[#../|
|00003da0| 00 02 4b 00 52 08 2b 00 | 7c 4a 79 08 25 00 7c 02 |..K.R.+.||Jy.%.|.|
|00003db0| 37 00 4e 79 d2 04 41 00 | 4f 00 84 bf 3f 00 08 2d |7.Ny..A.|O...?..-|
|00003dc0| 00 5b 1d 00 02 2f 00 02 | 4b 00 52 08 2b 00 7c 4a |.[.../..|K.R.+.|J|
|00003dd0| 79 08 25 00 7c 02 37 00 | 4e 79 e5 bf 1f 00 02 2f |y.%.|.7.|Ny...../|
|00003de0| 00 02 4b 00 52 08 2b 00 | 7c 4a 79 08 25 00 7c 02 |..K.R.+.||Jy.%.|.|
|00003df0| 37 00 4e 79 d2 4f 00 4f | 00 da 06 2f 00 02 2f 00 |7.Ny.O.O|.../../.|
|00003e00| 02 43 00 4a 86 bf 5e ff | 57 07 4f f8 40 5b 0c 00 |.C.J..^.|W.O.@[..|
|00003e10| 04 41 00 4f ff 84 bf 3d | 00 57 07 4f fb 40 57 07 |.A.O...=|.W.O.@W.|
|00003e20| 4f fa 40 60 57 07 4f fe | 40 60 5b 0c 00 04 41 00 |O.@`W.O.|@`[...A.|
|00003e30| 4f ff 84 bf 20 00 57 07 | 57 c4 2b 01 28 57 07 7c |O... .W.|W.+.(W.||
|00003e40| 4f 03 57 c6 4b 2b 01 29 | 4b 57 38 02 80 f0 00 b1 |O.W.K+.)|KW8.....|
|00003e50| 00 00 76 06 2f 00 02 2f | 00 02 43 00 4a 86 bf 05 |..v./../|..C.J...|
|00003e60| ff f0 00 b1 00 00 76 4d | 00 3e 00 15 01 1e 00 00 |......vM|.>......|
|00003e70| 00 00 00 00 04 5a 4f 4f | 4d 02 05 57 49 4e 57 25 |.....ZOO|M..WINW%|
|00003e80| 00 04 52 4d 41 58 02 04 | 52 4d 49 4e 02 0b 44 52 |..RMAX..|RMIN..DR|
|00003e90| 41 57 57 49 4e 44 4f 57 | 25 00 06 58 43 45 4e 54 |AWWINDOW|%..XCENT|
|00003ea0| 25 00 06 59 43 45 4e 54 | 25 00 05 57 49 4e 48 25 |%..YCENT|%..WINH%|
|00003eb0| 00 00 00 00 00 00 0a 12 | 00 4f 00 7c 3a 5b 1a 00 |........|.O.|:[..|
|00003ec0| 06 36 00 08 14 00 7c 0a | 16 00 0a 18 00 4e 56 0a |.6....|.|.....NV.|
|00003ed0| 12 00 52 86 bf 18 00 06 | 36 00 08 14 00 7c 0a 16 |..R.....|6....|..|
|00003ee0| 00 0a 18 00 4e 56 0a 12 | 00 6a 56 86 08 1a 00 c7 |....NV..|.jV.....|
|00003ef0| 0a 18 00 02 36 00 52 08 | 1c 00 7c 4a 79 08 1e 00 |....6.R.|..|Jy...|
|00003f00| d2 0a 16 00 02 36 00 52 | 08 1c 00 7c 4a 79 08 1e |.....6.R|...|Jy..|
|00003f10| 00 e5 08 1c 00 4f 00 d2 | 08 1c 00 08 20 00 e5 04 |.....O..|.... ...|
|00003f20| 34 00 08 14 00 7b 02 36 | 00 7a ff 18 01 29 00 78 |4....{.6|.z...).x|
|00003f30| 84 04 32 00 0a 18 00 79 | 84 29 f2 01 00 10 ca 00 |..2....y|.)......|
|00003f40| 32 00 7c 02 36 00 52 08 | 1c 00 7c 4a 79 08 1e 00 |2.|.6.R.|..|Jy...|
|00003f50| d2 4f 00 4f 05 da 00 32 | 00 4f 00 44 5b 20 00 00 |.O.O...2|.O.D[ ..|
|00003f60| 32 00 7c 02 36 00 52 08 | 1c 00 7c 4a 4f 05 7c 4e |2.|.6.R.|..|JO.|N|
|00003f70| 79 08 1e 00 4f 0c 48 d2 | 00 32 00 d4 08 1c 00 08 |y...O.H.|.2......|
|00003f80| 1e 00 7c 02 36 00 00 32 | 00 7c 52 4e 79 d2 4f 05 |..|.6..2|.|RNy.O.|
|00003f90| 4f 00 da 00 32 00 4f 00 | 44 5b 1c 00 08 1c 00 4f |O...2.O.|D[.....O|
|00003fa0| 05 48 08 1e 00 7c 02 36 | 00 00 32 00 7c 52 4e 79 |.H...|.6|..2.|RNy|
|00003fb0| d2 00 32 00 d4 04 32 00 | 00 32 00 4f 01 48 84 00 |..2...2.|.2.O.H..|
|00003fc0| 32 00 7c 0a 16 00 3a 5b | 78 ff 76 38 00 1e 00 5d |2.|...:[|x.v8...]|
|00003fd0| 00 0c 00 00 00 00 00 00 | 05 57 49 4e 48 25 00 0f |........|.WINH%..|
|00003fe0| 4f 56 45 52 50 52 49 4e | 54 43 4f 55 4e 54 25 00 |OVERPRIN|TCOUNT%.|
|00003ff0| 02 46 24 03 04 52 4d 49 | 4e 02 04 52 4d 41 58 02 |.F$..RMI|N..RMAX.|
|00004000| 00 00 00 00 00 29 f3 01 | 00 10 ca 04 1c 00 08 12 |.....)..|........|
|00004010| 00 4f 06 4c 08 14 00 4f | 0b 50 4c 84 4f 05 00 1c |.O.L...O|.PL.O...|
|00004020| 00 d2 0b 16 00 2b 04 20 | 20 20 20 4b 0a 18 00 4f |.....+. |   K...O|
|00004030| 03 57 c6 4b 2b 02 20 3c | 4b d7 2b 01 3c 57 32 68 |.W.K+. <|K.+.<W2h|
|00004040| 4f 00 d3 2b 05 5f 20 78 | 20 3c d7 2b 01 3c 57 32 |O..+._ x| <.+.<W2|
|00004050| 68 4f 00 d3 2b 02 5f 20 | 0a 1a 00 4f 03 57 c6 4b |hO..+._ |...O.W.K|
|00004060| d7 76 04 4d 41 49 4e 34 | 00 00 00 12 00 08 4d 41 |.v.MAIN4|......MA|
|00004070| 49 4e 4c 4f 4f 50 7d 00 | 00 00 48 00 04 42 55 46 |INLOOP}.|..H..BUF|
|00004080| 24 0a 08 00 00 ef 00 09 | 53 45 54 55 50 4d 45 4e |$.......|SETUPMEN|
|00004090| 55 5c 08 00 00 fb 00 0c | 47 45 54 46 55 4e 43 54 |U\......|GETFUNCT|
|000040a0| 49 4f 4e 24 47 0a 00 00 | 1f 01 08 47 45 54 52 41 |ION$G...|...GETRA|
|000040b0| 4e 47 45 29 0b 00 00 3a | 01 07 47 45 54 4d 45 53 |NGE)...:|..GETMES|
|000040c0| 48 99 0b 00 00 44 01 07 | 47 45 54 5a 4f 4f 4d f7 |H....D..|GETZOOM.|
|000040d0| 0b 00 00 4d 01 09 47 45 | 54 43 45 4e 54 45 52 69 |...M..GE|TCENTERi|
|000040e0| 0c 00 00 5d 01 0a 4c 4f | 41 44 4d 4f 44 55 4c 45 |...]..LO|ADMODULE|
|000040f0| fb 0c 00 00 6f 01 0c 55 | 4e 4c 4f 41 44 4d 4f 44 |....o..U|NLOADMOD|
|00004100| 55 4c 45 e1 0d 00 00 84 | 01 05 43 4d 44 50 25 80 |ULE.....|..CMDP%.|
|00004110| 0e 00 00 99 01 05 43 4d | 44 46 25 03 0f 00 00 a8 |......CM|DF%.....|
|00004120| 01 05 43 4d 44 52 25 36 | 0f 00 00 af 01 05 43 4d |..CMDR%6|......CM|
|00004130| 44 45 25 59 0f 00 00 b5 | 01 0c 50 4c 4f 54 46 55 |DE%Y....|..PLOTFU|
|00004140| 4e 43 54 49 4f 4e 7f 0f | 00 00 ce 01 09 50 4c 4f |NCTION..|.....PLO|
|00004150| 54 50 45 52 4d 53 3a 10 | 00 00 ea 01 0a 47 52 41 |TPERMS:.|.....GRA|
|00004160| 50 48 5f 50 41 53 53 04 | 11 00 00 02 02 04 41 58 |PH_PASS.|......AX|
|00004170| 49 53 e0 12 00 00 3b 02 | 07 43 41 50 54 49 4f 4e |IS....;.|.CAPTION|
|00004180| 44 14 00 00 65 02 00 02 | 00 07 43 4c 49 50 42 49 |D...e...|..CLIPBI|
|00004190| 54 a7 02 00 10 00 01 06 | 53 59 53 54 45 4d 5c 02 |T.......|SYSTEM\.|
|000041a0| 00 10 01 01 68 01 00 10 | 0a 20 0a 20 14 00 00 00 |....h...|. . ....|
|000041b0| db 14 00 00 00 16 00 00 | 00 00 37 00 00 10 6d 00 |........|..7...m.|
|000041c0| 00 10 85 00 00 10 f4 63 | 08 55 23 27 00 00 5c 00 |.......c|.U#'..\.|
|000041d0| 00 10 63 00 00 10 00 00 | 00 00 64 00 00 10 5d 99 |..c.....|..d...].|
|000041e0| 52 45 4d 20 50 6c 6f 74 | 74 65 72 20 74 72 61 6e |REM Plot|ter tran|
|000041f0| 73 6c 61 74 65 64 20 66 | 69 6c 65 06 52 45 4d 20 |slated f|ile.REM |
|00004200| 54 68 69 73 20 69 73 20 | 6e 6f 74 20 74 68 65 20 |This is |not the |
|00004210| 6f 72 69 67 69 6e 61 6c | 20 73 6f 75 72 63 65 20 |original| source |
|00004220| 63 6f 64 65 2e 20 54 68 | 69 73 20 77 61 73 20 61 |code. Th|is was a|
|00004230| 75 74 6f 6d 61 74 69 63 | 61 6c 79 20 67 65 6e 65 |utomatic|aly gene|
|00004240| 72 61 74 65 64 20 62 79 | 20 4f 50 4c 2b 2e 06 52 |rated by| OPL+..R|
|00004250| 45 4d 20 a9 20 31 39 39 | 39 2d 32 30 30 30 20 47 |EM . 199|9-2000 G|
|00004260| 6c 65 6e 6e 20 53 74 72 | 6f 6e 67 20 3c 47 6c 65 |lenn Str|ong <Gle|
|00004270| 6e 6e 2e 53 74 72 6f 6e | 67 40 63 73 2e 74 63 64 |nn.Stron|g@cs.tcd|
|00004280| 2e 69 65 3e 06 52 45 4d | 20 49 73 73 75 65 64 20 |.ie>.REM| Issued |
|00004290| 75 6e 64 65 72 20 74 68 | 65 20 47 4e 55 20 47 65 |under th|e GNU Ge|
|000042a0| 6e 65 72 61 6c 20 50 75 | 62 6c 69 63 20 6c 69 63 |neral Pu|blic lic|
|000042b0| 65 6e 73 65 2c 20 76 65 | 72 73 69 6f 6e 20 32 06 |ense, ve|rsion 2.|
|000042c0| 06 06 06 06 44 45 43 4c | 41 52 45 20 45 58 54 45 |....DECL|ARE EXTE|
|000042d0| 52 4e 41 4c 06 06 06 06 | 06 06 06 69 6e 63 6c 75 |RNAL....|...inclu|
|000042e0| 64 65 20 22 63 6c 69 70 | 62 69 74 2e 6f 78 68 22 |de "clip|bit.oxh"|
|000042f0| 06 06 06 49 4e 43 4c 55 | 44 45 20 22 63 6f 6e 73 |...INCLU|DE "cons|
|00004300| 74 2e 6f 70 68 22 06 49 | 4e 43 4c 55 44 45 20 22 |t.oph".I|NCLUDE "|
|00004310| 53 79 73 74 65 6d 2e 6f | 78 68 22 06 49 4e 43 4c |System.o|xh".INCL|
|00004320| 55 44 45 20 22 54 6f 6f | 6c 62 61 72 2e 6f 70 68 |UDE "Too|lbar.oph|
|00004330| 22 06 06 50 52 4f 43 20 | 4d 61 69 6e 3a 06 4c 4f |"..PROC |Main:.LO|
|00004340| 41 44 4d 20 22 5a 3a 5c | 53 79 73 74 65 6d 5c 4f |ADM "Z:\|System\O|
|00004350| 70 6c 5c 54 6f 6f 6c 62 | 61 72 2e 6f 70 6f 22 06 |pl\Toolb|ar.opo".|
|00004360| 54 42 61 72 4c 69 6e 6b | 3a 28 22 4d 61 69 6e 4c |TBarLink|:("MainL|
|00004370| 6f 6f 70 22 29 06 45 4e | 44 50 06 06 45 58 54 45 |oop").EN|DP..EXTE|
|00004380| 52 4e 41 4c 20 62 75 66 | 24 3a 28 62 26 29 06 45 |RNAL buf|$:(b&).E|
|00004390| 58 54 45 52 4e 41 4c 20 | 6d 61 69 6e 44 69 61 6c |XTERNAL |mainDial|
|000043a0| 6f 67 25 3a 06 45 58 54 | 45 52 4e 41 4c 20 53 65 |og%:.EXT|ERNAL Se|
|000043b0| 74 75 70 4d 65 6e 75 3a | 06 45 58 54 45 52 4e 41 |tupMenu:|.EXTERNA|
|000043c0| 4c 20 47 65 74 46 75 6e | 63 74 69 6f 6e 24 3a 28 |L GetFun|ction$:(|
|000043d0| 66 24 29 06 45 58 54 45 | 52 4e 41 4c 20 47 65 74 |f$).EXTE|RNAL Get|
|000043e0| 52 61 6e 67 65 3a 06 45 | 58 54 45 52 4e 41 4c 20 |Range:.E|XTERNAL |
|000043f0| 47 65 74 4d 65 73 68 3a | 06 45 58 54 45 52 4e 41 |GetMesh:|.EXTERNA|
|00004400| 4c 20 47 65 74 5a 6f 6f | 6d 3a 06 45 58 54 45 52 |L GetZoo|m:.EXTER|
|00004410| 4e 41 4c 20 47 65 74 43 | 65 6e 74 65 72 3a 06 45 |NAL GetC|enter:.E|
|00004420| 58 54 45 52 4e 41 4c 20 | 4c 6f 61 64 4d 6f 64 75 |XTERNAL |LoadModu|
|00004430| 6c 65 3a 06 45 58 54 45 | 52 4e 41 4c 20 55 6e 6c |le:.EXTE|RNAL Unl|
|00004440| 6f 61 64 4d 6f 64 75 6c | 65 3a 06 06 43 4f 4e 53 |oadModul|e:..CONS|
|00004450| 54 20 42 57 25 3d 31 30 | 06 43 4f 4e 53 54 20 4b |T BW%=10|.CONST K|
|00004460| 4d 61 78 3d 31 2e 30 06 | 43 4f 4e 53 54 20 4d 61 |Max=1.0.|CONST Ma|
|00004470| 78 5a 6f 6f 6d 25 3d 31 | 30 06 06 06 06 06 06 06 |xZoom%=1|0.......|
|00004480| 06 06 06 06 06 06 06 06 | 06 06 06 06 06 06 06 06 |........|........|
|00004490| 06 06 06 06 06 06 06 45 | 58 54 45 52 4e 41 4c 20 |.......E|XTERNAL |
|000044a0| 50 6c 6f 74 46 75 6e 63 | 74 69 6f 6e 3a 28 66 24 |PlotFunc|tion:(f$|
|000044b0| 29 06 06 45 58 54 45 52 | 4e 41 4c 20 41 78 69 73 |)..EXTER|NAL Axis|
|000044c0| 3a 06 06 45 58 54 45 52 | 4e 41 4c 20 43 61 70 74 |:..EXTER|NAL Capt|
|000044d0| 69 6f 6e 3a 06 06 50 52 | 4f 43 20 4d 61 69 6e 4c |ion:..PR|OC MainL|
|000044e0| 6f 6f 70 3a 06 45 58 54 | 45 52 4e 41 4c 20 54 62 |oop:.EXT|ERNAL Tb|
|000044f0| 57 69 64 74 68 25 2c 20 | 54 56 69 73 69 62 6c 65 |Width%, |TVisible|
|00004500| 25 2c 20 54 62 4d 65 6e | 75 53 79 6d 25 06 06 47 |%, TbMen|uSym%..G|
|00004510| 4c 4f 42 41 4c 20 57 69 | 6e 48 25 2c 20 57 69 6e |LOBAL Wi|nH%, Win|
|00004520| 57 25 2c 20 5a 6f 6f 6d | 2c 20 4d 65 73 68 26 2c |W%, Zoom|, Mesh&,|
|00004530| 20 4f 66 66 73 63 72 65 | 65 6e 25 2c 20 4f 76 65 | Offscre|en%, Ove|
|00004540| 72 70 72 69 6e 74 25 06 | 47 4c 4f 42 41 4c 20 58 |rprint%.|GLOBAL X|
|00004550| 43 65 6e 74 25 2c 20 59 | 43 65 6e 74 25 2c 20 44 |Cent%, Y|Cent%, D|
|00004560| 72 61 77 41 78 65 73 25 | 2c 20 51 75 69 74 46 6c |rawAxes%|, QuitFl|
|00004570| 61 67 25 2c 20 55 73 65 | 4c 69 6e 65 73 25 2c 20 |ag%, Use|Lines%, |
|00004580| 6f 76 65 72 50 72 69 6e | 74 43 6f 75 6e 74 25 06 |overPrin|tCount%.|
|00004590| 47 4c 4f 42 41 4c 20 4c | 6f 61 64 65 64 4d 6f 64 |GLOBAL L|oadedMod|
|000045a0| 75 6c 65 73 24 28 38 2c | 32 35 35 29 06 06 47 4c |ules$(8,|255)..GL|
|000045b0| 4f 42 41 4c 20 52 4d 69 | 6e 2c 20 52 4d 61 78 2c |OBAL RMi|n, RMax,|
|000045c0| 20 66 24 28 32 35 35 29 | 2c 20 64 72 61 77 57 69 | f$(255)|, drawWi|
|000045d0| 6e 64 6f 77 25 06 4c 4f | 43 41 4c 20 6b 25 2c 20 |ndow%.LO|CAL k%, |
|000045e0| 6d 6f 64 25 2c 20 65 76 | 26 28 31 36 29 2c 20 62 |mod%, ev|&(16), b|
|000045f0| 6c 61 6e 6b 25 2c 20 66 | 69 6c 65 24 28 4b 44 46 |lank%, f|ile$(KDF|
|00004600| 69 6c 65 4e 61 6d 65 4c | 65 6e 25 29 06 06 6b 25 |ileNameL|en%)..k%|
|00004610| 3d 31 06 44 4f 06 4c 6f | 61 64 65 64 4d 6f 64 75 |=1.DO.Lo|adedModu|
|00004620| 6c 65 73 24 28 6b 25 29 | 3d 22 22 06 6b 25 3d 6b |les$(k%)|="".k%=k|
|00004630| 25 2b 31 06 55 4e 54 49 | 4c 20 6b 25 3e 38 06 06 |%+1.UNTI|L k%>8..|
|00004640| 64 72 61 77 57 69 6e 64 | 6f 77 25 3d 67 49 44 45 |drawWind|ow%=gIDE|
|00004650| 4e 54 49 54 59 06 62 6c | 61 6e 6b 25 3d 67 43 52 |NTITY.bl|ank%=gCR|
|00004660| 45 41 54 45 42 49 54 28 | 31 2c 31 29 06 67 55 53 |EATEBIT(|1,1).gUS|
|00004670| 45 20 64 72 61 77 57 69 | 6e 64 6f 77 25 06 6f 76 |E drawWi|ndow%.ov|
|00004680| 65 72 50 72 69 6e 74 43 | 6f 75 6e 74 25 3d 30 06 |erPrintC|ount%=0.|
|00004690| 06 54 42 61 72 49 6e 69 | 74 3a 28 22 50 6c 6f 74 |.TBarIni|t:("Plot|
|000046a0| 74 65 72 22 2c 67 57 49 | 44 54 48 2c 67 48 45 49 |ter",gWI|DTH,gHEI|
|000046b0| 47 48 54 29 06 54 42 61 | 72 42 75 74 74 3a 28 22 |GHT).TBa|rButt:("|
|000046c0| 70 22 2c 31 2c 22 50 6c | 6f 74 22 2c 30 2c 62 6c |p",1,"Pl|ot",0,bl|
|000046d0| 61 6e 6b 25 2c 30 2c 30 | 29 06 54 42 61 72 42 75 |ank%,0,0|).TBarBu|
|000046e0| 74 74 3a 28 22 66 22 2c | 32 2c 22 46 75 6e 63 22 |tt:("f",|2,"Func"|
|000046f0| 2c 30 2c 62 6c 61 6e 6b | 25 2c 30 2c 30 29 06 54 |,0,blank|%,0,0).T|
|00004700| 42 61 72 42 75 74 74 3a | 28 22 72 22 2c 33 2c 22 |BarButt:|("r",3,"|
|00004710| 52 61 6e 67 65 22 2c 30 | 2c 62 6c 61 6e 6b 25 2c |Range",0|,blank%,|
|00004720| 30 2c 30 29 06 54 42 61 | 72 42 75 74 74 3a 28 22 |0,0).TBa|rButt:("|
|00004730| 65 22 2c 34 2c 22 45 78 | 69 74 22 2c 30 2c 62 6c |e",4,"Ex|it",0,bl|
|00004740| 61 6e 6b 25 2c 30 2c 30 | 29 06 54 42 61 72 53 68 |ank%,0,0|).TBarSh|
|00004750| 6f 77 3a 06 06 67 55 50 | 44 41 54 45 20 4f 4e 06 |ow:..gUP|DATE ON.|
|00004760| 06 57 69 6e 48 25 20 3d | 20 67 48 45 49 47 48 54 |.WinH% =| gHEIGHT|
|00004770| 20 2d 20 42 57 25 06 57 | 69 6e 57 25 20 3d 20 67 | - BW%.W|inW% = g|
|00004780| 57 49 44 54 48 20 2d 20 | 42 57 25 20 2d 20 54 42 |WIDTH - |BW% - TB|
|00004790| 57 69 64 74 68 25 06 58 | 43 65 6e 74 25 20 3d 20 |Width%.X|Cent% = |
|000047a0| 57 69 6e 57 25 2f 32 06 | 59 43 65 6e 74 25 20 3d |WinW%/2.|YCent% =|
|000047b0| 20 57 69 6e 48 25 2f 32 | 06 06 4f 66 66 73 63 72 | WinH%/2|..Offscr|
|000047c0| 65 65 6e 25 3d 4b 46 61 | 6c 73 65 25 20 3a 20 5a |een%=KFa|lse% : Z|
|000047d0| 6f 6f 6d 3d 31 2e 30 20 | 3a 20 4d 65 73 68 26 3d |oom=1.0 |: Mesh&=|
|000047e0| 57 69 6e 57 25 2f 31 30 | 06 66 24 3d 22 53 49 4e |WinW%/10|.f$="SIN|
|000047f0| 28 78 29 22 20 3a 20 52 | 4d 69 6e 3d 2d 36 2e 30 |(x)" : R|Min=-6.0|
|00004800| 20 3a 20 52 4d 61 78 3d | 36 2e 30 06 44 72 61 77 | : RMax=|6.0.Draw|
|00004810| 41 78 65 73 25 3d 4b 54 | 72 75 65 25 20 3a 20 4f |Axes%=KT|rue% : O|
|00004820| 76 65 72 50 72 69 6e 74 | 25 3d 4b 46 61 6c 73 65 |verPrint|%=KFalse|
|00004830| 25 20 3a 20 55 73 65 4c | 69 6e 65 73 25 3d 4b 54 |% : UseL|ines%=KT|
|00004840| 72 75 65 25 06 06 51 75 | 69 74 46 6c 61 67 25 3d |rue%..Qu|itFlag%=|
|00004850| 4b 46 61 6c 73 65 25 06 | 06 44 4f 06 47 45 54 45 |KFalse%.|.DO.GETE|
|00004860| 56 45 4e 54 33 32 20 65 | 76 26 28 29 06 06 49 46 |VENT32 e|v&()..IF|
|00004870| 20 65 76 26 28 4b 45 76 | 41 54 79 70 65 25 29 3d | ev&(KEv|AType%)=|
|00004880| 4b 45 76 50 74 72 26 06 | 49 46 20 54 42 61 72 4f |KEvPtr&.|IF TBarO|
|00004890| 66 66 65 72 25 3a 28 65 | 76 26 28 4b 45 76 41 50 |ffer%:(e|v&(KEvAP|
|000048a0| 74 72 4f 70 6c 57 69 6e | 64 6f 77 49 64 25 29 2c |trOplWin|dowId%),|
|000048b0| 65 76 26 28 4b 45 76 41 | 50 74 72 54 79 70 65 25 |ev&(KEvA|PtrType%|
|000048c0| 29 2c 65 76 26 28 4b 45 | 76 41 50 74 72 50 6f 73 |),ev&(KE|vAPtrPos|
|000048d0| 69 74 69 6f 6e 58 25 29 | 2c 65 76 26 28 4b 45 76 |itionX%)|,ev&(KEv|
|000048e0| 41 50 74 72 50 6f 73 69 | 74 69 6f 6e 59 25 29 29 |APtrPosi|tionY%))|
|000048f0| 06 43 4f 4e 54 49 4e 55 | 45 06 45 4e 44 49 46 06 |.CONTINU|E.ENDIF.|
|00004900| 45 4c 53 45 49 46 20 28 | 28 65 76 26 28 4b 45 76 |ELSEIF (|(ev&(KEv|
|00004910| 41 54 79 70 65 25 29 20 | 41 4e 44 20 26 34 30 30 |AType%) |AND &400|
|00004920| 29 3d 30 29 20 4f 52 20 | 28 65 76 26 28 4b 45 76 |)=0) OR |(ev&(KEv|
|00004930| 41 54 79 70 65 25 29 3d | 4b 4b 65 79 53 69 64 65 |AType%)=|KKeySide|
|00004940| 62 61 72 4d 65 6e 75 33 | 32 25 29 06 6b 25 3d 65 |barMenu3|2%).k%=e|
|00004950| 76 26 28 4b 45 76 41 54 | 79 70 65 25 29 06 6d 6f |v&(KEvAT|ype%).mo|
|00004960| 64 25 3d 65 76 26 28 4b | 45 76 41 4b 4d 6f 64 25 |d%=ev&(K|EvAKMod%|
|00004970| 29 06 49 46 20 28 6b 25 | 3d 4b 4b 65 79 4d 65 6e |).IF (k%|=KKeyMen|
|00004980| 75 33 32 25 29 20 4f 52 | 20 28 6b 25 3d 4b 4b 65 |u32%) OR| (k%=KKe|
|00004990| 79 53 69 64 65 62 61 72 | 4d 65 6e 75 33 32 25 29 |ySidebar|Menu32%)|
|000049a0| 06 53 65 74 75 70 4d 65 | 6e 75 3a 06 6b 25 3d 4d |.SetupMe|nu:.k%=M|
|000049b0| 45 4e 55 06 6d 6f 64 25 | 3d 30 06 45 4c 53 45 49 |ENU.mod%|=0.ELSEI|
|000049c0| 46 20 6d 6f 64 25 20 41 | 4e 44 20 4b 4b 6d 6f 64 |F mod% A|ND KKmod|
|000049d0| 43 6f 6e 74 72 6f 6c 25 | 06 6b 25 3d 6b 25 2b 24 |Control%|.k%=k%+$|
|000049e0| 36 30 06 49 46 20 6d 6f | 64 25 20 41 4e 44 20 4b |60.IF mo|d% AND K|
|000049f0| 4b 6d 6f 64 53 68 69 66 | 74 25 06 6b 25 3d 6b 25 |KmodShif|t%.k%=k%|
|00004a00| 2d 33 32 06 45 4e 44 49 | 46 06 45 4c 53 45 06 43 |-32.ENDI|F.ELSE.C|
|00004a10| 4f 4e 54 49 4e 55 45 06 | 45 4e 44 49 46 06 06 49 |ONTINUE.|ENDIF..I|
|00004a20| 46 20 6b 25 3d 25 63 06 | 06 06 06 06 42 69 74 6d |F k%=%c.|....Bitm|
|00004a30| 61 70 54 6f 43 6c 69 70 | 42 72 64 25 3a 28 67 49 |apToClip|Brd%:(gI|
|00004a40| 44 45 4e 54 49 54 59 29 | 06 67 49 50 52 49 4e 54 |DENTITY)|.gIPRINT|
|00004a50| 20 22 43 6f 70 69 65 64 | 22 06 06 45 4c 53 45 49 | "Copied|"..ELSEI|
|00004a60| 46 20 6b 25 3d 25 43 06 | 67 43 4c 53 06 6f 76 65 |F k%=%C.|gCLS.ove|
|00004a70| 72 50 72 69 6e 74 43 6f | 75 6e 74 25 3d 30 06 45 |rPrintCo|unt%=0.E|
|00004a80| 4c 53 45 49 46 20 6b 25 | 3d 25 66 06 66 24 3d 47 |LSEIF k%|=%f.f$=G|
|00004a90| 65 74 46 75 6e 63 74 69 | 6f 6e 24 3a 28 66 24 29 |etFuncti|on$:(f$)|
|00004aa0| 06 45 4c 53 45 49 46 20 | 6b 25 3d 25 72 06 47 65 |.ELSEIF |k%=%r.Ge|
|00004ab0| 74 52 61 6e 67 65 3a 06 | 45 4c 53 45 49 46 20 6b |tRange:.|ELSEIF k|
|00004ac0| 25 3d 25 4d 06 4c 6f 61 | 64 4d 6f 64 75 6c 65 3a |%=%M.Loa|dModule:|
|00004ad0| 06 45 4c 53 45 49 46 20 | 6b 25 3d 25 55 06 55 6e |.ELSEIF |k%=%U.Un|
|00004ae0| 6c 6f 61 64 4d 6f 64 75 | 6c 65 3a 06 45 4c 53 45 |loadModu|le:.ELSE|
|00004af0| 49 46 20 6b 25 3d 25 70 | 06 49 46 20 4e 4f 54 20 |IF k%=%p|.IF NOT |
|00004b00| 4f 76 65 72 50 72 69 6e | 74 25 06 67 43 4c 53 06 |OverPrin|t%.gCLS.|
|00004b10| 6f 76 65 72 50 72 69 6e | 74 43 6f 75 6e 74 25 3d |overPrin|tCount%=|
|00004b20| 30 06 45 4c 53 45 06 6f | 76 65 72 50 72 69 6e 74 |0.ELSE.o|verPrint|
|00004b30| 43 6f 75 6e 74 25 3d 6f | 76 65 72 50 72 69 6e 74 |Count%=o|verPrint|
|00004b40| 43 6f 75 6e 74 25 2b 31 | 06 45 4e 44 49 46 06 49 |Count%+1|.ENDIF.I|
|00004b50| 46 20 44 72 61 77 41 78 | 65 73 25 06 41 78 69 73 |F DrawAx|es%.Axis|
|00004b60| 3a 06 45 4e 44 49 46 06 | 43 61 70 74 69 6f 6e 3a |:.ENDIF.|Caption:|
|00004b70| 06 50 6c 6f 74 46 75 6e | 63 74 69 6f 6e 3a 28 66 |.PlotFun|ction:(f|
|00004b80| 24 29 06 45 4c 53 45 49 | 46 20 6b 25 3d 25 6d 06 |$).ELSEI|F k%=%m.|
|00004b90| 47 65 74 4d 65 73 68 3a | 06 45 4c 53 45 49 46 20 |GetMesh:|.ELSEIF |
|00004ba0| 6b 25 3d 25 7a 06 47 65 | 74 5a 6f 6f 6d 3a 06 45 |k%=%z.Ge|tZoom:.E|
|00004bb0| 4c 53 45 49 46 20 6b 25 | 3d 25 6f 06 47 65 74 43 |LSEIF k%|=%o.GetC|
|00004bc0| 65 6e 74 65 72 3a 06 45 | 4c 53 45 49 46 20 6b 25 |enter:.E|LSEIF k%|
|00004bd0| 3d 25 4f 06 58 43 65 6e | 74 25 20 3d 20 57 69 6e |=%O.XCen|t% = Win|
|00004be0| 57 25 2f 32 06 59 43 65 | 6e 74 25 20 3d 20 57 69 |W%/2.YCe|nt% = Wi|
|00004bf0| 6e 48 25 2f 32 06 67 49 | 50 52 49 4e 54 20 22 4f |nH%/2.gI|PRINT "O|
|00004c00| 72 69 67 69 6e 20 72 65 | 73 65 74 22 06 45 4c 53 |rigin re|set".ELS|
|00004c10| 45 49 46 20 6b 25 3d 25 | 47 06 4f 66 66 73 63 72 |EIF k%=%|G.Offscr|
|00004c20| 65 65 6e 25 20 3d 20 4e | 4f 54 20 4f 66 66 73 63 |een% = N|OT Offsc|
|00004c30| 72 65 65 6e 25 06 49 46 | 20 4f 66 66 73 63 72 65 |reen%.IF| Offscre|
|00004c40| 65 6e 25 06 67 49 50 52 | 49 4e 54 20 22 4f 66 66 |en%.gIPR|INT "Off|
|00004c50| 73 63 72 65 65 6e 20 73 | 65 74 22 06 45 4c 53 45 |screen s|et".ELSE|
|00004c60| 06 67 49 50 52 49 4e 54 | 20 22 4f 66 66 73 63 72 |.gIPRINT| "Offscr|
|00004c70| 65 65 6e 20 75 6e 73 65 | 74 22 06 45 4e 44 49 46 |een unse|t".ENDIF|
|00004c80| 06 45 4c 53 45 49 46 20 | 6b 25 3d 25 76 06 4f 76 |.ELSEIF |k%=%v.Ov|
|00004c90| 65 72 70 72 69 6e 74 25 | 20 3d 20 4e 4f 54 20 4f |erprint%| = NOT O|
|00004ca0| 76 65 72 70 72 69 6e 74 | 25 06 45 4c 53 45 49 46 |verprint|%.ELSEIF|
|00004cb0| 20 6b 25 3d 25 78 06 44 | 72 61 77 41 78 65 73 25 | k%=%x.D|rawAxes%|
|00004cc0| 20 3d 20 4e 4f 54 20 44 | 72 61 77 41 78 65 73 25 | = NOT D|rawAxes%|
|00004cd0| 06 49 46 20 44 72 61 77 | 41 78 65 73 25 06 67 49 |.IF Draw|Axes%.gI|
|00004ce0| 50 52 49 4e 54 20 22 41 | 78 65 73 20 4f 6e 22 06 |PRINT "A|xes On".|
|00004cf0| 45 4c 53 45 06 67 49 50 | 52 49 4e 54 20 22 41 78 |ELSE.gIP|RINT "Ax|
|00004d00| 65 73 20 6f 66 66 22 06 | 45 4e 44 49 46 06 45 4c |es off".|ENDIF.EL|
|00004d10| 53 45 49 46 20 6b 25 3d | 25 71 06 55 73 65 6c 69 |SEIF k%=|%q.Useli|
|00004d20| 6e 65 73 25 20 3d 20 4e | 4f 54 20 55 73 65 4c 69 |nes% = N|OT UseLi|
|00004d30| 6e 65 73 25 06 49 46 20 | 55 73 65 6c 69 6e 65 73 |nes%.IF |Uselines|
|00004d40| 25 06 67 49 50 52 49 4e | 54 20 22 4c 69 6e 65 73 |%.gIPRIN|T "Lines|
|00004d50| 20 6f 6e 22 06 45 4c 53 | 45 06 67 49 50 52 49 4e | on".ELS|E.gIPRIN|
|00004d60| 54 20 22 4c 69 6e 65 73 | 20 6f 66 66 22 06 45 4e |T "Lines| off".EN|
|00004d70| 44 49 46 06 45 4c 53 45 | 49 46 20 6b 25 3d 25 74 |DIF.ELSE|IF k%=%t|
|00004d80| 06 49 46 20 54 62 4d 65 | 6e 75 53 79 6d 25 3c 3e |.IF TbMe|nuSym%<>|
|00004d90| 4b 4d 65 6e 75 43 68 65 | 63 6b 42 6f 78 25 06 54 |KMenuChe|ckBox%.T|
|00004da0| 62 61 72 48 69 64 65 3a | 06 57 69 6e 57 25 20 3d |barHide:|.WinW% =|
|00004db0| 20 67 57 49 44 54 48 20 | 2d 20 42 57 25 06 58 43 | gWIDTH |- BW%.XC|
|00004dc0| 65 6e 74 25 20 3d 20 57 | 69 6e 57 25 2f 32 06 45 |ent% = W|inW%/2.E|
|00004dd0| 4c 53 45 06 54 62 61 72 | 53 68 6f 77 3a 06 57 69 |LSE.Tbar|Show:.Wi|
|00004de0| 6e 57 25 20 3d 20 67 57 | 49 44 54 48 20 2d 20 42 |nW% = gW|IDTH - B|
|00004df0| 57 25 20 2d 20 54 42 57 | 69 64 74 68 25 06 58 43 |W% - TBW|idth%.XC|
|00004e00| 65 6e 74 25 20 3d 20 57 | 69 6e 57 25 2f 32 06 45 |ent% = W|inW%/2.E|
|00004e10| 4e 44 49 46 06 45 4c 53 | 45 49 46 20 6b 25 3d 25 |NDIF.ELS|EIF k%=%|
|00004e20| 73 06 64 49 4e 49 54 20 | 22 45 78 70 6f 72 74 20 |s.dINIT |"Export |
|00004e30| 4d 42 4d 20 66 69 6c 65 | 22 06 64 46 49 4c 45 20 |MBM file|".dFILE |
|00004e40| 66 69 6c 65 24 2c 20 22 | 46 69 6c 65 2c 46 6f 6c |file$, "|File,Fol|
|00004e50| 64 65 72 2c 44 69 73 6b | 22 2c 20 4b 44 46 69 6c |der,Disk|", KDFil|
|00004e60| 65 45 64 69 74 42 6f 78 | 25 2b 4b 44 46 69 6c 65 |eEditBox|%+KDFile|
|00004e70| 45 64 69 74 6f 72 51 75 | 65 72 79 45 78 69 73 74 |EditorQu|eryExist|
|00004e80| 69 6e 67 25 06 64 42 55 | 54 54 4f 4e 53 20 22 43 |ing%.dBU|TTONS "C|
|00004e90| 61 6e 63 65 6c 22 2c 20 | 2d 4b 44 42 75 74 74 6f |ancel", |-KDButto|
|00004ea0| 6e 45 73 63 25 2c 20 22 | 4f 4b 22 2c 20 4b 44 42 |nEsc%, "|OK", KDB|
|00004eb0| 75 74 74 6f 6e 45 6e 74 | 65 72 25 06 49 46 20 44 |uttonEnt|er%.IF D|
|00004ec0| 49 41 4c 4f 47 3c 3e 30 | 06 67 49 50 52 49 4e 54 |IALOG<>0|.gIPRINT|
|00004ed0| 20 22 53 61 76 69 6e 67 | 2e 2e 2e 22 06 67 53 41 | "Saving|...".gSA|
|00004ee0| 56 45 42 49 54 20 66 69 | 6c 65 24 06 45 4c 53 45 |VEBIT fi|le$.ELSE|
|00004ef0| 06 67 49 50 52 49 4e 54 | 20 22 43 61 6e 63 65 6c |.gIPRINT| "Cancel|
|00004f00| 6c 65 64 2e 2e 2e 22 06 | 45 4e 44 49 46 06 45 4c |led...".|ENDIF.EL|
|00004f10| 53 45 49 46 20 6b 25 3d | 25 65 06 51 75 69 74 46 |SEIF k%=|%e.QuitF|
|00004f20| 6c 61 67 25 3d 4b 54 72 | 75 65 25 06 45 4c 53 45 |lag%=KTr|ue%.ELSE|
|00004f30| 49 46 20 6b 25 3d 25 61 | 06 64 49 4e 49 54 20 22 |IF k%=%a|.dINIT "|
|00004f40| 41 62 6f 75 74 20 74 68 | 69 73 20 70 72 6f 67 72 |About th|is progr|
|00004f50| 61 6d 22 06 64 54 45 58 | 54 20 22 50 6c 6f 74 74 |am".dTEX|T "Plott|
|00004f60| 65 72 20 22 2c 22 76 65 | 72 73 69 6f 6e 20 31 2e |er ","ve|rsion 1.|
|00004f70| 30 22 2c 20 4b 44 54 65 | 78 74 52 69 67 68 74 25 |0", KDTe|xtRight%|
|00004f80| 06 64 54 45 58 54 20 22 | 22 2c 20 22 a9 20 31 39 |.dTEXT "|", ". 19|
|00004f90| 39 39 2d 32 30 30 30 20 | 47 6c 65 6e 6e 20 53 74 |99-2000 |Glenn St|
|00004fa0| 72 6f 6e 67 22 2c 20 4b | 44 54 65 78 74 43 65 6e |rong", K|DTextCen|
|00004fb0| 74 72 65 25 06 64 54 45 | 58 54 20 22 22 2c 20 22 |tre%.dTE|XT "", "|
|00004fc0| 46 72 65 65 20 73 6f 66 | 74 77 61 72 65 20 75 6e |Free sof|tware un|
|00004fd0| 64 65 72 20 74 68 65 20 | 47 50 4c 22 2c 20 4b 44 |der the |GPL", KD|
|00004fe0| 54 65 78 74 43 65 6e 74 | 72 65 25 06 64 54 45 58 |TextCent|re%.dTEX|
|00004ff0| 54 20 22 22 2c 22 22 2c | 20 4b 44 54 65 78 74 53 |T "","",| KDTextS|
|00005000| 65 70 61 72 61 74 6f 72 | 25 06 64 54 45 58 54 20 |eparator|%.dTEXT |
|00005010| 22 22 2c 20 22 47 6c 65 | 6e 6e 2e 53 74 72 6f 6e |"", "Gle|nn.Stron|
|00005020| 67 40 63 73 2e 74 63 64 | 2e 69 65 22 2c 20 4b 44 |g@cs.tcd|.ie", KD|
|00005030| 54 65 78 74 43 65 6e 74 | 72 65 25 06 64 54 45 58 |TextCent|re%.dTEX|
|00005040| 54 20 22 22 2c 22 68 74 | 74 70 3a 2f 2f 77 77 77 |T "","ht|tp://www|
|00005050| 2e 63 73 2e 74 63 64 2e | 69 65 2f 47 6c 65 6e 6e |.cs.tcd.|ie/Glenn|
|00005060| 2e 53 74 72 6f 6e 67 2f | 65 70 6f 63 2f 22 2c 20 |.Strong/|epoc/", |
|00005070| 4b 44 54 65 78 74 43 65 | 6e 74 72 65 25 06 64 42 |KDTextCe|ntre%.dB|
|00005080| 55 54 54 4f 4e 53 20 22 | 4f 4b 22 2c 20 4b 44 42 |UTTONS "|OK", KDB|
|00005090| 75 74 74 6f 6e 45 6e 74 | 65 72 25 20 4f 52 20 4b |uttonEnt|er% OR K|
|000050a0| 44 42 75 74 74 6f 6e 4e | 6f 4c 61 62 65 6c 25 06 |DButtonN|oLabel%.|
|000050b0| 44 49 41 4c 4f 47 06 45 | 4e 44 49 46 06 45 4e 44 |DIALOG.E|NDIF.END|
|000050c0| 49 46 06 55 4e 54 49 4c | 20 51 75 69 74 46 6c 61 |IF.UNTIL| QuitFla|
|000050d0| 67 25 06 45 4e 44 50 06 | 06 06 06 50 52 4f 43 20 |g%.ENDP.|...PROC |
|000050e0| 62 75 66 24 3a 28 62 26 | 29 06 4c 4f 43 41 4c 20 |buf$:(b&|).LOCAL |
|000050f0| 6c 25 2c 20 77 26 2c 20 | 73 24 28 32 35 35 29 06 |l%, w&, |s$(255).|
|00005100| 77 26 20 3d 20 50 45 45 | 4b 4c 28 62 26 29 06 6c |w& = PEE|KL(b&).l|
|00005110| 25 20 3d 20 4d 49 4e 28 | 32 35 35 2c 77 26 29 06 |% = MIN(|255,w&).|
|00005120| 50 4f 4b 45 42 20 28 62 | 26 2b 33 29 2c 6c 25 06 |POKEB (b|&+3),l%.|
|00005130| 73 24 3d 50 45 45 4b 24 | 28 62 26 2b 33 29 06 50 |s$=PEEK$|(b&+3).P|
|00005140| 4f 4b 45 4c 20 62 26 2c | 20 77 26 06 52 45 54 55 |OKEL b&,| w&.RETU|
|00005150| 52 4e 20 73 24 06 45 4e | 44 50 06 06 06 06 50 52 |RN s$.EN|DP....PR|
|00005160| 4f 43 20 53 65 74 75 70 | 4d 65 6e 75 3a 06 45 58 |OC Setup|Menu:.EX|
|00005170| 54 45 52 4e 41 4c 20 4f | 66 66 73 63 72 65 65 6e |TERNAL O|ffscreen|
|00005180| 25 2c 20 44 72 61 77 41 | 78 65 73 25 2c 20 4f 76 |%, DrawA|xes%, Ov|
|00005190| 65 72 50 72 69 6e 74 25 | 2c 20 54 62 4d 65 6e 75 |erPrint%|, TbMenu|
|000051a0| 53 79 6d 25 06 45 58 54 | 45 52 4e 41 4c 20 55 73 |Sym%.EXT|ERNAL Us|
|000051b0| 65 6c 69 6e 65 73 25 06 | 4c 4f 43 41 4c 20 4f 53 |elines%.|LOCAL OS|
|000051c0| 4f 70 74 69 6f 6e 25 2c | 20 41 58 4f 70 74 69 6f |Option%,| AXOptio|
|000051d0| 6e 25 2c 20 4f 50 4f 70 | 74 69 6f 6e 25 2c 20 4c |n%, OPOp|tion%, L|
|000051e0| 49 4f 70 74 69 6f 6e 25 | 06 06 4f 53 4f 70 74 69 |IOption%|..OSOpti|
|000051f0| 6f 6e 25 20 3d 20 4b 4d | 65 6e 75 43 68 65 63 6b |on% = KM|enuCheck|
|00005200| 42 6f 78 25 06 49 46 20 | 4f 66 66 73 63 72 65 65 |Box%.IF |Offscree|
|00005210| 6e 25 20 3a 20 4f 53 4f | 70 74 69 6f 6e 25 20 3d |n% : OSO|ption% =|
|00005220| 20 4f 53 4f 70 74 69 6f | 6e 25 20 4f 52 20 4b 4d | OSOptio|n% OR KM|
|00005230| 65 6e 75 53 79 6d 62 6f | 6c 4f 6e 25 20 3a 20 45 |enuSymbo|lOn% : E|
|00005240| 4e 44 49 46 06 06 41 58 | 4f 70 74 69 6f 6e 25 20 |NDIF..AX|Option% |
|00005250| 3d 20 4b 4d 65 6e 75 43 | 68 65 63 6b 42 6f 78 25 |= KMenuC|heckBox%|
|00005260| 06 49 46 20 44 72 61 77 | 41 78 65 73 25 20 3a 20 |.IF Draw|Axes% : |
|00005270| 41 58 4f 70 74 69 6f 6e | 25 20 3d 20 41 58 4f 70 |AXOption|% = AXOp|
|00005280| 74 69 6f 6e 25 20 4f 52 | 20 4b 4d 65 6e 75 53 79 |tion% OR| KMenuSy|
|00005290| 6d 62 6f 6c 4f 6e 25 20 | 3a 20 45 4e 44 49 46 06 |mbolOn% |: ENDIF.|
|000052a0| 06 4f 50 4f 70 74 69 6f | 6e 25 20 3d 20 4b 4d 65 |.OPOptio|n% = KMe|
|000052b0| 6e 75 43 68 65 63 6b 42 | 6f 78 25 06 49 46 20 4f |nuCheckB|ox%.IF O|
|000052c0| 76 65 72 50 72 69 6e 74 | 25 20 3a 20 4f 50 4f 70 |verPrint|% : OPOp|
|000052d0| 74 69 6f 6e 25 20 3d 20 | 4f 50 4f 70 74 69 6f 6e |tion% = |OPOption|
|000052e0| 25 20 4f 52 20 4b 4d 65 | 6e 75 53 79 6d 62 6f 6c |% OR KMe|nuSymbol|
|000052f0| 4f 6e 25 20 3a 20 45 4e | 44 49 46 06 06 4c 49 4f |On% : EN|DIF..LIO|
|00005300| 70 74 69 6f 6e 25 20 3d | 20 4b 4d 65 6e 75 43 68 |ption% =| KMenuCh|
|00005310| 65 63 6b 42 6f 78 25 06 | 49 46 20 55 73 65 4c 69 |eckBox%.|IF UseLi|
|00005320| 6e 65 73 25 06 4c 49 4f | 70 74 69 6f 6e 25 20 3d |nes%.LIO|ption% =|
|00005330| 20 4c 49 4f 70 74 69 6f | 6e 25 20 4f 52 20 4b 4d | LIOptio|n% OR KM|
|00005340| 65 6e 75 53 79 6d 62 6f | 6c 4f 6e 25 06 45 4e 44 |enuSymbo|lOn%.END|
|00005350| 49 46 06 06 6d 49 4e 49 | 54 06 6d 43 41 52 44 20 |IF..mINI|T.mCARD |
|00005360| 22 46 69 6c 65 22 2c 22 | 45 78 70 6f 72 74 20 70 |"File","|Export p|
|00005370| 6c 6f 74 2e 2e 2e 22 2c | 25 73 2c 22 43 6c 6f 73 |lot...",|%s,"Clos|
|00005380| 65 22 2c 25 65 06 6d 43 | 41 52 44 20 22 45 64 69 |e",%e.mC|ARD "Edi|
|00005390| 74 22 2c 22 43 6f 70 79 | 22 2c 25 63 2c 22 45 72 |t","Copy|",%c,"Er|
|000053a0| 61 73 65 22 2c 25 43 06 | 06 6d 43 41 52 44 20 22 |ase",%C.|.mCARD "|
|000053b0| 46 75 6e 63 74 69 6f 6e | 22 2c 22 53 65 74 2e 2e |Function|","Set..|
|000053c0| 2e 22 2c 25 66 2c 22 52 | 61 6e 67 65 2e 2e 2e 22 |.",%f,"R|ange..."|
|000053d0| 2c 25 72 2c 20 22 4c 6f | 61 64 20 6d 6f 64 75 6c |,%r, "Lo|ad modul|
|000053e0| 65 2e 2e 2e 22 2c 20 25 | 4d 2c 20 22 55 6e 6c 6f |e...", %|M, "Unlo|
|000053f0| 61 64 20 6d 6f 64 75 6c | 65 2e 2e 2e 22 2c 20 25 |ad modul|e...", %|
|00005400| 55 06 06 6d 43 41 52 44 | 20 22 47 72 61 70 68 22 |U..mCARD| "Graph"|
|00005410| 2c 20 22 50 6c 6f 74 22 | 2c 25 70 2c 20 22 4d 65 |, "Plot"|,%p, "Me|
|00005420| 73 68 2e 2e 2e 22 2c 25 | 6d 2c 20 22 5a 6f 6f 6d |sh...",%|m, "Zoom|
|00005430| 22 2c 25 7a 2c 20 22 53 | 65 74 20 6f 72 69 67 69 |",%z, "S|et origi|
|00005440| 6e 22 2c 25 6f 2c 20 22 | 52 65 73 65 74 20 6f 72 |n",%o, "|Reset or|
|00005450| 69 67 69 6e 22 2c 20 25 | 4f 06 06 06 06 06 6d 43 |igin", %|O.....mC|
|00005460| 41 52 44 20 22 4f 70 74 | 69 6f 6e 73 22 2c 20 22 |ARD "Opt|ions", "|
|00005470| 4f 66 66 73 63 72 65 65 | 6e 22 2c 28 25 47 20 4f |Offscree|n",(%G O|
|00005480| 52 20 4f 53 4f 70 74 69 | 6f 6e 25 29 2c 20 22 44 |R OSOpti|on%), "D|
|00005490| 72 61 77 20 41 78 65 73 | 22 2c 28 25 78 20 4f 52 |raw Axes|",(%x OR|
|000054a0| 20 41 58 4f 70 74 69 6f | 6e 25 29 2c 20 22 4f 76 | AXOptio|n%), "Ov|
|000054b0| 65 72 70 72 69 6e 74 22 | 2c 28 25 76 20 4f 52 20 |erprint"|,(%v OR |
|000054c0| 4f 50 4f 70 74 69 6f 6e | 25 29 2c 20 22 53 68 6f |OPOption|%), "Sho|
|000054d0| 77 20 74 6f 6f 6c 62 61 | 72 22 2c 28 25 74 20 6f |w toolba|r",(%t o|
|000054e0| 72 20 54 62 4d 65 6e 75 | 53 79 6d 25 29 2c 20 22 |r TbMenu|Sym%), "|
|000054f0| 55 73 65 20 6c 69 6e 65 | 73 22 2c 20 28 25 71 20 |Use line|s", (%q |
|00005500| 6f 72 20 4c 49 4f 70 74 | 69 6f 6e 25 29 06 6d 43 |or LIOpt|ion%).mC|
|00005510| 41 52 44 20 22 48 65 6c | 70 22 2c 20 22 41 62 6f |ARD "Hel|p", "Abo|
|00005520| 75 74 2e 2e 2e 22 2c 20 | 25 61 06 45 4e 44 50 06 |ut...", |%a.ENDP.|
|00005530| 06 06 06 50 52 4f 43 20 | 47 65 74 46 75 6e 63 74 |...PROC |GetFunct|
|00005540| 69 6f 6e 24 3a 28 66 24 | 29 06 4c 4f 43 41 4c 20 |ion$:(f$|).LOCAL |
|00005550| 62 26 28 36 34 29 2c 20 | 74 24 28 32 35 35 29 2c |b&(64), |t$(255),|
|00005560| 20 6b 25 2c 20 69 25 2c | 20 70 26 06 06 50 4f 4b | k%, i%,| p&..POK|
|00005570| 45 24 20 41 44 44 52 28 | 62 26 28 29 29 2b 33 2c |E$ ADDR(|b&())+3,|
|00005580| 66 24 06 50 4f 4b 45 4c | 20 41 44 44 52 28 62 26 |f$.POKEL| ADDR(b&|
|00005590| 28 29 29 2c 20 4c 45 4e | 28 66 24 29 06 64 49 4e |()), LEN|(f$).dIN|
|000055a0| 49 54 20 22 46 75 6e 63 | 74 69 6f 6e 22 06 64 45 |IT "Func|tion".dE|
|000055b0| 44 49 54 4d 55 4c 54 49 | 20 41 44 44 52 28 62 26 |DITMULTI| ADDR(b&|
|000055c0| 28 29 29 2c 20 22 66 28 | 78 29 3d 22 2c 31 35 2c |()), "f(|x)=",15,|
|000055d0| 33 2c 32 35 35 06 64 42 | 55 54 54 4f 4e 53 20 22 |3,255.dB|UTTONS "|
|000055e0| 4f 4b 22 2c 25 6f 2c 22 | 43 61 6e 63 65 6c 22 2c |OK",%o,"|Cancel",|
|000055f0| 4b 4b 65 79 45 73 63 25 | 06 6b 25 3d 44 49 41 4c |KKeyEsc%|.k%=DIAL|
|00005600| 4f 47 06 49 46 20 6b 25 | 3d 25 6f 06 74 24 3d 62 |OG.IF k%|=%o.t$=b|
|00005610| 75 66 24 3a 28 41 44 44 | 52 28 62 26 28 29 29 29 |uf$:(ADD|R(b&()))|
|00005620| 06 06 69 25 3d 31 06 70 | 26 3d 41 44 44 52 28 74 |..i%=1.p|&=ADDR(t|
|00005630| 24 29 06 57 48 49 4c 45 | 20 69 25 3c 3d 4c 45 4e |$).WHILE| i%<=LEN|
|00005640| 28 74 24 29 06 49 46 20 | 50 45 45 4b 42 28 70 26 |(t$).IF |PEEKB(p&|
|00005650| 2b 69 25 29 20 3c 20 33 | 32 06 50 4f 4b 45 42 20 |+i%) < 3|2.POKEB |
|00005660| 70 26 2b 69 25 2c 33 32 | 06 45 4e 44 49 46 06 69 |p&+i%,32|.ENDIF.i|
|00005670| 25 3d 69 25 2b 31 06 45 | 4e 44 57 48 06 52 45 54 |%=i%+1.E|NDWH.RET|
|00005680| 55 52 4e 20 74 24 06 45 | 4c 53 45 06 52 45 54 55 |URN t$.E|LSE.RETU|
|00005690| 52 4e 20 66 24 06 45 4e | 44 49 46 06 45 4e 44 50 |RN f$.EN|DIF.ENDP|
|000056a0| 06 06 06 50 52 4f 43 20 | 47 65 74 52 61 6e 67 65 |...PROC |GetRange|
|000056b0| 3a 06 45 58 54 45 52 4e | 41 4c 20 52 4d 69 6e 2c |:.EXTERN|AL RMin,|
|000056c0| 20 52 4d 61 78 06 64 49 | 4e 49 54 20 22 53 65 6c | RMax.dI|NIT "Sel|
|000056d0| 65 63 74 20 52 61 6e 67 | 65 20 6f 66 20 78 22 06 |ect Rang|e of x".|
|000056e0| 64 46 4c 4f 41 54 20 52 | 4d 69 6e 2c 20 22 20 46 |dFLOAT R|Min, " F|
|000056f0| 72 6f 6d 20 22 2c 20 2d | 31 30 30 2c 20 31 30 30 |rom ", -|100, 100|
|00005700| 06 64 46 4c 4f 41 54 20 | 52 4d 61 78 2c 20 22 20 |.dFLOAT |RMax, " |
|00005710| 54 6f 20 22 2c 20 2d 31 | 30 30 2c 20 31 30 30 06 |To ", -1|00, 100.|
|00005720| 64 42 75 74 74 6f 6e 73 | 20 22 4f 4b 22 2c 4b 4b |dButtons| "OK",KK|
|00005730| 65 79 45 6e 74 65 72 25 | 2c 22 43 61 6e 63 65 6c |eyEnter%|,"Cancel|
|00005740| 22 2c 4b 4b 65 79 45 73 | 63 25 06 44 49 41 4c 4f |",KKeyEs|c%.DIALO|
|00005750| 47 06 45 4e 44 50 06 06 | 06 50 52 4f 43 20 47 65 |G.ENDP..|.PROC Ge|
|00005760| 74 4d 65 73 68 3a 06 45 | 58 54 45 52 4e 41 4c 20 |tMesh:.E|XTERNAL |
|00005770| 4d 65 73 68 26 2c 20 57 | 69 6e 57 25 06 64 49 4e |Mesh&, W|inW%.dIN|
|00005780| 49 54 20 22 4d 65 73 68 | 20 67 72 61 6e 75 6c 61 |IT "Mesh| granula|
|00005790| 72 69 74 79 22 06 64 4c | 4f 4e 47 20 4d 65 73 68 |rity".dL|ONG Mesh|
|000057a0| 26 2c 22 4d 65 73 68 3a | 22 2c 31 2c 57 69 6e 57 |&,"Mesh:|",1,WinW|
|000057b0| 25 06 64 42 75 74 74 6f | 6e 73 20 22 4f 4b 22 2c |%.dButto|ns "OK",|
|000057c0| 4b 4b 65 79 45 6e 74 65 | 72 25 2c 22 43 61 6e 63 |KKeyEnte|r%,"Canc|
|000057d0| 65 6c 22 2c 4b 4b 65 79 | 45 73 63 25 06 44 49 41 |el",KKey|Esc%.DIA|
|000057e0| 4c 4f 47 06 45 4e 44 50 | 06 06 06 50 52 4f 43 20 |LOG.ENDP|...PROC |
|000057f0| 47 65 74 5a 6f 6f 6d 3a | 06 45 58 54 45 52 4e 41 |GetZoom:|.EXTERNA|
|00005800| 4c 20 5a 6f 6f 6d 2c 20 | 57 69 6e 57 25 06 4c 4f |L Zoom, |WinW%.LO|
|00005810| 43 41 4c 20 7a 26 06 7a | 26 3d 5a 6f 6f 6d 06 64 |CAL z&.z|&=Zoom.d|
|00005820| 49 4e 49 54 20 22 5a 6f | 6f 6d 6c 65 76 65 6c 22 |INIT "Zo|omlevel"|
|00005830| 06 64 4c 4f 4e 47 20 7a | 26 2c 20 22 5a 6f 6f 6d |.dLONG z|&, "Zoom|
|00005840| 3a 22 2c 20 2d 4d 61 78 | 5a 6f 6f 6d 25 2c 20 4d |:", -Max|Zoom%, M|
|00005850| 61 78 5a 6f 6f 6d 25 06 | 64 42 75 74 74 6f 6e 73 |axZoom%.|dButtons|
|00005860| 20 22 4f 4b 22 2c 4b 4b | 65 79 45 6e 74 65 72 25 | "OK",KK|eyEnter%|
|00005870| 2c 22 43 61 6e 63 65 6c | 22 2c 4b 4b 65 79 45 73 |,"Cancel|",KKeyEs|
|00005880| 63 25 06 49 46 20 44 49 | 41 4c 4f 47 06 49 46 20 |c%.IF DI|ALOG.IF |
|00005890| 7a 26 3d 30 06 7a 26 3d | 31 06 45 4e 44 49 46 06 |z&=0.z&=|1.ENDIF.|
|000058a0| 5a 6f 6f 6d 3d 7a 26 06 | 45 4e 44 49 46 06 45 4e |Zoom=z&.|ENDIF.EN|
|000058b0| 44 50 06 06 06 50 52 4f | 43 20 47 65 74 43 65 6e |DP...PRO|C GetCen|
|000058c0| 74 65 72 3a 06 45 58 54 | 45 52 4e 41 4c 20 58 43 |ter:.EXT|ERNAL XC|
|000058d0| 65 6e 74 25 2c 20 59 43 | 65 6e 74 25 06 4c 4f 43 |ent%, YC|ent%.LOC|
|000058e0| 41 4c 20 65 76 26 28 31 | 36 29 2c 20 64 6f 6e 65 |AL ev&(1|6), done|
|000058f0| 25 06 42 55 53 59 20 22 | 54 61 70 20 6e 65 77 20 |%.BUSY "|Tap new |
|00005900| 6f 72 69 67 69 6e 22 06 | 64 6f 6e 65 25 3d 4b 46 |origin".|done%=KF|
|00005910| 61 6c 73 65 25 06 44 4f | 06 47 45 54 45 56 45 4e |alse%.DO|.GETEVEN|
|00005920| 54 33 32 20 65 76 26 28 | 29 06 49 46 20 65 76 26 |T32 ev&(|).IF ev&|
|00005930| 28 4b 45 76 41 54 79 70 | 65 25 29 3d 4b 45 76 50 |(KEvATyp|e%)=KEvP|
|00005940| 74 72 26 06 58 43 65 6e | 74 25 3d 65 76 26 28 4b |tr&.XCen|t%=ev&(K|
|00005950| 45 76 41 50 74 72 50 6f | 73 69 74 69 6f 6e 58 25 |EvAPtrPo|sitionX%|
|00005960| 29 06 59 43 65 6e 74 25 | 3d 65 76 26 28 4b 45 76 |).YCent%|=ev&(KEv|
|00005970| 41 50 74 72 50 6f 73 69 | 74 69 6f 6e 59 25 29 06 |APtrPosi|tionY%).|
|00005980| 44 6f 6e 65 25 3d 4b 54 | 72 75 65 25 06 45 4c 53 |Done%=KT|rue%.ELS|
|00005990| 45 49 46 20 65 76 26 28 | 4b 45 76 41 54 79 70 65 |EIF ev&(|KEvAType|
|000059a0| 25 29 3d 4b 45 76 4b 65 | 79 44 6f 77 6e 26 06 44 |%)=KEvKe|yDown&.D|
|000059b0| 6f 6e 65 25 20 3d 20 65 | 76 26 28 33 29 3d 34 06 |one% = e|v&(3)=4.|
|000059c0| 45 4e 44 49 46 06 55 4e | 54 49 4c 20 44 6f 6e 65 |ENDIF.UN|TIL Done|
|000059d0| 25 06 42 55 53 59 20 4f | 46 46 06 45 4e 44 50 06 |%.BUSY O|FF.ENDP.|
|000059e0| 06 50 52 4f 43 20 4c 6f | 61 64 4d 6f 64 75 6c 65 |.PROC Lo|adModule|
|000059f0| 3a 06 45 58 54 45 52 4e | 41 4c 20 4c 6f 61 64 65 |:.EXTERN|AL Loade|
|00005a00| 64 4d 6f 64 75 6c 65 73 | 24 28 29 06 4c 4f 43 41 |dModules|$().LOCA|
|00005a10| 4c 20 66 69 6c 65 24 28 | 32 35 35 29 2c 20 66 72 |L file$(|255), fr|
|00005a20| 65 65 25 06 66 72 65 65 | 25 3d 31 06 57 48 49 4c |ee%.free|%=1.WHIL|
|00005a30| 45 20 28 66 72 65 65 25 | 3c 39 29 20 41 4e 44 20 |E (free%|<9) AND |
|00005a40| 28 4c 6f 61 64 65 64 4d | 6f 64 75 6c 65 73 24 28 |(LoadedM|odules$(|
|00005a50| 66 72 65 65 25 29 3c 3e | 22 22 29 06 66 72 65 65 |free%)<>|"").free|
|00005a60| 25 3d 66 72 65 65 25 2b | 31 06 45 4e 44 57 48 06 |%=free%+|1.ENDWH.|
|00005a70| 49 46 20 66 72 65 65 25 | 3d 39 06 41 4c 45 52 54 |IF free%|=9.ALERT|
|00005a80| 28 22 43 61 6e 27 74 20 | 6c 6f 61 64 20 61 6e 79 |("Can't |load any|
|00005a90| 20 6d 6f 72 65 20 6d 6f | 64 75 6c 65 73 21 22 29 | more mo|dules!")|
|00005aa0| 06 52 45 54 55 52 4e 06 | 45 4e 44 49 46 06 64 49 |.RETURN.|ENDIF.dI|
|00005ab0| 4e 49 54 20 22 4c 6f 61 | 64 20 61 20 6d 6f 64 75 |NIT "Loa|d a modu|
|00005ac0| 6c 65 22 06 64 46 49 4c | 45 20 66 69 6c 65 24 2c |le".dFIL|E file$,|
|00005ad0| 20 22 46 69 6c 65 2c 46 | 6f 6c 64 65 72 2c 44 69 | "File,F|older,Di|
|00005ae0| 73 6b 22 2c 20 30 2c 20 | 30 2c 20 4b 55 69 64 4f |sk", 0, |0, KUidO|
|00005af0| 50 4f 26 2c 20 30 06 64 | 42 55 54 54 4f 4e 53 20 |PO&, 0.d|BUTTONS |
|00005b00| 22 43 61 6e 63 65 6c 22 | 2c 20 2d 4b 44 42 75 74 |"Cancel"|, -KDBut|
|00005b10| 74 6f 6e 45 73 63 25 2c | 20 22 4f 4b 22 2c 20 4b |tonEsc%,| "OK", K|
|00005b20| 44 42 75 74 74 6f 6e 45 | 6e 74 65 72 25 06 49 46 |DButtonE|nter%.IF|
|00005b30| 20 44 49 41 4c 4f 47 3c | 3e 30 06 4c 4f 41 44 4d | DIALOG<|>0.LOADM|
|00005b40| 28 66 69 6c 65 24 29 06 | 67 49 50 52 49 4e 54 20 |(file$).|gIPRINT |
|00005b50| 22 4c 6f 61 64 65 64 20 | 22 2b 66 69 6c 65 24 06 |"Loaded |"+file$.|
|00005b60| 4c 6f 61 64 65 64 4d 6f | 64 75 6c 65 73 24 28 66 |LoadedMo|dules$(f|
|00005b70| 72 65 65 25 29 3d 66 69 | 6c 65 24 06 45 4e 44 49 |ree%)=fi|le$.ENDI|
|00005b80| 46 06 45 4e 44 50 06 06 | 50 52 4f 43 20 55 6e 6c |F.ENDP..|PROC Unl|
|00005b90| 6f 61 64 4d 6f 64 75 6c | 65 3a 06 45 58 54 45 52 |oadModul|e:.EXTER|
|00005ba0| 4e 41 4c 20 4c 6f 61 64 | 65 64 4d 6f 64 75 6c 65 |NAL Load|edModule|
|00005bb0| 73 24 28 29 06 4c 4f 43 | 41 4c 20 72 65 6c 65 61 |s$().LOC|AL relea|
|00005bc0| 73 65 25 06 06 06 06 06 | 06 06 06 72 65 6c 65 61 |se%.....|...relea|
|00005bd0| 73 65 25 20 3d 20 6d 50 | 4f 50 55 50 28 30 2c 30 |se% = mP|OPUP(0,0|
|00005be0| 2c 30 2c 4c 6f 61 64 65 | 64 4d 6f 64 75 6c 65 73 |,0,Loade|dModules|
|00005bf0| 24 28 31 29 2c 31 2c 20 | 4c 6f 61 64 65 64 4d 6f |$(1),1, |LoadedMo|
|00005c00| 64 75 6c 65 73 24 28 32 | 29 2c 32 2c 20 4c 6f 61 |dules$(2|),2, Loa|
|00005c10| 64 65 64 4d 6f 64 75 6c | 65 73 24 28 33 29 2c 33 |dedModul|es$(3),3|
|00005c20| 2c 20 4c 6f 61 64 65 64 | 4d 6f 64 75 6c 65 73 24 |, Loaded|Modules$|
|00005c30| 28 34 29 2c 34 2c 20 4c | 6f 61 64 65 64 4d 6f 64 |(4),4, L|oadedMod|
|00005c40| 75 6c 65 73 24 28 35 29 | 2c 35 2c 20 4c 6f 61 64 |ules$(5)|,5, Load|
|00005c50| 65 64 4d 6f 64 75 6c 65 | 73 24 28 36 29 2c 36 2c |edModule|s$(6),6,|
|00005c60| 20 4c 6f 61 64 65 64 4d | 6f 64 75 6c 65 73 24 28 | LoadedM|odules$(|
|00005c70| 37 29 2c 37 2c 20 4c 6f | 61 64 65 64 4d 6f 64 75 |7),7, Lo|adedModu|
|00005c80| 6c 65 73 24 28 38 29 2c | 38 29 06 49 46 20 28 72 |les$(8),|8).IF (r|
|00005c90| 65 6c 65 61 73 65 25 3c | 3e 30 29 20 41 4e 44 20 |elease%<|>0) AND |
|00005ca0| 28 4c 6f 61 64 65 64 4d | 6f 64 75 6c 65 73 24 28 |(LoadedM|odules$(|
|00005cb0| 72 65 6c 65 61 73 65 25 | 29 3c 3e 22 22 29 06 55 |release%|)<>"").U|
|00005cc0| 4e 4c 4f 41 44 4d 28 4c | 6f 61 64 65 64 4d 6f 64 |NLOADM(L|oadedMod|
|00005cd0| 75 6c 65 73 24 28 72 65 | 6c 65 61 73 65 25 29 29 |ules$(re|lease%))|
|00005ce0| 06 67 49 50 52 49 4e 54 | 20 22 55 6e 6c 6f 61 64 |.gIPRINT| "Unload|
|00005cf0| 65 64 20 22 2b 4c 6f 61 | 64 65 64 4d 6f 64 75 6c |ed "+Loa|dedModul|
|00005d00| 65 73 24 28 72 65 6c 65 | 61 73 65 25 29 06 4c 6f |es$(rele|ase%).Lo|
|00005d10| 61 64 65 64 4d 6f 64 75 | 6c 65 73 24 28 72 65 6c |adedModu|les$(rel|
|00005d20| 65 61 73 65 25 29 3d 22 | 22 06 45 4e 44 49 46 06 |ease%)="|".ENDIF.|
|00005d30| 45 4e 44 50 06 06 06 06 | 06 50 52 4f 43 20 43 6d |ENDP....|.PROC Cm|
|00005d40| 64 50 25 3a 06 45 58 54 | 45 52 4e 41 4c 20 4f 76 |dP%:.EXT|ERNAL Ov|
|00005d50| 65 72 50 72 69 6e 74 25 | 2c 20 44 72 61 77 41 78 |erPrint%|, DrawAx|
|00005d60| 65 73 25 2c 20 66 24 2c | 20 6f 76 65 72 70 72 69 |es%, f$,| overpri|
|00005d70| 6e 74 63 6f 75 6e 74 25 | 06 49 46 20 4e 4f 54 20 |ntcount%|.IF NOT |
|00005d80| 4f 76 65 72 50 72 69 6e | 74 25 06 67 43 4c 53 06 |OverPrin|t%.gCLS.|
|00005d90| 6f 76 65 72 50 72 69 6e | 74 43 6f 75 6e 74 25 3d |overPrin|tCount%=|
|00005da0| 30 06 45 4e 44 49 46 06 | 49 46 20 44 72 61 77 41 |0.ENDIF.|IF DrawA|
|00005db0| 78 65 73 25 06 41 78 69 | 73 3a 06 45 4e 44 49 46 |xes%.Axi|s:.ENDIF|
|00005dc0| 06 43 61 70 74 69 6f 6e | 3a 06 50 6c 6f 74 46 75 |.Caption|:.PlotFu|
|00005dd0| 6e 63 74 69 6f 6e 3a 28 | 66 24 29 06 52 45 54 55 |nction:(|f$).RETU|
|00005de0| 52 4e 20 30 06 45 4e 44 | 50 06 06 06 50 52 4f 43 |RN 0.END|P...PROC|
|00005df0| 20 43 6d 64 46 25 3a 06 | 45 58 54 45 52 4e 41 4c | CmdF%:.|EXTERNAL|
|00005e00| 20 66 24 06 66 24 3d 47 | 65 74 46 75 6e 63 74 69 | f$.f$=G|etFuncti|
|00005e10| 6f 6e 24 3a 28 66 24 29 | 06 52 45 54 55 52 4e 20 |on$:(f$)|.RETURN |
|00005e20| 30 06 45 4e 44 50 06 06 | 06 50 52 4f 43 20 43 6d |0.ENDP..|.PROC Cm|
|00005e30| 64 52 25 3a 06 47 65 74 | 52 61 6e 67 65 3a 06 52 |dR%:.Get|Range:.R|
|00005e40| 45 54 55 52 4e 20 30 06 | 45 4e 44 50 06 06 06 50 |ETURN 0.|ENDP...P|
|00005e50| 52 4f 43 20 43 6d 64 45 | 25 3a 06 45 58 54 45 52 |ROC CmdE|%:.EXTER|
|00005e60| 4e 41 4c 20 51 75 69 74 | 46 6c 61 67 25 06 51 75 |NAL Quit|Flag%.Qu|
|00005e70| 69 74 46 6c 61 67 25 3d | 4b 54 72 75 65 25 06 52 |itFlag%=|KTrue%.R|
|00005e80| 65 74 75 72 6e 20 30 06 | 45 4e 44 50 06 06 06 06 |eturn 0.|ENDP....|
|00005e90| 06 06 06 06 45 58 54 45 | 52 4e 41 4c 20 47 72 61 |....EXTE|RNAL Gra|
|00005ea0| 70 68 5f 50 61 73 73 3a | 28 66 24 29 06 06 06 06 |ph_Pass:|(f$)....|
|00005eb0| 06 45 58 54 45 52 4e 41 | 4c 20 50 6c 6f 74 50 65 |.EXTERNA|L PlotPe|
|00005ec0| 72 6d 73 3a 28 70 25 2c | 6d 61 78 25 29 06 06 06 |rms:(p%,|max%)...|
|00005ed0| 06 06 06 06 06 50 52 4f | 43 20 50 6c 6f 74 46 75 |.....PRO|C PlotFu|
|00005ee0| 6e 63 74 69 6f 6e 3a 28 | 6f 72 69 67 24 29 06 47 |nction:(|orig$).G|
|00005ef0| 4c 4f 42 41 4c 20 66 24 | 28 32 35 35 29 2c 20 69 |LOBAL f$|(255), i|
|00005f00| 74 65 6d 73 25 28 32 35 | 35 29 06 4c 4f 43 41 4c |tems%(25|5).LOCAL|
|00005f10| 20 69 25 2c 20 6a 25 2c | 20 63 25 06 66 24 3d 6f | i%, j%,| c%.f$=o|
|00005f20| 72 69 67 24 06 69 25 3d | 31 06 6a 25 3d 31 06 06 |rig$.i%=|1.j%=1..|
|00005f30| 44 4f 06 63 25 3d 50 45 | 45 4b 42 28 41 44 44 52 |DO.c%=PE|EKB(ADDR|
|00005f40| 28 66 24 29 2b 69 25 29 | 06 49 46 20 63 25 20 3d |(f$)+i%)|.IF c% =|
|00005f50| 20 25 b1 06 69 74 65 6d | 73 25 28 6a 25 29 3d 69 | %..item|s%(j%)=i|
|00005f60| 25 06 6a 25 3d 6a 25 2b | 31 06 45 4e 44 49 46 06 |%.j%=j%+|1.ENDIF.|
|00005f70| 69 25 3d 69 25 2b 31 06 | 55 4e 54 49 4c 20 69 25 |i%=i%+1.|UNTIL i%|
|00005f80| 3d 4c 45 4e 28 6f 72 69 | 67 24 29 06 06 06 06 06 |=LEN(ori|g$).....|
|00005f90| 49 46 20 6a 25 3d 31 06 | 47 52 41 50 48 5f 50 41 |IF j%=1.|GRAPH_PA|
|00005fa0| 53 53 3a 28 66 24 29 06 | 45 4c 53 45 06 50 6c 6f |SS:(f$).|ELSE.Plo|
|00005fb0| 74 50 65 72 6d 73 3a 28 | 31 2c 6a 25 29 06 45 4e |tPerms:(|1,j%).EN|
|00005fc0| 44 49 46 06 45 4e 44 50 | 06 06 06 06 50 52 4f 43 |DIF.ENDP|....PROC|
|00005fd0| 20 50 6c 6f 74 50 65 72 | 6d 73 3a 28 70 25 2c 6d | PlotPer|ms:(p%,m|
|00005fe0| 61 78 25 29 06 45 58 54 | 45 52 4e 41 4c 20 66 24 |ax%).EXT|ERNAL f$|
|00005ff0| 2c 20 69 74 65 6d 73 25 | 28 29 06 06 06 49 46 20 |, items%|()...IF |
|00006000| 70 25 3d 6d 61 78 25 20 | 3a 20 52 45 54 55 52 4e |p%=max% |: RETURN|
|00006010| 20 3a 20 45 4e 44 49 46 | 06 06 06 49 46 20 70 25 | : ENDIF|...IF p%|
|00006020| 3d 31 20 4f 52 20 28 70 | 25 3e 31 20 41 4e 44 20 |=1 OR (p|%>1 AND |
|00006030| 28 50 45 45 4b 42 28 41 | 44 44 52 28 66 24 29 2b |(PEEKB(A|DDR(f$)+|
|00006040| 70 25 29 3d 25 28 20 29 | 29 06 50 4f 4b 45 42 20 |p%)=%( )|).POKEB |
|00006050| 41 44 44 52 28 66 24 29 | 2b 69 74 65 6d 73 25 28 |ADDR(f$)|+items%(|
|00006060| 70 25 29 2c 33 32 06 45 | 4c 53 45 06 50 4f 4b 45 |p%),32.E|LSE.POKE|
|00006070| 42 20 41 44 44 52 28 66 | 24 29 2b 69 74 65 6d 73 |B ADDR(f|$)+items|
|00006080| 25 28 70 25 29 2c 25 2b | 06 45 4e 44 49 46 06 50 |%(p%),%+|.ENDIF.P|
|00006090| 6c 6f 74 50 65 72 6d 73 | 3a 28 70 25 2b 31 2c 6d |lotPerms|:(p%+1,m|
|000060a0| 61 78 25 29 06 47 52 41 | 50 48 5f 50 41 53 53 3a |ax%).GRA|PH_PASS:|
|000060b0| 28 66 24 29 06 06 06 50 | 4f 4b 45 42 20 41 44 44 |(f$)...P|OKEB ADD|
|000060c0| 52 28 66 24 29 2b 69 74 | 65 6d 73 25 28 70 25 29 |R(f$)+it|ems%(p%)|
|000060d0| 2c 25 2d 06 50 6c 6f 74 | 50 65 72 6d 73 3a 28 70 |,%-.Plot|Perms:(p|
|000060e0| 25 2b 31 2c 6d 61 78 25 | 29 06 47 52 41 50 48 5f |%+1,max%|).GRAPH_|
|000060f0| 50 41 53 53 3a 28 66 24 | 29 06 45 4e 44 50 06 06 |PASS:(f$|).ENDP..|
|00006100| 06 06 06 50 52 4f 43 20 | 47 72 61 70 68 5f 50 61 |...PROC |Graph_Pa|
|00006110| 73 73 3a 28 66 24 29 06 | 45 58 54 45 52 4e 41 4c |ss:(f$).|EXTERNAL|
|00006120| 20 57 69 6e 48 25 2c 20 | 57 69 6e 57 25 2c 20 52 | WinH%, |WinW%, R|
|00006130| 4d 69 6e 2c 20 52 4d 61 | 78 2c 20 4d 65 73 68 26 |Min, RMa|x, Mesh&|
|00006140| 2c 20 44 72 61 77 57 69 | 6e 64 6f 77 25 06 45 58 |, DrawWi|ndow%.EX|
|00006150| 54 45 52 4e 41 4c 20 5a | 6f 6f 6d 2c 20 58 43 65 |TERNAL Z|oom, XCe|
|00006160| 6e 74 25 2c 20 59 43 65 | 6e 74 25 2c 20 4f 66 66 |nt%, YCe|nt%, Off|
|00006170| 73 63 72 65 65 6e 25 2c | 20 55 73 65 6c 69 6e 65 |screen%,| Useline|
|00006180| 73 25 06 47 4c 4f 42 41 | 4c 20 78 06 4c 4f 43 41 |s%.GLOBA|L x.LOCA|
|00006190| 4c 20 79 2c 20 6d 61 78 | 25 2c 20 69 73 4d 6f 76 |L y, max|%, isMov|
|000061a0| 65 25 2c 20 53 74 65 70 | 2c 20 53 63 61 6c 65 06 |e%, Step|, Scale.|
|000061b0| 06 53 74 65 70 20 3d 20 | 52 4d 61 78 2f 4d 65 73 |.Step = |RMax/Mes|
|000061c0| 68 26 06 49 46 20 5a 6f | 6f 6d 20 3e 20 30 06 53 |h&.IF Zo|om > 0.S|
|000061d0| 63 61 6c 65 20 3d 20 28 | 57 69 6e 57 25 2f 28 52 |cale = (|WinW%/(R|
|000061e0| 4d 61 78 2d 52 4d 69 6e | 29 29 20 2a 20 5a 6f 6f |Max-RMin|)) * Zoo|
|000061f0| 6d 06 45 4c 53 45 06 53 | 63 61 6c 65 20 3d 20 28 |m.ELSE.S|cale = (|
|00006200| 57 69 6e 57 25 2f 28 52 | 4d 61 78 2d 52 4d 69 6e |WinW%/(R|Max-RMin|
|00006210| 29 29 20 2f 20 28 2d 5a | 6f 6f 6d 29 06 45 4e 44 |)) / (-Z|oom).END|
|00006220| 49 46 06 06 69 73 4d 6f | 76 65 25 3d 4b 54 72 75 |IF..isMo|ve%=KTru|
|00006230| 65 25 06 78 3d 52 4d 69 | 6e 06 42 55 53 59 20 22 |e%.x=RMi|n.BUSY "|
|00006240| 50 6c 6f 74 74 69 6e 67 | 2e 2e 2e 22 06 4f 4e 45 |Plotting|...".ONE|
|00006250| 52 52 20 45 72 72 48 61 | 6e 64 6c 65 72 06 67 55 |RR ErrHa|ndler.gU|
|00006260| 53 45 20 44 72 61 77 57 | 69 6e 64 6f 77 25 06 06 |SE DrawW|indow%..|
|00006270| 06 06 57 48 49 4c 45 20 | 78 20 3c 3d 20 52 4d 61 |..WHILE |x <= RMa|
|00006280| 78 06 79 3d 28 45 56 41 | 4c 28 66 24 29 29 2a 53 |x.y=(EVA|L(f$))*S|
|00006290| 63 61 6c 65 06 49 46 20 | 28 79 43 65 6e 74 25 2d |cale.IF |(yCent%-|
|000062a0| 79 20 3e 20 28 57 69 6e | 48 25 2a 32 29 29 20 41 |y > (Win|H%*2)) A|
|000062b0| 4e 44 20 28 4e 4f 54 20 | 4f 66 66 73 63 72 65 65 |ND (NOT |Offscree|
|000062c0| 6e 25 29 06 69 73 4d 6f | 76 65 25 3d 4b 54 72 75 |n%).isMo|ve%=KTru|
|000062d0| 65 25 06 45 4e 44 49 46 | 06 49 46 20 69 73 4d 6f |e%.ENDIF|.IF isMo|
|000062e0| 76 65 25 06 67 41 54 20 | 28 78 2a 53 63 61 6c 65 |ve%.gAT |(x*Scale|
|000062f0| 29 2b 78 43 65 6e 74 25 | 2c 20 79 43 65 6e 74 25 |)+xCent%|, yCent%|
|00006300| 2d 79 06 69 73 4d 6f 76 | 65 25 3d 4b 46 61 6c 73 |-y.isMov|e%=KFals|
|00006310| 65 25 06 45 4c 53 45 49 | 46 20 55 73 65 4c 69 6e |e%.ELSEI|F UseLin|
|00006320| 65 73 25 06 47 4c 49 4e | 45 54 4f 20 28 78 2a 53 |es%.GLIN|ETO (x*S|
|00006330| 63 61 6c 65 29 2b 78 43 | 65 6e 74 25 2c 20 79 43 |cale)+xC|ent%, yC|
|00006340| 65 6e 74 25 2d 79 06 45 | 4c 53 45 06 67 41 54 20 |ent%-y.E|LSE.gAT |
|00006350| 28 78 2a 53 63 61 6c 65 | 29 2b 78 43 65 6e 74 25 |(x*Scale|)+xCent%|
|00006360| 2c 20 79 43 65 6e 74 25 | 2d 79 06 67 4c 49 4e 45 |, yCent%|-y.gLINE|
|00006370| 42 59 20 30 2c 20 30 06 | 45 4e 44 49 46 06 78 3d |BY 0, 0.|ENDIF.x=|
|00006380| 78 2b 53 74 65 70 06 43 | 4f 4e 54 49 4e 55 45 06 |x+Step.C|ONTINUE.|
|00006390| 06 45 72 72 48 61 6e 64 | 6c 65 72 3a 3a 06 06 06 |.ErrHand|ler::...|
|000063a0| 49 46 20 45 52 52 20 3d | 20 4b 45 72 72 44 69 76 |IF ERR =| KErrDiv|
|000063b0| 69 64 65 42 79 5a 65 72 | 6f 25 06 69 73 4d 6f 76 |ideByZer|o%.isMov|
|000063c0| 65 25 20 3d 20 4b 54 72 | 75 65 25 06 45 4c 53 45 |e% = KTr|ue%.ELSE|
|000063d0| 49 46 20 28 45 52 52 20 | 3d 20 4b 45 72 72 55 6e |IF (ERR |= KErrUn|
|000063e0| 64 65 72 66 6c 6f 77 25 | 29 20 4f 52 20 28 45 52 |derflow%|) OR (ER|
|000063f0| 52 20 3d 20 4b 45 72 72 | 4f 76 65 72 66 6c 6f 77 |R = KErr|Overflow|
+--------+-------------------------+-------------------------+--------+--------+