DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦6815ee946⟧ TextFile

    Length: 867 (0x363)
    Types: TextFile
    Names: »V«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

--
--  This program should search through the phone list file in this
--  directory and print out any line that contains the search string.
--
--  If a person where to call Phone with
--
--              Phone ("MTD");
--
--  One would get the following output:
--
--  Mike      Devlin          MTD         4803
--
--  With:
--
--              Phone ("Jim");
--
--  Jim       Archer          JIM         4811                     856-3114
--  Jim       Barth           JAB         4752               (408) 354-3956
--  Jim       Every           JSE         4817               (714) 997-1820
--  Jim       Hake            JDH         4761                     494-2654
--  Jim       Kramer          JLK                            (703) 471-0793
--  Jim       Wilson          JAW         4783               (408) 773-9110
--
--
procedure Phone (Search_String : in String);