home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1998-12-30 | 8.1 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: ';*******************************************************************'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;*******|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 2a 00 3b 20 20 | 20 20 20 20 20 20 20 20 |****.; | |
|00000050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000080| 20 20 20 20 20 20 20 20 | 2a 00 3b 44 72 61 77 65 | |*.;Drawe|
|00000090| 72 53 69 7a 65 2e 62 62 | 32 20 20 20 20 20 20 20 |rSize.bb|2 |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 00 3b | | *.;|
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000110| 20 20 2a 00 3b 50 72 6f | 67 72 61 6d 20 74 6f 20 | *.;Pro|gram to |
|00000120| 61 74 74 61 63 68 20 61 | 20 6d 65 6e 75 20 69 74 |attach a| menu it|
|00000130| 65 6d 20 74 6f 20 57 42 | 20 54 6f 6f 6c 73 20 6d |em to WB| Tools m|
|00000140| 65 6e 75 20 77 68 69 63 | 68 20 66 69 6e 64 73 20 |enu whic|h finds |
|00000150| 74 68 65 20 20 20 20 2a | 00 3b 73 69 7a 65 20 6f |the *|.;size o|
|00000160| 66 20 61 20 64 72 61 77 | 65 72 2c 20 69 74 73 20 |f a draw|er, its |
|00000170| 73 75 62 64 72 61 77 65 | 72 73 20 61 6e 64 20 66 |subdrawe|rs and f|
|00000180| 69 6c 65 73 20 61 6e 64 | 20 64 69 73 70 6c 61 79 |iles and| display|
|00000190| 73 20 20 20 20 20 20 20 | 20 20 20 20 2a 00 3b 6e |s | *.;n|
|000001a0| 6f 2e 20 6f 66 20 62 79 | 74 65 73 20 6f 6e 20 57 |o. of by|tes on W|
|000001b0| 42 53 63 72 65 65 6e 20 | 74 69 74 6c 65 20 62 61 |BScreen |title ba|
|000001c0| 72 2e 20 52 75 6e 73 20 | 66 72 6f 6d 20 57 42 53 |r. Runs |from WBS|
|000001d0| 74 61 72 74 75 70 20 64 | 72 61 77 65 72 2e 20 20 |tartup d|rawer. |
|000001e0| 20 2a 00 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 | *.; | |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000220| 20 20 20 20 20 20 2a 00 | 3b 57 72 69 74 74 65 6e | *.|;Written|
|00000230| 20 69 6e 20 42 6c 69 74 | 7a 20 42 61 73 69 63 20 | in Blit|z Basic |
|00000240| 49 49 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |II | |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000260| 20 20 20 20 20 20 20 20 | 20 20 20 2a 00 3b 20 20 | | *.; |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002b0| 2a 00 3b 46 75 6c 6c 79 | 20 77 6f 72 6b 69 6e 67 |*.;Fully| working|
|000002c0| 20 70 72 6f 74 6f 74 79 | 70 65 21 20 35 2f 31 30 | prototy|pe! 5/10|
|000002d0| 2f 39 34 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |/94 | |
|000002e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002f0| 20 20 20 20 20 2a 00 3b | 46 69 6e 69 73 68 65 64 | *.;|Finished|
|00000300| 20 28 3f 29 20 62 79 20 | 48 56 42 2c 20 53 50 52 | (?) by |HVB, SPR|
|00000310| 20 32 35 2f 31 30 2f 39 | 34 20 20 20 20 20 20 20 | 25/10/9|4 |
|00000320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 2a 00 3b 28 4d 61 | | *.;(Ma|
|00000340| 64 65 20 63 6f 6d 70 61 | 74 69 62 6c 65 20 77 69 |de compa|tible wi|
|00000350| 74 68 20 57 42 20 70 72 | 65 66 73 20 32 36 2f 32 |th WB pr|efs 26/2|
|00000360| 2f 39 35 29 20 6e 6f 74 | 20 72 65 6c 65 76 61 6e |/95) not| relevan|
|00000370| 74 20 74 6f 20 74 68 69 | 73 20 76 65 72 2e 20 2a |t to thi|s ver. *|
|00000380| 00 3b 43 75 72 65 64 20 | 61 20 70 61 72 74 69 63 |.;Cured |a partic|
|00000390| 75 6c 61 72 6c 79 20 65 | 6c 75 73 69 76 65 20 61 |ularly e|lusive a|
|000003a0| 6e 64 20 66 61 74 61 6c | 20 62 75 67 20 31 37 2f |nd fatal| bug 17/|
|000003b0| 33 2f 39 35 20 20 20 20 | 20 20 20 20 20 20 20 20 |3/95 | |
|000003c0| 20 20 20 20 2a 00 3b 4d | 61 64 65 20 69 6e 74 6f | *.;M|ade into|
|000003d0| 20 61 20 63 6f 6d 6d 6f | 64 69 74 79 20 31 37 2f | a commo|dity 17/|
|000003e0| 34 2f 39 35 20 20 20 20 | 20 20 20 20 20 20 20 20 |4/95 | |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000400| 20 20 20 20 20 20 20 20 | 20 2a 00 3b 20 20 20 20 | | *.; |
|00000410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 00 | | *.|
|00000450| 3b 52 65 70 6c 61 63 65 | 64 20 63 75 73 74 6f 6d |;Replace|d custom|
|00000460| 20 74 69 74 6c 65 62 61 | 72 20 6f 75 74 70 75 74 | titleba|r output|
|00000470| 20 77 69 74 68 20 53 68 | 6f 77 54 69 74 6c 65 5f | with Sh|owTitle_|
|00000480| 20 28 61 67 61 69 6e 21 | 29 20 32 38 2f 33 2f 39 | (again!|) 28/3/9|
|00000490| 37 20 20 2a 00 3b 20 20 | 20 20 20 20 20 20 20 20 |7 *.; | |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004d0| 20 20 20 20 20 20 20 20 | 2a 00 3b 61 6d 69 67 61 | |*.;amiga|
|000004e0| 6c 69 62 73 2e 72 65 73 | 20 72 65 73 69 64 65 6e |libs.res| residen|
|000004f0| 74 20 75 73 69 6e 67 20 | 43 6f 6d 70 69 6c 65 72 |t using |Compiler|
|00000500| 20 4f 70 74 69 6f 6e 73 | 20 20 20 20 20 20 20 20 | Options| |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 00 3b | | *.;|
|00000520| 20 28 6d 75 73 74 20 62 | 65 20 74 68 65 20 4c 41 | (must b|e the LA|
|00000530| 54 45 53 54 2c 20 69 65 | 20 33 2e 30 21 21 21 29 |TEST, ie| 3.0!!!)|
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000560| 20 20 2a 00 3b 20 20 20 | 20 20 20 20 20 20 20 20 | *.; | |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000005a0| 20 20 20 20 20 20 20 2a | 00 3b 2a 2a 2a 2a 2a 2a | *|.;******|
|000005b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 00 00 3b |********|*****..;|
|000005f0| 73 79 73 74 65 6d 20 73 | 74 72 75 63 74 75 72 65 |system s|tructure|
|00000600| 20 64 65 66 73 2e 20 54 | 68 61 6e 6b 20 47 6f 64 | defs. T|hank God|
|00000610| 20 66 6f 72 20 61 6d 69 | 67 61 6c 69 62 73 2e 72 | for ami|galibs.r|
|00000620| 65 73 21 00 00 80 33 2e | 4d 73 67 50 6f 72 74 20 |es!...3.|MsgPort |
|00000630| 2a 77 62 5f 70 6f 72 74 | 2c 20 2a 63 78 5f 70 6f |*wb_port|, *cx_po|
|00000640| 72 74 00 80 33 2e 41 70 | 70 4d 65 73 73 61 67 65 |rt..3.Ap|pMessage|
|00000650| 20 2a 61 70 70 6d 73 67 | 00 80 33 2e 46 69 6c 65 | *appmsg|..3.File|
|00000660| 49 6e 66 6f 42 6c 6f 63 | 6b 20 2a 66 69 62 00 80 |InfoBloc|k *fib..|
|00000670| 33 2e 53 63 72 65 65 6e | 20 2a 77 62 73 63 72 65 |3.Screen| *wbscre|
|00000680| 65 6e 00 80 33 2e 4e 65 | 77 42 72 6f 6b 65 72 20 |en..3.Ne|wBroker |
|00000690| 6e 65 77 62 72 6f 6b 65 | 72 00 80 33 2e 6c 20 61 |newbroke|r..3.l a|
|000006a0| 70 70 69 74 65 6d 2c 20 | 63 78 5f 6d 73 67 69 64 |ppitem, |cx_msgid|
|000006b0| 2c 20 2a 62 72 6f 6b 65 | 72 00 00 74 69 74 6c 65 |, *broke|r..title|
|000006c0| 24 20 3d 20 22 53 65 6c | 65 63 74 20 44 72 61 77 |$ = "Sel|ect Draw|
|000006d0| 65 72 20 69 63 6f 6e 28 | 73 29 20 66 6f 72 20 73 |er icon(|s) for s|
|000006e0| 69 7a 65 20 69 6e 20 62 | 79 74 65 73 2e 22 20 3b |ize in b|ytes." ;|
|000006f0| 69 6e 69 74 69 61 6c 20 | 6d 65 73 73 61 67 65 00 |initial |message.|
|00000700| 75 73 65 72 5f 64 61 74 | 61 24 20 3d 20 22 43 3a |user_dat|a$ = "C:|
|00000710| 43 6f 6d 6d 61 6e 64 22 | 00 61 6d 49 74 65 6d 24 |Command"|.amItem$|
|00000720| 20 3d 20 22 44 72 61 77 | 65 72 20 53 69 7a 65 22 | = "Draw|er Size"|
|00000730| 00 63 78 5f 6e 61 6d 65 | 24 20 3d 20 22 44 72 61 |.cx_name|$ = "Dra|
|00000740| 77 65 72 53 69 7a 65 22 | 00 63 78 5f 74 69 74 6c |werSize"|.cx_titl|
|00000750| 65 24 20 3d 20 22 44 72 | 61 77 65 72 53 69 7a 65 |e$ = "Dr|awerSize|
|00000760| 20 28 43 29 20 48 20 42 | 72 6f 77 6e 2c 20 53 20 | (C) H B|rown, S |
|00000770| 52 6f 75 73 65 20 31 39 | 39 35 22 00 63 78 5f 64 |Rouse 19|95".cx_d|
|00000780| 65 73 63 72 24 20 3d 20 | 22 46 69 6e 64 73 20 73 |escr$ = |"Finds s|
|00000790| 69 7a 65 20 6f 66 20 64 | 72 61 77 65 72 20 26 20 |ize of d|rawer & |
|000007a0| 66 69 6c 65 73 20 69 6e | 20 62 79 74 65 73 2e 22 |files in| bytes."|
|000007b0| 00 77 62 73 63 72 65 65 | 6e 6e 61 6d 65 24 20 3d |.wbscree|nname$ =|
|000007c0| 20 22 57 6f 72 6b 62 65 | 6e 63 68 22 00 4e 55 4c | "Workbe|nch".NUL|
|000007d0| 2e 6c 20 3d 20 30 00 74 | 6f 74 61 6c 2e 6c 20 3d |.l = 0.t|otal.l =|
|000007e0| 20 30 00 71 75 69 74 5f | 70 72 6f 67 20 3d 20 bc | 0.quit_|prog = .|
|000007f0| 0f 00 65 6e 61 62 6c 65 | 64 20 3d 20 bc 0e 00 00 |..enable|d = ....|
|00000800| 00 3b 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.;******|********|
|00000810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000840| 2a 2a 2a 00 3b 00 3b 46 | 75 6e 63 74 69 6f 6e 73 |***.;.;F|unctions|
|00000850| 00 3b 00 3b 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.;.;****|********|
|00000860| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000870| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000880| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000890| 2a 2a 2a 2a 2a 00 00 3b | 2d 2d 2d 2d 2d 2d 2d 2d |*****..;|--------|
|000008a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 00 3b 20 47 65 74 53 |--------|-.; GetS|
|000008e0| 69 7a 65 7b 70 61 74 68 | 24 7d 20 20 3b 69 64 65 |ize{path|$} ;ide|
|000008f0| 61 20 70 69 6e 63 68 65 | 64 20 66 72 6f 6d 20 57 |a pinche|d from W|
|00000900| 68 65 72 65 49 73 20 62 | 79 20 50 61 75 6c 20 41 |hereIs b|y Paul A|
|00000910| 6e 64 72 65 77 73 00 3b | 00 3b 20 54 68 69 73 20 |ndrews.;|.; This |
|00000920| 69 73 20 61 20 72 65 63 | 75 72 73 69 76 65 20 73 |is a rec|ursive s|
|00000930| 74 61 74 65 6d 65 6e 74 | 2e 20 57 6f 72 6b 20 69 |tatement|. Work i|
|00000940| 74 20 6f 75 74 20 66 6f | 72 20 79 6f 75 72 73 65 |t out fo|r yourse|
|00000950| 6c 76 65 73 21 00 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |lves!.;-|--------|
|00000960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000990| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 80 08 20 47 65 74 |--------|.... Get|
|000009a0| 53 69 7a 65 7b 70 61 74 | 68 24 7d 00 80 15 20 74 |Size{pat|h$}... t|
|000009b0| 6f 74 61 6c 2c 2a 66 69 | 62 20 20 20 3b 63 61 6e |otal,*fi|b ;can|
|000009c0| 27 74 20 75 73 65 20 61 | 6e 79 20 76 61 72 69 61 |'t use a|ny varia|
|000009d0| 62 6c 65 73 20 66 72 6f | 6d 20 74 68 65 20 6d 61 |bles fro|m the ma|
|000009e0| 69 6e 20 70 72 6f 67 72 | 61 6d 00 20 20 20 20 20 |in progr|am. |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000a00| 75 6e 6c 65 73 73 20 74 | 68 65 79 20 61 72 65 20 |unless t|hey are |
|00000a10| 53 48 41 52 45 64 00 00 | 20 20 6c 6f 63 6b 2e 6c |SHAREd..| lock.l|
|00000a20| 3d fe 0a 28 26 70 61 74 | 68 24 2c 2d 32 29 00 20 |=..(&pat|h$,-2). |
|00000a30| 20 67 6f 74 46 69 62 2e | 6c 3d fe 0d 28 6c 6f 63 | gotFib.|l=..(loc|
|00000a40| 6b 2c 2a 66 69 62 29 00 | 00 20 20 80 0b 20 67 6f |k,*fib).|. .. go|
|00000a50| 74 46 69 62 3d 30 20 80 | 21 20 80 05 20 66 61 69 |tFib=0 .|! .. fai|
|00000a60| 6c 65 64 00 00 20 20 80 | 0c 20 fe 0e 28 6c 6f 63 |led.. .|. ..(loc|
|00000a70| 6b 2c 2a 66 69 62 29 3c | 3e 30 00 00 20 20 20 20 |k,*fib)<|>0.. |
|00000a80| 3b 66 69 6c 65 6e 61 6d | 65 20 69 73 20 73 74 6f |;filenam|e is sto|
|00000a90| 72 65 64 20 61 73 20 61 | 20 63 68 61 72 20 73 74 |red as a| char st|
|00000aa0| 72 69 6e 67 20 66 69 62 | 5f 46 69 6c 65 4e 61 6d |ring fib|_FileNam|
|00000ab0| 65 00 20 20 20 20 3b 57 | 49 54 48 49 4e 20 74 68 |e. ;W|ITHIN th|
|00000ac0| 65 20 66 69 62 20 73 74 | 72 75 63 74 75 72 65 20 |e fib st|ructure |
|00000ad0| 28 6d 61 78 20 31 30 38 | 20 63 68 61 72 73 29 00 |(max 108| chars).|
|00000ae0| 20 20 20 20 3b 26 2a 66 | 69 62 5c 66 69 62 5f 46 | ;&*f|ib\fib_F|
|00000af0| 69 6c 65 4e 61 6d 65 20 | 67 65 74 73 20 74 68 65 |ileName |gets the|
|00000b00| 20 61 64 64 72 65 73 73 | 20 6f 66 20 74 68 65 20 | address| of the |
|00000b10| 66 69 72 73 74 00 20 20 | 20 20 3b 63 68 61 72 20 |first. | ;char |
|00000b20| 69 6e 20 74 68 65 20 73 | 74 72 69 6e 67 2e 20 50 |in the s|tring. P|
|00000b30| 65 65 6b 24 28 26 29 20 | 6c 6f 61 64 73 20 6e 24 |eek$(&) |loads n$|
|00000b40| 20 77 69 74 68 20 74 68 | 65 00 20 20 20 20 3b 6e | with th|e. ;n|
|00000b50| 75 6c 6c 20 74 65 72 6d | 69 6e 61 74 65 64 20 73 |ull term|inated s|
|00000b60| 74 72 69 6e 67 20 73 74 | 61 72 74 69 6e 67 20 61 |tring st|arting a|
|00000b70| 74 20 74 68 69 73 20 61 | 64 64 72 65 73 73 00 20 |t this a|ddress. |
|00000b80| 20 20 20 6e 24 20 3d 20 | da 02 24 28 26 2a 66 69 | n$ = |..$(&*fi|
|00000b90| 62 5c 66 69 62 5f 46 69 | 6c 65 4e 61 6d 65 29 00 |b\fib_Fi|leName).|
|00000ba0| 20 20 20 20 6e 24 20 3d | 20 dc 97 28 6e 24 29 00 | n$ =| ..(n$).|
|00000bb0| 00 20 20 20 20 66 69 6c | 65 74 79 70 65 2e 6c 20 |. fil|etype.l |
|00000bc0| 3d 20 2a 66 69 62 5c 66 | 69 62 5f 44 69 72 45 6e |= *fib\f|ib_DirEn|
|00000bd0| 74 72 79 54 79 70 65 00 | 00 20 20 20 20 80 0b 20 |tryType.|. .. |
|00000be0| 66 69 6c 65 74 79 70 65 | 3c 30 20 20 20 20 20 20 |filetype|<0 |
|00000bf0| 20 20 20 20 3b 66 69 6c | 65 20 69 73 20 6e 6f 74 | ;fil|e is not|
|00000c00| 20 61 20 64 72 61 77 65 | 72 00 00 20 20 20 20 20 | a drawe|r.. |
|00000c10| 20 74 6f 74 61 6c 20 3d | 20 74 6f 74 61 6c 20 2b | total =| total +|
|00000c20| 20 2a 66 69 62 5c 66 69 | 62 5f 53 69 7a 65 00 00 | *fib\fi|b_Size..|
|00000c30| 20 20 20 20 80 c0 00 00 | 20 20 20 20 80 0b 20 66 | ....| .. f|
|00000c40| 69 6c 65 74 79 70 65 3d | 3e 30 20 20 3b 66 69 6c |iletype=|>0 ;fil|
|00000c50| 65 20 69 73 20 61 20 64 | 72 61 77 65 72 00 00 20 |e is a d|rawer.. |
|00000c60| 20 20 20 20 20 70 24 3d | 70 61 74 68 24 00 20 20 | p$=|path$. |
|00000c70| 20 20 20 20 80 0b 20 dc | 82 28 70 24 2c 31 29 20 | .. .|.(p$,1) |
|00000c80| 3d 20 22 3a 22 20 80 8a | 20 dc 82 28 70 24 2c 31 |= ":" ..| ..(p$,1|
|00000c90| 29 20 3d 20 22 2f 22 00 | 20 20 20 20 20 20 20 20 |) = "/".| |
|00000ca0| 70 24 3d 70 24 20 2b 20 | 6e 24 00 20 20 20 20 20 |p$=p$ + |n$. |
|00000cb0| 20 80 22 00 20 20 20 20 | 20 20 20 20 70 24 3d 70 | .". | p$=p|
|00000cc0| 24 20 2b 20 22 2f 22 20 | 2b 20 6e 24 00 20 20 20 |$ + "/" |+ n$. |
|00000cd0| 20 20 20 80 c0 00 20 20 | 20 20 20 20 47 65 74 53 | ... | GetS|
|00000ce0| 69 7a 65 7b 70 24 7d 20 | 20 3b 48 45 4c 50 21 21 |ize{p$} | ;HELP!!|
|00000cf0| 21 21 21 21 00 00 20 20 | 20 20 80 c0 00 00 80 c1 |!!!!.. | ......|
|00000d00| 00 00 66 61 69 6c 65 64 | 3a 00 00 20 20 fe 0b 20 |..failed|:.. .. |
|00000d10| 6c 6f 63 6b 00 00 80 02 | 20 80 08 00 00 3b 2a 2a |lock....| ....;**|
|00000d20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 00 3b 00 3b |********|****.;.;|
|00000d60| 20 20 50 72 6f 67 72 61 | 6d 20 45 6e 74 72 79 00 | Progra|m Entry.|
|00000d70| 3b 00 3b 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;.;*****|********|
|00000d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000db0| 2a 00 00 80 c3 00 00 80 | 0b 20 e0 87 20 3c 20 33 |*.......|. .. < 3|
|00000dc0| 37 20 80 21 20 80 02 20 | 20 3b 53 4f 52 52 59 2c |7 .! .. | ;SORRY,|
|00000dd0| 20 43 48 41 50 53 21 00 | 00 3b 61 6c 6c 6f 63 61 | CHAPS!.|.;alloca|
|00000de0| 74 65 20 74 68 65 20 73 | 70 61 63 65 20 66 6f 72 |te the s|pace for|
|00000df0| 20 61 20 66 69 6c 65 20 | 69 6e 66 6f 20 62 6c 6f | a file |info blo|
|00000e00| 63 6b 00 2a 66 69 62 3d | fe 97 28 80 2f 2e 46 69 |ck.*fib=|..(./.Fi|
|00000e10| 6c 65 49 6e 66 6f 42 6c | 6f 63 6b 2c 23 4d 45 4d |leInfoBl|ock,#MEM|
|00000e20| 46 5f 50 55 42 4c 49 43 | 7c 23 4d 45 4d 46 5f 43 |F_PUBLIC||#MEMF_C|
|00000e30| 4c 45 41 52 29 00 00 dd | 84 20 22 23 23 23 2c 23 |LEAR)...|. "###,#|
|00000e40| 23 23 2c 23 23 23 2c 23 | 23 23 22 00 00 3b 2d 2d |##,###,#|##"..;--|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e90| 00 3b 43 72 65 61 74 65 | 20 61 20 6d 65 73 73 61 |.;Create| a messa|
|00000ea0| 67 65 20 70 6f 72 74 20 | 73 6f 20 74 68 61 74 20 |ge port |so that |
|00000eb0| 57 42 20 63 61 6e 20 73 | 69 67 6e 61 6c 20 77 68 |WB can s|ignal wh|
|00000ec0| 65 6e 20 6f 75 72 20 6d | 65 6e 75 20 73 65 6c 65 |en our m|enu sele|
|00000ed0| 63 74 65 64 00 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |cted.;--|--------|
|00000ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f10| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 2a 77 62 5f 70 6f |--------|..*wb_po|
|00000f20| 72 74 20 3d 20 fe e2 28 | 29 00 77 62 5f 50 6f 72 |rt = ..(|).wb_Por|
|00000f30| 74 53 69 67 2e 6c 20 3d | 20 31 20 80 7c 20 2a 77 |tSig.l =| 1 .| *w|
|00000f40| 62 5f 70 6f 72 74 5c 6d | 70 5f 53 69 67 42 69 74 |b_port\m|p_SigBit|
|00000f50| 00 00 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..;-----|--------|
|00000f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f90| 2d 2d 2d 2d 2d 2d 00 3b | 41 74 74 61 63 68 20 6f |------.;|Attach o|
|00000fa0| 75 72 20 6d 65 6e 75 20 | 69 74 65 6d 20 74 6f 20 |ur menu |item to |
|00000fb0| 57 42 20 54 6f 6f 6c 73 | 20 6d 65 6e 75 00 3b 2d |WB Tools| menu.;-|
|00000fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001000| 2d 2d 00 00 61 70 70 69 | 74 65 6d 2e 6c 20 3d 20 |--..appi|tem.l = |
|00001010| ee 05 28 4e 55 4c 2c 26 | 75 73 65 72 5f 64 61 74 |..(NUL,&|user_dat|
|00001020| 61 24 2c 26 61 6d 49 74 | 65 6d 24 2c 2a 77 62 5f |a$,&amIt|em$,*wb_|
|00001030| 70 6f 72 74 2c 4e 55 4c | 29 20 3b 6e 6f 74 65 20 |port,NUL|) ;note |
|00001040| 75 73 65 20 6f 66 20 26 | 00 00 3b 2d 2d 2d 2d 2d |use of &|..;-----|
|00001050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 00 3b |--------|------.;|
|00001090| 53 65 74 20 75 70 20 61 | 20 63 6f 6d 6d 6f 64 69 |Set up a| commodi|
|000010a0| 74 79 20 28 73 65 72 69 | 6f 75 73 20 73 74 75 66 |ty (seri|ous stuf|
|000010b0| 66 21 29 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |f!).;---|--------|
|000010c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010f0| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 2a 63 78 5f 70 6f |--------|..*cx_po|
|00001100| 72 74 20 3d 20 fe e2 28 | 29 20 20 20 20 20 3b 66 |rt = ..(|) ;f|
|00001110| 6f 72 20 63 6f 6d 6d 75 | 6e 69 63 61 74 69 6e 67 |or commu|nicating|
|00001120| 20 77 69 74 68 20 43 6f | 6d 6d 6f 64 69 74 69 65 | with Co|mmoditie|
|00001130| 73 20 45 78 63 68 61 6e | 67 65 00 63 78 5f 50 6f |s Exchan|ge.cx_Po|
|00001140| 72 74 53 69 67 2e 6c 20 | 3d 20 31 20 80 7c 20 2a |rtSig.l |= 1 .| *|
|00001150| 63 78 5f 70 6f 72 74 5c | 6d 70 5f 53 69 67 42 69 |cx_port\|mp_SigBi|
|00001160| 74 00 00 3b 69 6e 69 74 | 69 61 6c 69 73 65 20 74 |t..;init|ialise t|
|00001170| 68 65 20 4e 65 77 42 72 | 6f 6b 65 72 20 73 74 72 |he NewBr|oker str|
|00001180| 75 63 74 75 72 65 00 6e | 65 77 62 72 6f 6b 65 72 |ucture.n|ewbroker|
|00001190| 5c 6e 62 5f 56 65 72 73 | 69 6f 6e 20 3d 20 23 4e |\nb_Vers|ion = #N|
|000011a0| 42 5f 56 45 52 53 49 4f | 4e 2c 30 2c 26 63 78 5f |B_VERSIO|N,0,&cx_|
|000011b0| 6e 61 6d 65 24 2c 26 63 | 78 5f 74 69 74 6c 65 24 |name$,&c|x_title$|
|000011c0| 2c 26 63 78 5f 64 65 73 | 63 72 24 2c 30 2c 30 2c |,&cx_des|cr$,0,0,|
|000011d0| 30 2c 30 2c 30 2c 30 00 | 6e 65 77 62 72 6f 6b 65 |0,0,0,0.|newbroke|
|000011e0| 72 5c 6e 62 5f 50 6f 72 | 74 20 3d 20 2a 63 78 5f |r\nb_Por|t = *cx_|
|000011f0| 70 6f 72 74 20 20 20 20 | 20 20 20 20 3b 74 65 6c |port | ;tel|
|00001200| 6c 20 62 72 6f 6b 65 72 | 20 77 68 65 72 65 20 69 |l broker| where i|
|00001210| 74 73 20 6d 65 73 73 61 | 67 65 70 6f 72 74 20 77 |ts messa|geport w|
|00001220| 69 6c 6c 20 62 65 00 2a | 62 72 6f 6b 65 72 20 3d |ill be.*|broker =|
|00001230| 20 f8 02 28 26 6e 65 77 | 62 72 6f 6b 65 72 2c 20 | ..(&new|broker, |
|00001240| 30 29 20 20 3b 61 74 74 | 61 63 68 20 74 68 65 20 |0) ;att|ach the |
|00001250| 62 72 6f 6b 65 72 20 74 | 6f 20 43 58 20 6c 69 73 |broker t|o CX lis|
|00001260| 74 00 f8 03 20 2a 62 72 | 6f 6b 65 72 2c 20 31 20 |t... *br|oker, 1 |
|00001270| 20 20 20 20 20 20 20 20 | 20 20 3b 73 77 69 74 63 | | ;switc|
|00001280| 68 20 69 74 20 6f 6e 00 | 00 3b 2d 2d 2d 2d 2d 2d |h it on.|.;------|
|00001290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 00 3b 20 |--------|-----.; |
|000012d0| 4d 41 49 4e 20 50 52 4f | 47 52 41 4d 20 4c 4f 4f |MAIN PRO|GRAM LOO|
|000012e0| 50 00 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |P.;-----|--------|
|000012f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001320| 2d 2d 2d 2d 2d 2d 00 00 | 80 bb 00 00 20 20 3b 67 |------..|.... ;g|
|00001330| 6f 20 74 6f 20 73 6c 65 | 65 70 20 61 6e 64 20 77 |o to sle|ep and w|
|00001340| 61 69 74 20 66 6f 72 20 | 6d 65 73 73 61 67 65 73 |ait for |messages|
|00001350| 20 66 72 6f 6d 20 65 69 | 74 68 65 72 20 70 6f 72 | from ei|ther por|
|00001360| 74 00 00 20 20 73 69 67 | 6e 61 6c 2e 6c 20 3d 20 |t.. sig|nal.l = |
|00001370| fe ab 28 77 62 5f 50 6f | 72 74 53 69 67 20 7c 20 |..(wb_Po|rtSig | |
|00001380| 63 78 5f 50 6f 72 74 53 | 69 67 29 00 00 20 20 3b |cx_PortS|ig).. ;|
|00001390| 79 61 77 6e 2c 20 4f 4b | 20 77 68 61 74 27 73 20 |yawn, OK| what's |
|000013a0| 67 6f 69 6e 67 20 6f 6e | 3f 00 00 20 20 3b 74 72 |going on|?.. ;tr|
|000013b0| 79 20 74 68 65 20 63 6f | 6d 6d 6f 64 69 74 79 20 |y the co|mmodity |
|000013c0| 70 6f 72 74 2e 2e 2e 00 | 20 20 63 78 5f 6d 73 67 |port....| cx_msg|
|000013d0| 2e 6c 20 3d 20 fe b4 28 | 2a 63 78 5f 70 6f 72 74 |.l = ..(|*cx_port|
|000013e0| 29 00 20 20 80 0b 20 63 | 78 5f 6d 73 67 00 00 20 |). .. c|x_msg.. |
|000013f0| 20 20 20 80 06 20 70 72 | 6f 63 5f 43 58 5f 63 6f | .. pr|oc_CX_co|
|00001400| 6d 6d 61 6e 64 73 00 20 | 20 20 20 fe b5 20 63 78 |mmands. | .. cx|
|00001410| 5f 6d 73 67 00 00 20 20 | 80 c0 00 00 20 20 3b 74 |_msg.. |.... ;t|
|00001420| 72 79 20 74 68 65 20 61 | 70 70 6d 65 6e 75 69 74 |ry the a|ppmenuit|
|00001430| 65 6d 20 70 6f 72 74 2e | 2e 2e 00 20 20 2a 61 70 |em port.|... *ap|
|00001440| 70 6d 73 67 20 3d 20 fe | b4 28 2a 77 62 5f 70 6f |pmsg = .|.(*wb_po|
|00001450| 72 74 29 00 20 20 80 0b | 20 2a 61 70 70 6d 73 67 |rt). ..| *appmsg|
|00001460| 20 80 42 20 65 6e 61 62 | 6c 65 64 00 00 20 20 20 | .B enab|led.. |
|00001470| 20 80 06 20 67 65 74 5f | 73 69 7a 65 00 20 20 20 | .. get_|size. |
|00001480| 20 fe b5 20 2a 61 70 70 | 6d 73 67 00 00 20 20 80 | .. *app|msg.. .|
|00001490| c0 00 00 00 80 bc 20 71 | 75 69 74 5f 70 72 6f 67 |...... q|uit_prog|
|000014a0| 20 3d 20 bc 0e 00 00 f8 | 04 28 2a 62 72 6f 6b 65 | = .....|.(*broke|
|000014b0| 72 29 00 fe e3 28 2a 63 | 78 5f 70 6f 72 74 29 00 |r)...(*c|x_port).|
|000014c0| ee 06 28 61 70 70 69 74 | 65 6d 29 00 fe e3 28 2a |..(appit|em)...(*|
|000014d0| 77 62 5f 70 6f 72 74 29 | 00 fe 99 20 2a 66 69 62 |wb_port)|... *fib|
|000014e0| 2c 20 80 2f 2e 46 69 6c | 65 49 6e 66 6f 42 6c 6f |, ./.Fil|eInfoBlo|
|000014f0| 63 6b 00 00 80 02 00 00 | 3b 2a 2a 2a 2a 2a 2a 2a |ck......|;*******|
|00001500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001530| 2a 2a 2a 2a 2a 2a 2a 00 | 3b 20 20 73 75 62 72 6f |*******.|; subro|
|00001540| 75 74 69 6e 65 73 00 3b | 2a 2a 2a 2a 2a 2a 2a 2a |utines.;|********|
|00001550| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001560| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001580| 2a 2a 2a 2a 2a 2a 00 00 | 3b 2d 2d 2d 2d 2d 2d 2d |******..|;-------|
|00001590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015c0| 2d 2d 2d 2d 2d 2d 00 3b | 54 68 65 20 43 6f 64 65 |------.;|The Code|
|000015d0| 21 3f 20 3b 28 74 68 69 | 73 20 69 73 20 61 20 76 |!? ;(thi|s is a v|
|000015e0| 65 72 79 20 6f 6c 64 20 | 63 6f 6d 6d 65 6e 74 2c |ery old |comment,|
|000015f0| 20 6b 65 70 74 20 66 6f | 72 20 70 6f 73 74 65 72 | kept fo|r poster|
|00001600| 69 74 79 29 00 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ity).;--|--------|
|00001610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001640| 2d 2d 2d 00 00 67 65 74 | 5f 73 69 7a 65 00 00 2a |---..get|_size..*|
|00001650| 77 62 73 63 72 65 65 6e | 20 3d 20 ff d1 28 26 77 |wbscreen| = ..(&w|
|00001660| 62 73 63 72 65 65 6e 6e | 61 6d 65 24 29 00 ff d2 |bscreenn|ame$)...|
|00001670| 20 4e 55 4c 2c 20 2a 77 | 62 73 63 72 65 65 6e 00 | NUL, *w|bscreen.|
|00001680| 00 6e 65 77 64 72 61 77 | 65 72 66 6c 61 67 20 3d |.newdraw|erflag =|
|00001690| 20 30 00 80 16 20 69 63 | 6f 6e 5f 6e 75 6d 62 65 | 0... ic|on_numbe|
|000016a0| 72 20 3d 20 30 20 80 18 | 20 2a 61 70 70 6d 73 67 |r = 0 ..| *appmsg|
|000016b0| 5c 61 6d 5f 4e 75 6d 41 | 72 67 73 2d 31 20 3b 67 |\am_NumA|rgs-1 ;g|
|000016c0| 72 6f 75 70 20 73 65 6c | 65 63 74 21 00 00 20 20 |roup sel|ect!.. |
|000016d0| 80 06 20 47 65 74 44 72 | 61 77 65 72 50 61 74 68 |.. GetDr|awerPath|
|000016e0| 20 3b 67 65 74 20 66 75 | 6c 6c 20 70 61 74 68 20 | ;get fu|ll path |
|000016f0| 6f 66 20 64 72 61 77 65 | 72 2c 20 72 65 74 75 72 |of drawe|r, retur|
|00001700| 6e 65 64 20 69 6e 20 64 | 70 61 74 68 24 00 00 20 |ned in d|path$.. |
|00001710| 20 80 0b 20 67 6f 6f 64 | 2e 6c 20 3d 20 31 20 20 | .. good|.l = 1 |
|00001720| 20 3b 69 63 6f 6e 20 69 | 73 20 61 20 64 72 61 77 | ;icon i|s a draw|
|00001730| 65 72 00 20 20 20 20 74 | 6f 74 61 6c 20 3d 20 30 |er. t|otal = 0|
|00001740| 00 20 20 20 20 47 65 74 | 53 69 7a 65 7b 64 70 61 |. Get|Size{dpa|
|00001750| 74 68 24 7d 00 20 20 20 | 20 74 69 74 6c 65 24 20 |th$}. | title$ |
|00001760| 3d 20 dc 93 28 64 70 61 | 74 68 24 2c 34 37 29 20 |= ..(dpa|th$,47) |
|00001770| 2b 20 22 20 20 22 20 2b | 20 dc 92 28 dd 83 28 74 |+ " " +| ..(..(t|
|00001780| 6f 74 61 6c 29 2c 33 32 | 29 20 2b 20 22 20 42 79 |otal),32|) + " By|
|00001790| 74 65 73 22 00 20 20 20 | 20 3b 20 20 20 20 20 20 |tes". | ; |
|000017a0| 20 20 28 72 65 6d 6f 76 | 65 20 74 72 61 69 6c 69 | (remov|e traili|
|000017b0| 6e 67 20 2f 29 20 20 20 | 28 72 65 6d 6f 76 65 20 |ng /) |(remove |
|000017c0| 6c 65 61 64 69 6e 67 20 | 73 70 61 63 65 73 20 61 |leading |spaces a|
|000017d0| 64 64 65 64 20 62 79 20 | 46 6f 72 6d 61 74 20 73 |dded by |Format s|
|000017e0| 74 61 74 65 6d 65 6e 74 | 29 00 20 20 80 22 00 00 |tatement|). ."..|
|000017f0| 20 20 20 20 3b 67 6f 6f | 64 20 3c 3e 20 31 2c 20 | ;goo|d <> 1, |
|00001800| 69 63 6f 6e 20 69 73 20 | 6e 6f 74 20 61 20 64 72 |icon is |not a dr|
|00001810| 61 77 65 72 00 20 20 20 | 20 74 69 74 6c 65 24 20 |awer. | title$ |
|00001820| 3d 20 22 4e 6f 74 20 61 | 20 44 72 61 77 65 72 20 |= "Not a| Drawer |
|00001830| 69 63 6f 6e 22 00 20 20 | 20 20 ff 8c 20 30 00 00 |icon". | .. 0..|
|00001840| 20 20 80 c0 00 20 20 2a | 77 62 73 63 72 65 65 6e | ... *|wbscreen|
|00001850| 5c 54 69 74 6c 65 20 3d | 20 26 74 69 74 6c 65 24 |\Title =| &title$|
|00001860| 00 20 20 ff ab 20 2a 77 | 62 73 63 72 65 65 6e 2c |. .. *w|bscreen,|
|00001870| 20 2d 31 00 00 20 20 3b | 72 65 73 65 74 20 64 65 | -1.. ;|reset de|
|00001880| 66 61 75 6c 74 20 6f 75 | 74 70 75 74 20 69 66 20 |fault ou|tput if |
|00001890| 6e 6f 74 20 61 20 64 72 | 61 77 65 72 20 69 63 6f |not a dr|awer ico|
|000018a0| 6e 00 20 20 80 0b 20 67 | 6f 6f 64 2e 6c 20 3c 3e |n. .. g|ood.l <>|
|000018b0| 20 31 20 80 21 20 74 69 | 74 6c 65 24 20 3d 20 22 | 1 .! ti|tle$ = "|
|000018c0| 53 65 6c 65 63 74 20 44 | 72 61 77 65 72 20 69 63 |Select D|rawer ic|
|000018d0| 6f 6e 28 73 29 20 66 6f | 72 20 73 69 7a 65 20 69 |on(s) fo|r size i|
|000018e0| 6e 20 62 79 74 65 73 2e | 22 00 20 20 6e 65 77 64 |n bytes.|". newd|
|000018f0| 72 61 77 65 72 66 6c 61 | 67 20 3d 20 31 00 00 80 |rawerfla|g = 1...|
|00001900| 17 20 69 63 6f 6e 5f 6e | 75 6d 62 65 72 00 00 3b |. icon_n|umber..;|
|00001910| 63 68 6f 6f 73 65 20 6d | 65 73 73 61 67 65 20 69 |choose m|essage i|
|00001920| 66 20 6e 6f 20 69 63 6f | 6e 20 73 65 6c 65 63 74 |f no ico|n select|
|00001930| 65 64 00 80 0b 20 6e 65 | 77 64 72 61 77 65 72 66 |ed... ne|wdrawerf|
|00001940| 6c 61 67 20 3d 20 30 00 | 00 20 20 80 0b 20 dc 81 |lag = 0.|. .. ..|
|00001950| 28 74 69 74 6c 65 24 2c | 36 29 20 3d 20 22 53 65 |(title$,|6) = "Se|
|00001960| 6c 65 63 74 22 00 00 20 | 20 20 20 2a 77 62 73 63 |lect".. | *wbsc|
|00001970| 72 65 65 6e 5c 54 69 74 | 6c 65 20 3d 20 26 74 69 |reen\Tit|le = &ti|
|00001980| 74 6c 65 24 00 20 20 20 | 20 ff ab 20 2a 77 62 73 |tle$. | .. *wbs|
|00001990| 63 72 65 65 6e 2c 20 2d | 31 00 00 20 20 80 22 00 |creen, -|1.. .".|
|000019a0| 00 20 20 20 20 6f 75 74 | 70 75 74 24 20 3d 20 22 |. out|put$ = "|
|000019b0| 4c 61 73 74 20 73 65 6c | 65 63 74 65 64 3a 20 22 |Last sel|ected: "|
|000019c0| 20 2b 20 74 69 74 6c 65 | 24 00 00 20 20 20 20 2a | + title|$.. *|
|000019d0| 77 62 73 63 72 65 65 6e | 5c 54 69 74 6c 65 20 3d |wbscreen|\Title =|
|000019e0| 20 26 6f 75 74 70 75 74 | 24 00 20 20 20 20 ff ab | &output|$. ..|
|000019f0| 20 2a 77 62 73 63 72 65 | 65 6e 2c 20 2d 31 00 00 | *wbscre|en, -1..|
|00001a00| 20 20 80 c0 00 00 80 c0 | 00 00 80 07 00 00 3b 2d | ......|......;-|
|00001a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 00 20 |--------|------. |
|00001a50| 70 72 6f 63 5f 43 58 5f | 63 6f 6d 6d 61 6e 64 73 |proc_CX_|commands|
|00001a60| 20 3b 41 63 74 20 6f 6e | 20 63 6f 6d 6d 61 6e 64 | ;Act on| command|
|00001a70| 73 20 66 72 6f 6d 20 43 | 6f 6d 6d 6f 64 69 74 69 |s from C|ommoditi|
|00001a80| 65 73 20 45 78 63 68 61 | 6e 67 65 00 3b 2d 2d 2d |es Excha|nge.;---|
|00001a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 00 6d 73 |--------|----..ms|
|00001ad0| 67 69 64 20 3d 20 f8 14 | 28 63 78 5f 6d 73 67 29 |gid = ..|(cx_msg)|
|00001ae0| 20 20 3b 6e 6f 20 6e 65 | 65 64 20 74 6f 20 67 65 | ;no ne|ed to ge|
|00001af0| 74 20 6d 73 67 74 79 70 | 65 3a 20 6e 6f 20 69 6e |t msgtyp|e: no in|
|00001b00| 70 75 74 20 65 76 65 6e | 74 73 21 21 00 00 80 0e |put even|ts!!....|
|00001b10| 20 6d 73 67 69 64 00 00 | 20 20 80 0f 20 23 43 58 | msgid..| .. #CX|
|00001b20| 43 4d 44 5f 44 49 53 41 | 42 4c 45 00 00 20 20 20 |CMD_DISA|BLE.. |
|00001b30| 20 80 0b 20 65 6e 61 62 | 6c 65 64 20 3d 20 bc 0e | .. enab|led = ..|
|00001b40| 00 00 20 20 20 20 20 20 | 65 6e 61 62 6c 65 64 20 |.. |enabled |
|00001b50| 3d 20 bc 0f 00 20 20 20 | 20 20 20 ee 06 28 61 70 |= ... | ..(ap|
|00001b60| 70 69 74 65 6d 29 00 20 | 20 20 20 20 20 f8 03 20 |pitem). | .. |
|00001b70| 2a 62 72 6f 6b 65 72 2c | 20 30 00 00 20 20 20 20 |*broker,| 0.. |
|00001b80| 80 c0 00 00 20 20 80 0f | 20 23 43 58 43 4d 44 5f |.... ..| #CXCMD_|
|00001b90| 45 4e 41 42 4c 45 00 00 | 20 20 20 20 80 0b 20 65 |ENABLE..| .. e|
|00001ba0| 6e 61 62 6c 65 64 20 3d | 20 bc 0f 00 00 20 20 20 |nabled =| .... |
|00001bb0| 20 20 20 65 6e 61 62 6c | 65 64 20 3d 20 bc 0e 00 | enabl|ed = ...|
|00001bc0| 20 20 20 20 20 20 61 70 | 70 69 74 65 6d 20 3d 20 | ap|pitem = |
|00001bd0| ee 05 28 4e 55 4c 2c 26 | 75 73 65 72 5f 64 61 74 |..(NUL,&|user_dat|
|00001be0| 61 24 2c 26 61 6d 49 74 | 65 6d 24 2c 2a 77 62 5f |a$,&amIt|em$,*wb_|
|00001bf0| 70 6f 72 74 2c 4e 55 4c | 29 00 20 20 20 20 20 20 |port,NUL|). |
|00001c00| f8 03 20 2a 62 72 6f 6b | 65 72 2c 20 31 00 00 20 |.. *brok|er, 1.. |
|00001c10| 20 20 20 80 c0 00 00 20 | 20 80 0f 20 23 43 58 43 | .... | .. #CXC|
|00001c20| 4d 44 5f 4b 49 4c 4c 00 | 00 20 20 20 20 65 6e 61 |MD_KILL.|. ena|
|00001c30| 62 6c 65 64 20 3d 20 bc | 0f 00 20 20 20 20 71 75 |bled = .|.. qu|
|00001c40| 69 74 5f 70 72 6f 67 20 | 3d 20 bc 0e 00 00 80 02 |it_prog |= ......|
|00001c50| 20 80 0e 00 00 80 07 00 | 00 3b 2d 2d 2d 2d 2d 2d | .......|.;------|
|00001c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 00 20 47 65 74 44 72 |--------|-. GetDr|
|00001ca0| 61 77 65 72 50 61 74 68 | 20 3b 28 62 79 20 41 61 |awerPath| ;(by Aa|
|00001cb0| 72 6f 6e 20 4b 6f 6f 6c | 65 6e 2c 20 42 55 4d 37 |ron Kool|en, BUM7|
|00001cc0| 29 00 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |).;-----|--------|
|00001cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d00| 2d 2d 00 00 00 20 20 64 | 70 61 74 68 24 3d 22 22 |--... d|path$=""|
|00001d10| 00 20 20 61 72 67 73 2e | 6c 20 3d 20 2a 61 70 70 |. args.|l = *app|
|00001d20| 6d 73 67 5c 61 6d 5f 41 | 72 67 4c 69 73 74 20 2b |msg\am_A|rgList +|
|00001d30| 20 28 69 63 6f 6e 5f 6e | 75 6d 62 65 72 20 2a 20 | (icon_n|umber * |
|00001d40| 80 2f 2e 57 42 41 72 67 | 29 00 20 20 6c 6f 63 6b |./.WBArg|). lock|
|00001d50| 2e 6c 20 3d 20 da 02 2e | 6c 28 61 72 67 73 29 20 |.l = ...|l(args) |
|00001d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00001d70| 4c 6f 63 6b 20 6f 66 20 | 70 61 72 65 6e 74 21 00 |Lock of |parent!.|
|00001d80| 20 20 6e 61 6d 65 24 20 | 3d 20 da 02 24 28 da 02 | name$ |= ..$(..|
|00001d90| 2e 6c 28 61 72 67 73 2b | 34 29 29 20 20 20 20 20 |.l(args+|4)) |
|00001da0| 20 20 3b 20 4e 61 6d 65 | 20 6f 66 20 69 63 6f 6e | ; Name| of icon|
|00001db0| 00 00 3b 20 47 65 74 20 | 69 6e 66 6f 20 61 62 6f |..; Get |info abo|
|00001dc0| 75 74 20 74 68 65 20 66 | 69 6c 65 00 20 20 67 6f |ut the f|ile. go|
|00001dd0| 6f 64 2e 6c 20 3d 20 fe | 0d 28 6c 6f 63 6b 2c 2a |od.l = .|.(lock,*|
|00001de0| 66 69 62 29 00 00 20 20 | 80 0b 20 67 6f 6f 64 3c |fib).. |.. good<|
|00001df0| 3e 30 00 20 20 20 20 20 | 20 64 70 61 74 68 24 3d |>0. | dpath$=|
|00001e00| da 02 24 28 26 2a 66 69 | 62 5c 66 69 62 5f 46 69 |..$(&*fi|b\fib_Fi|
|00001e10| 6c 65 4e 61 6d 65 29 00 | 00 3b 20 4d 61 6b 65 20 |leName).|.; Make |
|00001e20| 74 68 65 20 65 6e 74 69 | 72 65 20 70 61 74 68 6e |the enti|re pathn|
|00001e30| 61 6d 65 20 66 6f 72 20 | 74 68 65 20 66 69 6c 65 |ame for |the file|
|00001e40| 00 20 20 20 20 80 bb 00 | 20 20 20 20 20 20 6c 6f |. ...| lo|
|00001e50| 63 6b 3d fe 1d 28 6c 6f | 63 6b 29 00 20 20 20 20 |ck=..(lo|ck). |
|00001e60| 20 20 80 0b 20 6c 6f 63 | 6b 00 20 20 20 20 20 20 | .. loc|k. |
|00001e70| 20 20 80 0b 20 fe 0d 28 | 6c 6f 63 6b 2c 2a 66 69 | .. ..(|lock,*fi|
|00001e80| 62 29 00 20 20 20 20 20 | 20 20 20 20 20 64 70 61 |b). | dpa|
|00001e90| 74 68 24 3d 64 70 61 74 | 68 24 2b 22 2f 22 2b 6e |th$=dpat|h$+"/"+n|
|00001ea0| 61 6d 65 24 00 20 20 20 | 20 20 20 20 20 20 20 6e |ame$. | n|
|00001eb0| 61 6d 65 24 3d 64 70 61 | 74 68 24 00 20 20 20 20 |ame$=dpa|th$. |
|00001ec0| 20 20 20 20 20 20 64 70 | 61 74 68 24 3d 20 da 02 | dp|ath$= ..|
|00001ed0| 24 28 26 2a 66 69 62 5c | 66 69 62 5f 46 69 6c 65 |$(&*fib\|fib_File|
|00001ee0| 4e 61 6d 65 29 00 20 20 | 20 20 20 20 20 20 80 c0 |Name). | ..|
|00001ef0| 00 20 20 20 20 20 20 80 | c0 00 20 20 20 20 80 bc |. .|.. ..|
|00001f00| 20 6c 6f 63 6b 3d 30 00 | 00 20 20 20 20 64 70 61 | lock=0.|. dpa|
|00001f10| 74 68 24 3d 64 70 61 74 | 68 24 2b 22 3a 22 2b 6e |th$=dpat|h$+":"+n|
|00001f20| 61 6d 65 24 00 00 3b 20 | 45 78 61 6d 69 6e 65 20 |ame$..; |Examine |
|00001f30| 74 68 69 73 20 6e 61 6d | 65 20 74 6f 20 63 68 65 |this nam|e to che|
|00001f40| 63 6b 20 69 66 20 69 74 | 27 73 20 61 20 64 69 72 |ck if it|'s a dir|
|00001f50| 65 63 74 6f 72 79 20 6f | 72 20 6e 6f 74 21 00 20 |ectory o|r not!. |
|00001f60| 20 20 20 6c 6f 63 6b 2e | 6c 3d fe 0a 28 64 70 61 | lock.|l=..(dpa|
|00001f70| 74 68 24 2c 2d 32 29 00 | 20 20 20 20 80 0b 20 6c |th$,-2).| .. l|
|00001f80| 6f 63 6b 00 20 20 20 20 | 20 20 80 0b 20 fe 0d 28 |ock. | .. ..(|
|00001f90| 6c 6f 63 6b 2c 2a 66 69 | 62 29 00 20 20 20 20 20 |lock,*fi|b). |
|00001fa0| 20 20 20 80 0b 20 2a 66 | 69 62 5c 66 69 62 5f 44 | .. *f|ib\fib_D|
|00001fb0| 69 72 45 6e 74 72 79 54 | 79 70 65 3e 30 00 20 20 |irEntryT|ype>0. |
|00001fc0| 20 20 20 20 20 20 20 20 | 67 6f 6f 64 20 3d 20 31 | |good = 1|
|00001fd0| 20 20 3a 20 20 64 69 72 | 4c 6f 63 6b 2e 6c 20 3d | : dir|Lock.l =|
|00001fe0| 20 6c 6f 63 6b 00 20 20 | 20 20 20 20 20 20 20 20 | lock. | |
|00001ff0| 64 24 3d 64 70 61 74 68 | 24 00 20 20 20 20 20 20 |d$=dpath|$. |
|00002000| 20 20 80 c0 00 20 20 20 | 20 20 20 80 c0 00 20 20 | ... | ... |
|00002010| 20 20 20 20 fe 0b 20 6c | 6f 63 6b 00 20 20 20 20 | .. l|ock. |
|00002020| 20 20 6c 6f 63 6b 3d 30 | 00 20 20 20 20 80 c0 00 | lock=0|. ...|
|00002030| 20 20 80 c0 00 80 07 00 | 00 00 00 00 00 00 00 00 | ......|........|
+--------+-------------------------+-------------------------+--------+--------+
