home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / blibii4 / Blib / Transfer < prev    next >
Unknown  |  1994-04-11  |  10.7 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 14 2a 7c 73 74 | 61 72 74 20 54 72 61 6e |....*|st|art Tran|
|00000010| 73 66 65 72 0d 00 14 21 | 2a 7c 21 57 69 6d 70 20 |sfer...!|*|!Wimp |
|00000020| 44 61 74 61 20 54 72 61 | 6e 73 66 65 72 20 4c 69 |Data Tra|nsfer Li|
|00000030| 62 72 61 72 79 0d 00 1e | 07 2a 7c 21 0d 00 28 34 |brary...|.*|!..(4|
|00000040| 2a 7c 21 56 65 72 73 69 | 6f 6e 20 31 2e 31 36 20 |*|!Versi|on 1.16 |
|00000050| 2d 20 28 43 29 20 54 6f | 6d 20 48 75 67 68 65 73 |- (C) To|m Hughes|
|00000060| 20 31 31 74 68 20 41 70 | 72 69 6c 20 31 39 39 34 | 11th Ap|ril 1994|
|00000070| 0d 00 32 07 2a 7c 21 0d | 00 3c 4b 2a 7c 21 54 68 |..2.*|!.|.<K*|!Th|
|00000080| 69 73 20 6c 69 62 72 61 | 72 79 20 70 72 6f 76 69 |is libra|ry provi|
|00000090| 64 65 73 20 61 20 6e 75 | 6d 62 65 72 20 6f 66 20 |des a nu|mber of |
|000000a0| 72 6f 75 74 69 6e 65 73 | 20 74 6f 20 68 65 6c 70 |routines| to help|
|000000b0| 20 68 61 6e 64 6c 65 20 | 73 61 76 69 6e 67 20 61 | handle |saving a|
|000000c0| 6e 64 0d 00 46 2c 2a 7c | 21 6c 6f 61 64 69 6e 67 |nd..F,*||!loading|
|000000d0| 20 6f 66 20 64 61 74 61 | 20 74 6f 2f 66 72 6f 6d | of data| to/from|
|000000e0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 73 2e 0d 00 | applica|tions...|
|000000f0| 50 07 2a 7c 21 0d 00 5a | 49 2a 7c 21 49 66 20 79 |P.*|!..Z|I*|!If y|
|00000100| 6f 75 72 20 70 72 6f 67 | 72 61 6d 20 77 69 73 68 |our prog|ram wish|
|00000110| 65 73 20 74 6f 20 61 6c | 6c 6f 77 20 6c 6f 61 64 |es to al|low load|
|00000120| 69 6e 67 20 6f 66 20 66 | 69 6c 65 73 2c 20 69 74 |ing of f|iles, it|
|00000130| 20 73 68 6f 75 6c 64 20 | 64 65 66 69 6e 65 0d 00 | should |define..|
|00000140| 64 34 2a 7c 21 74 77 6f | 20 63 61 6c 6c 62 61 63 |d4*|!two| callbac|
|00000150| 6b 20 72 6f 75 74 69 6e | 65 73 2e 20 54 68 65 20 |k routin|es. The |
|00000160| 66 69 72 73 74 20 6f 66 | 20 74 68 65 73 65 20 69 |first of| these i|
|00000170| 73 3a 0d 00 6e 07 2a 7c | 21 0d 00 78 37 2a 7c 21 |s:..n.*||!..x7*|!|
|00000180| 20 20 20 20 46 4e 74 72 | 61 6e 73 66 65 72 5f 77 | FNtr|ansfer_w|
|00000190| 69 6c 6c 6c 6f 61 64 28 | 20 66 69 6c 65 5f 74 79 |illload(| file_ty|
|000001a0| 70 65 20 2c 20 64 61 74 | 61 5f 6f 70 65 6e 20 29 |pe , dat|a_open )|
|000001b0| 0d 00 82 07 2a 7c 21 0d | 00 8c 4c 2a 7c 21 54 68 |....*|!.|..L*|!Th|
|000001c0| 69 73 20 72 6f 75 74 69 | 6e 65 20 73 68 6f 75 6c |is routi|ne shoul|
|000001d0| 64 20 72 65 74 75 72 6e | 20 74 72 75 65 20 69 66 |d return| true if|
|000001e0| 20 79 6f 75 72 20 70 72 | 6f 67 72 61 6d 20 69 73 | your pr|ogram is|
|000001f0| 20 70 72 65 70 61 72 65 | 64 20 74 6f 20 6c 6f 61 | prepare|d to loa|
|00000200| 64 20 61 0d 00 96 4b 2a | 7c 21 66 69 6c 65 20 6f |d a...K*||!file o|
|00000210| 66 20 74 68 65 20 73 70 | 65 63 69 66 69 65 64 20 |f the sp|ecified |
|00000220| 74 79 70 65 2e 20 49 66 | 20 27 64 61 74 61 5f 6f |type. If| 'data_o|
|00000230| 70 65 6e 27 20 69 73 20 | 54 52 55 45 20 74 68 65 |pen' is |TRUE the|
|00000240| 6e 20 74 68 65 20 66 69 | 6c 65 20 77 61 73 0d 00 |n the fi|le was..|
|00000250| a0 38 2a 7c 21 62 72 6f | 61 64 63 61 73 74 20 75 |.8*|!bro|adcast u|
|00000260| 70 6f 6e 20 61 20 64 6f | 75 62 6c 65 20 63 6c 69 |pon a do|uble cli|
|00000270| 63 6b 20 28 44 61 74 61 | 4f 70 65 6e 20 6d 65 73 |ck (Data|Open mes|
|00000280| 73 61 67 65 29 2e 0d 00 | aa 42 2a 7c 21 54 68 65 |sage)...|.B*|!The|
|00000290| 20 73 65 63 6f 6e 64 20 | 72 6f 75 74 69 6e 65 20 | second |routine |
|000002a0| 77 68 69 63 68 20 6d 75 | 73 74 20 62 65 20 70 72 |which mu|st be pr|
|000002b0| 6f 76 69 64 65 64 20 69 | 73 20 74 68 65 20 66 6f |ovided i|s the fo|
|000002c0| 6c 6c 6f 77 69 6e 67 3a | 0d 00 b4 07 2a 7c 21 0d |llowing:|....*|!.|
|000002d0| 00 be 43 2a 7c 21 20 20 | 20 20 50 52 4f 43 74 72 |..C*|! | PROCtr|
|000002e0| 61 6e 73 66 65 72 5f 6c | 6f 61 64 66 69 6c 65 28 |ansfer_l|oadfile(|
|000002f0| 20 66 69 6c 65 5f 6e 61 | 6d 65 20 2c 20 66 69 6c | file_na|me , fil|
|00000300| 65 5f 74 79 70 65 20 2c | 20 69 73 5f 73 61 66 65 |e_type ,| is_safe|
|00000310| 20 29 0d 00 c8 07 2a 7c | 21 0d 00 d2 4c 2a 7c 21 | )....*||!...L*|!|
|00000320| 54 68 69 73 20 72 6f 75 | 74 69 6e 65 20 69 73 20 |This rou|tine is |
|00000330| 63 61 6c 6c 65 64 20 74 | 6f 20 61 73 6b 20 74 68 |called t|o ask th|
|00000340| 65 20 70 72 6f 67 72 61 | 6d 20 74 6f 20 6c 6f 61 |e progra|m to loa|
|00000350| 64 20 74 68 65 20 73 70 | 65 63 69 66 69 65 64 20 |d the sp|ecified |
|00000360| 66 69 6c 65 2c 0d 00 dc | 4b 2a 7c 21 77 68 6f 73 |file,...|K*|!whos|
|00000370| 65 20 74 79 70 65 20 69 | 73 20 61 6c 73 6f 20 70 |e type i|s also p|
|00000380| 72 6f 76 69 64 65 64 2e | 20 54 68 65 20 62 6f 6f |rovided.| The boo|
|00000390| 6c 65 61 6e 20 70 61 72 | 61 6d 65 74 65 72 20 69 |lean par|ameter i|
|000003a0| 73 5f 73 61 66 65 20 69 | 6e 64 69 63 61 74 65 73 |s_safe i|ndicates|
|000003b0| 0d 00 e6 36 2a 7c 21 77 | 68 65 74 68 65 72 20 74 |...6*|!w|hether t|
|000003c0| 68 65 20 66 69 6c 65 20 | 68 61 73 20 63 6f 6d 65 |he file |has come|
|000003d0| 20 66 72 6f 6d 20 61 20 | 27 73 61 66 65 27 20 73 | from a |'safe' s|
|000003e0| 6f 75 72 63 65 2e 0d 00 | f0 07 2a 7c 21 0d 00 fa |ource...|..*|!...|
|000003f0| 4b 2a 7c 21 49 66 20 79 | 6f 75 72 20 70 72 6f 67 |K*|!If y|our prog|
|00000400| 72 61 6d 20 63 61 6e 20 | 70 72 69 6e 74 20 66 69 |ram can |print fi|
|00000410| 6c 65 73 20 6f 66 20 61 | 20 67 69 76 65 6e 20 74 |les of a| given t|
|00000420| 79 70 65 2c 20 69 74 20 | 73 68 6f 75 6c 64 20 70 |ype, it |should p|
|00000430| 72 6f 76 69 64 65 20 61 | 0d 01 04 48 2a 7c 21 72 |rovide a|...H*|!r|
|00000440| 6f 75 74 69 6e 65 20 77 | 68 69 63 68 20 72 65 74 |outine w|hich ret|
|00000450| 75 72 6e 73 20 54 52 55 | 45 20 6f 72 20 46 41 4c |urns TRU|E or FAL|
|00000460| 53 45 20 74 6f 20 69 6e | 64 69 63 61 74 65 20 77 |SE to in|dicate w|
|00000470| 68 65 74 68 65 72 20 6f | 72 20 6e 6f 74 20 69 74 |hether o|r not it|
|00000480| 0d 01 0e 23 2a 7c 21 63 | 61 6e 20 70 72 69 6e 74 |...#*|!c|an print|
|00000490| 20 61 20 67 69 76 65 6e | 20 66 69 6c 65 20 74 79 | a given| file ty|
|000004a0| 70 65 3a 0d 01 18 07 2a | 7c 21 0d 01 22 2e 2a 7c |pe:....*||!..".*||
|000004b0| 21 20 20 20 20 50 52 4f | 43 74 72 61 6e 73 66 65 |! PRO|Ctransfe|
|000004c0| 72 5f 77 69 6c 6c 70 72 | 69 6e 74 28 20 66 69 6c |r_willpr|int( fil|
|000004d0| 65 5f 74 79 70 65 20 29 | 0d 01 2c 07 2a 7c 21 0d |e_type )|..,.*|!.|
|000004e0| 01 36 48 2a 7c 21 49 74 | 20 73 68 6f 75 6c 64 20 |.6H*|!It| should |
|000004f0| 61 6c 73 6f 20 70 72 6f | 76 69 64 65 20 50 52 4f |also pro|vide PRO|
|00000500| 43 74 72 61 6e 73 66 65 | 72 5f 70 72 69 6e 74 66 |Ctransfe|r_printf|
|00000510| 69 6c 65 2c 20 77 68 69 | 63 68 20 69 73 20 64 65 |ile, whi|ch is de|
|00000520| 73 63 72 69 62 65 64 0d | 01 40 2b 2a 7c 21 62 65 |scribed.|.@+*|!be|
|00000530| 6c 6f 77 20 75 6e 64 65 | 72 20 50 52 4f 43 74 72 |low unde|r PROCtr|
|00000540| 61 6e 73 66 65 72 5f 73 | 74 61 72 74 70 72 69 6e |ansfer_s|tartprin|
|00000550| 74 2e 0d 01 4a 13 2a 7c | 73 74 6f 70 20 54 72 61 |t...J.*||stop Tra|
|00000560| 6e 73 66 65 72 0d 01 54 | 04 0d 01 5e 1d 2a 7c 73 |nsfer..T|...^.*|s|
|00000570| 74 61 72 74 20 50 52 4f | 43 74 72 61 6e 73 66 65 |tart PRO|Ctransfe|
|00000580| 72 5f 69 6e 69 74 0d 01 | 68 18 2a 7c 21 50 52 4f |r_init..|h.*|!PRO|
|00000590| 43 74 72 61 6e 73 66 65 | 72 5f 69 6e 69 74 0d 01 |Ctransfe|r_init..|
|000005a0| 72 07 2a 7c 21 0d 01 7c | 45 2a 7c 21 54 68 69 73 |r.*|!..||E*|!This|
|000005b0| 20 72 6f 75 74 69 6e 65 | 20 73 68 6f 75 6c 64 20 | routine| should |
|000005c0| 62 65 20 63 61 6c 6c 65 | 64 20 74 6f 20 69 6e 69 |be calle|d to ini|
|000005d0| 74 69 61 6c 69 73 65 20 | 74 68 65 20 6c 69 62 72 |tialise |the libr|
|000005e0| 61 72 79 20 62 65 66 6f | 72 65 0d 01 86 46 2a 7c |ary befo|re...F*||
|000005f0| 21 75 73 69 6e 67 20 61 | 6e 79 20 6f 74 68 65 72 |!using a|ny other|
|00000600| 20 72 6f 75 74 69 6e 65 | 73 2e 20 49 74 20 61 6c | routine|s. It al|
|00000610| 73 6f 20 63 72 65 61 74 | 65 73 20 74 77 6f 20 6e |so creat|es two n|
|00000620| 65 77 20 64 65 66 61 75 | 6c 74 20 65 76 65 6e 74 |ew defau|lt event|
|00000630| 0d 01 90 46 2a 7c 21 68 | 61 6e 64 6c 65 72 73 20 |...F*|!h|andlers |
|00000640| 66 6f 72 20 6d 65 73 73 | 61 67 65 73 20 63 6f 6e |for mess|ages con|
|00000650| 63 65 72 6e 65 64 20 77 | 69 74 68 20 73 61 76 69 |cerned w|ith savi|
|00000660| 6e 67 20 64 61 74 61 20 | 28 6d 65 73 73 61 67 65 |ng data |(message|
|00000670| 73 20 31 2d 37 29 0d 01 | 9a 22 2a 7c 21 61 6e 64 |s 1-7)..|."*|!and|
|00000680| 20 66 6f 72 20 55 73 65 | 72 44 72 61 67 42 6f 78 | for Use|rDragBox|
|00000690| 20 65 76 65 6e 74 73 2e | 0d 01 a4 0a 2a 7c 63 6f | events.|....*|co|
|000006a0| 70 79 0d 01 ae 0c 2a 7c | 75 70 64 61 74 65 0d 01 |py....*||update..|
|000006b0| b8 14 dd 20 f2 74 72 61 | 6e 73 66 65 72 5f 69 6e |... .tra|nsfer_in|
|000006c0| 69 74 0d 01 c2 15 5f 74 | 72 61 6e 73 66 65 72 5f |it...._t|ransfer_|
|000006d0| 74 79 70 65 25 3d 30 0d | 01 cc 16 5f 74 72 61 6e |type%=0.|..._tran|
|000006e0| 73 66 65 72 5f 66 69 6c | 65 24 3d 22 22 0d 01 d6 |sfer_fil|e$=""...|
|000006f0| 15 5f 74 72 61 6e 73 66 | 65 72 5f 73 69 7a 65 25 |._transf|er_size%|
|00000700| 3d 30 0d 01 e0 14 5f 74 | 72 61 6e 73 66 65 72 5f |=0...._t|ransfer_|
|00000710| 72 65 66 25 3d 30 0d 01 | ea 19 5f 74 72 61 6e 73 |ref%=0..|.._trans|
|00000720| 66 65 72 5f 64 72 61 67 | 67 69 6e 67 25 3d a3 0d |fer_drag|ging%=..|
|00000730| 01 f4 15 5f 77 69 6d 70 | 5f 62 75 66 66 65 72 25 |..._wimp|_buffer%|
|00000740| 21 30 3d 31 0d 01 fe 15 | 5f 77 69 6d 70 5f 62 75 |!0=1....|_wimp_bu|
|00000750| 66 66 65 72 25 21 34 3d | 32 0d 02 08 15 5f 77 69 |ffer%!4=|2...._wi|
|00000760| 6d 70 5f 62 75 66 66 65 | 72 25 21 38 3d 33 0d 02 |mp_buffe|r%!8=3..|
|00000770| 12 16 5f 77 69 6d 70 5f | 62 75 66 66 65 72 25 21 |.._wimp_|buffer%!|
|00000780| 31 32 3d 35 0d 02 1c 16 | 5f 77 69 6d 70 5f 62 75 |12=5....|_wimp_bu|
|00000790| 66 66 65 72 25 21 31 36 | 3d 36 0d 02 26 16 5f 77 |ffer%!16|=6..&._w|
|000007a0| 69 6d 70 5f 62 75 66 66 | 65 72 25 21 32 30 3d 37 |imp_buff|er%!20=7|
|000007b0| 0d 02 30 1b 5f 77 69 6d | 70 5f 62 75 66 66 65 72 |..0._wim|p_buffer|
|000007c0| 25 21 32 34 3d 26 38 30 | 31 34 32 0d 02 3a 1b 5f |%!24=&80|142..:._|
|000007d0| 77 69 6d 70 5f 62 75 66 | 66 65 72 25 21 32 38 3d |wimp_buf|fer%!28=|
|000007e0| 26 38 30 31 34 34 0d 02 | 44 1b 5f 77 69 6d 70 5f |&80144..|D._wimp_|
|000007f0| 62 75 66 66 65 72 25 21 | 33 32 3d 26 38 30 31 34 |buffer%!|32=&8014|
|00000800| 35 0d 02 4e 16 5f 77 69 | 6d 70 5f 62 75 66 66 65 |5..N._wi|mp_buffe|
|00000810| 72 25 21 33 36 3d 30 0d | 02 58 24 f2 77 69 6d 70 |r%!36=0.|.X$.wimp|
|00000820| 5f 61 64 64 6d 65 73 73 | 61 67 65 73 28 5f 77 69 |_addmess|ages(_wi|
|00000830| 6d 70 5f 62 75 66 66 65 | 72 25 29 0d 02 62 05 e1 |mp_buffe|r%)..b..|
|00000840| 0d 02 6c 04 0d 02 76 20 | dd 20 a4 5f 74 72 61 6e |..l...v |. ._tran|
|00000850| 73 66 65 72 5f 77 61 6e | 74 6d 65 73 73 28 6d 65 |sfer_wan|tmess(me|
|00000860| 73 73 25 29 0d 02 80 0e | c8 8e 20 6d 65 73 73 25 |ss%)....|.. mess%|
|00000870| 20 ca 0d 02 8a 23 20 20 | c9 20 31 2c 32 2c 33 2c | ....# |. 1,2,3,|
|00000880| 35 2c 36 2c 26 38 30 31 | 34 34 2c 26 38 30 31 34 |5,6,&801|44,&8014|
|00000890| 35 3a 20 3d b9 0d 02 94 | 0b 20 20 7f 3a 20 3d a3 |5: =....|. .: =.|
|000008a0| 0d 02 9e 05 cb 0d 02 a8 | 06 3d a3 0d 02 b2 04 0d |........|.=......|
|000008b0| 02 bc 24 dd 20 f2 65 76 | 65 6e 74 5f 74 72 61 6e |..$. .ev|ent_tran|
|000008c0| 73 66 65 72 6d 65 73 73 | 61 67 65 28 62 6c 6f 63 |sfermess|age(bloc|
|000008d0| 6b 25 29 0d 02 c6 19 ea | 20 62 75 66 66 65 72 25 |k%).....| buffer%|
|000008e0| 2c 73 69 7a 65 25 2c 6d | 65 73 73 25 0d 02 d0 17 |,size%,m|ess%....|
|000008f0| 3f 28 62 6c 6f 63 6b 25 | 2b 21 62 6c 6f 63 6b 25 |?(block%|+!block%|
|00000900| 29 3d 30 0d 02 da 12 c8 | 8e 20 62 6c 6f 63 6b 25 |)=0.....|. block%|
|00000910| 21 31 36 20 ca 0d 02 e4 | 1f 2a 7c 69 66 64 65 66 |!16 ....|.*|ifdef|
|00000920| 20 46 4e 74 72 61 6e 73 | 66 65 72 5f 77 69 6c 6c | FNtrans|fer_will|
|00000930| 6c 6f 61 64 0d 02 ee 0a | 20 20 c9 20 31 3a 0d 02 |load....| . 1:..|
|00000940| f8 46 20 20 20 20 e7 20 | a4 74 72 61 6e 73 66 65 |.F . |.transfe|
|00000950| 72 5f 77 69 6c 6c 6c 6f | 61 64 28 62 6c 6f 63 6b |r_willlo|ad(block|
|00000960| 25 21 34 30 2c a3 29 20 | 80 20 62 6c 6f 63 6b 25 |%!40,.) |. block%|
|00000970| 21 38 3c 3e 5f 74 72 61 | 6e 73 66 65 72 5f 72 65 |!8<>_tra|nsfer_re|
|00000980| 66 25 20 8c 0d 03 02 31 | 20 20 20 20 20 20 f2 6f |f% ....1| .o|
|00000990| 73 5f 70 75 74 73 74 72 | 69 6e 67 28 62 6c 6f 63 |s_putstr|ing(bloc|
|000009a0| 6b 25 2b 34 34 2c 22 3c | 57 69 6d 70 24 53 63 72 |k%+44,"<|Wimp$Scr|
|000009b0| 61 70 3e 22 29 0d 03 0c | 16 20 20 20 20 20 20 62 |ap>")...|. b|
|000009c0| 6c 6f 63 6b 25 21 33 36 | 3d 2d 31 0d 03 16 1c 20 |lock%!36|=-1.... |
|000009d0| 20 20 20 20 20 62 6c 6f | 63 6b 25 21 31 32 3d 62 | blo|ck%!12=b|
|000009e0| 6c 6f 63 6b 25 21 38 0d | 03 20 15 20 20 20 20 20 |lock%!8.|. . |
|000009f0| 20 62 6c 6f 63 6b 25 21 | 31 36 3d 32 0d 03 2a 14 | block%!|16=2..*.|
|00000a00| 20 20 20 20 20 20 21 62 | 6c 6f 63 6b 25 3d 36 30 | !b|lock%=60|
|00000a10| 0d 03 34 32 20 20 20 20 | 20 20 c8 99 20 22 57 69 |..42 | .. "Wi|
|00000a20| 6d 70 5f 53 65 6e 64 4d | 65 73 73 61 67 65 22 2c |mp_SendM|essage",|
|00000a30| 31 37 2c 62 6c 6f 63 6b | 25 2c 62 6c 6f 63 6b 25 |17,block|%,block%|
|00000a40| 21 34 0d 03 3e 09 20 20 | 20 20 cd 0d 03 48 0b 2a |!4..>. | ...H.*|
|00000a50| 7c 65 6e 64 69 66 0d 03 | 52 22 2a 7c 69 66 64 65 ||endif..|R"*|ifde|
|00000a60| 66 20 50 52 4f 43 74 72 | 61 6e 73 66 65 72 5f 73 |f PROCtr|ansfer_s|
|00000a70| 74 61 72 74 64 72 61 67 | 0d 03 5c 0a 20 20 c9 20 |tartdrag|..\. . |
|00000a80| 32 3a 0d 03 66 24 20 20 | 20 20 e7 20 62 6c 6f 63 |2:..f$ | . bloc|
|00000a90| 6b 25 21 31 32 3d 5f 74 | 72 61 6e 73 66 65 72 5f |k%!12=_t|ransfer_|
|00000aa0| 72 65 66 25 20 8c 0d 03 | 70 23 20 20 20 20 20 20 |ref% ...|p# |
|00000ab0| 62 6c 6f 63 6b 25 21 33 | 36 3d 5f 74 72 61 6e 73 |block%!3|6=_trans|
|00000ac0| 66 65 72 5f 73 69 7a 65 | 25 0d 03 7a 1c 20 20 20 |fer_size|%..z. |
|00000ad0| 20 20 20 62 6c 6f 63 6b | 25 21 31 32 3d 62 6c 6f | block|%!12=blo|
|00000ae0| 63 6b 25 21 38 0d 03 84 | 15 20 20 20 20 20 20 62 |ck%!8...|. b|
|00000af0| 6c 6f 63 6b 25 21 31 36 | 3d 33 0d 03 8e 3d 20 20 |lock%!16|=3...= |
|00000b00| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e | .. "|Wimp_Sen|
|00000b10| 64 4d 65 73 73 61 67 65 | 22 2c 31 38 2c 62 6c 6f |dMessage|",18,blo|
|00000b20| 63 6b 25 2c 62 6c 6f 63 | 6b 25 21 32 30 2c 62 6c |ck%,bloc|k%!20,bl|
|00000b30| 6f 63 6b 25 21 32 34 0d | 03 98 56 20 20 20 20 20 |ock%!24.|..V |
|00000b40| 20 f2 74 72 61 6e 73 66 | 65 72 5f 73 61 76 65 66 | .transf|er_savef|
|00000b50| 69 6c 65 28 a4 6f 73 5f | 67 65 74 73 74 72 69 6e |ile(.os_|getstrin|
|00000b60| 67 28 62 6c 6f 63 6b 25 | 2b 34 34 29 2c 5f 74 72 |g(block%|+44),_tr|
|00000b70| 61 6e 73 66 65 72 5f 74 | 79 70 65 25 2c 28 62 6c |ansfer_t|ype%,(bl|
|00000b80| 6f 63 6b 25 21 33 36 3c | 3e 2d 31 29 29 0d 03 a2 |ock%!36<|>-1))...|
|00000b90| 21 20 20 20 20 20 20 5f | 74 72 61 6e 73 66 65 72 |! _|transfer|
|00000ba0| 5f 72 65 66 25 3d 62 6c | 6f 63 6b 25 21 38 0d 03 |_ref%=bl|ock%!8..|
|00000bb0| ac 16 20 20 20 20 20 20 | f2 6d 65 6e 75 5f 72 65 |.. |.menu_re|
|00000bc0| 6d 6f 76 65 0d 03 b6 09 | 20 20 20 20 cd 0d 03 c0 |move....| ....|
|00000bd0| 0b 2a 7c 65 6e 64 69 66 | 0d 03 ca 21 2a 7c 69 66 |.*|endif|...!*|if|
|00000be0| 64 65 66 20 50 52 4f 43 | 74 72 61 6e 73 66 65 72 |def PROC|transfer|
|00000bf0| 5f 6c 6f 61 64 66 69 6c | 65 0d 03 d4 0a 20 20 c9 |_loadfil|e.... .|
|00000c00| 20 33 3a 0d 03 de 45 20 | 20 20 20 e7 20 62 6c 6f | 3:...E | . blo|
|00000c10| 63 6b 25 21 34 3c 3e 5f | 77 69 6d 70 5f 68 61 6e |ck%!4<>_|wimp_han|
|00000c20| 64 6c 65 25 20 80 20 a4 | 74 72 61 6e 73 66 65 72 |dle% . .|transfer|
|00000c30| 5f 77 69 6c 6c 6c 6f 61 | 64 28 62 6c 6f 63 6b 25 |_willloa|d(block%|
|00000c40| 21 34 30 2c a3 29 20 8c | 0d 03 e8 1c 20 20 20 20 |!40,.) .|.... |
|00000c50| 20 20 62 6c 6f 63 6b 25 | 21 31 32 3d 62 6c 6f 63 | block%|!12=bloc|
|00000c60| 6b 25 21 38 0d 03 f2 15 | 20 20 20 20 20 20 62 6c |k%!8....| bl|
|00000c70| 6f 63 6b 25 21 31 36 3d | 34 0d 03 fc 32 20 20 20 |ock%!16=|4...2 |
|00000c80| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 53 65 6e 64 | .. "W|imp_Send|
|00000c90| 4d 65 73 73 61 67 65 22 | 2c 31 37 2c 62 6c 6f 63 |Message"|,17,bloc|
|00000ca0| 6b 25 2c 62 6c 6f 63 6b | 25 21 34 0d 04 06 69 20 |k%,block|%!4...i |
|00000cb0| 20 20 20 20 20 f2 74 72 | 61 6e 73 66 65 72 5f 6c | .tr|ansfer_l|
|00000cc0| 6f 61 64 66 69 6c 65 28 | a4 6f 73 5f 67 65 74 73 |oadfile(|.os_gets|
|00000cd0| 74 72 69 6e 67 28 62 6c | 6f 63 6b 25 2b 34 34 29 |tring(bl|ock%+44)|
|00000ce0| 2c 62 6c 6f 63 6b 25 21 | 34 30 2c a4 6f 73 5f 67 |,block%!|40,.os_g|
|00000cf0| 65 74 73 74 72 69 6e 67 | 28 62 6c 6f 63 6b 25 2b |etstring|(block%+|
|00000d00| 34 34 29 3c 3e 22 3c 57 | 69 6d 70 24 53 63 72 61 |44)<>"<W|imp$Scra|
|00000d10| 70 3e 22 29 0d 04 10 09 | 20 20 20 20 cd 0d 04 1a |p>")....| ....|
|00000d20| 0b 2a 7c 65 6e 64 69 66 | 0d 04 24 21 2a 7c 69 66 |.*|endif|..$!*|if|
|00000d30| 64 65 66 20 50 52 4f 43 | 74 72 61 6e 73 66 65 72 |def PROC|transfer|
|00000d40| 5f 6c 6f 61 64 66 69 6c | 65 0d 04 2e 0a 20 20 c9 |_loadfil|e.... .|
|00000d50| 20 35 3a 0d 04 38 2b 20 | 20 20 20 e7 20 a4 74 72 | 5:..8+ | . .tr|
|00000d60| 61 6e 73 66 65 72 5f 77 | 69 6c 6c 6c 6f 61 64 28 |ansfer_w|illload(|
|00000d70| 62 6c 6f 63 6b 25 21 34 | 30 2c b9 29 20 8c 0d 04 |block%!4|0,.) ...|
|00000d80| 42 1c 20 20 20 20 20 20 | 62 6c 6f 63 6b 25 21 31 |B. |block%!1|
|00000d90| 32 3d 62 6c 6f 63 6b 25 | 21 38 0d 04 4c 15 20 20 |2=block%|!8..L. |
|00000da0| 20 20 20 20 62 6c 6f 63 | 6b 25 21 31 36 3d 34 0d | bloc|k%!16=4.|
|00000db0| 04 56 32 20 20 20 20 20 | 20 c8 99 20 22 57 69 6d |.V2 | .. "Wim|
|00000dc0| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00000dd0| 37 2c 62 6c 6f 63 6b 25 | 2c 62 6c 6f 63 6b 25 21 |7,block%|,block%!|
|00000de0| 34 0d 04 60 42 20 20 20 | 20 20 20 f2 74 72 61 6e |4..`B | .tran|
|00000df0| 73 66 65 72 5f 6c 6f 61 | 64 66 69 6c 65 28 a4 6f |sfer_loa|dfile(.o|
|00000e00| 73 5f 67 65 74 73 74 72 | 69 6e 67 28 62 6c 6f 63 |s_getstr|ing(bloc|
|00000e10| 6b 25 2b 34 34 29 2c 62 | 6c 6f 63 6b 25 21 34 30 |k%+44),b|lock%!40|
|00000e20| 2c b9 29 0d 04 6a 0d 20 | 20 20 20 cd 20 20 20 20 |,.)..j. | . |
|00000e30| 0d 04 74 0b 2a 7c 65 6e | 64 69 66 0d 04 7e 20 2a |..t.*|en|dif..~ *|
|00000e40| 7c 69 66 64 65 66 20 46 | 4e 74 72 61 6e 73 66 65 ||ifdef F|Ntransfe|
|00000e50| 72 5f 73 65 6e 64 62 6c | 6f 63 6b 0d 04 88 0a 20 |r_sendbl|ock.... |
|00000e60| 20 c9 20 36 3a 0d 04 92 | 44 20 20 20 20 73 69 7a | . 6:...|D siz|
|00000e70| 65 25 3d a4 74 72 61 6e | 73 66 65 72 5f 73 65 6e |e%=.tran|sfer_sen|
|00000e80| 64 62 6c 6f 63 6b 28 62 | 75 66 66 65 72 25 2c 62 |dblock(b|uffer%,b|
|00000e90| 6c 6f 63 6b 25 21 32 34 | 2c 5f 74 72 61 6e 73 66 |lock%!24|,_transf|
|00000ea0| 65 72 5f 74 79 70 65 25 | 29 0d 04 9c 15 20 20 20 |er_type%|).... |
|00000eb0| 20 e7 20 73 69 7a 65 25 | 3c 3e 2d 31 20 8c 0d 04 | . size%|<>-1 ...|
|00000ec0| a6 50 20 20 20 20 20 20 | c8 99 20 22 57 69 6d 70 |.P |.. "Wimp|
|00000ed0| 5f 54 72 61 6e 73 66 65 | 72 42 6c 6f 63 6b 22 2c |_Transfe|rBlock",|
|00000ee0| 5f 77 69 6d 70 5f 68 61 | 6e 64 6c 65 25 2c 62 75 |_wimp_ha|ndle%,bu|
|00000ef0| 66 66 65 72 25 2c 62 6c | 6f 63 6b 25 21 34 2c 62 |ffer%,bl|ock%!4,b|
|00000f00| 6c 6f 63 6b 25 21 32 30 | 2c 73 69 7a 65 25 0d 04 |lock%!20|,size%..|
|00000f10| b0 31 20 20 20 20 20 20 | e7 20 73 69 7a 65 25 3c |.1 |. size%<|
|00000f20| 62 6c 6f 63 6b 25 21 32 | 34 20 8c 20 6d 65 73 73 |block%!2|4 . mess|
|00000f30| 25 3d 31 37 20 8b 20 6d | 65 73 73 25 3d 31 38 0d |%=17 . m|ess%=18.|
|00000f40| 04 ba 1c 20 20 20 20 20 | 20 62 6c 6f 63 6b 25 21 |... | block%!|
|00000f50| 31 32 3d 62 6c 6f 63 6b | 25 21 38 0d 04 c4 15 20 |12=block|%!8.... |
|00000f60| 20 20 20 20 20 62 6c 6f | 63 6b 25 21 31 36 3d 37 | blo|ck%!16=7|
|00000f70| 0d 04 ce 19 20 20 20 20 | 20 20 62 6c 6f 63 6b 25 |.... | block%|
|00000f80| 21 32 34 3d 73 69 7a 65 | 25 0d 04 d8 35 20 20 20 |!24=size|%...5 |
|00000f90| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 53 65 6e 64 | .. "W|imp_Send|
|00000fa0| 4d 65 73 73 61 67 65 22 | 2c 6d 65 73 73 25 2c 62 |Message"|,mess%,b|
|00000fb0| 6c 6f 63 6b 25 2c 62 6c | 6f 63 6b 25 21 34 0d 04 |lock%,bl|ock%!4..|
|00000fc0| e2 09 20 20 20 20 cd 0d | 04 ec 0b 2a 7c 65 6e 64 |.. ..|...*|end|
|00000fd0| 69 66 0d 04 f6 23 2a 7c | 69 66 64 65 66 20 50 52 |if...#*||ifdef PR|
|00000fe0| 4f 43 74 72 61 6e 73 66 | 65 72 5f 73 74 61 72 74 |OCtransf|er_start|
|00000ff0| 70 72 69 6e 74 0d 05 00 | 0f 20 20 c9 20 26 38 30 |print...|. . &80|
|00001000| 31 34 34 3a 0d 05 0a 24 | 20 20 20 20 e7 20 62 6c |144:...$| . bl|
|00001010| 6f 63 6b 25 21 31 32 3d | 5f 74 72 61 6e 73 66 65 |ock%!12=|_transfe|
|00001020| 72 5f 72 65 66 25 20 8c | 0d 05 14 40 20 20 20 20 |r_ref% .|...@ |
|00001030| 20 20 64 75 6d 6d 79 25 | 3d a4 77 69 6d 70 5f 6d | dummy%|=.wimp_m|
|00001040| 65 73 73 61 67 65 62 6f | 78 28 a3 2c 22 22 2c a4 |essagebo|x(.,"",.|
|00001050| 6f 73 5f 67 65 74 73 74 | 72 69 6e 67 28 62 6c 6f |os_getst|ring(blo|
|00001060| 63 6b 25 2b 32 34 29 29 | 0d 05 1e 09 20 20 20 20 |ck%+24))|.... |
|00001070| cd 0d 05 28 0b 2a 7c 65 | 6e 64 69 66 0d 05 32 0f |...(.*|e|ndif..2.|
|00001080| 20 20 c9 20 26 38 30 31 | 34 35 3a 0d 05 3c 16 20 | . &801|45:..<. |
|00001090| 20 20 20 c8 8e 20 62 6c | 6f 63 6b 25 21 31 32 20 | .. bl|ock%!12 |
|000010a0| ca 0d 05 46 20 2a 7c 69 | 66 64 65 66 20 46 4e 74 |...F *|i|fdef FNt|
|000010b0| 72 61 6e 73 66 65 72 5f | 77 69 6c 6c 70 72 69 6e |ransfer_|willprin|
|000010c0| 74 0d 05 50 0e 20 20 20 | 20 20 20 c9 20 30 3a 0d |t..P. | . 0:.|
|000010d0| 05 5a 2e 20 20 20 20 20 | 20 20 20 e7 20 a4 74 72 |.Z. | . .tr|
|000010e0| 61 6e 73 66 65 72 5f 77 | 69 6c 6c 70 72 69 6e 74 |ansfer_w|illprint|
|000010f0| 28 62 6c 6f 63 6b 25 21 | 34 30 29 20 8c 0d 05 64 |(block%!|40) ...d|
|00001100| 18 20 20 20 20 20 20 20 | 20 20 20 21 62 6c 6f 63 |. | !bloc|
|00001110| 6b 25 3d 32 30 0d 05 6e | 20 20 20 20 20 20 20 20 |k%=20..n| |
|00001120| 20 20 20 62 6c 6f 63 6b | 25 21 31 32 3d 62 6c 6f | block|%!12=blo|
|00001130| 63 6b 25 21 38 0d 05 78 | 1e 20 20 20 20 20 20 20 |ck%!8..x|. |
|00001140| 20 20 20 62 6c 6f 63 6b | 25 21 31 36 3d 26 38 30 | block|%!16=&80|
|00001150| 31 34 36 0d 05 82 36 20 | 20 20 20 20 20 20 20 20 |146...6 | |
|00001160| 20 c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 | .. "Wim|p_SendMe|
|00001170| 73 73 61 67 65 22 2c 31 | 37 2c 62 6c 6f 63 6b 25 |ssage",1|7,block%|
|00001180| 2c 62 6c 6f 63 6b 25 21 | 34 0d 05 8c 4f 20 20 20 |,block%!|4...O |
|00001190| 20 20 20 20 20 20 20 f2 | 74 72 61 6e 73 66 65 72 | .|transfer|
|000011a0| 5f 70 72 69 6e 74 66 69 | 6c 65 28 a4 6f 73 5f 67 |_printfi|le(.os_g|
|000011b0| 65 74 73 74 72 69 6e 67 | 28 62 6c 6f 63 6b 25 2b |etstring|(block%+|
|000011c0| 34 34 29 2c 62 6c 6f 63 | 6b 25 21 34 30 29 20 20 |44),bloc|k%!40) |
|000011d0| 20 20 20 20 20 20 20 20 | 0d 05 96 0d 20 20 20 20 | |.... |
|000011e0| 20 20 20 20 cd 0d 05 a0 | 0b 2a 7c 65 6e 64 69 66 | ....|.*|endif|
|000011f0| 0d 05 aa 22 2a 7c 69 66 | 64 65 66 20 50 52 4f 43 |..."*|if|def PROC|
|00001200| 74 72 61 6e 73 66 65 72 | 5f 70 72 69 6e 74 66 69 |transfer|_printfi|
|00001210| 6c 65 0d 05 b4 1b 20 20 | 20 20 20 20 c9 20 5f 74 |le.... | . _t|
|00001220| 72 61 6e 73 66 65 72 5f | 72 65 66 25 3a 0d 05 be |ransfer_|ref%:...|
|00001230| 16 20 20 20 20 20 20 20 | 20 21 62 6c 6f 63 6b 25 |. | !block%|
|00001240| 3d 32 30 0d 05 c8 1e 20 | 20 20 20 20 20 20 20 62 |=20.... | b|
|00001250| 6c 6f 63 6b 25 21 31 32 | 3d 62 6c 6f 63 6b 25 21 |lock%!12|=block%!|
|00001260| 38 0d 05 d2 1c 20 20 20 | 20 20 20 20 20 62 6c 6f |8.... | blo|
|00001270| 63 6b 25 21 31 36 3d 26 | 38 30 31 34 36 0d 05 dc |ck%!16=&|80146...|
|00001280| 34 20 20 20 20 20 20 20 | 20 c8 99 20 22 57 69 6d |4 | .. "Wim|
|00001290| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|000012a0| 37 2c 62 6c 6f 63 6b 25 | 2c 62 6c 6f 63 6b 25 21 |7,block%|,block%!|
|000012b0| 34 0d 05 e6 33 20 20 20 | 20 20 20 20 20 f2 74 72 |4...3 | .tr|
|000012c0| 61 6e 73 66 65 72 5f 70 | 72 69 6e 74 66 69 6c 65 |ansfer_p|rintfile|
|000012d0| 28 22 22 2c 5f 74 72 61 | 6e 73 66 65 72 5f 74 79 |("",_tra|nsfer_ty|
|000012e0| 70 65 25 29 0d 05 f0 0b | 2a 7c 65 6e 64 69 66 0d |pe%)....|*|endif.|
|000012f0| 05 fa 13 20 20 20 20 cb | 20 20 20 20 20 20 20 20 |... .| |
|00001300| 20 20 0d 06 04 05 cb 0d | 06 0e 05 e1 0d 06 18 04 | ......|........|
|00001310| 0d 06 22 1f dd 20 a4 5f | 74 72 61 6e 73 66 65 72 |..".. ._|transfer|
|00001320| 5f 77 61 6e 74 61 63 6b | 28 6d 65 73 73 25 29 0d |_wantack|(mess%).|
|00001330| 06 2c 0e c8 8e 20 6d 65 | 73 73 25 20 ca 0d 06 36 |.,... me|ss% ...6|
|00001340| 16 20 20 c9 20 33 2c 37 | 2c 26 38 30 31 34 32 3a |. . 3,7|,&80142:|
|00001350| 20 3d b9 0d 06 40 0b 20 | 20 7f 3a 20 3d a3 0d 06 | =...@. | .: =...|
|00001360| 4a 05 cb 0d 06 54 06 3d | a3 0d 06 5e 04 0d 06 68 |J....T.=|...^...h|
|00001370| 28 dd 20 f2 65 76 65 6e | 74 5f 74 72 61 6e 73 66 |(. .even|t_transf|
|00001380| 65 72 61 63 6b 6e 6f 77 | 6c 65 64 67 65 28 62 6c |eracknow|ledge(bl|
|00001390| 6f 63 6b 25 29 0d 06 72 | 0c ea 20 64 75 6d 6d 79 |ock%)..r|.. dummy|
|000013a0| 25 0d 06 7c 12 c8 8e 20 | 62 6c 6f 63 6b 25 21 31 |%..|... |block%!1|
|000013b0| 36 20 ca 0d 06 86 21 2a | 7c 69 66 64 65 66 20 50 |6 ....!*||ifdef P|
|000013c0| 52 4f 43 74 72 61 6e 73 | 66 65 72 5f 73 61 76 65 |ROCtrans|fer_save|
|000013d0| 66 69 6c 65 0d 06 90 0a | 20 20 c9 20 33 3a 0d 06 |file....| . 3:..|
|000013e0| 9a 23 20 20 20 20 e7 20 | 62 6c 6f 63 6b 25 21 38 |.# . |block%!8|
|000013f0| 3d 5f 74 72 61 6e 73 66 | 65 72 5f 72 65 66 25 20 |=_transf|er_ref% |
|00001400| 8c 0d 06 a4 35 20 20 20 | 20 20 20 e7 20 a4 6f 73 |....5 | . .os|
|00001410| 5f 67 65 74 73 74 72 69 | 6e 67 28 62 6c 6f 63 6b |_getstri|ng(block|
|00001420| 25 2b 34 34 29 3d 22 3c | 57 69 6d 70 24 53 63 72 |%+44)="<|Wimp$Scr|
|00001430| 61 70 3e 22 20 8c 0d 06 | ae 2d 20 20 20 20 20 20 |ap>" ...|.- |
|00001440| 20 20 c8 99 20 22 4f 53 | 5f 43 4c 49 22 2c 22 52 | .. "OS|_CLI","R|
|00001450| 65 6d 6f 76 65 20 3c 57 | 69 6d 70 24 53 63 72 61 |emove <W|imp$Scra|
|00001460| 70 3e 22 0d 06 b8 0b 20 | 20 20 20 20 20 cd 0d 06 |p>".... | ...|
|00001470| c2 64 20 20 20 20 20 20 | 64 75 6d 6d 79 25 3d a4 |.d |dummy%=.|
|00001480| 77 69 6d 70 5f 6d 65 73 | 73 61 67 65 62 6f 78 28 |wimp_mes|sagebox(|
|00001490| a3 2c 22 45 72 72 6f 72 | 20 66 72 6f 6d 20 22 2b |.,"Error| from "+|
|000014a0| 5f 77 69 6d 70 5f 74 61 | 73 6b 24 2c 22 44 61 74 |_wimp_ta|sk$,"Dat|
|000014b0| 61 20 74 72 61 6e 73 66 | 65 72 20 66 61 69 6c 65 |a transf|er faile|
|000014c0| 64 3a 20 52 65 63 65 69 | 76 65 72 20 64 69 65 64 |d: Recei|ver died|
|000014d0| 22 29 0d 06 cc 09 20 20 | 20 20 cd 0d 06 d6 0b 2a |").... | .....*|
|000014e0| 7c 65 6e 64 69 66 0d 06 | e0 22 2a 7c 69 66 64 65 ||endif..|."*|ifde|
|000014f0| 66 20 50 52 4f 43 74 72 | 61 6e 73 66 65 72 5f 73 |f PROCtr|ansfer_s|
|00001500| 65 6e 64 62 6c 6f 63 6b | 0d 06 ea 0a 20 20 c9 20 |endblock|.... . |
|00001510| 37 3a 0d 06 f4 62 20 20 | 20 20 64 75 6d 6d 79 25 |7:...b | dummy%|
|00001520| 3d a4 77 69 6d 70 5f 6d | 65 73 73 61 67 65 62 6f |=.wimp_m|essagebo|
|00001530| 78 28 a3 2c 22 45 72 72 | 6f 72 20 66 72 6f 6d 20 |x(.,"Err|or from |
|00001540| 22 2b 5f 77 69 6d 70 5f | 74 61 73 6b 24 2c 22 44 |"+_wimp_|task$,"D|
|00001550| 61 74 61 20 74 72 61 6e | 73 66 65 72 20 66 61 69 |ata tran|sfer fai|
|00001560| 6c 65 64 3a 20 52 65 63 | 65 69 76 65 72 20 64 69 |led: Rec|eiver di|
|00001570| 65 64 22 29 0d 06 fe 0b | 2a 7c 65 6e 64 69 66 0d |ed")....|*|endif.|
|00001580| 07 08 23 2a 7c 69 66 64 | 65 66 20 50 52 4f 43 74 |..#*|ifd|ef PROCt|
|00001590| 72 61 6e 73 66 65 72 5f | 73 74 61 72 74 70 72 69 |ransfer_|startpri|
|000015a0| 6e 74 0d 07 12 0f 20 20 | c9 20 26 38 30 31 34 32 |nt.... |. &80142|
|000015b0| 3a 0d 07 1c 23 20 20 20 | 20 e7 20 5f 74 72 61 6e |:...# | . _tran|
|000015c0| 73 66 65 72 5f 72 65 66 | 25 3d 62 6c 6f 63 6b 25 |sfer_ref|%=block%|
|000015d0| 21 38 20 8c 0d 07 26 5b | 20 20 20 20 20 20 64 75 |!8 ...&[| du|
|000015e0| 6d 6d 79 25 3d a4 77 69 | 6d 70 5f 6d 65 73 73 61 |mmy%=.wi|mp_messa|
|000015f0| 67 65 62 6f 78 28 a3 2c | 22 45 72 72 6f 72 20 66 |gebox(.,|"Error f|
|00001600| 72 6f 6d 20 22 2b 5f 77 | 69 6d 70 5f 74 61 73 6b |rom "+_w|imp_task|
|00001610| 24 2c 22 50 72 69 6e 74 | 65 72 20 6d 61 6e 61 67 |$,"Print|er manag|
|00001620| 65 72 20 6e 6f 74 20 6c | 6f 61 64 65 64 22 29 0d |er not l|oaded").|
|00001630| 07 30 09 20 20 20 20 cd | 0d 07 3a 0b 2a 7c 65 6e |.0. .|..:.*|en|
|00001640| 64 69 66 0d 07 44 05 cb | 0d 07 4e 05 e1 0d 07 58 |dif..D..|..N....X|
|00001650| 04 0d 07 62 1d dd 20 f2 | 65 76 65 6e 74 5f 73 61 |...b.. .|event_sa|
|00001660| 76 65 64 72 61 67 28 62 | 6c 6f 63 6b 25 29 0d 07 |vedrag(b|lock%)..|
|00001670| 6c 0b ea 20 66 6c 61 67 | 25 0d 07 76 1b e7 20 5f |l.. flag|%..v.. _|
|00001680| 77 69 6d 70 5f 76 65 72 | 73 69 6f 6e 25 3e 3d 33 |wimp_ver|sion%>=3|
|00001690| 30 30 20 8c 0d 07 80 23 | 20 20 c8 99 20 22 4f 53 |00 ....#| .. "OS|
|000016a0| 5f 42 79 74 65 22 2c 31 | 36 31 2c 32 38 20 b8 20 |_Byte",1|61,28 . |
|000016b0| 2c 2c 66 6c 61 67 25 0d | 07 8a 1d 20 20 66 6c 61 |,,flag%.|... fla|
|000016c0| 67 25 3d 28 28 66 6c 61 | 67 25 20 80 20 32 29 20 |g%=((fla|g% . 2) |
|000016d0| 3d 20 32 29 0d 07 94 05 | cc 0d 07 9e 0d 20 20 66 |= 2)....|..... f|
|000016e0| 6c 61 67 25 3d a3 0d 07 | a8 05 cd 0d 07 b2 0d e7 |lag%=...|........|
|000016f0| 20 66 6c 61 67 25 20 8c | 0d 07 bc 1b 20 20 c8 99 | flag% .|.... ..|
|00001700| 20 22 44 72 61 67 41 53 | 70 72 69 74 65 5f 53 74 | "DragAS|prite_St|
|00001710| 6f 70 22 0d 07 c6 05 cc | 0d 07 d0 1b 20 20 c8 99 |op".....|.... ..|
|00001720| 20 22 57 69 6d 70 5f 44 | 72 61 67 42 6f 78 22 2c | "Wimp_D|ragBox",|
|00001730| 2c 2d 31 0d 07 da 05 cd | 0d 07 e4 19 5f 74 72 61 |,-1.....|...._tra|
|00001740| 6e 73 66 65 72 5f 64 72 | 61 67 67 69 6e 67 25 3d |nsfer_dr|agging%=|
|00001750| a3 0d 07 ee 1c c8 95 20 | a7 5f 74 72 61 6e 73 66 |....... |._transf|
|00001760| 65 72 5f 66 69 6c 65 24 | 2c 22 2e 22 29 0d 07 f8 |er_file$|,".")...|
|00001770| 3f 20 20 5f 74 72 61 6e | 73 66 65 72 5f 66 69 6c |? _tran|sfer_fil|
|00001780| 65 24 3d c1 5f 74 72 61 | 6e 73 66 65 72 5f 66 69 |e$=._tra|nsfer_fi|
|00001790| 6c 65 24 2c a7 5f 74 72 | 61 6e 73 66 65 72 5f 66 |le$,._tr|ansfer_f|
|000017a0| 69 6c 65 24 2c 22 2e 22 | 29 2b 31 29 0d 08 02 05 |ile$,"."|)+1)....|
|000017b0| ce 0d 08 0c 2b c8 99 20 | 22 57 69 6d 70 5f 47 65 |....+.. |"Wimp_Ge|
|000017c0| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 5f |tPointer|Info",,_|
|000017d0| 77 69 6d 70 5f 62 75 66 | 66 65 72 25 0d 08 16 47 |wimp_buf|fer%...G|
|000017e0| 5f 77 69 6d 70 5f 62 75 | 66 66 65 72 25 21 32 30 |_wimp_bu|ffer%!20|
|000017f0| 3d 5f 77 69 6d 70 5f 62 | 75 66 66 65 72 25 21 31 |=_wimp_b|uffer%!1|
|00001800| 32 3a 5f 77 69 6d 70 5f | 62 75 66 66 65 72 25 21 |2:_wimp_|buffer%!|
|00001810| 32 34 3d 5f 77 69 6d 70 | 5f 62 75 66 66 65 72 25 |24=_wimp|_buffer%|
|00001820| 21 31 36 0d 08 20 44 5f | 77 69 6d 70 5f 62 75 66 |!16.. D_|wimp_buf|
|00001830| 66 65 72 25 21 32 38 3d | 21 5f 77 69 6d 70 5f 62 |fer%!28=|!_wimp_b|
|00001840| 75 66 66 65 72 25 3a 5f | 77 69 6d 70 5f 62 75 66 |uffer%:_|wimp_buf|
|00001850| 66 65 72 25 21 33 32 3d | 5f 77 69 6d 70 5f 62 75 |fer%!32=|_wimp_bu|
|00001860| 66 66 65 72 25 21 34 0d | 08 2a 24 5f 77 69 6d 70 |ffer%!4.|.*$_wimp|
|00001870| 5f 62 75 66 66 65 72 25 | 21 33 36 3d 5f 74 72 61 |_buffer%|!36=_tra|
|00001880| 6e 73 66 65 72 5f 73 69 | 7a 65 25 0d 08 34 24 5f |nsfer_si|ze%..4$_|
|00001890| 77 69 6d 70 5f 62 75 66 | 66 65 72 25 21 34 30 3d |wimp_buf|fer%!40=|
|000018a0| 5f 74 72 61 6e 73 66 65 | 72 5f 74 79 70 65 25 0d |_transfe|r_type%.|
|000018b0| 08 3e 33 f2 6f 73 5f 70 | 75 74 73 74 72 69 6e 67 |.>3.os_p|utstring|
|000018c0| 28 5f 77 69 6d 70 5f 62 | 75 66 66 65 72 25 2b 34 |(_wimp_b|uffer%+4|
|000018d0| 34 2c 5f 74 72 61 6e 73 | 66 65 72 5f 66 69 6c 65 |4,_trans|fer_file|
|000018e0| 24 29 0d 08 48 29 5f 77 | 69 6d 70 5f 62 75 66 66 |$)..H)_w|imp_buff|
|000018f0| 65 72 25 21 31 32 3d 30 | 3a 5f 77 69 6d 70 5f 62 |er%!12=0|:_wimp_b|
|00001900| 75 66 66 65 72 25 21 31 | 36 3d 31 0d 08 52 34 21 |uffer%!1|6=1..R4!|
|00001910| 5f 77 69 6d 70 5f 62 75 | 66 66 65 72 25 3d 34 34 |_wimp_bu|ffer%=44|
|00001920| 2b 34 2a 28 28 a9 28 5f | 74 72 61 6e 73 66 65 72 |+4*((.(_|transfer|
|00001930| 5f 66 69 6c 65 24 29 2b | 34 29 20 81 20 34 29 0d |_file$)+|4) . 4).|
|00001940| 08 5c 4c c8 99 20 22 57 | 69 6d 70 5f 53 65 6e 64 |.\L.. "W|imp_Send|
|00001950| 4d 65 73 73 61 67 65 22 | 2c 31 38 2c 5f 77 69 6d |Message"|,18,_wim|
|00001960| 70 5f 62 75 66 66 65 72 | 25 2c 5f 77 69 6d 70 5f |p_buffer|%,_wimp_|
|00001970| 62 75 66 66 65 72 25 21 | 32 30 2c 5f 77 69 6d 70 |buffer%!|20,_wimp|
|00001980| 5f 62 75 66 66 65 72 25 | 21 32 34 0d 08 66 22 5f |_buffer%|!24..f"_|
|00001990| 74 72 61 6e 73 66 65 72 | 5f 72 65 66 25 3d 5f 77 |transfer|_ref%=_w|
|000019a0| 69 6d 70 5f 62 75 66 66 | 65 72 25 21 38 0d 08 70 |imp_buff|er%!8..p|
|000019b0| 05 e1 0d 08 7a 0a 2a 7c | 63 6f 70 79 0d 08 84 0e |....z.*||copy....|
|000019c0| 2a 7c 64 6f 77 6e 64 61 | 74 65 0d 08 8e 1c 2a 7c |*|downda|te....*||
|000019d0| 73 74 6f 70 20 50 52 4f | 43 74 72 61 6e 73 66 65 |stop PRO|Ctransfe|
|000019e0| 72 5f 69 6e 69 74 0d 08 | 98 04 0d 08 a2 22 2a 7c |r_init..|....."*||
|000019f0| 73 74 61 72 74 20 50 52 | 4f 43 74 72 61 6e 73 66 |start PR|OCtransf|
|00001a00| 65 72 5f 73 74 61 72 74 | 64 72 61 67 0d 08 ac 53 |er_start|drag...S|
|00001a10| 2a 7c 21 50 52 4f 43 74 | 72 61 6e 73 66 65 72 5f |*|!PROCt|ransfer_|
|00001a20| 73 74 61 72 74 64 72 61 | 67 28 20 66 69 6c 65 5f |startdra|g( file_|
|00001a30| 6e 61 6d 65 20 2c 20 66 | 69 6c 65 5f 74 79 70 65 |name , f|ile_type|
|00001a40| 20 2c 20 66 69 09 6c 65 | 5f 73 69 7a 65 20 2c 20 | , fi.le|_size , |
|00001a50| 77 69 6e 64 6f 77 20 2c | 20 69 63 6f 6e 20 29 0d |window ,| icon ).|
|00001a60| 08 b6 07 2a 7c 21 0d 08 | c0 52 2a 7c 21 54 68 69 |...*|!..|.R*|!Thi|
|00001a70| 73 20 70 72 6f 63 65 64 | 75 72 65 20 69 73 20 75 |s proced|ure is u|
|00001a80| 73 65 64 20 74 6f 20 73 | 74 61 72 74 20 61 20 64 |sed to s|tart a d|
|00001a90| 72 61 67 20 66 72 6f 6d | 20 61 20 73 61 76 65 20 |rag from| a save |
|00001aa0| 62 6f 78 2e 20 49 74 20 | 73 68 6f 75 6c 64 20 62 |box. It |should b|
|00001ab0| 65 20 63 61 6c 6c 65 64 | 0d 08 ca 4e 2a 7c 21 77 |e called|...N*|!w|
|00001ac0| 68 65 6e 20 61 20 64 72 | 61 67 20 65 76 65 6e 74 |hen a dr|ag event|
|00001ad0| 20 69 73 20 64 65 74 65 | 63 74 65 64 20 66 6f 72 | is dete|cted for|
|00001ae0| 20 74 68 65 20 66 69 6c | 65 20 69 63 6f 6e 20 69 | the fil|e icon i|
|00001af0| 6e 20 61 20 73 61 76 65 | 20 62 6f 78 2c 20 77 69 |n a save| box, wi|
|00001b00| 74 68 20 74 68 65 0d 08 | d4 50 2a 7c 21 70 72 6f |th the..|.P*|!pro|
|00001b10| 70 6f 73 65 64 20 66 69 | 6c 65 6e 61 6d 65 20 28 |posed fi|lename (|
|00001b20| 66 72 6f 6d 20 74 68 65 | 20 73 61 76 65 20 62 6f |from the| save bo|
|00001b30| 78 29 2c 20 66 69 6c 65 | 74 79 70 65 20 61 6e 64 |x), file|type and|
|00001b40| 20 61 70 70 72 6f 78 69 | 6d 61 74 65 20 66 69 6c | approxi|mate fil|
|00001b50| 65 20 73 69 7a 65 0d 08 | de 52 2a 7c 21 67 69 76 |e size..|.R*|!giv|
|00001b60| 65 6e 2c 20 61 6c 6f 6e | 67 20 77 69 74 68 20 74 |en, alon|g with t|
|00001b70| 68 65 20 77 69 6e 64 6f | 77 20 61 6e 64 20 69 63 |he windo|w and ic|
|00001b80| 6f 6e 20 6e 75 6d 62 65 | 72 73 20 77 68 65 72 65 |on numbe|rs where|
|00001b90| 20 74 68 65 20 64 72 61 | 67 20 65 76 65 6e 74 20 | the dra|g event |
|00001ba0| 73 74 61 72 74 65 64 2e | 0d 08 e8 07 2a 7c 21 0d |started.|....*|!.|
|00001bb0| 08 f2 50 2a 7c 21 59 6f | 75 72 20 70 72 6f 67 72 |..P*|!Yo|ur progr|
|00001bc0| 61 6d 20 73 68 6f 75 6c | 64 20 61 6c 73 6f 20 63 |am shoul|d also c|
|00001bd0| 6f 6e 74 61 69 6e 20 74 | 77 6f 20 72 6f 75 74 69 |ontain t|wo routi|
|00001be0| 6e 65 73 2c 20 77 68 69 | 63 68 20 77 69 6c 6c 20 |nes, whi|ch will |
|00001bf0| 62 65 20 63 61 6c 6c 65 | 64 20 74 6f 20 64 6f 0d |be calle|d to do.|
|00001c00| 08 fc 30 2a 7c 21 74 68 | 65 20 61 63 74 75 61 6c |..0*|!th|e actual|
|00001c10| 20 73 61 76 69 6e 67 2e | 20 54 68 65 20 66 69 72 | saving.| The fir|
|00001c20| 73 74 20 6f 66 20 74 68 | 65 73 65 20 69 73 3a 0d |st of th|ese is:.|
|00001c30| 09 06 07 2a 7c 21 0d 09 | 10 43 2a 7c 21 20 20 20 |...*|!..|.C*|! |
|00001c40| 20 50 52 4f 43 74 72 61 | 6e 73 66 65 72 5f 73 61 | PROCtra|nsfer_sa|
|00001c50| 76 65 66 69 6c 65 28 20 | 66 69 6c 65 5f 6e 61 6d |vefile( |file_nam|
|00001c60| 65 20 2c 20 66 69 6c 65 | 5f 74 79 70 65 20 2c 20 |e , file|_type , |
|00001c70| 69 73 5f 73 61 66 65 20 | 29 0d 09 1a 07 2a 7c 21 |is_safe |)....*|!|
|00001c80| 0d 09 24 4f 2a 7c 21 54 | 68 69 73 20 70 72 6f 63 |..$O*|!T|his proc|
|00001c90| 65 64 75 72 65 20 73 68 | 6f 75 6c 64 20 73 61 76 |edure sh|ould sav|
|00001ca0| 65 20 74 68 65 20 64 61 | 74 61 20 74 6f 20 74 68 |e the da|ta to th|
|00001cb0| 65 20 73 70 65 63 69 66 | 69 65 64 20 66 69 6c 65 |e specif|ied file|
|00001cc0| 2c 20 67 69 76 69 6e 67 | 20 69 74 20 74 68 65 0d |, giving| it the.|
|00001cd0| 09 2e 51 2a 7c 21 61 70 | 70 72 6f 70 72 69 61 74 |..Q*|!ap|propriat|
|00001ce0| 65 20 74 79 70 65 20 28 | 74 68 65 20 74 79 70 65 |e type (|the type|
|00001cf0| 20 69 73 20 61 6c 73 6f | 20 75 73 65 66 75 6c 20 | is also| useful |
|00001d00| 69 66 20 79 6f 75 72 20 | 70 72 6f 67 72 61 6d 20 |if your |program |
|00001d10| 63 61 6e 20 73 61 76 65 | 20 73 65 76 65 72 61 6c |can save| several|
|00001d20| 0d 09 38 4f 2a 7c 21 64 | 69 66 66 65 72 65 6e 74 |..8O*|!d|ifferent|
|00001d30| 20 74 79 70 65 73 20 6f | 66 20 66 69 6c 65 29 2e | types o|f file).|
|00001d40| 20 54 68 65 20 62 6f 6f | 6c 65 61 6e 20 69 73 5f | The boo|lean is_|
|00001d50| 73 61 66 65 20 69 6e 64 | 69 63 61 74 65 73 20 77 |safe ind|icates w|
|00001d60| 68 65 74 68 65 72 20 74 | 68 65 20 66 69 6c 65 0d |hether t|he file.|
|00001d70| 09 42 37 2a 7c 21 69 73 | 20 27 73 61 66 65 27 20 |.B7*|!is| 'safe' |
|00001d80| 6f 72 20 6e 6f 74 2e 20 | 54 68 65 20 6f 74 68 65 |or not. |The othe|
|00001d90| 72 20 63 61 6c 6c 62 61 | 63 6b 20 72 6f 75 74 69 |r callba|ck routi|
|00001da0| 6e 65 20 69 73 3a 0d 09 | 4c 07 2a 7c 21 0d 09 56 |ne is:..|L.*|!..V|
|00001db0| 44 2a 7c 21 20 20 20 20 | 46 4e 74 72 61 6e 73 66 |D*|! |FNtransf|
|00001dc0| 65 72 5f 73 65 6e 64 62 | 6c 6f 63 6b 28 20 52 45 |er_sendb|lock( RE|
|00001dd0| 54 55 52 4e 20 70 6f 69 | 6e 74 65 72 20 2c 20 73 |TURN poi|nter , s|
|00001de0| 69 7a 65 20 2c 20 66 69 | 6c 65 5f 74 79 70 65 20 |ize , fi|le_type |
|00001df0| 29 0d 09 60 07 2a 7c 21 | 0d 09 6a 53 2a 7c 21 54 |)..`.*|!|..jS*|!T|
|00001e00| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 69 73 20 |his func|tion is |
|00001e10| 63 61 6c 6c 65 64 20 74 | 6f 20 73 65 6e 64 20 61 |called t|o send a|
|00001e20| 20 62 6c 6f 63 6b 20 64 | 61 74 61 20 76 69 61 20 | block d|ata via |
|00001e30| 61 20 52 41 4d 20 74 72 | 61 6e 73 66 65 72 2e 20 |a RAM tr|ansfer. |
|00001e40| 54 68 65 20 70 72 6f 67 | 72 61 6d 0d 09 74 52 2a |The prog|ram..tR*|
|00001e50| 7c 21 73 68 6f 75 6c 64 | 20 73 65 74 20 74 68 65 ||!should| set the|
|00001e60| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 70 6f 69 6e | pointer| to poin|
|00001e70| 74 20 74 6f 20 74 68 65 | 20 6e 65 78 74 20 62 6c |t to the| next bl|
|00001e80| 6f 63 6b 20 6f 66 20 64 | 61 74 61 20 74 6f 20 62 |ock of d|ata to b|
|00001e90| 65 20 73 65 6e 74 20 28 | 75 73 69 6e 67 0d 09 7e |e sent (|using..~|
|00001ea0| 50 2a 7c 21 74 68 65 20 | 66 69 6c 65 74 79 70 65 |P*|!the |filetype|
|00001eb0| 20 74 6f 20 64 65 74 65 | 72 6d 69 6e 65 20 77 68 | to dete|rmine wh|
|00001ec0| 61 74 20 64 61 74 61 20 | 74 6f 20 73 65 6e 64 20 |at data |to send |
|00001ed0| 69 66 20 6e 65 63 65 73 | 73 61 72 79 29 2c 20 61 |if neces|sary), a|
|00001ee0| 6e 64 20 72 65 74 75 72 | 6e 20 74 68 65 0d 09 88 |nd retur|n the...|
|00001ef0| 51 2a 7c 21 61 6d 6f 75 | 6e 74 20 6f 66 20 64 61 |Q*|!amou|nt of da|
|00001f00| 74 61 20 74 6f 20 73 65 | 6e 64 20 28 75 70 20 74 |ta to se|nd (up t|
|00001f10| 6f 20 61 20 6d 61 78 69 | 6d 75 6d 20 67 69 76 65 |o a maxi|mum give|
|00001f20| 6e 20 62 79 20 74 68 65 | 20 73 69 7a 65 20 70 61 |n by the| size pa|
|00001f30| 72 61 6d 65 74 65 72 29 | 2e 20 54 68 69 73 0d 09 |rameter)|. This..|
|00001f40| 92 52 2a 7c 21 69 73 20 | 72 65 70 65 61 74 65 64 |.R*|!is |repeated|
|00001f50| 20 75 6e 74 69 6c 20 6c | 65 73 73 20 74 68 61 6e | until l|ess than|
|00001f60| 20 74 68 65 20 6d 61 78 | 69 6d 75 6d 20 61 6d 6f | the max|imum amo|
|00001f70| 75 6e 74 20 6f 66 20 64 | 61 74 61 20 69 73 20 61 |unt of d|ata is a|
|00001f80| 73 6b 65 64 20 74 6f 20 | 62 65 20 73 65 6e 74 2e |sked to |be sent.|
|00001f90| 0d 09 9c 4f 2a 7c 21 49 | 66 20 61 20 70 72 6f 67 |...O*|!I|f a prog|
|00001fa0| 72 61 6d 20 64 6f 65 73 | 20 6e 6f 74 20 77 69 73 |ram does| not wis|
|00001fb0| 68 20 74 6f 20 73 75 70 | 70 6f 72 74 20 52 41 4d |h to sup|port RAM|
|00001fc0| 20 74 72 61 6e 73 66 65 | 72 2c 20 69 74 20 73 68 | transfe|r, it sh|
|00001fd0| 6f 75 6c 64 20 6e 6f 74 | 20 64 65 66 69 6e 65 0d |ould not| define.|
|00001fe0| 09 a6 50 2a 7c 21 74 68 | 69 73 20 72 6f 75 74 69 |..P*|!th|is routi|
|00001ff0| 6e 65 2e 20 54 6f 20 73 | 75 70 70 6f 72 74 20 52 |ne. To s|upport R|
|00002000| 41 4d 20 74 72 61 6e 73 | 66 65 72 20 66 6f 72 20 |AM trans|fer for |
|00002010| 73 6f 6d 65 20 66 69 6c | 65 20 74 79 70 65 73 20 |some fil|e types |
|00002020| 61 6e 64 20 6e 6f 74 20 | 6f 74 68 65 72 73 2c 0d |and not |others,.|
|00002030| 09 b0 3f 2a 7c 21 6d 61 | 6b 65 20 74 68 69 73 20 |..?*|!ma|ke this |
|00002040| 72 6f 75 74 69 6e 65 20 | 72 65 74 75 72 6e 20 2d |routine |return -|
|00002050| 31 20 66 6f 72 20 74 68 | 6f 73 65 20 79 6f 75 20 |1 for th|ose you |
|00002060| 64 6f 6e 27 74 20 73 75 | 70 70 6f 72 74 2e 0d 09 |don't su|pport...|
|00002070| ba 37 dd 20 f2 74 72 61 | 6e 73 66 65 72 5f 73 74 |.7. .tra|nsfer_st|
|00002080| 61 72 74 64 72 61 67 28 | 66 69 6c 65 24 2c 74 79 |artdrag(|file$,ty|
|00002090| 70 65 25 2c 73 69 7a 65 | 25 2c 77 69 6e 25 2c 69 |pe%,size|%,win%,i|
|000020a0| 63 6f 6e 25 29 0d 09 c4 | 39 ea 20 66 6c 61 67 25 |con%)...|9. flag%|
|000020b0| 2c 78 6d 69 6e 25 2c 78 | 6d 61 78 25 2c 79 6d 69 |,xmin%,x|max%,ymi|
|000020c0| 6e 25 2c 79 6d 61 78 25 | 2c 78 73 69 7a 65 25 2c |n%,ymax%|,xsize%,|
|000020d0| 79 73 69 7a 65 25 2c 73 | 70 72 69 74 65 24 0d 09 |ysize%,s|prite$..|
|000020e0| ce 24 21 5f 77 69 6d 70 | 5f 62 75 66 66 65 72 25 |.$!_wimp|_buffer%|
|000020f0| 3d a4 77 69 6e 5f 68 61 | 6e 64 6c 65 28 77 69 6e |=.win_ha|ndle(win|
|00002100| 25 29 0d 09 d8 2a c8 99 | 20 22 57 69 6d 70 5f 47 |%)...*..| "Wimp_G|
|00002110| 65 74 57 69 6e 64 6f 77 | 49 6e 66 6f 22 2c 2c 5f |etWindow|Info",,_|
|00002120| 77 69 6d 70 5f 62 75 66 | 66 65 72 25 0d 09 e2 49 |wimp_buf|fer%...I|
|00002130| 78 6d 69 6e 25 3d 5f 77 | 69 6d 70 5f 62 75 66 66 |xmin%=_w|imp_buff|
|00002140| 65 72 25 21 34 2b 21 28 | 5f 77 69 6d 70 5f 62 75 |er%!4+!(|_wimp_bu|
|00002150| 66 66 65 72 25 2b 39 32 | 2b 33 32 2a 69 63 6f 6e |ffer%+92|+32*icon|
|00002160| 25 2b 30 29 2d 5f 77 69 | 6d 70 5f 62 75 66 66 65 |%+0)-_wi|mp_buffe|
|00002170| 72 25 21 32 30 0d 09 ec | 49 78 6d 61 78 25 3d 5f |r%!20...|Ixmax%=_|
|00002180| 77 69 6d 70 5f 62 75 66 | 66 65 72 25 21 34 2b 21 |wimp_buf|fer%!4+!|
|00002190| 28 5f 77 69 6d 70 5f 62 | 75 66 66 65 72 25 2b 39 |(_wimp_b|uffer%+9|
|000021a0| 32 2b 33 32 2a 69 63 6f | 6e 25 2b 38 29 2d 5f 77 |2+32*ico|n%+8)-_w|
|000021b0| 69 6d 70 5f 62 75 66 66 | 65 72 25 21 32 30 0d 09 |imp_buff|er%!20..|
|000021c0| f6 4c 79 6d 69 6e 25 3d | 21 28 5f 77 69 6d 70 5f |.Lymin%=|!(_wimp_|
|000021d0| 62 75 66 66 65 72 25 2b | 39 32 2b 33 32 2a 69 63 |buffer%+|92+32*ic|
|000021e0| 6f 6e 25 2b 34 29 2b 28 | 5f 77 69 6d 70 5f 62 75 |on%+4)+(|_wimp_bu|
|000021f0| 66 66 65 72 25 21 31 36 | 2d 5f 77 69 6d 70 5f 62 |ffer%!16|-_wimp_b|
|00002200| 75 66 66 65 72 25 21 32 | 34 29 0d 0a 00 4d 79 6d |uffer%!2|4)...Mym|
|00002210| 61 78 25 3d 21 28 5f 77 | 69 6d 70 5f 62 75 66 66 |ax%=!(_w|imp_buff|
|00002220| 65 72 25 2b 39 32 2b 33 | 32 2a 69 63 6f 6e 25 2b |er%+92+3|2*icon%+|
|00002230| 31 32 29 2b 28 5f 77 69 | 6d 70 5f 62 75 66 66 65 |12)+(_wi|mp_buffe|
|00002240| 72 25 21 31 36 2d 5f 77 | 69 6d 70 5f 62 75 66 66 |r%!16-_w|imp_buff|
|00002250| 65 72 25 21 32 34 29 0d | 0a 32 21 f2 6f 73 5f 73 |er%!24).|.2!.os_s|
|00002260| 63 72 65 65 6e 73 69 7a | 65 28 78 73 69 7a 65 25 |creensiz|e(xsize%|
|00002270| 2c 79 73 69 7a 65 25 29 | 0d 0a 3c 1b e7 20 5f 77 |,ysize%)|..<.. _w|
|00002280| 69 6d 70 5f 76 65 72 73 | 69 6f 6e 25 3e 3d 33 30 |imp_vers|ion%>=30|
|00002290| 30 20 8c 0d 0a 46 23 20 | 20 c8 99 20 22 4f 53 5f |0 ...F# | .. "OS_|
|000022a0| 42 79 74 65 22 2c 31 36 | 31 2c 32 38 20 b8 20 2c |Byte",16|1,28 . ,|
|000022b0| 2c 66 6c 61 67 25 0d 0a | 50 1d 20 20 66 6c 61 67 |,flag%..|P. flag|
|000022c0| 25 3d 28 28 66 6c 61 67 | 25 20 80 20 32 29 20 3d |%=((flag|% . 2) =|
|000022d0| 20 32 29 0d 0a 5a 05 cc | 0d 0a 64 0d 20 20 66 6c | 2)..Z..|..d. fl|
|000022e0| 61 67 25 3d a3 0d 0a 6e | 05 cd 0d 0a 78 0d e7 20 |ag%=...n|....x.. |
|000022f0| 66 6c 61 67 25 20 8c 0d | 0a 82 1b 20 20 5f 77 69 |flag% ..|... _wi|
|00002300| 6d 70 5f 62 75 66 66 65 | 72 25 21 30 3d 78 6d 69 |mp_buffe|r%!0=xmi|
|00002310| 6e 25 0d 0a 8c 1b 20 20 | 5f 77 69 6d 70 5f 62 75 |n%.... |_wimp_bu|
|00002320| 66 66 65 72 25 21 34 3d | 79 6d 69 6e 25 0d 0a 96 |ffer%!4=|ymin%...|
|00002330| 1b 20 20 5f 77 69 6d 70 | 5f 62 75 66 66 65 72 25 |. _wimp|_buffer%|
|00002340| 21 38 3d 78 6d 61 78 25 | 0d 0a a0 1c 20 20 5f 77 |!8=xmax%|.... _w|
|00002350| 69 6d 70 5f 62 75 66 66 | 65 72 25 21 31 32 3d 79 |imp_buff|er%!12=y|
|00002360| 6d 61 78 25 0d 0a aa 48 | 20 20 73 70 72 69 74 65 |max%...H| sprite|
|00002370| 24 3d 22 66 69 6c 65 5f | 22 3a e7 20 74 79 70 65 |$="file_|":. type|
|00002380| 25 3c 26 31 30 30 20 73 | 70 72 69 74 65 24 2b 3d |%<&100 s|prite$+=|
|00002390| 22 30 22 3a e7 20 74 79 | 70 65 25 3c 26 31 30 20 |"0":. ty|pe%<&10 |
|000023a0| 73 70 72 69 74 65 24 2b | 3d 22 30 22 0d 0a b4 18 |sprite$+|="0"....|
|000023b0| 20 20 73 70 72 69 74 65 | 24 2b 3d c3 7e 28 74 79 | sprite|$+=.~(ty|
|000023c0| 70 65 25 29 0d 0a be 40 | 20 20 c8 99 20 22 44 72 |pe%)...@| .. "Dr|
|000023d0| 61 67 41 53 70 72 69 74 | 65 5f 53 74 61 72 74 22 |agASprit|e_Start"|
|000023e0| 2c 25 31 31 30 30 30 31 | 30 31 2c 31 2c 73 70 72 |,%110001|01,1,spr|
|000023f0| 69 74 65 24 2c 5f 77 69 | 6d 70 5f 62 75 66 66 65 |ite$,_wi|mp_buffe|
|00002400| 72 25 2c 30 0d 0a c8 05 | cc 0d 0a d2 16 20 20 21 |r%,0....|..... !|
|00002410| 5f 77 69 6d 70 5f 62 75 | 66 66 65 72 25 3d 30 0d |_wimp_bu|ffer%=0.|
|00002420| 0a dc 17 20 20 5f 77 69 | 6d 70 5f 62 75 66 66 65 |... _wi|mp_buffe|
|00002430| 72 25 21 34 3d 35 0d 0a | e6 32 20 20 5f 77 69 6d |r%!4=5..|.2 _wim|
|00002440| 70 5f 62 75 66 66 65 72 | 25 21 38 3d 78 6d 69 6e |p_buffer|%!8=xmin|
|00002450| 25 3a 5f 77 69 6d 70 5f | 62 75 66 66 65 72 25 21 |%:_wimp_|buffer%!|
|00002460| 31 32 3d 79 6d 69 6e 25 | 0d 0a f0 33 20 20 5f 77 |12=ymin%|...3 _w|
|00002470| 69 6d 70 5f 62 75 66 66 | 65 72 25 21 31 36 3d 78 |imp_buff|er%!16=x|
|00002480| 6d 61 78 25 3a 5f 77 69 | 6d 70 5f 62 75 66 66 65 |max%:_wi|mp_buffe|
|00002490| 72 25 21 32 30 3d 79 6d | 61 78 25 0d 0a fa 2b 20 |r%!20=ym|ax%...+ |
|000024a0| 20 5f 77 69 6d 70 5f 62 | 75 66 66 65 72 25 21 32 | _wimp_b|uffer%!2|
|000024b0| 34 3d 30 3a 5f 77 69 6d | 70 5f 62 75 66 66 65 72 |4=0:_wim|p_buffer|
|000024c0| 25 21 32 38 3d 30 0d 0b | 04 35 20 20 5f 77 69 6d |%!28=0..|.5 _wim|
|000024d0| 70 5f 62 75 66 66 65 72 | 25 21 33 32 3d 78 73 69 |p_buffer|%!32=xsi|
|000024e0| 7a 65 25 3a 5f 77 69 6d | 70 5f 62 75 66 66 65 72 |ze%:_wim|p_buffer|
|000024f0| 25 21 33 36 3d 79 73 69 | 7a 65 25 0d 0b 0e 26 20 |%!36=ysi|ze%...& |
|00002500| 20 c8 99 20 22 57 69 6d | 70 5f 44 72 61 67 42 6f | .. "Wim|p_DragBo|
|00002510| 78 22 2c 2c 5f 77 69 6d | 70 5f 62 75 66 66 65 72 |x",,_wim|p_buffer|
|00002520| 25 0d 0b 18 05 cd 0d 0b | 22 19 5f 74 72 61 6e 73 |%.......|"._trans|
|00002530| 66 65 72 5f 74 79 70 65 | 25 3d 74 79 70 65 25 0d |fer_type|%=type%.|
|00002540| 0b 2c 19 5f 74 72 61 6e | 73 66 65 72 5f 66 69 6c |.,._tran|sfer_fil|
|00002550| 65 24 3d 66 69 6c 65 24 | 0d 0b 36 19 5f 74 72 61 |e$=file$|..6._tra|
|00002560| 6e 73 66 65 72 5f 73 69 | 7a 65 25 3d 73 69 7a 65 |nsfer_si|ze%=size|
|00002570| 25 0d 0b 40 19 5f 74 72 | 61 6e 73 66 65 72 5f 64 |%..@._tr|ansfer_d|
|00002580| 72 61 67 67 69 6e 67 25 | 3d b9 0d 0b 4a 05 e1 0d |ragging%|=...J...|
|00002590| 0b 54 21 2a 7c 73 74 6f | 70 20 50 52 4f 43 74 72 |.T!*|sto|p PROCtr|
|000025a0| 61 6e 73 66 65 72 5f 73 | 74 61 72 74 64 72 61 67 |ansfer_s|tartdrag|
|000025b0| 0d 0b 5e 04 0d 0b 68 23 | 2a 7c 73 74 61 72 74 20 |..^...h#|*|start |
|000025c0| 50 52 4f 43 74 72 61 6e | 73 66 65 72 5f 73 74 61 |PROCtran|sfer_sta|
|000025d0| 72 74 70 72 69 6e 74 0d | 0b 72 40 2a 7c 21 50 52 |rtprint.|.r@*|!PR|
|000025e0| 4f 43 74 72 61 6e 73 66 | 65 72 5f 73 74 61 72 74 |OCtransf|er_start|
|000025f0| 70 72 69 6e 74 28 20 6a | 6f 62 5f 6e 61 6d 65 20 |print( j|ob_name |
|00002600| 2c 20 6a 6f 62 5f 74 79 | 70 65 20 2c 20 6a 6f 62 |, job_ty|pe , job|
|00002610| 5f 73 69 7a 65 20 29 0d | 0b 7c 07 2a 7c 21 0d 0b |_size ).|.|.*|!..|
|00002620| 86 45 2a 7c 21 53 74 61 | 72 74 73 20 61 20 64 69 |.E*|!Sta|rts a di|
|00002630| 61 6c 6f 67 75 65 20 77 | 69 74 68 20 74 68 65 20 |alogue w|ith the |
|00002640| 70 72 69 6e 74 65 72 20 | 6d 61 6e 61 67 65 72 2c |printer |manager,|
|00002650| 20 21 50 72 69 6e 74 65 | 72 73 2e 20 49 74 20 61 | !Printe|rs. It a|
|00002660| 73 6b 73 0d 0b 90 42 2a | 7c 21 74 6f 20 70 72 69 |sks...B*||!to pri|
|00002670| 6e 74 20 74 68 65 20 73 | 70 65 63 69 66 69 65 64 |nt the s|pecified|
|00002680| 20 6a 6f 62 2c 20 61 6e | 64 20 6e 65 67 6f 74 69 | job, an|d negoti|
|00002690| 61 74 65 73 20 77 69 74 | 68 20 74 68 65 20 70 72 |ates wit|h the pr|
|000026a0| 69 6e 74 65 72 0d 0b 9a | 45 2a 7c 21 6d 61 6e 61 |inter...|E*|!mana|
|000026b0| 67 65 72 20 74 6f 20 61 | 63 68 69 65 76 65 20 74 |ger to a|chieve t|
|000026c0| 68 69 73 2e 20 54 68 65 | 20 6a 6f 62 20 74 79 70 |his. The| job typ|
|000026d0| 65 20 69 73 20 61 20 73 | 74 61 6e 64 61 72 64 20 |e is a s|tandard |
|000026e0| 66 69 6c 65 20 74 79 70 | 65 2e 0d 0b a4 43 2a 7c |file typ|e....C*||
|000026f0| 21 49 66 20 69 74 20 61 | 73 6b 65 64 20 74 6f 20 |!If it a|sked to |
|00002700| 71 75 65 75 65 20 74 68 | 65 20 66 69 6c 65 2c 20 |queue th|e file, |
|00002710| 69 74 20 77 69 6c 6c 20 | 75 73 65 20 74 68 65 20 |it will |use the |
|00002720| 75 73 65 72 20 72 6f 75 | 74 69 6e 65 2c 0d 0b ae |user rou|tine,...|
|00002730| 3d 2a 7c 21 50 52 4f 43 | 74 72 61 6e 73 66 65 72 |=*|!PROC|transfer|
|00002740| 5f 73 61 76 65 66 69 6c | 65 20 74 6f 20 64 6f 20 |_savefil|e to do |
|00002750| 73 6f 2e 20 54 68 69 73 | 20 69 73 20 64 65 74 61 |so. This| is deta|
|00002760| 69 6c 65 64 20 75 6e 64 | 65 72 0d 0b b8 1e 2a 7c |iled und|er....*||
|00002770| 21 50 52 4f 43 74 72 61 | 6e 73 66 65 72 5f 73 74 |!PROCtra|nsfer_st|
|00002780| 61 72 74 64 72 61 67 2e | 0d 0b c2 07 2a 7c 21 0d |artdrag.|....*|!.|
|00002790| 0b cc 45 2a 7c 21 49 66 | 20 74 6f 6c 64 20 74 6f |..E*|!If| told to|
|000027a0| 20 70 72 69 6e 74 20 74 | 68 65 20 66 69 6c 65 20 | print t|he file |
|000027b0| 69 6d 6d 65 64 69 61 74 | 65 6c 79 2c 20 6f 72 20 |immediat|ely, or |
|000027c0| 77 68 65 6e 20 61 20 66 | 69 6c 65 20 72 69 73 65 |when a f|ile rise|
|000027d0| 73 20 74 6f 0d 0b d6 42 | 2a 7c 21 74 68 65 20 74 |s to...B|*|!the t|
|000027e0| 6f 70 20 6f 66 20 74 68 | 65 20 71 75 65 75 65 2c |op of th|e queue,|
|000027f0| 20 69 74 20 77 69 6c 6c | 20 63 61 6c 6c 20 61 20 | it will| call a |
|00002800| 75 73 65 72 20 73 75 70 | 70 6c 69 65 64 20 72 6f |user sup|plied ro|
|00002810| 75 74 69 6e 65 3a 0d 0b | e0 07 2a 7c 21 0d 0b ea |utine:..|..*|!...|
|00002820| 3a 2a 7c 21 20 20 20 20 | 50 52 4f 43 74 72 61 6e |:*|! |PROCtran|
|00002830| 73 66 65 72 5f 70 72 69 | 6e 74 66 69 6c 65 28 20 |sfer_pri|ntfile( |
|00002840| 66 69 6c 65 5f 6e 61 6d | 65 20 2c 20 66 69 6c 65 |file_nam|e , file|
|00002850| 5f 74 79 70 65 20 29 0d | 0b f4 07 2a 7c 21 0d 0b |_type ).|...*|!..|
|00002860| fe 44 2a 7c 21 49 66 20 | 74 68 69 73 20 63 61 6c |.D*|!If |this cal|
|00002870| 6c 20 64 6f 65 73 20 6e | 6f 74 20 72 65 73 75 6c |l does n|ot resul|
|00002880| 74 20 66 72 6f 6d 20 61 | 20 66 69 6c 65 20 72 69 |t from a| file ri|
|00002890| 73 69 6e 67 20 74 6f 20 | 74 68 65 20 74 6f 70 20 |sing to |the top |
|000028a0| 6f 66 0d 0c 08 43 2a 7c | 21 74 68 65 20 71 75 65 |of...C*||!the que|
|000028b0| 75 65 2c 20 74 68 65 6e | 20 74 68 65 20 66 69 6c |ue, then| the fil|
|000028c0| 65 20 6e 61 6d 65 20 77 | 69 6c 6c 20 62 65 20 61 |e name w|ill be a|
|000028d0| 20 6e 75 6c 6c 20 73 74 | 72 69 6e 67 2c 20 61 6e | null st|ring, an|
|000028e0| 64 20 74 68 65 0d 0c 12 | 43 2a 7c 21 72 6f 75 74 |d the...|C*|!rout|
|000028f0| 69 6e 65 20 73 68 6f 75 | 6c 64 20 70 72 69 6e 74 |ine shou|ld print|
|00002900| 20 74 68 65 20 6a 6f 62 | 20 72 65 66 65 72 72 65 | the job| referre|
|00002910| 64 20 74 6f 20 62 79 20 | 74 68 65 20 6c 61 73 74 |d to by |the last|
|00002920| 20 63 61 6c 6c 20 74 6f | 0d 0c 1c 1f 2a 7c 21 50 | call to|....*|!P|
|00002930| 52 4f 43 74 72 61 6e 73 | 66 65 72 5f 73 74 61 72 |ROCtrans|fer_star|
|00002940| 74 70 72 69 6e 74 2e 0d | 0c 26 2c dd 20 f2 74 72 |tprint..|.&,. .tr|
|00002950| 61 6e 73 66 65 72 5f 73 | 74 61 72 74 70 72 69 6e |ansfer_s|tartprin|
|00002960| 74 28 6a 6f 62 24 2c 74 | 79 70 65 25 2c 73 69 7a |t(job$,t|ype%,siz|
|00002970| 65 25 29 0d 0c 30 29 5f | 77 69 6d 70 5f 62 75 66 |e%)..0)_|wimp_buf|
|00002980| 66 65 72 25 21 32 30 3d | 30 3a 5f 77 69 6d 70 5f |fer%!20=|0:_wimp_|
|00002990| 62 75 66 66 65 72 25 21 | 32 34 3d 30 0d 0c 3a 29 |buffer%!|24=0..:)|
|000029a0| 5f 77 69 6d 70 5f 62 75 | 66 66 65 72 25 21 32 38 |_wimp_bu|ffer%!28|
|000029b0| 3d 30 3a 5f 77 69 6d 70 | 5f 62 75 66 66 65 72 25 |=0:_wimp|_buffer%|
|000029c0| 21 33 32 3d 30 0d 0c 44 | 1a 5f 77 69 6d 70 5f 62 |!32=0..D|._wimp_b|
|000029d0| 75 66 66 65 72 25 21 33 | 36 3d 73 69 7a 65 25 0d |uffer%!3|6=size%.|
|000029e0| 0c 4e 1a 5f 77 69 6d 70 | 5f 62 75 66 66 65 72 25 |.N._wimp|_buffer%|
|000029f0| 21 34 30 3d 74 79 70 65 | 25 0d 0c 58 1c 24 28 5f |!40=type|%..X.$(_|
|00002a00| 77 69 6d 70 5f 62 75 66 | 66 65 72 25 2b 34 34 29 |wimp_buf|fer%+44)|
|00002a10| 3d 6a 6f 62 24 0d 0c 62 | 2e 5f 77 69 6d 70 5f 62 |=job$..b|._wimp_b|
|00002a20| 75 66 66 65 72 25 21 31 | 32 3d 30 3a 5f 77 69 6d |uffer%!1|2=0:_wim|
|00002a30| 70 5f 62 75 66 66 65 72 | 25 21 31 36 3d 26 38 30 |p_buffer|%!16=&80|
|00002a40| 31 34 32 0d 0c 6c 29 21 | 5f 77 69 6d 70 5f 62 75 |142..l)!|_wimp_bu|
|00002a50| 66 66 65 72 25 3d 34 34 | 2b 34 2a 28 28 a9 28 6a |ffer%=44|+4*((.(j|
|00002a60| 6f 62 24 29 2b 34 29 20 | 81 20 34 29 0d 0c 76 2c |ob$)+4) |. 4)..v,|
|00002a70| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|00002a80| 73 61 67 65 22 2c 31 38 | 2c 5f 77 69 6d 70 5f 62 |sage",18|,_wimp_b|
|00002a90| 75 66 66 65 72 25 2c 30 | 0d 0c 80 22 5f 74 72 61 |uffer%,0|..."_tra|
|00002aa0| 6e 73 66 65 72 5f 72 65 | 66 25 3d 5f 77 69 6d 70 |nsfer_re|f%=_wimp|
|00002ab0| 5f 62 75 66 66 65 72 25 | 21 38 0d 0c 8a 19 5f 74 |_buffer%|!8...._t|
|00002ac0| 72 61 6e 73 66 65 72 5f | 74 79 70 65 25 3d 74 79 |ransfer_|type%=ty|
|00002ad0| 70 65 25 0d 0c 94 05 e1 | 0d 0c 9e 23 2a 7c 73 74 |pe%.....|...#*|st|
|00002ae0| 6f 70 20 50 52 4f 43 74 | 72 61 6e 73 66 65 72 5f |op PROCt|ransfer_|
|00002af0| 73 74 61 72 74 70 72 69 | 6e 74 20 0d ff |startpri|nt .. |
+--------+-------------------------+-------------------------+--------+--------+