/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / win3x / short.arj / DEMODICT.ZIP / PASCAL.SPF

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| f8 7f 2b 7f 7f 2c 2d 7f | 2c 7f 2c 7f 2c 7f 3e 2f |..+..,-.|,.,.,.>/|
|00000010| 5e 16 5a 1e 58 1a 0c 3b | 45 1c 58 16 43 11 4d 0d |^.Z.X..;|E.X.C.M.|
|00000020| 55 7f 2c 7f 2c 7f 2c 7f | 2c 7f 2c 7f 2c 7f 2c 7f |U.,.,.,.|,.,.,.,.|
|00000030| 2c 7f 2c 7f 2c 7f 2c 75 | 4f 0d 49 1e 58 1a 48 5f |,.,.,.,u|O.I.X.H_|
|00000040| 4e 06 2c 7f 2c 7f 2c 7f | 2c 7f 2c 7f 2c 7f 2c 7f |N.,.,.,.|,.,.,.,.|
|00000050| 2c 7f 2c 7f 2c 7f 2c 7f | 2c 7f 2c 7f 2c 7f 2c 7f |,.,.,.,.|,.,.,.,.|
|00000060| 39 2c 44 10 5e 0b 44 1e | 42 1b 0c 19 43 0d 0c 28 |9,D.^.D.|B...C..(|
|00000070| 45 11 48 10 5b 0c 2c 7f | 2c 7f 2c 7f 2c 7f 2c 7f |E.H.[.,.|,.,.,.,.|
|00000080| 2c 7f 2c 7f 2c 7f 2c 7f | 2c 6f 7c 1a 5e 0c 43 11 |,.,.,.,.|,o|.^.C.|
|00000090| 4d 13 0c 3a 48 16 58 16 | 43 11 26 2f 6d 2c 6f 3e |M..:H.X.|C.&/m,o>|
|000000a0| 60 51 7f 2f 6a 7f 2c 7f | 2c 7f 2c 7f 2c 7f 2c 7f |`Q./j.,.|,.,.,.,.|
|000000b0| 2c 7f 2c 7f 2c 7f 2c 7f | 2c 7f 2c 7f 2c 7f 2c 7f |,.,.,.,.|,.,.,.,.|
|000000c0| 2c 7f 2c 7f 2c 7f 2c 7f | 2c 7f 2c 7f 2c 7f 2c 7f |,.,.,.,.|,.,.,.,.|
|000000d0| 2c 7f 2c 7f 00 00 00 00 | 02 28 2a 07 28 2a 2e 2e |,.,.....|.(*.(*..|
|000000e0| 2e 2a 29 1b 00 00 00 28 | 2a 2a 29 7b 40 4b 45 59 |.*)....(|**){@KEY|
|000000f0| 20 4c 65 66 74 7d 7b 40 | 4b 45 59 20 4c 65 66 74 | Left}{@|KEY Left|
|00000100| 7d 00 00 00 00 00 02 3a | 3a 00 03 00 00 00 3a 3d |}......:|:.....:=|
|00000110| 00 00 00 00 00 03 3a 61 | 63 19 61 72 72 61 79 20 |......:a|c.array |
|00000120| 6f 66 20 63 68 61 72 20 | 64 65 63 6c 61 72 61 74 |of char |declarat|
|00000130| 69 6f 6e 46 00 00 00 3a | 20 61 72 72 61 79 5b 7b |ionF...:| array[{|
|00000140| 40 49 4e 50 55 54 20 45 | 6e 74 65 72 20 6c 6f 77 |@INPUT E|nter low|
|00000150| 20 69 6e 64 65 78 7d 2e | 2e 7b 40 49 4e 50 55 54 | index}.|.{@INPUT|
|00000160| 20 45 6e 74 65 72 20 68 | 69 67 68 20 69 6e 64 65 | Enter h|igh inde|
|00000170| 78 7d 5d 20 6f 66 20 63 | 68 61 72 3b 00 00 00 00 |x}] of c|har;....|
|00000180| 00 03 3a 61 69 1c 61 72 | 72 61 79 20 6f 66 20 69 |..:ai.ar|ray of i|
|00000190| 6e 74 65 67 65 72 20 64 | 65 63 6c 61 72 61 74 69 |nteger d|eclarati|
|000001a0| 6f 6e 49 00 00 00 3a 20 | 61 72 72 61 79 5b 7b 40 |onI...: |array[{@|
|000001b0| 49 4e 50 55 54 20 45 6e | 74 65 72 20 6c 6f 77 20 |INPUT En|ter low |
|000001c0| 69 6e 64 65 78 7d 2e 2e | 7b 40 49 4e 50 55 54 20 |index}..|{@INPUT |
|000001d0| 45 6e 74 65 72 20 68 69 | 67 68 20 69 6e 64 65 78 |Enter hi|gh index|
|000001e0| 7d 5d 20 6f 66 20 69 6e | 74 65 67 65 72 3b 00 00 |}] of in|teger;..|
|000001f0| 00 00 00 03 3a 61 6c 1c | 61 72 72 61 79 20 6f 66 |....:al.|array of|
|00000200| 20 4c 6f 6e 67 49 6e 74 | 20 64 65 63 6c 61 72 61 | LongInt| declara|
|00000210| 74 69 6f 6e 49 00 00 00 | 3a 20 61 72 72 61 79 5b |tionI...|: array[|
|00000220| 7b 40 49 4e 50 55 54 20 | 45 6e 74 65 72 20 6c 6f |{@INPUT |Enter lo|
|00000230| 77 20 69 6e 64 65 78 7d | 2e 2e 7b 40 49 4e 50 55 |w index}|..{@INPU|
|00000240| 54 20 45 6e 74 65 72 20 | 68 69 67 68 20 69 6e 64 |T Enter |high ind|
|00000250| 65 78 7d 5d 20 6f 66 20 | 4c 6f 6e 67 49 6e 74 3b |ex}] of |LongInt;|
|00000260| 00 00 00 00 00 03 3a 61 | 72 19 61 72 72 61 79 20 |......:a|r.array |
|00000270| 6f 66 20 72 65 61 6c 20 | 64 65 63 6c 61 72 61 74 |of real |declarat|
|00000280| 69 6f 6e 46 00 00 00 3a | 20 61 72 72 61 79 5b 7b |ionF...:| array[{|
|00000290| 40 49 4e 50 55 54 20 45 | 6e 74 65 72 20 6c 6f 77 |@INPUT E|nter low|
|000002a0| 20 69 6e 64 65 78 7d 2e | 2e 7b 40 49 4e 50 55 54 | index}.|.{@INPUT|
|000002b0| 20 45 6e 74 65 72 20 68 | 69 67 68 20 69 6e 64 65 | Enter h|igh inde|
|000002c0| 78 7d 5d 20 6f 66 20 72 | 65 61 6c 3b 00 00 00 00 |x}] of r|eal;....|
|000002d0| 00 02 3a 62 00 0a 00 00 | 00 3a 20 42 6f 6f 6c 65 |..:b....|.: Boole|
|000002e0| 61 6e 00 00 00 00 00 02 | 3a 63 00 07 00 00 00 3a |an......|:c.....:|
|000002f0| 20 63 68 61 72 00 00 00 | 00 00 02 3a 69 00 0a 00 | char...|...:i...|
|00000300| 00 00 3a 20 69 6e 74 65 | 67 65 72 00 00 00 00 00 |..: inte|ger.....|
|00000310| 02 3a 6c 00 0a 00 00 00 | 3a 20 4c 6f 6e 67 49 6e |.:l.....|: LongIn|
|00000320| 74 00 00 00 00 00 02 3a | 72 00 07 00 00 00 3a 20 |t......:|r.....: |
|00000330| 72 65 61 6c 00 00 00 00 | 00 02 3a 73 00 09 00 00 |real....|..:s....|
|00000340| 00 3a 20 73 74 72 69 6e | 67 00 00 00 00 00 02 3a |.: strin|g......:|
|00000350| 77 00 07 00 00 00 3a 20 | 57 6f 72 64 00 00 00 00 |w.....: |Word....|
|00000360| 00 02 3d 3d 00 03 00 00 | 00 3a 3d 00 00 00 00 00 |..==....|.:=.....|
|00000370| 01 7b 05 7b 2e 2e 2e 7d | 0e 00 00 00 7b 7d 7b 40 |.{.{...}|....{}{@|
|00000380| 4b 45 59 20 4c 65 66 74 | 7d 00 00 00 00 00 07 61 |KEY Left|}......a|
|00000390| 62 6f 72 74 20 2e 00 06 | 00 00 00 41 62 6f 72 74 |bort ...|...Abort|
|000003a0| 00 00 00 00 00 0a 61 6c | 6c 6f 63 6d 65 6d 20 2e |......al|locmem .|
|000003b0| 00 09 00 00 00 41 6c 6c | 6f 63 4d 65 6d 00 00 00 |.....All|ocMem...|
|000003c0| 00 00 0d 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 2e |...appli|cation .|
|000003d0| 00 0c 00 00 00 41 70 70 | 6c 69 63 61 74 69 6f 6e |.....App|lication|
|000003e0| 00 00 00 00 00 07 61 72 | 72 61 79 20 2e 00 06 00 |......ar|ray ....|
|000003f0| 00 00 61 72 72 61 79 00 | 00 00 00 00 0a 61 73 73 |..array.|.....ass|
|00000400| 69 67 6e 65 64 20 2e 00 | 09 00 00 00 41 73 73 69 |igned ..|....Assi|
|00000410| 67 6e 65 64 00 00 00 00 | 00 07 62 65 67 69 6e 20 |gned....|..begin |
|00000420| 2e 11 62 65 67 69 6e 2e | 2e 2e 65 6e 64 20 62 6c |..begin.|..end bl|
|00000430| 6f 63 6b 4b 00 00 00 62 | 65 67 69 6e 0d 0a 65 6e |ockK...b|egin..en|
|00000440| 64 3b 7b 40 4b 45 59 20 | 4c 65 66 74 7d 7b 40 4b |d;{@KEY |Left}{@K|
|00000450| 45 59 20 4c 65 66 74 7d | 7b 40 4b 45 59 20 4c 65 |EY Left}|{@KEY Le|
|00000460| 66 74 7d 7b 40 4b 45 59 | 20 4c 65 66 74 7d 7b 40 |ft}{@KEY| Left}{@|
|00000470| 4b 45 59 20 55 70 7d 7b | 40 4b 45 59 20 45 6e 64 |KEY Up}{|@KEY End|
|00000480| 7d 00 00 00 00 00 09 62 | 6f 6f 6c 65 61 6e 20 2e |}......b|oolean .|
|00000490| 00 08 00 00 00 42 6f 6f | 6c 65 61 6e 00 00 00 00 |.....Boo|lean....|
|000004a0| 00 07 62 72 65 61 6b 20 | 2e 00 06 00 00 00 42 72 |..break |......Br|
|000004b0| 65 61 6b 00 00 00 00 00 | 09 63 61 70 74 69 6f 6e |eak.....|.caption|
|000004c0| 20 2e 00 08 00 00 00 43 | 61 70 74 69 6f 6e 00 00 | ......C|aption..|
|000004d0| 00 00 00 0f 63 68 61 6e | 67 65 66 69 6c 65 65 78 |....chan|gefileex|
|000004e0| 74 20 2e 00 0e 00 00 00 | 43 68 61 6e 67 65 46 69 |t ......|ChangeFi|
|000004f0| 6c 65 45 78 74 00 00 00 | 00 00 0c 63 6f 6d 70 61 |leExt...|...compa|
|00000500| 72 65 73 74 72 20 2e 00 | 0b 00 00 00 43 6f 6d 70 |restr ..|....Comp|
|00000510| 61 72 65 53 74 72 00 00 | 00 00 00 0d 63 6f 6d 70 |areStr..|....comp|
|00000520| 61 72 65 74 65 78 74 20 | 2e 00 0c 00 00 00 43 6f |aretext |......Co|
|00000530| 6d 70 61 72 65 54 65 78 | 74 00 00 00 00 00 0d 63 |mpareTex|t......c|
|00000540| 6f 6e 73 74 72 75 63 74 | 6f 72 20 2e 00 0c 00 00 |onstruct|or .....|
|00000550| 00 63 6f 6e 73 74 72 75 | 63 74 6f 72 00 00 00 00 |.constru|ctor....|
|00000560| 00 0a 63 6f 6e 74 69 6e | 75 65 20 2e 00 09 00 00 |..contin|ue .....|
|00000570| 00 43 6f 6e 74 69 6e 75 | 65 00 00 00 00 00 03 64 |.Continu|e......d|
|00000580| 20 2e 00 07 00 00 00 44 | 65 6c 65 74 65 00 00 00 | ......D|elete...|
|00000590| 00 00 0f 64 61 74 65 74 | 69 6d 65 74 6f 73 74 72 |...datet|imetostr|
|000005a0| 20 2e 00 0e 00 00 00 44 | 61 74 65 54 69 6d 65 54 | ......D|ateTimeT|
|000005b0| 6f 53 74 72 00 00 00 00 | 00 0b 64 61 74 65 74 6f |oStr....|..dateto|
|000005c0| 73 74 72 20 2e 00 0a 00 | 00 00 44 61 74 65 54 6f |str ....|..DateTo|
|000005d0| 53 74 72 00 00 00 00 00 | 04 64 65 20 2e 00 07 00 |Str.....|.de ....|
|000005e0| 00 00 44 65 6c 65 74 65 | 00 00 00 00 00 0c 64 65 |..Delete|......de|
|000005f0| 63 6f 64 65 64 61 74 65 | 20 2e 00 0b 00 00 00 44 |codedate| ......D|
|00000600| 65 63 6f 64 65 44 61 74 | 65 00 00 00 00 00 0c 64 |ecodeDat|e......d|
|00000610| 65 63 6f 64 65 74 69 6d | 65 20 2e 00 0b 00 00 00 |ecodetim|e ......|
|00000620| 44 65 63 6f 64 65 54 69 | 6d 65 00 00 00 00 00 08 |DecodeTi|me......|
|00000630| 64 65 6c 65 74 65 20 2e | 00 07 00 00 00 44 65 6c |delete .|.....Del|
|00000640| 65 74 65 00 00 00 00 00 | 0c 64 65 73 74 72 75 63 |ete.....|.destruc|
|00000650| 74 6f 72 20 2e 00 0b 00 | 00 00 64 65 73 74 72 75 |tor ....|..destru|
|00000660| 63 74 6f 72 00 00 00 00 | 00 04 64 6f 20 2e 14 64 |ctor....|..do ..d|
|00000670| 6f 20 62 65 67 69 6e 2e | 2e 2e 65 6e 64 20 62 6c |o begin.|..end bl|
|00000680| 6f 63 6b 4f 00 00 00 64 | 6f 0d 0a 62 65 67 69 6e |ockO...d|o..begin|
|00000690| 0d 0a 65 6e 64 3b 7b 40 | 4b 45 59 20 4c 65 66 74 |..end;{@|KEY Left|
|000006a0| 7d 7b 40 4b 45 59 20 4c | 65 66 74 7d 7b 40 4b 45 |}{@KEY L|eft}{@KE|
|000006b0| 59 20 4c 65 66 74 7d 7b | 40 4b 45 59 20 4c 65 66 |Y Left}{|@KEY Lef|
|000006c0| 74 7d 7b 40 4b 45 59 20 | 55 70 7d 7b 40 4b 45 59 |t}{@KEY |Up}{@KEY|
|000006d0| 20 45 6e 64 7d 00 00 00 | 00 00 08 64 6f 75 62 6c | End}...|...doubl|
|000006e0| 65 20 2e 00 07 00 00 00 | 44 6f 75 62 6c 65 00 00 |e ......|Double..|
|000006f0| 00 00 00 08 64 6f 77 6e | 74 6f 20 2e 00 07 00 00 |....down|to .....|
|00000700| 00 64 6f 77 6e 74 6f 00 | 00 00 00 00 03 65 20 2e |.downto.|.....e .|
|00000710| 00 05 00 00 00 45 78 69 | 74 00 00 00 00 00 06 65 |.....Exi|t......e|
|00000720| 6c 73 65 20 2e 16 65 6c | 73 65 20 62 65 67 69 6e |lse ..el|se begin|
|00000730| 2e 2e 2e 65 6e 64 20 62 | 6c 6f 63 6b 51 00 00 00 |...end b|lockQ...|
|00000740| 65 6c 73 65 0d 0a 62 65 | 67 69 6e 0d 0a 65 6e 64 |else..be|gin..end|
|00000750| 3b 7b 40 4b 45 59 20 4c | 65 66 74 7d 7b 40 4b 45 |;{@KEY L|eft}{@KE|
|00000760| 59 20 4c 65 66 74 7d 7b | 40 4b 45 59 20 4c 65 66 |Y Left}{|@KEY Lef|
|00000770| 74 7d 7b 40 4b 45 59 20 | 4c 65 66 74 7d 7b 40 4b |t}{@KEY |Left}{@K|
|00000780| 45 59 20 55 70 7d 7b 40 | 4b 45 59 20 45 6e 64 7d |EY Up}{@|KEY End}|
|00000790| 00 00 00 00 00 0c 65 6e | 63 6f 64 65 64 61 74 65 |......en|codedate|
|000007a0| 20 2e 00 0b 00 00 00 45 | 6e 63 6f 64 65 44 61 74 | ......E|ncodeDat|
|000007b0| 65 00 00 00 00 00 0c 65 | 6e 63 6f 64 65 74 69 6d |e......e|ncodetim|
|000007c0| 65 20 2e 00 0b 00 00 00 | 45 6e 63 6f 64 65 54 69 |e ......|EncodeTi|
|000007d0| 6d 65 00 00 00 00 00 04 | 65 78 20 2e 00 05 00 00 |me......|ex .....|
|000007e0| 00 45 78 69 74 00 00 00 | 00 00 08 65 78 63 65 70 |.Exit...|...excep|
|000007f0| 74 20 2e 12 65 78 63 65 | 70 74 2e 2e 2e 65 6e 64 |t ..exce|pt...end|
|00000800| 20 62 6c 6f 63 6b 4c 00 | 00 00 65 78 63 65 70 74 | blockL.|..except|
|00000810| 0d 0a 65 6e 64 3b 7b 40 | 4b 45 59 20 4c 65 66 74 |..end;{@|KEY Left|
|00000820| 7d 7b 40 4b 45 59 20 4c | 65 66 74 7d 7b 40 4b 45 |}{@KEY L|eft}{@KE|
|00000830| 59 20 4c 65 66 74 7d 7b | 40 4b 45 59 20 4c 65 66 |Y Left}{|@KEY Lef|
|00000840| 74 7d 7b 40 4b 45 59 20 | 55 70 7d 7b 40 4b 45 59 |t}{@KEY |Up}{@KEY|
|00000850| 20 45 6e 64 7d 00 00 00 | 00 00 09 65 78 63 6c 75 | End}...|...exclu|
|00000860| 64 65 20 2e 00 08 00 00 | 00 45 78 63 6c 75 64 65 |de .....|.Exclude|
|00000870| 00 00 00 00 00 08 65 78 | 70 6f 72 74 20 2e 00 07 |......ex|port ...|
|00000880| 00 00 00 65 78 70 6f 72 | 74 00 00 00 00 00 10 65 |...expor|t......e|
|00000890| 78 74 72 61 63 74 66 69 | 6c 65 65 78 74 20 2e 00 |xtractfi|leext ..|
|000008a0| 0f 00 00 00 45 78 74 72 | 61 63 74 46 69 6c 65 45 |....Extr|actFileE|
|000008b0| 78 74 00 00 00 00 00 11 | 65 78 74 72 61 63 74 66 |xt......|extractf|
|000008c0| 69 6c 65 6e 61 6d 65 20 | 2e 00 10 00 00 00 45 78 |ilename |......Ex|
|000008d0| 74 72 61 63 74 46 69 6c | 65 4e 61 6d 65 00 00 00 |tractFil|eName...|
|000008e0| 00 00 11 65 78 74 72 61 | 63 74 66 69 6c 65 70 61 |...extra|ctfilepa|
|000008f0| 74 68 20 2e 00 10 00 00 | 00 45 78 74 72 61 63 74 |th .....|.Extract|
|00000900| 46 69 6c 65 50 61 74 68 | 00 00 00 00 00 03 66 20 |FilePath|......f |
|00000910| 2e 00 06 00 00 00 46 61 | 6c 73 65 00 00 00 00 00 |......Fa|lse.....|
|00000920| 07 66 61 6c 73 65 20 2e | 00 06 00 00 00 46 61 6c |.false .|.....Fal|
|00000930| 73 65 00 00 00 00 00 0a | 66 69 6c 6c 63 68 61 72 |se......|fillchar|
|00000940| 20 2e 00 09 00 00 00 46 | 69 6c 6c 43 68 61 72 00 | ......F|illChar.|
|00000950| 00 00 00 00 09 66 69 6e | 61 6c 6c 79 20 2e 13 66 |.....fin|ally ..f|
|00000960| 69 6e 61 6c 6c 79 2e 2e | 2e 65 6e 64 20 62 6c 6f |inally..|.end blo|
|00000970| 63 6b 4d 00 00 00 66 69 | 6e 61 6c 6c 79 0d 0a 65 |ckM...fi|nally..e|
|00000980| 6e 64 3b 7b 40 4b 45 59 | 20 4c 65 66 74 7d 7b 40 |nd;{@KEY| Left}{@|
|00000990| 4b 45 59 20 4c 65 66 74 | 7d 7b 40 4b 45 59 20 4c |KEY Left|}{@KEY L|
|000009a0| 65 66 74 7d 7b 40 4b 45 | 59 20 4c 65 66 74 7d 7b |eft}{@KE|Y Left}{|
|000009b0| 40 4b 45 59 20 55 70 7d | 7b 40 4b 45 59 20 45 6e |@KEY Up}|{@KEY En|
|000009c0| 64 7d 00 00 00 00 00 10 | 66 6f 72 6d 61 74 64 61 |d}......|formatda|
|000009d0| 74 65 74 69 6d 65 20 2e | 00 0f 00 00 00 46 6f 72 |tetime .|.....For|
|000009e0| 6d 61 74 44 61 74 65 54 | 69 6d 65 00 00 00 00 00 |matDateT|ime.....|
|000009f0| 08 66 75 6e 63 74 69 6f | 6e 00 09 00 00 00 66 75 |.functio|n.....fu|
|00000a00| 6e 63 74 69 6f 6e 00 00 | 00 00 00 04 69 6e 20 2e |nction..|....in .|
|00000a10| 00 08 00 00 00 69 6e 74 | 65 67 65 72 00 00 00 00 |.....int|eger....|
|00000a20| 00 09 69 6e 63 6c 75 64 | 65 20 2e 00 08 00 00 00 |..includ|e ......|
|00000a30| 49 6e 63 6c 75 64 65 00 | 00 00 00 00 0b 69 6e 68 |Include.|.....inh|
|00000a40| 65 72 69 74 65 64 20 2e | 00 0a 00 00 00 69 6e 68 |erited .|.....inh|
|00000a50| 65 72 69 74 65 64 00 00 | 00 00 00 09 69 6e 74 65 |erited..|....inte|
|00000a60| 67 65 72 20 2e 00 08 00 | 00 00 69 6e 74 65 67 65 |ger ....|..intege|
|00000a70| 72 00 00 00 00 00 0a 69 | 6e 74 74 6f 68 65 78 20 |r......i|nttohex |
|00000a80| 2e 00 09 00 00 00 49 6e | 74 54 6f 48 65 78 00 00 |......In|tToHex..|
|00000a90| 00 00 00 0a 69 6e 74 74 | 6f 73 74 72 20 2e 00 09 |....intt|ostr ...|
|00000aa0| 00 00 00 49 6e 74 54 6f | 53 74 72 00 00 00 00 00 |...IntTo|Str.....|
|00000ab0| 08 6c 65 6e 67 74 68 20 | 2e 00 07 00 00 00 4c 65 |.length |......Le|
|00000ac0| 6e 67 74 68 00 00 00 00 | 00 09 6c 6f 61 64 73 74 |ngth....|..loadst|
|00000ad0| 72 20 2e 00 08 00 00 00 | 4c 6f 61 64 53 74 72 00 |r ......|LoadStr.|
|00000ae0| 00 00 00 00 09 6c 6f 6e | 67 69 6e 74 20 2e 00 08 |.....lon|gint ...|
|00000af0| 00 00 00 4c 6f 6e 67 49 | 6e 74 00 00 00 00 00 0b |...LongI|nt......|
|00000b00| 6c 6f 77 65 72 63 61 73 | 65 20 2e 00 0a 00 00 00 |lowercas|e ......|
|00000b10| 4c 6f 77 65 72 43 61 73 | 65 00 00 00 00 00 09 6d |LowerCas|e......m|
|00000b20| 65 73 73 61 67 65 20 2e | 00 08 00 00 00 6d 65 73 |essage .|.....mes|
|00000b30| 73 61 67 65 00 00 00 00 | 00 0b 70 72 6f 63 65 64 |sage....|..proced|
|00000b40| 75 72 65 20 2e 00 0a 00 | 00 00 70 72 6f 63 65 64 |ure ....|..proced|
|00000b50| 75 72 65 00 00 00 00 00 | 0a 70 72 6f 70 65 72 74 |ure.....|.propert|
|00000b60| 79 20 2e 00 09 00 00 00 | 70 72 6f 70 65 72 74 79 |y ......|property|
|00000b70| 00 00 00 00 00 07 72 61 | 69 73 65 20 2e 00 06 00 |......ra|ise ....|
|00000b80| 00 00 72 61 69 73 65 00 | 00 00 00 00 08 72 65 63 |..raise.|.....rec|
|00000b90| 6f 72 64 20 2e 12 72 65 | 63 6f 72 64 2e 2e 2e 65 |ord ..re|cord...e|
|00000ba0| 6e 64 20 62 6c 6f 63 6b | 4c 00 00 00 72 65 63 6f |nd block|L...reco|
|00000bb0| 72 64 0d 0a 65 6e 64 3b | 7b 40 4b 45 59 20 4c 65 |rd..end;|{@KEY Le|
|00000bc0| 66 74 7d 7b 40 4b 45 59 | 20 4c 65 66 74 7d 7b 40 |ft}{@KEY| Left}{@|
|00000bd0| 4b 45 59 20 4c 65 66 74 | 7d 7b 40 4b 45 59 20 4c |KEY Left|}{@KEY L|
|00000be0| 65 66 74 7d 7b 40 4b 45 | 59 20 55 70 7d 7b 40 4b |eft}{@KE|Y Up}{@K|
|00000bf0| 45 59 20 45 6e 64 7d 00 | 00 00 00 00 08 72 65 70 |EY End}.|.....rep|
|00000c00| 65 61 74 20 2e 14 72 65 | 70 65 61 74 2e 2e 2e 75 |eat ..re|peat...u|
|00000c10| 6e 74 69 6c 20 62 6c 6f | 63 6b 70 00 00 00 72 65 |ntil blo|ckp...re|
|00000c20| 70 65 61 74 0d 0a 75 6e | 74 69 6c 20 3b 7b 40 4b |peat..un|til ;{@K|
|00000c30| 45 59 20 4c 65 66 74 7d | 7b 40 4b 45 59 20 4c 65 |EY Left}|{@KEY Le|
|00000c40| 66 74 7d 7b 40 4b 45 59 | 20 4c 65 66 74 7d 7b 40 |ft}{@KEY| Left}{@|
|00000c50| 4b 45 59 20 4c 65 66 74 | 7d 7b 40 4b 45 59 20 4c |KEY Left|}{@KEY L|
|00000c60| 65 66 74 7d 7b 40 4b 45 | 59 20 4c 65 66 74 7d 7b |eft}{@KE|Y Left}{|
|00000c70| 40 4b 45 59 20 4c 65 66 | 74 7d 7b 40 4b 45 59 20 |@KEY Lef|t}{@KEY |
|00000c80| 55 70 7d 7b 40 4b 45 59 | 20 45 6e 64 7d 00 00 00 |Up}{@KEY| End}...|
|00000c90| 00 00 03 73 20 2e 00 07 | 00 00 00 73 74 72 69 6e |...s ...|...strin|
|00000ca0| 67 00 00 00 00 00 08 73 | 69 7a 65 6f 66 20 2e 00 |g......s|izeof ..|
|00000cb0| 07 00 00 00 53 69 7a 65 | 4f 66 00 00 00 00 00 08 |....Size|Of......|
|00000cc0| 73 74 72 69 6e 67 20 2e | 00 07 00 00 00 73 74 72 |string .|.....str|
|00000cd0| 69 6e 67 00 00 00 00 00 | 0a 73 74 72 70 63 6f 70 |ing.....|.strpcop|
|00000ce0| 79 20 2e 00 09 00 00 00 | 53 74 72 50 43 6f 70 79 |y ......|StrPCopy|
|00000cf0| 00 00 00 00 00 0b 73 74 | 72 74 6f 64 61 74 65 20 |......st|rtodate |
|00000d00| 2e 00 0a 00 00 00 53 74 | 72 54 6f 44 61 74 65 00 |......St|rToDate.|
|00000d10| 00 00 00 00 0f 73 74 72 | 74 6f 64 61 74 65 74 69 |.....str|todateti|
|00000d20| 6d 65 20 2e 00 0e 00 00 | 00 53 74 72 54 6f 44 61 |me .....|.StrToDa|
|00000d30| 74 65 54 69 6d 65 00 00 | 00 00 00 0a 73 74 72 74 |teTime..|....strt|
|00000d40| 6f 69 6e 74 20 2e 00 09 | 00 00 00 53 74 72 54 6f |oint ...|...StrTo|
|00000d50| 49 6e 74 00 00 00 00 00 | 0b 73 74 72 74 6f 74 69 |Int.....|.strtoti|
|00000d60| 6d 65 20 2e 00 0a 00 00 | 00 53 74 72 54 6f 54 69 |me .....|.StrToTi|
|00000d70| 6d 65 00 00 00 00 00 03 | 74 20 2e 00 05 00 00 00 |me......|t ......|
|00000d80| 54 72 75 65 00 00 00 00 | 00 06 74 68 65 6e 20 2e |True....|..then .|
|00000d90| 16 74 68 65 6e 20 62 65 | 67 69 6e 2e 2e 2e 65 6e |.then be|gin...en|
|00000da0| 64 20 62 6c 6f 63 6b 51 | 00 00 00 74 68 65 6e 0d |d blockQ|...then.|
|00000db0| 0a 62 65 67 69 6e 0d 0a | 65 6e 64 3b 7b 40 4b 45 |.begin..|end;{@KE|
|00000dc0| 59 20 4c 65 66 74 7d 7b | 40 4b 45 59 20 4c 65 66 |Y Left}{|@KEY Lef|
|00000dd0| 74 7d 7b 40 4b 45 59 20 | 4c 65 66 74 7d 7b 40 4b |t}{@KEY |Left}{@K|
|00000de0| 45 59 20 4c 65 66 74 7d | 7b 40 4b 45 59 20 55 70 |EY Left}|{@KEY Up|
|00000df0| 7d 7b 40 4b 45 59 20 45 | 6e 64 7d 00 00 00 00 00 |}{@KEY E|nd}.....|
|00000e00| 0b 74 69 6d 65 74 6f 73 | 74 72 20 2e 00 0a 00 00 |.timetos|tr .....|
|00000e10| 00 54 69 6d 65 54 6f 53 | 74 72 00 00 00 00 00 05 |.TimeToS|tr......|
|00000e20| 74 72 79 20 31 19 74 72 | 79 2e 2e 2e 66 69 6e 61 |try 1.tr|y...fina|
|00000e30| 6c 6c 79 2e 2e 2e 65 6e | 64 20 62 6c 6f 63 6b 5b |lly...en|d block[|
|00000e40| 00 00 00 74 72 79 0d 0a | 66 69 6e 61 6c 6c 79 0d |...try..|finally.|
|00000e50| 0a 65 6e 64 3b 7b 40 4b | 45 59 20 4c 65 66 74 7d |.end;{@K|EY Left}|
|00000e60| 7b 40 4b 45 59 20 4c 65 | 66 74 7d 7b 40 4b 45 59 |{@KEY Le|ft}{@KEY|
|00000e70| 20 4c 65 66 74 7d 7b 40 | 4b 45 59 20 4c 65 66 74 | Left}{@|KEY Left|
|00000e80| 7d 7b 40 4b 45 59 20 55 | 70 7d 7b 40 4b 45 59 20 |}{@KEY U|p}{@KEY |
|00000e90| 55 70 7d 7b 40 4b 45 59 | 20 45 6e 64 7d 00 00 00 |Up}{@KEY| End}...|
|00000ea0| 00 00 05 74 72 79 20 32 | 18 74 72 79 2e 2e 2e 65 |...try 2|.try...e|
|00000eb0| 78 63 65 70 74 2e 2e 2e | 65 6e 64 20 62 6c 6f 63 |xcept...|end bloc|
|00000ec0| 6b 5a 00 00 00 74 72 79 | 0d 0a 65 78 63 65 70 74 |kZ...try|..except|
|00000ed0| 0d 0a 65 6e 64 3b 7b 40 | 4b 45 59 20 4c 65 66 74 |..end;{@|KEY Left|
|00000ee0| 7d 7b 40 4b 45 59 20 4c | 65 66 74 7d 7b 40 4b 45 |}{@KEY L|eft}{@KE|
|00000ef0| 59 20 4c 65 66 74 7d 7b | 40 4b 45 59 20 4c 65 66 |Y Left}{|@KEY Lef|
|00000f00| 74 7d 7b 40 4b 45 59 20 | 55 70 7d 7b 40 4b 45 59 |t}{@KEY |Up}{@KEY|
|00000f10| 20 55 70 7d 7b 40 4b 45 | 59 20 45 6e 64 7d 00 00 | Up}{@KE|Y End}..|
|00000f20| 00 00 00 0b 74 72 79 65 | 78 63 65 70 74 20 2e 18 |....trye|xcept ..|
|00000f30| 74 72 79 2e 2e 2e 65 78 | 63 65 70 74 2e 2e 2e 65 |try...ex|cept...e|
|00000f40| 6e 64 20 62 6c 6f 63 6b | 5a 00 00 00 74 72 79 0d |nd block|Z...try.|
|00000f50| 0a 65 78 63 65 70 74 0d | 0a 65 6e 64 3b 7b 40 4b |.except.|.end;{@K|
|00000f60| 45 59 20 4c 65 66 74 7d | 7b 40 4b 45 59 20 4c 65 |EY Left}|{@KEY Le|
|00000f70| 66 74 7d 7b 40 4b 45 59 | 20 4c 65 66 74 7d 7b 40 |ft}{@KEY| Left}{@|
|00000f80| 4b 45 59 20 4c 65 66 74 | 7d 7b 40 4b 45 59 20 55 |KEY Left|}{@KEY U|
|00000f90| 70 7d 7b 40 4b 45 59 20 | 55 70 7d 7b 40 4b 45 59 |p}{@KEY |Up}{@KEY|
|00000fa0| 20 45 6e 64 7d 00 00 00 | 00 00 0c 74 72 79 66 69 | End}...|...tryfi|
|00000fb0| 6e 61 6c 6c 79 20 2e 19 | 74 72 79 2e 2e 2e 66 69 |nally ..|try...fi|
|00000fc0| 6e 61 6c 6c 79 2e 2e 2e | 65 6e 64 20 62 6c 6f 63 |nally...|end bloc|
|00000fd0| 6b 5b 00 00 00 74 72 79 | 0d 0a 66 69 6e 61 6c 6c |k[...try|..finall|
|00000fe0| 79 0d 0a 65 6e 64 3b 7b | 40 4b 45 59 20 4c 65 66 |y..end;{|@KEY Lef|
|00000ff0| 74 7d 7b 40 4b 45 59 20 | 4c 65 66 74 7d 7b 40 4b |t}{@KEY |Left}{@K|
|00001000| 45 59 20 4c 65 66 74 7d | 7b 40 4b 45 59 20 4c 65 |EY Left}|{@KEY Le|
|00001010| 66 74 7d 7b 40 4b 45 59 | 20 55 70 7d 7b 40 4b 45 |ft}{@KEY| Up}{@KE|
|00001020| 59 20 55 70 7d 7b 40 4b | 45 59 20 45 6e 64 7d 00 |Y Up}{@K|EY End}.|
|00001030| 00 00 00 00 08 75 70 63 | 61 73 65 20 2e 00 07 00 |.....upc|ase ....|
|00001040| 00 00 55 70 43 61 73 65 | 00 00 00 00 00 0b 75 70 |..UpCase|......up|
|00001050| 70 65 72 63 61 73 65 20 | 2e 00 0a 00 00 00 55 70 |percase |......Up|
|00001060| 70 65 72 43 61 73 65 00 | 00 00 00 00 05 76 61 72 |perCase.|.....var|
|00001070| 20 2e 00 04 00 00 00 76 | 61 72 00 00 00 00 00 07 | ......v|ar......|
|00001080| 77 68 69 6c 65 20 2e 00 | 06 00 00 00 77 68 69 6c |while ..|....whil|
|00001090| 65 00 00 00 00 00 07 77 | 72 69 74 65 20 2e 00 06 |e......w|rite ...|
|000010a0| 00 00 00 57 72 69 74 65 | 00 00 00 00 00 09 77 72 |...Write|......wr|
|000010b0| 69 74 65 6c 6e 20 2e 00 | 08 00 00 00 57 72 69 74 |iteln ..|....Writ|
|000010c0| 65 6c 6e 00             |                         |eln.    |        |
+--------+-------------------------+-------------------------+--------+--------+