PARCPhoneNumberMappings.mesa
Rules for converting telephone numbers to valid "back door" sequences from the PARC Centrex
Last modified by Swinehart, February 25, 1985 6:14:54 pm PST
DIRECTORY
Atom,
Rope,
ThNet
;
PARCPhoneNumberMappings: CEDAR PROGRAM
IMPORTS Atom = {
parcMap: ThNet.PhoneMap ← LIST[
["x0xyyynnnn", "8x0xyyynnnn"], -- DDD numbers that don't have "level" code
["x1xyyynnnn", "8x1xyyynnnn"], -- DDD numbers that don't have "level" code
["yyynnnn", "9yyynnnn"],-- local numbers that don't have "level" code
["60nn", "949660nn"], -- Embarcadero numbers
["61nn", "949661nn"],
["62nn", "892362nn"], -- Bayhill numbers, will end up local extensions
["63nn", "892363nn"],
["64nn", "949664nn"],
["65nn", "949665nn"],
["66nn", "949666nn"],
["67nn", "949667nn"],
["68nn", "949668nn"],
["69nn", "892369nn"],
["9415yyynnnn", "9yyynnnn"], -- DDD numbers in local exchange.
["94944nnn", "4nnn"], -- Centrex numbers
["94945nnn", "5nnn"], -- Centrex numbers
["94946nnn", "6nnn"], -- Centrex numbers
["8415yyynnnn", "9yyynnnn"], -- Proposed Intelnet calls to own area code.
["8408yyynnnn", "9408yyynnnn"], -- DDD numbers blocked from Intelnet
["8916yyynnnn", "9916yyynnnn"],
["8707yyynnnn", "9707yyynnnn"],
["8923nnnn", "nnnn"], -- Local Intelnet numbers
["8922nnnn", "9496nnnn"], -- Embarcadero numbers
["8928nnnn", "9408982nnnn"], -- Versatec numbers
["8929nnnn", "9408982nnnn"], -- Other Versatec numbers; not sure this will work!
["8924nnnn", "96352020"], -- Oakland; no direct dial except via Intelnet, which is blocked!
["8925nnnn", "4473"], -- Walnut Creek. Maybe I can help.
["8926nnnn", "93931700"], -- San Francisco; no direct dial except via Intelnet!
["8927nnnn", "98732800"], -- South SFO; no direct dial except via Intelnet!
["8935nnnn", "94089882800"], -- More Versatec; no direct dial?
["8936nnnn", "94987000"], -- Diablo; no direct dial except via Intelnet!
["8937nnnn", "94089888800"], -- Santa Clara; no direct dial except via Intelnet!
["8938nnnn", "93498313"], -- San Mateo; no direct dial except via Intelnet!
["8943nnnn", "97330100"], -- Shugart, while they last!
["8962nnnn", "4473"], -- Sacramento. Maybe I can help.
["8yyynnnn", "8AyyynnnnAB"], -- Intelnet numbers require
["8x0xyyynnnn", "8Ax0xyyynnnnAB"], -- Charge code, supplied as param. 1 to MapNumber
["8x1xyyynnnn", "8Ax1xyyynnnnAB"],
["zzzzzzzzzzzzzzzzzzz", "z"] -- Remove punctuation from otherwise unchanged number
];
Atom.PutProp[$PhoneMap, $map, parcMap];
}.