/ APDL Public Domain 1 / APDL_PD1A.iso / fileutils / fileact / !FileAct / ExDef / SetCurDir

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 53 | 65 74 43 75 72 44 69 72 |..... >S|etCurDir|
|00000010| 0d 00 14 1c f4 20 53 65 | 74 73 20 63 75 72 72 65 |..... Se|ts curre|
|00000020| 6e 74 20 64 69 72 65 63 | 74 6f 72 79 0d 00 1e 15 |nt direc|tory....|
|00000030| de 20 57 25 20 33 32 2a | 31 30 32 34 2c 53 25 20 |. W% 32*|1024,S% |
|00000040| 35 0d 00 28 0e 24 53 25 | 3d 22 54 41 53 4b 22 0d |5..(.$S%|="TASK".|
|00000050| 00 32 43 c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 |.2C.. "W|imp_Init|
|00000060| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 21 53 25 2c |ialise",|200,!S%,|
|00000070| 22 53 65 74 20 63 75 72 | 72 65 6e 74 20 64 69 72 |"Set cur|rent dir|
|00000080| 22 20 b8 20 2c 74 61 73 | 6b 68 25 3a f4 20 49 6e |" . ,tas|kh%:. In|
|00000090| 69 74 0d 00 3c 33 c8 99 | 20 22 57 69 6d 70 5f 47 |it..<3..| "Wimp_G|
|000000a0| 65 74 50 6f 69 6e 74 65 | 72 49 6e 66 6f 22 2c 2c |etPointe|rInfo",,|
|000000b0| 57 25 3a f4 20 47 65 74 | 20 70 6f 69 6e 74 65 72 |W%:. Get| pointer|
|000000c0| 20 69 6e 66 6f 0d 00 46 | 22 77 69 6e 25 3d 57 25 | info..F|"win%=W%|
|000000d0| 21 31 32 3a f4 20 47 65 | 74 20 77 69 6e 64 6f 77 |!12:. Ge|t window|
|000000e0| 20 68 61 6e 64 6c 65 0d | 00 50 29 e7 77 69 6e 25 | handle.|.P).win%|
|000000f0| 3c 30 20 8c 20 f2 65 6e | 64 3a f4 20 4e 6f 74 20 |<0 . .en|d:. Not |
|00000100| 61 20 72 65 67 75 6c 61 | 72 20 77 69 6e 64 6f 77 |a regula|r window|
|00000110| 0d 00 5a 2f 21 57 25 3d | 77 69 6e 25 3a c8 99 20 |..Z/!W%=|win%:.. |
|00000120| 22 58 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 |"XWimp_G|etWindow|
|00000130| 49 6e 66 6f 22 2c 2c 57 | 25 20 b8 20 3b 66 25 0d |Info",,W|% . ;f%.|
|00000140| 00 64 32 e7 66 25 80 31 | 20 8c 20 f2 65 6e 64 3a |.d2.f%.1| . .end:|
|00000150| f4 20 45 72 72 6f 72 20 | 77 68 69 6c 65 20 72 65 |. Error |while re|
|00000160| 61 64 69 6e 67 20 77 69 | 6e 64 6f 77 20 69 6e 66 |ading wi|ndow inf|
|00000170| 6f 0d 00 6e 2c 74 66 6c | 61 67 73 25 3d 57 25 21 |o..n,tfl|ags%=W%!|
|00000180| 36 30 3a f4 20 47 65 74 | 20 74 69 74 6c 65 20 62 |60:. Get| title b|
|00000190| 61 72 20 69 63 6f 6e 20 | 66 6c 61 67 73 0d 00 78 |ar icon |flags..x|
|000001a0| 29 e7 74 66 6c 61 67 73 | 25 80 25 30 30 30 30 30 |).tflags|%.%00000|
|000001b0| 30 30 30 31 20 8b 20 f2 | 65 6e 64 3a f4 20 4e 6f |0001 . .|end:. No|
|000001c0| 74 20 74 65 78 74 0d 00 | 82 63 e7 74 66 6c 61 67 |t text..|.c.tflag|
|000001d0| 73 25 80 25 31 30 30 30 | 30 30 30 30 30 20 8c 20 |s%.%1000|00000 . |
|000001e0| 70 74 72 25 3d 57 25 21 | 37 36 3a 6d 61 78 6c 65 |ptr%=W%!|76:maxle|
|000001f0| 6e 25 3d 32 35 35 20 8b | 20 70 74 72 25 3d 57 25 |n%=255 .| ptr%=W%|
|00000200| 2b 37 36 3a 6d 61 78 6c | 65 6e 25 3d 31 32 3a f4 |+76:maxl|en%=12:.|
|00000210| 20 57 68 65 72 65 27 73 | 20 74 68 65 20 74 69 74 | Where's| the tit|
|00000220| 6c 65 20 74 65 78 74 20 | 3f 0d 00 8c 5a 74 24 3d |le text |?...Zt$=|
|00000230| 22 22 3a 69 25 3d 30 3a | c8 95 20 28 70 74 72 25 |"":i%=0:|.. (ptr%|
|00000240| 3f 69 25 3e 3d 33 32 29 | 20 80 20 28 69 25 3c 6d |?i%>=32)| . (i%<m|
|00000250| 61 78 6c 65 6e 25 29 3a | 74 24 2b 3d bd 70 74 72 |axlen%):|t$+=.ptr|
|00000260| 25 3f 69 25 3a 69 25 2b | 3d 31 3a ce 3a f4 20 45 |%?i%:i%+|=1:.:. E|
|00000270| 78 74 72 61 63 74 20 77 | 69 6e 64 6f 77 20 74 69 |xtract w|indow ti|
|00000280| 74 6c 65 0d 00 96 32 c8 | 99 20 22 58 4f 53 5f 43 |tle...2.|. "XOS_C|
|00000290| 4c 49 22 2c 22 44 69 72 | 20 22 2b 74 24 3a f4 20 |LI","Dir| "+t$:. |
|000002a0| 53 65 74 20 63 75 72 72 | 65 6e 74 20 64 69 72 65 |Set curr|ent dire|
|000002b0| 63 74 6f 72 79 0d 00 a0 | 0f f2 65 6e 64 3a f4 20 |ctory...|..end:. |
|000002c0| 45 78 69 74 0d 00 aa 05 | e0 0d 00 b4 04 0d 00 be |Exit....|........|
|000002d0| 31 dd f2 65 6e 64 3a c8 | 99 20 22 57 69 6d 70 5f |1..end:.|. "Wimp_|
|000002e0| 43 6c 6f 73 65 44 6f 77 | 6e 22 2c 74 61 73 6b 68 |CloseDow|n",taskh|
|000002f0| 25 2c 21 53 25 3a e0 3a | f4 20 45 78 69 74 0d ff |%,!S%:.:|. Exit..|
+--------+-------------------------+-------------------------+--------+--------+