home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-02-10 | 3.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.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1a 24 52 24 44 24 43 24 | 30 00 24 3a 34 32 47 47 |.$R$D$C$|0.$:42GG|
|00000010| 47 24 59 1c 12 0e 05 00 | d4 29 c8 53 cd 35 2c e5 |G$Y.....|.).S.5,.|
|00000020| 4c 00 00 00 30 00 00 00 | 00 00 00 00 00 00 00 00 |L...0...|........|
|00000030| db d8 b3 de dd cf bc 1c | 61 0e bd 24 55 8e 1b c9 |........|a..$U...|
|00000040| 58 55 54 49 4c 27 2c 20 | 27 53 79 73 4c 6f 61 64 |XUTIL', |'SysLoad|
|00000050| 46 75 6e 63 73 27 0d 0a | 63 61 6c 6c 20 73 79 73 |Funcs'..|call sys|
|00000060| 6c 6f 61 64 66 75 6e 63 | 73 0d 0a 0d 0a 73 61 79 |loadfunc|s....say|
|00000070| 20 27 54 68 69 73 20 75 | 74 69 6c 69 74 79 20 77 | 'This u|tility w|
|00000080| 69 6c 6c 20 63 72 65 61 | 74 65 20 61 20 66 6f 6c |ill crea|te a fol|
|00000090| 64 65 72 20 61 6e 64 20 | 72 65 6c 61 74 65 64 20 |der and |related |
|000000a0| 70 72 6f 67 72 61 6d 20 | 69 63 6f 6e 73 20 66 6f |program |icons fo|
|000000b0| 72 20 49 42 4d 20 57 6f | 72 6b 73 2e 27 0d 0a 73 |r IBM Wo|rks.'..s|
|000000c0| 61 79 20 27 49 6e 20 6f | 72 64 65 72 20 74 6f 20 |ay 'In o|rder to |
|000000d0| 66 75 6e 63 74 69 6f 6e | 20 63 6f 72 72 65 63 74 |function| correct|
|000000e0| 6c 79 2c 20 79 6f 75 20 | 73 68 6f 75 6c 64 20 72 |ly, you |should r|
|000000f0| 75 6e 20 74 68 69 73 20 | 75 74 69 6c 69 74 79 20 |un this |utility |
|00000100| 66 72 6f 6d 20 74 68 65 | 27 0d 0a 73 61 79 20 27 |from the|'..say '|
|00000110| 49 42 4d 20 57 6f 72 6b | 73 20 49 6e 73 74 61 6c |IBM Work|s Instal|
|00000120| 6c 61 74 69 6f 6e 20 44 | 69 73 6b 20 31 2e 20 20 |lation D|isk 1. |
|00000130| 59 6f 75 20 77 69 6c 6c | 20 62 65 20 70 72 6f 6d |You will| be prom|
|00000140| 70 74 65 64 20 66 6f 72 | 20 74 68 65 20 64 69 72 |pted for| the dir|
|00000150| 65 63 74 6f 72 79 27 0d | 0a 73 61 79 20 27 77 68 |ectory'.|.say 'wh|
|00000160| 65 72 65 20 49 42 4d 57 | 4f 52 4b 53 2e 45 58 45 |ere IBMW|ORKS.EXE|
|00000170| 20 72 65 73 69 64 65 73 | 2e 20 20 46 6f 72 20 62 | resides|. For b|
|00000180| 6f 74 68 20 6e 6f 72 6d | 61 6c 20 61 6e 64 20 72 |oth norm|al and r|
|00000190| 65 6d 6f 74 65 20 69 6e | 73 74 61 6c 6c 61 74 69 |emote in|stallati|
|000001a0| 6f 6e 73 27 0d 0a 73 61 | 79 20 27 74 68 69 73 20 |ons'..sa|y 'this |
|000001b0| 77 69 6c 6c 20 62 65 20 | 74 68 65 20 6c 6f 63 61 |will be |the loca|
|000001c0| 6c 20 49 42 4d 20 57 6f | 72 6b 73 20 64 69 72 65 |l IBM Wo|rks dire|
|000001d0| 63 74 6f 72 79 2e 27 0d | 0a 73 61 79 20 0d 0a 0d |ctory.'.|.say ...|
|000001e0| 0a 70 61 72 73 65 20 73 | 6f 75 72 63 65 20 76 31 |.parse s|ource v1|
|000001f0| 20 76 32 20 63 6d 64 66 | 69 6c 65 0d 0a 6e 20 3d | v2 cmdf|ile..n =|
|00000200| 20 6c 65 6e 67 74 68 28 | 63 6d 64 66 69 6c 65 29 | length(|cmdfile)|
|00000210| 0d 0a 64 6f 20 66 6f 72 | 65 76 65 72 0d 0a 20 20 |..do for|ever.. |
|00000220| 20 69 66 20 73 75 62 73 | 74 72 28 63 6d 64 66 69 | if subs|tr(cmdfi|
|00000230| 6c 65 2c 20 6e 2c 20 31 | 29 20 3d 20 27 5c 27 20 |le, n, 1|) = '\' |
|00000240| 74 68 65 6e 20 6c 65 61 | 76 65 0d 0a 20 20 20 6e |then lea|ve.. n|
|00000250| 20 3d 20 6e 20 2d 20 31 | 0d 0a 65 6e 64 0d 0a 63 | = n - 1|..end..c|
|00000260| 6d 64 70 61 74 68 20 3d | 20 73 75 62 73 74 72 28 |mdpath =| substr(|
|00000270| 63 6d 64 66 69 6c 65 2c | 20 31 2c 20 6e 29 0d 0a |cmdfile,| 1, n)..|
|00000280| 0d 0a 63 61 6c 6c 20 53 | 79 73 46 69 6c 65 54 72 |..call S|ysFileTr|
|00000290| 65 65 20 63 6d 64 70 61 | 74 68 27 77 70 2e 69 63 |ee cmdpa|th'wp.ic|
|000002a0| 6f 27 2c 20 27 66 69 6c | 65 27 2c 20 27 46 4f 27 |o', 'fil|e', 'FO'|
|000002b0| 0d 0a 69 66 20 66 69 6c | 65 2e 30 20 3d 3d 20 30 |..if fil|e.0 == 0|
|000002c0| 20 74 68 65 6e 0d 0a 64 | 6f 0d 0a 20 20 20 73 61 | then..d|o.. sa|
|000002d0| 79 20 22 2a 2a 2a 20 43 | 61 6e 6e 6f 74 20 66 69 |y "*** C|annot fi|
|000002e0| 6e 64 20 57 50 2e 49 43 | 4f 20 69 6e 20 63 75 72 |nd WP.IC|O in cur|
|000002f0| 72 65 6e 74 20 64 69 72 | 65 63 74 6f 72 79 2e 20 |rent dir|ectory. |
|00000300| 20 4d 61 6b 65 20 73 75 | 72 65 20 79 6f 75 22 0d | Make su|re you".|
|00000310| 0a 20 20 20 73 61 79 20 | 22 2a 2a 2a 20 61 72 65 |. say |"*** are|
|00000320| 20 72 75 6e 6e 69 6e 67 | 20 74 68 69 73 20 75 74 | running| this ut|
|00000330| 69 6c 69 74 79 20 66 72 | 6f 6d 20 74 68 65 20 49 |ility fr|om the I|
|00000340| 42 4d 20 57 6f 72 6b 73 | 20 49 6e 73 74 61 6c 6c |BM Works| Install|
|00000350| 61 74 69 6f 6e 20 44 69 | 73 6b 20 31 2e 22 0d 0a |ation Di|sk 1."..|
|00000360| 20 20 20 65 78 69 74 0d | 0a 65 6e 64 0d 0a 0d 0a | exit.|.end....|
|00000370| 64 6f 20 66 6f 72 65 76 | 65 72 0d 0a 20 20 20 73 |do forev|er.. s|
|00000380| 61 79 20 27 45 6e 74 65 | 72 20 74 68 65 20 66 75 |ay 'Ente|r the fu|
|00000390| 6c 6c 20 70 61 74 68 20 | 77 68 65 72 65 20 49 42 |ll path |where IB|
|000003a0| 4d 57 4f 52 4b 53 2e 45 | 58 45 20 69 73 20 69 6e |MWORKS.E|XE is in|
|000003b0| 73 74 61 6c 6c 65 64 20 | 28 6f 72 20 43 52 20 74 |stalled |(or CR t|
|000003c0| 6f 20 71 75 69 74 29 3a | 27 0d 0a 20 20 20 70 61 |o quit):|'.. pa|
|000003d0| 72 73 65 20 70 75 6c 6c | 20 70 61 74 68 0d 0a 20 |rse pull| path.. |
|000003e0| 20 20 69 66 20 70 61 74 | 68 20 3d 3d 20 27 27 20 | if pat|h == '' |
|000003f0| 74 68 65 6e 20 65 78 69 | 74 0d 0a 20 20 20 65 78 |then exi|t.. ex|
|00000400| 65 70 61 74 68 20 3d 20 | 73 74 72 69 70 28 70 61 |epath = |strip(pa|
|00000410| 74 68 2c 20 27 54 27 2c | 20 27 5c 27 29 7c 7c 27 |th, 'T',| '\')||'|
|00000420| 5c 27 0d 0a 0d 0a 20 20 | 20 63 61 6c 6c 20 53 79 |\'.... | call Sy|
|00000430| 73 46 69 6c 65 54 72 65 | 65 20 65 78 65 70 61 74 |sFileTre|e exepat|
|00000440| 68 27 69 62 6d 77 6f 72 | 6b 73 2e 65 78 65 27 2c |h'ibmwor|ks.exe',|
|00000450| 20 27 66 69 6c 65 27 2c | 20 27 46 4f 27 0d 0a 20 | 'file',| 'FO'.. |
|00000460| 20 20 69 66 20 66 69 6c | 65 2e 30 20 3d 3d 20 30 | if fil|e.0 == 0|
|00000470| 20 0d 0a 20 20 20 20 20 | 20 74 68 65 6e 20 73 61 | .. | then sa|
|00000480| 79 20 27 2a 2a 2a 20 43 | 61 6e 6e 6f 74 20 66 69 |y '*** C|annot fi|
|00000490| 6e 64 20 27 65 78 65 70 | 61 74 68 27 69 62 6d 77 |nd 'exep|ath'ibmw|
|000004a0| 6f 72 6b 73 2e 65 78 65 | 27 0d 0a 20 20 20 20 20 |orks.exe|'.. |
|000004b0| 20 65 6c 73 65 20 6c 65 | 61 76 65 0d 0a 65 6e 64 | else le|ave..end|
|000004c0| 0d 0a 0d 0a 0d 0a 73 61 | 79 20 27 43 72 65 61 74 |......sa|y 'Creat|
|000004d0| 69 6e 67 20 49 42 4d 20 | 57 6f 72 6b 73 20 46 6f |ing IBM |Works Fo|
|000004e0| 6c 64 65 72 27 0d 0a 63 | 61 6c 6c 20 53 79 73 43 |lder'..c|all SysC|
|000004f0| 72 65 61 74 65 4f 62 6a | 65 63 74 20 27 57 50 46 |reateObj|ect 'WPF|
|00000500| 6f 6c 64 65 72 27 2c 20 | 27 49 42 4d 20 57 6f 72 |older', |'IBM Wor|
|00000510| 6b 73 27 2c 20 27 3c 57 | 50 5f 44 45 53 4b 54 4f |ks', '<W|P_DESKTO|
|00000520| 50 3e 27 2c 27 49 43 4f | 4e 46 49 4c 45 3d 27 63 |P>','ICO|NFILE='c|
|00000530| 6d 64 70 61 74 68 27 49 | 42 4d 57 4f 52 4b 53 2e |mdpath'I|BMWORKS.|
|00000540| 49 43 4f 3b 4f 42 4a 45 | 43 54 49 44 3d 3c 57 50 |ICO;OBJE|CTID=<WP|
|00000550| 5f 49 42 4d 57 4f 52 4b | 53 5f 46 4f 4c 44 3e 27 |_IBMWORK|S_FOLD>'|
|00000560| 2c 27 52 45 50 4c 41 43 | 45 27 0d 0a 0d 0a 73 61 |,'REPLAC|E'....sa|
|00000570| 79 20 27 43 72 65 61 74 | 69 6e 67 20 54 65 6d 70 |y 'Creat|ing Temp|
|00000580| 6c 61 74 65 73 27 0d 0a | 63 61 6c 6c 20 53 79 73 |lates'..|call Sys|
|00000590| 43 72 65 61 74 65 4f 62 | 6a 65 63 74 20 27 57 50 |CreateOb|ject 'WP|
|000005a0| 44 61 74 61 46 69 6c 65 | 27 2c 20 27 42 6c 61 6e |DataFile|', 'Blan|
|000005b0| 6b 2e 4c 52 50 27 2c 20 | 27 3c 57 50 5f 49 42 4d |k.LRP', |'<WP_IBM|
|000005c0| 57 4f 52 4b 53 5f 46 4f | 4c 44 3e 27 2c 27 49 43 |WORKS_FO|LD>','IC|
|000005d0| 4f 4e 46 49 4c 45 3d 27 | 63 6d 64 70 61 74 68 27 |ONFILE='|cmdpath'|
|000005e0| 52 57 2e 49 43 4f 3b 41 | 53 53 4f 43 54 59 50 45 |RW.ICO;A|SSOCTYPE|
|000005f0| 3d 49 42 4d 57 6f 72 6b | 73 20 52 57 3b 54 45 4d |=IBMWork|s RW;TEM|
|00000600| 50 4c 41 54 45 3d 59 45 | 53 3b 4f 42 4a 45 43 54 |PLATE=YE|S;OBJECT|
|00000610| 49 44 3d 3c 57 50 5f 49 | 42 4d 57 4f 52 4b 53 5f |ID=<WP_I|BMWORKS_|
|00000620| 52 57 54 45 4d 50 3e 27 | 2c 20 27 52 45 50 4c 41 |RWTEMP>'|, 'REPLA|
|00000630| 43 45 27 20 20 20 20 0d | 0a 63 61 6c 6c 20 53 79 |CE' .|.call Sy|
|00000640| 73 43 72 65 61 74 65 4f | 62 6a 65 63 74 20 27 57 |sCreateO|bject 'W|
|00000650| 50 44 61 74 61 46 69 6c | 65 27 2c 20 27 42 6c 61 |PDataFil|e', 'Bla|
|00000660| 6e 6b 2e 4c 44 46 27 2c | 20 27 3c 57 50 5f 49 42 |nk.LDF',| '<WP_IB|
|00000670| 4d 57 4f 52 4b 53 5f 46 | 4f 4c 44 3e 27 2c 27 49 |MWORKS_F|OLD>','I|
|00000680| 43 4f 4e 46 49 4c 45 3d | 27 63 6d 64 70 61 74 68 |CONFILE=|'cmdpath|
|00000690| 27 44 42 2e 49 43 4f 3b | 41 53 53 4f 43 54 59 50 |'DB.ICO;|ASSOCTYP|
|000006a0| 45 3d 49 42 4d 57 6f 72 | 6b 73 20 44 42 3b 54 45 |E=IBMWor|ks DB;TE|
|000006b0| 4d 50 4c 41 54 45 3d 59 | 45 53 3b 4f 42 4a 45 43 |MPLATE=Y|ES;OBJEC|
|000006c0| 54 49 44 3d 3c 57 50 5f | 49 42 4d 57 4f 52 4b 53 |TID=<WP_|IBMWORKS|
|000006d0| 5f 44 42 54 45 4d 50 3e | 27 2c 20 27 52 45 50 4c |_DBTEMP>|', 'REPL|
|000006e0| 41 43 45 27 20 20 20 20 | 0d 0a 63 61 6c 6c 20 53 |ACE' |..call S|
|000006f0| 79 73 43 72 65 61 74 65 | 4f 62 6a 65 63 74 20 27 |ysCreate|Object '|
|00000700| 57 50 44 61 74 61 46 69 | 6c 65 27 2c 20 27 42 6c |WPDataFi|le', 'Bl|
|00000710| 61 6e 6b 2e 4c 43 48 27 | 2c 20 27 3c 57 50 5f 49 |ank.LCH'|, '<WP_I|
|00000720| 42 4d 57 4f 52 4b 53 5f | 46 4f 4c 44 3e 27 2c 27 |BMWORKS_|FOLD>','|
|00000730| 49 43 4f 4e 46 49 4c 45 | 3d 27 63 6d 64 70 61 74 |ICONFILE|='cmdpat|
|00000740| 68 27 43 48 2e 49 43 4f | 3b 41 53 53 4f 43 54 59 |h'CH.ICO|;ASSOCTY|
|00000750| 50 45 3d 49 42 4d 57 6f | 72 6b 73 20 43 48 3b 54 |PE=IBMWo|rks CH;T|
|00000760| 45 4d 50 4c 41 54 45 3d | 59 45 53 3b 4f 42 4a 45 |EMPLATE=|YES;OBJE|
|00000770| 43 54 49 44 3d 3c 57 50 | 5f 49 42 4d 57 4f 52 4b |CTID=<WP|_IBMWORK|
|00000780| 53 5f 43 48 54 45 4d 50 | 3e 27 2c 20 27 52 45 50 |S_CHTEMP|>', 'REP|
|00000790| 4c 41 43 45 27 20 20 20 | 20 0d 0a 63 61 6c 6c 20 |LACE' | ..call |
|000007a0| 53 79 73 43 72 65 61 74 | 65 4f 62 6a 65 63 74 20 |SysCreat|eObject |
|000007b0| 27 57 50 44 61 74 61 46 | 69 6c 65 27 2c 20 27 42 |'WPDataF|ile', 'B|
|000007c0| 6c 61 6e 6b 2e 4c 53 53 | 27 2c 20 27 3c 57 50 5f |lank.LSS|', '<WP_|
|000007d0| 49 42 4d 57 4f 52 4b 53 | 5f 46 4f 4c 44 3e 27 2c |IBMWORKS|_FOLD>',|
|000007e0| 27 49 43 4f 4e 46 49 4c | 45 3d 27 63 6d 64 70 61 |'ICONFIL|E='cmdpa|
|000007f0| 74 68 27 53 53 2e 49 43 | 4f 3b 41 53 53 4f 43 54 |th'SS.IC|O;ASSOCT|
|00000800| 9d 36 0c 36 7b 1c 4e 48 | d4 47 cf 1f 52 93 86 ff |.6.6{.NH|.G..R...|
|00000810| 4d 8a 06 3a 7f 9b a7 52 | ff a7 08 d2 e4 03 a6 b1 |M..:...R|........|
|00000820| 8a d6 00 0b 4b 2b 8f 75 | cb 4f 06 3b f7 28 64 27 |....K+.u|.O.;.(d'|
|00000830| 64 70 7c 97 d9 62 a5 ec | 9b 36 07 e4 ce f0 11 82 |dp|..b..|.6......|
|00000840| 50 4c 41 43 45 27 20 20 | 20 20 0d 0a 63 61 6c 6c |PLACE' | ..call|
|00000850| 20 53 79 73 43 72 65 61 | 74 65 4f 62 6a 65 63 74 | SysCrea|teObject|
|00000860| 20 27 57 50 44 61 74 61 | 46 69 6c 65 27 2c 20 27 | 'WPData|File', '|
|00000870| 42 6c 61 6e 6b 2e 4c 57 | 50 27 2c 20 27 3c 57 50 |Blank.LW|P', '<WP|
|00000880| 5f 49 42 4d 57 4f 52 4b | 53 5f 46 4f 4c 44 3e 27 |_IBMWORK|S_FOLD>'|
|00000890| 2c 27 49 43 4f 4e 46 49 | 4c 45 3d 27 63 6d 64 70 |,'ICONFI|LE='cmdp|
|000008a0| 61 74 68 27 57 50 2e 49 | 43 4f 3b 41 53 53 4f 43 |ath'WP.I|CO;ASSOC|
|000008b0| 54 59 50 45 3d 49 42 4d | 57 6f 72 6b 73 20 57 50 |TYPE=IBM|Works WP|
|000008c0| 3b 54 45 4d 50 4c 41 54 | 45 3d 59 45 53 3b 4f 42 |;TEMPLAT|E=YES;OB|
|000008d0| 4a 45 43 54 49 44 3d 3c | 57 50 5f 49 42 4d 57 4f |JECTID=<|WP_IBMWO|
|000008e0| 52 4b 53 5f 57 50 54 45 | 4d 50 3e 27 2c 20 27 52 |RKS_WPTE|MP>', 'R|
|000008f0| 45 50 4c 41 43 45 27 20 | 20 0d 0a 0d 0a 73 61 79 |EPLACE' | ....say|
|00000900| 20 27 53 65 74 74 69 6e | 67 20 45 78 74 65 6e 64 | 'Settin|g Extend|
|00000910| 65 64 20 41 74 74 72 69 | 62 75 74 65 73 27 0d 0a |ed Attri|butes'..|
|00000920| 63 61 6c 6c 20 53 79 73 | 49 6e 69 20 27 53 59 53 |call Sys|Ini 'SYS|
|00000930| 54 45 4d 27 2c 20 27 46 | 6f 6c 64 65 72 57 6f 72 |TEM', 'F|olderWor|
|00000940| 6b 61 72 65 61 52 75 6e | 6e 69 6e 67 4f 62 6a 65 |kareaRun|ningObje|
|00000950| 63 74 73 27 2c 20 27 41 | 6c 6c 3a 27 2c 20 27 64 |cts', 'A|ll:', 'd|
|00000960| 65 73 6b 74 6f 70 2e 27 | 0d 0a 0d 0a 66 69 6c 65 |esktop.'|....file|
|00000970| 20 3d 20 64 65 73 6b 74 | 6f 70 2e 31 27 5c 69 62 | = deskt|op.1'\ib|
|00000980| 6d 5f 77 6f 72 6b 5c 62 | 6c 61 6e 6b 2e 6c 77 70 |m_work\b|lank.lwp|
|00000990| 27 0d 0a 74 79 70 65 20 | 3d 20 27 49 42 4d 57 6f |'..type |= 'IBMWo|
|000009a0| 72 6b 73 20 57 50 27 0d | 0a 63 61 6c 6c 20 53 79 |rks WP'.|.call Sy|
|000009b0| 73 50 75 74 45 61 20 66 | 69 6c 65 2c 20 27 2e 54 |sPutEa f|ile, '.T|
|000009c0| 59 50 45 27 2c 20 27 44 | 46 46 46 30 30 30 30 30 |YPE', 'D|FFF00000|
|000009d0| 31 30 30 46 44 46 46 27 | 78 7c 7c 64 32 63 28 6c |100FDFF'|x||d2c(l|
|000009e0| 65 6e 67 74 68 28 74 79 | 70 65 29 29 7c 7c 27 30 |ength(ty|pe))||'0|
|000009f0| 30 27 78 7c 7c 74 79 70 | 65 0d 0a 0d 0a 66 69 6c |0'x||typ|e....fil|
|00000a00| 65 20 3d 20 64 65 73 6b | 74 6f 70 2e 31 27 5c 69 |e = desk|top.1'\i|
|00000a10| 62 6d 5f 77 6f 72 6b 5c | 62 6c 61 6e 6b 2e 6c 73 |bm_work\|blank.ls|
|00000a20| 73 27 0d 0a 74 79 70 65 | 20 3d 20 27 49 42 4d 57 |s'..type| = 'IBMW|
|00000a30| 6f 72 6b 73 20 53 53 27 | 0d 0a 63 61 6c 6c 20 53 |orks SS'|..call S|
|00000a40| 79 73 50 75 74 45 61 20 | 66 69 6c 65 2c 20 27 2e |ysPutEa |file, '.|
|00000a50| 54 59 50 45 27 2c 20 27 | 44 46 46 46 30 30 30 30 |TYPE', '|DFFF0000|
|00000a60| 30 31 30 30 46 44 46 46 | 27 78 7c 7c 64 32 63 28 |0100FDFF|'x||d2c(|
|00000a70| 6c 65 6e 67 74 68 28 74 | 79 70 65 29 29 7c 7c 27 |length(t|ype))||'|
|00000a80| 30 30 27 78 7c 7c 74 79 | 70 65 0d 0a 0d 0a 66 69 |00'x||ty|pe....fi|
|00000a90| 6c 65 20 3d 20 64 65 73 | 6b 74 6f 70 2e 31 27 5c |le = des|ktop.1'\|
|00000aa0| 69 62 6d 5f 77 6f 72 6b | 5c 62 6c 61 6e 6b 2e 6c |ibm_work|\blank.l|
|00000ab0| 63 68 27 0d 0a 74 79 70 | 65 20 3d 20 27 49 42 4d |ch'..typ|e = 'IBM|
|00000ac0| 57 6f 72 6b 73 20 43 48 | 27 0d 0a 63 61 6c 6c 20 |Works CH|'..call |
|00000ad0| 53 79 73 50 75 74 45 61 | 20 66 69 6c 65 2c 20 27 |SysPutEa| file, '|
|00000ae0| 2e 54 59 50 45 27 2c 20 | 27 44 46 46 46 30 30 30 |.TYPE', |'DFFF000|
|00000af0| 30 30 31 30 30 46 44 46 | 46 27 78 7c 7c 64 32 63 |00100FDF|F'x||d2c|
|00000b00| 28 6c 65 6e 67 74 68 28 | 74 79 70 65 29 29 7c 7c |(length(|type))|||
|00000b10| 27 30 30 27 78 7c 7c 74 | 79 70 65 0d 0a 0d 0a 66 |'00'x||t|ype....f|
|00000b20| 69 6c 65 20 3d 20 64 65 | 73 6b 74 6f 70 2e 31 27 |ile = de|sktop.1'|
|00000b30| 5c 69 62 6d 5f 77 6f 72 | 6b 5c 62 6c 61 6e 6b 2e |\ibm_wor|k\blank.|
|00000b40| 6c 64 66 27 0d 0a 74 79 | 70 65 20 3d 20 27 49 42 |ldf'..ty|pe = 'IB|
|00000b50| 4d 57 6f 72 6b 73 20 44 | 42 27 0d 0a 63 61 6c 6c |MWorks D|B'..call|
|00000b60| 20 53 79 73 50 75 74 45 | 61 20 66 69 6c 65 2c 20 | SysPutE|a file, |
|00000b70| 27 2e 54 59 50 45 27 2c | 20 27 44 46 46 46 30 30 |'.TYPE',| 'DFFF00|
|00000b80| 30 30 30 31 30 30 46 44 | 46 46 27 78 7c 7c 64 32 |000100FD|FF'x||d2|
|00000b90| 63 28 6c 65 6e 67 74 68 | 28 74 79 70 65 29 29 7c |c(length|(type))||
|00000ba0| 7c 27 30 30 27 78 7c 7c | 74 79 70 65 0d 0a 0d 0a ||'00'x|||type....|
|00000bb0| 66 69 6c 65 20 3d 20 64 | 65 73 6b 74 6f 70 2e 31 |file = d|esktop.1|
|00000bc0| 27 5c 69 62 6d 5f 77 6f | 72 6b 5c 62 6c 61 6e 6b |'\ibm_wo|rk\blank|
|00000bd0| 2e 6c 72 70 27 0d 0a 74 | 79 70 65 20 3d 20 27 49 |.lrp'..t|ype = 'I|
|00000be0| 42 4d 57 6f 72 6b 73 20 | 52 57 27 0d 0a 63 61 6c |BMWorks |RW'..cal|
|00000bf0| 6c 20 53 79 73 50 75 74 | 45 61 20 66 69 6c 65 2c |l SysPut|Ea file,|
|00000c00| 20 27 2e 54 59 50 45 27 | 2c 20 27 44 46 46 46 30 | '.TYPE'|, 'DFFF0|
|00000c10| 30 30 30 30 31 30 30 46 | 44 46 46 27 78 7c 7c 64 |0000100F|DFF'x||d|
|00000c20| 32 63 28 6c 65 6e 67 74 | 68 28 74 79 70 65 29 29 |2c(lengt|h(type))|
|00000c30| 7c 7c 27 30 30 27 78 7c | 7c 74 79 70 65 0d 0a 0d |||'00'x|||type...|
|00000c40| 0a 73 61 79 20 27 43 72 | 65 61 74 69 6e 67 20 53 |.say 'Cr|eating S|
|00000c50| 61 6d 70 6c 65 73 20 46 | 6f 6c 64 65 72 27 0d 0a |amples F|older'..|
|00000c60| 63 61 6c 6c 20 53 79 73 | 46 69 6c 65 54 72 65 65 |call Sys|FileTree|
|00000c70| 20 65 78 65 70 61 74 68 | 27 73 61 6d 70 6c 65 73 | exepath|'samples|
|00000c80| 27 2c 20 27 66 69 6c 65 | 27 2c 20 27 44 4f 27 0d |', 'file|', 'DO'.|
|00000c90| 0a 69 66 20 66 69 6c 65 | 2e 30 20 3d 3d 20 31 20 |.if file|.0 == 1 |
|00000ca0| 74 68 65 6e 20 0d 0a 20 | 20 20 63 61 6c 6c 20 53 |then .. | call S|
|00000cb0| 79 73 43 72 65 61 74 65 | 4f 62 6a 65 63 74 20 27 |ysCreate|Object '|
|00000cc0| 57 50 53 68 61 64 6f 77 | 27 2c 20 27 53 61 6d 70 |WPShadow|', 'Samp|
|00000cd0| 6c 65 73 27 2c 20 27 3c | 57 50 5f 49 42 4d 57 4f |les', '<|WP_IBMWO|
|00000ce0| 52 4b 53 5f 46 4f 4c 44 | 3e 27 2c 20 27 53 48 41 |RKS_FOLD|>', 'SHA|
|00000cf0| 44 4f 57 49 44 3d 27 65 | 78 65 70 61 74 68 27 53 |DOWID='e|xepath'S|
|00000d00| 41 4d 50 4c 45 53 3b 4f | 42 4a 45 43 54 49 44 3d |AMPLES;O|BJECTID=|
|00000d10| 3c 57 50 5f 49 42 4d 57 | 4f 52 4b 53 5f 53 41 4d |<WP_IBMW|ORKS_SAM|
|00000d20| 50 3e 27 2c 20 27 52 45 | 50 4c 41 43 45 27 0d 0a |P>', 'RE|PLACE'..|
|00000d30| 0d 0a 73 61 79 20 27 43 | 72 65 61 74 69 6e 67 20 |..say 'C|reating |
|00000d40| 53 68 61 64 6f 77 20 66 | 6f 72 20 52 45 41 44 4d |Shadow f|or READM|
|00000d50| 45 2e 4c 57 50 27 0d 0a | 63 61 6c 6c 20 53 79 73 |E.LWP'..|call Sys|
|00000d60| 43 72 65 61 74 65 4f 62 | 6a 65 63 74 20 27 57 50 |CreateOb|ject 'WP|
|00000d70| 53 68 61 64 6f 77 27 2c | 20 27 52 45 41 44 4d 45 |Shadow',| 'README|
|00000d80| 2e 4c 57 50 27 2c 20 27 | 3c 57 50 5f 49 42 4d 57 |.LWP', '|<WP_IBMW|
|00000d90| 4f 52 4b 53 5f 46 4f 4c | 44 3e 27 2c 20 27 49 43 |ORKS_FOL|D>', 'IC|
|00000da0| 4f 4e 46 49 4c 45 3d 27 | 63 6d 64 70 61 74 68 27 |ONFILE='|cmdpath'|
|00000db0| 57 50 2e 49 43 4f 3b 53 | 48 41 44 4f 57 49 44 3d |WP.ICO;S|HADOWID=|
|00000dc0| 43 3a 5c 49 42 4d 57 52 | 4b 50 4d 5c 52 45 41 44 |C:\IBMWR|KPM\READ|
|00000dd0| 4d 45 2e 4c 57 50 3b 4f | 42 4a 45 43 54 49 44 3d |ME.LWP;O|BJECTID=|
|00000de0| 3c 57 50 5f 49 42 4d 57 | 4f 52 4b 53 5f 52 45 41 |<WP_IBMW|ORKS_REA|
|00000df0| 44 4d 45 3e 27 2c 20 27 | 52 45 50 4c 41 43 45 27 |DME>', '|REPLACE'|
|00000e00| 0d 0a 0d 0a 73 61 79 20 | 27 43 72 65 61 74 69 6e |....say |'Creatin|
|00000e10| 67 20 49 42 4d 20 57 6f | 72 6b 73 20 53 68 61 64 |g IBM Wo|rks Shad|
|00000e20| 6f 77 27 0d 0a 63 61 6c | 6c 20 53 79 73 43 72 65 |ow'..cal|l SysCre|
|00000e30| 61 74 65 4f 62 6a 65 63 | 74 20 27 57 50 50 72 6f |ateObjec|t 'WPPro|
|00000e40| 67 72 61 6d 27 2c 20 27 | 49 42 4d 20 57 6f 72 6b |gram', '|IBM Work|
|00000e50| 73 27 2c 20 27 3c 57 50 | 5f 49 42 4d 57 4f 52 4b |s', '<WP|_IBMWORK|
|00000e60| 53 5f 46 4f 4c 44 3e 27 | 2c 20 27 45 58 45 4e 41 |S_FOLD>'|, 'EXENA|
|00000e70| 4d 45 3d 27 65 78 65 70 | 61 74 68 27 49 42 4d 57 |ME='exep|ath'IBMW|
|00000e80| 4f 52 4b 53 2e 45 58 45 | 3b 4f 42 4a 45 43 54 49 |ORKS.EXE|;OBJECTI|
|00000e90| 44 3d 3c 57 50 5f 49 42 | 4d 57 4f 52 4b 53 5f 45 |D=<WP_IB|MWORKS_E|
|00000ea0| 58 45 3e 27 2c 20 52 45 | 50 4c 41 43 45 0d 0a |XE>', RE|PLACE.. |
+--------+-------------------------+-------------------------+--------+--------+
