/ European Smalltalk User Group 2004 September / esugcd.iso / Books-Tutorial-Lectures / Articles / AnsiSmalltalkStandard / x3j20.doc / Macros / VBA / changedir

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 16 01 00 06 b6 00 ff | ff 01 01 00 00 00 00 ff |........|........|
|00000010| ff ff ff 00 00 00 00 ff | ff 04 00 ff ff 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 10 00 00 00 03 00 00 | 00 05 00 00 00 07 00 00 |........|........|
|00000060| 00 ff ff ff ff ff ff ff | ff 01 01 08 00 00 00 ff |........|........|
|00000070| ff ff ff 78 00 00 00 de | 00 00 00 ee 04 00 00 f4 |...x....|........|
|00000080| 01 00 00 ff ff ff ff 00 | 00 00 00 01 00 00 00 f9 |........|........|
|00000090| 27 f5 27 00 00 ff ff 03 | 00 00 00 00 00 00 00 02 |'.'.....|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| ff ff 00 00 0a 05 00 00 | d6 00 00 00 d6 00 00 00 |........|........|
|000000d0| f2 06 00 00 00 00 ff ff | ff ff 00 00 00 00 df 00 |........|........|
|000000e0| ff ff 00 00 00 00 0c 00 | ff ff ff ff ff ff ff ff |........|........|
|000000f0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000100| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000110| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000120| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000130| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000140| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000150| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000160| ff ff ff ff ff ff ff ff | 28 00 00 00 00 00 36 0a |........|(.....6.|
|00000170| ff ff ff ff 00 00 00 00 | 1a 94 ff ff ff ff 00 00 |........|........|
|00000180| 00 00 1a 4c ff ff ff ff | 00 00 00 00 02 3c ff ff |...L....|.....<..|
|00000190| ff ff 00 00 ff ff 01 01 | 00 00 00 00 00 00 d7 8d |........|........|
|000001a0| 68 34 0b 00 01 24 00 2a | 00 5c 00 52 00 66 00 66 |h4...$.*|.\.R.f.f|
|000001b0| 00 66 00 66 00 2a 00 31 | 00 30 00 33 00 34 00 36 |.f.f.*.1|.0.3.4.6|
|000001c0| 00 38 00 38 00 65 00 64 | 00 30 00 01 12 00 2a 00 |.8.8.e.d|.0....*.|
|000001d0| 5c 00 52 00 31 00 2a 00 | 23 00 31 00 37 00 62 00 |\.R.1.*.|#.1.7.b.|
|000001e0| 01 10 00 2a 00 5c 00 52 | 00 31 00 2a 00 23 00 63 |...*.\.R|.1.*.#.c|
|000001f0| 00 31 00 df 01 00 00 00 | ff ff ff ff 01 01 78 02 |.1......|......x.|
|00000200| 00 00 0b 12 1e 02 ff ff | ff ff 00 00 00 60 00 00 |........|.....`..|
|00000210| 00 00 40 00 00 00 a8 00 | 00 00 00 00 00 00 28 01 |..@.....|......(.|
|00000220| 00 00 24 ff 6b 00 ff ff | ff ff ff ff ff ff ff ff |..$.k...|........|
|00000230| 00 00 0a 00 0a 00 01 00 | 84 00 00 01 00 00 68 f1 |........|......h.|
|00000240| b9 7e 5d 00 00 00 63 68 | 61 6e 67 65 20 74 68 65 |.~]...ch|ange the|
|00000250| 20 63 75 72 72 65 6e 74 | 20 64 69 72 65 63 74 6f | current| directo|
|00000260| 72 79 20 66 6f 72 20 6f | 70 65 6e 69 6e 67 2f 73 |ry for o|pening/s|
|00000270| 61 76 69 6e 67 0d 0a 66 | 69 6c 65 73 20 69 6e 20 |aving..f|iles in |
|00000280| 6d 61 63 72 6f 73 2e 20 | 20 4d 6f 64 69 66 69 65 |macros. | Modifie|
|00000290| 73 20 78 33 6a 32 30 2e | 69 6e 69 20 76 61 6c 75 |s x3j20.|ini valu|
|000002a0| 65 73 2e 00 00 f0 24 f1 | b9 7e 1e 00 00 00 54 65 |es....$.|.~....Te|
|000002b0| 6d 70 6c 61 74 65 50 72 | 6f 6a 65 63 74 2e 63 68 |mplatePr|oject.ch|
|000002c0| 61 6e 67 65 64 69 72 2e | 4d 41 49 4e 00 00 00 00 |angedir.|MAIN....|
|000002d0| 00 00 50 84 20 02 ff ff | ff ff 78 ff ff ff 08 00 |..P. ...|..x.....|
|000002e0| ff ff 00 00 00 00 ea 3a | 69 10 ff ff ff ff 10 00 |.......:|i.......|
|000002f0| 00 00 00 00 00 00 ff ff | ff ff 02 83 1c 02 ff ff |........|........|
|00000300| ff ff 08 00 ff ff 20 01 | 00 00 00 00 ff ff ff ff |...... .|........|
|00000310| ff ff 00 00 00 00 ff ff | ff ff ff ff ff ff 00 00 |........|........|
|00000320| 00 00 1d 00 00 00 24 00 | 00 00 ff ff ff ff ff ff |......$.|........|
|00000330| ff ff d0 00 00 00 ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000340| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000350| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000360| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000370| ff ff e0 01 00 00 58 02 | 00 00 ff ff ff ff f8 01 |......X.|........|
|00000380| 00 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000390| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000003a0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000003b0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000003c0| ff ff c8 01 00 00 ff ff | ff ff ff ff ff ff 22 02 |........|......".|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000003e0| 00 00 40 04 fe ff ff ff | ff ff 74 ff ff ff 09 00 |..@.....|..t.....|
|000003f0| ff ff 20 00 00 00 00 00 | 00 00 40 04 fe ff 10 02 |.. .....|..@.....|
|00000400| 00 00 64 ff ff ff 0c 00 | ff ff 20 00 00 00 00 00 |..d.....|.. .....|
|00000410| 00 00 40 04 fe ff 28 02 | 00 00 54 ff ff ff 0c 00 |..@...(.|..T.....|
|00000420| ff ff 20 00 00 00 00 00 | 00 00 40 04 fe ff 40 02 |.. .....|..@...@.|
|00000430| 00 00 44 ff ff ff 0c 00 | ff ff 20 00 00 00 00 00 |..D.....|.. .....|
|00000440| 00 00 40 04 fe ff ff ff | ff ff 34 ff ff ff 0c 00 |..@.....|..4.....|
|00000450| ff ff 20 00 00 00 00 00 | 00 00 40 04 fe ff ff ff |.. .....|..@.....|
|00000460| ff ff 24 ff ff ff 0c 00 | ff ff 20 00 00 00 00 00 |..$.....|.. .....|
|00000470| 00 00 ff ff ff ff 48 01 | 00 00 01 00 01 00 00 00 |......H.|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff ff ff |........|........|
|00000490| ff ff ff ff ff ff ff ff | ff ff ff ff 00 00 00 00 |........|........|
|000004a0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000004b0| ff ff ff ff ff ff ff ff | f8 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 08 00 04 00 | ff ff ff ff 00 00 00 00 |........|........|
|000004d0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000004e0| ff ff ff ff ff ff ff ff | 02 00 f0 00 00 00 4d 45 |........|......ME|
|000004f0| 00 00 ff ff ff ff ff ff | 00 00 00 00 ff ff 00 00 |........|........|
|00000500| 00 00 ff ff 01 01 00 00 | 00 00 01 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 fe ca | 01 00 0b 00 00 80 09 00 |........|........|
|00000550| 00 00 00 00 ff ff ff ff | 22 81 08 00 06 00 02 00 |........|".......|
|00000560| 00 00 00 00 00 80 08 00 | 08 00 00 00 08 00 00 00 |........|........|
|00000570| 00 81 08 04 2e 00 42 00 | 10 00 00 00 00 81 08 04 |......B.|........|
|00000580| 0c 00 0d 00 40 00 00 00 | 00 81 08 08 14 00 08 00 |....@...|........|
|00000590| 50 00 00 00 00 81 08 04 | 02 00 02 00 68 00 00 00 |P.......|....h...|
|000005a0| 00 80 09 04 44 00 00 00 | 70 00 00 00 00 81 08 04 |....D...|p.......|
|000005b0| 0e 00 26 00 b8 00 00 00 | 00 80 09 04 40 00 00 00 |..&.....|....@...|
|000005c0| c8 00 00 00 04 81 08 00 | 02 00 03 00 08 01 00 00 |........|........|
|000005d0| ff ff ff ff 01 01 18 01 | 00 00 8f 14 00 00 00 00 |........|........|
|000005e0| 00 00 5a 00 ea 04 d0 00 | 00 00 ae 00 05 00 58 33 |..Z.....|......X3|
|000005f0| 4a 32 30 00 ae 00 03 00 | 44 69 72 00 ae 00 09 00 |J20.....|Dir.....|
|00000600| 58 33 4a 32 30 2e 49 4e | 49 00 20 00 22 02 25 80 |X3J20.IN|I. .".%.|
|00000610| 24 02 03 00 27 20 20 02 | 00 00 20 20 20 02 ae 00 |$...'  .|..   ...|
|00000620| 00 00 05 00 95 00 00 00 | 00 00 ae 00 0c 00 63 3a |........|......c:|
|00000630| 5c 78 33 6a 32 30 5c 64 | 6f 63 27 20 20 02 00 00 |\x3j20\d|oc'  ...|
|00000640| 00 00 68 00 ff ff 10 00 | 00 00 dc 00 3f 00 20 64 |..h.....|....?. d|
|00000650| 69 72 24 20 3d 20 49 6e | 70 75 74 42 6f 78 24 28 |ir$ = In|putBox$(|
|00000660| 22 43 68 64 69 72 20 74 | 6f 20 77 68 61 74 20 64 |"Chdir t|o what d|
|00000670| 69 72 65 63 74 6f 72 79 | 3f 22 2c 20 22 50 72 6f |irectory|?", "Pro|
|00000680| 6d 70 74 65 72 22 2c 20 | 64 69 72 24 29 00 74 00 |mpter", |dir$).t.|
|00000690| 6f 00 20 20 20 02 20 00 | 22 02 42 40 3a 00 01 00 |o.   . .|".B@:...|
|000006a0| 6f 00 dc 00 3b 00 20 53 | 65 74 50 72 69 76 61 74 |o...;. S|etPrivat|
|000006b0| 65 50 72 6f 66 69 6c 65 | 53 74 72 69 6e 67 28 22 |eProfile|String("|
|000006c0| 58 33 4a 32 30 22 2c 20 | 22 44 69 72 22 2c 20 64 |X3J20", |"Dir", d|
|000006d0| 69 72 24 2c 20 22 58 33 | 4a 32 30 2e 49 4e 49 22 |ir$, "X3|J20.INI"|
|000006e0| 29 00 6c 00 ff ff f0 00 | 00 00 ff ff ff ff e8 00 |).l.....|........|
|000006f0| 00 00 01 b4 b1 00 41 74 | 74 72 69 62 75 74 00 65 |......At|tribut.e|
|00000700| 20 56 42 5f 4e 61 6d 00 | 65 20 3d 20 22 63 68 61 | VB_Nam.|e = "cha|
|00000710| 00 6e 67 65 64 69 72 22 | 0d 00 0a 0d 0a 50 75 62 |.ngedir"|.....Pub|
|00000720| 6c 69 00 63 20 53 75 62 | 20 4d 41 c0 49 4e 28 29 |li.c Sub| MA.IN()|
|00000730| 0d 0a 07 d4 01 44 02 2e | 00 74 44 65 73 63 72 69 |.....D..|.tDescri|
|00000740| 20 70 74 69 6f 6e 07 82 | 20 74 00 68 65 20 63 75 | ption..| t.he cu|
|00000750| 72 72 65 08 6e 74 20 00 | 9c 65 63 74 6f 00 72 79 |rre.nt .|.ecto.ry|
|00000760| 20 66 6f 72 20 6f 00 70 | 65 6e 69 6e 67 2f 73 04 | for o.p|ening/s.|
|00000770| 61 76 00 06 5c 72 5c 6e | 66 00 69 6c 65 73 20 69 |av..\r\n|f.iles i|
|00000780| 6e 20 00 6d 61 63 72 6f | 73 2e 20 80 20 4d 6f 64 |n .macro|s. . Mod|
|00000790| 69 66 69 00 14 00 78 33 | 6a 32 30 2e 69 6e 00 69 |ifi...x3|j20.in.i|
|000007a0| 20 76 61 6c 75 65 73 06 | 2e 00 97 0f 82 50 72 6f | values.|.....Pro|
|000007b0| 63 44 08 61 74 61 01 8e | 49 6e 76 6f 80 6b 65 5f |cD.ata..|Invo.ke_|
|000007c0| 46 75 6e 63 01 8e 00 54 | 65 6d 70 6c 61 74 65 d5 |Func...T|emplate.|
|000007d0| 00 22 6a 00 84 2e 06 e0 | 2e 01 bf 80 26 08 44 69 |."j.....|....&.Di|
|000007e0| 6d 01 50 5f 24 0d 0a 26 | 20 00 00 80 55 5f 24 00 |m.P_$..&| ...U_$.|
|000007f0| 1c 57 6f 00 72 64 42 61 | 73 69 63 2e 00 5b 47 65 |.Wo.rdBa|sic..[Ge|
|00000800| 74 50 72 69 76 0b 03 22 | 81 55 53 00 9c 6e 67 24 |tPriv.."|.US..ng$|
|00000810| 5d 00 28 22 58 33 4a 32 | 30 22 70 2c 20 22 44 80 |].("X3J2|0"p, "D.|
|00000820| 98 00 03 82 07 2e 30 49 | 4e 49 22 00 95 01 27 49 |......0I|NI"...'I|
|00000830| 66 03 03 2e 01 45 22 20 | 54 68 65 6e 87 03 33 81 |f....E" |Then..3.|
|00000840| 0d 05 35 22 63 3a 5c 82 | 73 30 5c 64 6f 63 80 48 |..5"c:\.|s0\doc.H|
|00000850| 81 0d 45 6e 90 64 20 49 | 66 83 15 52 65 82 50 01 |..En.d I|f..Re.P.|
|00000860| 81 4a 49 6e 70 75 74 42 | 6f 40 78 24 28 22 43 68 |.JInputB|o@x$("Ch|
|00000870| 80 1f 20 40 74 6f 20 77 | 68 61 08 b1 3f 83 81 46 |.. @to w|ha..?..F|
|00000880| 00 76 6d 70 74 65 72 80 | 05 cd 00 12 24 84 45 07 |.vmpter.|....$.E.|
|00000890| 69 43 68 80 57 03 4c fd | 87 18 53 93 39 0e 39 41 |iCh.W.L.|..S.9.9A|
|000008a0| 14 8d 3a 81 2b 40 89 00 | 0d 0a                   |..:.+@..|..      |
+--------+-------------------------+-------------------------+--------+--------+