<> <> <> 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]; }.