home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1994-09-24 | 15.8 KB | [TEXT/MSET] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: Instlmod.txt
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Sat Sep 24 19:58:50 1994, modified Sat Sep 24 19:58:50 1994, creator 'MSET', type ASCII, 15515 bytes "Instlmod.txt" , at 0x3d1b 375 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [MSET] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 49 6e 73 74 6c 6d | 6f 64 2e 74 78 74 00 00 |..Instlm|od.txt..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 3c 9b 00 | 00 01 77 aa aa 6d ba aa |.....<..|..w..m..|
|00000060| aa 6d ba 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.m......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 9e bf 00 00 |........|........|
|00000080| 5c 20 49 6e 73 74 61 6c | 6c 20 2d 20 4d 6f 70 73 |\ Instal|l - Mops|
|00000090| 20 76 65 72 73 69 6f 6e | 2e 0d 5c 20 4a 75 6c 79 | version|..\ July|
|000000a0| 20 39 30 09 09 53 61 76 | 65 20 6e 75 63 6c 65 75 | 90..Sav|e nucleu|
|000000b0| 73 20 69 6d 70 6c 65 6d | 65 6e 74 65 64 2e 0d 5c |s implem|ented..\|
|000000c0| 20 53 65 70 74 20 39 30 | 09 09 4e 65 63 65 73 73 | Sept 90|..Necess|
|000000d0| 61 72 79 20 6d 6f 64 20 | 66 6f 72 20 6f 75 72 20 |ary mod |for our |
|000000e0| 6e 65 77 20 22 73 74 61 | 72 74 75 70 22 20 43 4f |new "sta|rtup" CO|
|000000f0| 44 45 20 72 65 73 6f 75 | 72 63 65 2e 0d 5c 20 4f |DE resou|rce..\ O|
|00000100| 63 74 20 39 31 09 09 43 | 68 61 6e 67 65 64 20 74 |ct 91..C|hanged t|
|00000110| 6f 20 76 69 65 77 2f 77 | 69 6e 64 6f 77 2b 2e 0d |o view/w|indow+..|
|00000120| 5c 20 4d 61 79 20 39 32 | 09 09 43 68 61 6e 67 65 |\ May 92|..Change|
|00000130| 64 20 76 73 63 72 6f 6c | 6c 20 6f 62 6a 65 63 74 |d vscrol|l object|
|00000140| 73 20 61 63 63 6f 72 64 | 69 6e 67 20 74 6f 20 22 |s accord|ing to "|
|00000150| 6e 65 77 20 77 61 79 22 | 20 66 6f 72 20 63 6f 6e |new way"| for con|
|00000160| 74 72 6f 6c 73 2e 0d 0d | 6e 65 65 64 09 77 69 6e |trols...|need.win|
|00000170| 64 6f 77 2b 0d 0d 6b 6f | 6e 73 74 20 72 65 73 4c |dow+..ko|nst resL|
|00000180| 6f 63 6b 65 64 09 09 63 | 6f 6e 73 74 61 6e 74 09 |ocked..c|onstant.|
|00000190| 4c 4f 43 4b 45 44 0d 6b | 6f 6e 73 74 20 72 65 73 |LOCKED.k|onst res|
|000001a0| 50 75 72 67 65 61 62 6c | 65 09 63 6f 6e 73 74 61 |Purgeabl|e.consta|
|000001b0| 6e 74 09 50 55 52 47 45 | 41 42 4c 45 0d 0d 20 20 |nt.PURGE|ABLE.. |
|000001c0| 20 20 30 09 76 61 6c 75 | 65 09 09 43 55 52 53 54 | 0.valu|e..CURST|
|000001d0| 41 43 4b 0d 20 20 20 20 | 30 09 76 61 6c 75 65 09 |ACK. |0.value.|
|000001e0| 09 43 55 52 44 49 43 54 | 0d 0d 20 20 20 20 30 09 |.CURDICT|.. 0.|
|000001f0| 76 61 6c 75 65 09 09 48 | 45 41 50 41 56 41 49 4c |value..H|EAPAVAIL|
|00000200| 0d 66 61 6c 73 65 09 76 | 61 6c 75 65 09 09 47 4f |.false.v|alue..GO|
|00000210| 54 46 52 45 45 3f 0d 74 | 72 75 65 09 76 61 6c 75 |TFREE?.t|rue.valu|
|00000220| 65 09 09 53 41 56 45 3f | 0d 0d 20 20 20 20 30 09 |e..SAVE?|.. 0.|
|00000230| 76 61 6c 75 65 09 09 51 | 55 49 54 57 4f 52 44 0d |value..Q|UITWORD.|
|00000240| 20 20 20 20 30 09 76 61 | 6c 75 65 09 09 41 42 4f | 0.va|lue..ABO|
|00000250| 52 54 57 4f 52 44 0d 0d | 09 73 74 72 69 6e 67 2b |RTWORD..|.string+|
|00000260| 09 09 24 54 4d 50 0d 0d | 09 69 6e 74 09 09 41 50 |..$TMP..|.int..AP|
|00000270| 52 45 46 4e 55 4d 0d 09 | 76 61 72 09 09 41 50 50 |REFNUM..|var..APP|
|00000280| 41 52 41 4d 0d 0d 20 20 | 20 20 32 31 09 64 69 61 |ARAM.. | 21.dia|
|00000290| 6c 6f 67 09 09 49 44 4c | 47 0d 0d 3a 20 4e 4f 47 |log..IDL|G..: NOG|
|000002a0| 4f 09 33 20 62 65 65 70 | 20 20 33 20 62 65 65 70 |O.3 beep| 3 beep|
|000002b0| 20 20 63 6c 6f 73 65 3a | 20 69 44 6c 67 20 20 73 | close:| iDlg s|
|000002c0| 65 74 3a 20 66 57 69 6e | 64 0d 09 63 72 20 2e 22 |et: fWin|d..cr ."|
|000002d0| 20 52 65 73 20 65 72 72 | 6f 72 23 20 22 20 2e 0d | Res err|or# " ..|
|000002e0| 09 63 72 20 2e 22 20 54 | 79 70 65 20 61 6e 79 20 |.cr ." T|ype any |
|000002f0| 6b 65 79 20 74 6f 20 72 | 65 74 75 72 6e 20 74 6f |key to r|eturn to|
|00000300| 20 46 69 6e 64 65 72 2c | 20 68 6f 70 65 66 75 6c | Finder,| hopeful|
|00000310| 6c 79 22 0d 09 6b 65 79 | 20 20 62 79 65 20 20 3b |ly"..key| bye ;|
|00000320| 0d 0d 3a 20 43 48 4b 09 | 77 6f 72 64 30 20 20 63 |..: CHK.|word0 c|
|00000330| 61 6c 6c 20 72 65 73 65 | 72 72 6f 72 20 20 69 2d |all rese|rror i-|
|00000340| 3e 6c 20 20 3f 64 75 70 | 0d 09 49 46 20 20 6e 6f |>l ?dup|..IF no|
|00000350| 67 6f 20 20 54 48 45 4e | 20 20 3b 0d 0d 27 20 6e |go THEN| ;..' n|
|00000360| 75 6c 6c 09 76 65 63 74 | 09 54 45 4d 50 0d 0d 3a |ull.vect|.TEMP..:|
|00000370| 20 4f 4e 45 52 52 4f 52 | 09 09 5c 20 28 20 65 72 | ONERROR|..\ ( er|
|00000380| 72 43 66 61 20 2d 2d 20 | 29 0d 09 09 5c 20 48 65 |rCfa -- |)...\ He|
|00000390| 72 65 20 77 65 20 74 65 | 6d 70 6f 72 61 72 69 6c |re we te|mporaril|
|000003a0| 79 20 73 65 74 20 74 68 | 65 20 65 72 72 6f 72 20 |y set th|e error |
|000003b0| 76 65 63 74 6f 72 73 2e | 20 20 54 68 69 73 20 69 |vectors.| This i|
|000003c0| 73 20 6e 6f 72 6d 61 6c | 6c 79 0d 09 09 5c 20 69 |s normal|ly...\ i|
|000003d0| 6c 6c 65 67 61 6c 20 73 | 69 6e 63 65 20 77 65 27 |llegal s|ince we'|
|000003e0| 72 65 20 69 6e 20 61 20 | 6d 6f 64 75 6c 65 20 61 |re in a |module a|
|000003f0| 6e 64 20 74 68 65 20 76 | 65 63 74 6f 72 73 20 61 |nd the v|ectors a|
|00000400| 72 65 20 6e 6f 74 2e 20 | 20 42 75 74 0d 09 09 5c |re not. | But...\|
|00000410| 20 77 65 27 72 65 20 73 | 61 66 65 20 68 65 72 65 | we're s|afe here|
|00000420| 2c 20 73 6f 20 77 65 20 | 6b 6c 75 64 67 65 20 69 |, so we |kludge i|
|00000430| 74 2e 0d 09 2d 3e 20 74 | 65 6d 70 09 09 5c 20 53 |t...-> t|emp..\ S|
|00000440| 74 6f 72 65 20 74 6f 20 | 61 6e 20 69 6e 74 65 72 |tore to |an inter|
|00000450| 6e 61 6c 20 76 65 63 74 | 2c 20 63 6f 6e 76 65 72 |nal vect|, conver|
|00000460| 74 20 74 6f 20 72 65 6c | 6f 63 0d 09 5b 27 5d 20 |t to rel|oc..['] |
|00000470| 74 65 6d 70 20 40 20 20 | 64 75 70 20 20 5b 27 5d |temp @ |dup [']|
|00000480| 20 61 62 6f 72 74 76 65 | 63 20 21 20 20 5b 27 5d | abortve|c ! [']|
|00000490| 20 64 66 6c 74 2d 64 69 | 65 20 21 20 20 3b 0d 0d | dflt-di|e ! ;..|
|000004a0| 5c 20 43 6c 61 73 73 20 | 52 45 53 2b 20 61 64 64 |\ Class |RES+ add|
|000004b0| 73 20 6d 65 74 68 6f 64 | 73 20 74 6f 20 52 65 73 |s method|s to Res|
|000004c0| 6f 75 72 63 65 20 74 6f | 20 61 6c 6c 6f 77 20 76 |ource to| allow v|
|000004d0| 61 72 69 6f 75 73 20 6d | 6f 64 69 66 69 63 61 74 |arious m|odificat|
|000004e0| 69 6f 6e 73 0d 5c 20 74 | 6f 20 72 65 73 6f 75 72 |ions.\ t|o resour|
|000004f0| 63 65 73 2e 20 20 57 65 | 27 6c 6c 20 70 75 74 20 |ces. We|'ll put |
|00000500| 6d 6f 72 65 20 69 6e 20 | 61 73 20 77 65 20 6e 65 |more in |as we ne|
|00000510| 65 64 20 74 68 65 6d 2e | 0d 0d 3a 63 6c 61 73 73 |ed them.|..:class|
|00000520| 09 52 45 53 2b 09 73 75 | 70 65 72 7b 20 72 65 73 |.RES+.su|per{ res|
|00000530| 6f 75 72 63 65 20 7d 0d | 0d 6f 62 6a 50 74 72 09 |ource }.|.objPtr.|
|00000540| 54 45 4d 50 52 45 53 20 | 20 63 6c 61 73 73 5f 69 |TEMPRES | class_i|
|00000550| 73 20 20 72 65 73 2b 0d | 0d 3a 6d 20 43 48 41 4e |s res+.|.:m CHAN|
|00000560| 47 45 44 3a 09 67 65 74 | 3a 20 73 65 6c 66 20 20 |GED:.get|: self |
|00000570| 63 61 6c 6c 20 43 68 61 | 6e 67 65 64 52 65 73 6f |call Cha|ngedReso|
|00000580| 75 72 63 65 20 20 3b 6d | 0d 0d 3a 6d 20 41 44 44 |urce ;m|..:m ADD|
|00000590| 52 45 53 3a 20 20 7b 20 | 73 32 35 35 20 2d 2d 20 |RES: { |s255 -- |
|000005a0| 7d 0d 09 67 65 74 3a 20 | 73 65 6c 66 0d 09 67 65 |}..get: |self..ge|
|000005b0| 74 3a 20 72 65 73 54 79 | 70 65 20 20 67 65 74 3a |t: resTy|pe get:|
|000005c0| 20 49 44 20 20 6d 61 6b | 65 69 6e 74 0d 09 73 32 | ID mak|eint..s2|
|000005d0| 35 35 20 20 63 61 6c 6c | 20 41 64 64 52 65 73 6f |55 call| AddReso|
|000005e0| 75 72 63 65 20 20 63 68 | 6b 20 20 3b 6d 0d 0d 3a |urce ch|k ;m..:|
|000005f0| 6d 20 43 48 41 4e 47 45 | 54 4f 3a 09 5c 20 28 20 |m CHANGE|TO:.\ ( |
|00000600| 72 65 73 20 2d 2d 20 29 | 0d 09 2d 3e 20 74 65 6d |res -- )|..-> tem|
|00000610| 70 52 65 73 0d 09 67 65 | 74 3a 20 74 65 6d 70 52 |pRes..ge|t: tempR|
|00000620| 65 73 20 20 64 75 70 20 | 20 63 61 6c 6c 20 44 65 |es dup | call De|
|00000630| 74 61 63 68 52 65 73 6f | 75 72 63 65 20 20 70 75 |tachReso|urce pu|
|00000640| 74 3a 20 73 65 6c 66 20 | 20 3b 6d 0d 0d 3a 6d 20 |t: self | ;m..:m |
|00000650| 53 45 54 41 54 54 52 53 | 3a 09 5c 20 28 20 6e 20 |SETATTRS|:.\ ( n |
|00000660| 2d 2d 20 29 0d 09 67 65 | 74 3a 20 73 65 6c 66 20 |-- )..ge|t: self |
|00000670| 20 73 77 61 70 20 20 6d | 61 6b 65 69 6e 74 20 20 | swap m|akeint |
|00000680| 63 61 6c 6c 20 53 65 74 | 52 65 73 41 74 74 72 73 |call Set|ResAttrs|
|00000690| 20 20 63 68 6b 0d 09 63 | 68 61 6e 67 65 64 3a 20 | chk..c|hanged: |
|000006a0| 73 65 6c 66 20 20 3b 6d | 0d 0d 3b 63 6c 61 73 73 |self ;m|..;class|
|000006b0| 0d 0d 09 72 65 73 2b 09 | 53 52 43 52 45 53 0d 09 |...res+.|SRCRES..|
|000006c0| 72 65 73 2b 09 44 53 54 | 52 45 53 0d 0d 3a 20 43 |res+.DST|RES..: C|
|000006d0| 4f 50 59 52 45 53 09 5c | 20 28 20 74 79 70 65 20 |OPYRES.\| ( type |
|000006e0| 72 65 73 49 44 20 2d 2d | 20 29 20 20 43 6f 70 69 |resID --| ) Copi|
|000006f0| 65 73 20 74 68 65 20 72 | 65 73 6f 75 72 63 65 20 |es the r|esource |
|00000700| 62 79 20 63 6f 70 79 69 | 6e 67 0d 09 09 09 5c 20 |by copyi|ng....\ |
|00000710| 20 74 68 65 20 68 61 6e | 64 6c 65 27 73 20 64 61 | the han|dle's da|
|00000720| 74 61 20 69 6e 20 6d 65 | 6d 6f 72 79 2e 20 20 55 |ta in me|mory. U|
|00000730| 73 65 20 74 68 69 73 20 | 6f 6e 65 20 66 6f 72 20 |se this |one for |
|00000740| 72 65 73 6f 75 72 63 65 | 73 0d 09 09 09 5c 20 20 |resource|s....\ |
|00000750| 63 75 72 72 65 6e 74 6c | 79 20 69 6e 20 75 73 65 |currentl|y in use|
|00000760| 2e 0d 09 09 09 0d 09 32 | 64 75 70 20 20 73 65 74 |.......2|dup set|
|00000770| 3a 20 73 72 63 52 65 73 | 20 20 73 65 74 3a 20 64 |: srcRes| set: d|
|00000780| 73 74 52 65 73 0d 09 67 | 65 74 6e 65 77 3a 20 73 |stRes..g|etnew: s|
|00000790| 72 63 52 65 73 20 20 63 | 68 6b 20 20 73 72 63 52 |rcRes c|hk srcR|
|000007a0| 65 73 20 2d 3e 3a 20 64 | 73 74 52 65 73 0d 09 6e |es ->: d|stRes..n|
|000007b0| 75 6c 6c 4f 53 73 74 72 | 20 20 61 64 64 52 65 73 |ullOSstr| addRes|
|000007c0| 3a 20 64 73 74 52 65 73 | 20 20 63 68 6b 20 20 3b |: dstRes| chk ;|
|000007d0| 0d 0d 0d 3a 20 43 48 41 | 4e 47 45 52 45 53 09 5c |...: CHA|NGERES.\|
|000007e0| 20 28 20 74 79 70 65 20 | 72 65 73 49 44 20 2d 2d | ( type |resID --|
|000007f0| 20 29 20 20 43 6f 70 69 | 65 73 20 74 68 65 20 72 | ) Copi|es the r|
|00000800| 65 73 6f 75 72 63 65 20 | 62 79 20 64 65 74 61 63 |esource |by detac|
|00000810| 68 69 6e 67 20 69 74 73 | 0d 09 09 5c 20 20 68 61 |hing its|...\ ha|
|00000820| 6e 64 6c 65 20 61 6e 64 | 20 61 74 74 61 63 68 69 |ndle and| attachi|
|00000830| 6e 67 20 69 74 20 74 6f | 20 74 68 65 20 6e 65 77 |ng it to| the new|
|00000840| 20 72 65 73 6f 75 72 63 | 65 2e 20 20 55 73 65 20 | resourc|e. Use |
|00000850| 74 68 69 73 0d 09 09 5c | 20 20 6f 6e 65 20 66 6f |this...\| one fo|
|00000860| 72 20 72 65 73 6f 75 72 | 63 65 73 20 6e 6f 74 20 |r resour|ces not |
|00000870| 69 6e 20 75 73 65 20 2d | 20 69 74 20 68 61 73 20 |in use -| it has |
|00000880| 6c 65 73 73 20 6f 76 65 | 72 68 65 61 64 2e 0d 09 |less ove|rhead...|
|00000890| 32 64 75 70 20 20 73 65 | 74 3a 20 73 72 63 52 65 |2dup se|t: srcRe|
|000008a0| 73 20 20 73 65 74 3a 20 | 64 73 74 52 65 73 0d 09 |s set: |dstRes..|
|000008b0| 67 65 74 6e 65 77 3a 20 | 73 72 63 52 65 73 20 20 |getnew: |srcRes |
|000008c0| 63 68 6b 20 20 73 72 63 | 52 65 73 20 63 68 61 6e |chk src|Res chan|
|000008d0| 67 65 54 6f 3a 20 64 73 | 74 52 65 73 0d 09 6e 75 |geTo: ds|tRes..nu|
|000008e0| 6c 6c 4f 53 73 74 72 20 | 20 61 64 64 52 65 73 3a |llOSstr | addRes:|
|000008f0| 20 64 73 74 52 65 73 20 | 20 63 68 6b 20 20 3b 0d | dstRes | chk ;.|
|00000900| 0d 3a 20 21 53 54 41 43 | 4b 09 63 75 72 53 74 61 |.: !STAC|K.curSta|
|00000910| 63 6b 20 2d 3e 20 73 74 | 6b 53 70 61 63 65 20 20 |ck -> st|kSpace |
|00000920| 3b 0d 0d 3a 20 40 48 45 | 41 50 09 09 5c 20 52 65 |;..: @HE|AP..\ Re|
|00000930| 74 75 72 6e 73 20 73 74 | 61 72 74 69 6e 67 20 68 |turns st|arting h|
|00000940| 65 61 70 20 73 69 7a 65 | 20 66 6f 72 20 74 68 69 |eap size| for thi|
|00000950| 73 20 6e 75 63 6c 65 75 | 73 2e 0d 09 67 6f 74 46 |s nucleu|s...gotF|
|00000960| 72 65 65 3f 20 20 4e 49 | 46 20 20 66 72 65 65 20 |ree? NI|F free |
|00000970| 20 2d 3e 20 68 65 61 70 | 41 76 61 69 6c 20 20 74 | -> heap|Avail t|
|00000980| 72 75 65 20 2d 3e 20 67 | 6f 74 46 72 65 65 3f 20 |rue -> g|otFree? |
|00000990| 20 54 48 45 4e 0d 09 68 | 65 61 70 41 76 61 69 6c | THEN..h|eapAvail|
|000009a0| 20 20 3b 0d 0d 3a 20 43 | 55 52 48 45 41 50 09 09 | ;..: C|URHEAP..|
|000009b0| 5c 20 43 6f 6d 70 75 74 | 65 73 20 61 6d 6f 75 6e |\ Comput|es amoun|
|000009c0| 74 20 6f 66 20 68 65 61 | 70 20 61 76 61 69 6c 61 |t of hea|p availa|
|000009d0| 62 6c 65 20 66 6f 72 20 | 63 75 72 72 65 6e 74 20 |ble for |current |
|000009e0| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 2e 0d 09 |configur|ation...|
|000009f0| 40 68 65 61 70 20 20 73 | 74 6b 73 70 61 63 65 20 |@heap s|tkspace |
|00000a00| 63 75 72 53 74 61 63 6b | 20 2d 20 2b 20 20 72 6f |curStack| - + ro|
|00000a10| 6f 6d 20 63 75 72 44 69 | 63 74 20 2d 20 2b 20 20 |om curDi|ct - + |
|00000a20| 3b 0d 0d 3a 20 53 45 54 | 4d 45 4d 09 09 5c 20 53 |;..: SET|MEM..\ S|
|00000a30| 65 74 73 20 6e 75 63 6c | 65 75 73 20 73 74 61 63 |ets nucl|eus stac|
|00000a40| 6b 20 74 6f 20 73 65 6c | 65 63 74 65 64 20 76 61 |k to sel|ected va|
|00000a50| 6c 75 65 73 0d 09 21 73 | 74 61 63 6b 0d 09 63 75 |lues..!s|tack..cu|
|00000a60| 72 44 69 63 74 20 2d 3e | 20 6d 61 78 64 69 63 20 |rDict ->| maxdic |
|00000a70| 20 3b 0d 0d 3a 20 69 4d | 73 67 09 09 5c 20 28 20 | ;..: iM|sg..\ ( |
|00000a80| 61 64 64 72 31 20 6c 65 | 6e 31 20 61 64 64 72 32 |addr1 le|n1 addr2|
|00000a90| 20 6c 65 6e 32 20 2d 2d | 20 29 20 20 47 69 76 65 | len2 --| ) Give|
|00000aa0| 73 20 69 6e 66 6f 72 6d | 61 74 6f 72 79 20 6d 65 |s inform|atory me|
|00000ab0| 73 73 61 67 65 0d 09 22 | 20 20 22 20 22 20 20 22 |ssage.."| " " "|
|00000ac0| 20 50 61 72 61 6d 54 65 | 78 74 20 64 72 61 77 3a | ParamTe|xt draw:|
|00000ad0| 20 69 44 6c 67 20 20 3b | 0d 0d 3a 20 43 68 52 09 | iDlg ;|..: ChR.|
|00000ae0| 09 5c 20 28 20 68 61 6e | 64 6c 65 20 2d 2d 20 68 |.\ ( han|dle -- h|
|00000af0| 61 6e 64 6c 65 20 29 20 | 20 4d 61 72 6b 73 20 74 |andle ) | Marks t|
|00000b00| 68 65 20 72 65 73 6f 75 | 72 63 65 20 66 6f 72 20 |he resou|rce for |
|00000b10| 75 70 64 61 74 65 20 74 | 6f 20 64 69 73 6b 0d 09 |update t|o disk..|
|00000b20| 64 75 70 20 63 61 6c 6c | 20 43 68 61 6e 67 65 64 |dup call| Changed|
|00000b30| 52 65 73 6f 75 72 63 65 | 20 20 3b 0d 0d 6f 62 6a |Resource| ;..obj|
|00000b40| 50 74 72 09 74 68 65 4d | 6f 64 20 20 63 6c 61 73 |Ptr.theM|od clas|
|00000b50| 73 5f 69 73 20 20 6d 6f | 64 75 6c 65 0d 68 61 6e |s_is mo|dule.han|
|00000b60| 64 6c 65 09 4d 6f 64 48 | 64 6c 0d 0d 3a 20 28 41 |dle.ModH|dl..: (A|
|00000b70| 44 44 4d 4f 44 29 20 20 | 7b 20 74 68 65 43 66 61 |DDMOD) |{ theCfa|
|00000b80| 20 6e 20 5c 20 49 44 20 | 2d 2d 20 7d 0d 09 74 68 | n \ ID |-- }..th|
|00000b90| 65 43 66 61 20 6d 6f 64 | 3f 20 20 4e 49 46 20 20 |eCfa mod|? NIF |
|00000ba0| 64 72 6f 70 20 20 45 58 | 49 54 20 20 54 48 45 4e |drop EX|IT THEN|
|00000bb0| 0d 09 3e 6f 62 6a 20 2d | 3e 20 74 68 65 4d 6f 64 |..>obj -|> theMod|
|00000bc0| 0d 09 69 6e 73 74 61 6c | 6c 3f 3a 20 74 68 65 4d |..instal|l?: theM|
|00000bd0| 6f 64 20 20 30 45 58 49 | 54 09 5c 20 4f 75 74 20 |od 0EXI|T.\ Out |
|00000be0| 69 66 20 6e 6f 74 20 74 | 6f 20 69 6e 73 74 61 6c |if not t|o instal|
|00000bf0| 6c 20 74 68 69 73 20 6d | 6f 64 0d 09 22 20 6d 6f |l this m|od.." mo|
|00000c00| 64 75 6c 65 3a 22 20 20 | 74 68 65 43 66 61 20 3e |dule:" |theCfa >|
|00000c10| 6e 61 6d 65 20 6e 3e 63 | 6f 75 6e 74 20 20 69 4d |name n>c|ount iM|
|00000c20| 73 67 0d 0d 09 09 62 69 | 6e 4e 61 6d 65 3a 20 74 |sg....bi|nName: t|
|00000c30| 68 65 4d 6f 64 20 20 6e | 61 6d 65 3a 20 66 46 63 |heMod n|ame: fFc|
|00000c40| 62 20 20 30 20 73 65 74 | 56 72 65 66 3a 20 66 46 |b 0 set|Vref: fF|
|00000c50| 63 62 0d 09 09 6f 70 65 | 6e 52 65 61 64 4f 6e 6c |cb...ope|nReadOnl|
|00000c60| 79 3a 20 66 46 63 62 20 | 20 3f 65 72 72 6f 72 20 |y: fFcb | ?error |
|00000c70| 31 33 38 0d 09 09 73 69 | 7a 65 3a 20 66 46 63 62 |138...si|ze: fFcb|
|00000c80| 20 20 64 75 70 20 20 6e | 65 77 3a 20 6d 6f 64 48 | dup n|ew: modH|
|00000c90| 64 6c 0d 09 09 6c 6f 63 | 6b 3a 20 6d 6f 64 48 64 |dl...loc|k: modHd|
|00000ca0| 6c 09 09 09 5c 20 4d 61 | 79 62 65 20 77 65 20 6e |l...\ Ma|ybe we n|
|00000cb0| 65 65 64 20 74 68 69 73 | 0d 09 09 70 74 72 3a 20 |eed this|...ptr: |
|00000cc0| 6d 6f 64 48 64 6c 20 20 | 73 77 61 70 20 20 72 65 |modHdl |swap re|
|00000cd0| 61 64 3a 20 66 46 63 62 | 0d 09 09 75 6e 6c 6f 63 |ad: fFcb|...unloc|
|00000ce0| 6b 3a 20 6d 6f 64 48 64 | 6c 09 09 5c 20 55 6e 6c |k: modHd|l..\ Unl|
|00000cf0| 6f 63 6b 20 62 65 66 6f | 72 65 20 65 72 72 6f 72 |ock befo|re error|
|00000d00| 20 63 68 65 63 6b 0d 09 | 09 63 6c 6f 73 65 3a 20 | check..|.close: |
|00000d10| 66 46 63 62 20 20 64 72 | 6f 70 20 20 3f 65 72 72 |fFcb dr|op ?err|
|00000d20| 6f 72 20 31 34 31 0d 0d | 5c 09 72 65 6c 65 61 73 |or 141..|\.releas|
|00000d30| 65 3a 20 74 68 65 4d 6f | 64 20 20 20 6c 6f 61 64 |e: theMo|d load|
|00000d40| 3a 20 74 68 65 4d 6f 64 | 0d 09 77 6f 72 64 30 20 |: theMod|..word0 |
|00000d50| 27 74 79 70 65 20 43 4f | 44 45 20 20 63 61 6c 6c |'type CO|DE call|
|00000d60| 20 55 6e 69 71 75 65 49 | 44 20 20 69 2d 3e 6c 20 | UniqueI|D i->l |
|00000d70| 20 2d 3e 20 49 44 0d 09 | 27 74 79 70 65 20 43 4f | -> ID..|'type CO|
|00000d80| 44 45 20 20 49 44 20 20 | 73 65 74 3a 20 64 73 74 |DE ID |set: dst|
|00000d90| 52 65 73 20 20 49 44 20 | 20 73 65 74 52 65 73 49 |Res ID | setResI|
|00000da0| 44 3a 20 74 68 65 4d 6f | 64 0d 09 28 20 68 61 6e |D: theMo|d..( han|
|00000db0| 64 6c 65 3a 20 74 68 65 | 4d 6f 64 20 29 20 20 67 |dle: the|Mod ) g|
|00000dc0| 65 74 3a 20 6d 6f 64 48 | 64 6c 20 20 70 75 74 3a |et: modH|dl put:|
|00000dd0| 20 64 73 74 52 65 73 0d | 09 74 68 65 43 66 61 20 | dstRes.|.theCfa |
|00000de0| 3e 6e 61 6d 65 20 6e 3e | 63 6f 75 6e 74 20 73 74 |>name n>|count st|
|00000df0| 72 32 35 35 20 20 61 64 | 64 52 65 73 3a 20 64 73 |r255 ad|dRes: ds|
|00000e00| 74 52 65 73 0d 09 09 09 | 5c 20 4e 4f 54 45 3a 20 |tRes....|\ NOTE: |
|00000e10| 77 65 20 64 6f 6e 27 74 | 20 72 65 6c 65 61 73 65 |we don't| release|
|00000e20| 20 6d 6f 64 48 64 6c 20 | 73 69 6e 63 65 20 69 74 | modHdl |since it|
|00000e30| 27 73 20 74 68 65 0d 09 | 09 09 5c 20 52 65 73 6f |'s the..|..\ Reso|
|00000e40| 75 72 63 65 20 4d 61 6e | 61 67 65 72 27 73 20 62 |urce Man|ager's b|
|00000e50| 61 62 79 20 6e 6f 77 2e | 0d 09 6c 6f 63 6b 65 64 |aby now.|..locked|
|00000e60| 20 70 75 72 67 65 61 62 | 6c 65 20 6f 72 20 20 73 | purgeab|le or s|
|00000e70| 65 74 41 74 74 72 73 3a | 20 64 73 74 52 65 73 20 |etAttrs:| dstRes |
|00000e80| 20 3b 0d 0d 3a 20 41 44 | 44 4d 4f 44 53 0d 09 22 | ;..: AD|DMODS.."|
|00000e90| 20 20 22 20 32 64 75 70 | 20 32 64 75 70 20 32 64 | " 2dup| 2dup 2d|
|00000ea0| 75 70 20 20 70 61 72 61 | 6d 54 65 78 74 0d 09 22 |up para|mText.."|
|00000eb0| 20 49 6e 73 74 61 6c 6c | 69 6e 67 20 5e 30 20 5e | Install|ing ^0 ^|
|00000ec0| 31 22 20 32 31 20 70 75 | 74 54 65 78 74 3a 20 69 |1" 21 pu|tText: i|
|00000ed0| 44 6c 67 0d 09 5b 27 5d | 20 28 61 64 64 6d 6f 64 |Dlg..[']| (addmod|
|00000ee0| 29 20 20 30 20 20 74 72 | 61 76 20 20 3b 0d 0d 3a |) 0 tr|av ;..:|
|00000ef0| 20 49 4e 56 57 4f 52 44 | 09 09 5c 20 28 20 69 74 | INVWORD|..\ ( it|
|00000f00| 65 6d 23 20 2d 2d 20 29 | 0d 09 34 30 20 62 65 65 |em# -- )|..40 bee|
|00000f10| 70 20 30 20 24 20 66 66 | 66 66 20 72 6f 74 20 20 |p 0 $ ff|ff rot |
|00000f20| 73 65 74 53 65 6c 65 63 | 74 3a 20 69 44 6c 67 20 |setSelec|t: iDlg |
|00000f30| 20 52 65 74 75 72 6e 54 | 6f 4d 6f 64 61 6c 20 20 | ReturnT|oModal |
|00000f40| 3b 0d 0d 3a 61 20 4f 4b | 09 09 5c 20 56 61 6c 69 |;..:a OK|..\ Vali|
|00000f50| 64 61 74 65 73 20 71 75 | 69 74 73 20 26 20 61 62 |dates qu|its & ab|
|00000f60| 6f 72 74 20 77 6f 72 64 | 73 3b 20 69 66 20 62 61 |ort word|s; if ba|
|00000f70| 64 20 72 65 74 75 72 6e | 73 20 74 6f 20 6d 6f 64 |d return|s to mod|
|00000f80| 61 6c 0d 09 31 30 20 67 | 65 74 54 65 78 74 3a 20 |al..10 g|etText: |
|00000f90| 69 44 6c 67 20 20 73 46 | 69 6e 64 20 20 4e 49 46 |iDlg sF|ind NIF|
|00000fa0| 20 20 31 30 20 69 6e 76 | 57 6f 72 64 20 20 45 58 | 10 inv|Word EX|
|00000fb0| 49 54 20 20 54 48 45 4e | 0d 09 2d 3e 20 71 75 69 |IT THEN|..-> qui|
|00000fc0| 74 77 6f 72 64 0d 09 31 | 31 20 67 65 74 54 65 78 |tword..1|1 getTex|
|00000fd0| 74 3a 20 69 44 6c 67 20 | 20 73 46 69 6e 64 20 20 |t: iDlg | sFind |
|00000fe0| 4e 49 46 20 20 31 31 20 | 69 6e 76 57 6f 72 64 20 |NIF 11 |invWord |
|00000ff0| 20 45 58 49 54 20 20 54 | 48 45 4e 0d 09 2d 3e 20 | EXIT T|HEN..-> |
|00001000| 61 62 6f 72 74 77 6f 72 | 64 0d 09 74 72 75 65 20 |abortwor|d..true |
|00001010| 20 3b 61 0d 0d 3a 61 20 | 43 41 4e 43 45 4c 09 66 | ;a..:a |CANCEL.f|
|00001020| 61 6c 73 65 20 20 3b 61 | 0d 0d 63 66 61 73 7b 09 |alse ;a|..cfas{.|
|00001030| 6f 6b 20 63 61 6e 63 65 | 6c 20 6e 75 6c 6c 20 6e |ok cance|l null n|
|00001040| 75 6c 6c 20 6e 75 6c 6c | 20 6e 75 6c 6c 20 6e 75 |ull null| null nu|
|00001050| 6c 6c 20 6e 75 6c 6c 20 | 6e 75 6c 6c 20 6e 75 6c |ll null |null nul|
|00001060| 6c 20 6e 75 6c 6c 0d 09 | 74 6f 67 69 74 65 6d 20 |l null..|togitem |
|00001070| 74 6f 67 49 74 65 6d 20 | 74 6f 67 49 74 65 6d 20 |togItem |togItem |
|00001080| 6e 75 6c 6c 20 6e 75 6c | 6c 20 6e 75 6c 6c 20 6e |null nul|l null n|
|00001090| 75 6c 6c 20 6e 75 6c 6c | 20 6e 75 6c 6c 20 6e 75 |ull null| null nu|
|000010a0| 6c 6c 20 7d 0d 31 31 31 | 20 20 69 6e 69 74 3a 20 |ll }.111| init: |
|000010b0| 69 44 6c 67 20 20 20 31 | 20 20 73 65 74 42 6f 6c |iDlg 1| setBol|
|000010c0| 64 3a 20 69 44 6c 67 0d | 0d 3a 20 47 45 54 52 0d |d: iDlg.|.: GETR.|
|000010d0| 09 67 65 74 5f 61 70 70 | 6c 5f 6e 61 6d 65 20 2d |.get_app|l_name -|
|000010e0| 3e 3a 20 24 74 6d 70 20 | 20 61 6c 6c 3a 20 24 74 |>: $tmp | all: $t|
|000010f0| 6d 70 20 20 35 20 20 70 | 75 74 54 65 78 74 3a 20 |mp 5 p|utText: |
|00001100| 69 44 6c 67 0d 09 67 65 | 74 5f 61 70 70 6c 5f 76 |iDlg..ge|t_appl_v|
|00001110| 65 72 73 20 2d 3e 3a 20 | 24 74 6d 70 20 20 61 6c |ers ->: |$tmp al|
|00001120| 6c 3a 20 24 74 6d 70 20 | 20 34 20 20 70 75 74 54 |l: $tmp | 4 putT|
|00001130| 65 78 74 3a 20 69 44 6c | 67 0d 09 67 65 74 5f 61 |ext: iDl|g..get_a|
|00001140| 70 70 6c 5f 73 69 67 20 | 20 70 61 64 20 21 20 20 |ppl_sig | pad ! |
|00001150| 70 61 64 20 34 20 20 33 | 20 20 70 75 74 54 65 78 |pad 4 3| putTex|
|00001160| 74 3a 20 69 44 6c 67 20 | 20 3b 0d 0d 3a 20 44 52 |t: iDlg | ;..: DR|
|00001170| 4f 50 40 09 09 5c 20 28 | 20 61 64 64 72 20 6c 65 |OP@..\ (| addr le|
|00001180| 6e 20 2d 2d 20 61 64 64 | 72 27 20 29 0d 09 09 5c |n -- add|r' )...\|
|00001190| 20 46 65 74 63 68 65 73 | 20 31 73 74 20 66 6f 75 | Fetches| 1st fou|
|000011a0| 72 20 62 79 74 65 73 20 | 6f 6e 20 61 6e 20 6f 64 |r bytes |on an od|
|000011b0| 64 20 62 79 74 65 2c 20 | 70 61 64 20 77 69 74 68 |d byte, |pad with|
|000011c0| 20 62 6c 61 6e 6b 73 0d | 09 3e 72 20 73 70 40 20 | blanks.|.>r sp@ |
|000011d0| 24 20 32 30 32 30 32 30 | 32 30 20 72 6f 74 20 72 |$ 202020|20 rot r|
|000011e0| 6f 74 20 72 3e 20 34 20 | 6d 69 6e 20 63 6d 6f 76 |ot r> 4 |min cmov|
|000011f0| 65 20 20 3b 0d 0d 3a 20 | 53 45 54 46 52 45 46 09 |e ;..: |SETFREF.|
|00001200| 09 5c 20 28 20 74 79 70 | 65 20 6e 20 2d 2d 20 29 |.\ ( typ|e n -- )|
|00001210| 0d 09 27 74 79 70 65 20 | 46 52 45 46 20 20 73 77 |..'type |FREF sw|
|00001220| 61 70 20 20 73 65 74 3a | 20 73 72 63 52 65 73 20 |ap set:| srcRes |
|00001230| 20 67 65 74 4e 65 77 3a | 20 73 72 63 52 65 73 0d | getNew:| srcRes.|
|00001240| 09 67 65 74 3a 20 73 72 | 63 52 65 73 20 20 43 68 |.get: sr|cRes Ch|
|00001250| 52 20 20 3e 70 74 72 20 | 21 20 20 3b 0d 0d 0d 3a |R >ptr |! ;...:|
|00001260| 63 6c 61 73 73 09 53 45 | 54 55 50 48 44 52 09 73 |class.SE|TUPHDR.s|
|00001270| 75 70 65 72 7b 20 6f 62 | 6a 65 63 74 20 7d 0d 09 |uper{ ob|ject }..|
|00001280| 09 5c 20 41 20 64 75 6d | 6d 79 20 63 6c 61 73 73 |.\ A dum|my class|
|00001290| 20 74 6f 20 6d 61 70 20 | 74 68 65 20 69 6e 66 6f | to map |the info|
|000012a0| 20 61 72 65 61 20 61 74 | 20 74 68 65 20 73 74 61 | area at| the sta|
|000012b0| 72 74 20 6f 66 20 74 68 | 65 0d 09 09 5c 20 20 53 |rt of th|e...\ S|
|000012c0| 65 74 75 70 20 73 65 67 | 6d 65 6e 74 0d 72 65 63 |etup seg|ment.rec|
|000012d0| 6f 72 64 0d 7b 09 76 61 | 72 09 09 64 75 6d 6d 79 |ord.{.va|r..dummy|
|000012e0| 0d 09 69 6e 74 09 09 26 | 62 72 61 09 09 5c 20 54 |..int..&|bra..\ T|
|000012f0| 68 65 20 6e 61 6d 65 73 | 20 61 72 65 20 74 68 65 |he names| are the|
|00001300| 20 73 61 6d 65 2c 20 77 | 69 74 68 20 26 20 69 6e | same, w|ith & in|
|00001310| 20 66 72 6f 6e 74 0d 09 | 76 61 72 09 09 26 6d 61 | front..|var..&ma|
|00001320| 78 44 69 63 0d 09 76 61 | 72 09 09 26 6d 69 6e 48 |xDic..va|r..&minH|
|00001330| 65 61 70 0d 09 76 61 72 | 09 09 26 64 69 63 53 69 |eap..var|..&dicSi|
|00001340| 7a 65 0d 09 76 61 72 09 | 09 26 53 74 6b 53 70 61 |ze..var.|.&StkSpa|
|00001350| 63 65 0d 09 76 61 72 09 | 09 26 52 73 74 6b 53 70 |ce..var.|.&RstkSp|
|00001360| 61 63 65 0d 09 62 6f 6f | 6c 09 26 69 6e 73 74 61 |ace..boo|l.&insta|
|00001370| 6c 6c 65 64 0d 09 62 79 | 74 65 09 73 70 61 72 65 |lled..by|te.spare|
|00001380| 0d 09 69 6e 74 09 09 26 | 6e 6f 70 0d 7d 0d 0d 3a |..int..&|nop.}..:|
|00001390| 6d 20 53 45 54 55 50 3a | 20 20 7b 20 69 6e 73 74 |m SETUP:| { inst|
|000013a0| 6c 64 3f 20 2d 2d 20 7d | 0d 0d 5c 09 24 20 61 39 |ld? -- }|..\.$ a9|
|000013b0| 66 66 20 20 09 70 75 74 | 3a 20 26 6e 6f 70 09 09 |ff .put|: &nop..|
|000013c0| 09 5c 20 49 6e 63 6c 75 | 64 65 20 74 6f 20 62 72 |.\ Inclu|de to br|
|000013d0| 65 61 6b 70 6f 69 6e 74 | 20 6f 6e 20 72 75 6e 0d |eakpoint| on run.|
|000013e0| 0d 09 6d 61 78 44 69 63 | 09 09 70 75 74 3a 20 26 |..maxDic|..put: &|
|000013f0| 6d 61 78 44 69 63 0d 09 | 6d 69 6e 48 65 61 70 09 |maxDic..|minHeap.|
|00001400| 09 70 75 74 3a 20 26 6d | 69 6e 48 65 61 70 0d 09 |.put: &m|inHeap..|
|00001410| 73 74 6b 53 70 61 63 65 | 09 70 75 74 3a 20 26 73 |stkSpace|.put: &s|
|00001420| 74 6b 53 70 61 63 65 0d | 09 52 73 74 6b 53 70 61 |tkSpace.|.RstkSpa|
|00001430| 63 65 09 70 75 74 3a 20 | 26 52 73 74 6b 53 70 61 |ce.put: |&RstkSpa|
|00001440| 63 65 0d 09 69 6e 73 74 | 6c 64 3f 09 09 70 75 74 |ce..inst|ld?..put|
|00001450| 3a 20 26 69 6e 73 74 61 | 6c 6c 65 64 20 20 3b 6d |: &insta|lled ;m|
|00001460| 0d 3b 63 6c 61 73 73 0d | 0d 3a 20 53 45 54 44 49 |.;class.|.: SETDI|
|00001470| 43 26 48 45 41 50 09 09 | 5c 20 28 20 69 6e 73 74 |C&HEAP..|\ ( inst|
|00001480| 6c 64 3f 20 2d 2d 20 29 | 0d 09 70 74 72 3a 20 64 |ld? -- )|..ptr: d|
|00001490| 73 74 52 65 73 20 20 73 | 65 74 75 70 3a 20 73 65 |stRes s|etup: se|
|000014a0| 74 75 70 48 64 72 20 20 | 3b 20 09 09 5c 20 46 6f |tupHdr |; ..\ Fo|
|000014b0| 72 63 65 64 20 62 69 6e | 64 20 74 6f 20 70 73 65 |rced bin|d to pse|
|000014c0| 75 64 6f 2d 6f 62 6a 65 | 63 74 0d 0d 3a 20 53 45 |udo-obje|ct..: SE|
|000014d0| 54 41 50 50 4c 53 49 5a | 45 0d 09 68 65 72 65 20 |TAPPLSIZ|E..here |
|000014e0| 20 6e 70 74 72 3a 20 73 | 72 63 52 65 73 20 20 2d | nptr: s|rcRes -|
|000014f0| 09 09 5c 20 4f 66 66 73 | 65 74 20 74 6f 20 48 65 |..\ Offs|et to He|
|00001500| 72 65 0d 09 63 75 72 44 | 69 63 74 20 2b 20 20 73 |re..curD|ict + s|
|00001510| 65 74 53 69 7a 65 3a 20 | 64 73 74 52 65 73 20 20 |etSize: |dstRes |
|00001520| 3b 0d 0d 3a 20 55 4e 50 | 41 54 43 48 20 20 7b 20 |;..: UNP|ATCH { |
|00001530| 5c 20 5e 62 72 20 2d 2d | 20 7d 0d 09 62 72 73 20 |\ ^br --| }..brs |
|00001540| 2d 3e 20 5e 62 72 0d 09 | 5e 62 72 20 40 09 5b 27 |-> ^br..|^br @.['|
|00001550| 5d 20 2a 20 20 36 20 2b | 09 21 09 34 20 2b 2b 3e |] * 6 +|.!.4 ++>|
|00001560| 20 5e 62 72 09 09 5c 20 | 2a 2a 2a 4e 4f 54 45 3a | ^br..\ |***NOTE:|
|00001570| 20 61 64 64 20 74 68 65 | 20 36 20 66 6f 72 20 77 | add the| 6 for w|
|00001580| 6f 72 64 73 0d 09 5e 62 | 72 20 40 09 5b 27 5d 20 |ords..^b|r @.['] |
|00001590| 2f 20 20 36 20 2b 09 21 | 09 34 20 2b 2b 3e 20 5e |/ 6 +.!|.4 ++> ^|
|000015a0| 62 72 09 09 5c 20 77 69 | 74 68 20 22 78 69 6e 66 |br..\ wi|th "xinf|
|000015b0| 6f 22 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |o" optim|ization |
|000015c0| 69 6e 66 6f 0d 09 5e 62 | 72 20 40 09 5b 27 5d 20 |info..^b|r @.['] |
|000015d0| 6d 6f 64 09 21 09 34 20 | 2b 2b 3e 20 5e 62 72 0d |mod.!.4 |++> ^br.|
|000015e0| 09 5e 62 72 20 40 09 5b | 27 5d 20 2f 6d 6f 64 09 |.^br @.[|'] /mod.|
|000015f0| 21 09 34 20 2b 2b 3e 20 | 5e 62 72 0d 09 5e 62 72 |!.4 ++> |^br..^br|
|00001600| 20 40 09 5b 27 5d 20 75 | 2f 6d 6f 64 09 21 09 34 | @.['] u|/mod.!.4|
|00001610| 20 2b 2b 3e 20 5e 62 72 | 0d 09 5e 62 72 20 40 09 | ++> ^br|..^br @.|
|00001620| 5b 27 5d 20 6d 75 6c 78 | 09 21 20 20 3b 0d 0d 3a |['] mulx|.! ;..:|
|00001630| 20 41 44 44 43 4f 44 45 | 09 09 5c 20 41 64 64 73 | ADDCODE|..\ Adds|
|00001640| 20 74 68 65 20 43 4f 44 | 45 20 72 65 73 6f 75 72 | the COD|E resour|
|00001650| 63 65 73 20 74 6f 20 61 | 20 6e 65 77 20 61 70 70 |ces to a| new app|
|00001660| 6c 69 63 61 74 69 6f 6e | 2e 0d 0d 09 22 20 64 69 |lication|...." di|
|00001670| 63 74 69 6f 6e 61 72 79 | 22 20 22 20 20 22 20 20 |ctionary|" " " |
|00001680| 69 4d 73 67 0d 0d 09 27 | 74 79 70 65 20 43 4f 44 |iMsg...'|type COD|
|00001690| 45 20 20 30 20 20 63 6f | 70 79 52 65 73 09 09 09 |E 0 co|pyRes...|
|000016a0| 5c 20 43 6f 70 79 20 43 | 4f 44 45 20 30 20 28 4a |\ Copy C|ODE 0 (J|
|000016b0| 75 6d 70 20 74 61 62 6c | 65 29 0d 09 20 20 6c 6f |ump tabl|e).. lo|
|000016c0| 63 6b 65 64 20 20 73 65 | 74 41 74 74 72 73 3a 20 |cked se|tAttrs: |
|000016d0| 64 73 74 52 65 73 0d 09 | 27 74 79 70 65 20 43 4f |dstRes..|'type CO|
|000016e0| 44 45 20 20 31 20 20 63 | 68 61 6e 67 65 52 65 73 |DE 1 c|hangeRes|
|000016f0| 09 09 5c 20 41 6e 64 20 | 43 4f 44 45 20 31 20 28 |..\ And |CODE 1 (|
|00001700| 53 65 74 75 70 29 0d 09 | 20 20 70 75 72 67 65 61 |Setup)..| purgea|
|00001710| 62 6c 65 20 20 73 65 74 | 41 74 74 72 73 3a 20 64 |ble set|Attrs: d|
|00001720| 73 74 52 65 73 0d 09 74 | 72 75 65 20 20 73 65 74 |stRes..t|rue set|
|00001730| 44 69 63 26 68 65 61 70 | 0d 09 0d 5c 20 4e 6f 77 |Dic&heap|...\ Now|
|00001740| 20 77 65 20 73 65 74 20 | 61 6c 6c 20 74 68 65 20 | we set |all the |
|00001750| 76 61 72 69 6f 75 73 20 | 66 6c 61 67 73 20 61 6e |various |flags an|
|00001760| 64 20 76 65 63 74 6f 72 | 73 20 61 70 70 72 6f 70 |d vector|s approp|
|00001770| 72 69 61 74 65 6c 79 3a | 0d 0d 09 75 6e 70 61 74 |riately:|...unpat|
|00001780| 63 68 20 20 6f 6c 64 56 | 65 63 73 0d 09 66 61 6c |ch oldV|ecs..fal|
|00001790| 73 65 20 2d 3e 20 69 6e | 69 74 7a 65 64 3f 20 20 |se -> in|itzed? |
|000017a0| 74 72 75 65 20 2d 3e 20 | 69 6e 73 74 6c 64 3f 0d |true -> |instld?.|
|000017b0| 09 66 61 6c 73 65 20 2d | 3e 20 4d 52 6f 70 65 6e |.false -|> MRopen|
|000017c0| 3f 20 20 66 61 6c 73 65 | 20 2d 3e 20 75 73 65 5f |? false| -> use_|
|000017d0| 70 61 74 68 73 3f 0d 09 | 30 20 2d 3e 20 43 50 61 |paths?..|0 -> CPa|
|000017e0| 64 64 72 0d 09 63 6c 61 | 73 73 69 6e 69 74 3a 20 |ddr..cla|ssinit: |
|000017f0| 66 57 69 6e 64 20 20 63 | 6c 65 61 72 3a 20 66 46 |fWind c|lear: fF|
|00001800| 63 62 0d 09 30 20 2d 3e | 20 61 63 74 57 20 20 5b |cb..0 ->| actW [|
|00001810| 27 5d 20 61 70 70 49 6e | 69 74 20 2d 3e 20 6f 62 |'] appIn|it -> ob|
|00001820| 6a 69 6e 69 74 0d 09 71 | 75 69 74 77 6f 72 64 20 |jinit..q|uitword |
|00001830| 2d 3e 20 71 75 69 74 76 | 65 63 0d 09 61 62 6f 72 |-> quitv|ec..abor|
|00001840| 74 77 6f 72 64 20 64 75 | 70 20 2d 3e 20 61 62 6f |tword du|p -> abo|
|00001850| 72 74 76 65 63 20 20 64 | 75 70 20 2d 3e 20 64 66 |rtvec d|up -> df|
|00001860| 6c 74 2d 64 69 65 20 20 | 2d 3e 20 73 65 74 46 77 |lt-die |-> setFw|
|00001870| 69 6e 64 0d 09 09 09 5c | 20 43 61 74 63 68 20 61 |ind....\| Catch a|
|00001880| 6c 6c 20 74 68 65 20 70 | 6f 73 73 69 62 69 6c 69 |ll the p|ossibili|
|00001890| 74 69 65 73 21 0d 09 09 | 09 5c 20 4e 6f 74 65 3a |ties!...|.\ Note:|
|000018a0| 20 77 65 20 73 74 69 6c | 6c 20 68 61 76 65 20 74 | we stil|l have t|
|000018b0| 6f 20 50 55 52 47 45 20 | 6d 6f 64 75 6c 65 73 20 |o PURGE |modules |
|000018c0| 69 6e 20 74 68 65 20 64 | 69 63 74 69 6f 6e 61 72 |in the d|ictionar|
|000018d0| 79 2e 0d 09 09 09 5c 20 | 57 65 20 6c 65 61 76 65 |y.....\ |We leave|
|000018e0| 20 74 68 69 73 20 74 6f | 20 74 68 65 20 6c 61 73 | this to| the las|
|000018f0| 74 20 6d 6f 6d 65 6e 74 | 20 61 73 20 73 6f 6d 65 |t moment| as some|
|00001900| 20 61 72 65 20 73 74 69 | 6c 6c 20 69 6e 20 75 73 | are sti|ll in us|
|00001910| 65 2e 0d 09 27 74 79 70 | 65 20 43 4f 44 45 20 20 |e...'typ|e CODE |
|00001920| 32 20 20 43 68 61 6e 67 | 65 52 65 73 09 09 5c 20 |2 Chang|eRes..\ |
|00001930| 43 6f 70 79 20 43 4f 44 | 45 20 32 20 28 6d 61 69 |Copy COD|E 2 (mai|
|00001940| 6e 20 64 69 63 74 69 6f | 6e 61 72 79 29 0d 09 6c |n dictio|nary)..l|
|00001950| 6f 63 6b 65 64 20 70 75 | 72 67 65 61 62 6c 65 20 |ocked pu|rgeable |
|00001960| 6f 72 20 20 73 65 74 41 | 74 74 72 73 3a 20 64 73 |or setA|ttrs: ds|
|00001970| 74 52 65 73 0d 09 73 65 | 74 41 70 70 6c 53 69 7a |tRes..se|tApplSiz|
|00001980| 65 20 20 3b 0d 09 0d 0d | 3a 20 53 41 56 45 43 4f |e ;....|: SAVECO|
|00001990| 44 45 20 20 7b 20 5c 20 | 61 64 64 72 20 6c 65 6e |DE { \ |addr len|
|000019a0| 20 2d 2d 20 7d 09 5c 20 | 43 6f 70 69 65 73 20 74 | -- }.\ |Copies t|
|000019b0| 68 65 20 43 4f 44 45 20 | 72 65 73 6f 75 72 63 65 |he CODE |resource|
|000019c0| 73 20 66 6f 72 0d 09 09 | 09 09 09 09 09 09 5c 20 |s for...|......\ |
|000019d0| 20 61 20 53 61 76 65 64 | 20 6e 75 63 6c 65 75 73 | a Saved| nucleus|
|000019e0| 2e 0d 0d 09 27 74 79 70 | 65 20 43 4f 44 45 20 20 |....'typ|e CODE |
|000019f0| 30 20 20 63 6f 70 79 52 | 65 73 09 09 09 5c 20 43 |0 copyR|es...\ C|
|00001a00| 6f 70 79 20 43 4f 44 45 | 20 30 20 28 4a 75 6d 70 |opy CODE| 0 (Jump|
|00001a10| 20 74 61 62 6c 65 29 0d | 09 20 20 6c 6f 63 6b 65 | table).|. locke|
|00001a20| 64 20 20 73 65 74 41 74 | 74 72 73 3a 20 64 73 74 |d setAt|trs: dst|
|00001a30| 52 65 73 0d 09 27 74 79 | 70 65 20 43 4f 44 45 20 |Res..'ty|pe CODE |
|00001a40| 20 33 20 20 63 68 61 6e | 67 65 52 65 73 09 09 5c | 3 chan|geRes..\|
|00001a50| 20 41 6e 64 20 43 4f 44 | 45 20 33 20 28 48 61 6e | And COD|E 3 (Han|
|00001a60| 64 6c 65 72 73 29 0d 09 | 20 20 70 75 72 67 65 61 |dlers)..| purgea|
|00001a70| 62 6c 65 20 20 73 65 74 | 41 74 74 72 73 3a 20 64 |ble set|Attrs: d|
|00001a80| 73 74 52 65 73 0d 09 27 | 74 79 70 65 20 43 4f 44 |stRes..'|type COD|
|00001a90| 45 20 20 31 20 20 63 68 | 61 6e 67 65 52 65 73 09 |E 1 ch|angeRes.|
|00001aa0| 09 5c 20 41 6e 64 20 43 | 4f 44 45 20 31 20 28 53 |.\ And C|ODE 1 (S|
|00001ab0| 65 74 75 70 29 0d 09 20 | 20 70 75 72 67 65 61 62 |etup).. | purgeab|
|00001ac0| 6c 65 20 20 73 65 74 41 | 74 74 72 73 3a 20 64 73 |le setA|ttrs: ds|
|00001ad0| 74 52 65 73 0d 09 66 61 | 6c 73 65 20 20 73 65 74 |tRes..fa|lse set|
|00001ae0| 44 69 63 26 68 65 61 70 | 0d 09 0d 5c 20 4c 61 73 |Dic&heap|...\ Las|
|00001af0| 74 20 62 75 74 20 6e 6f | 74 20 6c 65 61 73 74 2c |t but no|t least,|
|00001b00| 20 77 65 27 6c 6c 20 63 | 6f 70 79 20 43 4f 44 45 | we'll c|opy CODE|
|00001b10| 20 32 20 28 74 68 65 20 | 6d 61 69 6e 20 64 69 63 | 2 (the |main dic|
|00001b20| 74 69 6f 6e 61 72 79 29 | 2e 0d 5c 20 46 69 72 73 |tionary)|..\ Firs|
|00001b30| 74 20 77 65 20 73 65 74 | 20 61 6c 6c 20 74 68 65 |t we set| all the|
|00001b40| 20 76 61 72 69 6f 75 73 | 20 66 6c 61 67 73 20 61 | various| flags a|
|00001b50| 6e 64 20 76 65 63 74 6f | 72 73 20 61 70 70 72 6f |nd vecto|rs appro|
|00001b60| 70 72 69 61 74 65 6c 79 | 3a 0d 0d 09 75 6e 70 61 |priately|:...unpa|
|00001b70| 74 63 68 0d 09 66 61 6c | 73 65 20 2d 3e 20 69 6e |tch..fal|se -> in|
|00001b80| 69 74 7a 65 64 3f 20 20 | 30 20 2d 3e 20 45 78 42 |itzed? |0 -> ExB|
|00001b90| 6f 66 66 73 20 20 2b 63 | 75 72 73 0d 09 66 61 6c |offs +c|urs..fal|
|00001ba0| 73 65 20 2d 3e 20 65 6d | 69 74 3f 20 20 66 61 6c |se -> em|it? fal|
|00001bb0| 73 65 20 2d 3e 20 4d 52 | 6f 70 65 6e 3f 20 20 66 |se -> MR|open? f|
|00001bc0| 61 6c 73 65 20 2d 3e 20 | 73 61 76 69 6e 67 44 69 |alse -> |savingDi|
|00001bd0| 63 3f 0d 09 74 72 75 65 | 20 2d 3e 20 75 73 65 5f |c?..true| -> use_|
|00001be0| 70 61 74 68 73 3f 0d 09 | 74 72 75 65 20 2d 3e 20 |paths?..|true -> |
|00001bf0| 36 38 4b 3f 20 20 66 61 | 6c 73 65 20 2d 3e 20 50 |68K? fa|lse -> P|
|00001c00| 50 43 3f 0d 09 30 20 2d | 3e 20 43 50 61 64 64 72 |PC?..0 -|> CPaddr|
|00001c10| 0d 09 63 6c 61 73 73 69 | 6e 69 74 3a 20 66 57 69 |..classi|nit: fWi|
|00001c20| 6e 64 20 20 74 72 75 65 | 20 2d 3e 20 66 57 69 6e |nd true| -> fWin|
|00001c30| 64 3f 20 20 63 6c 65 61 | 72 3a 20 66 46 63 62 0d |d? clea|r: fFcb.|
|00001c40| 09 0d 5c 20 4e 6f 77 20 | 77 65 20 73 65 74 20 61 |..\ Now |we set a|
|00001c50| 6c 6c 20 73 79 73 74 65 | 6d 20 76 65 63 74 6f 72 |ll syste|m vector|
|00001c60| 73 20 62 61 63 6b 20 74 | 6f 20 74 68 65 69 72 20 |s back t|o their |
|00001c70| 64 65 66 61 75 6c 74 73 | 20 28 62 79 20 73 74 6f |defaults| (by sto|
|00001c80| 72 69 6e 67 20 7a 65 72 | 6f 0d 5c 20 74 68 65 72 |ring zer|o.\ ther|
|00001c90| 65 29 2e 20 20 41 6c 6c | 20 73 79 73 74 65 6d 20 |e). All| system |
|00001ca0| 76 65 63 73 20 69 6e 20 | 66 69 6c 65 20 4e 75 63 |vecs in |file Nuc|
|00001cb0| 2e 61 73 6d 20 61 6e 64 | 20 4e 75 63 32 2e 61 73 |.asm and| Nuc2.as|
|00001cc0| 6d 20 6d 75 73 74 20 62 | 65 20 68 65 72 65 2c 20 |m must b|e here, |
|00001cd0| 73 69 6e 63 65 0d 5c 20 | 61 6e 79 20 6f 66 20 74 |since.\ |any of t|
|00001ce0| 68 65 6d 20 63 6f 75 6c | 64 20 68 61 76 65 20 62 |hem coul|d have b|
|00001cf0| 65 65 6e 20 61 6c 74 65 | 72 65 64 2e 20 20 49 66 |een alte|red. If|
|00001d00| 20 61 6e 79 20 61 72 65 | 20 61 64 64 65 64 2c 20 | any are| added, |
|00001d10| 63 6f 72 72 65 73 70 6f | 6e 64 69 6e 67 0d 5c 20 |correspo|nding.\ |
|00001d20| 63 6f 64 65 20 4d 55 53 | 54 20 42 45 20 50 4c 41 |code MUS|T BE PLA|
|00001d30| 43 45 44 20 48 45 52 45 | 21 21 0d 0d 09 30 20 2d |CED HERE|!!...0 -|
|00001d40| 3e 20 65 6d 69 74 76 65 | 63 09 30 20 2d 3e 20 70 |> emitve|c.0 -> p|
|00001d50| 65 6d 69 74 76 65 63 0d | 09 30 20 2d 3e 20 63 72 |emitvec.|.0 -> cr|
|00001d60| 76 65 63 09 09 30 20 2d | 3e 20 70 63 72 76 65 63 |vec..0 -|> pcrvec|
|00001d70| 0d 09 30 20 2d 3e 20 74 | 79 70 65 76 65 63 09 30 |..0 -> t|ypevec.0|
|00001d80| 20 2d 3e 20 70 74 79 70 | 65 76 65 63 0d 09 30 20 | -> ptyp|evec..0 |
|00001d90| 2d 3e 20 73 70 76 65 63 | 09 09 30 20 2d 3e 20 70 |-> spvec|..0 -> p|
|00001da0| 73 70 76 65 63 0d 09 30 | 20 2d 3e 20 65 63 68 6f |spvec..0| -> echo|
|00001db0| 76 65 63 09 30 20 2d 3e | 20 68 65 61 64 65 72 09 |vec.0 ->| header.|
|00001dc0| 09 30 20 2d 3e 20 6c 6f | 67 76 65 63 0d 0d 09 30 |.0 -> lo|gvec...0|
|00001dd0| 20 2d 3e 20 75 46 69 6e | 64 20 20 30 20 2d 3e 20 | -> uFin|d 0 -> |
|00001de0| 66 6e 75 6d 3f 20 20 30 | 20 2d 3e 20 6e 75 6d 41 |fnum? 0| -> numA|
|00001df0| 63 63 75 6d 75 6c 61 74 | 65 0d 09 30 20 2d 3e 20 |ccumulat|e..0 -> |
|00001e00| 6b 65 79 20 20 30 20 2d | 3e 20 6b 65 79 21 0d 09 |key 0 -|> key!..|
|00001e10| 30 20 2d 3e 20 70 61 75 | 73 65 09 09 30 20 2d 3e |0 -> pau|se..0 ->|
|00001e20| 20 3f 70 61 75 73 65 09 | 09 30 20 2d 3e 20 67 65 | ?pause.|.0 -> ge|
|00001e30| 74 53 70 61 63 65 0d 09 | 30 20 2d 3e 20 72 6e 67 |tSpace..|0 -> rng|
|00001e40| 45 72 72 09 09 30 20 2d | 3e 20 24 65 72 72 09 09 |Err..0 -|> $err..|
|00001e50| 30 20 2d 3e 20 61 72 69 | 74 68 45 72 72 0d 09 30 |0 -> ari|thErr..0|
|00001e60| 20 2d 3e 20 6f 62 6a 69 | 6e 69 74 09 30 20 2d 3e | -> obji|nit.0 ->|
|00001e70| 20 65 78 74 72 61 5f 69 | 6e 69 74 73 0d 09 30 20 | extra_i|nits..0 |
|00001e80| 2d 3e 20 61 62 6f 72 74 | 76 65 63 09 30 20 2d 3e |-> abort|vec.0 ->|
|00001e90| 20 71 75 69 74 76 65 63 | 09 30 20 2d 3e 20 73 65 | quitvec|.0 -> se|
|00001ea0| 74 66 57 69 6e 64 0d 09 | 30 20 2d 3e 20 64 66 6c |tfWind..|0 -> dfl|
|00001eb0| 74 2d 64 69 65 20 20 20 | 30 20 2d 3e 20 74 73 74 |t-die |0 -> tst|
|00001ec0| 72 09 09 30 20 2d 3e 20 | 66 72 65 66 69 6c 6c 0d |r..0 -> |frefill.|
|00001ed0| 09 30 20 2d 3e 20 6d 6f | 64 6c 6f 61 64 09 30 20 |.0 -> mo|dload.0 |
|00001ee0| 2d 3e 20 54 45 69 64 6c | 65 09 09 30 20 2d 3e 20 |-> TEidl|e..0 -> |
|00001ef0| 63 6f 6d 70 69 6e 6c 69 | 6e 65 0d 09 30 20 2d 3e |compinli|ne..0 ->|
|00001f00| 20 50 50 43 76 65 63 0d | 09 30 20 2d 3e 20 6f 70 | PPCvec.|.0 -> op|
|00001f10| 65 6e 41 70 70 56 65 63 | 09 30 20 2d 3e 20 6f 70 |enAppVec|.0 -> op|
|00001f20| 65 6e 44 6f 63 56 65 63 | 09 30 20 2d 3e 20 70 72 |enDocVec|.0 -> pr|
|00001f30| 69 6e 74 44 6f 63 56 65 | 63 0d 09 30 20 2d 3e 20 |intDocVe|c..0 -> |
|00001f40| 71 75 69 74 41 70 70 56 | 65 63 09 30 20 2d 3e 20 |quitAppV|ec.0 -> |
|00001f50| 72 65 61 64 31 64 6f 63 | 56 65 63 0d 09 30 20 2d |read1doc|Vec..0 -|
|00001f60| 3e 20 61 63 74 57 0d 09 | 0d 09 27 74 79 70 65 20 |> actW..|..'type |
|00001f70| 43 4f 44 45 20 20 32 20 | 20 43 68 61 6e 67 65 52 |CODE 2 | ChangeR|
|00001f80| 65 73 09 5c 20 59 65 73 | 2c 20 49 20 6b 6e 6f 77 |es.\ Yes|, I know|
|00001f90| 20 69 74 27 73 20 69 6e | 20 75 73 65 2c 20 62 75 | it's in| use, bu|
|00001fa0| 74 20 69 74 27 73 0d 09 | 09 09 09 09 09 09 09 5c |t it's..|.......\|
|00001fb0| 20 20 4f 4b 20 61 73 20 | 77 65 27 72 65 20 67 6f | OK as |we're go|
|00001fc0| 69 6e 67 20 74 6f 20 71 | 75 69 74 0d 09 09 09 09 |ing to q|uit.....|
|00001fd0| 09 09 09 09 5c 20 20 73 | 74 72 61 69 67 68 74 20 |....\ s|traight |
|00001fe0| 61 77 61 79 21 0d 0d 09 | 70 75 72 67 65 61 62 6c |away!...|purgeabl|
|00001ff0| 65 20 20 73 65 74 41 74 | 74 72 73 3a 20 64 73 74 |e setAt|trs: dst|
|00002000| 52 65 73 09 5c 20 4e 6f | 74 65 3a 20 77 65 20 64 |Res.\ No|te: we d|
|00002010| 6f 6e 27 74 20 73 65 74 | 20 69 74 20 6c 6f 63 6b |on't set| it lock|
|00002020| 65 64 20 73 69 6e 63 65 | 0d 09 09 09 09 09 09 09 |ed since|........|
|00002030| 09 5c 20 20 74 68 65 20 | 53 65 74 75 70 20 73 65 |.\ the |Setup se|
|00002040| 67 6d 65 6e 74 20 77 69 | 6c 6c 20 72 65 73 69 7a |gment wi|ll resiz|
|00002050| 65 20 69 74 0d 09 09 09 | 09 09 09 09 09 5c 20 20 |e it....|.....\ |
|00002060| 62 65 66 6f 72 65 20 6d | 6f 76 69 6e 67 20 69 74 |before m|oving it|
|00002070| 20 68 69 67 68 2c 20 6c | 6f 63 6b 69 6e 67 20 61 | high, l|ocking a|
|00002080| 6e 64 0d 09 09 09 09 09 | 09 09 09 5c 20 20 63 61 |nd......|...\ ca|
|00002090| 6c 6c 69 6e 67 20 69 74 | 2e 0d 0d 5c 20 4e 6f 77 |lling it|...\ Now|
|000020a0| 20 77 65 20 68 61 76 65 | 20 74 6f 20 66 6f 72 67 | we have| to forg|
|000020b0| 65 74 20 62 61 63 6b 20 | 74 6f 20 74 68 65 20 62 |et back |to the b|
|000020c0| 61 72 65 20 6e 75 63 6c | 65 75 73 2e 20 20 54 68 |are nucl|eus. Th|
|000020d0| 65 20 66 69 72 73 74 20 | 77 6f 72 64 20 61 62 6f |e first |word abo|
|000020e0| 76 65 0d 5c 20 69 73 20 | 74 68 65 20 64 69 63 74 |ve.\ is |the dict|
|000020f0| 69 6f 6e 61 72 79 20 6d | 61 72 6b 20 66 6f 72 20 |ionary m|ark for |
|00002100| 74 68 65 20 66 69 72 73 | 74 20 66 69 6c 65 2c 20 |the firs|t file, |
|00002110| 42 61 73 65 2e 0d 0d 09 | 22 20 62 61 73 65 20 22 |Base....|" base "|
|00002120| 09 09 09 09 09 5c 20 64 | 69 63 20 6d 61 72 6b 20 |.....\ d|ic mark |
|00002130| 6e 61 6d 65 20 69 73 20 | 74 68 65 20 66 69 6c 65 |name is |the file|
|00002140| 20 6e 61 6d 65 20 66 6f | 6c 6c 6f 77 65 64 0d 09 | name fo|llowed..|
|00002150| 09 09 09 09 09 09 09 5c | 20 20 62 79 20 61 20 73 |.......\| by a s|
|00002160| 70 61 63 65 0d 09 73 46 | 69 6e 64 20 4e 49 46 09 |pace..sF|ind NIF.|
|00002170| 09 09 09 09 5c 20 52 65 | 61 6c 6c 79 20 6f 75 67 |....\ Re|ally oug|
|00002180| 68 74 20 74 6f 20 62 65 | 20 74 68 65 72 65 0d 09 |ht to be| there..|
|00002190| 09 64 72 6f 70 20 5b 27 | 5d 20 65 63 68 6f 3f 09 |.drop ['|] echo?.|
|000021a0| 09 09 5c 20 49 66 20 6e | 6f 74 2c 20 6a 75 73 74 |..\ If n|ot, just|
|000021b0| 20 75 73 65 20 31 73 74 | 20 77 6f 72 64 20 61 6e | use 1st| word an|
|000021c0| 64 20 68 6f 70 65 20 66 | 6f 72 20 74 68 65 20 62 |d hope f|or the b|
|000021d0| 65 73 74 0d 09 54 48 45 | 4e 0d 09 3e 6c 69 6e 6b |est..THE|N..>link|
|000021e0| 20 28 66 6f 72 67 65 74 | 29 0d 09 68 65 72 65 20 | (forget|)..here |
|000021f0| 20 6e 70 74 72 3a 20 73 | 72 63 52 65 73 20 20 2d | nptr: s|rcRes -|
|00002200| 09 09 5c 20 4f 66 66 73 | 65 74 20 74 6f 20 48 65 |..\ Offs|et to He|
|00002210| 72 65 0d 09 73 65 74 53 | 69 7a 65 3a 20 64 73 74 |re..setS|ize: dst|
|00002220| 52 65 73 20 20 3b 0d 09 | 0d 0d 73 63 6f 6e 09 24 |Res ;..|..scon.$|
|00002230| 41 4c 51 09 22 61 6c 65 | 72 74 25 22 09 26 20 25 |ALQ."ale|rt%".& %|
|00002240| 20 20 26 20 22 20 20 69 | 6e 73 74 65 61 64 0d 0d | & " i|nstead..|
|00002250| 3a 20 4e 45 57 5f 41 50 | 50 4c 49 43 41 54 49 4f |: NEW_AP|PLICATIO|
|00002260| 4e 20 20 7b 20 5c 20 73 | 69 67 20 61 64 64 72 20 |N { \ s|ig addr |
|00002270| 6c 65 6e 20 2d 2d 20 7d | 0d 09 09 5c 20 54 68 69 |len -- }|...\ Thi|
|00002280| 73 20 77 6f 72 64 20 64 | 6f 65 73 20 61 6c 6c 20 |s word d|oes all |
|00002290| 74 68 65 20 68 61 72 64 | 20 77 6f 72 6b 20 6f 66 |the hard| work of|
|000022a0| 20 63 72 65 61 74 69 6e | 67 20 74 68 65 0d 09 09 | creatin|g the...|
|000022b0| 5c 20 69 6e 73 74 61 6c | 6c 65 64 20 61 70 70 6c |\ instal|led appl|
|000022c0| 69 63 61 74 69 6f 6e 20 | 66 69 6c 65 2e 0d 09 09 |ication |file....|
|000022d0| 0d 09 5b 27 5d 20 6e 6f | 67 6f 20 20 6f 6e 45 72 |..['] no|go onEr|
|000022e0| 72 6f 72 0d 09 35 20 67 | 65 74 54 65 78 74 3a 20 |ror..5 g|etText: |
|000022f0| 69 44 6c 67 20 20 2d 3e | 20 6c 65 6e 20 2d 3e 20 |iDlg ->| len -> |
|00002300| 61 64 64 72 0d 09 61 64 | 64 72 20 6c 65 6e 20 20 |addr..ad|dr len |
|00002310| 6e 61 6d 65 3a 20 66 46 | 63 62 0d 09 64 65 6c 65 |name: fF|cb..dele|
|00002320| 74 65 3a 20 66 46 63 62 | 20 20 64 72 6f 70 09 09 |te: fFcb| drop..|
|00002330| 09 09 09 5c 20 44 65 6c | 65 74 65 20 61 6e 79 20 |...\ Del|ete any |
|00002340| 64 75 70 6c 69 63 61 74 | 65 20 66 69 6c 65 0d 09 |duplicat|e file..|
|00002350| 61 64 64 72 20 6c 65 6e | 20 73 74 72 32 35 35 0d |addr len| str255.|
|00002360| 09 63 61 6c 6c 20 43 72 | 65 61 74 65 52 65 73 46 |.call Cr|eateResF|
|00002370| 69 6c 65 20 20 63 68 6b | 09 09 09 09 5c 20 43 72 |ile chk|....\ Cr|
|00002380| 65 61 74 65 20 6e 65 77 | 20 72 65 73 20 66 69 6c |eate new| res fil|
|00002390| 65 20 66 6f 72 20 61 70 | 70 6c 69 63 6e 0d 09 30 |e for ap|plicn..0|
|000023a0| 20 20 62 75 66 32 35 35 | 20 20 63 61 6c 6c 20 4f | buf255| call O|
|000023b0| 70 65 6e 52 65 73 46 69 | 6c 65 20 20 64 72 6f 70 |penResFi|le drop|
|000023c0| 20 20 63 68 6b 0d 09 33 | 20 20 67 65 74 54 65 78 | chk..3| getTex|
|000023d0| 74 3a 20 69 44 6c 67 20 | 20 64 72 6f 70 40 20 2d |t: iDlg | drop@ -|
|000023e0| 3e 20 73 69 67 09 09 5c | 20 4e 65 77 20 73 69 67 |> sig..\| New sig|
|000023f0| 0d 09 27 74 79 70 65 20 | 41 50 50 4c 20 20 73 69 |..'type |APPL si|
|00002400| 67 20 20 73 65 74 3a 20 | 66 46 63 62 09 09 09 5c |g set: |fFcb...\|
|00002410| 20 53 65 74 20 74 79 70 | 65 20 26 20 73 69 67 20 | Set typ|e & sig |
|00002420| 6f 66 20 61 70 70 6c 0d | 09 24 20 32 31 20 20 66 |of appl.|.$ 21 f|
|00002430| 46 63 62 20 24 20 32 38 | 20 2b 20 63 21 09 09 09 |Fcb $ 28| + c!...|
|00002440| 09 5c 20 53 65 74 20 42 | 75 6e 64 6c 65 20 62 69 |.\ Set B|undle bi|
|00002450| 74 0d 09 73 65 74 46 69 | 6c 65 49 6e 66 6f 3a 20 |t..setFi|leInfo: |
|00002460| 66 46 63 62 0d 09 61 64 | 64 4d 6f 64 73 09 09 09 |fFcb..ad|dMods...|
|00002470| 09 09 09 09 09 5c 20 43 | 6f 70 79 20 63 68 6f 73 |.....\ C|opy chos|
|00002480| 65 6e 20 6d 6f 64 75 6c | 65 73 0d 09 61 64 64 43 |en modul|es..addC|
|00002490| 6f 64 65 09 09 09 09 09 | 09 09 09 5c 20 61 6e 64 |ode.....|...\ and|
|000024a0| 20 43 4f 44 45 20 30 2c | 20 31 20 61 6e 64 20 32 | CODE 0,| 1 and 2|
|000024b0| 0d 09 5b 27 5d 20 6e 6f | 67 6f 20 20 6f 6e 45 72 |..['] no|go onEr|
|000024c0| 72 6f 72 0d 09 31 33 20 | 67 65 74 69 74 65 6d 3a |ror..13 |getitem:|
|000024d0| 20 69 44 6c 67 0d 09 69 | 66 09 74 72 75 65 20 2d | iDlg..i|f.true -|
|000024e0| 3e 20 66 57 69 6e 64 3f | 09 09 09 09 09 5c 20 66 |> fWind?|.....\ f|
|000024f0| 57 69 6e 64 3f 20 77 61 | 6e 74 65 64 20 2d 20 63 |Wind? wa|nted - c|
|00002500| 6f 70 79 20 69 74 20 28 | 57 49 4e 44 20 32 35 36 |opy it (|WIND 256|
|00002510| 29 0d 09 09 27 74 79 70 | 65 20 57 49 4e 44 20 20 |)...'typ|e WIND |
|00002520| 32 35 36 20 20 63 6f 70 | 79 52 65 73 0d 09 09 31 |256 cop|yRes...1|
|00002530| 32 20 67 65 74 69 74 65 | 6d 3a 20 69 44 6c 67 20 |2 getite|m: iDlg |
|00002540| 20 38 20 3c 3c 20 20 70 | 74 72 3a 20 64 73 74 52 | 8 << p|tr: dstR|
|00002550| 65 73 20 31 30 20 2b 20 | 77 21 0d 09 09 09 09 09 |es 10 + |w!......|
|00002560| 09 09 09 09 09 5c 20 4d | 61 72 6b 20 76 69 73 69 |.....\ M|ark visi|
|00002570| 62 6c 65 20 6f 72 20 6e | 6f 74 0d 09 65 6c 73 65 |ble or n|ot..else|
|00002580| 09 66 61 6c 73 65 20 2d | 3e 20 66 57 69 6e 64 3f |.false -|> fWind?|
|00002590| 0d 09 74 68 65 6e 0d 09 | 27 74 79 70 65 20 53 49 |..then..|'type SI|
|000025a0| 5a 45 20 20 2d 31 20 20 | 20 63 6f 70 79 52 65 73 |ZE -1 | copyRes|
|000025b0| 09 09 09 5c 20 43 6f 70 | 79 20 53 49 5a 45 20 2d |...\ Cop|y SIZE -|
|000025c0| 31 0d 09 27 74 79 70 65 | 20 42 4e 44 4c 20 20 31 |1..'type| BNDL 1|
|000025d0| 32 38 20 20 63 6f 70 79 | 52 65 73 09 09 09 5c 20 |28 copy|Res...\ |
|000025e0| 61 6e 64 20 64 6f 6e 27 | 74 20 64 72 6f 70 20 6f |and don'|t drop o|
|000025f0| 75 72 20 42 4e 44 4c 20 | 28 31 32 38 29 0d 09 73 |ur BNDL |(128)..s|
|00002600| 69 67 20 20 70 74 72 3a | 20 64 73 74 52 65 73 20 |ig ptr:| dstRes |
|00002610| 20 21 09 09 09 09 09 5c | 20 53 74 6f 72 65 20 69 | !.....\| Store i|
|00002620| 6e 20 6e 65 77 20 42 4e | 44 4c 0d 09 0d 5c 20 4e |n new BN|DL...\ N|
|00002630| 6f 77 20 73 65 74 20 75 | 70 20 46 52 45 46 73 3a |ow set u|p FREFs:|
|00002640| 0d 0d 09 27 74 79 70 65 | 20 46 52 45 46 20 20 31 |...'type| FREF 1|
|00002650| 32 38 20 20 63 6f 70 79 | 52 65 73 09 09 09 5c 20 |28 copy|Res...\ |
|00002660| 46 52 45 46 20 66 6f 72 | 20 41 50 50 4c 20 2d 20 |FREF for| APPL - |
|00002670| 64 6f 65 73 6e 27 74 20 | 63 68 61 6e 67 65 0d 09 |doesn't |change..|
|00002680| 31 30 20 36 20 44 4f 09 | 09 09 09 09 09 09 09 5c |10 6 DO.|.......\|
|00002690| 20 46 52 45 46 73 20 31 | 32 39 20 6f 6e 77 61 72 | FREFs 1|29 onwar|
|000026a0| 64 73 0d 09 09 69 20 67 | 65 74 54 65 78 74 3a 20 |ds...i g|etText: |
|000026b0| 69 44 6c 67 20 20 64 75 | 70 0d 09 09 4e 49 46 20 |iDlg du|p...NIF |
|000026c0| 20 64 72 6f 70 20 20 4c | 45 41 56 45 20 20 54 48 | drop L|EAVE TH|
|000026d0| 45 4e 0d 09 09 27 74 79 | 70 65 20 46 52 45 46 20 |EN...'ty|pe FREF |
|000026e0| 20 31 32 33 20 69 20 2b | 20 20 63 6f 70 79 52 65 | 123 i +| copyRe|
|000026f0| 73 0d 09 09 64 72 6f 70 | 40 20 20 70 74 72 3a 20 |s...drop|@ ptr: |
|00002700| 64 73 74 52 65 73 20 20 | 21 0d 09 4c 4f 4f 50 0d |dstRes |!..LOOP.|
|00002710| 09 0d 5c 20 4e 6f 77 20 | 77 65 20 63 72 65 61 74 |..\ Now |we creat|
|00002720| 65 20 74 68 65 20 6e 65 | 77 20 76 65 72 73 69 6f |e the ne|w versio|
|00002730| 6e 20 72 65 73 6f 75 72 | 63 65 20 77 68 69 63 68 |n resour|ce which|
|00002740| 20 68 61 73 20 61 20 22 | 74 79 70 65 22 20 74 68 | has a "|type" th|
|00002750| 61 74 20 69 73 20 74 68 | 65 0d 5c 20 73 61 6d 65 |at is th|e.\ same|
|00002760| 20 61 73 20 74 68 65 20 | 73 69 67 2c 20 61 6e 64 | as the |sig, and|
|00002770| 20 49 44 20 30 2e 0d 0d | 09 73 69 67 20 20 30 20 | ID 0...|.sig 0 |
|00002780| 20 73 65 74 3a 20 64 73 | 74 52 65 73 0d 09 34 20 | set: ds|tRes..4 |
|00002790| 67 65 74 54 65 78 74 3a | 20 69 44 6c 67 20 20 64 |getText:| iDlg d|
|000027a0| 75 70 20 31 2b 20 61 6c | 69 67 6e 20 20 6e 65 77 |up 1+ al|ign new|
|000027b0| 3a 20 64 73 74 52 65 73 | 0d 09 73 74 72 32 35 35 |: dstRes|..str255|
|000027c0| 20 20 70 74 72 3a 20 64 | 73 74 52 65 73 20 20 6f | ptr: d|stRes o|
|000027d0| 76 65 72 20 20 63 40 20 | 31 2b 20 63 4d 6f 76 65 |ver c@ |1+ cMove|
|000027e0| 0d 09 6e 75 6c 6c 4f 53 | 73 74 72 20 20 61 64 64 |..nullOS|str add|
|000027f0| 52 65 73 3a 20 64 73 74 | 52 65 73 0d 09 0d 5c 20 |Res: dst|Res...\ |
|00002800| 4e 6f 77 20 63 6f 70 79 | 20 74 68 65 20 41 6c 65 |Now copy| the Ale|
|00002810| 72 74 22 20 73 74 75 66 | 66 20 69 66 20 77 65 20 |rt" stuf|f if we |
|00002820| 6e 65 65 64 20 69 74 0d | 0d 09 24 61 6c 71 20 73 |need it.|..$alq s|
|00002830| 66 69 6e 64 20 6e 69 70 | 0d 09 69 66 09 27 74 79 |find nip|..if.'ty|
|00002840| 70 65 20 41 4c 52 54 20 | 20 39 30 30 20 20 63 6f |pe ALRT | 900 co|
|00002850| 70 79 52 65 73 0d 09 09 | 27 74 79 70 65 20 44 49 |pyRes...|'type DI|
|00002860| 54 4c 20 20 39 30 30 20 | 20 63 6f 70 79 52 65 73 |TL 900 | copyRes|
|00002870| 0d 09 74 68 65 6e 20 20 | 3b 0d 09 0d 0d 3a 20 44 |..then |;....: D|
|00002880| 4f 49 4e 53 54 41 4c 4c | 0d 09 6f 70 65 6e 4d 52 |OINSTALL|..openMR|
|00002890| 20 20 20 67 65 74 6e 65 | 77 3a 20 69 44 6c 67 20 | getne|w: iDlg |
|000028a0| 20 20 67 65 74 52 0d 09 | 22 20 67 6f 22 09 20 31 | getR..|" go". 1|
|000028b0| 30 20 70 75 74 54 65 78 | 74 3a 20 69 44 6c 67 0d |0 putTex|t: iDlg.|
|000028c0| 09 22 20 63 72 61 73 68 | 22 20 31 31 20 70 75 74 |." crash|" 11 put|
|000028d0| 54 65 78 74 3a 20 69 44 | 6c 67 0d 09 30 20 24 20 |Text: iD|lg..0 $ |
|000028e0| 66 66 66 66 20 33 20 73 | 65 74 53 65 6c 65 63 74 |ffff 3 s|etSelect|
|000028f0| 3a 20 69 44 6c 67 0d 09 | 6d 6f 64 61 6c 3a 20 69 |: iDlg..|modal: i|
|00002900| 44 6c 67 0d 09 49 46 09 | 6e 65 77 5f 61 70 70 6c |Dlg..IF.|new_appl|
|00002910| 69 63 61 74 69 6f 6e 20 | 20 54 48 45 4e 0d 09 63 |ication | THEN..c|
|00002920| 6c 6f 73 65 3a 20 69 44 | 6c 67 0d 09 6b 6c 75 64 |lose: iD|lg..klud|
|00002930| 67 65 3a 20 69 6e 73 74 | 6c 4d 6f 64 20 20 6b 6c |ge: inst|lMod kl|
|00002940| 75 64 67 65 3a 20 70 61 | 74 68 73 6d 6f 64 0d 09 |udge: pa|thsmod..|
|00002950| 70 75 72 67 65 09 09 09 | 09 09 09 09 5c 20 44 69 |purge...|....\ Di|
|00002960| 63 20 69 6d 61 67 65 20 | 6d 75 73 74 20 68 61 76 |c image |must hav|
|00002970| 65 20 6e 6f 20 6d 6f 64 | 75 6c 65 73 20 6c 6f 61 |e no mod|ules loa|
|00002980| 64 65 64 0d 09 62 79 65 | 20 20 3b 0d 0d 0d 3a 20 |ded..bye| ;...: |
|00002990| 53 41 56 45 4e 55 43 20 | 20 7b 20 5c 20 61 64 64 |SAVENUC | { \ add|
|000029a0| 72 20 6c 65 6e 20 2d 2d | 20 7d 09 09 09 5c 20 53 |r len --| }...\ S|
|000029b0| 61 76 65 73 20 61 20 6e | 65 77 20 4d 6f 70 73 20 |aves a n|ew Mops |
|000029c0| 6e 75 63 6c 65 75 73 2e | 0d 09 22 20 4d 6f 70 73 |nucleus.|.." Mops|
|000029d0| 2e 6e 65 77 22 20 20 2d | 3e 20 6c 65 6e 20 2d 3e |.new" -|> len ->|
|000029e0| 20 61 64 64 72 0d 09 61 | 64 64 72 20 6c 65 6e 20 | addr..a|ddr len |
|000029f0| 20 6e 61 6d 65 3a 20 66 | 46 63 62 0d 09 63 72 65 | name: f|Fcb..cre|
|00002a00| 61 74 65 3a 20 66 46 63 | 62 20 20 3f 65 72 72 6f |ate: fFc|b ?erro|
|00002a10| 72 20 31 36 39 0d 09 61 | 64 64 72 20 6c 65 6e 20 |r 169..a|ddr len |
|00002a20| 20 73 74 72 32 35 35 09 | 09 09 09 09 5c 20 43 72 | str255.|....\ Cr|
|00002a30| 65 61 74 65 20 72 65 73 | 20 66 69 6c 65 20 66 6f |eate res| file fo|
|00002a40| 72 20 6e 65 77 20 6e 75 | 63 0d 09 63 61 6c 6c 20 |r new nu|c..call |
|00002a50| 43 72 65 61 74 65 52 65 | 73 46 69 6c 65 0d 09 77 |CreateRe|sFile..w|
|00002a60| 6f 72 64 30 20 20 63 61 | 6c 6c 20 72 65 73 65 72 |ord0 ca|ll reser|
|00002a70| 72 6f 72 20 20 69 2d 3e | 6c 20 20 3f 65 72 72 6f |ror i->|l ?erro|
|00002a80| 72 20 31 36 39 0d 09 5b | 27 5d 20 6e 6f 67 6f 20 |r 169..[|'] nogo |
|00002a90| 20 6f 6e 45 72 72 6f 72 | 0d 09 30 20 20 62 75 66 | onError|..0 buf|
|00002aa0| 32 35 35 20 20 63 61 6c | 6c 20 4f 70 65 6e 52 65 |255 cal|l OpenRe|
|00002ab0| 73 46 69 6c 65 20 20 64 | 72 6f 70 20 20 63 68 6b |sFile d|rop chk|
|00002ac0| 0d 09 27 74 79 70 65 20 | 41 50 50 4c 20 20 27 74 |..'type |APPL 't|
|00002ad0| 79 70 65 20 4d 4f 50 53 | 20 20 73 65 74 3a 20 66 |ype MOPS| set: f|
|00002ae0| 46 63 62 09 5c 20 53 65 | 74 20 74 79 70 65 20 26 |Fcb.\ Se|t type &|
|00002af0| 20 73 69 67 20 6f 66 20 | 61 70 70 6c 0d 09 24 20 | sig of |appl..$ |
|00002b00| 32 31 20 20 66 46 63 62 | 20 24 20 32 38 20 2b 20 |21 fFcb| $ 28 + |
|00002b10| 63 21 09 09 09 09 5c 20 | 53 65 74 20 42 75 6e 64 |c!....\ |Set Bund|
|00002b20| 6c 65 20 62 69 74 0d 09 | 73 65 74 46 69 6c 65 49 |le bit..|setFileI|
|00002b30| 6e 66 6f 3a 20 66 46 63 | 62 0d 09 27 74 79 70 65 |nfo: fFc|b..'type|
|00002b40| 20 57 49 4e 44 20 20 32 | 35 36 20 20 63 6f 70 79 | WIND 2|56 copy|
|00002b50| 52 65 73 09 09 09 5c 20 | 43 6f 70 79 20 66 57 69 |Res...\ |Copy fWi|
|00002b60| 6e 64 20 28 57 49 4e 44 | 20 32 35 36 29 0d 09 27 |nd (WIND| 256)..'|
|00002b70| 74 79 70 65 20 42 4e 44 | 4c 20 20 31 32 38 20 20 |type BND|L 128 |
|00002b80| 63 6f 70 79 52 65 73 09 | 09 09 5c 20 41 6e 64 20 |copyRes.|..\ And |
|00002b90| 64 6f 6e 27 74 20 64 72 | 6f 70 20 6f 75 72 20 42 |don't dr|op our B|
|00002ba0| 4e 44 4c 20 28 31 32 38 | 29 0d 09 31 33 32 20 31 |NDL (128|)..132 1|
|00002bb0| 32 38 20 64 6f 0d 09 09 | 27 74 79 70 65 20 49 43 |28 do...|'type IC|
|00002bc0| 4e 23 20 20 69 20 20 63 | 6f 70 79 52 65 73 09 09 |N# i c|opyRes..|
|00002bd0| 09 5c 20 43 6f 70 79 20 | 49 43 4e 23 20 61 6e 64 |.\ Copy |ICN# and|
|00002be0| 20 69 63 6c 38 20 72 65 | 73 6f 75 72 63 65 73 0d | icl8 re|sources.|
|00002bf0| 09 09 27 74 79 70 65 20 | 69 63 6c 38 20 20 69 20 |..'type |icl8 i |
|00002c00| 20 63 6f 70 79 52 65 73 | 0d 09 6c 6f 6f 70 0d 09 | copyRes|..loop..|
|00002c10| 27 74 79 70 65 20 69 63 | 73 38 20 20 31 32 38 20 |'type ic|s8 128 |
|00002c20| 20 63 6f 70 79 52 65 73 | 09 09 09 5c 20 41 6e 64 | copyRes|...\ And|
|00002c30| 20 77 65 20 68 61 76 65 | 20 6f 6e 65 20 69 63 73 | we have| one ics|
|00002c40| 38 20 72 65 73 6f 75 72 | 63 65 20 74 6f 6f 0d 09 |8 resour|ce too..|
|00002c50| 31 33 32 20 31 32 38 20 | 64 6f 0d 09 09 27 74 79 |132 128 |do...'ty|
|00002c60| 70 65 20 46 52 45 46 20 | 20 69 20 20 63 6f 70 79 |pe FREF | i copy|
|00002c70| 52 65 73 09 09 09 5c 20 | 43 6f 70 79 20 46 52 45 |Res...\ |Copy FRE|
|00002c80| 46 73 0d 09 6c 6f 6f 70 | 0d 0d 09 27 74 79 70 65 |Fs..loop|...'type|
|00002c90| 20 53 49 5a 45 20 20 2d | 31 20 20 63 6f 70 79 52 | SIZE -|1 copyR|
|00002ca0| 65 73 09 09 09 09 5c 20 | 41 6e 64 20 53 49 5a 45 |es....\ |And SIZE|
|00002cb0| 20 2d 31 0d 09 27 74 79 | 70 65 20 41 4c 52 54 20 | -1..'ty|pe ALRT |
|00002cc0| 39 30 30 20 20 63 6f 70 | 79 52 65 73 09 09 09 09 |900 cop|yRes....|
|00002cd0| 5c 20 41 6e 64 20 41 4c | 52 54 20 61 6e 64 20 44 |\ And AL|RT and D|
|00002ce0| 49 54 4c 20 66 6f 72 20 | 61 6c 65 72 74 22 0d 09 |ITL for |alert"..|
|00002cf0| 27 74 79 70 65 20 44 49 | 54 4c 20 39 30 30 20 20 |'type DI|TL 900 |
|00002d00| 63 6f 70 79 52 65 73 0d | 09 0d 5c 20 4e 6f 77 20 |copyRes.|..\ Now |
|00002d10| 77 65 20 63 72 65 61 74 | 65 20 74 68 65 20 6e 65 |we creat|e the ne|
|00002d20| 77 20 76 65 72 73 69 6f | 6e 20 72 65 73 6f 75 72 |w versio|n resour|
|00002d30| 63 65 20 77 68 6f 73 65 | 20 74 65 78 74 20 77 65 |ce whose| text we|
|00002d40| 20 67 65 74 20 66 72 6f | 6d 20 53 54 52 20 35 30 | get fro|m STR 50|
|00002d50| 2e 0d 0d 09 27 74 79 70 | 65 20 53 54 52 20 20 35 |....'typ|e STR 5|
|00002d60| 30 20 20 73 65 74 3a 20 | 73 72 63 52 65 73 20 20 |0 set: |srcRes |
|00002d70| 67 65 74 4e 65 77 3a 20 | 73 72 63 52 65 73 0d 09 |getNew: |srcRes..|
|00002d80| 70 74 72 3a 20 73 72 63 | 52 65 73 20 20 73 69 7a |ptr: src|Res siz|
|00002d90| 65 3a 20 73 72 63 52 65 | 73 20 20 70 75 74 3a 20 |e: srcRe|s put: |
|00002da0| 24 74 6d 70 0d 09 27 74 | 79 70 65 20 4d 4f 50 53 |$tmp..'t|ype MOPS|
|00002db0| 20 20 30 20 20 73 65 74 | 3a 20 64 73 74 52 65 73 | 0 set|: dstRes|
|00002dc0| 0d 09 6c 65 6e 3a 20 24 | 74 6d 70 20 20 64 75 70 |..len: $|tmp dup|
|00002dd0| 20 61 6c 69 67 6e 20 20 | 6e 65 77 3a 20 64 73 74 | align |new: dst|
|00002de0| 52 65 73 0d 5c 09 67 65 | 74 3a 20 24 74 6d 70 20 |Res.\.ge|t: $tmp |
|00002df0| 20 73 74 72 32 35 35 20 | 20 70 74 72 3a 20 64 73 | str255 | ptr: ds|
|00002e00| 74 52 65 73 20 20 6f 76 | 65 72 20 20 63 40 20 31 |tRes ov|er c@ 1|
|00002e10| 2b 20 63 4d 6f 76 65 0d | 09 70 74 72 3a 20 24 74 |+ cMove.|.ptr: $t|
|00002e20| 6d 70 20 20 70 74 72 3a | 20 64 73 74 52 65 73 20 |mp ptr:| dstRes |
|00002e30| 20 6c 65 6e 3a 20 24 74 | 6d 70 20 20 63 6d 6f 76 | len: $t|mp cmov|
|00002e40| 65 0d 09 72 65 6c 65 61 | 73 65 3a 20 24 74 6d 70 |e..relea|se: $tmp|
|00002e50| 0d 09 6e 75 6c 6c 4f 53 | 73 74 72 20 20 61 64 64 |..nullOS|str add|
|00002e60| 52 65 73 3a 20 64 73 74 | 52 65 73 0d 09 73 61 76 |Res: dst|Res..sav|
|00002e70| 65 43 6f 64 65 09 09 09 | 09 09 09 09 5c 20 41 64 |eCode...|....\ Ad|
|00002e80| 64 20 63 6f 64 65 20 72 | 65 73 6f 75 72 63 65 73 |d code r|esources|
|00002e90| 0d 09 62 79 65 20 20 3b | 09 09 09 09 09 09 09 09 |..bye ;|........|
|00002ea0| 5c 20 54 68 61 74 27 73 | 20 61 6c 6c 2c 20 66 6f |\ That's| all, fo|
|00002eb0| 6c 6b 73 0d 0d 0d 5c 09 | 09 09 3d 3d 3d 3d 3d 3d |lks...\.|..======|
|00002ec0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ed0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ee0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0d 5c 09 09 09 09 |========|=..\....|
|00002ef0| 09 09 49 6e 69 74 69 61 | 6c 20 49 4e 53 54 41 4c |..Initia|l INSTAL|
|00002f00| 4c 20 64 69 61 6c 6f 67 | 0d 0d 5c 09 09 09 3d 3d |L dialog|..\...==|
|00002f10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0d |========|======..|
|00002f40| 74 72 75 65 09 76 61 6c | 75 65 09 49 43 55 52 53 |true.val|ue.ICURS|
|00002f50| 0d 66 61 6c 73 65 09 76 | 61 6c 75 65 09 43 41 4e |.false.v|alue.CAN|
|00002f60| 43 45 4c 4c 45 44 3f 0d | 0d 5c 20 73 63 72 6f 6c |CELLED?.|.\ scrol|
|00002f70| 6c 20 62 61 72 73 20 66 | 6f 72 20 53 74 61 63 6b |l bars f|or Stack|
|00002f80| 20 61 6e 64 20 44 69 63 | 74 69 6f 6e 61 72 79 20 | and Dic|tionary |
|00002f90| 68 65 61 64 72 6f 6f 6d | 0d 0d 76 53 63 72 6f 6c |headroom|..vScrol|
|00002fa0| 6c 09 56 53 31 09 09 31 | 38 30 20 31 35 20 34 38 |l.VS1..1|80 15 48|
|00002fb0| 20 20 69 6e 69 74 3a 20 | 76 73 31 0d 76 53 63 72 | init: |vs1.vScr|
|00002fc0| 6f 6c 6c 09 56 53 32 09 | 09 31 38 30 20 38 35 20 |oll.VS2.|.180 85 |
|00002fd0| 34 38 20 20 69 6e 69 74 | 3a 20 76 73 32 0d 0d 62 |48 init|: vs2..b|
|00002fe0| 75 74 74 6f 6e 09 53 41 | 56 45 42 54 4e 09 09 32 |utton.SA|VEBTN..2|
|00002ff0| 33 38 20 32 30 20 22 20 | 53 61 76 65 22 09 09 69 |38 20 " |Save"..i|
|00003000| 6e 69 74 3a 20 73 61 76 | 65 42 74 6e 0d 62 75 74 |nit: sav|eBtn.but|
|00003010| 74 6f 6e 09 49 4e 53 54 | 42 54 4e 09 09 32 33 36 |ton.INST|BTN..236|
|00003020| 20 34 35 20 22 20 49 6e | 73 74 61 6c 6c 22 09 69 | 45 " In|stall".i|
|00003030| 6e 69 74 3a 20 69 6e 73 | 74 42 74 6e 0d 62 75 74 |nit: ins|tBtn.but|
|00003040| 74 6f 6e 09 43 41 4e 42 | 54 4e 09 09 32 33 36 20 |ton.CANB|TN..236 |
|00003050| 37 30 20 22 20 43 61 6e | 63 65 6c 22 09 69 6e 69 |70 " Can|cel".ini|
|00003060| 74 3a 20 63 61 6e 42 74 | 6e 0d 62 75 74 74 6f 6e |t: canBt|n.button|
|00003070| 09 48 45 41 50 42 54 4e | 09 09 31 35 30 20 31 34 |.HEAPBTN|..150 14|
|00003080| 35 20 22 20 4d 61 78 20 | 48 65 61 70 22 09 69 6e |5 " Max |Heap".in|
|00003090| 69 74 3a 20 68 65 61 70 | 42 74 6e 0d 0d 72 61 64 |it: heap|Btn..rad|
|000030a0| 69 6f 42 75 74 74 6f 6e | 09 6d 78 53 74 09 31 39 |ioButton|.mxSt.19|
|000030b0| 37 20 31 34 20 20 22 20 | 2b 2b 22 20 20 20 69 6e |7 14 " |++" in|
|000030c0| 69 74 3a 20 6d 78 53 74 | 0d 72 61 64 69 6f 42 75 |it: mxSt|.radioBu|
|000030d0| 74 74 6f 6e 09 6d 69 53 | 74 09 31 39 37 20 34 36 |tton.miS|t.197 46|
|000030e0| 20 09 22 20 2d 2d 22 09 | 69 6e 69 74 3a 20 6d 69 | ." --".|init: mi|
|000030f0| 53 74 0d 72 61 64 69 6f | 42 75 74 74 6f 6e 20 6d |St.radio|Button m|
|00003100| 78 44 69 09 31 39 37 20 | 38 34 20 09 22 20 2b 2b |xDi.197 |84 ." ++|
|00003110| 22 09 69 6e 69 74 3a 20 | 6d 78 44 69 0d 72 61 64 |".init: |mxDi.rad|
|00003120| 69 6f 42 75 74 74 6f 6e | 20 6d 69 44 69 09 31 39 |ioButton| miDi.19|
|00003130| 37 20 31 31 36 20 22 20 | 2d 2d 22 09 69 6e 69 74 |7 116 " |--".init|
|00003140| 3a 20 6d 69 44 69 0d 0d | 0d 5c 20 52 65 63 74 61 |: miDi..|.\ Recta|
|00003150| 6e 67 6c 65 73 20 66 6f | 72 20 66 6f 72 6d 61 74 |ngles fo|r format|
|00003160| 74 69 6e 67 20 73 63 72 | 65 65 6e 2e 20 20 54 68 |ting scr|een. Th|
|00003170| 65 73 65 20 70 72 6f 62 | 61 62 6c 79 20 73 68 6f |ese prob|ably sho|
|00003180| 75 6c 64 20 62 65 20 72 | 65 77 72 69 74 74 65 6e |uld be r|ewritten|
|00003190| 20 61 73 0d 5c 20 63 68 | 69 6c 64 20 76 69 65 77 | as.\ ch|ild view|
|000031a0| 73 2c 20 72 61 74 68 65 | 72 20 74 68 61 6e 20 6a |s, rathe|r than j|
|000031b0| 75 73 74 20 64 72 61 77 | 6e 20 64 69 72 65 63 74 |ust draw|n direct|
|000031c0| 6c 79 20 69 6e 20 74 68 | 65 20 77 69 6e 64 6f 77 |ly in th|e window|
|000031d0| 2c 20 62 75 74 20 74 68 | 69 73 20 69 73 0d 5c 20 |, but th|is is.\ |
|000031e0| 6e 6f 77 20 22 6c 65 67 | 61 63 79 20 63 6f 64 65 |now "leg|acy code|
|000031f0| 22 21 0d 0d 72 65 63 74 | 20 73 74 52 65 63 74 09 |"!..rect| stRect.|
|00003200| 09 32 30 20 32 39 20 31 | 37 30 20 34 39 09 70 75 |.20 29 1|70 49.pu|
|00003210| 74 3a 20 73 74 52 65 63 | 74 09 09 5c 20 73 74 61 |t: stRec|t..\ sta|
|00003220| 63 6b 20 68 65 61 64 72 | 6f 6f 6d 0d 72 65 63 74 |ck headr|oom.rect|
|00003230| 20 68 70 52 65 63 74 09 | 09 32 30 20 36 34 20 31 | hpRect.|.20 64 1|
|00003240| 37 30 20 38 34 09 70 75 | 74 3a 20 68 70 52 65 63 |70 84.pu|t: hpRec|
|00003250| 74 09 09 5c 20 68 65 61 | 70 20 73 74 61 72 74 20 |t..\ hea|p start |
|00003260| 73 69 7a 65 0d 72 65 63 | 74 20 64 69 52 65 63 74 |size.rec|t diRect|
|00003270| 09 09 32 30 20 39 39 20 | 31 37 30 20 31 31 39 09 |..20 99 |170 119.|
|00003280| 70 75 74 3a 20 64 69 52 | 65 63 74 09 09 5c 20 44 |put: diR|ect..\ D|
|00003290| 69 63 74 69 6f 6e 61 72 | 79 20 68 65 61 64 72 6f |ictionar|y headro|
|000032a0| 6f 6d 0d 09 0d 72 65 63 | 74 20 77 52 65 63 74 09 |om...rec|t wRect.|
|000032b0| 09 31 30 30 20 34 30 20 | 34 30 30 20 32 31 30 09 |.100 40 |400 210.|
|000032c0| 70 75 74 3a 20 77 52 65 | 63 74 0d 0d 0d 5c 20 67 |put: wRe|ct...\ g|
|000032d0| 65 74 20 63 75 72 72 65 | 6e 74 20 6c 69 6d 69 74 |et curre|nt limit|
|000032e0| 73 20 66 6f 72 20 73 74 | 61 63 6b 20 61 6e 64 20 |s for st|ack and |
|000032f0| 64 69 63 74 20 62 61 73 | 65 64 20 6f 6e 20 6d 69 |dict bas|ed on mi|
|00003300| 6e 48 65 61 70 0d 0d 3a | 20 4d 41 58 53 54 41 43 |nHeap..:| MAXSTAC|
|00003310| 4b 20 20 63 75 72 53 74 | 61 63 6b 20 63 75 72 48 |K curSt|ack curH|
|00003320| 65 61 70 20 6d 69 6e 48 | 65 61 70 20 2d 20 2b 20 |eap minH|eap - + |
|00003330| 20 3b 0d 3a 20 4d 41 58 | 44 49 43 54 20 20 20 63 | ;.: MAX|DICT c|
|00003340| 75 72 44 69 63 74 20 20 | 63 75 72 48 65 61 70 20 |urDict |curHeap |
|00003350| 6d 69 6e 48 65 61 70 20 | 2d 20 2b 20 20 3b 0d 0d |minHeap |- + ;..|
|00003360| 32 30 30 30 30 09 76 61 | 6c 75 65 09 4d 49 4e 53 |20000.va|lue.MINS|
|00003370| 54 41 43 4b 0d 20 20 31 | 32 38 09 76 61 6c 75 65 |TACK. 1|28.value|
|00003380| 09 4d 49 4e 44 49 43 54 | 0d 0d 3a 20 2e 56 41 4c |.MINDICT|..: .VAL|
|00003390| 20 20 7b 20 6e 20 74 68 | 65 52 65 63 74 20 2d 2d | { n th|eRect --|
|000033a0| 20 7d 09 5c 20 70 72 69 | 6e 74 20 6e 75 6d 62 65 | }.\ pri|nt numbe|
|000033b0| 72 20 69 6e 20 72 65 63 | 74 0d 09 6e 6f 43 6c 69 |r in rec|t..noCli|
|000033c0| 70 0d 09 74 68 65 52 65 | 63 74 20 2d 3e 3a 20 74 |p..theRe|ct ->: t|
|000033d0| 65 6d 70 52 65 63 74 0d | 09 34 20 34 20 69 6e 73 |empRect.|.4 4 ins|
|000033e0| 65 74 3a 20 74 65 6d 70 | 52 65 63 74 20 31 30 30 |et: temp|Rect 100|
|000033f0| 20 70 75 74 54 6f 70 58 | 3a 20 74 65 6d 70 52 65 | putTopX|: tempRe|
|00003400| 63 74 20 63 6c 65 61 72 | 3a 20 74 65 6d 70 52 65 |ct clear|: tempRe|
|00003410| 63 74 0d 09 31 30 34 20 | 67 65 74 62 6f 74 79 3a |ct..104 |getboty:|
|00003420| 20 74 65 6d 70 52 65 63 | 74 20 32 2d 20 67 6f 74 | tempRec|t 2- got|
|00003430| 6f 78 79 20 6e 20 37 20 | 20 2e 72 20 20 3b 0d 0d |oxy n 7 | .r ;..|
|00003440| 3a 20 2e 56 53 31 09 63 | 75 72 53 74 61 63 6b 20 |: .VS1.c|urStack |
|00003450| 73 74 52 65 63 74 20 2e | 76 61 6c 20 63 75 72 48 |stRect .|val curH|
|00003460| 65 61 70 20 68 70 52 65 | 63 74 20 2e 76 61 6c 20 |eap hpRe|ct .val |
|00003470| 20 3b 0d 3a 20 2e 56 53 | 32 09 63 75 72 44 69 63 | ;.: .VS|2.curDic|
|00003480| 74 20 20 64 69 52 65 63 | 74 20 2e 76 61 6c 20 63 |t diRec|t .val c|
|00003490| 75 72 48 65 61 70 20 68 | 70 52 65 63 74 20 2e 76 |urHeap h|pRect .v|
|000034a0| 61 6c 20 20 3b 0d 0d 0d | 5c 20 44 65 66 69 6e 65 |al ;...|\ Define|
|000034b0| 20 74 68 65 20 49 6e 73 | 74 61 6c 6c 20 75 74 69 | the Ins|tall uti|
|000034c0| 6c 69 74 79 20 77 69 6e | 64 6f 77 0d 0d 77 69 6e |lity win|dow..win|
|000034d0| 64 6f 77 2b 09 09 49 57 | 49 4e 44 0d 76 69 65 77 |dow+..IW|IND.view|
|000034e0| 09 09 49 56 49 45 57 09 | 09 09 09 5c 20 54 68 69 |..IVIEW.|...\ Thi|
|000034f0| 73 20 77 69 6c 6c 20 62 | 65 20 74 68 65 20 63 6f |s will b|e the co|
|00003500| 6e 74 56 69 65 77 20 66 | 6f 72 20 49 57 49 4e 44 |ntView f|or IWIND|
|00003510| 0d 0d 0d 3a 61 20 20 44 | 52 41 57 49 56 49 45 57 |...:a D|RAWIVIEW|
|00003520| 0d 09 64 72 61 77 3a 20 | 73 74 52 65 63 74 20 64 |..draw: |stRect d|
|00003530| 72 61 77 3a 20 68 70 52 | 65 63 74 20 64 72 61 77 |raw: hpR|ect draw|
|00003540| 3a 20 64 69 52 65 63 74 | 0d 09 32 20 74 6d 6f 64 |: diRect|..2 tmod|
|00003550| 65 20 30 20 74 66 6f 6e | 74 20 31 32 20 74 73 69 |e 0 tfon|t 12 tsi|
|00003560| 7a 65 0d 09 32 34 20 34 | 33 20 67 6f 74 6f 78 79 |ze..24 4|3 gotoxy|
|00003570| 20 2e 22 20 53 74 61 63 | 6b 3a 22 0d 09 32 34 20 | ." Stac|k:"..24 |
|00003580| 37 38 20 67 6f 74 6f 78 | 79 20 2e 22 20 48 65 61 |78 gotox|y ." Hea|
|00003590| 70 3a 22 0d 09 32 34 20 | 31 31 33 20 67 6f 74 6f |p:"..24 |113 goto|
|000035a0| 78 79 20 2e 22 20 44 69 | 63 74 69 6f 6e 61 72 79 |xy ." Di|ctionary|
|000035b0| 3a 22 20 20 2e 76 73 31 | 20 2e 76 73 32 0d 3b 61 |:" .vs1| .vs2.;a|
|000035c0| 0d 0d 5c 20 43 46 41 53 | 7b 20 6e 75 6c 6c 20 6e |..\ CFAS|{ null n|
|000035d0| 75 6c 6c 20 64 72 61 77 | 49 77 69 6e 64 20 6e 75 |ull draw|Iwind nu|
|000035e0| 6c 6c 20 7d 20 20 61 63 | 74 69 6f 6e 73 3a 20 69 |ll } ac|tions: i|
|000035f0| 57 69 6e 64 0d 0d 27 20 | 64 72 61 77 49 56 69 65 |Wind..' |drawIVie|
|00003600| 77 20 20 73 65 74 44 72 | 61 77 3a 20 69 56 69 65 |w setDr|aw: iVie|
|00003610| 77 0d 0d 0d 5c 20 43 72 | 65 61 74 65 20 6e 65 77 |w...\ Cr|eate new|
|00003620| 20 77 69 6e 64 6f 77 2c | 20 63 6f 6e 74 72 6f 6c | window,| control|
|00003630| 73 0d 0d 3a 20 49 4e 53 | 54 41 4c 4c 0d 09 76 73 |s..: INS|TALL..vs|
|00003640| 31 20 20 61 64 64 56 69 | 65 77 3a 20 69 56 69 65 |1 addVi|ew: iVie|
|00003650| 77 20 20 20 76 73 32 20 | 20 61 64 64 56 69 65 77 |w vs2 | addView|
|00003660| 3a 20 69 56 69 65 77 0d | 09 6d 78 53 74 20 61 64 |: iView.|.mxSt ad|
|00003670| 64 56 69 65 77 3a 20 69 | 56 69 65 77 20 20 6d 69 |dView: i|View mi|
|00003680| 53 74 20 61 64 64 56 69 | 65 77 3a 20 69 56 69 65 |St addVi|ew: iVie|
|00003690| 77 0d 09 6d 78 44 69 20 | 61 64 64 56 69 65 77 3a |w..mxDi |addView:|
|000036a0| 20 69 56 69 65 77 20 20 | 6d 69 44 69 20 61 64 64 | iView |miDi add|
|000036b0| 56 69 65 77 3a 20 69 56 | 69 65 77 0d 09 73 61 76 |View: iV|iew..sav|
|000036c0| 65 42 74 6e 20 61 64 64 | 56 69 65 77 3a 20 69 56 |eBtn add|View: iV|
|000036d0| 69 65 77 0d 09 69 6e 73 | 74 42 74 6e 20 61 64 64 |iew..ins|tBtn add|
|000036e0| 56 69 65 77 3a 20 69 56 | 69 65 77 0d 09 63 61 6e |View: iV|iew..can|
|000036f0| 42 74 6e 09 61 64 64 56 | 69 65 77 3a 20 69 56 69 |Btn.addV|iew: iVi|
|00003700| 65 77 0d 09 68 65 61 70 | 42 74 6e 09 61 64 64 56 |ew..heap|Btn.addV|
|00003710| 69 65 77 3a 20 69 56 69 | 65 77 0d 09 66 61 6c 73 |iew: iVi|ew..fals|
|00003720| 65 20 2d 3e 20 63 61 6e | 63 65 6c 6c 65 64 3f 0d |e -> can|celled?.|
|00003730| 09 77 52 65 63 74 20 22 | 20 20 22 20 64 6c 67 57 |.wRect "| " dlgW|
|00003740| 69 6e 64 20 74 72 75 65 | 20 66 61 6c 73 65 20 20 |ind true| false |
|00003750| 69 56 69 65 77 20 20 6e | 65 77 3a 20 69 57 69 6e |iView n|ew: iWin|
|00003760| 64 0d 09 32 30 30 30 20 | 33 32 30 30 30 20 70 75 |d..2000 |32000 pu|
|00003770| 74 52 61 6e 67 65 3a 20 | 76 73 31 20 20 30 20 38 |tRange: |vs1 0 8|
|00003780| 30 30 30 20 70 75 74 52 | 61 6e 67 65 3a 20 76 73 |000 putR|ange: vs|
|00003790| 32 0d 09 34 30 30 30 20 | 64 75 70 20 70 75 74 3a |2..4000 |dup put:|
|000037a0| 20 76 73 31 20 20 70 75 | 74 3a 20 76 73 32 0d 09 | vs1 pu|t: vs2..|
|000037b0| 73 74 6b 73 70 61 63 65 | 20 2d 3e 20 63 75 72 53 |stkspace| -> curS|
|000037c0| 74 61 63 6b 20 20 64 69 | 63 73 69 7a 65 20 2d 3e |tack di|csize ->|
|000037d0| 20 63 75 72 44 69 63 74 | 0d 09 2d 63 75 72 73 20 | curDict|..-curs |
|000037e0| 20 20 61 72 72 6f 77 43 | 75 72 73 20 20 64 72 61 | arrowC|urs dra|
|000037f0| 77 3a 20 69 57 69 6e 64 | 0d 5c 09 42 45 47 49 4e |w: iWind|.\.BEGIN|
|00003800| 20 20 6b 65 79 20 64 72 | 6f 70 20 20 63 61 6e 63 | key dr|op canc|
|00003810| 65 6c 6c 65 64 3f 20 20 | 55 4e 54 49 4c 20 20 3b |elled? |UNTIL ;|
|00003820| 09 5c 20 32 37 46 65 62 | 39 34 20 44 42 48 0d 09 |.\ 27Feb|94 DBH..|
|00003830| 45 76 65 6e 74 4c 6f 6f | 70 09 09 09 09 09 09 09 |EventLoo|p.......|
|00003840| 09 5c 20 32 37 46 65 62 | 39 34 20 44 42 48 0d 3b |.\ 27Feb|94 DBH.;|
|00003850| 0d 0d 3a 20 73 74 44 6e | 09 63 75 72 53 74 61 63 |..: stDn|.curStac|
|00003860| 6b 20 38 20 2d 20 20 6d | 69 6e 53 74 61 63 6b 20 |k 8 - m|inStack |
|00003870| 6d 61 78 20 2d 3e 20 63 | 75 72 53 74 61 63 6b 20 |max -> c|urStack |
|00003880| 20 2e 76 73 31 20 20 3b | 0d 3a 20 73 74 55 70 09 | .vs1 ;|.: stUp.|
|00003890| 63 75 72 53 74 61 63 6b | 20 38 20 2b 20 20 6d 61 |curStack| 8 + ma|
|000038a0| 78 53 74 61 63 6b 20 6d | 69 6e 20 2d 3e 20 63 75 |xStack m|in -> cu|
|000038b0| 72 53 74 61 63 6b 20 20 | 2e 76 73 31 20 20 3b 0d |rStack |.vs1 ;.|
|000038c0| 0d 3a 20 64 69 44 6e 09 | 63 75 72 44 69 63 74 20 |.: diDn.|curDict |
|000038d0| 33 32 20 2d 20 20 6d 69 | 6e 44 69 63 74 20 6d 61 |32 - mi|nDict ma|
|000038e0| 78 20 2d 3e 20 63 75 72 | 44 69 63 74 20 20 2e 76 |x -> cur|Dict .v|
|000038f0| 73 32 20 20 3b 0d 3a 20 | 64 69 55 70 09 63 75 72 |s2 ;.: |diUp.cur|
|00003900| 44 69 63 74 20 33 32 20 | 2b 20 20 6d 61 78 44 69 |Dict 32 |+ maxDi|
|00003910| 63 74 20 6d 69 6e 20 2d | 3e 20 63 75 72 44 69 63 |ct min -|> curDic|
|00003920| 74 20 20 2e 76 73 32 20 | 20 3b 0d 0d 58 54 53 7b |t .vs2 | ;..XTS{|
|00003930| 20 20 73 74 55 70 20 73 | 74 44 6e 20 6e 75 6c 6c | stUp s|tDn null|
|00003940| 20 6e 75 6c 6c 20 6e 75 | 6c 6c 20 20 7d 20 20 61 | null nu|ll } a|
|00003950| 63 74 69 6f 6e 73 3a 20 | 76 73 31 0d 58 54 53 7b |ctions: |vs1.XTS{|
|00003960| 20 20 64 69 55 70 20 64 | 69 44 6e 20 6e 75 6c 6c | diUp d|iDn null|
|00003970| 20 6e 75 6c 6c 20 6e 75 | 6c 6c 20 20 7d 20 20 61 | null nu|ll } a|
|00003980| 63 74 69 6f 6e 73 3a 20 | 76 73 32 0d 0d 0d 3a 20 |ctions: |vs2...: |
|00003990| 43 4f 4e 46 49 47 09 09 | 63 6c 6f 73 65 3a 20 69 |CONFIG..|close: i|
|000039a0| 57 69 6e 64 20 20 73 65 | 74 4d 65 6d 20 20 73 61 |Wind se|tMem sa|
|000039b0| 76 65 4e 75 63 20 20 3b | 0d 3a 20 57 49 4e 53 54 |veNuc ;|.: WINST|
|000039c0| 41 4c 4c 09 09 63 6c 6f | 73 65 3a 20 69 57 69 6e |ALL..clo|se: iWin|
|000039d0| 64 20 20 73 65 74 4d 65 | 6d 20 20 64 6f 49 6e 73 |d setMe|m doIns|
|000039e0| 74 61 6c 6c 20 20 3b 0d | 3a 20 43 41 4e 43 45 4c |tall ;.|: CANCEL|
|000039f0| 09 09 63 6c 6f 73 65 3a | 20 69 57 69 6e 64 20 20 |..close:| iWind |
|00003a00| 64 72 6f 70 3a 20 69 6e | 73 74 6c 6d 6f 64 20 20 |drop: in|stlmod |
|00003a10| 69 63 75 72 73 20 2d 3e | 20 63 75 72 73 0d 09 09 |icurs ->| curs...|
|00003a20| 09 09 74 72 75 65 20 2d | 3e 20 63 61 6e 63 65 6c |..true -|> cancel|
|00003a30| 6c 65 64 3f 20 20 3b 0d | 0d 3a 20 44 4f 4d 58 53 |led? ;.|.: DOMXS|
|00003a40| 54 09 09 63 75 72 53 74 | 61 63 6b 20 34 30 39 36 |T..curSt|ack 4096|
|00003a50| 20 2b 20 6d 61 78 53 74 | 61 63 6b 20 6d 69 6e 20 | + maxSt|ack min |
|00003a60| 2d 3e 20 63 75 72 53 74 | 61 63 6b 20 2e 76 73 31 |-> curSt|ack .vs1|
|00003a70| 20 20 3b 0d 3a 20 44 4f | 4d 49 53 54 09 09 63 75 | ;.: DO|MIST..cu|
|00003a80| 72 53 74 61 63 6b 20 34 | 30 39 36 20 2d 20 6d 69 |rStack 4|096 - mi|
|00003a90| 6e 53 74 61 63 6b 20 6d | 61 78 20 2d 3e 20 63 75 |nStack m|ax -> cu|
|00003aa0| 72 53 74 61 63 6b 20 2e | 76 73 31 20 20 3b 0d 3a |rStack .|vs1 ;.:|
|00003ab0| 20 44 4f 4d 58 44 49 09 | 09 63 75 72 44 69 63 74 | DOMXDI.|.curDict|
|00003ac0| 20 31 36 33 38 34 20 2b | 20 6d 61 78 44 69 63 74 | 16384 +| maxDict|
|00003ad0| 20 6d 69 6e 20 2d 3e 20 | 63 75 72 44 69 63 74 20 | min -> |curDict |
|00003ae0| 2e 76 73 32 20 20 3b 0d | 3a 20 44 4f 4d 49 44 49 |.vs2 ;.|: DOMIDI|
|00003af0| 09 09 63 75 72 44 69 63 | 74 20 31 36 33 38 34 20 |..curDic|t 16384 |
|00003b00| 2d 20 6d 69 6e 44 69 63 | 74 20 6d 61 78 20 2d 3e |- minDic|t max ->|
|00003b10| 20 63 75 72 44 69 63 74 | 20 2e 76 73 32 20 20 3b | curDict| .vs2 ;|
|00003b20| 0d 3a 20 44 4f 4d 58 48 | 50 09 09 6d 69 6e 53 74 |.: DOMXH|P..minSt|
|00003b30| 61 63 6b 20 2d 3e 20 63 | 75 72 53 74 61 63 6b 20 |ack -> c|urStack |
|00003b40| 2e 76 73 31 20 20 6d 69 | 6e 44 69 63 74 20 2d 3e |.vs1 mi|nDict ->|
|00003b50| 20 63 75 72 44 69 63 74 | 20 2e 76 73 32 20 20 3b | curDict| .vs2 ;|
|00003b60| 0d 0d 27 20 63 6f 6e 66 | 69 67 20 20 20 73 65 74 |..' conf|ig set|
|00003b70| 43 6c 69 63 6b 3a 20 73 | 61 76 65 42 74 6e 0d 27 |Click: s|aveBtn.'|
|00003b80| 20 77 49 6e 73 74 61 6c | 6c 20 73 65 74 43 6c 69 | wInstal|l setCli|
|00003b90| 63 6b 3a 20 69 6e 73 74 | 42 74 6e 0d 27 20 63 61 |ck: inst|Btn.' ca|
|00003ba0| 6e 63 65 6c 20 20 20 73 | 65 74 43 6c 69 63 6b 3a |ncel s|etClick:|
|00003bb0| 20 63 61 6e 42 74 6e 0d | 27 20 64 6f 4d 78 53 74 | canBtn.|' doMxSt|
|00003bc0| 20 20 20 73 65 74 43 6c | 69 63 6b 3a 20 6d 78 53 | setCl|ick: mxS|
|00003bd0| 74 0d 27 20 64 6f 4d 69 | 53 74 20 20 20 73 65 74 |t.' doMi|St set|
|00003be0| 43 6c 69 63 6b 3a 20 6d | 69 53 74 0d 27 20 64 6f |Click: m|iSt.' do|
|00003bf0| 4d 78 44 69 20 20 20 73 | 65 74 43 6c 69 63 6b 3a |MxDi s|etClick:|
|00003c00| 20 6d 78 44 49 0d 27 20 | 64 6f 4d 69 44 69 20 20 | mxDI.' |doMiDi |
|00003c10| 20 73 65 74 43 6c 69 63 | 6b 3a 20 6d 69 44 69 0d | setClic|k: miDi.|
|00003c20| 27 20 64 6f 4d 78 48 70 | 20 20 20 73 65 74 43 6c |' doMxHp| setCl|
|00003c30| 69 63 6b 3a 20 68 65 61 | 70 42 74 6e 0d 0d 65 6e |ick: hea|pBtn..en|
|00003c40| 64 6c 6f 61 64 09 09 09 | 09 09 5c 20 2a 2a 2a 0d |dload...|..\ ***.|
|00003c50| 0d 5c 20 74 65 73 74 69 | 6e 67 0d 0d 74 72 75 65 |.\ testi|ng..true|
|00003c60| 20 20 73 65 74 69 6e 73 | 74 61 6c 6c 3a 20 74 65 | setins|tall: te|
|00003c70| 73 74 6d 6f 64 0d 63 6f | 6d 70 69 6c 65 3a 20 74 |stmod.co|mpile: t|
|00003c80| 65 73 74 6d 6f 64 0d 0d | 32 30 30 30 30 20 61 6c |estmod..|20000 al|
|00003c90| 6c 6f 74 0d 0d 3a 20 67 | 6f 0d 09 31 30 20 30 20 |lot..: g|o..10 0 |
|00003ca0| 44 4f 20 20 2e 22 20 68 | 65 6c 6c 6f 20 74 68 65 |DO ." h|ello the|
|00003cb0| 72 65 21 21 22 20 20 63 | 72 20 20 4c 4f 4f 50 0d |re!!" c|r LOOP.|
|00003cc0| 09 62 62 20 20 2e 6d 6f | 64 73 0d 09 35 30 30 30 |.bb .mo|ds..5000|
|00003cd0| 30 30 20 30 20 44 4f 20 | 4c 4f 4f 50 0d 09 62 79 |00 0 DO |LOOP..by|
|00003ce0| 65 20 20 3b 0d 0d 3a 20 | 63 72 61 73 68 09 63 72 |e ;..: |crash.cr|
|00003cf0| 20 63 72 20 2e 22 20 4f | 68 20 6e 6f 21 21 21 22 | cr ." O|h no!!!"|
|00003d00| 0d 09 35 30 30 30 30 30 | 20 30 20 44 4f 20 4c 4f |..500000| 0 DO LO|
|00003d10| 4f 50 20 20 62 79 65 20 | 20 3b 0d 00 00 00 00 00 |OP bye | ;......|
|00003d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d80| 00 00 01 00 00 00 01 3c | 00 00 00 3c 00 00 00 3b |.......<|...<...;|
|00003d90| 00 00 00 00 01 00 a7 46 | 9c 59 52 4d 7f 1c 7f 1f |.......F|.YRM....|
|00003da0| 7f 1f 00 05 7f 20 7f 1f | 7f 1e 7f 1d 7e e1 00 00 |..... ..|....~...|
|00003db0| 0c 49 6e 73 74 6c 6d 6f | 64 2e 74 78 74 91 02 00 |.Instlmo|d.txt...|
|00003dc0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00003dd0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00003de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003df0| 00 00 ab 06 23 38 00 00 | 00 00 00 00 01 77 00 00 |....#8..|.....w..|
|00003e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e80| 00 00 00 38 00 00 00 00 | 00 00 2e 63 00 00 00 00 |...8....|...c....|
|00003e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 05 37 |........|.......7|
|00003eb0| 00 00 05 37 00 00 00 00 | 00 00 00 00 00 00 01 00 |...7....|........|
|00003ec0| 00 00 01 3c 00 00 00 3c | 00 00 00 3b 00 71 f3 b8 |...<...<|...;.q..|
|00003ed0| 10 2a 00 00 00 1c 00 32 | 00 00 4d 49 46 4f 00 00 |.*.....2|..MIFO..|
|00003ee0| 00 0a 00 80 00 00 00 00 | 00 00 00 71 fa 7c 08 4d |........|...q.|.M|
|00003ef0| 69 73 63 49 6e 66 6f 00 | 00 00 00 00 00 00 00 00 |iscInfo.|........|
+--------+-------------------------+-------------------------+--------+--------+
