(FILECREATED "24-Aug-84 18:12:57" ("compiled on " {ERIS}SOURCES>TTYIN.;5) "22-Aug-84 00:15:43" recompiled exprs: TTYIN.SETUP TTYIN.CLEANUP TTYIN1 TTYIN.FINISH TTYIN.READ TTBIN TTWAITFORINPUT TTYINENTRYFN in "" dated "22-Aug-84 00:45:52") (FILECREATED "24-Aug-84 18:10:37" {ERIS}SOURCES>TTYIN.;5 711235Q changes to: (VARS TTCOMPILETIME TTYINCOMS) (FNS TTYIN1 TTBIN TTWAITFORINPUT TTYIN.SETUP TTYIN.CLEANUP TTYINENTRYFN TTYIN.READ TTYIN.FINISH DO?CMD TTED TTYIN.PPTOFILE) (RECORDS TTYINBUFFER TTYINWINDOWSTATE) (MACROS REALBITS) previous date: "13-May-84 17:37:44" {ERIS}SOURCES>TTYIN.;2) TTYINA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U)) h(2 TTYIN1) NIL () TTYINA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 67Q \INSIDE.TTYIN P 64Q \LAST.DELETION P 63Q \FILLINGBUFFER P 62Q \NOPROMPT P 61Q DIRECTORY/FILE P 60Q \LISPXREADING P 57Q \READING P 56Q \COMMAND P 55Q \REPEAT P 54Q \STRINGVALUE P 53Q \NOFIXSPELL P 52Q \NOVALUE P 51Q \AUTOFILL P 50Q \DONTCOMPLETE P 47Q \EDITBIT P 46Q \INSERTING P 45Q \DELETING P 44Q \ARROW P 43Q \CURSOR P 42Q \ENDBUFFER P 41Q \BUFFER P 37Q \SPLSTFLG P 36Q \LASTCHAR P 35Q \LOC.ROW.0 P 34Q \FIX P 33Q \LASTAILROW P 32Q \LASTAILCOL P 31Q \LASTAIL P 30Q \FIRSTLINE P 27Q \PROMPT2 P 26Q \PROMPT1 P 25Q \HOMECOL P 24Q \HOMEROW P 23Q \CURSORCOL P 22Q \CURSORROW P 21Q \TTPAGELENGTH P 20Q \TEXTURE P 17Q \VARIABLEFONT P 16Q \FONT P 15Q \DESCENT P 14Q \CHARHEIGHT P 13Q \CHARWIDTH P 12Q \RMARG P 11Q \LMARG P 10Q \BMARG P 7 \INITPOS P 5 \FIRSTTIME P 4 \RAISEINPUT P 3 \RDTBLSA P 2 \DSP P 1 \TTYINSTATE P 0 \INSIDE.TTYIN F 70Q PROMPT F 71Q SPLST F 72Q \PRIMTERMTABLE F 73Q RDTBL F 74Q TtyDisplayStream F 75Q \PRIMREADTABLE F 76Q DEFAULTPROMPT F 77Q OPTIONS F 100Q RESETY) È8 i`WxWvµWz‹ið“`„WvÉ`µWtÉi`÷ð$ð306h¿I³"jhhddjhhddjhdddh¹¿Wrµ"W~h_l¿_j¿Ojµ!Wpdið¢±6¿h_._,¿±˜³ßWrhcr¿°Ö¦Oj_l¿hˆOj_l¿Oj_j¿Oldgð«dgð¥dgð–_P_V¿°¯gð–Ol_T¿°£Oldgð”_X¿°–gð–Ol_\¿°ŠOldgð•_Z¿±ÿ}gð”h¼±ÿsOldgð•¿i¼±ÿegðOl_R_T_Z¿h¼±ÿROldgð•_8¿±ÿDgð™Ol_R_^¿±ÿ5Oldgðž_R_^_`¾WtÉ¼±ÿgð²Ol_R_^_`¾WtÉ¼±ÿOldgð«dgð¥dgð•_b¿±þígð•Ol¾±þâOldgð•_f¿±þÔgð¢±þÌOl]_d¿±þÃ¥W|cp°Wpd²5d³%_,¿Wp_.¿Wp³MWp_,¿O`²,Wplð²$h°6lmþcp°à³ÚWpdlð³Ó cp°ÌOZ¢O`›lWp ñ’Wp‚g_.¿Wr£i_P¿O^“h_Z¿N¤i ¿o _@³"`“O`²ïO&“¿OBODð¥IOD¿°ÖOBODð³IdkØl ñœIj¿ODh¿O@_@¿ij ¿`²1O@dið³,¿h¿7O@lð³O@d“ ‹ho _@¿O@c€i(1267Q EDITE 1255Q EDITE 1207Q POSITION 1127Q ERROR! 1107Q GO.TO.FREELINE 1065Q TTYINA0001A0002 1055Q CLEARBUF 1016Q NCHARS 775Q MKSTRING 751Q SUBSTRING 137Q TTYIN.SETUP) (1231Q CTRLUFLG 1213Q CTRLUFLG 1074Q TTYINERRORSETFLG 1026Q ... 637Q NOPROMPT 624Q FILLBUFFER 606Q TYPEAHEAD 573Q USER 565Q DIRECTORY 557Q FILE 525Q EVALQT 501Q LISPXREAD 457Q READ 444Q FIX 416Q TEXT 403Q RAISE 366Q NORAISE 353Q REPEAT 334Q COMMAND 322Q STRING 303Q \NOVALUE 267Q CRCOMPLETE 261Q MUSTAPPROVE 253Q NOFIXSPELL 67Q TTYINBUFFER 47Q TYPEAHEADFLG 35Q TTYINRAISEFLG 30Q READTABLEP 22Q \SYSREADTABLE 3 TTYINBUFFER) ( 1264Q (REPACK) 1062Q (DUMMY.FOR.ERRORSET)) TTYIN D1 (P 1 RESETY P 0 LISPXHIST I 7 RDTBL I 6 UNREADBUF I 5 TABS I 4 ECHOTOFILE I 3 OPTIONS I 2 HELP I 1 SPLST I 0 PROMPT F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q TTYINA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) TTYIN.SETUP D1 (F 1 \DSP F 2 \TTYINSTATE F 3 \FONT F 4 TtyDisplayStream F 5 RESETVARSLST F 6 \LMARG F 7 \VARIABLEFONT F 10Q \RMARG F 11Q \CHARWIDTH F 12Q \TTPAGELENGTH F 13Q \CHARHEIGHT F 14Q \DESCENT F 15Q \TEXTURE F 16Q \INITPOS) ÕT Tc``ð´nd RHgg¿RHgg¿RHgg¿RH¿HgR¿gRhhhUc hQ cÉ ÉÈAcdSÉ ÉÈiðhðcSÈcSÈchQ chQ chQ chQ chQ VÙc(316Q DSPXPOSITION 307Q DSPRIGHTMARGIN 300Q DSPLEFTMARGIN 271Q PAGEHEIGHT 262Q DSPTEXTURE 200Q DSPFONT 152Q PUTWINDOWPROP 121Q PUTWINDOWPROP 74Q PUTWINDOWPROP 51Q PUTWINDOWPROP 24Q WFROMDS 3 TOTOPW) (251Q FONTDESCRIPTOR 241Q FONTDESCRIPTOR 222Q FONTDESCRIPTOR 205Q FONTDESCRIPTOR 156Q TTYIN.CLEANUP 140Q TTYINSTATE 116Q TTYINENTRYFN 113Q WINDOWENTRYFN 71Q TOTOPW 66Q BUTTONEVENTFN 46Q TOTOPW 43Q RIGHTBUTTONFN 15Q WINDOWTYPE# 11Q TOPW) () TTYIN.CLEANUP D1 (I 0 \TTYINSTATE) P@Hµ@hg@¿Hg@¿Hg@¿Hg ¿°À(113Q PUTWINDOWPROP 103Q PUTWINDOWPROP 61Q PUTWINDOWPROP 41Q PUTWINDOWPROP) (110Q TTYINSTATE 66Q WINDOWENTRYFN 46Q BUTTONEVENTFN 25Q RIGHTBUTTONFN 20Q TTYINBUFFER) () TTYIN1 D1 (P 11Q \INSIDE.TTYIN F 12Q \ARROW F 13Q \ENDBUFFER F 14Q \CURSOR F 15Q \READING F 16Q \PROMPT1 F 17Q \INITPOS F 20Q TABS F 21Q \BUFFER F 22Q \FIRSTTIME F 23Q \DSP F 24Q \EDITBIT F 25Q \INSERTING F 26Q \DONTCOMPLETE F 27Q UNREADBUF F 30Q \FIRSTLINE F 31Q SPLST F 32Q \REPEAT F 33Q \LINEBUF.OFD F 34Q \FONT F 35Q \CURSORCOL F 36Q \LASTCHAR F 37Q \LASTAIL F 40Q \CHARWIDTH F 41Q \PROMPT2 F 42Q \RAISEINPUT F 43Q \LISPXREADING F 44Q \PRIMTERMSA F 45Q \FILLINGBUFFER F 46Q \RDTBLSA F 47Q \COMMAND) W6ÉY´>W—W$gð²,l Iñ³&lIñ² W8É ÉIlÿåÐÈ]W& ¿WMÙc¿W6h¿hc>¿¿W$¦Wj ¿h»W ¿W$gð²W²jWWW8 Ù]ñ“hcˆMc„W ¿WWW:¿W ´W d¢¿hŒkÙW@ÚW:ñ¥W c ¿W.µW$´ °dd¡´ ¿W.¹hc.¿±¸c.¿ ¿hc$¿I¢±¤±¥I` ]².M^]d²Sdiðª•M ‡N]¿W"WðœM]d²5 ]µ/W(œhc*¿I Y¢±[nIñ¢±£WHIÂlådlð²I¿±7d¡²)Mdjð’±'mÿð’±þüMlåYjð“¹Ml€åjðhðc(°¨W"Wð²ŸMd¡h[±Œdlð–¿±ëdlð–¿±ßlð²1W0WðªWdWð£¿Wƒk ¿IYð¢±¿W0i ±«WJ²WLIÂl ål ð˜W ’±)Idlð²i¿W2œ’±‚±{`²KWF²G\™`L Z°`jð³W"Wð¬o`º`€h²n¹hdJLµW’±4±-l ±%l"ð¦Idl*ð¿I ¿W ± l ð²W,¤i ¿W ’±ø±ñIl ð³Il(ð¬Il,ð§Idl[ð² ¿W,¤i ¿Idl ð˜¿’±ÄI ±¼l)ð§Idl]ð²5¿W,¤i ¿W¼I ¿W¢±›’±)`¢±’±†L ±~l?ð¢± `²BW2§W²W@”@iW:„@hb±XW(º¸W&ðŸHgð¥Hgð“W,µ`h_¿_µH µ‚±”g ²ãi g_¿HO_¿_Oð«O²fOO²_W(W&ð¦O²RHW(dW&ð’h°Ogð•W( ‚OdlðŸ_¿OOlO„ gð©gg ¿O±ÿc¸W(W&ð²W*”Hh°{W.’i°uW0•J °lHh°gW0²W*˜HW( °WJ °QW.šW*”Hi°Fi°C@W&ð³3_$¿W*²O$_"¿O µ O"h_ _¿°ÜO"&_ ¿°ÔO$ µágƒHOb¿@ ¿`“Bµjc8Bk`Ydið’±þÓ²íI(1040Q SETLASTC 1016Q TTADJUSTWORD 746Q TTRATOM 736Q TTSKIPSEPR 710Q TTYINSTRING 701Q TTYINSTRING 655Q TTYINSTRING 611Q RETFROM 572Q EVAL 530Q TTREADLIST 524Q TTYINSTRING 414Q TERPRI 406Q TTGIVEHELP 371Q TTADJUSTWORD 325Q TTSKIPSEPR 321Q TTRATOM 306Q TTYIN.READ 303Q TTYIN.SCRATCHFILE 247Q TTGIVEHELP 166Q TTECHO.TO.FILE 136Q TTECHO.TO.FILE 130Q SETLASTC 57Q TTNLEFT 42Q TTNLEFT 11Q CLEAR.LINE? 5 TTCRLF) (1062Q TTYINUSERFN 1044Q TTYINUSERFN 1023Q ABORT 606Q ABORT 603Q TTYIN.FINISH 576Q IGNORE 515Q STRING 417Q ABORT 402Q ABORT 354Q TTYINRESPONSES 343Q HELP 335Q ? 252Q ABORT 174Q TTYINCOMMENTCHAR) ( 244Q "Terminate text with control-Z.") TTYIN.READA0003 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RDTBL) PQ h(4 READ) NIL () TTYIN.READ D1 (L (1 DONTREAD 0 FINALCHAR) I 2 STREAM F 7 \BUFFER F 10Q \ENDBUFFER F 11Q \LINEBUF.OFD F 12Q RDTBL) Ô@WWð³BWlåX ¿W c°èA²Z@dl ð²@¿Hl)ð¥Hl]ð²?lBÉÉ0ºBkJYñ³+BIlÙ ¿B l%ð“B °Bl] ¿h‹l)ð¤@l]ð‘h€i•B@ ¿BdÉÉ0»BkK Bj AšBWð“Bki0BW ˜o µLBj ¿Bj ¿¾Mµ Nh]¼°×N&½°Ò(277Q \SETEOFPTR 271Q \SETFILEPTR 260Q TTYIN.READA0003 250Q SKIPSEPRS 222Q \SETFILEPTR 215Q \SETEOFPTR 170Q \BOUT 143Q \BOUT 122Q \SETFILEPTR 32Q TTNEXTCHAR 24Q \BOUT) (203Q FDEV 176Q STREAM 77Q FDEV 72Q STREAM) ( 255Q (DUMMY.FOR.ERRORSET)) TTYIN.BALANCE D1 (F 1 \ENDBUFFER F 2 \BUFFER) "R HQðµHl]ð´H HµQ ¿(36Q MOVE.TO.WHEREVER 27Q AT.END.OF.TEXT 3 TTSKREAD) NIL () ADDCHAR D1 (L (0 CHAR) F 3 \CURSOR F 4 \CURSORCOL F 5 \ARROW F 6 \DSP F 7 \AUTOFILL F 10Q \INSERTING F 11Q \RMARG) Ù@ !¿USð²$H ¿@låV ¿@ ¿THØc¿UT± `£W²?k@ ¿@ ¿THØc¿UUHØWÙYjñ¨Ijð²nW²jW´k ¿S °ZSl€åjð³:Slådl ð¥dl ð²¿Sd ¿SZdn ð²l ¿J°ñ¿SkS ¿@låV ¿THØc¿S@¿Sc¿j h(325Q OVERFLOW? 301Q BLTCHAR 270Q FORWARD.DELETE.TO 265Q NLEFT 262Q TTNEXTCHAR 230Q KILLSEGMENT 166Q MOVE.TO.WHEREVER 161Q ADJUSTLINE 105Q INSERT.CHAR.IN.BUF 100Q INSERTNCHARS 43Q INSERT.CHAR.IN.BUF 36Q BLTCHAR 25Q OVERFLOW? 11Q END.DELETE.MODE 3 TTBITWIDTH) (66Q EMACSFLG) () ADDCHARS.INSERTING D1 (L (1 CHAR 0 N) F 1 \ARROW F 2 \CURSORCOL F 3 \CURSOR F 4 \DSP F 5 \RMARG) [@A ÚH QSð²@djñ²AlåT ¿kÙ°ð@A ¿@djñ˜A ¿kÙ°õRHØcQHQØUñ“ƒj h(127Q OVERFLOW? 122Q ADJUSTLINE.AND.RESTORE 65Q INSERT.CHAR.IN.BUF 53Q INSERTNCHARS 41Q BLTCHAR 14Q OVERFLOW? 4 TTBITWIDTH) NIL () ADDNAKEDCHAR D1 (L (1 NOAUTOFILL 0 CHAR) F 0 \CURSOR F 1 \ENDBUFFER) r@dl ñ•dlð²%l ðžPQð–` @dl ð¿A¤µl lð›l› n$ @l ð“k @l€ä n^ k@dlð”¿n?ƒn@ä (157Q ADDCHARS.INSERTING 134Q ADDCHAR 126Q INSERT.CHAR.IN.BUF 117Q OVERFLOW? 112Q ADDTAB 101Q ADDCHAR 73Q INSERT.CHAR.IN.BUF 61Q ADDCHAR 52Q AUTOCR? 35Q BEEP 31Q START.NEW.LINE) (26Q EOLCHARCODE) () ADDTAB D1 (F 0 \CURSOR F 1 \ENDBUFFER F 2 \INSERTING F 3 \CHARWIDTH F 4 \CURSORCOL F 5 \ARROW) /PQð¯RPl‰ð—P l‰ lTUÙSÛlåÙn (54Q ADDCHARS.INSERTING 30Q INSERT.CHAR.IN.BUF 22Q MOVE.FORWARD.TO 17Q TTNEXTCHAR) NIL () ADJUSTLINE D1 (L (1 LINE 0 JUSTIFYING) F 13Q \RMARG F 14Q \CHARWIDTH F 15Q \AUTOFILL F 16Q \ARROW F 17Q \CURSORCOL) 5`jñ²W`WÚHdIñ‘¿I°Wj`ÙWÚÙWâHdIñ¡¿I¡ AµWb_¿A½A _¿WAÙ¹hZ_¿A_¿jIñ²@@² AdHØWýñ²¿OAH iZ’±AW ¼@¢W›OLiZ’±…Lº±„O²JIjð³EMI \Mð³:AdLð’±J¿W¤@¢±@AL@Z•J\’±0@¢±+OAiZ¢±°3@¡hO³@ið’±¼AdAÙHñ¢±¬¿OAH iZ¢±ùi_¿AAJ AØ[¿JA^ ¹KWðªKO ¿¿AJ¿O²Jn ¿Il Ù¹JºM¢±qO³&@³Nn ð¢±`MIØWýñ¢±QM ’±IgMb ¿O’±CIl Ø¹Nl ^±1AAð³UM ³O@ið™An ð²AMHAØAÙdIñ‘¿IkÙ ZdMð³¿MJiZµ An Ž¼A^LðjY°[@ið¿Mb±èAO ¿NL ¹O³*Nl ¿NLð©Ndl ð³{¿AkNl.ð—N l ¿NL ¿AL¿AW¿gM ¿MJµ3L¿MLð²EMi ¿@µAb°nið’±þY@kÙbjð’±þN±ý™n ¿O—Il Ø¹L°¾d ±ÿsI ¿MMIÙ¿Mb°'A bN¿AJ¿JNA¿AAIØ¿A´‚±ýîOkØ_¿@¢±ý/@ið’±ý(@kÙbjð¢±ýhb¿±ý(1371Q INSERT.TEXT 1347Q INSERTLINE 1320Q TTDELSECTION 1311Q KILLSEGMENT 1276Q TTBITWIDTH 1216Q DELETELINE 1172Q GO.TO.RELATIVE 1145Q TYPE.BUFFER 1134Q INSERT.NODE 1123Q NLEFT 1063Q SEGMENT.BIT.LENGTH 1055Q GO.TO.RELATIVE 1002Q FIND.LINE.BREAK 762Q NTH.RELATIVE.COLUMN.OF 712Q START.OF.PARAGRAPH? 663Q TTBITWIDTH 646Q GO.TO.RELATIVE 631Q START.OF.PARAGRAPH? 553Q TTBITWIDTH 525Q ERASE.TO.END.OF.LINE 521Q GO.TO.RELATIVE 505Q SEGMENT.BIT.LENGTH 465Q SEGMENT.BIT.LENGTH 442Q FIND.LINE.BREAK 436Q NTH.RELATIVE.COLUMN.OF 357Q FIND.LINE.BREAK 331Q FIND.LINE.BREAK 270Q NTH.RELATIVE.COLUMN.OF 240Q FIND.LINE.BREAK 223Q NTH.COLUMN.OF 210Q FIND.LINE.BREAK 204Q NTH.RELATIVE.COLUMN.OF 121Q OVERFLOWLINE?) (1166Q LINE 640Q LINE 41Q TTYJUSTLENGTH 13Q TTYJUSTLENGTH 2 TTYJUSTLENGTH) () ADJUSTLINE.AND.RESTORE D1 (L (0 JUSTIFYING) F 0 \HOMECOL F 1 \ARROW F 2 \CURSOR) @ PQñ”R (26Q RESTORE.CURSOR 22Q MOVE.TO.WHEREVER 6 ADJUSTLINE 2 SAVE.CURSOR) NIL () AT.END.OF.SCREEN D1 (F 0 \CURSOR F 1 \ARROW F 2 \RMARG F 3 \CURSORCOL F 4 \CHARWIDTH) QPðµSPlå TØØRñ(17Q TTBITWIDTH) NIL () AT.END.OF.TEXT D1 (L (0 BUF) F 1 \ENDBUFFER) ,@HdQð‘ilådl ð©dl ð¤dl ð’¿i¿h¡hHX°ÜNIL NIL () AUTOCR? D1 (F 0 \AUTOFILL F 1 \CURSORCOL F 2 \CURSOR F 3 \RMARG F 4 \ARROW) "P´Q`ØSñ´TRð–n …n i(36Q BREAKLINE 27Q START.NEW.LINE) (6 TTYINAUTOFILLMARGIN) () BACKSKREAD D1 (L (1 NOTIFQUOTED 0 BUF) F 4 \BUFFER) sTd"Hd@ð³bdl(ð¥dl[ð²-¿H@ [d@ð•¿JµGH’K°CHYdl[ð²:¿@l]ð²1HZ°.dl%ð²¿Hd@ð—¿Ahð´I°l"ðžH@ µ Ahð´IHX°–(143Q FIND.MATCHING.QUOTE 35Q TTSKREAD) NIL () BACKWARD.DELETE.TO D1 (L (0 BUF) F 0 \CURSOR) P@ ¿ (10Q FORWARD.DELETE.TO 4 MOVE.BACK.TO) NIL () BREAKLINE D1 (L (1 STAY 0 USECR) F 2 \ARROW F 3 \CURSOR F 4 \CURSORCOL) aRdRSRTA“¿R@ cA£¿RISIð˜RIc°RcI ¿RT¿R “¿A—Hcc¿h(135Q RESTORE.CURSOR 117Q ADJUSTLINE 113Q OVERFLOWLINE? 77Q TYPE.BUFFER 45Q SAVE.CURSOR 36Q INSERTLINE 30Q SAVE.CURSOR 23Q ERASE.TO.END.OF.LINE) NIL () BUFCHARCOUNT D1 (L (2 PRIN2CNT 1 TAIL 0 BUF)) #@jHAð³IB˜Hl%ð’H¸kØ¹H X°èI(34Q TTNEXTCHAR) NIL () BUFTAILP D1 (L (2 END 1 START 0 TAIL)) @Að‘@Ad”dBð‘hb¿°íNIL NIL () CHECK.MARGIN D1 (L (1 LINE 0 BUF) F 0 \RMARG) $A@ð²APð©A@ð—@kA@(37Q TTNLEFT) NIL () CLEAR.LINE? D1 (L (0 FLG)) @“(10Q ERASE.TO.END.OF.LINE 4 ERASE.TO.END.OF.PAGE) NIL () CREATE.LINE D1 (L (5 NEXT 4 ROW 3 LASTCOL 2 COL1 1 END 0 START)) F@ABCDdE¿HIdJ¿HIdJ¿HIdJ¿HIdJ¿(22Q SCRATCHCONS 16Q SCRATCHCONS 12Q SCRATCHCONS 6 SCRATCHCONS 2 SCRATCHCONS) NIL () CURRENT.WORD D1 (F 3 \ARROW F 4 \CURSOR F 5 \READING F 6 \COMMAND) †STð³vSl;ð³nSiHdTð²¿I³^UžJdo–ZTð³MJlådl ð®dl ð©dl ð¤dlð“¿i°4dl(ð³dl)ð³dl,ð®dl[ð©dl]ð¤dl"ð•¿i¹HZ¿I™J“V‘hHºh¹HX°’NIL NIL ( 46Q (42Q 47Q 31Q)) DELETE.TO.END D1 (F 0 \ARROW F 1 \CURSOR F 2 \ENDBUFFER F 3 \CURSORCOL) 1i ¿Pd² ¿Ph¿PQcPS(30Q KILL.LINES 6 ERASE.TO.END.OF.PAGE 3 SETTAIL?) NIL () DELETELINE D1 (L (1 EMPTYLINE? 0 LINE) F 4 \ARROW F 5 \FIRSTLINE F 6 \PROMPT1 F 7 \CURSOR F 10Q \PROMPT2 F 11Q \BUFFER F 12Q \ENDBUFFER) ’@1@Tð²UTð²H£VWð¬W ¿T k ¿H@ @k [HH¦Kc°%@h¿A³@YHZ ¿HdJð”I¿HI¿@ T@ð´HµKbcc¿g@ h(216Q GO.TO.RELATIVE 166Q KILL.LINES 142Q KILLSEGMENT 76Q PREVLINE 71Q RENUMBER.LINES 56Q DO.DELETE.LINES 51Q FORWARD.DELETE.TO 42Q MOVE.BACK.TO 27Q BEEP) (212Q LINE) () DELETETO D1 (L (0 TAIL) F 1 \ENDBUFFER F 2 \CURSORCOL F 3 \CURSOR F 4 \ARROW F 5 \DSP) 1SQð¤@ @Q HU ¿RHÙcT@ccTR(30Q DSPBACKUP 20Q SEGMENT.BIT.LENGTH 12Q BACKWARD.DELETE.TO 2 SETTAIL?) NIL () DO.EDIT.COMMAND D1 (L (1 EDITARG 0 CHAR) P 3 \BUFFER F 4 \CURSOR F 5 \ARROW F 6 \ENDBUFFER F 7 \FIRSTLINE F 10Q \BUFFER F 11Q \CURSORCOL F 12Q \CURSORROW F 13Q \EDITBIT F 14Q \INSERTING F 15Q \TTYINSTATE F 16Q \REPEAT F 17Q \LOC.ROW.0 F 20Q \PRIMTERMSA F 21Q \READING F 22Q \LASTCHAR) 0A¡kŽjAói¸jAñ¡A‚jAÙb¿@ bdl ð²"¿WVð•±UdVð’±4A ±‰l ð§@dl>ð²)¿H—lb¿±—TVð’±i•±bTA ±Wlð³@kð¬@lð§@dl<ð²3¿H—l b¿±[TWð’±,UTðUk d ±TA ±l(ð²H—l)b¿±&TA ±÷@dl)ð²¿H—l(b¿± ’±ÛTA ±Ól ðŸUAkÙ d ±¿@dlð¿UAkÙ ±«l{ð—W ±Ÿ@dl}ðœ¿d ±Œl ð²0H—l^b¿±¡UdVð›¿WVð¢±jl A d ±Y@dl^ð²0¿H–l b¿°kWUð’±=UWWØdAñ‘¿A d ±$lKð²UTð’±TA ±@dlIð²h¿Anèð³$b¿WªUTð¢ic@@l ð¨kb¿h¸±þ(WUð´W ¿` ¿W ±¿WkÙ ¿Uk ` ¿Uk c c±žlSð«@dlZð¦dlBðœ¿@AH±‚lAð²Wµ±pWAH±e@dlLð—¿A ±WlUð—Ai ±K@dlCð˜¿Ak ± V³:WPð³4@¥WPð´-S²QRýñUTñ´QRñ®PcUcRchNIL NIL () SHOW.MATCHING.PAREN D1 (L (0 BUF) F 4 \LOC.ROW.0 F 5 \DSP) \@i 1Hd²J YjIZTØñ³8IH IØ[³'KJ `d¡µnè `”U ¿hnèÚ°ë(122Q RESTORE.CURSOR 116Q \CARET.DOWN 106Q TTWAITFORINPUT 65Q GO.TO.ADDRESSING 60Q SAVE.CURSOR 53Q \SYSBUFP 42Q SEGMENT.BIT.LENGTH 16Q FIND.LINE 4 BACKSKREAD) (111Q \CARET.UP 70Q SHOWPARENFLG) () SKIP/ZAP D1 (L (3 MINUS 2 N 1 CHAR 0 CMD) F 0 \CURSOR F 1 \ARROW F 2 \TTYINSTATE) ¾A bC²,@dlSð”¿lB°lBð“lS°@dlZð“¿m¦‰m¦ð’lZ‚b€@lBð—APB°%@m¦ð›APk B°QPðhð´AP Bb²G@dlSð–¿B °=lZð•B °3@dlBð–¿B °&m¦ð²QPð‘PƒP B ¿ †‚¿R@RA(256Q BEEP 252Q SHOULDNT 246Q FORWARD.DELETE.TO 242Q MOVE.BACK.TO 237Q TTNEXTCHAR 233Q TTNEXTCHAR 210Q MOVE.BACK.TO 173Q FORWARD.DELETE.TO 161Q MOVE.FORWARD.TO 142Q SCANFORWARD 136Q TTNEXTCHAR 116Q SCANBACK 112Q TTNLEFT 75Q SCANBACK 57Q SHOULDNT 3 U-CASECODE) NIL () START.NEW.LINE D1 (L (0 USECR) F 0 \ARROW F 1 \CURSOR) P@ cc(4 INSERTLINE) NIL () START.OF.PARAGRAPH? D1 (L (0 LINE)) @@bðµ@l‰ðNIL NIL () TTADJUSTWORD D1 (L (0 WORD) F 0 SPLST F 1 \NOFIXSPELL F 2 HELP F 3 \SPLSTFLG F 4 \FIX) …P²0@dgð³)dgð³"dgð³dgð³dgð«dgð³QdP‘@–@P µIP²$@lð²Qgð³@lFPQ´ihddShð µT²Ð@ g Rµo ¿h °÷(177Q TTGIVEHELP 172Q TTCRLF 166Q TTPRIN1 154Q TTPRIN1 146Q TTPRIN1 135Q FIXSPELL 70Q FASSOC) (151Q ? 110Q NOFIXSPELL 51Q , 43Q %" 34Q %] 25Q %[ 16Q %) 7 %() ( 163Q " please try again.") TTBIN D1 (F 1 \EDITBIT F 2 \DSP) Mhi Hd`ð²¿ic¿X`ð²%l¸° lñ´H`ð®`´ ic¿Hlå¸ƒhc¿`“R H(111Q \CARET.DOWN 27Q \GETKEY 4 TTWAITFORINPUT) (104Q \CARET.UP 61Q \TTYIN.METASTATE 54Q \TTYIN.RESTOREBUFCODE 33Q EDITPREFIXCHAR 14Q EDITPREFIXCHAR) () TTBITWIDTH D1 (L (0 CHAR) F 0 \VARIABLEFONT F 1 \FONT F 2 \CHARWIDTH) PŸQÉ É@lÿåÐÈRNIL (5 FONTDESCRIPTOR) () TTCOMPLETEWORD D1 (L (3 FIRSTCHAR 2 FIRSTMATCH 1 MUST.BE.UNIQUE 0 CAUTIOUS) F 14Q \CURSOR F 15Q \BUFFER F 16Q SPLST F 17Q \SPLSTFLG F 20Q \CURSORCOL F 21Q \VARIABLEFONT) hiqC³WWð—@hð´W‚b´‚±BWC b´‚±÷CW kØ]BYdb \@¥MkÙLð“ib¿B` ZM [ICWY²QA´h¸Id_¿KLMO¾Oµh²ÖNdMð³ÞkÙ¼°Ë_¿NOñ³éON)Oð¥Nµßi°ÜNkØ¾O_°Í¿C1k^Mð²`O²0W OÙ ¿W"²OW OÙW _¿OW ¿O“¿NLñ²WH²#@³l ¿WŸMkð«BWµ` ¿H’BµiJdOð³¿OJ¿O«O_W _¿JºO_¿NkØ±ÿrJ ¿NLð³¢JºNkØ¾°î(527Q ADDCHAR 500Q SEGMENT.BIT.LENGTH 434Q MOVETOP 411Q ADDCHAR 367Q ADJUSTLINE.AND.RESTORE 360Q TYPE.BUFFER 346Q TTADJUSTWIDTH 336Q SEGMENT.BIT.LENGTH 322Q GO.TO.RELATIVE 273Q END.DELETE.MODE 146Q FIND.MATCHING.WORD 135Q FNTH 130Q DCHCON 104Q NCHARS 65Q SEGMENT.LENGTH 47Q FIND.MATCHING.WORD 27Q CURRENT.WORD) (431Q USERWORDS 125Q CHCONLST1) () TTCRLF D1 NIL (5 TTCRLF.ACCOUNT 2 DO.CRLF) NIL () TTCRLF.ACCOUNT D1 (F 0 \CURSORROW F 1 \LOC.ROW.0 F 2 \TTPAGELENGTH F 3 \CURSORCOL F 4 \DSP F 5 \BMARG) PkØcQPØRðŸjQkÙcñ—hT c ¿jc(27Q DSPYPOSITION) NIL () TTDELETECHAR D1 (F 2 \CURSOR F 3 \ARROW F 4 \BUFFER F 5 \INSERTING) TRTð“SRð²6SRð²'Sk H YS Hd I´Rk hRk `¡U“l (121Q DO.EDIT.COMMAND 113Q TTRUBOUT 101Q DELETETO 76Q TTNLEFT 67Q DELETETO 64Q TTNLEFT 54Q MOVE.TO.LINE 45Q DELETELINE 40Q OVERFLOWLINE? 31Q PREVLINE 6 BEEP) (105Q EMACSFLG) () TTDELETELINE D1 (F 0 \ARROW F 1 \ENDBUFFER F 2 \CURSOR F 3 \BUFFER F 4 \INSERTING) ?SQð“PPð´RQð²ñPk ci PdRð” P (74Q FORWARD.DELETE.TO 66Q MOVE.BACK.TO 61Q DELETETO 46Q SETTAIL? 37Q DELETE.TO.END 34Q MOVE.TO.LINE 31Q PREVLINE 6 BEEP) NIL () TTDELETEWORD D1 (F 0 \ARROW F 1 \CURSOR) !PdQð¦¿l Pð“Q (36Q DELETETO 33Q PREVWORD 26Q BEEP 14Q DO.EDIT.COMMAND) NIL () TTECHO.TO.FILE D1 (L (1 DRIBBLING 0 FILE) F 5 \ENDBUFFER F 6 \FIRSTLINE F 7 \NOPROMPT F 10Q \PROMPT1 F 11Q \PROMPT2) k@ Vi#AJ—hºW¦WWµ4I¼I[dLð²/¿I¹A¦IdLð¦¿@ ¿I´LUð³ÈIUð²Âh@ ¿°Él ð’K»HKlå ¿K °·(147Q TTNEXTCHAR 142Q BOUT 116Q PRIN1 71Q TERPRI 3 GETSTREAM) NIL () TTGIVEHELPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 CTRLO! F 1 HELPKEY F 2 RESETVARSLST F 3 CTRLO! F 4 RESETY) žSgi hhRc¿H³#g ²gloihhRc¿i¸¿Qdið•¿°D²=Qdið²¿i ¿g ¿Qi °%ið²Qi ¿jð¦g ¿id ƒQ ¿jð£¿ic(227Q TERPRI 223Q TERPRI 215Q POSITION 211Q TTGIVEHELP2 204Q TTGIVEHELP1 176Q PRIN1 165Q POSITION 161Q TTGIVEHELP2 144Q TTGIVEHELP2 135Q PRIN1 126Q TTGIVEHELP1 105Q TTGIVEHELP1 73Q TERPRI 54Q INTERRUPTCHAR 35Q DEFINEDP 12Q OUTPUT) (173Q % 132Q % 42Q INTERRUPTCHAR 32Q CTRLO! 6 OUTPUT) ( 50Q (CTRLO!)) TTGIVEHELP D1 (P 1 RESETY P 0 LISPXHIST I 0 HELPKEY F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q TTGIVEHELPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) TTGIVEHELP1 D1 (L (1 NO.INTRO 0 NO.OTHER) F 1 SPLST F 2 \FIX) OQ´JA§o ¿Q°+dH`ð³H`ð³Hd ¿H—o ¿µÖ@R§o ¿h(112Q TERPRI 106Q PRIN1 65Q PRIN1 52Q PRIN1 13Q PRIN1) (36Q SPELLSTR2 27Q SPELLSTR1) ( 103Q ", or other" 62Q ", " 10Q "Please select from among ") TTGIVEHELP2 D1 (L (1 MIXED 0 HELPKEY)) 7@dlð¯d²¿g@ ³@ ªAµ o h@A‘jllj(64Q SPRINTT 44Q PRIN1 31Q DISPLAYHELP 23Q STRPOS) (17Q % ) ( 41Q "Sorry, no help available.") TTLASTLINE D1 (F 1 \FIRSTLINE) QHµHX°öNIL NIL () TTLOADBUF D1 (L (0 BUF) F 4 \ENDBUFFER F 5 \READING) ¥@`ð²]@bd@ @ @@Ù"Idjñ´zkÙ¹H Zl ð§Ji ¿°êIjð³bH »IkÙYjñ¥Kl ð³RJ ¿Kl ð³ÊK ¿°Ã @d²¿`@X˜@kHh¿@T@´UiX@—dXk ¹TkHhHI h(241Q READFROMBUF 232Q NLEFT 223Q NLEFT 210Q DCHCON 171Q NLEFT 140Q ADDNAKEDCHAR 125Q ADDNAKEDCHAR 71Q ADDNAKEDCHAR 32Q GETSTREAM 25Q SETFILEPTR) (157Q HISTSTR0 5 HISTSTR1) () TTNEXTCHAR D1 (L (0 BUF) F 0 \ENDBUFFER) @dl€åjð‘dPð³ûdnåjð²òNIL NIL () TTNEXTLINE D1 (L (1 N 0 LINE)) Ajð§@µ@b¿AkÙb°ëNIL NIL () TTNEXTNODE D1 (L (0 BUF)) @µ@dj&¿NIL NIL () TTNLEFT D1 (L (2 START 1 N 0 BUF) F 2 \ARROW) 5BµRdAjð³H@ð¢HµI ¸AkÙb°ê ¸I ¹H@ð¢HµòI(51Q TTNEXTCHAR 44Q TTNEXTCHAR 31Q TTNEXTCHAR) NIL () TTNTH D1 (L (1 N 0 BUF) F 1 \ARROW) !QAjð³@dHð b¿AkÙb°ë@(23Q TTNEXTCHAR) NIL () TTNTHLINE D1 (L (0 N) F 1 \FIRSTLINE) Q@djñœkÙb¿HµH¸°ëNIL NIL () TTPRIN1 D1 (L (0 STR) F 2 \CURSORCOL F 3 \VARIABLEFONT F 4 \FONT F 5 \CHARWIDTH F 6 \DSP F 7 \RMARG) 9S•@T …@ UÚRHØWýñ£¿k¹@I)µ RHØchlåV ¿IkØ°è(61Q BLTCHAR 33Q TTCRLF 13Q NCHARS 6 STRINGWIDTH) NIL () TTPRIN2 D1 (L (2 CDRLVL 1 CARLVL 0 EXPR) F 0 RDTBL) ¥@ dgð²¿g @ g dgð•¿@ gð²dA¤l b¿B¤l b¿Ajñ¦g g @AkÙBkÙ¿@b³@²(o ¿@ °g ¿BkÙbjñ³Îo ¿g @iP†d ¿µøh(234Q TTPRIN1 226Q UNPACK 217Q TTPRIN1 210Q TTPRIN1 167Q TTPRIN1 157Q TTPRIN2 152Q TTPRIN1 130Q TTPRIN2 115Q TTPRIN1 106Q TTPRIN1 47Q TTPRIN1 33Q TTPRIN1 25Q TTPRIN1 21Q TTPRIN1 3 TYPENAME) (214Q %) 164Q % 112Q %( 103Q & 53Q LISTP 40Q LITATOM 30Q %" 16Q %" 7 STRINGP) ( 205Q "--" 147Q " . ") TTPROMPTCHAR D1 (L (0 LINE) F 0 \FIRSTLINE F 1 \PROMPT1 F 2 \PROMPT2) @Pð‘Q€Rd’ (16Q TTPRIN1 2 CLEAR.LINE?) NIL () TTRATOM D1 (F 4 \BUFFER F 5 \ENDBUFFER F 6 \READING) äUð“`U1TdUð³nlåZdl(ð³dl)ð³dl,ð¯dl[ðªdl]ð¥dl"ð²2l,ð’V³qHdUð²=¿Jl9ñ—`Jl Ùl0Jñ¤Jl0Ù„`JÐTc¿l ð³Jl ð¬Jl ð§Jdlð²¿HUð²RU[l9ñ²:`Kl ÙÐl%ð²V«TUð«Tl?ð”Tc¿HTlå¿HY ¸T c±ÿKl0Kñ¤Kl0Ù`KÐIhU IH¿(335Q PACKC 301Q TTNEXTCHAR 274Q TTNEXTNODE 2 TTSKIPSEPR) (323Q \OneCharAtomBase 221Q \OneCharAtomBase 141Q \OneCharAtomBase 117Q \OneCharAtomBase 10Q null) () TTREAD D1 (F 1 \BUFFER F 2 \ENDBUFFER) ÊQRð³'Qlådl(ð¤dl[ð›¿QQc¿ dl)ð¤dl]ð“`dl"ð²¿QcR µRXQH Hc¿dl'ð²6Qcdlådl ð©dl ð¤dl ð’¿i¿h³X`ð§gHhglð²6Q cX`ð§gH ll9ñ–`lÐl0lñ¢mé`lÐ(307Q TTRATOM 246Q STKEVAL 231Q TTREAD 224Q TTNEXTCHAR 171Q TTREAD 113Q TTYINSTRING 102Q FIND.MATCHING.QUOTE 44Q TTREADLIST 5 TTSKIPSEPR) (300Q \OneCharAtomBase 260Q \OneCharAtomBase 242Q TTYIN 235Q null 212Q ' 202Q QUOTE 175Q null 62Q null) () TTREADLIST D1 (L (0 OPENCHAR) F 3 \BUFFER F 4 \ENDBUFFER) «0Tð²tHdl]ð›¿@l[ð“ScHl.ð²tH²q@²nSTð³hSlådl ð©dl ð¤dl ð’¿i¿h²LSc¿Z`ð”g°=Tð³*Sdl)ð¤dl]ð’¿i¿h²IJ¿Sdl)ð²Š¿@“ScHIg&¹ƒºJhºH“IJJX¿J¹±ÿ\(226Q TTREAD 140Q TTSKIPSEPR 122Q TTREAD 5 TTSKIPSEPR) (220Q %. 133Q %. 126Q null) () TTRUBOUT D1 (F 0 \CURSOR F 1 \ARROW) QPð“Pk (20Q BACKWARD.DELETE.TO 15Q TTNLEFT 7 BEEP) NIL () TTSKIPSEPR D1 (L (0 END) F 0 \BUFFER F 1 \ENDBUFFER) -PdQð³'d@ð³"lådl ð©dl ð¤dl ð’¿i¿h•Pc°ÙPNIL NIL () TTSKREAD D1 (L (1 END 0 BUF) F 1 \ENDBUFFER) mA£Qb¿@dAð³0dl(ð¥dl[ð²&¿@¸@A bd²=dAð³7dl]ð²3¿Hl[ð³+@dl)ð³údl]ð³ôdl"ð™¿@A dl%ð—@dAð’h@b° (126Q FIND.MATCHING.QUOTE 44Q TTSKREAD) NIL () TTUNREADBUF D1 (F 1 \CURSOR F 2 \ENDBUFFER) QHdRð”lå ¿H X°ê(31Q TTNEXTCHAR 24Q BKSYSCHAR0 14Q DELETE.TO.END) NIL () TTWAITFORINPUTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FN) kPi(2 WHICHW) NIL () TTWAITFORINPUT D1 (L (1 RETKEYFLG 0 MSECS) P 5 FN F 7 \DSP F 10Q \CHARHEIGHT F 11Q \TTPAGELENGTH F 12Q \RMARG F 13Q \LOC.ROW.0 F 14Q \TTYINSTATE F 15Q \BUFFER F 16Q \ENDBUFFER F 17Q \BMARG) j `µ-lH hW B²`lÐI ö¿A›°uh¿°Ói°k¿`låjð³;jW [ñ³1KJýñ²(jW ^JÙ\ñ³LJWØýñš`` µ+@d¡¢±ÙI @ñ¢±Ï`lÐI ö¿hH¿ ÉWð²ÏWWð³ONWWWÙWÚØýñ²?LJýñ²5LWWkØØÙWÚlÙýñ³`lÐI ö¿A¢i°¤¿±ÿ``ð¢±ÿp`lålðŸWµgˆW]¢±ÿHoi ¿WhW cð’±ÿ0¿hW º±ÿ"¿±þ²(544Q \TTYBACKGROUND 535Q DSPCLIPPINGREGION 526Q DO.EDIT.PP 514Q DSPRIGHTMARGIN 503Q TTWAITFORINPUTA0001 403Q DO.MOUSE 371Q CLOCKDIFFERENCE 334Q TTLASTLINE 254Q \INSUREWINDOW 237Q CLOCKDIFFERENCE 217Q CLOCKDIFFERENCE 176Q WHICHW 140Q LASTMOUSEY 115Q LASTMOUSEX 74Q GETMOUSESTATE 55Q \GETKEY 46Q CLOCKDIFFERENCE 32Q \SYSBUFP 24Q DSPCLIPPINGREGION 16Q \CLOCK0) (454Q DOWINDOWCOM 426Q LASTMOUSEBUTTONS 416Q WINDOWTYPE# 412Q TOPW 362Q \MISCSTATS 247Q \\TTWAITBOX.GLOBALRESOURCE 230Q \MISCSTATS 173Q LASTMOUSEY 170Q LASTMOUSEX 100Q LASTMOUSEBUTTONS 63Q \\TTWAITBOX.GLOBALRESOURCE 37Q \MISCSTATS 2 \\TTWAITBOX.GLOBALRESOURCE) ( 477Q (DUMMY.FOR.ERRORSET)) TTYINSTRING D1 (L (1 TAIL 0 BUF) F 3 \READING F 4 \ENDBUFFER) ;A£Tb¿@dAS kHAð³!S˜Hl%ð’H¸IJHlå+¿H ¸JkØº°ÞI(60Q TTNEXTCHAR 17Q ALLOCSTRING 14Q BUFCHARCOUNT) NIL () TYPE.BUFFER D1 (L (1 END 0 START) F 2 \CURSORCOL F 3 \DSP) 6j@dAð‘Hl€åjð²@låS ¿R@lå YØc¿HIØ¸@b°Ò(45Q TTBITWIDTH 33Q BLTCHAR) NIL () U-CASECODE D1 (L (0 CHAR)) la@ñ©@dlzñ¤l_å@NIL NIL () U/L-CASE D1 (L (1 CAPFLG 0 N) F 5 \CURSOR F 6 \ARROW F 7 \VARIABLEFONT) {@nèð›VUð•V ‚¿U@ AW•UH ºU[dHð²!¿W›UH JÙH ¹UHc I´h\l€åjðžLl@ñ™KAµL ¿K °Àkð“hb¿L °í(167Q U-CASECODE 152Q TTNEXTCHAR 144Q L-CASECODE 115Q ADJUSTLINE.AND.RESTORE 107Q TYPE.BUFFER 77Q TTADJUSTWIDTH 71Q SEGMENT.BIT.LENGTH 50Q SEGMENT.BIT.LENGTH 35Q CHECK.MARGIN 32Q FIND.NEXT.WORD 24Q MOVE.TO.START.OF.WORD 20Q MOVE.BACK.TO) NIL () WORD.MATCHES.BUFFER D1 (L (2 BUFTAIL 1 START 0 WORD)) 9kAIBð³.@H)ZIð³Jd²l æIð´ lAJñ¤Jlzñ‘hHkØ¸I Y°Òi(62Q TTNEXTCHAR) NIL () BEEPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 MACROY) lÈ ci(4 DISMISS) NIL () BEEP D1 (L (0 DS) P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST) ?hð 1gHhhTcYog £g»IcgI K“J(72Q ERROR! 65Q APPLY 42Q BEEPA0001 7 VIDEOCOLOR 2 VIDEOCOLOR) (56Q VIDEOCOLOR 46Q ERROR 37Q INTERNAL 15Q VIDEOCOLOR) ( 34Q (DUMMY.FOR.ERRORSET)) BITBLT.DELETE D1 (L (2 WIDTH 1 Y 0 X) F 1 \DSP F 2 \CHARHEIGHT F 3 \RMARG) (S@ÙBÙQ@BØAQ@AHRgg @HØABRh(44Q BITBLT.ERASE 33Q BKBITBLT) (27Q REPLACE 24Q INPUT) () BITBLT.ERASE D1 (L (3 HEIGHT 2 WIDTH 1 BOTTOM 0 LEFT) F 0 \DSP F 1 \TEXTURE) hddP@ABCggQ (22Q BKBITBLT) (15Q REPLACE 12Q TEXTURE) () BITBLT.INSERT D1 (L (2 WIDTH 1 Y 0 X) F 0 \DSP F 1 \CHARHEIGHT F 2 \RMARG) !P@AP@BØAR@ÙBÙQgg @ABQ(36Q BITBLT.ERASE 27Q BKBITBLT) (23Q REPLACE 20Q INPUT) () DO.CRLF D1 (F 0 \CURRENTDISPLAYLINE F 1 \DSP) jcl Q (10Q \DSPPRINTCR/LF) NIL () DO.DELETE.LINES D1 (L (0 #LINES) F 2 \BMARG F 3 \DSP F 4 \CHARHEIGHT F 5 \RMARG F 6 \DESCENT) :hS VÙTØRÙ@TÚIHñ“HY°SjRSjRIØUHIÙgg ¿jRUIh(66Q BITBLT.ERASE 56Q BKBITBLT 4 DSPYPOSITION) (52Q REPLACE 47Q INPUT) () DO.INSERT.LINE D1 (F 2 \DSP F 3 \CHARHEIGHT F 4 \LOC.ROW.0 F 5 \RMARG F 6 \BMARG F 7 \DESCENT F 10Q \TTPAGELENGTH) ~hR WÙTkØØWð²CHSØ¸hR HWØR¿RjHRjHSØUhR YIkÙØHSØÙgg ¿TkÙc°RjVSØRjVUHVÙgg ¿jHUSh(172Q BITBLT.ERASE 162Q BKBITBLT 124Q BKBITBLT 73Q DSPCLIPPINGREGION 54Q MOVETO 44Q DSPXPOSITION 16Q TTLASTLINE 4 DSPYPOSITION) (156Q REPLACE 153Q INPUT 120Q REPLACE 115Q INPUT) () DO.LF D1 (F 0 \DSP) l P (5 \DSPPRINTCR/LF) NIL () DO.UP D1 (L (0 #LINES) F 0 \CHARHEIGHT F 1 \DSP) j@PÚQ(7 RELMOVETO) NIL () ERASE.SCREEN D1 (F 0 \DSP) P (3 DSPRESET) NIL () ERASE.TO.END.OF.LINE D1 (F 1 \DSP F 2 \DESCENT F 3 \RMARG F 4 \CHARHEIGHT) hQ HhQ RÙSHÙTh(26Q BITBLT.ERASE 15Q DSPYPOSITION 4 DSPXPOSITION) NIL () ERASE.TO.END.OF.PAGE D1 (F 1 \BMARG F 2 \DSP F 3 \DESCENT F 4 \RMARG) hR SÙQÙHjñ´ jQTHh(32Q BITBLT.ERASE 7 DSPYPOSITION 2 ERASE.TO.END.OF.LINE) NIL () INSERT.TEXT D1 (L (2 ENDOFLINE 1 END 0 START)) ABð•@B @A @A (26Q TYPE.BUFFER 21Q TTINSERTSECTION 16Q SEGMENT.BIT.LENGTH 10Q TYPE.BUFFER) NIL () INSERTNCHARS D1 (L (1 CHAR 0 N) F 2 \DSP) #@A Ú @HjñžAlåR ¹HkÙX°ðI(30Q BLTCHAR 10Q TTINSERTSECTION 4 TTBITWIDTH) NIL () TTDELSECTION D1 (L (0 WIDTH) F 0 \DSP F 1 \DESCENT) hP hP QÙ@(17Q BITBLT.DELETE 11Q DSPYPOSITION 4 DSPXPOSITION) NIL () TTADJUSTWIDTH D1 (L (1 END 0 DELTA) F 0 \ARROW) ,@jð³&j@ñ–j@Ù ‰APð¤@ ¿PP@Øih(31Q TTINSERTSECTION 16Q TTDELSECTION) NIL () TTINSERTSECTION D1 (L (0 WIDTH) F 0 \DSP F 1 \DESCENT) hP hP QÙ@(17Q BITBLT.INSERT 11Q DSPYPOSITION 4 DSPXPOSITION) NIL () TTSETCURSOR D1 (L (1 ROW 0 COL) F 0 \LMARG F 1 \TTPAGELENGTH F 2 \DSP F 3 \CHARHEIGHT F 4 \BMARG) @PØQAÙkÙSÚTØR(17Q MOVETO) NIL () DO.MOUSE D1 (F 4 \DSP) ”`lhåjð£`dlålð²&¿H Xd²od²÷¿`”T ¿HH ¿°âlåkð²?@H Xd²Ed²÷¿`”T ¿H[HZ ¹KIJ JI ñ’II ¿°È`lålð´g (221Q DO.SHIFTED.SELECTION 175Q MOVE.TO.LINE 163Q SEGMENT.BIT.LENGTH 155Q SEGMENT.BIT.LENGTH 145Q BRACKET.CURRENT.WORD 133Q \CARET.DOWN 112Q TTRACKMOUSE 71Q MOVE.TO.LINE 61Q \CARET.DOWN 40Q TTRACKMOUSE 13Q DO.SHIFTED.SELECTION) (216Q DELETE 203Q LASTMOUSEBUTTONS 126Q \CARET.UP 54Q \CARET.UP 17Q LASTMOUSEBUTTONS 2 LASTKEYBOARD) () DO.SHIFTED.SELECTION D1 (L (0 INITMODE) F 16Q \CURSOR F 17Q \DSP F 20Q \ARROW F 21Q \LAST.DELETION F 22Q \ENDBUFFER) hà `lhåjð¢±`låjð¢±¡H´‚±™`•W ¿HI_¿_¿Ldgð²&¿HIL¿WOO›OO °]OO°Sgð²WOOŸHIL¿IO °7WOO’OWºOO _c"¿HI ¿J ¿Lgð´ OhihO _¿¿`dlåjð’±µ¿O´mO_W$ð³bOO½O_¿`lålð§OOð˜OO °OM _¿MO¿OO¾`dl åjð”¿gŒlHåjð“g‚g_¿h½HdMð²dMð²¿INðINð—LOð’±þžH–HIL¿MX¢±þHNYO\¿±þ‚lålð¢±ÎH³4W WYX^½h»@µ`dl åjð›¿g°¼hb¿lHåjð“g‚g¼O_¿Oµ8K¢±þ3HMð•HMðªMHL¿H½°IdNð•Nð¨INL¿I¾h»±þH ²%K²IdNð•Nð¨INL¿I¾MOO]°$K²HdMð•Mð¨HML¿H½NOO ^L¿i»±ýK¢±ý¨M¸N¹h»±ýŸ(1122Q INVERT.LONG.SEGMENT 1115Q TTNEXTPOS 1101Q INVERT.LONG.SEGMENT 1036Q INVERT.LONG.SEGMENT 1007Q TTBEFOREPOS 773Q INVERT.LONG.SEGMENT 744Q INVERT.LONG.SEGMENT 577Q INVERT.LONG.SEGMENT 557Q INVERT.LONG.SEGMENT 421Q BRACKET.CURRENT.WORD 410Q TTNEXTPOS 303Q \TTYBACKGROUND 275Q TTRACKMOUSE 266Q READFROMBUF 247Q MOVE.TO.WHEREVER 242Q DELETE.LONG.SEGMENT 230Q COPY.SEGMENT 212Q BUFTAILP 177Q MOVE.TO.LINE 167Q INVERT.LONG.SEGMENT 160Q BUFTAILP 131Q READFROMBUF 126Q COPY.SEGMENT 116Q BUFTAILP 104Q INVERT.LONG.SEGMENT 52Q \CARET.DOWN) (701Q MOVE 675Q DELETE 654Q SELECT 641Q LASTKEYBOARD 475Q MOVE 471Q DELETE 457Q SELECT 444Q LASTKEYBOARD 362Q LASTMOUSEBUTTONS 307Q LASTMOUSEBUTTONS 254Q MOVE 144Q MOVE 72Q SELECT 44Q \CARET.UP 21Q LASTMOUSEBUTTONS 5 LASTKEYBOARD) () COPY.SEGMENT D1 (L (1 END 0 START)) @1HdAð‘I»JµKhZ¹HX°íK&º°øNIL NIL () DELETE.LONG.SEGMENT D1 (L (1 END 0 START)) @@AA(12Q DELETE.LONG.SEGMENT1) NIL () DELETE.LONG.SEGMENT1 D1 (L (3 ENDCOL 2 ENDLINE 1 STARTCOL 0 STARTLINE) F 3 \RMARG) º0B@ÙZjðœ@A ¿C ±™@X ¿J ¿B¹@I¿I@kØ ¿@@CB A@ ÙØ¿@B¿C@ð”@A¿AC ¿Bh¿H ¿@A ¿¿@Sýñ—A@ ŽA@S ¿h@ h(266Q ADJUSTLINE 260Q TYPE.BUFFER 255Q NTH.COLUMN.OF 246Q TYPE.BUFFER 225Q ERASE.TO.END.OF.LINE 221Q MOVE.TO.LINE 213Q KILL.LINES 176Q KILLSEGMENT 143Q SEGMENT.BIT.LENGTH 134Q SEGMENT.BIT.LENGTH 113Q RENUMBER.LINES 57Q DO.DELETE.LINES 52Q MOVE.TO.LINE 35Q FORWARD.DELETE.TO 30Q MOVE.TO.LINE) NIL () INVERT.LONG.SEGMENT D1 (L (2 MODE 1 END 0 START)) P@dAð–Að³B@A §A@b¿b¿@@IAð³HIIBi ¿IY¸°áHAIBi h(114Q INVERT.SEGMENT 66Q INVERT.SEGMENT 21Q TTBEFOREPOS) NIL () INVERT.SEGMENT D1 (L (4 NOSWAP 3 MODE 2 LINE 1 END 0 START) F 3 \CHARHEIGHT F 4 \DSP F 5 \ARROW F 6 \LMARG F 7 \TTPAGELENGTH F 10Q \LOC.ROW.0 F 11Q \BMARG F 12Q \DESCENT) ž@Að’±—B£Ub¿C¥gb¿D³A@B§A@b¿b¿BB@ VØØWWÙBÙkÙSÚWjWÙØØ@A hddTHIJCgð¡SlggCgð£nÿÿ‚n3Ì Cgð´hddTHIJlggn3Ì h(232Q BKBITBLT 175Q BKBITBLT 122Q SEGMENT.BIT.LENGTH 62Q SEGMENT.BIT.LENGTH 37Q BUFTAILP) (223Q INVERT 220Q TEXTURE 201Q MOVE 160Q SELECT 154Q INVERT 151Q TEXTURE 140Q SELECT 21Q DELETE) () BRACKET.CURRENT.WORD D1 (L (1 COL 0 LINE) F 6 \PRIMTERMSA) ti@@3J]Ið³QHVMlåÂlðµ,Mlådl ð³dl ð³dl(ð®dl)ð©dl[ð¤dl]ð’¿i¿hXð¨K“M¼°MZ€MAð‘J»M °®I¼K¡L»AKL£¿KL(155Q HELP 151Q BUFTAILP 133Q TTNEXTCHAR) NIL () TTBEFOREPOS D1 (L (1 Y 0 X)) -@dAð²Aðhð´ A@@Aýñ(32Q BUFTAILP) NIL () TTNEXTPOS D1 (L (1 COL 0 LINE) F 0 \ENDBUFFER) A@ðAPð©@d@AdPð¢ (34Q TTNEXTCHAR) NIL () TTRACKMOUSE D1 (L (0 OLDROW/COL) F 12Q \LMARG F 13Q \DSP F 14Q \TTPAGELENGTH F 15Q \VARIABLEFONT F 16Q \LOC.ROW.0 F 17Q \BMARG F 20Q \CHARHEIGHT F 21Q \FONT F 22Q \RMARG) ñ p@µ¿`låjð´h¼@½°ëWN^Hð—NIð’±»WWÙNYWÙW ÛÙkÙºN¸WHñ’±˜W$Hñ¢±jJñ’±‰J ºW²^HWÙJÙ»JJ OdOð•¿O°Gl€åjð²W"É ÉOlÿåÐÈˆOd _¿KdOâýñ³ÌOÙ»O _°ºJHWÙ »JLð”KMð³@µJKJdK¿@ið¡i¿±ÿ(353Q \TTYBACKGROUND 311Q NTH.COLUMN.OF 275Q TTNEXTCHAR 250Q SEGMENT.BIT.LENGTH 245Q TTNEXTCHAR 140Q TTNTHLINE 43Q CURSORPOSITION 11Q GETMOUSESTATE) (221Q FONTDESCRIPTOR 15Q LASTMOUSEBUTTONS) () SETREADFN D1 (L (0 FLG)) g@gð®g —`“g‚g (35Q /SETATOMVAL 16Q DEFINEDP) (32Q READ 26Q TTYINREAD 22Q \DisplayStarted 13Q TTYINREAD 6 READ 2 LISPXREADFN) () TTYINENTRYFN D1 (L (0 WINDOW)) -`lålð²@g H”Hµg¹@kIh@ (52Q GIVE.TTY.PROCESS 21Q GETWINDOWUSERPROP) (36Q DOWINDOWCOM 16Q TTYINSTATE 2 LASTMOUSEBUTTONS) () TTYINREADP D1 (L (0 FLG) F 0 \LINEBUF.OFD F 1 READBUF) $QµP ³@µP l ðhð`ðhðµ@h(17Q \PEEKBIN 6 EOFP) (31Q HISTSTR0) () TTYINREAD D1 (L (1 RDTBL 0 FILE) F 1 \LINEBUF.OFD F 2 \INSIDE.TTYIN F 3 LISPXID F 4 READBUF) Q`—R•@A Q ‘h‰Q l ð³ i³ShdohddA Xdið›¿QA Q ¿°Ï`h cH(112Q \NCONC2 73Q READ 60Q TTYIN 31Q \PEEKBIN 22Q EOFP 12Q READ) (105Q HISTSTR0 2 TTYINDEBUGFLG) ( 50Q (EVALQT FILLBUFFER NOPROMPT)) TTYINFIX D1 (L (1 COMS 0 INPUT) F 2 LISPXID) i A³#`gð²@d `ýñ¿`@ Xd–¿@A @ð’@‡@µ@YµRhdghd@i Hœ@H ‡³öI°ß@igR(146Q TTYINEDIT 125Q LDIFF 115Q TTYIN 53Q NONTTYINLISPXFIX 41Q MEMB 23Q COUNT) (142Q PRETTY 105Q EVALQT 35Q HISTSTR0 26Q TTYINFIXLIMIT 13Q TTYINREAD 10Q LISPXREADFN) () CHARMACRO? D1 (L (0 MACRO) F 0 \READING F 1 LISPXID) Pgð´Qgð´ @d’ (24Q \APPEND2) (12Q * 3 EVALQT) () TTYINMETA D1 (L (0 FLG)) o`@´g ”@ ¿@ ¿@²(l€¿go ¿go `ð²-j°&lÂ¿go ¿go `ð•lÁ¿@¿(132Q KEYACTION 117Q KEYACTION 64Q KEYACTION 51Q KEYACTION 25Q METASHIFT 20Q \ILLEGAL.ARG 13Q DEFINEDP) (153Q \TTYIN.METASTATE 146Q EDITPREFIXCHAR 137Q EDITPREFIXCHAR 123Q BLANK-TOP 110Q BLANK-MIDDLE 104Q \TTYIN.RESTOREBUFCODE 71Q EDITPREFIXCHAR 55Q BLANK-TOP 42Q BLANK-MIDDLE 36Q \TTYIN.RESTOREBUFCODE 10Q PEEKKEYS 2 \TTYIN.METASTATE) ( 127Q ((301Q 301Q)) 114Q ((302Q 302Q)) 61Q ((0 0)) 46Q ((200Q 200Q))) \SET.TTYINBOLDFONTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 PLAINFONT) "Pg gð—Pgg†Pggh(35Q FONTCOPY 6 FONTPROP) (32Q BOLD 27Q WEIGHT 22Q NORMAL 17Q WEIGHT 11Q BOLD 3 WEIGHT) () \SET.TTYINBOLDFONT D1 (I 0 PLAINFONT) @o µ@(7 \SET.TTYINBOLDFONTA0001) (17Q TTYINBOLDFONT) ( 4 (DUMMY.FOR.ERRORSET)) TTYIN.LASTINPUT D1 NIL `´`H´`H (31Q TTYINSTRING) (23Q TTYINBUFFER 10Q TTYINBUFFER 2 TTYINBUFFER) () TTED D1 (L (1 C 0 FN) F 6 COM) þh o BAµgcIHð¨o Z€JHð³.Hd`ð²!d²dd¡¿g ”H €Hh¸@—HAl@ohdghdH [µH ™oi hHJð³HIð²"Kd™¿oi [¿gogKKd²6d³2¿Ho Z \² gjk½LJð¨MkØ½Jº°õM\KLhK›H¨oi ¿gK(365Q PRIN1 306Q MEMB 302Q ## 233Q PRIN1 201Q PRIN1 170Q EQUAL 163Q ERROR! 155Q TTYIN 116Q GETCOMMENT 111Q DEFINEDP 40Q ## 12Q ## 3 ##) (371Q : 314Q COMSQ 251Q WITH 242Q REPLACE 146Q LISPXREAD 106Q GETCOMMENT 56Q COMMENTFLG 23Q ED) ( 361Q "(new expressions spliced into parent) " 277Q (0) 246Q (1 TO) 227Q "(Note: replaced one expression with a list of several) " 175Q "(not changed) " 141Q "** " 35Q (UP) 7 (^)) DO.EE D1 (L (2 W 1 COM 0 EXPRS)) @B (4 TTYINEDIT) NIL () TTYINEDITA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 EXPRS F 1 PRINTFN F 2 WINDOW F 3 RESETVARSLST F 4 DEFAULTCURSOR F 5 PROMPT F 6 RESETY) WR ¿gT hhSc¿Uµ`hdghdQið©Q©P¦P‘PŠ`PQ h` `’Rµci ¿°ø(122Q CLOSEW 104Q TTYIN 72Q TTYIN.PPTOFILE 13Q CURSOR 3 SET.TTYINEDIT.WINDOW) (107Q TTYINAUTOCLOSEFLG 100Q EDITRDTBL 65Q HISTSTR1 40Q LISPXREAD 33Q TTYINEDITPROMPT 7 CURSOR) () TTYINEDIT D1 (P 1 RESETY P 0 LISPXHIST I 3 PROMPT I 2 PRINTFN I 1 WINDOW I 0 EXPRS F 3 LISPXHIST F 4 RESETVARSLST) *B¥`b¿S!Tog ‘h‚gZ J“I(45Q ERROR! 40Q RESETRESTORE 26Q TTYINEDITA0001) (34Q ERROR 23Q INTERNAL 4 TTYINPRINTFN) ( 20Q (DUMMY.FOR.ERRORSET)) SIMPLETEXTEDITA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 MAINOUTPUT) Pg ci(6 OPENFILE) (3 OUTPUT) () SIMPLETEXTEDITA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 MAINOUTPUT F 3 RESETVARSLST F 4 FILE F 5 WINDOW F 6 RESETY) ŠTd•g !HŸgHhhhSc¿¹U ¿`hdoIhH´`HjH h ´=HžghgHh¸°ohooºo ²ÖIJjI ¿J ci(203Q CLOSEF 176Q COPYBYTES 173Q GETFILEPTR 162Q SIMPLETEXTEDITA0001A0002 151Q TTYIN 125Q PACKFILENAME 106Q TTYIN 75Q GETEOFPTR 45Q SET.TTYINEDIT.WINDOW 40Q TTYIN.SCRATCHFILE 10Q OPENFILE) (121Q BODY 115Q VERSION 67Q HISTSTR1 51Q TTYINEDITPROMPT 20Q CLOSEF 5 INPUT) ( 157Q (DUMMY.FOR.ERRORSET) 146Q (NORAISE READ) 142Q "Name of file for edited output" 135Q "Output file: " 57Q (TEXT NOVALUE)) SIMPLETEXTEDIT D1 (P 1 RESETY P 0 LISPXHIST I 1 WINDOW I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q SIMPLETEXTEDITA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) SET.TTYINEDIT.WINDOW D1 (L (0 WINDOW) F 1 RESETVARSLST) Y@dið‘h³`d©o b¿@ h@ É jh@ ÙÜHjð¨jdHÙ@¿g@ hhQc@(114Q TTYDISPLAYSTREAM 103Q RELMOVETO 62Q DSPLINEFEED 50Q DSPCLIPPINGREGION 43Q \INSUREWINDOW 36Q CLEARW 24Q CREATEW) (110Q TTYDISPLAYSTREAM 27Q TTYINEDITWINDOW 13Q TTYINEDITWINDOW) ( 21Q "Edit Work Area") TTYIN.PPTOFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 1 RESETVARSLST F 2 PRINTFN F 3 EXPRS F 4 NORMALCOMMENTSFLG F 5 PRETTYPRINTMACROS F 6 RESETY) Åg` hhQc¿hi ` kØÙH` ¿gd gHlÛ ¿Qcgd g ¿Qc¿RµM`²gd g ¿Qc¿Tið³$g ²gd goU ¿Qc¿Shidcigð³±Rdið“¿gSlH°à(273Q OUTPUT 241Q PRINTDEF 224Q SETTOPVAL 207Q GETTOPVAL 176Q DEFINEDP 155Q SETTOPVAL 146Q GETTOPVAL 121Q SETTOPVAL 112Q GETTOPVAL 75Q SETTOPVAL 62Q GETTOPVAL 52Q LINELENGTH 35Q NCHARS 27Q LINELENGTH 10Q OUTPUT) (264Q PRINT 250Q PRETTY 213Q PRETTYPRINTMACROS 203Q PRETTYPRINTMACROS 173Q GETCOMMENT 152Q CHANGESARRAY 142Q CHANGESARRAY 135Q CHANGESARRAY 116Q FONTCHANGEFLG 106Q FONTCHANGEFLG 66Q PRETTYLCOM 56Q PRETTYLCOM 47Q TTYINEDIT.SCRATCH 32Q TTYINEDITPROMPT 5 TTYINEDIT.SCRATCH 2 OUTPUT) ( 217Q (* . GETCOMMENT)) TTYIN.PPTOFILE D1 (P 1 RESETY P 0 LISPXHIST I 1 PRINTFN I 0 EXPRS F 3 LISPXHIST F 4 RESETVARSLST) 2S!Tog ‘h‚gZ ¿J“¿`j` (55Q GETFILEPTR 41Q ERROR! 33Q RESETRESTORE 21Q TTYIN.PPTOFILEA0001 2 TTYIN.SCRATCHFILE) (52Q TTYINEDIT.SCRATCH 46Q TTYINEDIT.SCRATCH 27Q ERROR 16Q INTERNAL) ( 13Q (DUMMY.FOR.ERRORSET)) TTYIN.SCRATCHFILE D1 NIL *`™`g ¯ggg‚`j `(44Q SETFILEPTR 31Q OPENSTREAM 14Q OPENP) (47Q TTYINEDIT.SCRATCH 40Q TTYINEDIT.SCRATCH 34Q TTYINEDIT.SCRATCH 26Q OLD/NEW 23Q BOTH 20Q {NODIRCORE} 11Q BOTH 6 TTYINEDIT.SCRATCH 2 TTYINEDIT.SCRATCH) () (PRETTYCOMPRINT TTYINCOMS) (RPAQQ TTYINCOMS ((E (RESETSAVE (RADIX 10Q))) (FNS * TTYINFNS) (FNS * TTDISPLAYFNS) (COMS (* Mouse handling) (FNS DO.MOUSE DO.SHIFTED.SELECTION COPY.SEGMENT DELETE.LONG.SEGMENT DELETE.LONG.SEGMENT1 INVERT.LONG.SEGMENT INVERT.SEGMENT BRACKET.CURRENT.WORD TTBEFOREPOS TTNEXTPOS TTRACKMOUSE)) (COMS (* Support functions. These are all macros or for debugging) (FNS * TTSUPPORTFNS)) (COMS (* Auxiliary fns. These are outside the TTYIN block, and are provided to aid the outside world in special interfaces to TTYIN) (FNS SETREADFN TTYINENTRYFN TTYINREADP TTYINREAD TTYINFIX CHARMACRO? TTYINMETA \SET.TTYINBOLDFONT TTYIN.LASTINPUT) (FNS TTED DO.EE TTYINEDIT SIMPLETEXTEDIT SET.TTYINEDIT.WINDOW TTYIN.PPTOFILE TTYIN.SCRATCHFILE) (USERMACROS EE ED BUF) (LISPXMACROS TV BUF) (INITVARS ( TTYINEDITWINDOW) (TTYINEDIT.SCRATCH) (TTYINEDITPROMPT T) (TTYINAUTOCLOSEFLG) (TTYINPRINTFN) (TTYIN?=FN )) (ADDVARS (AFTERSYSOUTFORMS (SETQ TTYINEDIT.SCRATCH NIL)))) (DECLARE: DOEVAL@COMPILE DONTCOPY (COMS * TTCOMPILETIME)) (INITVARS (TTYINBUFFER) (?ACTIVATEFLG T) (EDITPREFIXCHAR) (EMACSFLG T) (SHOWPARENFLG T) (TTYINBSFLG T) (TTYINCOMPLETEFLG T) (TTYINUSERFN) (TYPEAHEADFLG T) (null "") (DEFAULTPROMPT "** ") (TTYJUSTLENGTH -10Q) (\INSIDE.TTYIN) (TTYINERRORSETFLG) (TTYINRAISEFLG T) (\TTYIN.RESTOREBUFCODE 302Q ) (\TTYIN.METASTATE) (TTYINAUTOFILLMARGIN 10Q) (TTYINFIXLIMIT 62Q) (TTYINDEBUGFLG) (HISTSTR1 "from file:") (TTYINCOMMENTCHAR)) (P (MOVD? (QUOTE NILL) (QUOTE GUESTUSER?)) (MOVD? (QUOTE FIXSPELL) ( QUOTE FIXSPELL!!)) (MOVD? (QUOTE HELPSYS) (QUOTE XHELPSYS)) (PUTDQ? SPRINTT (LAMBDA (X) (PRIN1 X))) ( MOVD? (QUOTE NILL) (QUOTE WINDOWWORLD)) (MOVD? (QUOTE LISPXFIX) (QUOTE NONTTYINLISPXFIX))) (ADDVARS ( TTYINREADMACROS) (TTYINRESPONSES) (LISPXCOMS (STOP . OK))) (PROP VARTYPE TTYINREADMACROS) (DECLARE: DONTEVAL@LOAD DOCOPY (P (COND ((CCODEP (QUOTE TTYIN)) (CHANGENAME (QUOTE PROMPTCHAR) (QUOTE LISPXREADP ) (QUOTE TTYINREADP)) (SETREADFN) (MOVD (QUOTE TTYINFIX) (QUOTE LISPXFIX)))) (\SET.TTYINBOLDFONT ( DEFAULTFONT (QUOTE DISPLAY))))) (GLOBALRESOURCES \TTWAITBOX) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA TTBOUTN TTBOUT) (NLAML TTED CHARMACRO? CAPABILITY?) (LAMA))))) (RPAQQ TTYINFNS (TTYIN TTYIN.SETUP TTYIN.CLEANUP TTYIN1 TTYIN1RESTART TTYIN.FINISH TTYIN.READ TTYIN.BALANCE ADDCHAR ADDCHARS.INSERTING ADDNAKEDCHAR ADDSILENTCHAR ADDTAB ADJUSTLINE ADJUSTLINE.AND.RESTORE AT.END.OF.SCREEN AT.END.OF.TEXT AUTOCR? BACKSKREAD BACKWARD.DELETE.TO BREAKLINE BUFCHARCOUNT BUFTAILP CHECK.MARGIN CLEAR.LINE? CREATE.LINE CURRENT.WORD DELETE.TO.END DELETELINE DELETETO DELETETO1 DO.EDIT.COMMAND DO.EDIT.PP DO?CMD TTYIN.PRINTARGS TTYIN.READ?=ARGS DOTABS EDITCOLUMN EDITNUMBERP END.DELETE.MODE ENDREAD? FIND.LINE FIND.LINE.BREAK FIND.MATCHING.QUOTE FIND.MATCHING.WORD FIND.NEXT.WORD FIND.NON.SPACE FIND.START.OF.WORD FORWARD.DELETE.TO GO.TO.ADDRESSING GO.TO.FREELINE GO.TO.RELATIVE INIT.CURSOR INSERT.CHAR.IN.BUF INSERT.NODE INSERTLINE KILL.LINES KILLSEGMENT L-CASECODE MOVE.BACK.TO MOVE.FORWARD.TO MOVE.TO.LINE MOVE.TO.NEXT.LINE MOVE.TO.START.OF.WORD MOVE.TO.WHEREVER NTH.COLUMN.OF NTH.RELATIVE.COLUMN.OF OVERFLOW? OVERFLOWLINE? PREVLINE PREVWORD PROPERTAILP READFROMBUF RENUMBER.LINES RESTORE.CURSOR RESTOREBUF RETYPE.BUFFER SAVE.CURSOR SCANBACK SCANFORWARD SCRATCHCONS SEGMENT.LENGTH SEGMENT.BIT.LENGTH SETLASTC SETTAIL? SHOW.MATCHING.PAREN SKIP/ZAP START.NEW.LINE START.OF.PARAGRAPH? TTADJUSTWORD TTBIN TTBITWIDTH TTCOMPLETEWORD TTCRLF TTCRLF.ACCOUNT TTDELETECHAR TTDELETELINE TTDELETEWORD TTECHO.TO.FILE TTGIVEHELP TTGIVEHELP1 TTGIVEHELP2 TTLASTLINE TTLOADBUF TTNEXTCHAR TTNEXTLINE TTNEXTNODE TTNLEFT TTNTH TTNTHLINE TTPRIN1 TTPRIN2 TTPROMPTCHAR TTRATOM TTREAD TTREADLIST TTRUBOUT TTSKIPSEPR TTSKREAD TTUNREADBUF TTWAITFORINPUT TTYINSTRING TYPE.BUFFER U-CASECODE U/L-CASE WORD.MATCHES.BUFFER)) (RPAQQ TTDISPLAYFNS (&DISPLAYCOMMENT CAPABILITY? BEEP BITBLT.DELETE BITBLT.ERASE BITBLT.INSERT DO.CRLF DO.DELETE.LINES DO.DOWN DO.INSERT.LINE DO.LF DO.UP ERASE.SCREEN ERASE.TO.END.OF.LINE ERASE.TO.END.OF.PAGE INSERT.TEXT INSERTNCHARS TTDELSECTION TTADJUSTWIDTH TTINSERTSECTION TTSETCURSOR)) (RPAQQ TTSUPPORTFNS (ADD1POS INPART INSERTING TTBOUT TTBOUTN PR! PRALL PRBUF PRLINE)) (ADDTOVAR USERMACROS (EE (DUMMY) (COMS (TTED DO.EE EE))) (EE NIL (COMS (TTED DO.EE EE))) (ED NIL (COMS (TTED))) (BUF NIL (E (LISPXUNREAD (TTYIN (QUOTE *) NIL NIL (QUOTE LISPXREAD) NIL NIL (LIST (QUOTE E) (##)))) T))) (ADDTOVAR EDITCOMSA EE ED BUF) (ADDTOVAR EDITCOMSL EE) (ADDTOVAR LISPXHISTORYMACROS (BUF NIL (TTYIN LISPXID NIL NIL (QUOTE EVALQT) NIL NIL (LIST (COND ( LISPXLINE (VALUOF LISPXLINE)) (T (CADDR (CAAR LISPXHISTORY)))))))) (ADDTOVAR LISPXMACROS (TV (APPLY* (QUOTE EDITV) (CAR LISPXLINE) (QUOTE ED)))) (RPAQ? TTYINEDITWINDOW) (RPAQ? TTYINEDIT.SCRATCH) (RPAQ? TTYINEDITPROMPT T) (RPAQ? TTYINAUTOCLOSEFLG) (RPAQ? TTYINPRINTFN) (RPAQ? TTYIN?=FN) (ADDTOVAR AFTERSYSOUTFORMS (SETQ TTYINEDIT.SCRATCH NIL)) (RPAQ? TTYINBUFFER) (RPAQ? ?ACTIVATEFLG T) (RPAQ? EDITPREFIXCHAR) (RPAQ? EMACSFLG T) (RPAQ? SHOWPARENFLG T) (RPAQ? TTYINBSFLG T) (RPAQ? TTYINCOMPLETEFLG T) (RPAQ? TTYINUSERFN) (RPAQ? TYPEAHEADFLG T) (RPAQ? null "") (RPAQ? DEFAULTPROMPT "** ") (RPAQ? TTYJUSTLENGTH -10Q) (RPAQ? \INSIDE.TTYIN) (RPAQ? TTYINERRORSETFLG) (RPAQ? TTYINRAISEFLG T) (RPAQ? \TTYIN.RESTOREBUFCODE 302Q) (RPAQ? \TTYIN.METASTATE) (RPAQ? TTYINAUTOFILLMARGIN 10Q) (RPAQ? TTYINFIXLIMIT 62Q) (RPAQ? TTYINDEBUGFLG) (RPAQ? HISTSTR1 "from file:") (RPAQ? TTYINCOMMENTCHAR) (MOVD? (QUOTE NILL) (QUOTE GUESTUSER?)) (MOVD? (QUOTE FIXSPELL) (QUOTE FIXSPELL!!)) (MOVD? (QUOTE HELPSYS) (QUOTE XHELPSYS)) (PUTDQ? SPRINTT (LAMBDA (X) (PRIN1 X))) (MOVD? (QUOTE NILL) (QUOTE WINDOWWORLD)) (MOVD? (QUOTE LISPXFIX) (QUOTE NONTTYINLISPXFIX)) (ADDTOVAR TTYINREADMACROS) (ADDTOVAR TTYINRESPONSES) (ADDTOVAR LISPXCOMS (STOP . OK)) (PUTPROPS TTYINREADMACROS VARTYPE ALIST) (COND ((CCODEP (QUOTE TTYIN)) (CHANGENAME (QUOTE PROMPTCHAR) (QUOTE LISPXREADP) (QUOTE TTYINREADP)) ( SETREADFN) (MOVD (QUOTE TTYINFIX) (QUOTE LISPXFIX)))) (\SET.TTYINBOLDFONT (DEFAULTFONT (QUOTE DISPLAY))) (/SETTOPVAL (QUOTE \\TTWAITBOX.GLOBALRESOURCE)) (PUTPROPS TTYIN COPYRIGHT ("Xerox Corporation" 3676Q 3677Q 3700Q)) NIL