/ CICA 1993 August / CICA.cdr / win3 / winword / default.dir

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 63 6f 6d | 70 2e 77 69 6e 64 6f 77 |From com|p.window|
|00000010| 73 2e 6d 73 20 54 68 75 | 20 4a 61 6e 20 31 30 20 |s.ms Thu| Jan 10 |
|00000020| 31 32 3a 31 38 3a 32 30 | 20 31 39 39 31 0a 46 72 |12:18:20| 1991.Fr|
|00000030| 6f 6d 3a 20 66 72 65 64 | 66 40 6d 69 63 72 6f 73 |om: fred|f@micros|
|00000040| 6f 66 74 2e 55 55 43 50 | 20 28 46 72 65 64 20 46 |oft.UUCP| (Fred F|
|00000050| 52 45 45 4c 41 4e 44 29 | 0a 44 61 74 65 3a 20 31 |REELAND)|.Date: 1|
|00000060| 30 20 4a 61 6e 20 39 31 | 20 30 35 3a 30 38 3a 30 |0 Jan 91| 05:08:0|
|00000070| 31 20 47 4d 54 0a 4e 65 | 77 73 67 72 6f 75 70 73 |1 GMT.Ne|wsgroups|
|00000080| 3a 20 63 6f 6d 70 2e 77 | 69 6e 64 6f 77 73 2e 6d |: comp.w|indows.m|
|00000090| 73 0a 53 75 62 6a 65 63 | 74 3a 20 44 65 66 61 75 |s.Subjec|t: Defau|
|000000a0| 6c 74 20 44 69 72 65 63 | 74 6f 72 79 20 66 6f 72 |lt Direc|tory for|
|000000b0| 20 57 6f 72 64 20 66 6f | 72 20 57 69 6e 64 6f 77 | Word fo|r Window|
|000000c0| 73 20 73 6f 6c 75 74 69 | 6f 6e 0a 0a 0a 49 27 76 |s soluti|on...I'v|
|000000d0| 65 20 73 65 65 6e 20 61 | 20 6c 6f 74 20 6f 66 20 |e seen a| lot of |
|000000e0| 64 69 73 63 75 73 73 69 | 6f 6e 20 69 6e 20 72 65 |discussi|on in re|
|000000f0| 63 65 6e 74 20 77 65 65 | 6b 73 20 61 62 6f 75 74 |cent wee|ks about|
|00000100| 20 68 6f 77 20 74 6f 20 | 67 65 74 20 4d 69 63 72 | how to |get Micr|
|00000110| 6f 73 6f 66 74 0a 57 6f | 72 64 20 66 6f 72 20 57 |osoft.Wo|rd for W|
|00000120| 69 6e 64 6f 77 73 20 74 | 6f 20 72 65 6d 65 6d 62 |indows t|o rememb|
|00000130| 65 72 20 74 68 65 20 6c | 61 73 74 20 64 69 72 65 |er the l|ast dire|
|00000140| 63 74 6f 72 79 20 79 6f | 75 20 77 65 72 65 20 69 |ctory yo|u were i|
|00000150| 6e 20 66 72 6f 6d 20 73 | 65 73 73 69 6f 6e 0a 74 |n from s|ession.t|
|00000160| 6f 20 73 65 73 73 69 6f | 6e 2e 20 20 57 68 69 6c |o sessio|n.  Whil|
|00000170| 65 20 74 68 65 72 65 20 | 61 72 65 20 61 20 6e 75 |e there |are a nu|
|00000180| 6d 62 65 72 20 6f 66 20 | 73 6f 6d 65 77 68 61 74 |mber of |somewhat|
|00000190| 20 6b 6c 75 64 67 79 20 | 77 61 79 73 20 74 6f 20 | kludgy |ways to |
|000001a0| 64 6f 20 74 68 69 73 2c | 0a 49 20 6f 66 66 65 72 |do this,|.I offer|
|000001b0| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 70 | the fol|lowing p|
|000001c0| 72 6f 67 72 61 6d 61 74 | 69 63 20 73 6f 6c 75 74 |rogramat|ic solut|
|000001d0| 69 6f 6e 2e 20 49 74 27 | 73 20 77 68 61 74 20 49 |ion. It'|s what I|
|000001e0| 20 75 73 65 20 65 76 65 | 72 79 20 64 61 79 20 61 | use eve|ry day a|
|000001f0| 6e 64 0a 69 74 20 77 6f | 72 6b 73 20 77 69 74 68 |nd.it wo|rks with|
|00000200| 6f 75 74 20 66 61 69 6c | 2e 20 20 48 6f 70 65 66 |out fail|.  Hopef|
|00000210| 75 6c 6c 79 20 73 6f 6d | 65 6f 6e 65 20 65 6c 73 |ully som|eone els|
|00000220| 65 20 6f 75 74 20 74 68 | 65 72 65 20 69 6e 20 6e |e out th|ere in n|
|00000230| 65 74 6c 61 6e 64 20 63 | 61 6e 0a 6d 61 6b 65 20 |etland c|an.make |
|00000240| 73 6f 6d 65 20 67 6f 6f | 64 20 75 73 65 20 6f 66 |some goo|d use of|
|00000250| 20 69 74 2e 0a 0a 54 68 | 65 72 65 20 61 72 65 20 | it...Th|ere are |
|00000260| 74 68 72 65 65 20 72 6f | 75 74 69 6e 65 73 20 74 |three ro|utines t|
|00000270| 68 61 74 20 70 72 6f 62 | 61 62 6c 79 20 64 6f 20 |hat prob|ably do |
|00000280| 6e 6f 74 20 61 6c 72 65 | 61 64 79 20 65 78 69 73 |not alre|ady exis|
|00000290| 74 20 69 6e 20 79 6f 75 | 72 20 76 65 72 73 69 6f |t in you|r versio|
|000002a0| 6e 0a 6f 66 20 57 6f 72 | 64 20 66 6f 72 20 57 69 |n.of Wor|d for Wi|
|000002b0| 6e 64 6f 77 73 2c 20 62 | 75 74 20 74 68 65 79 20 |ndows, b|ut they |
|000002c0| 61 72 65 20 72 65 63 6f | 67 6e 69 7a 65 64 2e 20 |are reco|gnized. |
|000002d0| 20 41 6c 6c 20 79 6f 75 | 20 68 61 76 65 20 74 6f | All you| have to|
|000002e0| 20 64 6f 20 69 73 20 61 | 64 64 0a 74 68 65 20 63 | do is a|dd.the c|
|000002f0| 6f 64 65 20 73 68 6f 77 | 6e 20 62 65 6c 6f 77 20 |ode show|n below |
|00000300| 74 6f 20 6d 61 63 72 6f | 73 20 77 69 74 68 20 74 |to macro|s with t|
|00000310| 68 65 20 6e 61 6d 65 73 | 20 73 68 6f 77 6e 20 6a |he names| shown j|
|00000320| 75 73 74 20 61 62 6f 76 | 65 20 53 75 62 20 4d 41 |ust abov|e Sub MA|
|00000330| 49 4e 20 66 6f 72 0a 65 | 61 63 68 20 63 61 73 65 |IN for.e|ach case|
|00000340| 2e 2e 0a 0a 54 68 65 20 | 6b 65 79 20 74 6f 20 74 |....The |key to t|
|00000350| 68 69 73 20 77 68 6f 6c | 65 20 73 63 68 65 6d 65 |his whol|e scheme|
|00000360| 20 69 73 20 74 68 65 20 | 41 50 49 20 63 61 6c 6c | is the |API call|
|00000370| 20 69 6e 74 6f 20 57 69 | 6e 64 6f 77 73 20 75 73 | into Wi|ndows us|
|00000380| 65 64 20 62 79 20 74 68 | 65 0a 41 75 74 6f 45 78 |ed by th|e.AutoEx|
|00000390| 69 74 20 6d 61 63 72 6f | 2e 20 20 54 68 69 73 20 |it macro|.  This |
|000003a0| 69 73 20 77 68 61 74 20 | 77 72 69 74 65 73 20 74 |is what |writes t|
|000003b0| 68 65 20 57 49 4e 2e 49 | 4e 49 20 65 6e 74 72 79 |he WIN.I|NI entry|
|000003c0| 20 74 68 61 74 20 63 61 | 6e 20 62 65 20 72 65 74 | that ca|n be ret|
|000003d0| 72 69 65 76 65 64 0a 77 | 68 65 6e 20 57 6f 72 64 |rieved.w|hen Word|
|000003e0| 20 66 6f 72 20 57 69 6e | 64 6f 77 73 20 69 73 20 | for Win|dows is |
|000003f0| 6e 65 78 74 20 73 74 61 | 72 74 65 64 2e 0a 0a 45 |next sta|rted...E|
|00000400| 6e 6a 6f 79 21 0a 0a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |njoy!..-|--------|
|00000410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000420| 43 6f 64 65 20 42 65 67 | 69 6e 73 20 48 65 72 65 |Code Beg|ins Here|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 0a 41 75 74 6f | 65 45 78 65 63 0a 53 75 |---.Auto|eExec.Su|
|00000460| 62 20 4d 41 49 4e 0a 20 | 20 27 20 54 68 69 73 20 |b MAIN. | ' This |
|00000470| 70 72 6f 63 65 64 75 72 | 65 20 63 68 65 63 6b 73 |procedur|e checks|
|00000480| 20 61 74 74 65 6d 70 74 | 73 20 74 6f 20 72 65 74 | attempt|s to ret|
|00000490| 75 72 6e 20 74 6f 20 74 | 68 65 20 6c 61 73 74 20 |urn to t|he last |
|000004a0| 64 69 72 65 63 74 6f 72 | 79 20 75 73 65 64 20 62 |director|y used b|
|000004b0| 79 0a 20 20 27 20 4d 69 | 63 72 6f 73 6f 66 74 20 |y.  ' Mi|crosoft |
|000004c0| 57 6f 72 64 20 66 6f 72 | 20 57 69 6e 64 6f 77 73 |Word for| Windows|
|000004d0| 2e 20 49 74 20 63 68 65 | 63 6b 73 20 74 68 65 20 |. It che|cks the |
|000004e0| 57 49 4e 2e 49 4e 49 20 | 66 69 6c 65 20 66 6f 72 |WIN.INI |file for|
|000004f0| 20 61 0a 20 20 27 20 44 | 65 66 61 75 6c 74 44 69 | a.  ' D|efaultDi|
|00000500| 72 65 63 74 6f 72 79 20 | 65 6e 74 72 79 20 61 6e |rectory |entry an|
|00000510| 64 20 63 68 61 6e 67 65 | 73 20 74 6f 20 74 68 65 |d change|s to the|
|00000520| 20 64 69 72 65 63 74 6f | 72 79 20 70 61 74 68 20 | directo|ry path |
|00000530| 66 6f 75 6e 64 20 74 68 | 65 72 65 2e 0a 20 20 27 |found th|ere..  '|
|00000540| 20 4e 6f 20 61 63 74 69 | 6f 6e 20 69 73 20 74 61 | No acti|on is ta|
|00000550| 6b 65 6e 20 69 66 20 6e | 6f 20 65 6e 74 72 79 20 |ken if n|o entry |
|00000560| 65 78 69 73 74 73 0a 0a | 20 20 41 4e 61 6d 65 24 |exists..|  AName$|
|00000570| 20 3d 20 22 4d 69 63 72 | 6f 73 6f 66 74 20 57 6f | = "Micr|osoft Wo|
|00000580| 72 64 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |rd"     |        |
|00000590| 20 20 20 20 20 20 27 20 | 53 65 74 20 41 70 70 6c |      ' |Set Appl|
|000005a0| 69 63 61 74 69 6f 6e 20 | 4e 61 6d 65 2e 0a 20 20 |ication |Name..  |
|000005b0| 4b 4e 61 6d 65 24 20 3d | 20 22 44 65 66 61 75 6c |KName$ =| "Defaul|
|000005c0| 74 44 69 72 65 63 74 6f | 72 79 22 20 20 20 20 20 |tDirecto|ry"     |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 27 20 53 65 |        |    ' Se|
|000005e0| 74 20 4b 65 79 20 6e 61 | 6d 65 2e 0a 20 20 4e 65 |t Key na|me..  Ne|
|000005f0| 77 44 69 72 24 20 3d 20 | 47 65 74 50 72 6f 66 69 |wDir$ = |GetProfi|
|00000600| 6c 65 53 74 72 69 6e 67 | 24 28 41 4e 61 6d 65 24 |leString|$(AName$|
|00000610| 2c 20 4b 4e 61 6d 65 24 | 29 20 27 20 47 65 74 20 |, KName$|) ' Get |
|00000620| 74 68 65 20 6c 61 73 74 | 20 64 69 72 65 63 74 6f |the last| directo|
|00000630| 72 79 20 75 73 65 64 2e | 0a 20 20 43 68 44 69 72 |ry used.|.  ChDir|
|00000640| 20 4e 65 77 44 69 72 24 | 20 20 20 20 20 20 20 20 | NewDir$|        |
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000660| 20 20 20 20 20 20 20 27 | 20 43 68 61 6e 67 65 20 |       '| Change |
|00000670| 64 69 72 65 63 74 6f 72 | 79 2e 0a 45 6e 64 20 53 |director|y..End S|
|00000680| 75 62 0a 0a 41 75 74 6f | 4f 70 65 6e 0a 53 75 62 |ub..Auto|Open.Sub|
|00000690| 20 4d 41 49 4e 0a 20 20 | 27 20 54 68 69 73 20 70 | MAIN.  |' This p|
|000006a0| 72 6f 63 65 64 75 72 65 | 20 64 65 74 65 72 6d 69 |rocedure| determi|
|000006b0| 6e 65 73 20 74 68 65 20 | 70 61 74 68 20 6f 66 20 |nes the |path of |
|000006c0| 74 68 65 20 66 69 6c 65 | 20 74 68 61 74 20 77 61 |the file| that wa|
|000006d0| 73 20 6a 75 73 74 20 6f | 70 65 6e 65 64 2e 0a 20 |s just o|pened.. |
|000006e0| 20 27 20 49 74 20 74 68 | 65 6e 20 63 61 75 73 65 | ' It th|en cause|
|000006f0| 73 20 57 6f 72 64 20 66 | 6f 72 20 57 69 6e 64 6f |s Word f|or Windo|
|00000700| 77 73 20 74 6f 20 6d 61 | 6b 65 20 74 68 61 74 20 |ws to ma|ke that |
|00000710| 64 69 72 65 63 74 6f 72 | 79 20 74 68 65 20 63 75 |director|y the cu|
|00000720| 72 72 65 6e 74 0a 20 20 | 27 20 64 65 66 61 75 6c |rrent.  |' defaul|
|00000730| 74 20 64 69 72 65 63 74 | 6f 72 79 20 66 6f 72 20 |t direct|ory for |
|00000740| 66 75 74 75 72 65 20 46 | 69 6c 65 4f 70 65 6e 20 |future F|ileOpen |
|00000750| 6f 70 65 72 61 74 69 6f | 6e 73 2e 0a 0a 20 20 50 |operatio|ns...  P|
|00000760| 61 74 68 24 20 3d 20 22 | 22 20 20 20 20 20 20 20 |ath$ = "|"       |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000780| 20 20 20 20 20 20 20 27 | 20 49 6e 69 74 69 61 6c |       '| Initial|
|00000790| 69 7a 65 20 50 61 74 68 | 24 2e 0a 20 20 4c 61 73 |ize Path|$..  Las|
|000007a0| 74 46 69 6c 65 24 20 3d | 20 46 69 6c 65 4e 61 6d |tFile$ =| FileNam|
|000007b0| 65 24 28 31 29 20 20 20 | 20 20 20 20 20 20 20 20 |e$(1)   |        |
|000007c0| 20 20 20 20 20 27 20 47 | 65 74 20 70 61 74 68 20 |     ' G|et path |
|000007d0| 6f 66 20 6c 61 73 74 20 | 66 69 6c 65 20 6f 70 65 |of last |file ope|
|000007e0| 6e 65 64 2e 0a 20 20 49 | 20 3d 20 4c 65 6e 28 4c |ned..  I| = Len(L|
|000007f0| 61 73 74 46 69 6c 65 24 | 29 20 20 20 20 20 20 20 |astFile$|)       |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 27 |        |       '|
|00000810| 20 47 65 74 20 6c 65 6e | 67 74 68 20 6f 66 20 66 | Get len|gth of f|
|00000820| 69 6c 65 73 70 65 63 2e | 0a 20 20 57 68 69 6c 65 |ilespec.|.  While|
|00000830| 20 50 61 74 68 24 20 3d | 20 22 22 0a 20 20 20 20 | Path$ =| "".    |
|00000840| 49 66 20 4d 69 64 24 28 | 4c 61 73 74 46 69 6c 65 |If Mid$(|LastFile|
|00000850| 24 2c 20 49 2c 20 31 29 | 20 3d 20 22 5c 22 20 54 |$, I, 1)| = "\" T|
|00000860| 68 65 6e 20 20 20 27 20 | 53 74 61 72 74 69 6e 67 |hen   ' |Starting|
|00000870| 20 66 72 6f 6d 20 74 68 | 65 20 72 69 67 68 74 2c | from th|e right,|
|00000880| 0a 20 20 20 20 20 20 50 | 61 74 68 24 20 3d 20 4c |.      P|ath$ = L|
|00000890| 65 66 74 24 28 4c 61 73 | 74 46 69 6c 65 24 2c 20 |eft$(Las|tFile$, |
|000008a0| 49 20 2d 20 31 29 20 20 | 20 20 20 27 20 6c 6f 6f |I - 1)  |   ' loo|
|000008b0| 6b 20 66 6f 72 20 74 68 | 65 20 6c 61 73 74 20 64 |k for th|e last d|
|000008c0| 69 72 65 63 74 6f 72 79 | 0a 20 20 20 20 45 6e 64 |irectory|.    End|
|000008d0| 20 49 66 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | If     |        |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008f0| 20 20 20 27 20 64 65 6c | 69 6d 69 74 65 72 20 28 |   ' del|imiter (|
|00000900| 5c 29 2e 20 54 61 6b 65 | 20 65 76 65 72 79 74 68 |\). Take| everyth|
|00000910| 69 6e 67 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ing.    |        |
|00000920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 27 20 |        |      ' |
|00000940| 74 6f 20 74 68 65 20 6c | 65 66 74 20 6f 66 20 74 |to the l|eft of t|
|00000950| 68 65 20 64 65 6c 69 6d | 69 74 65 72 0a 20 20 20 |he delim|iter.   |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000980| 20 20 20 20 20 20 20 27 | 20 66 6f 72 20 74 68 65 |       '| for the|
|00000990| 20 70 61 74 68 2e 0a 20 | 20 20 20 49 20 3d 20 49 | path.. |   I = I|
|000009a0| 20 2d 20 31 0a 20 20 57 | 65 6e 64 0a 20 20 43 68 | - 1.  W|end.  Ch|
|000009b0| 44 69 72 20 50 61 74 68 | 24 20 20 20 20 20 20 20 |Dir Path|$       |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009d0| 20 20 20 20 20 20 27 20 | 43 68 61 6e 67 65 20 64 |      ' |Change d|
|000009e0| 69 72 65 63 74 6f 72 79 | 0a 45 6e 64 20 53 75 62 |irectory|.End Sub|
|000009f0| 0a 0a 41 75 74 6f 45 78 | 69 74 0a 27 57 49 4e 20 |..AutoEx|it.'WIN |
|00000a00| 41 50 49 20 70 72 6f 63 | 65 64 75 72 65 20 74 6f |API proc|edure to|
|00000a10| 20 77 72 69 74 65 20 61 | 20 57 49 4e 2e 49 4e 49 | write a| WIN.INI|
|00000a20| 20 65 6e 74 72 79 2e 0a | 44 65 63 6c 61 72 65 20 | entry..|Declare |
|00000a30| 46 75 6e 63 74 69 6f 6e | 20 57 72 69 74 65 50 72 |Function| WritePr|
|00000a40| 6f 66 69 6c 65 53 74 72 | 69 6e 67 20 4c 69 62 20 |ofileStr|ing Lib |
|00000a50| 22 4b 65 72 6e 65 6c 22 | 28 41 4e 61 6d 65 24 2c |"Kernel"|(AName$,|
|00000a60| 20 4b 4e 61 6d 65 24 2c | 20 52 65 70 6c 24 29 20 | KName$,| Repl$) |
|00000a70| 41 73 20 49 6e 74 65 67 | 65 72 0a 0a 53 75 62 20 |As Integ|er..Sub |
|00000a80| 4d 41 49 4e 0a 20 20 27 | 20 54 68 69 73 20 70 72 |MAIN.  '| This pr|
|00000a90| 6f 63 65 64 75 72 65 20 | 64 65 74 65 72 6d 69 6e |ocedure |determin|
|00000aa0| 65 73 20 74 68 65 20 64 | 69 72 65 63 74 6f 72 79 |es the d|irectory|
|00000ab0| 20 70 61 74 68 20 6f 66 | 20 74 68 65 20 6c 61 73 | path of| the las|
|00000ac0| 74 20 66 69 6c 65 20 6f | 70 65 6e 65 64 2e 0a 20 |t file o|pened.. |
|00000ad0| 20 27 20 49 74 20 74 68 | 65 6e 20 77 72 69 74 65 | ' It th|en write|
|00000ae0| 73 20 74 68 65 20 70 61 | 74 68 20 74 6f 20 74 68 |s the pa|th to th|
|00000af0| 65 20 44 65 66 61 75 6c | 74 44 69 72 65 63 74 6f |e Defaul|tDirecto|
|00000b00| 72 79 20 65 6e 74 72 79 | 20 69 6e 20 74 68 65 20 |ry entry| in the |
|00000b10| 57 49 4e 2e 49 4e 49 2e | 0a 0a 20 20 41 4e 61 6d |WIN.INI.|..  ANam|
|00000b20| 65 24 20 3d 20 22 4d 69 | 63 72 6f 73 6f 66 74 20 |e$ = "Mi|crosoft |
|00000b30| 57 6f 72 64 22 20 20 20 | 20 20 20 20 20 20 20 20 |Word"   |        |
|00000b40| 20 20 20 20 20 27 20 53 | 65 74 20 41 70 70 6c 69 |     ' S|et Appli|
|00000b50| 63 61 74 69 6f 6e 20 4e | 61 6d 65 2e 0a 20 20 4b |cation N|ame..  K|
|00000b60| 4e 61 6d 65 24 20 3d 20 | 22 44 65 66 61 75 6c 74 |Name$ = |"Default|
|00000b70| 44 69 72 65 63 74 6f 72 | 79 22 20 20 20 20 20 20 |Director|y"      |
|00000b80| 20 20 20 20 20 20 20 20 | 27 20 53 65 74 20 4b 65 |        |' Set Ke|
|00000b90| 79 20 4e 61 6d 65 2e 0a | 20 20 52 65 70 6c 24 20 |y Name..|  Repl$ |
|00000ba0| 3d 20 22 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |= ""    |        |
|00000bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000bc0| 20 20 20 27 20 49 6e 69 | 74 69 61 6c 69 7a 65 20 |   ' Ini|tialize |
|00000bd0| 72 65 70 6c 61 63 65 6d | 65 6e 74 20 73 74 72 69 |replacem|ent stri|
|00000be0| 6e 67 2e 0a 20 20 4c 61 | 73 74 46 69 6c 65 24 20 |ng..  La|stFile$ |
|00000bf0| 3d 20 46 69 6c 65 4e 61 | 6d 65 24 28 31 29 20 20 |= FileNa|me$(1)  |
|00000c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 27 |        |       '|
|00000c10| 20 47 65 74 20 70 61 74 | 68 20 6f 66 20 6c 61 73 | Get pat|h of las|
|00000c20| 74 20 66 69 6c 65 20 6f | 70 65 6e 65 64 2e 0a 20 |t file o|pened.. |
|00000c30| 20 49 20 3d 20 4c 65 6e | 28 4c 61 73 74 46 69 6c | I = Len|(LastFil|
|00000c40| 65 24 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e$)     |        |
|00000c50| 20 20 20 20 20 20 20 20 | 20 20 27 20 47 65 74 20 |        |  ' Get |
|00000c60| 6c 65 6e 67 74 68 20 6f | 66 20 66 69 6c 65 73 70 |length o|f filesp|
|00000c70| 65 63 2e 0a 20 20 57 68 | 69 6c 65 20 52 65 70 6c |ec..  Wh|ile Repl|
|00000c80| 24 20 3d 20 22 22 0a 20 | 20 20 20 49 66 20 4d 69 |$ = "". |   If Mi|
|00000c90| 64 24 28 4c 61 73 74 46 | 69 6c 65 24 2c 20 49 2c |d$(LastF|ile$, I,|
|00000ca0| 20 31 29 20 3d 20 22 5c | 22 20 54 68 65 6e 20 20 | 1) = "\|" Then  |
|00000cb0| 20 20 27 20 53 74 61 72 | 74 69 6e 67 20 66 72 6f |  ' Star|ting fro|
|00000cc0| 6d 20 74 68 65 20 72 69 | 67 68 74 2c 0a 20 20 20 |m the ri|ght,.   |
|00000cd0| 20 20 20 52 65 70 6c 24 | 20 3d 20 4c 65 66 74 24 |   Repl$| = Left$|
|00000ce0| 28 4c 61 73 74 46 69 6c | 65 24 2c 20 49 20 2d 20 |(LastFil|e$, I - |
|00000cf0| 31 29 20 20 20 20 20 20 | 27 20 6c 6f 6f 6b 20 66 |1)      |' look f|
|00000d00| 6f 72 20 74 68 65 20 6c | 61 73 74 20 64 69 72 65 |or the l|ast dire|
|00000d10| 63 74 6f 72 79 0a 20 20 | 20 20 45 6e 64 20 49 66 |ctory.  |  End If|
|00000d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d40| 20 27 20 64 65 6c 69 6d | 69 74 65 72 20 28 5c 29 | ' delim|iter (\)|
|00000d50| 2e 20 54 61 6b 65 20 65 | 76 65 72 79 74 68 69 6e |. Take e|verythin|
|00000d60| 67 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |g.      |        |
|00000d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 27 20 74 |        |     ' t|
|00000d90| 6f 20 74 68 65 20 6c 65 | 66 74 20 6f 66 20 74 68 |o the le|ft of th|
|00000da0| 65 20 64 65 6c 69 6d 69 | 74 65 72 0a 20 20 20 20 |e delimi|ter.    |
|00000db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000dd0| 20 20 20 20 20 20 20 27 | 20 66 6f 72 20 74 68 65 |       '| for the|
|00000de0| 20 70 61 74 68 2e 0a 20 | 20 20 20 49 20 3d 20 49 | path.. |   I = I|
|00000df0| 20 2d 20 31 0a 20 20 57 | 65 6e 64 0a 20 20 58 20 | - 1.  W|end.  X |
|00000e00| 3d 20 57 72 69 74 65 50 | 72 6f 66 69 6c 65 53 74 |= WriteP|rofileSt|
|00000e10| 72 69 6e 67 28 41 4e 61 | 6d 65 24 2c 20 4b 4e 61 |ring(ANa|me$, KNa|
|00000e20| 6d 65 24 2c 20 52 65 70 | 6c 24 29 20 20 20 27 20 |me$, Rep|l$)   ' |
|00000e30| 57 72 69 74 65 20 74 6f | 20 57 49 4e 2e 49 4e 49 |Write to| WIN.INI|
|00000e40| 20 66 69 6c 65 2e 0a 45 | 6e 64 20 53 75 62 0a 2d | file..E|nd Sub.-|
|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 43 6f 64 65 20 45 |--------|--Code E|
|00000e70| 6e 64 73 20 48 65 72 65 | 2d 2d 2d 2d 2d 2d 2d 2d |nds Here|--------|
|00000e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0a 0a 2d 2d 20 |--------|---..-- |
|00000ea0| 0a 46 72 65 64 65 72 69 | 63 6b 20 46 2e 20 46 72 |.Frederi|ck F. Fr|
|00000eb0| 65 65 6c 61 6e 64 20 4a | 72 2e 20 20 20 20 20 20 |eeland J|r.      |
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ed0| 20 20 22 4f 66 20 61 6c | 6c 20 74 68 65 20 74 68 |  "Of al|l the th|
|00000ee0| 69 6e 67 73 20 49 27 76 | 65 20 6c 6f 73 74 2c 20 |ings I'v|e lost, |
|00000ef0| 20 4d 69 63 72 6f 73 6f | 66 74 20 43 6f 72 70 6f | Microso|ft Corpo|
|00000f00| 72 61 74 69 6f 6e 20 20 | 20 20 20 20 20 20 20 20 |ration  |        |
|00000f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f20| 20 20 20 20 20 49 20 6d | 69 73 73 20 6d 79 20 6d |     I m|iss my m|
|00000f30| 69 6e 64 20 74 68 65 20 | 6d 6f 73 74 21 22 20 20 |ind the |most!"  |
|00000f40| 20 4f 6e 65 20 4d 69 63 | 72 6f 73 6f 66 74 20 57 | One Mic|rosoft W|
|00000f50| 61 79 20 20 0a 52 65 64 | 6d 6f 6e 64 2c 20 57 41 |ay  .Red|mond, WA|
|00000f60| 20 39 38 30 35 32 20 28 | 32 30 36 29 20 38 38 32 | 98052 (|206) 882|
|00000f70| 2d 38 30 38 30 20 20 20 | 20 20 20 20 20 20 20 20 |-8080   |        |
|00000f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ff0| 20 20 20 20 20 69 6e 74 | 65 72 6e 65 74 3a 20 66 |     int|ernet: f|
|00001000| 72 65 64 66 40 6d 69 63 | 72 6f 73 6f 66 74 2e 62 |redf@mic|rosoft.b|
|00001010| 65 61 76 65 72 2e 77 61 | 73 68 69 6e 67 74 6f 6e |eaver.wa|shington|
|00001020| 2e 45 44 55 20 20 20 20 | 20 20 20 20 20 20 20 20 |.EDU    |        |
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001040| 20 20 20 20 20 61 72 70 | 61 6e 65 74 3a 20 20 66 |     arp|anet:  f|
|00001050| 72 65 64 66 25 6d 69 63 | 72 6f 73 6f 66 74 40 75 |redf%mic|rosoft@u|
|00001060| 77 2d 62 65 61 76 65 72 | 2e 41 52 50 41 0a 75 75 |w-beaver|.ARPA.uu|
|00001070| 63 70 3a 20 20 20 20 20 | 75 75 6e 65 74 21 6d 69 |cp:     |uunet!mi|
|00001080| 63 72 6f 73 6f 66 74 21 | 66 72 65 64 66 20 20 20 |crosoft!|fredf   |
|00001090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4f 70 |        |      Op|
|00001110| 69 6e 69 6f 6e 73 20 65 | 78 70 72 65 73 73 65 64 |inions e|xpressed|
|00001120| 20 6f 76 65 72 20 74 68 | 69 73 20 73 69 67 6e 61 | over th|is signa|
|00001130| 74 75 72 65 20 61 72 65 | 20 6d 79 20 4f 57 4e 20 |ture are| my OWN |
|00001140| 61 6e 64 20 6e 6f 74 20 | 74 68 6f 73 65 20 6f 66 |and not |those of|
|00001150| 20 6d 79 20 65 6d 70 6c | 6f 79 65 72 21 20 0a 0a | my empl|oyer! ..|
+--------+-------------------------+-------------------------+--------+--------+