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 ["94966nnn", "6nnn"], -- Embarcadero numbers ["60nn", "949660nn"], -- Embarcadero numbers ["61nn", "949661nn"], ["62nn", "892362nn"], ["63nn", "892363nn"], ["64nn", "949664nn"], ["65nn", "949665nn"], ["66nn", "949666nn"], ["67nn", "949667nn"], ["68nn", "949668nn"], ["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"], ["8800yyynnnn", "9800yyynnnn"], -- 800 and 900 INWats calls not handled by Intelnet ["8900yyynnnn", "9900yyynnnn"], ["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"], ["8xxx", "8Axxx"], -- No charge required, Intelnet information or trouble reporting number. ["zzzzzzzzzzzzzzzzzzz", "z"] -- Remove punctuation from otherwise unchanged number ]; Atom.PutProp[$PhoneMap, $map, parcMap]; }. ÒPARCPhoneNumberMappings.mesa Rules for converting telephone numbers to valid "back door" sequences from the PARC Centrex Last modified by Swinehart, September 4, 1985 3:25:15 pm PDT ["69nn", "892369nn"], ʽ˜Jšœ™J™[Jšœ<™Jšœž˜(Jšœž˜(Jšœž˜(Jšœž,˜IJšœ ž$˜DJ˜J˜Jšœ ž3˜SJšœ˜Jšœž˜/Jšœž˜0Jšœž˜0Jšœž3˜PJšœžA˜[Jšœž"˜8Jšœž5˜OJšœž1˜KJšœž!˜>Jšœž.˜HJšœž3˜PJšœž1˜KJšœž˜6Jšœž ˜6Jšœž˜8Jšœ#ž1˜TJšœ"˜"JšœžH˜[Jšœž6˜SJ˜—J˜—˜'J˜—J˜—…— – %