Newsgroups: alt.sources
From: ken@bitsko.slc.ut.us (Ken MacLeod)
Subject: Unidel 1.0, a Citadel-style news/mail reader and BBS, part 08 of 09
Message-ID: <1992May3.013029.18990@bitsko.slc.ut.us>
Date: Sun, 3 May 1992 01:30:29 GMT

Submitted-by: ken@bitsko.slc.ut.us
Archive-name: unidel-1.0/part08

---- Cut Here and unpack ----
#!/bin/sh
# This is part 08 of unidel-1.0
if touch 2>&1 | fgrep 'amc' > /dev/null
 then TOUCH=touch
 else TOUCH=true
fi
# ============= doc/rsys0192.doc ==============
echo "x - extracting doc/rsys0192.doc (Text)"
sed 's/^X//' << 'SHAR_EOF' > doc/rsys0192.doc &&
X                        The Room Oriented BBS List
X                              January 1992
X
X Node Name           C Phone Num.   S Ba Software      Sysop              Last
X ----------          - -----------  - -- --------      -----------------  ----
X 3cpu                  503-246-9712 o ?? ????????????? ?????????????????? 91Oct
X 5150 Citadel          414-353-5062 o 12 Cit86 2.17
X 8th Demension         206-488-1290 c 12 DragCit.      ???????            89May
X 9 Hells               801-485-4355 o 96 STadel3.3c    Synical Sorcerer   91Nov
X abyss                 613-830-1486 c 24 STadel3.3c    mutant             89May
X Acropolis             916-967-5817 o 24 Acropolis     Robert Bequette    89Nov
X AIE                   713-444-6972 o 24 ????????????? Scott              90Sep
X Alcatraz BBS        & 604-530-6145 o 24 Cit86v3.38    Sunman             91Oct
X Alesis Systems        914-634-7855 o 24 Cit68kv3.31   Jeremy Moskowitz   90May
X Amiga Annals,The      315-342-1579 o 24 Cit68kV3.31   Shawn Kelly        90Aug
X Amiga Archives, The   916-444-9982 o 24 Novucivitas   Donovan Colbert    90Aug
X Amiga Link - line 1   916-682-8872 o 24 Acropolis     Lindsey Fong       89Nov
X Amiga Link - Line 1   916-447-3842 o 24 Acropolis     Lindsey Fong       89Nov
X Amiga Link - Line 2   916-682-8874 o 24 Acropolis     Lindsey Fong       89Nov
X Amiga Link - Line 2   916-991-8553 o 24 Acropolis     Lindsey Fong       89Nov
X Amiga Link - Line 2   916-447-3843 o 24 Acropolis     Lindsey Fong       89Nov
X Amiga Zone            609-953-8159 o 24 Cit68Kvx.xx   Tony Preston       91Dec
X Artificial Reality    612-774-3354 o ?? ParaCitadel   Thomas Katt        89Oct
X Asylum II,The         916-363-3447 o 12 Asgard-86     ??????????         89Aug
X Asylum, The           206-439-7890 o 12 Cit68kv?.??   ???????????        91Jun
X Atlantis              609-778-3747 o 24 CitK2NEv5.17  Gas Man            91May
X Au Contraire          616-344-5599 o 24 Cit86v3.39    Cristy             91Aug
X Babel                 206-363-8969 o 24 Babel301      Bob Perigo         88Mar
X BackFence             612-429-5001 p 24 Cit86v3.40    Jimbo              91Oct
X Bad Sector            612-377-6881 o 96 Cit86v3.39    Biko Mack          91Aug
X Badinage Mansion      317-576-0896 o ?? Zinfandel     Jason Massey       91Aug
X Baud                  902-434-1482 o 12 STadel3.3a    Len MacGillivary   89Aug
X Bauhaus BBS           206-672-0956 o 24 STadel3.3     Devin Cook         89Dec
X Beach                 616-349-5887 o 24 Cit86v3.40    Lunatic Surfer     91Oct
X Black Hole            616-343-7487 c 24 Cit86v3.40    Omnedon            91Dec
X Blade                 617-891-7338 o 12 STadel        Laird Popkin       91May
X Boise-Citadel       $ 208-386-9296 c 24 Cit68Kv3.31   Scamper            91Dec
X BPBBS                 817-573-4190 o 24 fnord v1.32-5 The Prophet        91Nov
X Brazil                309-786-5638 o 24 Cit86v3.39    Evan Emswiler      91Aug
X Byteways              516-433-3309 o 24 ????????????? Cyborg             91Aug
X Cafe Dionysus & Co.   206-523-8874 o 30 Cit
X Callahan's            612-644-2551 o 24 Cit86v3.38    Chilly Willy       91Aug
X Castle Precept        516-447-6034 c 96 Cit86e        Pat                91Apr
X Caves of Chaos        206-641-0647 o 24 Henge 2.30b   Major Chaos        88Jan
X Central City          701-776-6400 c 30 Cit           Mark Fossum
X Cheryl's Velvet Tou   206-937-2957 o 12 MiniBin
X chess                 613-729-3792 c 24 Stadel 3.3c   devil's advocate   90Jul
X Chez' Spaz            612-895-8035 o 24 Cit86v3.39    your Father        91Aug
X Circuits2             703-347-7953 o 96 Fort/PCv1b    Circuits           91May
X Citadel-86 Test Sys # 612-470-9635 o 96 Cit86v3.40    Hue, Jr.           91Oct
X City of Lankhmar      206-885-5266 o 12 Henge 2.30    Grey Mouser
X Class68               612-932-0743 o 24 STadel3.3d    Greg Forseth       91Jan
X Closet of Anxieties   609-953-9215 o 30 Cit64
X Cocotel               804-495-9549 o 96 Fort/PCv1c    chuck              91May
X Cold Winter's Knigh   916-487-2819 o 24 STadel        Yellow Dragon      89Nov
X Conquest,The          902-462-7824 o 14 Cit86v3.40    Martin Settle      91Dec
X ConTessa BBS          902-423-4843 o 24 Cit86v3.40    Chris Maxwell      91Oct
X Cryptic Slaughter     206-432-6904 o 12 Cit 1.29a     Cryptic Slaughter  88Feb
X ctex                  613-345-4858 o 24 STadel-Ami    maverick           89Mar
X Cuckoo's Nest, The    317-547-8868 c 24 Cit68k 2      Prince Artagel     90May
X Cyber                              p 96 Cit86v3.40    D.Rider            91Dec
X Cygnus                607-729-5506 o 96 STadel3.3b    Todd Krissel       89Dec
X CyWorld               916-966-2704 c 24 Novucivitas   Cy                 90Jan
X dahbbs              & 613-236-1585 c 24 STadel3.3c    darts              89May
X Dark Tower            206-244-1766 o 12 Cit
X Data Dogs             503-935-4605 o 12 STadel3.0b    Terry Jenkins      91Oct
X Data Drum             217-529-8440 o 24 Cit86v3.38    Dave Drum          91Jul
X Dead Zone, The        315-724-0914 o ?? ????????????? Rigger T. Mortis   90May
X Digital Dimension     902-457-1949 o 24 Cit86v3.24    Gordon Sleigh      90Aug
X Digital Dungeon       805-683-2436 o 24 MacCit?       Jerry Ash          88Oct
X DogLink               612-460-6056 c 24 Cit86v3.40    K-9                91Oct
X Door into Markland    916-755-0838 o 24 CitK2NEv5.17  Info Man           91May
X drac                  503-239-8918 o 24 ????????????? Robin Hood         91Oct
X Dragons Den II        916-635-1798 o 12 Sac Cit       Vince Seifert      89Aug
X Dream Park            415-945-7799 o 24 Citadel       Number Six         89Nov
X DREAM WORLD           718-849-3232 o 24 Cit86e        Bill               91Jun
X Duckbus               609-953-0207 o 24 CitK2NEv5.17  Irving the Duck    91May
X Eagles Roost II NJ    908-270-3742 c 24 Cit86e        Pat Climento       91Nov
X Earl's Castle         916-381-4127 o 12 Sac Cit       Jim Earl           89Aug
X Earl's Castle (Alt)   916-967-1643 o 12 Sac Cit       Jim Earl           89Aug
X Eclipse               916-725-0674 o ?? Novucivitas   Pinkerton Floyd    90Feb
X Eclipse_BBS           508-677-1460 c 24 ????????????? Patrick Nadeau     90Jun
X Egads                 612-753-1622 o 30 Metropolis    Helper             87Jul
X Electric Monk, The    415-967-6067 o 12 Asgard-86v1.4 Droud              90Feb
X ElfQuest              916-332-7945 o 24 Asgard86v1.49 Elf                91Oct
X Endless Power         317-575-9435 o ?? STadel-PC     Jeff Neese         88Oct
X Enterprise            718-646-4218 o 24 Cit86e        ??????????         91Mar
X Entropy               216-492-5620 o 24 Cit86e        Daniel Pigford     91Nov
X ENY                 # 914-735-9362 o 96 Cit86e        Farokh Irani       91Oct
X Exotic                206-367-8242 c 12 Henge 2.26    The Ninja          87Jun
X Expressway BBS        516-753-0392 o 96 Cit86e        Stan Schwartz      91Dec
X Eye of the Storm      612-928-9726 o 24 Cit86v3.39    Stormwolf          91Aug
X Factory               208-383-9557 o 24 STadel        mkentley           91Oct
X Ferret Farm,The       403-457-3396 o 24 Cit86v3.40    Wolf               91Oct
X Fifth Dimension,The   214-416-6833 o 24 CitGrem       Maher Maso         87Jun
X Floydian Slip,The     602-246-8745 o 12 STadel3.3a    Bert               88Oct
X Forge, The            206-827-1817 o 12 Cit1.26
X ForRealm              403-450-0618 o 24 Cit86v3.40    Lenar              91Oct
X Forum,The             403-474-5359 o 24 Cit86v?.??    Slartibartfast     91Jan
X Foundation's Edge     916-454-5983 o 12 Asgard-80     Qwerty & Sonja     89Aug
X Free Lunch            612-431-1107 o 24 Cit86v3.40    Hue                91Oct
X FROZEN Hut, NJ        609-893-6915 o 24 CitK2NEv5.17  IceMan             91Oct
X FWBBS                 303-469-4954 o 24 STadel3.3a    Jeepster           91Sep
X gAmiga                916-446-6249 o 24 Acropolis     Jon-Jon & Ami Guy  89Aug
X Garbanzo              707-539-1279 o 24 b0badelv1.18  Jim Bianchi        91Oct
X GatewayNJ             609-931-3014 o 24 STadel3.3d-22 Bob Kifferly       91Mar
X Generic BBS           908-389-8473 c 24 Cit86e        Cah                91Mar
X Glass Spider, The     315-639-6409 c 24 Cit86v3.20    Aahz               89Aug
X Greenlake Connectio   206-782-6669 o 12 Cit
X Grendel's Abyss       403-439-0229 o 24 Cit/UXv2.23   Dragos Ruiu        90Sep
X Greylien              612-753-6002 o 24 Cit86v3.39    Greyman            91Aug
X H-I-T-E-C             206-285-3382 o 12 Henge
X Hanger BBS, The       309-829-0100 o ?? ????????????? Scott Ward         91Dec
X Harvest Moon          503-746-4457 o ?? ????????????? ?????????????????? 91Oct
X Hatzlacha             213-466-3861 o 12 Henge 2.30    Roger Tuttle       87Jun
X Health On Line        206-367-8726 o 12 Henge 2.30    Rob C.             87Jun
X HHQ                   713-376-6670 o 24 Cit86v3.31    C.J. Mercer        90Sep
X Hidden Adventure      914-354-5930 o 24 Cit86e        Vacasta            91Aug
X High Tension_CT       203-348-8589 o 24 Cit68kv3.31   Grove              90Mar
X HIL-Vancouver         604-251-7677 o 24 Cit86v3.38    Michelle           91Nov
X Holt, The             403-486-2722 o 24 ??????        Short Stuph        91Jun
X Hornet's Nest         609-894-0239 o 24 CitK2NEv5.17  Bioman             91Nov
X Hotel 86              916-927-7680 o 24 Asgard-86     Gary S. Meadows    90Feb
X Husker Du           & 607-729-1735 o 24 STadel-PC     Marc A. Criley     89Apr
X Hypercube           & 317-773-7757 o 24 Cit86 V3      Death by Torture   88Apr
X Iconoclast            609-234-0442 o 24 CitK2NEv5.17  roue               91May
X Illusions             612-470-1882 o 24 Cit86v3.40    mary mary          91Oct
X Images                612-884-7951 o 24 Cit68k3.38    Sy Borg            91Nov
X Infoboard             206-759-4391 o 24 Henge                            88Jan
X Interface           & 707-823-3052 o 24 b0badelv1.18  b0b                91Oct
X Invisible Seattle     206-784-7685 o 12 IdeaTree      Mehitabel
X Ivory Tower           612-425-0554 o 24 Cit86v3.40    Topper             91Oct
X JACS                  609-346-1224 o 24 STadelv3.3d   Mike Hopkins       91Mar
X Jersey Devil, The   # 609-893-2152 o 24 CitK2NEv5.17  Vince Quaresima    91Oct
X Junkyard BBS          609-486-7384 o 24 CitK2NEv5.17  Automan            91Oct
X Kronos                403-886-4171 o 96 Cit86v3.38    The Nomad          91May
X Laaz Rockit           513-254-5440 o 24 STadel-Ami3.3 Red SAVage         89May
X Labyrinth             616-629-5639 o 12 Cit86v3.26    Stiletto           90Jan
X Last Call, Jr.        612-546-4182 o 96 Cit68Kvx.xx   moi                91Oct
X League                503-254-1754 o 24 Fortress-PC   Zakureth           91Nov
X Library II            206-643-9965 o 24 Henge
X Lockheed              902-852-4094 o 12 Cit86v3.30    Chris Forgeron     90Feb
X Logopolis             916-784-9432 o 24 Novucivitas   ???????????        90Jan
X Lost Island Desktop   214-276-7499 o 24 Cit? ?.?      Dennis Recla       88Dec
X Luna Free State       317-298-8490 o 12 STadel3.1f    Mycroft Holmes     88Mar
X Lunatic Fringe        919-571-7736 o 24 Asgard-86     Coppertop          91Jun
X MacCitadel Test Sys # 213-820-4320 o 96 Mac Citadel   Glen Heinz         90Jan
X Macross City          805-964-9125 o 12 Henge 2.26    Oreo Cat           87May
X Magician's Realm      609-953-4037 o ?? CitK2NEv5.17  Magician Dor       91Oct
X Mainframe           & 206-362-8158 o 12 Cit? ?.?
X Manila-Center       & 206-364-2529 o 12 Cit86v3.38    SpareCat           91Jun
X Mars Hotel, The       612-332-5156 o 24 Cit86v3.39    Daniel             91Aug
X Mars_Hill             604-589-0639 c 96 Cit86v3.38    Sifu               Nov91
X MAST                  612-472-6582 o 19 STadel3.3d    tacook             91Aug
X Mayday I              206-523-0462 o 12 InnerSanctum
X Mensa On-Line         612-780-2518 o 24 Cit86v3.38    Star Child         90Dec
X Metal CA              415-820-2177 o 24 STadel        Tormentor          89Nov
X Micro-Systems       & 609-546-7839 c 30 Cit86 2.03                       86Jan
X MicroMagic            206-863-1713 c 30 Cit           Jason Ward
X MIDI                  612-825-4296 o 24 STadel        Lydian Kev         90Feb
X Milatari              414-476-9119 c 24 STadelv3.3d   ???????????        90Aug
X Minimart              704-552-7906 o 24 Cit86v3.40    Duane Leonards     91Oct
X MN-Mensa.MN           612-225-9890 o 24 Cit86v3.40    Star Child         91Nov
X Mountain Man          303-797-6783 o 96 Cit86TI3.38   Roy Bartee         91Apr
X Muse                  916-923-1530 o 24 Asgard-86     Bob Carlstroem     89Aug
X Mustang Ranch         403-529-5412 o 24 Cit68kV3.31   Mr. Perfect        90Oct
X MVAFIX                315-732-8598 c 24 STadel3.3a    frenchy            89Dec
X MythAdv               503-246-4048 o ?? ????????????? ?????????????????? 91Oct
X naubbs                613-733-4081 c 24 STadel3.3c    strad              90Jan
X NDP                 & 415-276-3677 o 96 Fort/PCv1c    Portmaster         91May
X Net House NJ,The      609-854-1471 o 24 CitK2NEv5.14  Bob Barkhamer      91Sep
X Nightmare           & 513-259-0098 o 24 STadel        Bob Karmosay       89Sep
X Nightwing's Realm     206-784-5913 o 24 InnerSanctum  Shade Nightwing    89Mar
X NIIBBS                ???-???-????   12 Cit-86        Bryan Esbaugh      89Nov
X Noahs ark             401-246-0504 o 12 Stadel-PC     noah
X Norad_nj              609-488-5208 o 24 CitK2NEv5.16  David Lightman     91Feb
X NotA BBS              914-736-9388 o 96 Cit86e        D Robinson         91Jun
X NSCC Swamplands       206-527-3650 o 24 DragCit       ???????            89May
X NukeTheWhales.AB.CA   403-255-5702 o 96 Cit68Kv3.31.b Ed the Plankton    91Nov
X Nybble                916-487-2604 o 24 Nybble        Happy Hacker       89Aug
X Omni                  916-386-2521 o 24 Asgard-86     Charles Meadows Jr 89Aug
X Only BBS, The         801-539-0605 o 24 fnordv1.32-51 arthur dent        91Dec
X Outer Limits          206-285-3210 o 30 OLBBS         The Great Zod      87Jun
X Overlord's Party      301-725-6920 o 24 NovuCivitas   Jeff Waltzer       91Jan
X overmind              404-659-5720 o 19 STadel&MUUCP  cmc                91May
X Paranor               612-890-1345 o 24 ????????????? ?????????????????? 91Dec
X Phantasie Land        206-874-2545 o 12 Cit
X Players               503-624-7303 o ?? ????????????? ?????????????????? 91Oct
X Polaris               214-750-6374 c 12 Cit           Clint Wheelock     87Jun
X PolarServ           $ 206-782-5022 o 30 Babel         T'an T'u           87Apr
X POOF BBS              612-784-8643   ?? ????????????? Bugmastah          91Nov
X Poopsie(Channel 23)   403-288-4481 o 24 <fnord>1.30   John Edstrom       90Sep
X Post Office, The      206-546-9158 o 12 Henge                            88Jan
X Pot Of Gold,  The     303-761-4039 o 12 STadel3.1e    Leprechaun Lord    87Dec
X Power Alley           315-738-1504 c 12 Cit 3.14      Jan Wielgosz       91May
X ProtoSoft           # 206-932-7125 o 12 IdeaTree
X PyroDyme              916-989-5136 o 24 Novucivitas   General Instrument 89Aug
X Quality BBS           908-901-0762 o 24 Cit86e        The Resource       91Apr
X Quest,The           & 217-546-7608 c 24 Cit68kV3.31   Dominic Duvall     91Dec
X Quincunx              403-455-1701 c 24 <fnord>1.30   Not Quite Cricket  90Sep
X Rabbit Hutch          717-354-5027 o 24 STadel3.3     John               88Jul
X Reality Cheque        704-523-2063 o 24 Cit86v3.40    Piouhgd            91Dec
X Red Room              704-548-1648 o 24 Cit86v3.40    Dark Elf           91Oct
X Rivendell             902-463-4144 o 24 ElfBBSv1.0    Dino Nardini       91Oct
X robocity              503-255-1446 o ?? ????????????? ?????????????????? 91Oct
X RT                    403-455-2709 o 24 <fnord>adel   Mr. Neutron        91Mar
X SabreLine             612-896-2706 o ?? MacCitadel    Sabre              91Jan
X Sanctuary             206-747-6839 o 12 Henge 2.30a   Tempus             87Jun
X Sanctum of Thought    503-246-4048 o ?? <fnord>adel   ?????????????????? 91Dec
X santiago              503-282-3386 o ?? Fortress-PC   The Master of Time 91Oct
X Satellite System      206-762-5141 o 12 MiniBin5.5    Jimbo Ryan         89Jan
X Schizo                704-554-9239   24 Cit86v3.40    DarkStar           91Oct
X SDF3                  908-946-7869 o 24 Cit86e        ??????????         91Mar
X Secret Service        315-735-2058 o 12 Cit86v3.13    Michael Bowen      90Mar
X Secret Service,The  # 403-425-1779 o 24 <fnord>1.30   elim               90Sep
X Signals               206-545-4343 o 12 Henge         John Shannon       89Mar
X Sinkhole              203-873-8518 o 24 fnordv1.33    Bill.K             91Oct
X Skyline               206-628-3811 o 12 CitGrem       Gremlin            88Jan
X Slanderous Slang      408-659-4091 o 24 Cit86v3.32    Chucho             90Aug
X SLUG'S Hard Rock Ca   503-645-4915 o 24 MacCitadel    SLUG!              91Oct
X Small Citadel         612-377-2470 o 12 STadelv3.3c   Shane Ziegler      89Aug
X Snickersnack          206-869-8697 o 24 fnord         Zair TL            91Aug
X Soma                  503-846-7727   96 Stadel3.3d    somaman            91Oct
X SOS                   717-355-9173 o 24 CitK2NEv5.10  Steve & Jason      90Jun
X Spectrum              206-355-4340 o 12 Cit
X ST-Keep BBS           916-729-2968 o 24 ST-Keep       Andrew Studer      90Aug
X STone Ground          615-588-3155 o 24 Stadel3.1g    Martin Hodge       88Feb
X StonefiST             902-462-8515 c 12 STadel3.3a    Darren Boucher     89May
X Sudden Impact         206-361-1993 o 12 Cit? ?.?      ????????           88Jan
X SwampNet              902-463-0483 o 96 Cit68Kvx.xx   Michael Dinn       91Oct
X Synch                 612-929-3067 o 24 Fort/PCv1c    Sting              91May
X Syntax Error          503-681-8232 o ?? ????????????? ?????????????????? 91Oct
X Sysop Central         916-363-1171 o 12 Sac Cit       Larry Reznick      89Aug
X Tapestry              206-488-0115 o 12 DragCitv3.10  ??????????         89Jun
X Tapestry              206-784-9014 o 12 CitGrem       Inyanna            88Jan
X Terminal Obsession    914-356-5709 o 24 Cit86e        Pat Keane          91Nov
X Time Arts BBS         707-576-7352 o 24 b0badelv1.04   N/A               90Aug
X Time Warp BBS, The    206-565-4310 o 24 Cit86v3.38 ?? Riff Raff          91Feb
X Touch Me Two          206-938-8234 o 12 MiniBin
X TPT4                  408-255-6288 o 24 Fort/PCv1c    Mike Leeling       91May
X Traders Outlet_CT,T   203-324-9848 o 24 Cit68k3.27    The Trader         90Feb
X Tranquility Base      206-525-0497 o 30 MiniBin
X Troy City           & 508-677-4535 c 24 Cit68kv3.31   ChrisL             91Apr
X TUG ECS               206-763-3116 o 12 MiniBin
X TwitZone              503-681-8135 o 24 Fort/PCv1c    Parker Lewis       91Oct
X TWWOL                 902-454-9053 o 24 Cit68kv3.27   Loki               91Sep
X Ultra-Net             612-536-8904 o 24 Cit86v3.40    Tom Kirkland       91Oct
X undermind           # 404-521-0445 o 96 Fort/PCv1c    cmc                91May
X Underworld            206-244-6252 o 24 Henge 2.30    Grim Reaper        87Jun
X Unknown Kadath        201-615-0214   12 Cit286        Dave Van Cleef
X V'ger                 214-727-8056 o 12 DragCitv3.10  Malcolm Petcher    89Jun
X Wally's Ware World    701-746-8551 o 12 Cit86vx.xx    eru                90Jan
X WebHunt               916-456-8641 o 24 Asgard86v1.49 Bill Belon         91Oct
X WESCAC                206-781-6961 o 12 Citv2.14      Jack Fleming       89Jan
X Westside Citadel      817-244-3885 o 12 Cit
X WhereHouse,The        403-347-8284 o 12 Cit86v3.27    A. R. F.           90Jun
X Wicca Citadel         609-893-7383 o 24 CitK2NEv5.17  The Wizard         91Dec
X Willie's Place        609-261-4315 c 24 CitK2NEv5.17  Willie T Warthog   91Oct
X Wolf's Den            612-469-3296 o 24 Cit86v3.39    Cryo Ruggie        91Sep
X XAKEPOBO MECTO        206-324-0830 c 12 Henge 2.30    M.Aichlmayr        89Feb
X Xanadu                206-762-8667 c 12 Henge 2.30    The Muse           87Jun
X XESTadel              902-865-0101 c 24 STadelv3.3d   Bruce MacKay       90Aug
X YT&T (YOYODYNE)       916-369-6702 o 24 Citadel       Pagan St. Flames   89Aug
X Zorba Connection BB   713-946-5467 o 24 NovuCivitas   Phillip Keen       90Oct
X                       
X                      ^              ^  ^                                 ^
X                    /                |  |_Baud                            |
X                  /                  |  12=1200, 24=2400                  |
X       Misc. codes:                  |  30=300, 96=9600                  /
X   #= headquarter system             |  19=19.2kb                  Date of
X   $= pay fee for access             |                             latest
X   &= strange hours           System access                        contact 
X                              c - controlled (Mail to Sysop)               
X                              o - open                                     
X                              p - private (nominations)
X  ===========================================================================
X                  Total number of systems listed = 259
X     ====================================================================
X                                      
X    Systems above are assumed to be up 24 hours unless otherwise noted.
X    Be careful not to call systems with "strange hours" at, say, 2am.
X 
X        Consult the front of your local phonebook about area codes!
X 
X                                * * * * *
X    Corrections/Additions/Changes from the last list dated December, 1991
X
X        Down Systems : Bat Cave
X                       Nuuduitgaang
X                       Church
X                       Revelstone
X                       maison de sante
X
X               Changes: Sysop of Black Hole listed as Omnedon (was DOM DOOM)
X                        The Quest is running Citadel part-time
X
X             Additions: Amiga Zone
X                        Sanctum of Thought
X                        Paranor
X                        Cyber (this is a point node, no number supplied)
X                        Boise-Citadel
X                        
X             REMINDERS: Interface hours: 8:00pm-8:00am Pacific time
X                        Troy City hours: 7:00am-12:00am EST
X                        Husker Du hours: 10:00am-10:00pm EST Mon-Sat,24hr. Sun
X                        Oasis hours: 6:00pm - 7:00am M-F, 24hrs. weekends
X                        Synapse hours: 7:00pm - 7:00am Central Time
X                        SpareCat hours : 9:00pm - 7:00am PST
X                        The Quest is running Citadel part time, Citadel hours
X                         Midnight - 4:00am, 8:00am-Noon, 4:00pm-8pm, running
X                         DLG Pro other times
X                                 * * *         
X                                               
X  1. You must be the Sysop of the system in question. (If you are not
X     the Sysop, ask him/her to send the information.)
X 
X  2. I need *all* the information at once! (System name, phone number,
X     maximum baud, system software, and Sysop's name). If you can format it
X     to look the way it does in the list, that helps me too. (I currently
X     spend an awful lot of time re-formatting.)
X 
X  3. Deadline for submissions is the 20th of every month. Send your update
X     to me at one of the following addresses:
X 
X  4. It seems that when sysops pull the plug on their system, they fail to let
X     anyone know, so the new rule is, If you don't update your system info at
X     least once a year, and I get information that it's down by a reliable 
X     source, like a sysop I have known for while..it will be taken off the list.
X 
X      Where I can be reached :
X         
X                 System             Name/Alias
X              =================================
X                  Sinkhole          Bill.K
X                   Mast!Sinkhole!Bill.K
X                  Gateway!Sinkhole!Bill.K  
X       Also any system carrying Net.Gossip, Citanews or BBS List
X                      
X As usual, constructive comments, suggestions, and ideas are welcome.
X 
X                           **********************
X SOFTWARE BRIEFS:
X Acropolis    Turbo Pascal room system.
X AmiDel       Citadel for the Amiga  by Timelord &  Cap'n Dave
X ATKeep       Atari 800XL room system.
X Asgard-86    NEED ALL the information on this one...Please
X Babel        runs under Unix on a Charles River Data Systems SuperBox V,
X              by T'an T'u of Seattle, WA. (multi-user?)
X b0badel      STadel-PC 3.2 deriviative by b0b. Runs on any MS-DOS
X              machine with a FOSSIL driver.  Source availiable at Interface.
X Cit          the original CP/M version 2.1x written by Cynbe ru Taren,
X              or some derivative there of. (catch-all category)
X C86e         Citadel-86e for MS-DOS machines by Farokh Irani
X Cit64        Citadel on Commodore 64? Need more input on this one.
X Cit68k       Citadel for the Amiga by Stallion.
X Cit86        Citadel-86 for MS-DOS systems, by Hue, Jr. of Minneapolis, MN
X              (Zenith Z-100 and PC clones) v2.xx indicates network capable.
X CitGrem      Citadel for MS-DOS by Gremlin.
X CitK2NE      Citadel:K2NE for MS-DOS Machines by Alan Bowen, Vince Quaresima,
X              and Brian Riley.  Nets with Cit86, STadel and FIDOnet boards.
X Cit86TI3.38  Citadel for the TI PC. Hue, Jr.s' Citadel with drivers for the 
X              TI PC provided by Robert Nelson ?  <note the ?
X CitSim/WICAT For use with the Wicat multi-user mini
X DD           Digital Dungeon - Citadel for DOS ? NEED MORE INFO !!!
X ElfBBS       C86 net compatable written by Dino Nardini, in Turbo Pascal.
X              Runs on DOS type system.  Still in Beta-development
X Fortress     Citadel for DOS systems by Chris Camacho (cmc)
X <fnord>adel  Citadel for the Atari ST by Elim & Mr. Neutron
X FUBARC       Yet another variation..........
X Henge        StoneHenge for MS-DOS systems, by David Bonn of Seattle, WA
X IdeaTree     for MS-DOS systems? by ProtoSoft, Inc.
X MiniBin      room system (in BASIC?) by Glenn Gorman of Seattle, WA
X MacCitadel   Citadel for the Apple Mac - by  Glen Heinz     
X Cit2.16s     CP/M Citadel for the SONY
X neoCit       neoCitadel, written in Turbo Pascal by Hue, Sr
X Novucivitas  NEED ALL the information on this one too ...
X SAC CIT      Another one that needs to be updated...
X STadel       Citadel for the Atari ST by orc.
X STadel-PC    Citadel for DOS systems by orc                              
X STadel-Ami   Citadel for Amiga systems by Eric A. Griff
X ST-Keep      Citadel for the Atari ST, by Andrew Studer
X Unidel       UNIX/UseNet news reader, multiuser bbs, & UseNet Gateway
X pseudo       Pseudodel for Apple
X 
X                                * * * * *
X 
X ACKNOWLEDGEMENTS:
X I'd like to thank the following for their help and support :
X    
X      Hue, Jr. @ C-86 Test System as always ...                     
X      Doctor GIF, (I bet you thought I missed your message ;-)
X      and anyone who send updates .. you make my job that much easier !
X                
X                              ***************            
X                                   
X Disclamer: This list is provided for reference purposes only, and carries no
X guarantees, implied or otherwise, with regard to the accuracy of the
X the list.
X
X Note:         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
X        !!!!!!!!   C I T A D E L   I S  1 0  Y E A R S  O L D !!!!
X               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
X                    Happy Birthday and Happy New Year !!
SHAR_EOF
$TOUCH -am 0502131792 doc/rsys0192.doc &&
chmod 0644 doc/rsys0192.doc ||
echo "restore of doc/rsys0192.doc failed"
set `wc -c doc/rsys0192.doc`;Wc_c=$1
if test "$Wc_c" != "27621"; then
	echo original size 27621, current size $Wc_c
fi
# ============= doc/rules.doc ==============
echo "x - extracting doc/rules.doc (Text)"
sed 's/^X//' << 'SHAR_EOF' > doc/rules.doc &&
XFrom: spaf@cs.purdue.EDU (Gene Spafford)
XNewsgroups: news.announce.newusers
XSubject: Rules for posting to Usenet (Updated: 9 May 1988)
X
XReplace this file with a recent copy of the article of the same
Xsubject in newsgroup news.announce.newusers.
SHAR_EOF
$TOUCH -am 0502132392 doc/rules.doc &&
chmod 0644 doc/rules.doc ||
echo "restore of doc/rules.doc failed"
set `wc -c doc/rules.doc`;Wc_c=$1
if test "$Wc_c" != "245"; then
	echo original size 245, current size $Wc_c
fi
# ============= doc/style.doc ==============
echo "x - extracting doc/style.doc (Text)"
sed 's/^X//' << 'SHAR_EOF' > doc/style.doc &&
XFrom: spaf@cs.purdue.EDU (Gene Spafford)
XNewsgroups: news.announce.newusers
XSubject: Hints on writing style for Usenet (Updated: 11 March 1988)
X
XReplace this file with a recent copy of the article of the same
Xsubject in newsgroup news.announce.newusers.
SHAR_EOF
$TOUCH -am 0502132392 doc/style.doc &&
chmod 0644 doc/style.doc ||
echo "restore of doc/style.doc failed"
set `wc -c doc/style.doc`;Wc_c=$1
if test "$Wc_c" != "254"; then
	echo original size 254, current size $Wc_c
fi
# ============= doc/summary.doc ==============
echo "x - extracting doc/summary.doc (Text)"
sed 's/^X//' << 'SHAR_EOF' > doc/summary.doc &&
XSummary of Extended Commands:
X
XYou type what's NOT in parenthesis, the computer responds with what IS.
XIn most places, you may type a _? for help.
X
X[KTVXYZ] =
X[_K]ermit, [_T]ext formatted, [_V]anilla unformatted,
X[_X]modem, [_Y]modem, [_Z]modem
X
XEnter Commands:
X  _._E(nter) _?                   Help on Enter commands
X  _._E(nter) _C(onfiguration)     Change your configuration
X                                 Editor, Password, Full name etc.
X
X  _._E(nter) _R(oom)              Create a new room
X
X  _._E(nter) _M(essage)           Enter a message
X  _._E(nter) [KTVXYZ] _M(essage)  Upload a message
X
X  _._E(nter) _F(ile)              Upload a file with configuration transfer mode
X  _._E(nter) [KTVXYZ] _F(ile)     Upload a file
X
XReading Commands:
X[AGNOR] =
X[_A]ll, [_G]lobal new, [_M]ore, [_N]ew, [_O]ld reverse, [_R]everse
X
X  _._R(ead) _?                      Help on Read commands
X  _._R(ead) _S(tatus)               Display BBS status
X  _._R(ead) _D(irectory)            List the files in this room
X  _._R(ead) _E(xtended Directory)   List the files with descriptions
X  _._R(ead) (arc)_H(ive header)     List the contents of a '.arc' file
X
X  _._R(ead) _n_n_n_n                   'nnnn' is an article number in a UseNet room,
X                                   use to return to an article for downloading
X                                   or replying.
X  _._R(ead) _<_m_e_s_s_a_g_e_-_I_D_>           '<message-ID' is the ID of an article, type
X                                   the '<' and '>' when entering.  Use to
X                                   find a referenced article.
X  _._R(ead) [AGNOR]                Read messages (same as one-key commands)
X  _._R(ead) _M(ore) [AGNOR]         Stop between messages while reading
X
X  _._R(ead) [KTVXYZ] [AGNOR]     Download messages
X
X  _._R(ead) _F(ile)               Download file with configuration transfer mode
X  _._R(ead) [KTVXYZ] [AGNOR]     Download files
X
XMiscellaneous Commands:
X  _._?                           This summary
X  _._H(elp) _?                    List of topics
X  _._H(elp) _T_O_P_I_C                Get help on TOPIC
X  _._K(nown) _R_O_O_M                Find out if ROOM is known
X  _._S(kip room goto) _R_O_O_M       Skip this room, go directly to ROOM
X  _._T(erminate) _Q(uit-also)     Log off immediate
X  _._U(ngoto room goto) _R_O_O_M     Ungoto this room, go direclty to ROOM
X  _._G(oto) _R_O_O_M                 Go directly to ROOM
X  _._Z(List Forgotten Rooms)     List Forgotten Rooms (Deja vu?)
X
XSee _;_? for Summary of Floor commands
SHAR_EOF
$TOUCH -am 0502131792 doc/summary.doc &&
chmod 0644 doc/summary.doc ||
echo "restore of doc/summary.doc failed"
set `wc -c doc/summary.doc`;Wc_c=$1
if test "$Wc_c" != "2639"; then
	echo original size 2639, current size $Wc_c
fi
# ============= doc/topics.doc ==============
echo "x - extracting doc/topics.doc (Text)"
sed 's/^X//' << 'SHAR_EOF' > doc/topics.doc &&
XType the following for detailed explanation of Citadel commands.
X
X* == You should read!
X
X.H(elp) ?              This list
X.H(elp) ANSWERS       *Answers to commonly asked questions (UseNet)
X.H(elp) ANSWERS2      *Answers to common questions about this BBS.
X.H(elp) COMMUNITY     *How to get along in the UseNet community (UseNet)
X.H(elp) HISTORY        Citadel Software history
X.H(elp) MAILLISTS      List of available mailing lists (UseNet)
X.H(elp) POLICY        *Policy of this BBS
X.H(elp) RULES         *General UseNet rules (UseNet)
X.H(elp) STYLE         *Writing style (UseNet)
X.H(elp) SUMMARY        Complete summary of [.] commands
X.H(elp) TOPICS         This list
X.H(elp) USENET         How to access the UseNet rooms
SHAR_EOF
$TOUCH -am 0502132192 doc/topics.doc &&
chmod 0644 doc/topics.doc ||
echo "restore of doc/topics.doc failed"
set `wc -c doc/topics.doc`;Wc_c=$1
if test "$Wc_c" != "726"; then
	echo original size 726, current size $Wc_c
fi
# ============= doc/usenet.doc ==============
echo "x - extracting doc/usenet.doc (Text)"
sed 's/^X//' << 'SHAR_EOF' > doc/usenet.doc &&
X  The following UseNet and alternative network rooms are available:
X
Xalt.bbs                    BBS talk
Xalt.bbs.internet           BBS talk about access to and from the Internet
Xalt.bbs.lists              Lists of BBSs
Xalt.bbs.lists.d            Discussions about lists of BBSs and alt.bbs.lists
Xalt.sources                Unmoderated sources (SOURCE POSTING ONLY)
Xalt.sources.d              Discussion about sources posted in alt.sources
Xcomp.dcom.telecom          Telecommunication (Moderated)
Xcomp.lang.smalltalk        The SmallTalk language
Xcomp.sys.mac.announce      Announcements of concern to the Mac community
Xcomp.sys.mac.comm          Macintosh communication and connectivity
Xcomp.sys.mac.misc          Miscellaneous Mac discussions
Xcomp.sys.mac.programmer    Macintosh programming
Xcomp.sys.mac.system        Macintosh system software
Xcomp.windows.interviews    The Interviews user-interface toolkit.
Xgnu.smalltalk.bug          GNU SmallTalk discussions
Xrec.nude                   Clothed by the Sun: Nudism and naturism
X
X  To get to one of these rooms type  .G(oto) ROOMNAME  where roomname is
Xthe name (or some unique part of it) on the left side of the list above.
X
X  Don't see a newsgroup you're interested in?  Ask and ye shall receive.
SHAR_EOF
$TOUCH -am 0502131792 doc/usenet.doc &&
chmod 0644 doc/usenet.doc ||
echo "restore of doc/usenet.doc failed"
set `wc -c doc/usenet.doc`;Wc_c=$1
if test "$Wc_c" != "1254"; then
	echo original size 1254, current size $Wc_c
fi
# ============= util/newslock.c ==============
if test ! -d 'util'; then
    echo "x - creating directory util"
    mkdir 'util'
fi
echo "x - extracting util/newslock.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > util/newslock.c &&
X/*
X * newslock - simple, unbroken version of ln(1) for shell-program locking
X *
X * (System V has broken ln(1) itself.)
X */
X#include <stdio.h>
X
Xmain(argc, argv)
Xint argc;
Xchar *argv[];
X{
X	if (argc != 3) {
X		fprintf(stderr, "Usage: %s tempname lockname\n", argv[0]);
X		exit(2);
X	}
X
X	if (link(argv[1], argv[2]) < 0)
X		exit(1);
X	else
X		exit(0);
X	/* NOTREACHED */
X}
SHAR_EOF
$TOUCH -am 0502140392 util/newslock.c &&
chmod 0644 util/newslock.c ||
echo "restore of util/newslock.c failed"
set `wc -c util/newslock.c`;Wc_c=$1
if test "$Wc_c" != "361"; then
	echo original size 361, current size $Wc_c
fi
# ============= util/newslock.sh ==============
echo "x - extracting util/newslock.sh (Text)"
sed 's/^X//' << 'SHAR_EOF' > util/newslock.sh &&
Xlock="$NEWSCTL/LOCKxxx"		# modify name as appropriate
Xltemp="$NEWSCTL/L.$$"
Xecho $$ >$ltemp
Xtrap "rm -f $ltemp ; exit 0" 0 1 2 15
Xwhile true
Xdo
X	if newslock $ltemp $lock
X	then
X		trap "rm -f $ltemp $lock ; exit 0" 0 1 2 15
X		break
X	fi
X	sleep 30
Xdone
SHAR_EOF
$TOUCH -am 0502140392 util/newslock.sh &&
chmod 0644 util/newslock.sh ||
echo "restore of util/newslock.sh failed"
set `wc -c util/newslock.sh`;Wc_c=$1
if test "$Wc_c" != "249"; then
	echo original size 249, current size $Wc_c
fi
# ============= util/place.sh ==============
echo "x - extracting util/place.sh (Text)"
sed 's/^X//' << 'SHAR_EOF' > util/place.sh &&
X#! /bin/ksh
X#
X# NAME
X#     place -- Place an article in a mail group.
X#
X# SYNOPSIS
X#    place newsgroup [...]
X#
X# DESCRIPTION
X#    place takes an article on standard input and stores it
X#    into newsgroup(s) under $HOME/mail.
X#
X# SEE ALSO
X#    unidel(1)
X
Xif [ $# -lt 1 ]; then echo "usage: $0 newsgroup [...]"; exit 2; fi
X
XmailDir=$HOME/mail
XnewsBin=/usr/local/lib/news/bin
X
Xcd $mailDir || exit 1
X
Xlock="LOCKxxx"		# modify name as appropriate
Xltemp="L.$$"
Xecho $$ >$ltemp || exit 1
X	
Xtrap "rm -f $ltemp ; exit 0" 0 1 2 15
Xxx=0
Xwhile [ "$xx" -lt 4 ]
Xdo
X	if $newsBin/newslock $ltemp $lock
X	then
X		trap "rm -f $ltemp $lock ; exit 0" 0 1 2 15
X		break
X	fi
X	sleep 2
X	((xx=xx+1))
Xdone
X
Xif [ "$xx" = "4" ]
Xthen
X	# Oops, can't lock
X	trap -
X	rm -f $ltemp
X	exit 1
Xfi
X
X# Make sure there's an active file
Xif [ ! -f active ]; then >active || exit 1; fi
X
X# Create the first file
XartNum=`egrep "^$1[ 	]" active | cut -d' ' -f 2`
Xif [ "$artNum" = "" ]; then artNum=0; fi
XartNum=`expr $artNum + 1`
XartDir=`echo $1 | tr . /`
Xif [ ! -d $artDir ]; then mkdir -p $artDir || exit 1; fi
Xcat - >$artDir/$artNum
X
X# Update next article number
X( egrep -v "^$1[ 	]" active ; echo "$1 $artNum 1 y" ) >nactive
Xmv nactive active
X
X# Now one would link the remaining files, but I'll hold off on that for the
X# moment
Xexit 0
SHAR_EOF
$TOUCH -am 0502134492 util/place.sh &&
chmod 0644 util/place.sh ||
echo "restore of util/place.sh failed"
set `wc -c util/place.sh`;Wc_c=$1
if test "$Wc_c" != "1291"; then
	echo original size 1291, current size $Wc_c
fi
# ============= util/Makefile ==============
echo "x - extracting util/Makefile (Text)"
sed 's/^X//' << 'SHAR_EOF' > util/Makefile &&
XPROGS=place newslock
X
Xall: ${PROGS}
X
Xplace:
X
Xnewslock:
X
Xclean:
X	rm -f *~ *.o
X
Xclobber: clean
X	rm -f ${PROGS}
SHAR_EOF
$TOUCH -am 0502174892 util/Makefile &&
chmod 0644 util/Makefile ||
echo "restore of util/Makefile failed"
set `wc -c util/Makefile`;Wc_c=$1
if test "$Wc_c" != "109"; then
	echo original size 109, current size $Wc_c
fi
# ============= util/README ==============
echo "x - extracting util/README (Text)"
sed 's/^X//' << 'SHAR_EOF' > util/README &&
XThese are programs you may find useful with Unidel.
X
X  place.sh, newslock.sh, newslock.c
X      Place copies an article from stdin and places into a News-like
X      hierarchy for use with Unidel mail reading.  It uses newslock to
X      make sure nothing else is trying to do the same at the same
X      time.  newslock.sh is a template to use in your own files.
SHAR_EOF
$TOUCH -am 0502140992 util/README &&
chmod 0644 util/README ||
echo "restore of util/README failed"
set `wc -c util/README`;Wc_c=$1
if test "$Wc_c" != "360"; then
	echo original size 360, current size $Wc_c
fi
# ============= skel/mail/active ==============
if test ! -d 'skel'; then
    echo "x - creating directory skel"
    mkdir 'skel'
fi
if test ! -d 'skel/mail'; then
    echo "x - creating directory skel/mail"
    mkdir 'skel/mail'
fi
echo "x - extracting skel/mail/active (Text)"
sed 's/^X//' << 'SHAR_EOF' > skel/mail/active &&
Xmail 1 1 y
SHAR_EOF
$TOUCH -am 1122212491 skel/mail/active &&
chmod 0600 skel/mail/active ||
echo "restore of skel/mail/active failed"
set `wc -c skel/mail/active`;Wc_c=$1
if test "$Wc_c" != "11"; then
	echo original size 11, current size $Wc_c
fi
# ============= skel/mail/mail/1 ==============
if test ! -d 'skel/mail/mail'; then
    echo "x - creating directory skel/mail/mail"
    mkdir 'skel/mail/mail'
fi
echo "x - extracting skel/mail/mail/1 (Text)"
sed 's/^X//' << 'SHAR_EOF' > skel/mail/mail/1 &&
XFrom: ken@bitsko.slc.ut.us (Ken MacLeod, Barkeep)
XSubject: Welcome to Bitsko's Bar & Grill BBS
XMessage-ID: <welcome@bitsko.slc.ut.us>
XReply-To: unidel@bitsko.slc.ut.us
XOrganization: Bitsko's Bar & Grill, Public Access, Salt Lake City, Utah, USA
X
X  I'm glad you could make it.  Things are a little bare around here as
XI'm not as yet running a full news feed yet, nor has BB&G been widely
Xadvertised.  What UseNet newsgroups I do have can be listed by typing
X
X   .H)elp USENET
X
XThat's Citadel shorthand for typing '.', then just the 'H' key, then
Xthe word "USENET".
X
X  Right now you are in the "mail" room, where you receive mail from
Xand send mail to other users.  Unlike other (non-mail) rooms this room
Xasks for a "To:" when you type E)nter Message.  Bitsko's accepts both
Xdomain '@'-style addressing and addresses starting with uunet!,
XBitsko's does not accept mixed addressing (both '@' and '!').  You
Xdon't have to come back here to R)eply to the author of a message,
Xjust R)eply when reading the message and mail will be sent to the
Xauthor.  [Power User Note: R)eply confirms To:, you can send mail from
Xany room by replying to any message and changing the To: address.]
X
X  Please don't send or request large files! or join high-volume (more
Xthan a message or two a day) mail lists!  An average mail message,
Xless than 3000 bytes, costs about $.03 to deliver to or from UUNET,
Xand about $.10 for each additional 12000 bytes.  I'm not going to bill
Xanyone or solicit "donations", just keep these figures in mind.
X
X  Have fun!
X
X  -- Ken MacLeod, Barkeep
X  ken@bitsko.slc.ut.us
X
SHAR_EOF
$TOUCH -am 0404085192 skel/mail/mail/1 &&
chmod 0640 skel/mail/mail/1 ||
echo "restore of skel/mail/mail/1 failed"
set `wc -c skel/mail/mail/1`;Wc_c=$1
if test "$Wc_c" != "1581"; then
	echo original size 1581, current size $Wc_c
fi
# ============= skel/.unidelrc ==============
echo "x - extracting skel/.unidelrc (Text)"
sed 's/^X//' << 'SHAR_EOF' > skel/.unidelrc &&
XEditor: SMiLE
XMore: 2
XFloorMode: No
XTerminal: ansi
X
SHAR_EOF
$TOUCH -am 1202222591 skel/.unidelrc &&
chmod 0644 skel/.unidelrc ||
echo "restore of skel/.unidelrc failed"
set `wc -c skel/.unidelrc`;Wc_c=$1
if test "$Wc_c" != "52"; then
	echo original size 52, current size $Wc_c
fi
# ============= skel/.newsrc ==============
echo "x - extracting skel/.newsrc (Text)"
sed 's/^X//' << 'SHAR_EOF' > skel/.newsrc &&
Xgeneral: 
Xmail: 
SHAR_EOF
$TOUCH -am 1125234991 skel/.newsrc &&
chmod 0644 skel/.newsrc ||
echo "restore of skel/.newsrc failed"
set `wc -c skel/.newsrc`;Wc_c=$1
if test "$Wc_c" != "17"; then
	echo original size 17, current size $Wc_c
fi
# ============= misc/AutoVal.c ==============
if test ! -d 'misc'; then
    echo "x - creating directory misc"
    mkdir 'misc'
fi
echo "x - extracting misc/AutoVal.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > misc/AutoVal.c &&
X/*
X *  AutoVal  --  Takes a user login, password and name as arguments and
X *               creates a passwd entry for it.  Returns the user number
X *               of the new user.
X */
X
X#include <stdio.h>
X#include <errno.h>
X#include <sys/types.h>
X#include <sys/stat.h>
X#include <fcntl.h>
X#include <pwd.h>
X
X/*#define runReal	/* if AutoVal suid root and passwd is /etc/passwd */
X
X#ifdef SVR2
X#	define S_IXGRP 0010
X#	define S_IWGRP 0020
X#	define S_IRGRP 0040
X#	define S_IXOTH 0001
X#	define S_IWOTH 0002
X#	define S_IROTH 0004
X
X	int mkdir (path, mode)
X
X	char *path;
X	int mode;
X
X	{
X		char mkdirCommand[1024];
X
X		strcpy (mkdirCommand, "mkdir ");
X		strcat (mkdirCommand, path);
X		if ((errno=system (mkdirCommand)) != 0)
X			return (-1);
X		chmod (path, mode);
X		return (0);
X	}
X#endif
X
X#define gid 102
X#define _minPasswd 301
X#define _maxPasswd 499
X#define gecoss "0000-"
X#define gecost "(0000)"
X#define homeDir "/home/rspdev/ken/play/unidel/usr"
X#define shell "/home/rspdev/ken/play/unidel/bin/unidel"
X#define recallDir "/home/rspdev/ken/play/unidel/usr"
X#define setupDefaultFiles "/home/rspdev/ken/play/unidel/bin/SetUp"
X#define _passwdFile "/home/rspdev/ken/play/unidel/lib/passwd"
X
Xmain (argc, argv)
X
Xint argc;
Xchar argv[];
X
X{
X    FILE *passwdFile;
X    char uidFound[_maxPasswd];
X    int i, status, passwdFD;
X    struct passwd *newPasswd, *aPasswd, *fgetpwent (), *getpwent ();
X    char workString[512], pw_name[16], pw_passwd[16], pw_age[512];
X    char pw_comment[512], pw_gecos[512], pw_dir[512], pw_shell[512];
X
X    if (argc != 1) {
X        printf ("0 Usage:  %s <passwdLine\n", argv[0]);
X        exit (1);
X    }
X    if ((aPasswd = fgetpwent (stdin)) == NULL) {
X        printf ("0 Bad passwd format.\n");
X        exit (1);
X    }
X    newPasswd = (struct passwd *) malloc (sizeof (struct passwd));
X    newPasswd -> pw_name = pw_name;
X    newPasswd -> pw_passwd = pw_passwd;
X    newPasswd -> pw_age = pw_age;
X    newPasswd -> pw_comment = pw_comment;
X    newPasswd -> pw_gecos = pw_gecos;
X    newPasswd -> pw_dir = pw_dir;
X    newPasswd -> pw_shell = pw_shell;
X    strcpy (newPasswd -> pw_name, aPasswd -> pw_name);
X    strcpy (newPasswd -> pw_passwd, aPasswd -> pw_passwd);
X    newPasswd -> pw_uid = aPasswd -> pw_uid;
X    newPasswd -> pw_gid = aPasswd -> pw_gid;
X    strcpy (newPasswd -> pw_age, aPasswd -> pw_age);
X    strcpy (newPasswd -> pw_comment, aPasswd -> pw_comment);
X    strcpy (newPasswd -> pw_gecos, aPasswd -> pw_gecos);
X    strcpy (newPasswd -> pw_dir, aPasswd -> pw_dir);
X    strcpy (newPasswd -> pw_shell, aPasswd -> pw_shell);
X    if (newPasswd -> pw_uid != _minPasswd) {
X		printf ("0 Bad user-id.\n");
X		exit (1);
X	}
X    if (newPasswd -> pw_gid != gid) {
X		printf ("0 Bad group-id.\n");
X		exit (1);
X	}
X    if (strncmp (newPasswd -> pw_dir, homeDir, strlen (homeDir)) != 0) {
X		printf ("0 Bad home directory.\n");
X		exit (1);
X	}
X    if (strcmp (newPasswd -> pw_shell, shell) != 0) {
X		printf ("0 Bad shell.\n");
X		exit (1);
X	}
X    sprintf (workString, "%s/%s", recallDir, newPasswd -> pw_name);
X    status = mkdir (workString, S_IREAD | S_IWRITE | S_IEXEC | S_IRGRP | S_IWGRP | S_IXGRP | S_IXOTH | S_IROTH);
X    if (status != 0) {
X        printf ("0 Could not create recall directory, %d.\n", errno);
X        exit (1);
X    }
X#ifdef _runReal
X    if (setuid (0) != 0) {
X      printf ("0 Unable to setuid.\n");
X      exit (1);
X    }
X#endif
X    if ((passwdFile = fopen (_passwdFile, "r+")) == NULL) {
X        printf ("0 Unable to open passwd file, %d.\n", errno);
X        exit (1);
X    }
X    for (i = _minPasswd; i < _maxPasswd; i++)
X        uidFound[i] = 0;
X    while ((aPasswd = fgetpwent (passwdFile)) != NULL) {
X		if (aPasswd -> pw_uid >= _minPasswd && aPasswd -> pw_uid < _maxPasswd)
X	        uidFound[aPasswd -> pw_uid] = 1;
X    }
X    for (i = _minPasswd; (i < _maxPasswd) && (uidFound[i] == 1); i ++)
X		;
X    if (i == _maxPasswd) {
X		printf ("0 No user-ids available.\n");
X        fclose (passwdFile);
X        exit (1);
X    }
X	fclose (passwdFile);
X    newPasswd -> pw_uid = i;
X	if ((passwdFile = fopen (_passwdFile, "a+")) != NULL) {
X	    if (putpwent (newPasswd, passwdFile) != 0) {
X			printf ("0 Unable to put passwd entry, %d.\n", errno);
X			exit (1);
X		}
X	} else {
X		printf ("0 Unable to open %s to append passwd.\n", _passwdFile);
X		exit (1);
X	}
X	fclose (passwdFile);
X    sprintf (workString, "%s/%s", recallDir, newPasswd -> pw_name);
X#ifdef runReal
X    status = chown (workString, i, gid);
X    if (status != 0) {
X        printf ("0 Not able to chown recall directory, %d, user-id %d.\n",
X		  errno, i);
X    }
X#endif
X    putenv ("SHELL=/bin/sh");
X    sprintf (workString, "%s %s", setupDefaultFiles, newPasswd -> pw_name);
X    status = system (workString);
X    if (status != 0) {
X        printf ("0 Unable to set up default files, %d, user-id %d.\n",
X		  status, i);
X        exit (1);
X    }
X    printf ("%d\n", i);
X    return (0);
X}
X
X
SHAR_EOF
$TOUCH -am 0502134492 misc/AutoVal.c &&
chmod 0644 misc/AutoVal.c ||
echo "restore of misc/AutoVal.c failed"
set `wc -c misc/AutoVal.c`;Wc_c=$1
if test "$Wc_c" != "4856"; then
	echo original size 4856, current size $Wc_c
fi
# ============= misc/DoStat.sh ==============
echo "x - extracting misc/DoStat.sh (Text)"
sed 's/^X//' << 'SHAR_EOF' > misc/DoStat.sh &&
X#! /bin/sh
X#
X#  DoStat  --  run the news reporting program and post the result to 'stats'
X#
X
XTZ=MST7:0MDT
XLIBDIR=/usr/acct/ken/unidel
XLOGNAME=unidel
XORGANIZATION="Price Savers, Salt Lake City, UT"
X
Xawk -f $LIBDIR/report.mine /usr/lib/news/log | /usr/lib/news/inews -t "Local News Statistics" -n stats -f unidel
X
X# clear file without deleting
X> /usr/lib/news/log
SHAR_EOF
$TOUCH -am 0502134492 misc/DoStat.sh &&
chmod 0644 misc/DoStat.sh ||
echo "restore of misc/DoStat.sh failed"
set `wc -c misc/DoStat.sh`;Wc_c=$1
if test "$Wc_c" != "362"; then
	echo original size 362, current size $Wc_c
fi
echo "End of part 8, continue with part 9"
exit 0
