/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / turbo_patch

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 63 6d | 63 6c 32 21 6c 61 6e 6c |From: cm|cl2!lanl|
|00000010| 21 6a 70 20 28 4a 61 6d | 65 73 20 50 6f 74 74 65 |!jp (Jam|es Potte|
|00000020| 72 29 0a 53 75 62 6a 65 | 63 74 3a 20 53 6f 66 74 |r).Subje|ct: Soft|
|00000030| 77 61 72 65 20 54 6f 6f | 6c 73 20 69 6e 20 54 75 |ware Too|ls in Tu|
|00000040| 72 62 6f 20 2d 20 53 48 | 45 4c 4c 2e 50 41 53 0a |rbo - SH|ELL.PAS.|
|00000050| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 6d 6f 64 2e |Newsgrou|ps: mod.|
|00000060| 73 6f 75 72 63 65 73 0a | 41 70 70 72 6f 76 65 64 |sources.|Approved|
|00000070| 3a 20 6a 70 6e 40 70 61 | 6e 64 61 2e 55 55 43 50 |: jpn@pa|nda.UUCP|
|00000080| 0a 0a 4d 6f 64 2e 73 6f | 75 72 63 65 73 3a 20 20 |..Mod.so|urces:  |
|00000090| 56 6f 6c 75 6d 65 20 33 | 2c 20 49 73 73 75 65 20 |Volume 3|, Issue |
|000000a0| 35 30 0a 53 75 62 6d 69 | 74 74 65 64 20 62 79 3a |50.Submi|tted by:|
|000000b0| 20 68 61 72 76 61 72 64 | 21 63 6d 63 6c 32 21 6c | harvard|!cmcl2!l|
|000000c0| 61 6e 6c 21 6a 70 20 28 | 4a 61 6d 65 73 20 50 6f |anl!jp (|James Po|
|000000d0| 74 74 65 72 29 0a 0a 0a | 5b 20 41 73 20 73 6f 6d |tter)...|[ As som|
|000000e0| 65 20 6f 66 20 79 6f 75 | 20 68 61 76 65 20 6e 6f |e of you| have no|
|000000f0| 74 69 63 65 64 2c 20 74 | 68 65 20 66 69 6c 65 20 |ticed, t|he file |
|00000100| 22 53 48 45 4c 4c 2e 50 | 41 53 22 20 69 6e 20 74 |"SHELL.P|AS" in t|
|00000110| 68 65 20 72 65 63 65 6e | 74 0a 20 20 53 6f 66 74 |he recen|t.  Soft|
|00000120| 77 61 72 65 20 54 6f 6f | 6c 73 20 69 6e 20 54 75 |ware Too|ls in Tu|
|00000130| 72 62 6f 20 50 61 73 63 | 61 6c 20 77 61 73 20 73 |rbo Pasc|al was s|
|00000140| 65 6e 74 20 6f 75 74 20 | 73 63 72 6f 6e 6b 65 64 |ent out |scronked|
|00000150| 2e 20 20 54 68 61 6e 6b | 73 20 66 6f 72 0a 20 20 |.  Thank|s for.  |
|00000160| 79 6f 75 72 20 70 61 74 | 69 65 6e 63 65 20 20 20 |your pat|ience   |
|00000170| 20 20 20 20 20 20 20 2d | 20 20 4a 6f 68 6e 20 50 |       -|  John P|
|00000180| 2e 20 4e 65 6c 73 6f 6e | 20 28 6d 6f 64 65 72 61 |. Nelson| (modera|
|00000190| 74 6f 72 2c 20 6d 6f 64 | 2e 73 6f 75 72 63 65 73 |tor, mod|.sources|
|000001a0| 29 0a 5d 0a 0a 4a 6f 68 | 6e 2c 20 20 53 6f 72 72 |).]..Joh|n,  Sorr|
|000001b0| 79 20 61 62 6f 75 74 20 | 74 68 65 20 73 63 72 65 |y about |the scre|
|000001c0| 77 2d 75 70 20 6f 6e 20 | 74 68 65 20 54 75 72 62 |w-up on |the Turb|
|000001d0| 6f 20 50 61 73 63 61 6c | 20 66 69 6c 65 20 53 48 |o Pascal| file SH|
|000001e0| 45 4c 4c 2e 50 41 53 2e | 0a 41 70 70 61 72 65 6e |ELL.PAS.|.Apparen|
|000001f0| 74 6c 79 20 69 74 20 67 | 6f 74 20 66 6f 75 6c 65 |tly it g|ot foule|
|00000200| 64 20 75 70 20 77 68 65 | 6e 20 49 20 75 70 6c 6f |d up whe|n I uplo|
|00000210| 61 64 65 64 20 69 74 20 | 61 6e 64 20 49 20 64 69 |aded it |and I di|
|00000220| 64 6e 27 74 20 68 61 76 | 65 20 61 0a 77 61 79 20 |dn't hav|e a.way |
|00000230| 6f 66 20 63 68 65 63 6b | 69 6e 67 20 69 74 20 6f |of check|ing it o|
|00000240| 75 74 20 65 61 73 69 6c | 79 2e 20 20 41 6e 79 77 |ut easil|y.  Anyw|
|00000250| 61 79 2c 20 68 65 72 65 | 20 69 73 20 74 68 65 20 |ay, here| is the |
|00000260| 63 6f 72 72 65 63 74 20 | 66 69 6c 65 20 53 48 45 |correct |file SHE|
|00000270| 4c 4c 2e 50 41 53 0a 0a | 4a 61 6d 65 73 20 50 6f |LL.PAS..|James Po|
|00000280| 74 74 65 72 0a 0a 23 21 | 20 2f 62 69 6e 2f 73 68 |tter..#!| /bin/sh|
|00000290| 0a 23 20 54 68 69 73 20 | 69 73 20 61 20 73 68 65 |.# This |is a she|
|000002a0| 6c 6c 20 61 72 63 68 69 | 76 65 2c 20 6d 65 61 6e |ll archi|ve, mean|
|000002b0| 69 6e 67 3a 0a 23 20 31 | 2e 20 52 65 6d 6f 76 65 |ing:.# 1|. Remove|
|000002c0| 20 65 76 65 72 79 74 68 | 69 6e 67 20 61 62 6f 76 | everyth|ing abov|
|000002d0| 65 20 74 68 65 20 23 21 | 20 2f 62 69 6e 2f 73 68 |e the #!| /bin/sh|
|000002e0| 20 6c 69 6e 65 2e 0a 23 | 20 32 2e 20 53 61 76 65 | line..#| 2. Save|
|000002f0| 20 74 68 65 20 72 65 73 | 75 6c 74 69 6e 67 20 74 | the res|ulting t|
|00000300| 65 78 74 20 69 6e 20 61 | 20 66 69 6c 65 2e 0a 23 |ext in a| file..#|
|00000310| 20 33 2e 20 45 78 65 63 | 75 74 65 20 74 68 65 20 | 3. Exec|ute the |
|00000320| 66 69 6c 65 20 77 69 74 | 68 20 2f 62 69 6e 2f 73 |file wit|h /bin/s|
|00000330| 68 20 28 6e 6f 74 20 63 | 73 68 29 20 74 6f 20 63 |h (not c|sh) to c|
|00000340| 72 65 61 74 65 20 74 68 | 65 20 66 69 6c 65 73 3a |reate th|e files:|
|00000350| 0a 23 09 73 68 65 6c 6c | 2e 70 61 73 0a 23 20 54 |.#.shell|.pas.# T|
|00000360| 68 69 73 20 61 72 63 68 | 69 76 65 20 63 72 65 61 |his arch|ive crea|
|00000370| 74 65 64 3a 20 57 65 64 | 20 4e 6f 76 20 32 30 20 |ted: Wed| Nov 20 |
|00000380| 30 37 3a 34 30 3a 33 39 | 20 31 39 38 35 0a 65 78 |07:40:39| 1985.ex|
|00000390| 70 6f 72 74 20 50 41 54 | 48 3b 20 50 41 54 48 3d |port PAT|H; PATH=|
|000003a0| 2f 62 69 6e 3a 24 50 41 | 54 48 0a 65 63 68 6f 20 |/bin:$PA|TH.echo |
|000003b0| 73 68 61 72 3a 20 65 78 | 74 72 61 63 74 69 6e 67 |shar: ex|tracting|
|000003c0| 20 22 27 73 68 65 6c 6c | 2e 70 61 73 27 22 20 27 | "'shell|.pas'" '|
|000003d0| 28 32 36 35 34 20 63 68 | 61 72 61 63 74 65 72 73 |(2654 ch|aracters|
|000003e0| 29 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 73 |)'.if te|st -f 's|
|000003f0| 68 65 6c 6c 2e 70 61 73 | 27 0a 74 68 65 6e 0a 09 |hell.pas|'.then..|
|00000400| 65 63 68 6f 20 73 68 61 | 72 3a 20 77 69 6c 6c 20 |echo sha|r: will |
|00000410| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00000420| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 22 27 73 |xisting |file "'s|
|00000430| 68 65 6c 6c 2e 70 61 73 | 27 22 0a 65 6c 73 65 0a |hell.pas|'".else.|
|00000440| 63 61 74 20 3c 3c 20 5c | 53 48 41 52 5f 45 4f 46 |cat << \|SHAR_EOF|
|00000450| 20 3e 20 27 73 68 65 6c | 6c 2e 70 61 73 27 0a 7b | > 'shel|l.pas'.{|
|00000460| 53 48 45 4c 4c 2e 50 41 | 53 7d 0a 0a 7b 0a 20 20 |SHELL.PA|S}..{.  |
|00000470| 20 20 20 20 20 20 43 6f | 70 79 72 69 67 68 74 20 |      Co|pyright |
|00000480| 28 63 29 20 31 39 38 31 | 0a 20 20 20 20 20 20 20 |(c) 1981|.       |
|00000490| 20 42 79 3a 20 20 20 20 | 20 42 65 6c 6c 20 54 65 | By:    | Bell Te|
|000004a0| 6c 65 70 68 6f 6e 65 20 | 4c 61 62 6f 72 61 74 6f |lephone |Laborato|
|000004b0| 72 69 65 73 2c 20 49 6e | 63 2e 20 61 6e 64 0a 20 |ries, In|c. and. |
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 57 |        |       W|
|000004d0| 68 69 74 65 73 6d 69 74 | 68 27 73 20 4c 74 64 2e |hitesmit|h's Ltd.|
|000004e0| 2c 0a 0a 20 20 20 20 20 | 20 20 20 54 68 69 73 20 |,..     |   This |
|000004f0| 73 6f 66 74 77 61 72 65 | 20 69 73 20 64 65 72 69 |software| is deri|
|00000500| 76 65 64 20 66 72 6f 6d | 20 74 68 65 20 62 6f 6f |ved from| the boo|
|00000510| 6b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |k.      |        |
|00000520| 20 20 22 53 6f 66 74 77 | 61 72 65 20 54 6f 6f 6c |  "Softw|are Tool|
|00000530| 73 20 69 6e 20 50 61 73 | 63 61 6c 22 2c 20 62 79 |s in Pas|cal", by|
|00000540| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000550| 20 42 72 69 61 6e 20 57 | 2e 20 4b 65 72 6e 69 67 | Brian W|. Kernig|
|00000560| 68 61 6e 20 61 6e 64 20 | 50 2e 20 4a 2e 20 50 6c |han and |P. J. Pl|
|00000570| 61 75 67 65 72 0a 20 20 | 20 20 20 20 20 20 20 20 |auger.  |        |
|00000580| 20 20 20 20 20 20 41 64 | 64 69 73 6f 6e 2d 57 65 |      Ad|dison-We|
|00000590| 73 6c 65 79 2c 20 31 39 | 38 31 0a 20 20 20 20 20 |sley, 19|81.     |
|000005a0| 20 20 20 20 20 20 20 20 | 20 20 20 49 53 42 4e 20 |        |   ISBN |
|000005b0| 30 2d 32 30 31 2d 31 30 | 33 34 32 2d 37 0a 0a 20 |0-201-10|342-7.. |
|000005c0| 20 20 20 20 20 20 20 52 | 69 67 68 74 20 69 73 20 |       R|ight is |
|000005d0| 68 65 72 65 62 79 20 67 | 72 61 6e 74 65 64 20 74 |hereby g|ranted t|
|000005e0| 6f 20 66 72 65 65 6c 79 | 20 64 69 73 74 72 69 62 |o freely| distrib|
|000005f0| 75 74 65 20 6f 72 20 64 | 75 70 6c 69 63 61 74 65 |ute or d|uplicate|
|00000600| 20 74 68 69 73 0a 20 20 | 20 20 20 20 20 20 73 6f | this.  |      so|
|00000610| 66 74 77 61 72 65 2c 20 | 70 72 6f 76 69 64 69 6e |ftware, |providin|
|00000620| 67 20 64 69 73 74 72 69 | 62 75 74 69 6f 6e 20 6f |g distri|bution o|
|00000630| 72 20 64 75 70 6c 69 63 | 61 74 69 6f 6e 20 69 73 |r duplic|ation is|
|00000640| 20 6e 6f 74 20 66 6f 72 | 20 70 72 6f 66 69 74 0a | not for| profit.|
|00000650| 20 20 20 20 20 20 20 20 | 6f 72 20 6f 74 68 65 72 |        |or other|
|00000660| 20 63 6f 6d 6d 65 72 63 | 69 61 6c 20 67 61 69 6e | commerc|ial gain|
|00000670| 20 61 6e 64 20 74 68 61 | 74 20 74 68 69 73 20 63 | and tha|t this c|
|00000680| 6f 70 79 72 69 67 68 74 | 20 6e 6f 74 69 63 65 20 |opyright| notice |
|00000690| 72 65 6d 61 69 6e 73 0a | 20 20 20 20 20 20 20 20 |remains.|        |
|000006a0| 69 6e 74 61 63 74 2e 0a | 7d 0a 0a 50 52 4f 47 52 |intact..|}..PROGR|
|000006b0| 41 4d 20 54 4f 4f 4c 53 | 3b 0a 7b 24 49 20 54 4f |AM TOOLS|;.{$I TO|
|000006c0| 4f 4c 55 2e 50 41 53 7d | 0a 7b 24 49 20 49 4e 49 |OLU.PAS}|.{$I INI|
|000006d0| 54 43 4d 44 2e 50 41 53 | 7d 0a 7b 24 49 20 43 48 |TCMD.PAS|}.{$I CH|
|000006e0| 41 50 54 45 52 31 2e 50 | 41 53 7d 0a 7b 24 49 20 |APTER1.P|AS}.{$I |
|000006f0| 43 48 41 50 54 45 52 32 | 2e 50 41 53 7d 0a 7b 24 |CHAPTER2|.PAS}.{$|
|00000700| 49 20 43 48 41 50 54 45 | 52 33 2e 50 41 53 7d 0a |I CHAPTE|R3.PAS}.|
|00000710| 7b 24 49 20 43 48 41 50 | 54 45 52 34 2e 50 41 53 |{$I CHAP|TER4.PAS|
|00000720| 7d 0a 7b 24 49 20 43 48 | 41 50 54 45 52 35 2e 50 |}.{$I CH|APTER5.P|
|00000730| 41 53 7d 0a 7b 24 49 20 | 43 48 41 50 54 45 52 36 |AS}.{$I |CHAPTER6|
|00000740| 2e 50 41 53 7d 0a 7b 24 | 49 20 43 48 41 50 54 45 |.PAS}.{$|I CHAPTE|
|00000750| 52 37 2e 50 41 53 7d 0a | 7b 24 49 20 43 48 41 50 |R7.PAS}.|{$I CHAP|
|00000760| 54 45 52 38 2e 50 41 53 | 7d 0a 0a 0a 0a 56 41 52 |TER8.PAS|}....VAR|
|00000770| 0a 20 20 53 54 52 2c 53 | 54 52 31 3a 53 54 52 49 |.  STR,S|TR1:STRI|
|00000780| 4e 47 38 30 3b 0a 20 20 | 43 4f 4d 4d 41 4e 44 3a |NG80;.  |COMMAND:|
|00000790| 58 53 54 52 49 4e 47 3b | 0a 20 20 44 4f 4e 45 3a |XSTRING;|.  DONE:|
|000007a0| 42 4f 4f 4c 45 41 4e 3b | 0a 20 20 49 3a 49 4e 54 |BOOLEAN;|.  I:INT|
|000007b0| 45 47 45 52 3b 0a 0a 0a | 0a 0a 0a 42 45 47 49 4e |EGER;...|...BEGIN|
|000007c0| 20 7b 53 48 45 4c 4c 7d | 0a 0a 44 4f 4e 45 3a 3d | {SHELL}|..DONE:=|
|000007d0| 46 41 4c 53 45 3b 0a 57 | 48 49 4c 45 20 4e 4f 54 |FALSE;.W|HILE NOT|
|000007e0| 20 44 4f 4e 45 0a 44 4f | 0a 20 20 20 20 42 45 47 | DONE.DO|.    BEG|
|000007f0| 49 4e 0a 20 20 20 20 49 | 4e 49 54 43 4d 44 3b 0a |IN.    I|NITCMD;.|
|00000800| 20 20 20 20 49 46 20 47 | 45 54 41 52 47 28 31 2c |    IF G|ETARG(1,|
|00000810| 43 4f 4d 4d 41 4e 44 2c | 4d 41 58 53 54 52 29 0a |COMMAND,|MAXSTR).|
|00000820| 20 20 20 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |    THEN|.       |
|00000830| 20 42 45 47 49 4e 0a 20 | 20 20 20 20 20 20 20 53 | BEGIN. |       S|
|00000840| 54 52 3a 3d 27 27 3b 0a | 20 20 20 20 20 20 20 20 |TR:='';.|        |
|00000850| 53 54 52 31 3a 3d 27 58 | 27 3b 0a 20 20 20 20 20 |STR1:='X|';.     |
|00000860| 20 20 20 46 4f 52 20 49 | 3a 3d 31 20 54 4f 20 58 |   FOR I|:=1 TO X|
|00000870| 4c 45 4e 47 54 48 28 43 | 4f 4d 4d 41 4e 44 29 0a |LENGTH(C|OMMAND).|
|00000880| 20 20 20 20 20 20 20 20 | 44 4f 0a 20 20 20 20 20 |        |DO.     |
|00000890| 20 20 20 20 20 20 20 42 | 45 47 49 4e 0a 20 20 20 |       B|EGIN.   |
|000008a0| 20 20 20 20 20 20 20 20 | 20 69 66 20 43 4f 4d 4d |        | if COMM|
|000008b0| 41 4e 44 5b 49 5d 69 6e | 5b 39 37 2e 2e 31 32 32 |AND[I]in|[97..122|
|000008c0| 5d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 74 68 |].      |      th|
|000008d0| 65 6e 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |en.     |        |
|000008e0| 20 20 20 73 74 72 31 5b | 31 5d 3a 3d 63 68 72 28 |   str1[|1]:=chr(|
|000008f0| 63 6f 6d 6d 61 6e 64 5b | 69 5d 2d 33 32 29 0a 20 |command[|i]-32). |
|00000900| 20 20 20 20 20 20 20 20 | 20 20 20 45 4c 53 45 20 |        |   ELSE |
|00000910| 53 54 52 31 5b 31 5d 3a | 3d 63 68 72 28 43 4f 4d |STR1[1]:|=chr(COM|
|00000920| 4d 41 4e 44 5b 49 5d 29 | 3b 0a 20 20 20 20 20 20 |MAND[I])|;.      |
|00000930| 20 20 20 20 20 20 53 54 | 52 3a 3d 43 4f 4e 43 41 |      ST|R:=CONCA|
|00000940| 54 28 53 54 52 2c 53 54 | 52 31 29 0a 20 20 20 20 |T(STR,ST|R1).    |
|00000950| 20 20 20 20 20 20 20 20 | 45 4e 44 3b 0a 20 20 20 |        |END;.   |
|00000960| 20 20 20 20 20 69 66 20 | 73 74 72 20 3d 20 27 43 |     if |str = 'C|
|00000970| 4f 50 59 27 20 74 68 65 | 6e 20 63 6f 70 79 0a 20 |OPY' the|n copy. |
|00000980| 20 20 20 20 20 20 20 65 | 6c 73 65 20 69 66 20 73 |       e|lse if s|
|00000990| 74 72 20 3d 20 27 4c 49 | 4e 45 43 4f 55 4e 54 27 |tr = 'LI|NECOUNT'|
|000009a0| 20 74 68 65 6e 20 6c 69 | 6e 65 63 6f 75 6e 74 0a | then li|necount.|
|000009b0| 20 20 20 20 20 20 20 20 | 65 6c 73 65 20 69 66 20 |        |else if |
|000009c0| 73 74 72 20 3d 20 27 57 | 4f 52 44 43 4f 55 4e 54 |str = 'W|ORDCOUNT|
|000009d0| 27 20 74 68 65 6e 20 77 | 6f 72 64 63 6f 75 6e 74 |' then w|ordcount|
|000009e0| 0a 20 20 20 20 20 20 20 | 20 65 6c 73 65 20 69 66 |.       | else if|
|000009f0| 20 73 74 72 20 3d 20 27 | 44 45 54 41 42 27 20 74 | str = '|DETAB' t|
|00000a00| 68 65 6e 20 64 65 74 61 | 62 0a 20 20 20 20 20 20 |hen deta|b.      |
|00000a10| 20 20 65 6c 73 65 20 69 | 66 20 73 74 72 20 3d 20 |  else i|f str = |
|00000a20| 27 45 4e 54 41 42 27 20 | 74 68 65 6e 20 65 6e 74 |'ENTAB' |then ent|
|00000a30| 61 62 0a 20 20 20 20 20 | 20 20 20 65 6c 73 65 20 |ab.     |   else |
|00000a40| 69 66 20 73 74 72 20 3d | 20 27 4f 56 45 52 53 54 |if str =| 'OVERST|
|00000a50| 52 49 4b 45 27 20 74 68 | 65 6e 20 6f 76 65 72 73 |RIKE' th|en overs|
|00000a60| 74 72 69 6b 65 0a 20 20 | 20 20 20 20 20 20 65 6c |trike.  |      el|
|00000a70| 73 65 20 69 66 20 73 74 | 72 20 3d 20 27 43 4f 4d |se if st|r = 'COM|
|00000a80| 50 52 45 53 53 27 20 74 | 68 65 6e 20 63 6f 6d 70 |PRESS' t|hen comp|
|00000a90| 72 65 73 73 0a 20 20 20 | 20 20 20 20 20 65 6c 73 |ress.   |     els|
|00000aa0| 65 20 69 66 20 73 74 72 | 20 3d 20 27 45 58 50 41 |e if str| = 'EXPA|
|00000ab0| 4e 44 27 20 74 68 65 6e | 20 65 78 70 61 6e 64 0a |ND' then| expand.|
|00000ac0| 20 20 20 20 20 20 20 20 | 65 6c 73 65 20 69 66 20 |        |else if |
|00000ad0| 73 74 72 20 3d 20 27 45 | 43 48 4f 27 20 74 68 65 |str = 'E|CHO' the|
|00000ae0| 6e 20 65 63 68 6f 0a 20 | 20 20 20 20 20 20 20 65 |n echo. |       e|
|00000af0| 6c 73 65 20 69 66 20 73 | 74 72 20 3d 20 27 54 52 |lse if s|tr = 'TR|
|00000b00| 41 4e 53 4c 49 54 27 20 | 74 68 65 6e 20 74 72 61 |ANSLIT' |then tra|
|00000b10| 6e 73 6c 69 74 0a 20 20 | 20 20 20 20 20 20 65 6c |nslit.  |      el|
|00000b20| 73 65 20 69 66 20 73 74 | 72 20 3d 20 27 43 4f 4d |se if st|r = 'COM|
|00000b30| 50 41 52 45 27 20 74 68 | 65 6e 20 63 6f 6d 70 61 |PARE' th|en compa|
|00000b40| 72 65 0a 20 20 20 20 20 | 20 20 20 65 6c 73 65 20 |re.     |   else |
|00000b50| 69 66 20 73 74 72 20 3d | 20 27 49 4e 43 4c 55 44 |if str =| 'INCLUD|
|00000b60| 45 27 20 74 68 65 6e 20 | 69 6e 63 6c 75 64 65 0a |E' then |include.|
|00000b70| 20 20 20 20 20 20 20 20 | 65 6c 73 65 20 69 66 20 |        |else if |
|00000b80| 73 74 72 20 3d 20 27 43 | 4f 4e 43 41 54 27 20 74 |str = 'C|ONCAT' t|
|00000b90| 68 65 6e 20 63 6f 6e 63 | 61 74 0a 20 20 20 20 20 |hen conc|at.     |
|00000ba0| 20 20 20 65 6c 73 65 20 | 69 66 20 73 74 72 20 3d |   else |if str =|
|00000bb0| 20 27 50 52 49 4e 54 27 | 20 74 68 65 6e 20 70 72 | 'PRINT'| then pr|
|00000bc0| 69 6e 74 0a 20 20 20 20 | 20 20 20 20 65 6c 73 65 |int.    |    else|
|00000bd0| 20 69 66 20 73 74 72 20 | 3d 20 27 4d 41 4b 45 43 | if str |= 'MAKEC|
|00000be0| 4f 50 59 27 20 74 68 65 | 6e 20 6d 61 6b 65 63 6f |OPY' the|n makeco|
|00000bf0| 70 79 0a 20 20 20 20 20 | 20 20 20 65 6c 73 65 20 |py.     |   else |
|00000c00| 69 66 20 73 74 72 20 3d | 20 27 41 52 43 48 49 56 |if str =| 'ARCHIV|
|00000c10| 45 27 20 74 68 65 6e 20 | 61 72 63 68 69 76 65 0a |E' then |archive.|
|00000c20| 20 20 20 20 20 20 20 20 | 65 6c 73 65 20 69 66 20 |        |else if |
|00000c30| 73 74 72 20 3d 20 27 53 | 4f 52 54 27 20 74 68 65 |str = 'S|ORT' the|
|00000c40| 6e 20 73 6f 72 74 0a 20 | 20 20 20 20 20 20 20 65 |n sort. |       e|
|00000c50| 6c 73 65 20 69 66 20 73 | 74 72 20 3d 20 27 55 4e |lse if s|tr = 'UN|
|00000c60| 49 51 55 45 27 20 74 68 | 65 6e 20 75 6e 69 71 75 |IQUE' th|en uniqu|
|00000c70| 65 0a 20 20 20 20 20 20 | 20 20 65 6c 73 65 20 69 |e.      |  else i|
|00000c80| 66 20 73 74 72 20 3d 20 | 27 4b 57 49 43 27 20 74 |f str = |'KWIC' t|
|00000c90| 68 65 6e 20 6b 77 69 63 | 0a 20 20 20 20 20 20 20 |hen kwic|.       |
|00000ca0| 20 65 6c 73 65 20 69 66 | 20 73 74 72 20 3d 20 27 | else if| str = '|
|00000cb0| 52 4f 54 41 54 45 27 20 | 74 68 65 6e 20 77 72 69 |ROTATE' |then wri|
|00000cc0| 74 65 6c 6e 28 27 52 4f | 54 41 54 45 20 6e 6f 74 |teln('RO|TATE not|
|00000cd0| 20 64 69 72 65 63 74 6c | 79 20 73 75 70 70 6f 72 | directl|y suppor|
|00000ce0| 74 65 64 2e 27 29 0a 20 | 20 20 20 20 20 20 20 65 |ted.'). |       e|
|00000cf0| 6c 73 65 20 69 66 20 73 | 74 72 20 3d 20 27 55 4e |lse if s|tr = 'UN|
|00000d00| 52 4f 54 41 54 45 27 20 | 74 68 65 6e 20 75 6e 72 |ROTATE' |then unr|
|00000d10| 6f 74 61 74 65 0a 20 20 | 20 20 20 20 20 20 65 6c |otate.  |      el|
|00000d20| 73 65 20 69 66 20 73 74 | 72 20 3d 20 27 46 49 4e |se if st|r = 'FIN|
|00000d30| 44 27 20 74 68 65 6e 20 | 66 69 6e 64 0a 20 20 20 |D' then |find.   |
|00000d40| 20 20 20 20 20 65 6c 73 | 65 20 69 66 20 73 74 72 |     els|e if str|
|00000d50| 20 3d 20 27 43 48 41 4e | 47 45 27 20 74 68 65 6e | = 'CHAN|GE' then|
|00000d60| 20 63 68 61 6e 67 65 0a | 20 20 20 20 20 20 20 20 | change.|        |
|00000d70| 65 6c 73 65 20 69 66 20 | 73 74 72 20 3d 20 27 45 |else if |str = 'E|
|00000d80| 44 49 54 27 20 74 68 65 | 6e 20 65 64 69 74 0a 20 |DIT' the|n edit. |
|00000d90| 20 20 20 20 20 20 20 65 | 6c 73 65 20 69 66 20 73 |       e|lse if s|
|00000da0| 74 72 20 3d 20 27 46 4f | 52 4d 41 54 27 20 74 68 |tr = 'FO|RMAT' th|
|00000db0| 65 6e 20 66 6f 72 6d 61 | 74 0a 20 20 20 20 20 20 |en forma|t.      |
|00000dc0| 20 20 65 6c 73 65 20 69 | 66 20 73 74 72 20 3d 20 |  else i|f str = |
|00000dd0| 27 44 45 46 49 4e 45 27 | 20 74 68 65 6e 20 6d 61 |'DEFINE'| then ma|
|00000de0| 63 72 6f 0a 20 20 20 20 | 20 20 20 20 65 6c 73 65 |cro.    |    else|
|00000df0| 20 69 66 20 73 74 72 20 | 3d 20 27 4d 41 43 52 4f | if str |= 'MACRO|
|00000e00| 27 20 74 68 65 6e 20 6d | 61 63 72 6f 0a 20 20 20 |' then m|acro.   |
|00000e10| 20 20 20 20 20 65 6c 73 | 65 20 69 66 20 73 74 72 |     els|e if str|
|00000e20| 20 3d 20 27 51 55 49 54 | 27 20 74 68 65 6e 20 68 | = 'QUIT|' then h|
|00000e30| 61 6c 74 0a 20 20 20 20 | 20 20 20 20 45 4c 53 45 |alt.    |    ELSE|
|00000e40| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 42 45 47 |.       |     BEG|
|00000e50| 49 4e 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 57 |IN.     |       W|
|00000e60| 52 49 54 45 4c 4e 28 27 | 3f 27 29 3b 0a 20 20 20 |RITELN('|?');.   |
|00000e70| 20 20 20 20 20 20 20 20 | 20 44 4f 4e 45 3a 3d 46 |        | DONE:=F|
|00000e80| 41 4c 53 45 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ALSE.   |        |
|00000e90| 20 45 4e 44 0a 20 20 20 | 20 20 20 20 20 45 4e 44 | END.   |     END|
|00000ea0| 3b 0a 20 20 20 20 65 6e | 64 63 6d 64 3b 0a 20 20 |;.    en|dcmd;.  |
|00000eb0| 20 20 45 4e 44 3b 0a 0a | 45 4e 44 2e 0a 53 48 41 |  END;..|END..SHA|
|00000ec0| 52 5f 45 4f 46 0a 69 66 | 20 74 65 73 74 20 32 36 |R_EOF.if| test 26|
|00000ed0| 35 34 20 2d 6e 65 20 22 | 60 77 63 20 2d 63 20 3c |54 -ne "|`wc -c <|
|00000ee0| 20 27 73 68 65 6c 6c 2e | 70 61 73 27 60 22 0a 74 | 'shell.|pas'`".t|
|00000ef0| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|00000f00| 65 72 72 6f 72 20 74 72 | 61 6e 73 6d 69 74 74 69 |error tr|ansmitti|
|00000f10| 6e 67 20 22 27 73 68 65 | 6c 6c 2e 70 61 73 27 22 |ng "'she|ll.pas'"|
|00000f20| 20 27 28 73 68 6f 75 6c | 64 20 68 61 76 65 20 62 | '(shoul|d have b|
|00000f30| 65 65 6e 20 32 36 35 34 | 20 63 68 61 72 61 63 74 |een 2654| charact|
|00000f40| 65 72 73 29 27 0a 66 69 | 0a 66 69 20 23 20 65 6e |ers)'.fi|.fi # en|
|00000f50| 64 20 6f 66 20 6f 76 65 | 72 77 72 69 74 69 6e 67 |d of ove|rwriting|
|00000f60| 20 63 68 65 63 6b 0a 23 | 09 45 6e 64 20 6f 66 20 | check.#|.End of |
|00000f70| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 0a 65 78 |shell ar|chive.ex|
|00000f80| 69 74 20 30 0a          |                         |it 0.   |        |
+--------+-------------------------+-------------------------+--------+--------+