Language/OS - Multiplatform Resource Library

home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / lib / complete.pl < prev next >
MacBinary | 1992-01-05 | 3.5 KB | [TEXT/□□□□]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun Jan 5 00:11:57 1992, modified Sun Jan 5 00:11:57 1992, type ASCII, 2855 bytes "complete.pl" , at 0xba7 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[□□□□]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 63 6f 6d 70 6c 65 | 74 65 2e 70 6c 00 00 00 |..comple|te.pl...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 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 54 45 58 54 00 00 00 | 00 00 00 00 00 00 00 00 |.TEXT...|........|
|00000050| 00 00 00 00 00 0b 27 00 | 00 01 ac a5 8c 44 1d a5 |......'.|.....D..|
|00000060| 8c 44 1d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.D......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ba 58 00 00 |........|.....X..|
|00000080| 3b 23 0d 3b 23 20 20 20 | 20 20 20 40 28 23 29 63 |;#.;#   |   @(#)c|
|00000090| 6f 6d 70 6c 65 74 65 2e | 70 6c 2c 76 31 2e 31 20 |omplete.|pl,v1.1 |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 28 6d 65 40 61 |        |   (me@a|
|000000b0| 6e 79 77 68 65 72 65 2e | 45 42 61 79 2e 53 75 6e |nywhere.|EBay.Sun|
|000000c0| 2e 43 4f 4d 29 20 30 39 | 2f 32 33 2f 39 31 0d 3b |.COM) 09|/23/91.;|
|000000d0| 23 0d 3b 23 20 41 75 74 | 68 6f 72 3a 20 57 61 79 |#.;# Aut|hor: Way|
|000000e0| 6e 65 20 54 68 6f 6d 70 | 73 6f 6e 0d 3b 23 0d 3b |ne Thomp|son.;#.;|
|000000f0| 23 20 44 65 73 63 72 69 | 70 74 69 6f 6e 3a 0d 3b |# Descri|ption:.;|
|00000100| 23 20 20 20 20 20 54 68 | 69 73 20 72 6f 75 74 69 |#     Th|is routi|
|00000110| 6e 65 20 70 72 6f 76 69 | 64 65 73 20 77 6f 72 64 |ne provi|des word|
|00000120| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 2e 0d 3b 23 20 | complet|ion..;# |
|00000130| 20 20 20 20 28 54 41 42 | 29 20 61 74 74 65 6d 70 |    (TAB|) attemp|
|00000140| 74 73 20 77 6f 72 64 20 | 63 6f 6d 70 6c 65 74 69 |ts word |completi|
|00000150| 6f 6e 2e 0d 3b 23 20 20 | 20 20 20 28 5e 44 29 20 |on..;#  |   (^D) |
|00000160| 20 70 72 69 6e 74 73 20 | 63 6f 6d 70 6c 65 74 69 | prints |completi|
|00000170| 6f 6e 20 6c 69 73 74 2e | 0d 3b 23 20 20 20 20 20 |on list.|.;#     |
|00000180| 20 28 54 68 65 73 65 20 | 6d 61 79 20 62 65 20 63 | (These |may be c|
|00000190| 68 61 6e 67 65 64 20 62 | 79 20 73 65 74 74 69 6e |hanged b|y settin|
|000001a0| 67 20 24 43 6f 6d 70 6c | 65 74 65 27 63 6f 6d 70 |g $Compl|ete'comp|
|000001b0| 6c 65 74 65 2c 20 65 74 | 63 2e 29 0d 3b 23 0d 3b |lete, et|c.).;#.;|
|000001c0| 23 20 44 69 61 67 6e 6f | 73 74 69 63 73 3a 0d 3b |# Diagno|stics:.;|
|000001d0| 23 20 20 20 20 20 42 65 | 6c 6c 20 77 68 65 6e 20 |#     Be|ll when |
|000001e0| 77 6f 72 64 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |word com|pletion |
|000001f0| 66 61 69 6c 73 2e 0d 3b | 23 0d 3b 23 20 44 65 70 |fails..;|#.;# Dep|
|00000200| 65 6e 64 65 6e 63 69 65 | 73 3a 0d 3b 23 20 20 20 |endencie|s:.;#   |
|00000210| 20 20 54 68 65 20 74 74 | 79 20 64 72 69 76 65 72 |  The tt|y driver|
|00000220| 20 69 73 20 70 75 74 20 | 69 6e 74 6f 20 72 61 77 | is put |into raw|
|00000230| 20 6d 6f 64 65 2e 0d 3b | 23 0d 3b 23 20 42 75 67 | mode..;|#.;# Bug|
|00000240| 73 3a 0d 3b 23 0d 3b 23 | 20 55 73 61 67 65 3a 0d |s:.;#.;#| Usage:.|
|00000250| 3b 23 20 20 20 20 20 24 | 69 6e 70 75 74 20 3d 20 |;#     $|input = |
|00000260| 26 43 6f 6d 70 6c 65 74 | 65 28 27 70 72 6f 6d 70 |&Complet|e('promp|
|00000270| 74 5f 73 74 72 69 6e 67 | 27 2c 20 2a 63 6f 6d 70 |t_string|', *comp|
|00000280| 6c 65 74 69 6f 6e 5f 6c | 69 73 74 29 3b 0d 3b 23 |letion_l|ist);.;#|
|00000290| 20 20 20 20 20 20 20 20 | 20 6f 72 0d 3b 23 20 20 |        | or.;#  |
|000002a0| 20 20 20 24 69 6e 70 75 | 74 20 3d 20 26 43 6f 6d |   $inpu|t = &Com|
|000002b0| 70 6c 65 74 65 28 27 70 | 72 6f 6d 70 74 5f 73 74 |plete('p|rompt_st|
|000002c0| 72 69 6e 67 27 2c 20 40 | 63 6f 6d 70 6c 65 74 69 |ring', @|completi|
|000002d0| 6f 6e 5f 6c 69 73 74 29 | 3b 0d 3b 23 0d 0d 43 4f |on_list)|;.;#..CO|
|000002e0| 4e 46 49 47 3a 20 7b 0d | 20 20 20 20 70 61 63 6b |NFIG: {.|    pack|
|000002f0| 61 67 65 20 43 6f 6d 70 | 6c 65 74 65 3b 0d 0d 20 |age Comp|lete;.. |
|00000300| 20 20 20 24 63 6f 6d 70 | 6c 65 74 65 20 3d 20 22 |   $comp|lete = "|
|00000310| 5c 30 30 34 22 3b 0d 20 | 20 20 20 24 6b 69 6c 6c |\004";. |   $kill|
|00000320| 20 20 20 20 20 3d 20 22 | 5c 30 32 35 22 3b 0d 20 |     = "|\025";. |
|00000330| 20 20 20 24 65 72 61 73 | 65 31 20 3d 20 20 20 22 |   $eras|e1 =   "|
|00000340| 5c 31 37 37 22 3b 0d 20 | 20 20 20 24 65 72 61 73 |\177";. |   $eras|
|00000350| 65 32 20 3d 20 20 20 22 | 5c 30 31 30 22 3b 0d 7d |e2 =   "|\010";.}|
|00000360| 0d 0d 73 75 62 20 43 6f | 6d 70 6c 65 74 65 20 7b |..sub Co|mplete {|
|00000370| 0d 20 20 20 20 70 61 63 | 6b 61 67 65 20 43 6f 6d |.    pac|kage Com|
|00000380| 70 6c 65 74 65 3b 0d 0d | 20 20 20 20 6c 6f 63 61 |plete;..|    loca|
|00000390| 6c 28 24 5b 29 20 3d 20 | 30 3b 0d 20 20 20 20 69 |l($[) = |0;.    i|
|000003a0| 66 20 28 24 5f 5b 31 5d | 20 3d 7e 20 2f 5e 53 74 |f ($_[1]| =~ /^St|
|000003b0| 42 5c 30 2f 29 20 7b 0d | 20 20 20 20 20 20 20 20 |B\0/) {.|        |
|000003c0| 28 24 70 72 6f 6d 70 74 | 2c 20 2a 5f 29 20 3d 20 |($prompt|, *_) = |
|000003d0| 40 5f 3b 0d 20 20 20 20 | 7d 0d 20 20 20 20 65 6c |@_;.    |}.    el|
|000003e0| 73 65 20 7b 0d 20 20 20 | 20 20 20 20 20 24 70 72 |se {.   |     $pr|
|000003f0| 6f 6d 70 74 20 3d 20 73 | 68 69 66 74 28 40 5f 29 |ompt = s|hift(@_)|
|00000400| 3b 0d 20 20 20 20 7d 0d | 20 20 20 20 40 63 6d 70 |;.    }.|    @cmp|
|00000410| 5f 6c 73 74 20 3d 20 73 | 6f 72 74 28 40 5f 29 3b |_lst = s|ort(@_);|
|00000420| 0d 0d 20 20 20 20 73 79 | 73 74 65 6d 28 27 73 74 |..    sy|stem('st|
|00000430| 74 79 20 72 61 77 20 2d | 65 63 68 6f 27 29 3b 0d |ty raw -|echo');.|
|00000440| 20 20 20 20 4c 4f 4f 50 | 3a 20 7b 0d 20 20 20 20 |    LOOP|: {.    |
|00000450| 20 20 20 20 70 72 69 6e | 74 28 24 70 72 6f 6d 70 |    prin|t($promp|
|00000460| 74 2c 20 24 72 65 74 75 | 72 6e 29 3b 0d 20 20 20 |t, $retu|rn);.   |
|00000470| 20 20 20 20 20 77 68 69 | 6c 65 20 28 28 24 5f 20 |     whi|le (($_ |
|00000480| 3d 20 67 65 74 63 28 53 | 54 44 49 4e 29 29 20 6e |= getc(S|TDIN)) n|
|00000490| 65 20 22 5c 72 22 29 20 | 7b 0d 20 20 20 20 20 20 |e "\r") |{.      |
|000004a0| 20 20 20 20 20 20 43 41 | 53 45 3a 20 7b 0d 20 20 |      CA|SE: {.  |
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 23 20 |        |      # |
|000004c0| 28 54 41 42 29 20 61 74 | 74 65 6d 70 74 20 63 6f |(TAB) at|tempt co|
|000004d0| 6d 70 6c 65 74 69 6f 6e | 0d 20 20 20 20 20 20 20 |mpletion|.       |
|000004e0| 20 20 20 20 20 20 20 20 | 20 24 5f 20 65 71 20 22 |        | $_ eq "|
|000004f0| 5c 74 22 20 26 26 20 64 | 6f 20 7b 0d 20 20 20 20 |\t" && d|o {.    |
|00000500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000510| 40 6d 61 74 63 68 20 3d | 20 67 72 65 70 28 2f 5e |@match =| grep(/^|
|00000520| 24 72 65 74 75 72 6e 2f | 2c 20 40 63 6d 70 5f 6c |$return/|, @cmp_l|
|00000530| 73 74 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |st);.   |        |
|00000540| 20 20 20 20 20 20 20 20 | 20 24 6c 20 3d 20 6c 65 |        | $l = le|
|00000550| 6e 67 74 68 28 24 74 65 | 73 74 20 3d 20 73 68 69 |ngth($te|st = shi|
|00000560| 66 74 28 40 6d 61 74 63 | 68 29 29 3b 0d 20 20 20 |ft(@matc|h));.   |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000580| 20 75 6e 6c 65 73 73 20 | 28 24 23 6d 61 74 63 68 | unless |($#match|
|00000590| 20 3c 20 30 29 20 7b 0d | 20 20 20 20 20 20 20 20 | < 0) {.|        |
|000005a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005b0| 66 6f 72 65 61 63 68 20 | 24 63 6d 70 20 28 40 6d |foreach |$cmp (@m|
|000005c0| 61 74 63 68 29 20 7b 0d | 20 20 20 20 20 20 20 20 |atch) {.|        |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005e0| 20 20 20 20 75 6e 74 69 | 6c 20 28 73 75 62 73 74 |    unti|l (subst|
|000005f0| 72 28 24 63 6d 70 2c 20 | 30 2c 20 24 6c 29 20 65 |r($cmp, |0, $l) e|
|00000600| 71 20 73 75 62 73 74 72 | 28 24 74 65 73 74 2c 20 |q substr|($test, |
|00000610| 30 2c 20 24 6c 29 29 20 | 7b 0d 20 20 20 20 20 20 |0, $l)) |{.      |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 24 6c 2d 2d 3b 0d |        |  $l--;.|
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 20 7d 0d 20 20 |        |    }.  |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000670| 20 20 20 20 20 20 7d 0d | 20 20 20 20 20 20 20 20 |      }.|        |
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000690| 70 72 69 6e 74 28 22 5c | 61 22 29 3b 0d 20 20 20 |print("\|a");.   |
|000006a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006b0| 20 7d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | }.     |        |
|000006c0| 20 20 20 20 20 20 20 70 | 72 69 6e 74 28 24 74 65 |       p|rint($te|
|000006d0| 73 74 20 3d 20 73 75 62 | 73 74 72 28 24 74 65 73 |st = sub|str($tes|
|000006e0| 74 2c 20 24 72 2c 20 24 | 6c 20 2d 20 24 72 29 29 |t, $r, $|l - $r))|
|000006f0| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.      |        |
|00000700| 20 20 20 20 20 20 24 72 | 20 3d 20 6c 65 6e 67 74 |      $r| = lengt|
|00000710| 68 28 24 72 65 74 75 72 | 6e 20 2e 3d 20 24 74 65 |h($retur|n .= $te|
|00000720| 73 74 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |st);.   |        |
|00000730| 20 20 20 20 20 20 20 20 | 20 6c 61 73 74 20 43 41 |        | last CA|
|00000740| 53 45 3b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |SE;.    |        |
|00000750| 20 20 20 20 7d 3b 0d 0d | 20 20 20 20 20 20 20 20 |    };..|        |
|00000760| 20 20 20 20 20 20 20 20 | 23 20 28 5e 44 29 20 63 |        |# (^D) c|
|00000770| 6f 6d 70 6c 65 74 69 6f | 6e 20 6c 69 73 74 0d 20 |ompletio|n list. |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 24 |        |       $|
|00000790| 5f 20 65 71 20 24 63 6f | 6d 70 6c 65 74 65 20 26 |_ eq $co|mplete &|
|000007a0| 26 20 64 6f 20 7b 0d 20 | 20 20 20 20 20 20 20 20 |& do {. |        |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 70 72 69 6e 74 |        |   print|
|000007c0| 28 6a 6f 69 6e 28 22 5c | 72 5c 6e 22 2c 20 27 27 |(join("\|r\n", ''|
|000007d0| 2c 20 67 72 65 70 28 2f | 5e 24 72 65 74 75 72 6e |, grep(/|^$return|
|000007e0| 2f 2c 20 40 63 6d 70 5f | 6c 73 74 29 29 2c 20 22 |/, @cmp_|lst)), "|
|000007f0| 5c 72 5c 6e 22 29 3b 0d | 20 20 20 20 20 20 20 20 |\r\n");.|        |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 20 72 65 64 6f |        |    redo|
|00000810| 20 4c 4f 4f 50 3b 0d 20 | 20 20 20 20 20 20 20 20 | LOOP;. |        |
|00000820| 20 20 20 20 20 20 20 7d | 3b 0d 0d 20 20 20 20 20 |       }|;..     |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 23 20 28 5e 55 |        |   # (^U|
|00000840| 29 20 6b 69 6c 6c 0d 20 | 20 20 20 20 20 20 20 20 |) kill. |        |
|00000850| 20 20 20 20 20 20 20 24 | 5f 20 65 71 20 24 6b 69 |       $|_ eq $ki|
|00000860| 6c 6c 20 26 26 20 64 6f | 20 7b 0d 20 20 20 20 20 |ll && do| {.     |
|00000870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 69 |        |       i|
|00000880| 66 20 28 24 72 29 20 7b | 0d 20 20 20 20 20 20 20 |f ($r) {|.       |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008a0| 20 75 6e 64 65 66 28 24 | 72 2c 20 24 72 65 74 75 | undef($|r, $retu|
|000008b0| 72 6e 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |rn);.   |        |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 70 72 69 |        |     pri|
|000008d0| 6e 74 28 22 5c 72 5c 6e | 22 29 3b 0d 20 20 20 20 |nt("\r\n|");.    |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008f0| 20 20 20 20 72 65 64 6f | 20 4c 4f 4f 50 3b 0d 20 |    redo| LOOP;. |
|00000900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000910| 20 20 20 7d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |   }.   |        |
|00000920| 20 20 20 20 20 20 20 20 | 20 6c 61 73 74 20 43 41 |        | last CA|
|00000930| 53 45 3b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |SE;.    |        |
|00000940| 20 20 20 20 7d 3b 0d 0d | 20 20 20 20 20 20 20 20 |    };..|        |
|00000950| 20 20 20 20 20 20 20 20 | 23 20 28 44 45 4c 29 20 |        |# (DEL) |
|00000960| 7c 7c 20 28 42 53 29 20 | 65 72 61 73 65 0d 20 20 ||| (BS) |erase.  |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 24 |        |      ($|
|00000980| 5f 20 65 71 20 24 65 72 | 61 73 65 31 20 7c 7c 20 |_ eq $er|ase1 || |
|00000990| 24 5f 20 65 71 20 24 65 | 72 61 73 65 32 29 20 26 |$_ eq $e|rase2) &|
|000009a0| 26 20 64 6f 20 7b 0d 20 | 20 20 20 20 20 20 20 20 |& do {. |        |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 20 69 66 28 24 72 |        |   if($r|
|000009c0| 29 20 7b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |) {.    |        |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 72 69 6e |        |    prin|
|000009e0| 74 28 22 5c 62 20 5c 62 | 22 29 3b 0d 20 20 20 20 |t("\b \b|");.    |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a00| 20 20 20 20 63 68 6f 70 | 28 24 72 65 74 75 72 6e |    chop|($return|
|00000a10| 29 3b 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.     |        |
|00000a20| 20 20 20 20 20 20 20 20 | 20 20 20 24 72 2d 2d 3b |        |   $r--;|
|00000a30| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000a40| 20 20 20 20 20 7d 0d 20 | 20 20 20 20 20 20 20 20 |     }. |        |
|00000a50| 20 20 20 20 20 20 20 20 | 20 20 20 6c 61 73 74 20 |        |   last |
|00000a60| 43 41 53 45 3b 0d 20 20 | 20 20 20 20 20 20 20 20 |CASE;.  |        |
|00000a70| 20 20 20 20 20 20 7d 3b | 0d 0d 20 20 20 20 20 20 |      };|..      |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 23 20 70 72 69 6e |        |  # prin|
|00000a90| 74 61 62 6c 65 20 63 68 | 61 72 0d 20 20 20 20 20 |table ch|ar.     |
|00000aa0| 20 20 20 20 20 20 20 20 | 20 20 20 6f 72 64 20 3e |        |   ord >|
|00000ab0| 3d 20 33 32 20 26 26 20 | 64 6f 20 7b 0d 20 20 20 |= 32 && |do {.   |
|00000ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ad0| 20 24 72 65 74 75 72 6e | 20 2e 3d 20 24 5f 3b 0d | $return| .= $_;.|
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000af0| 20 20 20 20 24 72 2b 2b | 3b 0d 20 20 20 20 20 20 |    $r++|;.      |
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 70 72 |        |      pr|
|00000b10| 69 6e 74 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |int;.   |        |
|00000b20| 20 20 20 20 20 20 20 20 | 20 6c 61 73 74 20 43 41 |        | last CA|
|00000b30| 53 45 3b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |SE;.    |        |
|00000b40| 20 20 20 20 7d 3b 0d 20 | 20 20 20 20 20 20 20 20 |    };. |        |
|00000b50| 20 20 20 7d 0d 20 20 20 | 20 20 20 20 20 7d 0d 20 |   }.   |     }. |
|00000b60| 20 20 20 7d 0d 20 20 20 | 20 73 79 73 74 65 6d 28 |   }.   | system(|
|00000b70| 27 73 74 74 79 20 2d 72 | 61 77 20 65 63 68 6f 27 |'stty -r|aw echo'|
|00000b80| 29 3b 0d 20 20 20 20 70 | 72 69 6e 74 28 22 5c 6e |);.    p|rint("\n|
|00000b90| 22 29 3b 0d 20 20 20 20 | 24 72 65 74 75 72 6e 3b |");.    |$return;|
|00000ba0| 0d 7d 0d 0d 31 3b 0d 00 | 00 00 00 00 00 00 00 00 |.}..1;..|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000c10| 28 24 30 30 33 34 35 44 | 38 30 29 20 0d 60 73 74 |($00345D|80) .`st|
|00000c20| 5b 73 70 5d 5e 20 3d 0d | 52 45 43 4f 52 44 20 28 |[sp]^ =.|RECORD (|
|00000c30| 0b 63 6f 6d 70 6c 65 74 | 65 2e 70 6c 02 00 00 00 |.complet|e.pl....|
|00000c40| 54 45 58 54 00 00 00 00 | 00 00 00 00 00 00 00 00 |TEXT....|........|
|00000c50| 00 00 54 45 58 54 00 00 | 00 00 00 00 00 00 00 00 |..TEXT..|........|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 a5 8c 0b dc 00 00 | 0b 27 00 00 01 ac 20 56 |........|.'.... V|
|00000c80| 6f 69 64 3a 0d 20 20 20 | 20 20 20 20 20 20 20 20 |oid:.   |        |
|00000c90| 20 20 28 73 74 72 5f 6e | 76 61 6c 3a 20 30 2e 30 |  (str_n|val: 0.0|
|00000ca0| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 65 |00000000|0000000e|
|00000cb0| 2b 30 30 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |+00).   |        |
|00000cc0| 28 2d 20 2d 20 2d 29 3b | 0d 20 20 73 74 72 5f 63 |(- - -);|.  str_c|
|00000cd0| 75 72 3a 20 30 3b 0d 20 | 20 73 74 72 5f 6d 61 67 |ur: 0;. | str_mag|
|00000ce0| 69 63 3a 20 5e 73 74 72 | 69 6e 67 28 4e 49 4c 29 |ic: ^str|ing(NIL)|
|00000cf0| 20 3b 0d 20 20 73 74 72 | 5f 70 6f 6b 3a 20 30 3b | ;.  str|_pok: 0;|
|00000d00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d20| 00 00 00 00 00 00 00 06 | 00 03 00 3c 00 24 01 dd |........|...<.$..|
|00000d30| 02 3d 00 3c 00 24 01 dd | 02 3d a5 8c 0b dd 00 00 |.=.<.$..|.=......|
|00000d40| 04 2e 00 00 04 2e 00 00 | 07 eb 01 00 00 00 00 1e |........|........|
|00000d50| 00 3c 00 24 01 dd 02 3d | 00 3c 00 24 01 dd 02 3d |.<.$...=|.<.$...=|
|00000d60| 00 00 07 eb 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2c |.....n..|.n...>.,|
|00000d80| 4e 48 0b c2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |NH......|.>..MPSR|
|00000d90| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000da0| 03 f0 ff ff 00 00 00 4c | 00 32 5a 9c 00 00 00 00 |.......L|.2Z.....|
|00000db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+