(FILECREATED "10-Apr-86 18:59:49" ("compiled on " {ERIS}BVM>TTYIN.;2) " 9-Apr-86 15:50:03" recompiled exprs: TTYIN TTYIN1 TTYIN.FINISH TTYIN.BALANCE BACKSKREAD TTSKREAD TTYINSTRING TTYINBUFFERSTREAM in "Xerox Lisp 9-Apr-86 ..." dated " 9-Apr-86 16:49:41") (FILECREATED "10-Apr-86 18:57:01" {ERIS}BVM>TTYIN.;2 269223 changes to: (FNS BACKSKREAD TTSKREAD TTYIN1 TTYIN.FINISH TTYIN.BALANCE TTYINSTRING TTYIN TTYINBUFFERSTREAM TTYIN.READ DO?CMD ENDREAD? FIND.MATCHING.QUOTE TTRATOM TTREADLIST TTYINBUFFERDEVICE TTYINBUFFERBIN TTYINBUFFERPEEK TTYINBUFFERREADP TTYINBUFFEREOFP) (VARS TTCOMPILETIME TTYINFNS TTYINCOMS) previous date: "14-Mar-86 15:07:37" {ERIS}SOURCES>TTYIN.;20) TTYINA0001A0002 D1 (NAME ERRORSET) h(2 TTYIN1) NIL () TTYINA0001 D1 (NAME ERRORSET P 66Q \INSIDE.TTYIN P 63Q \TTYINBUFFERSTREAM P 62Q \LAST.DELETION P 61Q \FILLINGBUFFER P 60Q \NOPROMPT P 57Q DIRECTORY/FILE P 56Q \LISPXREADING P 55Q \READING P 54Q \COMMAND P 53Q \REPEAT P 52Q \STRINGVALUE P 51Q \NOFIXSPELL P 50Q \NOVALUE P 47Q \DONTCOMPLETE P 46Q \DELETING P 45Q \ARROW P 44Q \CURSOR P 43Q \ENDBUFFER P 42Q \BUFFER P 40Q \SPLSTFLG P 37Q \LASTCHAR P 36Q \LOC.ROW.0 P 35Q \FIX P 34Q \LASTAILROW P 33Q \LASTAILCOL P 32Q \LASTAIL P 31Q \FIRSTLINE P 30Q \PROMPT2 P 27Q \PROMPT1 P 26Q \HOMECOL P 25Q \HOMEROW P 24Q \CURSORCOL P 23Q \CURSORROW P 22Q \TTPAGELENGTH P 21Q \TEXTURE P 20Q \VARIABLEFONT P 17Q \FONT P 16Q \DESCENT P 15Q \CHARHEIGHT P 14Q \CHARWIDTH P 13Q \RMARG P 12Q \LMARG P 11Q \BMARG P 10Q \INITPOS P 7 \AUTOFILL P 5 \FIRSTTIME P 4 \RAISEINPUT P 3 \RDTBLSA P 2 \DSP P 1 \TTYINSTATE P 0 \INSIDE.TTYIN F 67Q PROMPT F 70Q SPLST F 71Q \PRIMTERMTABLE F 72Q RDTBL F 73Q \TERM.OFD F 74Q \PRIMREADTABLE F 75Q \SYSREADTABLE F 76Q DEFAULTPROMPT F 77Q TTYINFILLDEFAULT F 100Q OPTIONS F 101Q RESETY) ½7i`WvWtµWxŠið’Wz„WtÉ`µWrÉi`W~øð%ð45h¿I³"jhhddjhhddjhdddh¹¿Wpµ"W€h_j¿_h¿Ohµ!Wndið¢±6¿h_0_.¿±³ßWphcp¿°Ö¦Oh_j¿hˆOh_j¿Oh_h¿Ojdgð«dgð¥dgð–_N_R¿°¯gð–Oj_P¿°£Ojdgð”_T¿°–gð–Oj_X¿°ŠOjdgð•_V¿±ÿ}gð”h¼±ÿsOjdgð•¿i¼±ÿegðOj__P_V¿h¼±ÿROjdgð•_:¿±ÿDgð™Oj__Z¿±ÿ5Ojdgðž__Z_\¾WrÉ¼±ÿgð²Oj__Z_\¾WrÉ¼±ÿOjdgð«dgð¥dgð•_^¿±þígð•Oj¾±þâOjdgð•_b¿±þÔgð¢±þÌOj]_`¿±þÃ¥W|cn°Wnd²-d³_.¿Wn_0¿Wn³BWn_.¿O\²$h°3lmþcn°è³âWndlð³Û cn°ÔOV›lWn ñ’Wn‚g_0¿Wp£i_N¿OZ“h_V¿N¤i ¿o _B³"`“O\²ïO(“¿ODOFð¥IOF¿°ÖODOFð³IdkÔl ñœIj¿OFh¿OB_B¿ij ¿`²1OBdið³,¿h¿6OBlð³OBd“ ‹ho _B¿OBc‚i(1255Q EDITE 1243Q EDITE 1175Q POSITION 1115Q ERROR! 1075Q GO.TO.FREELINE 1053Q TTYINA0001A0002 1043Q CLEARBUF 1004Q NCHARS 766Q MKSTRING 742Q SUBSTRING 140Q TTYIN.SETUP) (1217Q CTRLUFLG 1201Q CTRLUFLG 1062Q TTYINERRORSETFLG 1014Q ... 640Q NOPROMPT 625Q FILLBUFFER 607Q TYPEAHEAD 574Q USER 566Q DIRECTORY 560Q FILE 526Q EVALQT 502Q LISPXREAD 460Q READ 445Q FIX 417Q TEXT 404Q RAISE 367Q NORAISE 354Q REPEAT 335Q COMMAND 323Q STRING 304Q \NOVALUE 270Q CRCOMPLETE 262Q MUSTAPPROVE 254Q NOFIXSPELL 70Q TTYINBUFFER 46Q TYPEAHEADFLG 34Q TTYINRAISEFLG 27Q READTABLEP 3 TTYINBUFFER) ( 1252Q (REPACK) 1050Q (TTYINA0001A0002)) 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 (TTYINA0001)) TTYIN.SETUP D1 (F 1 \DSP F 2 \TTYINSTATE F 3 \TERM.OFD F 4 RESETVARSLST F 5 \CHARWIDTH F 6 \FONT F 7 \LMARG F 10Q \RMARG F 11Q \SCREENBITMAPS F 12Q \TTPAGELENGTH F 13Q \TEXTURE F 14Q \VARIABLEFONT F 15Q \CHARHEIGHT F 16Q \INITPOS F 17Q \DESCENT) ØScd H²fRHgg¿RHgg¿RHgg¿RH¿HgR¿gRhhhTc¿Sg ©hS W´TlAQ c hQ cUliQ ðhðcjhQ ÙcVÈchQ chQ chQ chQ chQ WÙc(320Q DSPXPOSITION 311Q DSPRIGHTMARGIN 302Q DSPLEFTMARGIN 273Q PAGEHEIGHT 264Q DSPTEXTURE 244Q DSPLINEFEED 231Q CHARWIDTH 220Q DSPFONT 211Q CHARWIDTH 176Q DSPDESTINATION 170Q IMAGESTREAMTYPEP 137Q PUTWINDOWPROP 106Q PUTWINDOWPROP 61Q PUTWINDOWPROP 36Q PUTWINDOWPROP 6 WFROMDS) (253Q FONTDESCRIPTOR 165Q TEXT 143Q TTYIN.CLEANUP 125Q TTYINSTATE 103Q TTYINENTRYFN 100Q WINDOWENTRYFN 56Q TOTOPW 53Q BUTTONEVENTFN 33Q TOTOPW 30Q RIGHTBUTTONFN) () 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 13Q \INSIDE.TTYIN F 14Q \ENDBUFFER F 15Q \ARROW F 16Q \CURSOR F 17Q \READING F 20Q \PROMPT1 F 21Q \INITPOS F 22Q TABS F 23Q \BUFFER F 24Q \RDTBLSA F 25Q \FIRSTTIME F 26Q \DSP F 27Q UNREADBUF F 30Q \FIRSTLINE F 31Q SPLST F 32Q \REPEAT F 33Q \PRIMTERMSA F 34Q \DONTCOMPLETE F 35Q \LINEBUF.OFD F 36Q \FONT F 37Q \CURSORCOL F 40Q \LASTCHAR F 41Q \PROMPT2 F 42Q \LASTAIL F 43Q \CHARWIDTH F 44Q \RAISEINPUT F 45Q \FILLINGBUFFER F 46Q \COMMAND F 47Q \LISPXREADING) ô¡ W:ÉY´.W —W*gð²l Iñ³IW< ]W, ¿W"MÙc"¿W:h¿hcD¿¿W*¦W"j ¿h»W" ¿W*gð²W ²jW"W W< Ù]ñ“hc ˆMc"„W ¿WWW>¿W$´W$d¢¿hŒkÙWFÚW>ñ¥W$c$¿W.µW*´°d3 ´ ¿W.¹hc.¿±¥c.¿ ¿hc*¿I¢±‘±’N]¿W&Wð›M]dž ]µIãkð³Hh°R3 ²0Mdjð’±]dmÿð•¿h¹±ÿEYdãkð²Üdlÿåjð²Ô¿i näY°ÈW&Wð²ÀMd¡h[±±Ilÿå Y¢±!i_¿IlÿñžW6É€—IW6É€µjƒW6IÂlådlð–¿±ïdlð–¿±ãdlð–¿±×lð²1W0WðªWdWð£¿Wƒk ¿IYð¢±·W0i ±£WJ².IlÿñžW(É€—IW(É€µjƒW(IÂ_dl ål ð›¿W ’±ÿOl åjð§W8¤i ¿Olsð¦Oluð²,W¼I ¿W¢±I’±Í`¢±;’±4L ±,Idlð²i¿W2œ’±±`²KWN²G\™`L Z°`jð³W&Wð¬o`º`€h²n¹hdJLµW’±Í±Æl ±¾l"ð¦Idl*ð¿I ¿W$ ±¦l ðžW$ ’±š±“Idl ðž¿’±†I ±~l?ð¢±²`²TW2§W@nð²IWWð²B\²W$¿W@²W<”@iW:„@hb±4W&º¸W$ðŸHgð¥Hgð“W*µ6`h_¿_µ7H µH’±W.’±h¸W&W$ð¢±°W(¢±–Hh±Û ²Éi g_¿HO_¿_Oð«O²fOO²_W&W$ð¦O²RHW&dW$ð’h°Ogð•W& ‚OdlðŸ_¿OO"lO„ gð©gg ¿O±ÿIW,’i°GW0•J °>Hh°9W0²W(—HW& °)J °$W,™W(“Hi°i°b¿W(¨W.•B_µ*HBb¿@ ¿`“BµjcBBk`Ydið²"gd µ OªW.§h¿O°¿¿g°Á²ÏI(1105Q TTADJUSTWORD 1042Q SETLASTC 1011Q TTREADLIST 767Q TTYINSTRING 761Q TTYINSTRING 735Q TTYINSTRING 711Q RETFROM 672Q EVAL 630Q TTREADLIST 624Q TTYINSTRING 514Q TERPRI 506Q TTGIVEHELP 437Q TTADJUSTWORD 373Q TTSKIPSEPR 367Q TTRATOM 354Q TTYIN.READ 351Q TTYIN.SCRATCHFILE 315Q TTGIVEHELP 234Q TTECHO.TO.FILE 177Q TTECHO.TO.FILE 171Q SETLASTC 61Q TTNLEFT 42Q TTNLEFT 11Q CLEAR.LINE? 5 TTCRLF) (1132Q ABORT 1077Q ABORT 1064Q TTYINUSERFN 1046Q TTYINUSERFN 706Q ABORT 703Q TTYIN.FINISH 676Q IGNORE 615Q STRING 517Q ABORT 422Q TTYINRESPONSES 411Q HELP 403Q ? 320Q ABORT 242Q TTYINCOMMENTCHAR) ( 312Q "Terminate text with control-Z.") TTYIN.READA0004 D1 (NAME ERRORSET F 0 STREAM F 1 RDTBL) PQ h(4 READ) NIL () TTYIN.READ D1 (L (1 DONTREAD 0 FINALCHAR) I 2 STREAM F 10Q \RDTBLSA F 11Q \BUFFER F 12Q \ENDBUFFER F 13Q RDTBL F 14Q \LINEBUF.OFD) *PWWð³H¹BWd¸ºHJ ¿Wc°äA¢±Ÿ@dl ð¢±·¿HlÿñžWÉ€—HWÉ€µjƒWHÂdlsð¥dluð²h¿I²eIlÿñžWÉ€—IWÉ€µjƒWIÂlFð³Hl]lÿñŸWÉ€˜l]WÉ€µ j„Wl]Âluð²0BdÉÉ0»BkKBÊ2lÿð¡klÙ ¿l]B ¿h¿i•@B ¿BdÉÉ0¼BkL Bj A²BWð“Bkil)ð¥@l]ð²Ïh°Í0BW ˜o µMBj ¿Bj ¿_¿Nµ Oh^½°ÔO&¾°Î(421Q \SETEOFPTR 413Q \SETFILEPTR 402Q TTYIN.READA0004 372Q SKIPSEPRS 326Q \SETFILEPTR 321Q \SETEOFPTR 302Q PRINTCCODE 267Q PRINTCCODE 260Q \SETFILEPTR 32Q PRINTCCODE) NIL ( 377Q (TTYIN.READA0004)) TTYIN.BALANCE D1 (F 3 \ENDBUFFER F 4 \BUFFER F 5 \RDTBLSA) :T !HSðµ&UHº¹JlÿñœIÉ€–JIÉ€µj‚IJÂluð´H HµS ¿(66Q MOVE.TO.WHEREVER 57Q AT.END.OF.TEXT 3 TTSKREAD) NIL () ADDCHAR D1 (L (0 CHAR) F 3 \CURSOR F 4 \ARROW F 5 \CURSORCOL F 6 \DSP F 7 \AUTOFILL F 10Q \RMARG) ‹@d’‚ TSðH I¤H ¿@dž†dV ¿µ÷„V ¿S S@ScUHÔc I²TS¿TU¿j ¿°,TTHÔWÙZjñ¨Jjð´W´W´i ¿S h(207Q MOVE.TO.WHEREVER 202Q ADJUSTLINE 132Q OVERFLOW? 73Q INSERT.NODE 66Q BLTCHAR 54Q BLTCHAR 36Q TTINSERTSECTION 30Q OVERFLOW? 24Q END.DELETE.MODE 11Q TTBITWIDTH) NIL () TTMAKECOMPLEXCHAR D1 (L (1 PRINTCHARS 0 REALCHAR)) "jdAŽdºHJ Ô¸IkÔ¹µð@HIA(16Q TTBITWIDTH) NIL () ADDNAKEDCHAR D1 (L (1 NOAUTOFILL 0 CHAR) F 0 \CURSOR F 1 \ENDBUFFER) h@dl ñ•dlð²%l ðžPQð–` @dl ð¿A¤µl lð›@l$h @dl ð”¿l^@dlð“¿l?‚l@äh (145Q ADDCHAR 142Q TTMAKECOMPLEXCHAR 114Q TTADDTAB 101Q ADDCHAR 76Q TTMAKECOMPLEXCHAR 61Q ADDCHAR 52Q AUTOCR? 35Q BEEP 31Q START.NEW.LINE) (26Q EOLCHARCODE) () TTADDTAB D1 (F 5 \CURSORCOL F 6 \ARROW F 7 \CHARWIDTH) 8l lUVÙWÛlå2IHó³l ¼Kµ Lh[ºIkÔY°íL&»°÷J (65Q ADDCHAR 62Q TTMAKECOMPLEXCHAR) NIL () ADJUSTLINE D1 (L (1 LINE 0 JUSTIFYING) F 13Q \RMARG F 14Q \CHARWIDTH F 15Q \AUTOFILL F 16Q \ARROW F 17Q \CURSORCOL) =`jñ²W`WÚHdIñ‘¿I°Wj`ÙWÚÙWâHdIñ¡¿I¡ AµWb_¿A¼A ¾WAÙ_¿hY_¿A_¿jOñ²@@² AdHØWýñ²¿OAH iY’±AW »@¢W›OKiY’±…K¹±„N²LOjð³FLO [Lð³:AdKð’±J¿W¤@¢±@AK@Y•I[’±0@¢±+OAiY¢±°2@¡hN³@ið’±½AdAÙHñ¢±¿OAH iY¢±ûi_¿AAI AØZ¿IA] _¿JWðªJO ¿¿AI¿OOl Ù_¿I¹L¢±yN³(@³Ml ð¢±hLOØWýñ¢±XL ’±PgLb ¿N’±KOl Ô_¿Ml ]±6AAð³VL ³P@ið˜Al ð²CLHAØAÙdOñ’¿OkÙ YdLð³¿LIiYµ Al »A]Kðžj_°\@ið¿Lb±íAO ¿MK _¿N³*Ml ¿MKð©Mdl ð³|¿AkMl.ð—M l ¿MK ¿AK¿AW¿gL ¿LIµ3K¿LKð²FLi ¿@µAb°rið’±þW@kÙbjð’±þL±ý•l ¿NšOl Ô_¿K°½d ±ÿrO ¿LLOÙ¿Lb°(A bM¿AI¿IMA¿AAOÔ¿A´‚±ýèOkØ_¿@¢±ý'@ið’±ý @kÙbjð¢±ýhb¿±ý(1400Q INSERT.TEXT 1356Q INSERTLINE 1326Q TTDELSECTION 1316Q KILLSEGMENT 1301Q TTBITWIDTH 1222Q DELETELINE 1176Q GO.TO.RELATIVE 1151Q TYPE.BUFFER 1140Q INSERT.NODE 1127Q NLEFT 1066Q SEGMENT.BIT.LENGTH 1060Q GO.TO.RELATIVE 1005Q FIND.LINE.BREAK 765Q NTH.RELATIVE.COLUMN.OF 714Q START.OF.PARAGRAPH? 663Q TTBITWIDTH 646Q GO.TO.RELATIVE 631Q START.OF.PARAGRAPH? 550Q TTBITWIDTH 530Q ERASE.TO.END.OF.LINE 524Q GO.TO.RELATIVE 506Q SEGMENT.BIT.LENGTH 466Q SEGMENT.BIT.LENGTH 443Q FIND.LINE.BREAK 437Q NTH.RELATIVE.COLUMN.OF 361Q FIND.LINE.BREAK 333Q FIND.LINE.BREAK 272Q NTH.RELATIVE.COLUMN.OF 241Q FIND.LINE.BREAK 224Q NTH.COLUMN.OF 211Q FIND.LINE.BREAK 205Q NTH.RELATIVE.COLUMN.OF 121Q OVERFLOWLINE?) (1172Q 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ðµSPd TØØRñ(15Q SEGMENT.LENGTH) NIL () AT.END.OF.TEXT D1 (L (0 BUF) F 1 \ENDBUFFER) -@HdQð‘iddl ð©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ð•l „l i(34Q BREAKLINE 26Q START.NEW.LINE) (6 TTYINAUTOFILLMARGIN) () BACKSKREAD D1 (L (1 NOTIFQUOTED 0 BUF) F 7 \BUFFER F 10Q \RDTBLSA F 11Q RDTBL) æWdRH@ðœA˜Jhð´‚±ÒIWH¾½NlÿñœMÉ€–NMÉ€µj‚MNÂdlrð¥dltð²4¿J³kH@ \d@ð™¿Kµ‚±“H’L°SHYdl[ð²J¿@l]ð²AH[°>dlFð²¿Hd@ð—¿Ahð´dI°&dlqð²¿J³H@ µAhð´HIdlGðš¿JhðºHX±ÿZjð³øHdl;ð²ñ¿Wg ²åHXd@ð’¿iŠdl ð²îh²ÎAhð´I(304Q READTABLEPROP 226Q FIND.MATCHING.QUOTE 106Q TTSKREAD) (301Q COMMONLISP) () 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 () 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 () CURRENT.WORD D1 (F 3 \ARROW F 4 \CURSOR F 5 \READING F 6 \COMMAND) ™STð³}Sl;ð³uSiHdTð²¿I³eU²wJdl"ðªdl'ð¥dlð²[¿i°Yddl ð®dl ð©dl ð¤dlð“¿i°4dl(ð³dl)ð³dl,ð®dl[ð©dl]ð¤dl"ð•¿i¹HZ¿I™J“V‘hHºh¹HX°‹¿h–JZTð³íJNIL NIL () 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 4 \BUFFER F 5 \CURSOR F 6 \ARROW F 7 \ENDBUFFER F 10Q \CURSORCOL F 11Q \BUFFER F 12Q \FIRSTLINE F 13Q \PRIMTERMSA F 14Q \TTYINSTATE F 15Q \READING F 16Q \LOC.ROW.0 F 17Q \CURSORROW F 20Q \LASTCHAR F 21Q \REPEAT) ) @A¡kˆjAó—i¸jAÙb¿@ bdl ð²#¿WWð•±ÉVdWð‘@A ±µl ð§@dl>ð²'¿H”l±UWð’±—•±UA ±…lð³@kð¬@lð§@dl<ð²0¿H”l ±åUWð’±]VUðVk d ±MUA ±Bl(ð²H”l)±³UA ±+@dl)ð²¿H”l(±™’±UA ± l ðŸVAkÙ d ±ö@dlð¿VAkÙ ±âl{ð—W ±Ö@dl}ðœ¿d ±Ãl ð².H“l^°4VdWðœ¿WWð¢±£l A d ±’@dl^ð²3¿H™l b¿h¸±þŸWVð’±sVWWØdAñ‘¿A d ±ZlKð²VUð’±IUA ±A@dlSð©dlZð¤dlBð›i AH±%lAð²Wµ±WAH±@dlLð—¿A ±úlUð—Ai ±î@dlCð˜¿Ak ±ßlGð²2WVð’±ÏVUð¢±ÆVA YW dIð“¿±±Ii±ª@dl]ð²¿UdWð“¿±• µW ±Šl[ð²UdWð“¿±x ±r@dlð—¿A ±dlDð¢±¢VUð’±QUAiZdVð³Z¿VUð³RUk d[lÿñ²WÉ€œKWÉ€µ j…jƒWKÂlð³"Kl ð³Kl ð³Kl(ð®Kl)ð©Kl[ð¤Kl]ð–J ±èJkUYddl ð©dl ð¤dl ð’¿i¿h²ÙIUð³ÔI°Ò@lð§@dlð²¿Anèð•±¥V ±žlðŸAnèð—UWð¢@@dlFð²=¿Anèð¢±vW ¿UWð³WUW Ôc¿Wc ¿j ¿W"’lW’l]l lJð–A ±=@dl-ð™¿jb¿i¸±;lð²!Anèð™`lð’lnèb¿h¸i ±ü+@lNð§@dlð²,¿Anèð˜Wi ±íH›VA V ±ßVdA ±ÓlTð²qUVUð’l€kZ YUð’±µI’±®Jlð—IUð’±¡I’±™WIdJkØ Ù ¿IdII¿¿Id ¿Jkð²qWId Ù °^@dlOð™¿`i °Nl_ð²4`²AZ²;JZµ°.lð²(Ajð˜J` °Jj °@dlPð”¿‰ bµ¿@c hl ÚJØb¿i b ZœAdldñ²è¿nè°çH¢±úùAjð¢±úòk±úë(2410Q EDITNUMBERP 2403Q TTBIN 2361Q BEEP 2352Q EDITNUMBERP 2346Q DO.EDIT.PP 2332Q ADDSPELL 2323Q DREMOVE 2274Q TTRATOM 2262Q CURRENT.WORD 2243Q BREAKLINE 2223Q GO.TO.RELATIVE 2217Q TTBITWIDTH 2175Q TYPE.BUFFER 2151Q GO.TO.RELATIVE 2145Q SEGMENT.BIT.LENGTH 2142Q NTH 2065Q TTNLEFT 2036Q RETYPE.BUFFER 2033Q TTNEXTLINE 2022Q RETYPE.BUFFER 2016Q PREVLINE 2004Q RETYPE.BUFFER 1750Q TTBIN 1664Q ADJUSTLINE.AND.RESTORE 1634Q OVERFLOW? 1617Q SEGMENT.BIT.LENGTH 1600Q MOVE.TO.WHEREVER 1550Q TTUNREADBUF 1523Q DELETELINE 1514Q DELETE.TO.END 1422Q TTNLEFT 1411Q FORWARD.DELETE.TO 1272Q TTNLEFT 1246Q FIND.NEXT.WORD 1215Q TTDELETEWORD 1177Q MOVE.TO.WHEREVER 1174Q BACKSKREAD 1147Q MOVE.TO.WHEREVER 1140Q TTSKREAD 1107Q READFROMBUF 1066Q NTH.COLUMN.OF 1060Q PREVLINE 1022Q U/L-CASE 1003Q U/L-CASE 767Q U/L-CASE 751Q SKIP/ZAP 714Q SKIP/ZAP 707Q TTBIN 660Q FORWARD.DELETE.TO 655Q TTNTH 627Q MOVE.TO.LINE 624Q NTH.COLUMN.OF 621Q EDITCOLUMN 615Q PREVLINE 537Q MOVE.TO.LINE 534Q NTH.COLUMN.OF 531Q EDITCOLUMN 525Q TTNEXTLINE 456Q MOVE.TO.LINE 450Q TTLASTLINE 433Q MOVE.TO.LINE 417Q MOVE.TO.LINE 414Q PREVLINE 373Q MOVE.TO.LINE 365Q TTNEXTLINE 347Q MOVE.FORWARD.TO 344Q FIND.NEXT.WORD 333Q AT.END.OF.SCREEN 306Q MOVE.BACK.TO 303Q PREVWORD 257Q MOVE.BACK.TO 254Q TTNLEFT 244Q MOVE.TO.LINE 236Q PREVLINE 154Q MOVE.FORWARD.TO 151Q TTNTH 141Q MOVE.TO.NEXT.LINE 135Q AT.END.OF.SCREEN 74Q MOVE.TO.LINE 71Q TTNEXTLINE 50Q RESTOREBUF 26Q U-CASECODE) (2320Q USERWORDS 2255Q TTYINCOMPLETEFLG 2237Q EOLCHARCODE 1725Q EDITPREFIXCHAR 1323Q CHARTABLE 1312Q CHARTABLE) () DO.EDIT.PPA0001 D1 (NAME ERRORSET) jhh(7 TTYIN.READ 4 TTYIN.SCRATCHFILE) NIL () DO.EDIT.PP D1 (P 0 \BUFFER F 3 \CURSOR F 4 \ENDBUFFER F 5 \FIRSTLINE F 6 \ARROW F 7 \READING F 10Q \BUFFER F 11Q \CURSORCOL) tW²kW!STð©ST ¹Sc¿HcTð³o µ ¿ºU VVWJ`J h ¿I´ l ¿I hUi (161Q RETYPE.BUFFER 152Q READFROMBUF 145Q BREAKLINE 134Q TTLOADBUF 126Q TTYIN.PPTOFILE 101Q TTYIN1RESTART 76Q ERASE.TO.END.OF.PAGE 73Q MOVE.TO.LINE 64Q BEEP 60Q TTYIN.BALANCE 53Q DO.EDIT.PPA0001 40Q TTSKIPSEPR 25Q COPY.SEGMENT 13Q TTYIN.BALANCE) (122Q HISTSTR1) ( 50Q (DO.EDIT.PPA0001)) DO?CMDA0003 D1 (NAME ERRORSET P 0 \?PARAMS F 2 FN F 3 SPTAIL F 4 \BUFFER F 5 START F 6 CMD) p`Vgð•R °]¿TUð”Uc¿`™Rk`Yµ$RiRhc¹RScð£‚hc¿RIi° gð—RIiŽId“ †ið£I i(154Q TTPRIN1 144Q TTPRIN2 134Q TTYIN.PRINTARGS 114Q TTYIN.PRINTARGS 101Q TTCRLF.ACCOUNT 66Q SMARTARGLIST 24Q GO.TO.FREELINE 17Q XHELPSYS) (123Q ARGS 47Q TTYIN?=FN 41Q TTYIN?=FN 11Q ? 2 null) () DO?CMD D1 (P 5 SPTAIL P 2 FN P 1 START P 0 \BUFFER I 1 \?TAIL I 0 CMD F 11Q \CURSOR F 12Q \BUFFER F 13Q \RDTBLSA F 14Q \PROMPT1) Ã WW rWI_¿_¿OlÿñŸOÉ€˜OOÉ€µ j„OOÂdlrð¥dltð´>¿IH[ Ið²&Zgð¬Wgð›J`•H»ºH¼Ið®IX»Z@ð‘hH¼o £¿@dgð•¿°-gð²'¿A ¿M²W¾L ¿K ¿J ¿N i(277Q MOVE.TO.WHEREVER 272Q READFROMBUF 267Q CHCON 262Q BACKWARD.DELETE.TO 255Q MOVE.TO.WHEREVER 242Q BACKWARD.DELETE.TO 235Q RESTORE.CURSOR 222Q TTRUBOUT 206Q BEEP 202Q DO?CMDA0003 173Q SAVE.CURSOR 160Q TTRATOM 146Q TTSKIPSEPR 140Q TTRATOM 110Q TTRATOM 101Q SCANFORWARD 6 BACKSKREAD) (227Q ?= 214Q ? 131Q EDITCOMSL 123Q * 114Q E) ( 177Q (DO?CMDA0003)) TTYIN.PRINTARGS D1 (L (3 ARGTYPE 2 ACTUALS 1 ARGS 0 FN) F 1 \FONT F 2 \DSP) g `Qð“`ƒQ R @ ¿R A¢±¨A³g ¿A ¿g ¿±ŽBdið•¿b²}B“…g ¿B²lAµ+g ¿o ¿A²Bll¿Ab¿Bb¿°µØA°ÕBll¿hbb¿°·²g ¿A ¿AbŽo ¿A ¿‚AµÜg Cµ@ dkð•¿g°dlð”¿g‡lð´gX´o ¿H ¿g h(416Q TTPRIN1 407Q TTPRIN1 402Q TTPRIN1 334Q ARGTYPE 325Q TTPRIN1 312Q TTPRIN2 305Q TTPRIN1 270Q TTPRIN2 262Q TTPRIN1 247Q TTCRLF 235Q TTPRIN2 201Q TTPRIN2 163Q TTPRIN1 153Q TTPRIN2 136Q TTPRIN1 127Q TTCRLF 115Q TTYIN.READ?=ARGS 100Q TTPRIN1 71Q TTPRIN1 64Q TTPRIN1 45Q DSPFONT 40Q TTPRIN1 34Q DSPFONT 27Q \SET.TTYINBOLDFONT 10Q TTPRIN1) (413Q } 370Q L* 357Q NL* 344Q NL 322Q %) 257Q % 150Q extra 133Q % 75Q ... 61Q % 22Q TTYINBOLDFONT 13Q TTYINBOLDFONT 5 %() ( 377Q " {" 302Q " . " 160Q " = ") TTYIN.READ?=ARGS D1 (F 4 \?TAIL F 5 \?PARAMS F 6 \BUFFER F 7 RDTBL) SUd`ð²J¿T Tð³=1l(H ¿V[Tð³HKdº¹JI ¿K°êl)H ¿Hj ¿HW €hc (111Q READ 102Q SETFILEPTR 74Q PRINTCCODE 61Q PRINTCCODE 34Q PRINTCCODE 23Q TTYIN.SCRATCHFILE 14Q TTSKIPSEPR) (4 null) () TTDOTABS D1 (L (0 TABS) F 7 \CHARWIDTH F 10Q \CURSOR F 11Q \ENDBUFFER F 12Q \CURSORCOL) Y@´WWð´@HµhµHX°óWÚWÙYWñ²ñl IWÛAk^Jó³l ½LµMh\»NkÔ°íM&¼°øK i(125Q ADDCHAR 122Q TTMAKECOMPLEXCHAR) NIL () EDITCOLUMN D1 (F 0 \HOMECOL F 1 \LASTCHAR F 2 \CURSORCOL) Qdl ð¤dl^ð’¿P¿hµRcNIL NIL () EDITNUMBERP D1 (L (0 CHAR)) j@l0Ùbóhð´@l ñhð´@NIL NIL () END.DELETE.MODE D1 (F 0 \DELETING F 1 \DSP) #P´ `µ l\Q gð´Pkñ´¿hc(34Q DO.LF 15Q BLTCHAR) (21Q LF 5 TTYINBSFLG) () ENDREAD? D1 (F 4 \CURSOR F 5 \BUFFER F 6 \ENDBUFFER F 7 \RDTBLSA F 10Q \READING F 11Q \PROMPT1) @T ´pU d²iVðhðµcU Xdl(ð¤dl[ð“¿i°E¿Wgð´FWgðhð´ 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) X@i 1Hd²F YjIZTØñ³4IH IØ[³#KJ `3 µnè `”U ¿hnèÚ°ë(116Q RESTORE.CURSOR 112Q \CARET.DOWN 102Q TTWAITFORINPUT 65Q GO.TO.ADDRESSING 60Q SAVE.CURSOR 53Q \SYSBUFP 42Q SEGMENT.BIT.LENGTH 16Q FIND.LINE 4 BACKSKREAD) (105Q \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 BQPðhð´ APBb²C@dlSð–¿B °9lZð•B °/@dlBð–¿B °"m¦ð²QPð‘PPB ¿ †‚¿R@RA(247Q BEEP 243Q SHOULDNT 237Q FORWARD.DELETE.TO 233Q MOVE.BACK.TO 205Q MOVE.BACK.TO 170Q FORWARD.DELETE.TO 156Q MOVE.FORWARD.TO 137Q SCANFORWARD 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ð³OdP‘@”@PµIP²$@lð²Qgð³@lFPQ´ihddShð µT²#@ g Rµo ¿h °÷@(175Q TTGIVEHELP 170Q TTCRLF 164Q TTPRIN1 152Q TTPRIN1 144Q TTPRIN1 133Q FIXSPELL) (147Q ? 106Q NOFIXSPELL 51Q , 43Q %" 34Q %] 25Q %[ 16Q %) 7 %() ( 161Q " please try again.") TTBIN D1 (L (0 NOMETA) F 1 \DSP) 7hi H`ð²d`ð’¿lnä¸@™Hãkð”Hlÿå¸`“Q H(63Q \CARET.DOWN 21Q \GETKEY 4 TTWAITFORINPUT) (56Q \CARET.UP 25Q EDITPREFIXCHAR 13Q EDITPREFIXCHAR) () TTBITWIDTH D1 (L (0 CHAR) F 0 \VARIABLEFONT F 1 \FONT F 2 \CHARWIDTH) P•@Q R(6 CHARWIDTH) NIL () 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ðQkÙc¿hT c ¿jc(25Q DSPYPOSITION) NIL () TTDELETECHAR D1 (F 2 \CURSOR F 3 \ARROW F 4 \BUFFER) HRTð“SRð²6SRð²'Sk H YS Hd I´Rk hRk (105Q TTRUBOUT 101Q DELETETO 76Q TTNLEFT 67Q DELETETO 64Q TTNLEFT 54Q MOVE.TO.LINE 45Q DELETELINE 40Q OVERFLOWLINE? 31Q PREVLINE 6 BEEP) NIL () TTDELETELINE D1 (F 0 \ARROW F 1 \ENDBUFFER F 2 \CURSOR F 3 \BUFFER) =SQð“PPð²RQð²ñPk i PdRð” P (72Q FORWARD.DELETE.TO 64Q MOVE.BACK.TO 57Q DELETETO 44Q SETTAIL? 37Q DELETE.TO.END 34Q MOVE.TO.LINE 31Q PREVLINE 6 BEEP) NIL () TTDELETEWORD D1 (L (0 N) F 3 \CURSOR F 4 \ARROW F 5 \BUFFER) 8SdUð”¿@ !HdSð²¿Tk YS@IZTSJ (65Q BACKWARD.DELETE.TO 61Q MOVE.TO.WHEREVER 55Q DELETE.LONG.SEGMENT1 47Q PREVWORD 37Q PREVLINE 23Q SETTAIL? 15Q PREVWORD 10Q BEEP) NIL () TTECHO.TO.FILE D1 (L (1 DRIBBLING 0 FILE) F 10Q \ENDBUFFER F 11Q \FIRSTLINE F 12Q \NOPROMPT F 13Q \PROMPT1 F 14Q \PROMPT2) @g WiSAJ—hºW¦WWµ6I½I[dMð²1¿I¹A¦IdMð¦¿@ ¿I´MWð³ÇIWð²Àh@ ¿°Ç\d¢H°&l ð²Ldjñ²l H ¿kÙ°òHL_¿¾ON ¿K°™(206Q PRINTCCODE 164Q PRINTCCODE 124Q PRIN1 75Q TERPRI 6 GETSTREAM) (3 OUTPUT) () TTGIVEHELPA0001 D1 (NAME ERRORSET 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 (TTGIVEHELPA0001)) TTGIVEHELP1 D1 (L (1 NO.INTRO 0 NO.OTHER) F 2 SPLST F 3 \FIX) SR´&A§o ¿RHYµ@³8S§o ¿`ð³ Id`ð³d ¿Id™¿o ¿I°Äh(112Q PRIN1 75Q PRIN1 46Q TERPRI 42Q PRIN1 13Q PRIN1) (62Q SPELLSTR2 52Q SPELLSTR1) ( 107Q ", " 37Q ", or other" 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 F 6 RDTBL) ²@`ð²g@bd@ @ @@Ù"Idjñ´‚±„mÿÔ¹H Zl ð§Ji ¿°ãIjð³hH »ImÿÔYjñ¥Kl ð³UJ ¿Kl ð³ÀK ¿°¹ @d²¿`@X˜@kHh¿@T@´UVµiX@—dXk ¹TkHhHI h(256Q READFROMBUF 247Q NLEFT 240Q NLEFT 225Q DCHCON 203Q NLEFT 152Q ADDNAKEDCHAR 137Q ADDNAKEDCHAR 114Q READCCODE 100Q ADDNAKEDCHAR 66Q READCCODE 32Q GETSTREAM 25Q SETFILEPTR) (171Q HISTSTR0 5 HISTSTR1) () 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) /BµRdAjð³H@ð¢HµI¸AkÙb°ì¸I¹H@ð¢HµöINIL NIL () TTNTH D1 (L (1 N 0 BUF) F 1 \ARROW) QAjð³@dHðb¿AkÙb°í@NIL NIL () TTNTHLINE D1 (L (0 N) F 1 \FIRSTLINE) Q@djñ¡HkÙ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) 6S•@T …@ UÚRHØWýñ£¿k¹@I)µ RHÔchV ¿IkÔ°ë(56Q 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 1 \BUFFER F 2 \ENDBUFFER F 3 RDTBL) Rð“`Q HS HÉc¿(25Q RATOM 15Q TTYINBUFFERSTREAM 2 TTSKIPSEPR) (10Q null) () TTREADLIST D1 (F 4 RDTBL F 5 \BUFFER F 6 \ENDBUFFER) )UV 0HdT ¡IT »Jµ KhZ¹°êK&º°å(27Q READ 20Q SKIPSEPRS 4 TTYINBUFFERSTREAM) NIL () TTRUBOUT D1 (F 2 \CURSOR F 3 \ARROW F 4 \BUFFER) 2SRð¨Rk RTð“Sk HRkHYSRI (57Q MOVE.TO.WHEREVER 53Q DELETE.LONG.SEGMENT1 45Q TTNLEFT 32Q PREVLINE 24Q BEEP 14Q BACKWARD.DELETE.TO 11Q TTNLEFT) NIL () TTSKIPSEPR D1 (L (0 END) F 0 \BUFFER F 1 \ENDBUFFER) .PdQð³(d@ð³#ddl ð©dl ð¤dl ð’¿i¿h•Pc°ØPNIL NIL () TTSKREAD D1 (L (1 END 0 BUF) F 5 \RDTBLSA F 6 \ENDBUFFER F 7 RDTBL) A£Vb¿P@Að³UU@dº¹JlÿñœIÉ€–JIÉ€µj‚IJÂdlrð¥dltð².¿@¸@A bd¢±ŽdAð’±†dl]ð¢±¹¿Hl[ð’±¯@dlsð¤dluð‘@dlqðœ¿@A d’±‘dlFð›¿@dAð¢±hdlGð²F¿@bAð³0U@d¼»LlÿñœKÉ€–LKÉ€µj‚KLÂdlFðŸ¿@bdAð²Î¿h³=hlGð²Â@°öjð³/@dl;ð²$Wg ²@bdAð’¿iŠdl ð²íh³Ç@b±þù(362Q READTABLEPROP 172Q FIND.MATCHING.QUOTE 100Q TTSKREAD) (357Q COMMONLISP) () TTUNREADBUF D1 (F 1 \CURSOR F 2 \ENDBUFFER) QHdRð”d ¿HX°ë(25Q BKSYSCHARCODE 14Q DELETE.TO.END) NIL () TTWAITFORINPUTA0001 D1 (NAME ERRORSET F 0 FN) kPi(2 WHICHW) NIL () TTWAITFORINPUT D1 (L (1 RETKEYFLG 0 MSECS) P 5 FN F 10Q \DSP F 11Q \CHARHEIGHT F 12Q \RMARG F 13Q \TTPAGELENGTH F 14Q \LOC.ROW.0 F 15Q \TTYINSTATE F 16Q \BUFFER F 17Q \WINDOWWORLD F 20Q \ENDBUFFER F 21Q \BMARG) i `µ-lH hW R²`lÐI ö¿A›°qh¿°Ói°g¿`låjð³;jW [ñ³1KJýñ²(jW ^JÙ\ñ³LJWØýñš`` µ'@3 ¢±ÜI @ñ¢±Ò`lÐI ö¿hH¿ ÉWð²ÓWW ð³ONW"WWÙWÚØýñ²?LJýñ²5LWWkØØÙWÚlÙýñ³`lÐI ö¿A¢i°¤¿±ÿW¢±ÿz`lålðŸWµgˆW]¢±ÿRoi ¿WhW _ð’±ÿ:WOcó´¿hW º±ÿ#¿±þ³(543Q \TTYBACKGROUND 534Q DSPCLIPPINGREGION 525Q DO.EDIT.PP 502Q DSPRIGHTMARGIN 471Q TTWAITFORINPUTA0001 377Q DO.MOUSE 365Q CLOCKDIFFERENCE 330Q TTLASTLINE 250Q \INSUREWINDOW 233Q CLOCKDIFFERENCE 213Q CLOCKDIFFERENCE 176Q WHICHW 140Q LASTMOUSEY 115Q LASTMOUSEX 74Q GETMOUSESTATE 55Q \GETKEY 46Q CLOCKDIFFERENCE 32Q \SYSBUFP 24Q DSPCLIPPINGREGION 16Q \CLOCK0) (442Q DOWINDOWCOM 414Q LASTMOUSEBUTTONS 356Q \MISCSTATS 243Q \\TTWAITBOX.GLOBALRESOURCE 224Q \MISCSTATS 173Q LASTMOUSEY 170Q LASTMOUSEX 100Q LASTMOUSEBUTTONS 63Q \\TTWAITBOX.GLOBALRESOURCE 37Q \MISCSTATS 2 \\TTWAITBOX.GLOBALRESOURCE) ( 465Q (TTWAITFORINPUTA0001)) TTYINSTRING D1 (L (1 TAIL 0 BUF) F 13Q \READING F 14Q \RDTBLSA F 15Q \ENDBUFFER) ´A¤Wb¿j¡ @^Að³=W²$WN¼»LlÿñœKÉ€–LKÉ€µj‚KLÂlFð’N¾HkÔ¸N]–Mlÿñ‘i¹N°ÂHhdIZ@k_¿_¿OAð³QW²2WO_¿_¿OlÿñŸOÉ€˜OOÉ€µ j„OOÂlFð•O_¿JOOd+¿O_¿OkÔ_¿°J(122Q ALLOCSTRING) NIL () TYPE.BUFFER D1 (L (1 END 0 START) F 3 \DSP F 4 \CURSORCOL) >j!@dAð‘HZd²†dS ¿µ÷JˆS ¿J ¹TIÔc¿HIÔ¸@b°Ê(53Q TTBITWIDTH 46Q BLTCHAR 31Q 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) u@nèð›VUð•V ‚¿U@ AW•UH ºU[dHð²!¿W›UH JÙH ¹UHc I´h\®Ll@ñ™KAµL ¿K°Ækð“hb¿L °ï(161Q U-CASECODE 140Q 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)) 7kAIBð³,@H)ZIð³Jd²l æIð´ lAJñ¤Jlzñ‘hHkÔ¸IY°ÔiNIL NIL () BEEPA0001 D1 (NAME ERRORSET 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 (BEEPA0001)) 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.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 () 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 () TTYINBUFFERDEVICE D1 NIL È`dg¿djÏ¿dkÏ ¿dg¿dg¿dg¿dg¿dg¿dg ¿dg"¿dg$¿dg&¿dg4¿dg:¿dg¿dg¿dg6¿dg8¿dg ¿dg0¿dg2¿dg.¿dg¿dg¿dg@¿dg*¿dg¿dg¿NIL (302Q NILL 273Q NILL 264Q NILL 255Q NILL 246Q NILL 237Q NILL 230Q NILL 221Q ZERO 212Q ZERO 203Q \NULLFILEGENERATOR 174Q NILL 165Q \EOF.ACTION 156Q NILL 147Q NILL 140Q NILL 131Q TTYINBUFFEREOFP 122Q NILL 113Q TTYINBUFFERREADP 104Q TTYINBUFFERPEEK 75Q NILL 66Q TTYINBUFFERBIN 57Q \NULL.OPENFILE 50Q \NULL.OPENFILE 41Q NILL 32Q NILL 7 TTYIN 2 FDEVTYPE#) () TTYINBUFFERSTREAM D1 (L (2 EOFACTION 1 END 0 BUF) F 1 \TTYINBUFFERSTREAM F 2 TTYINBUFFERDEVICE F 3 \ENDBUFFER) ŠQµt`dR¿dg.¿dg,¿d`&¿dg"¿dg ¿djÏ¿d`Í¿djÍ¿d`Í¿dh¿dlÏ¿djÏR¿dkÏ@¿dkÏ0¿dh¿dg ¿cH@HAµSHBB(161Q \SETACCESS) (156Q INPUT 104Q \STREAM.DEFAULT.MAXBUFFERS 70Q FILELINELENGTH 53Q \FILEOUTCHARFN 44Q \EOSERROR 35Q \NOIMAGEOPS 26Q \STREAM.NOT.OPEN 17Q \STREAM.NOT.OPEN 5 STREAMTYPE#) () TTYINBUFFERBIN D1 (L (0 STRM)) @ÉHd@Éð•¿@ d@H¿(21Q \EOF.ACTION) NIL () TTYINBUFFERPEEK D1 (L (1 NOERRORFLG 0 STREAM)) @Éd@Éðš¿Ahð´@ d²ü(22Q \EOF.ACTION) NIL () TTYINBUFFERREADP D1 (L (0 STRM)) @É@ÉðhðNIL NIL () TTYINBUFFEREOFP D1 (L (0 STRM)) @É@ÉðNIL NIL () DO.MOUSE D1 (F 4 \LASTKEYSTATE F 5 \DSP) Þl@TlÂåjð‘j€kjð³DlTlÂåjð‘j€kjð³3lTlÂåjð‘j€kjð³"lTlÂåjð‘j€kjð¯l@TlÂåjð‘j€kjð“`dlålð²&¿H Xd²od²÷¿`”U ¿HH ¿°âlåkð²?@H Xd²Ed²÷¿`”U ¿H[HZ ¹KIJ JI ñ’II ¿°È`lålð´g (333Q DO.SHIFTED.SELECTION 307Q MOVE.TO.LINE 275Q SEGMENT.BIT.LENGTH 267Q SEGMENT.BIT.LENGTH 257Q BRACKET.CURRENT.WORD 245Q \CARET.DOWN 224Q TTRACKMOUSE 203Q MOVE.TO.LINE 173Q \CARET.DOWN 152Q TTRACKMOUSE 125Q DO.SHIFTED.SELECTION) (330Q DELETE 315Q LASTMOUSEBUTTONS 240Q \CARET.UP 166Q \CARET.UP 131Q LASTMOUSEBUTTONS) () DO.SHIFTED.SELECTION D1 (L (0 INITMODE) F 17Q \LASTKEYSTATE F 20Q \CURSOR F 21Q \ENDBUFFER F 22Q \DSP F 23Q \ARROW F 24Q \LAST.DELETION) ¼ðlWlÂåjð‘j€kjð”g°ll@WlÂåjð‘j€kjð”g°Vl@WlÂåjð‘j€kjð³lWlÂåjð‘j€kjð²lWlÂåjð‘j€kjð”g°g°lWlÂåjð‘j€kjð´g_³`lå_jð³jOµ_O _¿¿`dlåjð’±D¿O´‚±ùO_W"ð’±ìOO½O_¿`lålðªOOð¢±±OO ¾±À ² H´‚±™`•W$ ¿HI_¿_¿Ldgð²&¿HIL¿W OO›OO °]OO°Sgð²W OOŸHIL¿IO °7W OO’OW ºOO _c(¿HI ¿J ¿Lgð´ OhihOM _¿MO¿OO¾h½HdMð²dMð²¿INðINð—LOð’±þ/H–HIL¿MX¢±þ HNYO\¿±þlålð¢±³H³W&W YX^½h»@µO¼„¼hb¿O_¿Oµ8K¢±ýßHMð•HMðªMHL¿H½°IdNð•Nð¨INL¿I¾h»±ý®H ²%K²IdNð•Nð¨INL¿I¾MOO]°$K²HdMð•Mð¨HML¿H½NOO ^L¿i»±ýYK¢±ýTM¸N¹h»±ýK(1246Q INVERT.LONG.SEGMENT 1241Q TTNEXTPOS 1225Q INVERT.LONG.SEGMENT 1162Q INVERT.LONG.SEGMENT 1133Q TTBEFOREPOS 1117Q INVERT.LONG.SEGMENT 1070Q INVERT.LONG.SEGMENT 756Q INVERT.LONG.SEGMENT 736Q INVERT.LONG.SEGMENT 637Q BRACKET.CURRENT.WORD 626Q READFROMBUF 607Q MOVE.TO.WHEREVER 602Q DELETE.LONG.SEGMENT 570Q COPY.SEGMENT 552Q BUFTAILP 537Q MOVE.TO.LINE 527Q INVERT.LONG.SEGMENT 520Q BUFTAILP 471Q READFROMBUF 466Q COPY.SEGMENT 456Q BUFTAILP 444Q INVERT.LONG.SEGMENT 412Q \CARET.DOWN 370Q \FZEROP 361Q TTNEXTPOS 243Q \TTYBACKGROUND 235Q TTRACKMOUSE) (614Q MOVE 504Q MOVE 432Q COPY 404Q \CARET.UP 330Q LASTMOUSEBUTTONS 247Q LASTMOUSEBUTTONS 211Q LASTMOUSEBUTTONS 202Q DELETE 153Q COPY 146Q MOVE 54Q COPY 26Q MOVE) () 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 COPY 154Q INVERT 151Q TEXTURE 140Q COPY 21Q DELETE) () BRACKET.CURRENT.WORD D1 (L (1 COL 0 LINE) F 7 \PRIMTERMSA) Ši@@CJ^Ið³gHNd]lÿñ²WÉ€œMWÉ€µ j…jƒWMÂlðµ$Ml ð³Ml ð³Ml(ð¯Ml)ðªMl[ð¥Ml]ð´iXð¨K“N¼°NZ€NAð‘J»N°˜I¼K¡L»AKL£¿KL(203Q HELP 177Q BUFTAILP) (51Q CHARTABLE 40Q CHARTABLE) () 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ð NIL NIL () TTRACKMOUSE D1 (L (0 OLDROW/COL) F 13Q \LMARG F 14Q \DSP F 15Q \TTPAGELENGTH F 16Q \VARIABLEFONT F 17Q \LOC.ROW.0 F 20Q \BMARG F 21Q \CHARHEIGHT F 22Q \FONT F 23Q \RMARG) ß €@µ ¿`lå_jð¬O´O ´h¼@½°ÝWN^Hð—NIð’±›WWÙNYW ÙW"ÛÙkÙºN¸WHñ³yW&Hñ²sjJñ³nJ ºW²DHWÙJÙ»JJ OdOð•¿O°-d’„W$ _¿KdOâýñ³äOÙ»O_°ÔJHWÙ »JLð”KMð³@µJKJdK¿@ið¡i¿±ÿ,(331Q \TTYBACKGROUND 267Q NTH.COLUMN.OF 230Q CHARWIDTH 150Q TTNTHLINE 61Q CURSORPOSITION 40Q \FZEROP 11Q GETMOUSESTATE) (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 PEEKCCODE 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) K`‘Rªig ¥@A QA ³ShdohddA Xdið–¿QA `h cH(104Q \NCONC2 72Q READ 57Q TTYIN 36Q SKIPSEPRS 25Q READ 17Q DISPLAYSTREAMP 14Q GETSTREAM) (77Q HISTSTR0 11Q OUTPUT 2 TTYINDEBUGFLG) ( 47Q (EVALQT FILLBUFFER NOPROMPT)) TTYINFIX D1 (L (1 COMS 0 INPUT) F 2 LISPXID) k A³#`gð²@d `ýñ¿`@ Xd–¿@A @ð’@‡@µ@YµRhdghd@i Hœ@H ‡³öI°ß@igRi (150Q 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)) @ (3 METASHIFT) NIL () \SET.TTYINBOLDFONTA0001 D1 (NAME ERRORSET 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 (\SET.TTYINBOLDFONTA0001)) 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ð£Hh¸@—HAl@ohdghdH [µHô™oi hHJð³HIð²"Kd™¿oi [¿gogKKd²6d³2¿Ho Z \² gjk½LJð¨MkØ½Jº°õM\KLhK›H¨oi ¿gK(312Q PRIN1 233Q MEMB 227Q ## 160Q PRIN1 126Q PRIN1 112Q ERROR! 104Q TTYIN 40Q ## 12Q ## 3 ##) (316Q : 241Q COMSQ 176Q WITH 167Q REPLACE 75Q LISPXREAD 23Q ED) ( 306Q "(new expressions spliced into parent) " 224Q (0) 173Q (1 TO) 154Q "(Note: replaced one expression with a list of several) " 122Q "(not changed) " 70Q "** " 35Q (UP) 7 (^)) DO.EE D1 (L (2 W 1 COM 0 EXPRS)) @B (4 TTYINEDIT) NIL () TTYINEDITA0001 D1 (NAME ERRORSET F 0 EXPRS F 1 PRINTFN F 2 WINDOW F 3 RESETVARSLST F 4 RDTBL F 5 PROMPT F 6 RESETY) [R ¿gi hhSc¿Uµ`hdghdQið©Q©P¦P‘P‹`PQThTµ` `’Rµci ¿°ø(126Q CLOSEW 110Q TTYIN 73Q TTYIN.PPTOFILE 13Q CURSOR 3 SET.TTYINEDIT.WINDOW) (113Q TTYINAUTOCLOSEFLG 104Q EDITRDTBL 65Q HISTSTR1 40Q LISPXREAD 33Q TTYINEDITPROMPT 7 CURSOR) () TTYINEDIT D1 (P 1 RESETY P 0 LISPXHIST I 4 RDTBL 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 (TTYINEDITA0001)) SIMPLETEXTEDITA0001A0002 D1 (NAME ERRORSET F 0 MAINOUTPUT) Pg ci(6 OPENFILE) (3 OUTPUT) () SIMPLETEXTEDITA0001 D1 (NAME ERRORSET L (0 NIL) 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 (SIMPLETEXTEDITA0001A0002) 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 (SIMPLETEXTEDITA0001)) SET.TTYINEDIT.WINDOW D1 (L (0 WINDOW) F 1 RESETVARSLST) R@dið‘h³`d©o b¿@ @g jh@ ÙÜHjð¨jdHÙ@¿g@ hhQc@(105Q TTYDISPLAYSTREAM 74Q RELMOVETO 53Q DSPLINEFEED 45Q GETWINDOWPROP 36Q CLEARW 24Q CREATEW) (101Q TTYDISPLAYSTREAM 42Q HEIGHT 27Q TTYINEDITWINDOW 13Q TTYINEDITWINDOW) ( 21Q "Edit Work Area") TTYIN.PPTOFILEA0001 D1 (NAME ERRORSET L (0 NIL) F 1 RESETVARSLST F 2 RDTBL F 3 PRINTFN F 4 EXPRS F 5 RESETY) ²g` hhQc¿hi ` kØÙH` ¿gd gHlÛ ¿Qcgd g ¿Qc¿R²gR hhQc¿Sµ&`²gd g ¿Qc¿Thidc igð³ØSdið“¿gTlH°à(250Q OUTPUT 216Q PRINTDEF 201Q SETTOPVAL 172Q GETTOPVAL 141Q SETREADTABLE 121Q SETTOPVAL 112Q GETTOPVAL 75Q SETTOPVAL 62Q GETTOPVAL 52Q LINELENGTH 35Q NCHARS 27Q LINELENGTH 10Q OUTPUT) (241Q PRINT 225Q PRETTY 176Q CHANGESARRAY 166Q CHANGESARRAY 161Q CHANGESARRAY 135Q SETREADTABLE 116Q FONTCHANGEFLG 106Q FONTCHANGEFLG 66Q PRETTYLCOM 56Q PRETTYLCOM 47Q TTYINEDIT.SCRATCH 32Q TTYINEDITPROMPT 5 TTYINEDIT.SCRATCH 2 OUTPUT) () TTYIN.PPTOFILE D1 (P 1 RESETY P 0 LISPXHIST I 2 RDTBL 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 (TTYIN.PPTOFILEA0001)) TTYIN.SCRATCHFILE D1 NIL 1`š`g ³gggho ‚`j `(53Q SETFILEPTR 40Q OPENSTREAM 14Q OPENP) (56Q TTYINEDIT.SCRATCH 47Q TTYINEDIT.SCRATCH 43Q TTYINEDIT.SCRATCH 27Q OLD/NEW 24Q BOTH 21Q {NODIRCORE} 11Q BOTH 6 TTYINEDIT.SCRATCH 2 TTYINEDIT.SCRATCH) ( 34Q ((ENDOFSTREAMOP \TTYIN.RPEOF))) \TTYIN.RPEOF D1 (L (0 STREAM)) l)NIL NIL () (PRETTYCOMPRINT TTYINCOMS) (RPAQQ TTYINCOMS ((FNS * TTYINFNS) (FNS * TTDISPLAYFNS) (COMS (* TTYINBUFFERSTREAM) (FNS TTYINBUFFERDEVICE TTYINBUFFERSTREAM TTYINBUFFERBIN TTYINBUFFERPEEK TTYINBUFFERREADP TTYINBUFFEREOFP) ( DECLARE: DONTEVAL@LOAD DOCOPY (VARS (TTYINBUFFERDEVICE (TTYINBUFFERDEVICE))))) (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 \TTYIN.RPEOF) (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) (SHOWPARENFLG T) ( TTYINBSFLG T) (TTYINFILLDEFAULT T) (TTYINCOMPLETEFLG T) (TTYINUSERFN) (TYPEAHEADFLG T) (null "") ( DEFAULTPROMPT "** ") (TTYJUSTLENGTH -8) (\INSIDE.TTYIN) (TTYINERRORSETFLG) (TTYINRAISEFLG T) ( TTYINAUTOFILLMARGIN 8) (TTYINFIXLIMIT 50) (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 TTMAKECOMPLEXCHAR ADDNAKEDCHAR TTADDTAB ADJUSTLINE ADJUSTLINE.AND.RESTORE AT.END.OF.SCREEN AT.END.OF.TEXT AUTOCR? BACKSKREAD BACKWARD.DELETE.TO BREAKLINE BUFTAILP CHECK.MARGIN CLEAR.LINE? CURRENT.WORD DELETE.TO.END DELETELINE DELETETO DELETETO1 DO.EDIT.COMMAND DO.EDIT.PP DO?CMD TTYIN.PRINTARGS TTYIN.READ?=ARGS TTDOTABS 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 TTNEXTLINE TTNEXTNODE TTNLEFT TTNTH TTNTHLINE TTPRIN1 TTPRIN2 TTPROMPTCHAR TTRATOM 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.TO.END.OF.LINE ERASE.TO.END.OF.PAGE INSERT.TEXT TTDELSECTION TTADJUSTWIDTH TTINSERTSECTION TTSETCURSOR)) (RPAQ TTYINBUFFERDEVICE (TTYINBUFFERDEVICE)) (RPAQQ TTSUPPORTFNS (INPART 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? SHOWPARENFLG T) (RPAQ? TTYINBSFLG T) (RPAQ? TTYINFILLDEFAULT T) (RPAQ? TTYINCOMPLETEFLG T) (RPAQ? TTYINUSERFN) (RPAQ? TYPEAHEADFLG T) (RPAQ? null "") (RPAQ? DEFAULTPROMPT "** ") (RPAQ? TTYJUSTLENGTH -8) (RPAQ? \INSIDE.TTYIN) (RPAQ? TTYINERRORSETFLG) (RPAQ? TTYINRAISEFLG T) (RPAQ? TTYINAUTOFILLMARGIN 8) (RPAQ? TTYINFIXLIMIT 50) (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" 1982 1983 1984 1985 1986)) NIL