(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED " 8-Sep-94 20:24:34" ("compiled on " |{DSK}lispusers>DIALPHONE.;1|) "28-Jul-94 17:28:46" |bcompl'd| |in| "Medley 25-Aug-94 ..." |dated| "25-Aug-94 10:02:49") (FILECREATED " 5-Oct-89 11:00:18" {ICE}LISP>LYRIC>DIALPHONE.\;6 10111 |changes| |to:| (FNS DIALPHONE) (VARS DIALPHONECOMS) |previous| |date:| "24-Jul-89 15:27:55" {ICE}LISP>LYRIC>DIALPHONE.\;5) DIALPHONEA0001 :D8 (P 17 LETTER P 16 GROUP P 15 N P 12 W P 10 DIALWINDOW P 9 RS232STREAM P 8 MODEMSTR P 7 MODEMLST P 6 ATOZ P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 18 PHONEBILLNUMBER F 19 LASTNUMBERDIALED F 20 DIALMENU F 21 DIALITEMS F 22 NUMBER F 23 DIALPREFIX F 24 PHONEMAP F 25 BUTTON F 26 DIALSUFFIX F 27 DIALHISTSIZE F 28 SI::NLSETQ-VALUE) < i@BoA W,’±W(’± W$³ohd` c$§oc$¿`W0 hohhºdJ¿dl¿gl g »dK¿dg¿dg ¿dg¿jdnÿdh¼dL ¿c(¿ OµDh_³)oi ¿¿`låjð³<_²:W(Ogg °,_ É(gð“O°¬O_°¡°®W( ¿O±gg _¿W, 3“W,°]W2gð²oW&h` °?`dW*¿do¿dg ¿dg¿jdnÿdh½dM ¿ c&µ1O ¿oc&¿o` ¿` ¿h±bW*c* W6ó˜W*k ¿W& _ Nd ²[O _¿ol lOµO _°6_ ¿OOó³ëO °dOO"O µíOkÔ_¿O_°ÁO lñ­Oo °_O lñ­oO °FOkl o ²Oko oW$ °oOoW$ _¿W.OoW4 O ¿o` ¿O ¿O ¿o` ¿` ¿W&hc8g(812 TERPRI 801 PRIN1 785 CLOSEF 777 FORCEOUTPUT 769 PRIN1 753 PRIN1 746 CONCAT 727 CONCAT 706 CONCAT 694 RPLSTRING 679 CL::SIMPLE-STRING-EQUAL 669 SUBSTRING 657 CONCAT 641 NCHARS 632 CONCAT 616 NCHARS 590 DSUBST 555 CONCATLIST 527 UNPACK 518 INTERSECTION 513 \\APPEND2 508 L-CASE 501 UNPACK 494 CONCAT 486 CL:NBUTLAST 474 LENGTH 459 TERPRI 448 PRIN1 424 CLOSEF 413 MENU 350 PROMPTFORWORD 315 MKATOM 305 OPENSTREAM 284 ADDMENU 275 \\BACKGROUND 250 \\INSUREWINDOW 240 ATTACHMENU 217 WHICHW 199 GETMOUSESTATE 193 PRIN1 168 OPENWINDOWS 110 FONTCREATE 69 EVAL 45 PROMPTFORWORD) (825 :NORMAL 807 PROMPTWINDOW 796 PROMPTWINDOW 764 PROMPTWINDOW 454 PROMPTWINDOW 443 PROMPTWINDOW 388 DEFAULTMENUHELDFN 379 CLRPROMPT 357 |MENUTYPE#| 345 PROMPTWINDOW 329 LEFT 300 OUTPUT 295 {RS232} 257 |Address Book| 235 LEFT 230 TOP 205 LASTMOUSEBUTTONS 140 DEFAULTMENUHELDFN 131 CLRPROMPT 122 DIALPHONE 105 BOLD 98 HELVETICA 61 |MENUTYPE#| 40 PROMPTWINDOW) ( 791 "OK" 759 "...dialing..." 739 ";H0" 720 "," 713 "8," 699 "," 689 "8," 674 "8*" 650 "9" 627 "," 535 ((A B C) (D E F) (G H I) (J K L) (M N O) (P R S) (T U V) (W X Y)) 438 "...aborted." 430 "" 370 "Number please:" 337 "Number please:" 187 "I couldn't find an AddressBook window to attach the Dial menu. Click left in the window you want it attached to, or in the Background to make a free-standing menu." 75 "Dials a phone number." 53 "" 33 "What is your extension number?" 9 (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z)) DIALPHONE :D8 (P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 2 BUTTON I 1 DMENU I 0 NUMBER F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) '`TioUI gð´H(26 DIALPHONEA0001) (32 :NORMAL 7 SI::NLSETQ-PROCEED-CASE) ( 15 (CL:ERROR . SI::NLSETQHANDLER)) (PRETTYCOMPRINT DIALPHONECOMS) (RPAQQ DIALPHONECOMS ((FNS DIALPHONE) (INITVARS (DIALHISTSIZE 10) (DIALITEMS) (DIALMENU) (DIALPREFIX "ATDT") (DIALSUFFIX (CHARACTER 13)) (LASTNUMBERDIALED) (PHONEBILLNUMBER)) (BITMAPS PHONEMAP))) (RPAQ? DIALHISTSIZE 10) (RPAQ? DIALITEMS) (RPAQ? DIALMENU) (RPAQ? DIALPREFIX "ATDT") (RPAQ? DIALSUFFIX (CHARACTER 13)) (RPAQ? LASTNUMBERDIALED) (RPAQ? PHONEBILLNUMBER) (RPAQQ PHONEMAP #*(64 32)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOL@@@@@@@@COOOOOOOOH@@@@@@OOL@@@@GON@@@@@CL@@@@@@@@GH@@@@G@@@@@@@@@AL@@@@NF@@@@@@@@HN@@@ALC@@F@@L@AHG@@@CHAH@IOOB@C@C@@@C@@LGIOOCLF@AH@@F@@BOIHCCND@AH@@F@@@HIHCBB@@AH@@F@C@GOOOOL@LAH@@F@NAOOOOOO@CAH@@FC@CL@@@@CK@OH@@GLCG@AIIHAMLAH@AN@NN@AIIH@NOCH@COCML@@@@@@GCO@@CCOCH@AIIH@CHN@@FALC@@AIIH@AH@@@G@@G@@@@@@@AL@@@F@@N@@AIIH@@N@@@EH@L@@AIIH@@F@@@CDAL@@@@@@@@G@@@BMAH@@AIIH@@C@@@AKAH@@AIIH@@C@@@@JOH@@@@@@@@C@@@@COH@@@@@@@@C@@@@BOOOOOOOOOOO@@@@@AOOOOOOOOOO@@@@@@GN@@@@@@OL@@@ ) NIL