(FILECREATED "21-May-86 17:19:40" ("compiled on " {ERIS}LIBRARY>READNUMBER.;13) "12-Nov-85 14:59:23" recompiled exprs: REGIONONSCREEN in "INTERLISP-D 22-Mar-86 ..." dated "22-Mar-86 17:07:07") (FILECREATED "21-May-86 17:19:19" {ERIS}LIBRARY>READNUMBER.;13 22420 changes to: (FNS REGIONONSCREEN RNUMBER NUMBERPAD.READ CREATE.NUMBERPAD.READER DISPLAY/NUMBER/READER/TOTAL NUMBER.READER.HANDLER NUMBERPAD.READER.DECODE NUMBERPAD.READER.HANDLE.CHAR) (VARS READNUMBERCOMS) previous date: "27-Aug-85 14:48:02" {ERIS}LIBRARY>READNUMBER.;11) \NUMBERPAD.READER.CLOSEFN D1 (I 0 WINDOW) @gg(11Q PUTWINDOWPROP) (6 ABORT 3 FINISHEDFLG) () \READNUMBER.FLASHAREA D1 (I 4 WIN I 3 HGHT I 2 WDTH I 1 BTM I 0 LFT) 1hddD@ABCggnÿÿ l< hddD@ABCggnÿÿ (56Q BKBITBLT 31Q DISMISS 24Q BKBITBLT) (47Q INVERT 44Q TEXTURE 15Q INVERT 12Q TEXTURE) NIL RNUMBER D1 (I 7 ACCEPTTYPEINFLG I 6 POSITIVEONLYFLG I 5 FLOATINGPTFLG I 4 INCLUDEABORTFLG I 3 DIGITFONT I 2 MSGFONT I 1 POSITION I 0 MSG) @ABCDEF G (17Q NUMBERPAD.READ 12Q CREATE.NUMBERPAD.READER) NIL () NUMBERPAD.READA0001 D1 (NAME ERRORSET P 0 FINISHVAL F 1 NUMBERPAD/READER F 2 RESETVARSLST F 3 ACCEPTTYPEINFLG F 4 RESETY) ¹S²5gQ hhRc¿gi hhRc¿gh hhRc¿gQhQ hRc¿Q ¿Qg X³(Q ¿S²²i ›i Q ¿ld ¿°ÒQgg¿Hgð²gQg É ´ †Qg ci(262Q GETWINDOWUSERPROP 252Q ERROR! 245Q MEMBER 234Q GETWINDOWUSERPROP 212Q WINDOWDELPROP 175Q DISMISS 167Q NUMBERPAD.READER.HANDLE.CHAR 163Q NUMBERPAD.READER.DECODE 160Q READC 153Q READP 145Q HASTTYWINDOWP 136Q TOTOPW 127Q PUTWINDOWPROP 114Q DISPLAY/NUMBER/READER/TOTAL 100Q OPENW 53Q ECHOMODE 32Q CONTROL 11Q TTYDISPLAYSTREAM) (257Q TOTAL 240Q MENU 231Q MENU 225Q % 217Q ABORT 207Q \NUMBERPAD.READER.CLOSEFN 204Q CLOSEFN 124Q FINISHEDFLG 70Q CLOSEW 47Q ECHOMODE 26Q CONTROL 5 TTYDISPLAYSTREAM) () NUMBERPAD.READ D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 ACCEPTTYPEINFLG I 0 NUMBERPAD/READER F 3 LISPXHIST F 4 RESETVARSLST) >@gj@g @ggS!Tog ‘h‚gZ J“I(71Q ERROR! 64Q RESETRESTORE 52Q NUMBERPAD.READA0001 33Q WINDOWADDPROP 21Q PUTWINDOWPROP 12Q SPAWN.MOUSE 7 PUTWINDOWPROP) (60Q ERROR 47Q INTERNAL 30Q \NUMBERPAD.READER.CLOSEFN 25Q CLOSEFN 16Q FINISHEDFLG 3 TOTAL) ( 44Q (NUMBERPAD.READA0001)) NUMBERPAD.READER.HANDLE.CHAR D1 (P 2 TOTSTR P 1 POWER P 0 TOTAL I 1 WIN I 0 DIGIT F 6 RNUMBER.ABORT.BITMAP F 7 RNUMBER.CLEAR.BITMAP) f Ag XAg@dgð²S¿Ag Yµ Hl Û±6kðAg ¿HjØ±%AgIkÙY¿H JkoJ IkÙÔµJ ±÷gð–H ±ë@dgð”¿H±ßgð²Ag ‘hAgk¿H±¿@dgðš¿AgihVð¨@dgð²¿Ag ¿AgihWð¥@gðšAg ¿j°yAg H ðžjdnèdA ¿H°Z@3´]Ag Y²:AgIkØ¿IkoLKó¬Moê½LkÔ\°òM¹jHó¦H@IÖÔ°H@IÖjHó¦Hl Ö@Ô…Hl Ö@ÕA h(542Q DISPLAY/NUMBER/READER/TOTAL 536Q PUTWINDOWPROP 434Q PUTWINDOWPROP 417Q GETWINDOWUSERPROP 377Q \READNUMBER.FLASHAREA 362Q NCHARS 357Q ABS 353Q GETWINDOWUSERPROP 340Q PUTWINDOWPROP 315Q PUTWINDOWPROP 304Q PUTWINDOWPROP 257Q PUTWINDOWPROP 227Q PUTWINDOWPROP 214Q GETWINDOWUSERPROP 160Q MINUS 143Q MKATOM 135Q SUBSTRING 126Q STRPOS 111Q MKSTRING 104Q PUTWINDOWPROP 62Q PUTWINDOWPROP 36Q GETWINDOWUSERPROP 11Q GETWINDOWUSERPROP) (426Q DECIMALPOWER 414Q DECIMALPOWER 350Q MAXDIGITS 335Q DECIMALPOWER 327Q clr 311Q FINISHEDFLG 301Q TOTAL 271Q abt 253Q FINISHEDFLG 244Q ok 234Q FLOATP 223Q DECIMALPOWER 211Q DECIMALPOWER 202Q %. 170Q % 152Q - 75Q DECIMALPOWER 57Q DECIMALPOWER 33Q DECIMALPOWER 23Q bs 16Q TOTAL 6 TOTAL) ( 457Q .1 443Q 1.0 122Q ".") NUMBERPAD.READER.DECODE D1 (I 0 CHAR F 0 TEDIT.READTABLE) ?@d3³9P dgð“gdgð¥dgð“ggð“g@gð¦@dgð’g(11Q TEDIT.GETSYNTAX) (74Q ok 67Q % 60Q % 53Q abt 46Q DELETE 42Q clr 35Q LINEDELETE 27Q WORDDELETE 22Q bs 15Q CHARDELETE) () CREATE.NUMBERPAD.READERA0001 D1 (NAME ERRORSET P 15Q LINE P 12Q MSGLINES P 11Q FONTHEIGHT P 10Q TOTALWIDTH P 7 NUMBERPAD P 6 TOTALREGION P 5 PADLEFT P 4 READERWIDTH P 3 WIN P 2 MSGFONT P 1 DIGITFONT P 0 NUMBER/READER/MAXDIGITS F 16Q FLOATINGPTFLG F 17Q INCLUDEABORTFLG F 20Q MSG F 21Q DIGITFONT F 22Q MSGFONT F 23Q POSITIVEONLYFLG F 24Q MACROY F 25Q RNUMBER.ABORT.BITMAP F 26Q RNUMBER.CLEAR.BITMAP F 27Q WPOSITION) º W’llW"µ` W$µ` £`W&W–W“g†g‚gW² J _l ñžlOñ˜W*W,h°o‹W”oƒooW”oƒoo _¿dO¿dl¿di¿dI¿dg¿dg¿dl¿dg ¿jdnÿdh_¿dO ¿dÉ I lØ¿_¿W.HkØl0I Ú_lØ]O ÈØ\ W µ.jO ÈØ hdi»W ²7JK ¿K ¿O°%JL_ J Ú°Æd OK ¿K µíK ¿OKMj¿KglO ÈlÛOI h^¿NKl¿IK ¿Kgj¿KgH¿K ¿K ¿Kc(i(661Q CLOSEW 654Q DISPLAY/NUMBER/READER/TOTAL 647Q PUTWINDOWPROP 636Q PUTWINDOWPROP 625Q DSPFONT 617Q \READNUMBER.OUTLINEREGION 607Q PUTWINDOWPROP 576Q FONTHEIGHT 560Q CHECK/MENU/IMAGE 544Q ADDMENU 532Q OPENW 521Q TERPRI 514Q PRIN3 476Q FONTHEIGHT 472Q LENGTH 465Q BREAK.MSG.INTO.LINES 453Q MOVETOUPPERLEFT 446Q DSPFONT 434Q CREATEW 426Q REGIONONSCREEN 423Q HEIGHTIFWINDOW 412Q CHECK/MENU/IMAGE 400Q WIDTHIFWINDOW 366Q CHECK/MENU/IMAGE 352Q CHARWIDTH 327Q FONTHEIGHT 201Q \APPEND2 176Q \APPEND2 173Q \APPEND2 76Q FONTHEIGHT 33Q FONTCREATE 21Q FONTCREATE) (643Q MAXDIGITS 632Q TOTAL 563Q BITMAP 551Q TOTALREG 415Q BITMAP 371Q BITMAP 316Q MENU 263Q CLRPROMPT 246Q NUMBER.READER.HANDLER 237Q NUMBERPAD.HELDFN 66Q - 62Q % 56Q bs 41Q MENUTYPE# 30Q DEFAULTFONT 16Q BOLDFONT) ( 170Q (0 ok) 164Q (bs) 157Q (%.) 150Q (1 2 3 4 5 6 7 10Q 11Q) 144Q (% clr) 137Q (bs clr) 127Q (abt clr)) CREATE.NUMBERPAD.READER D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 6 POSITIVEONLYFLG I 5 FLOATINGPTFLG I 4 INCLUDEABORTFLG I 3 DIGITFONT I 2 MSGFONT I 1 WPOSITION I 0 MSG F 4 RESETVARSLST) <l 1gHhhTcYog £g»IcgI K“J(67Q ERROR! 62Q APPLY 37Q CREATE.NUMBERPAD.READERA0001 4 RADIX) (53Q RADIX 43Q ERROR 34Q INTERNAL 12Q RADIX) ( 31Q (CREATE.NUMBERPAD.READERA0001)) BREAK.MSG.INTO.LINES D1 (P 12Q NL P 10Q I P 6 CHARCODE P 5 CHARWIDTH P 4 STRLST P 3 LASTSPACE P 2 BEGIN P 1 THISLINE P 0 MSGSTR I 2 WIDTH I 1 FONT I 0 MSG) Û@dš lmþ‚ jkCH kOOó²OkÙJóLHJmÿh \LHO)^A ½IMØYBó¢±Nl ð²LHJOkÙh ¼j¹OkØºh»°VK²>LHJKkÙh ¼KkØºj¹OKkØ OOó³HO)A IØ¹OkÔ_°êh»°LHJOkÙh ¼OºM¹OkÔ_±ÿUNl ð²óO[°ð(277Q \NCONC2 272Q SUBSTRING 240Q CHARWIDTH 202Q \NCONC2 175Q SUBSTRING 145Q \NCONC2 140Q SUBSTRING 105Q CHARWIDTH 71Q \NCONC2 64Q SUBSTRING 32Q NCHARS 21Q MKSTRING 15Q SUBSTRING 6 MKSTRING) NIL () REGIONONSCREEN D1 (P 1 BOTTOM P 0 LEFT I 2 HEIGHT I 1 WIDTH I 0 POS) ^@@ ²@djñ¡¿j¸@djñ¿jŠ¿`¸`¹HAØ`ñ`AÙºjJñ¡J€j¸IBØ`ñ`BÙ»jKñ¡K€j¹HIABh(35Q GETMOUSESTATE 6 POSITIONP) (107Q SCREENHEIGHT 102Q SCREENHEIGHT 61Q SCREENWIDTH 54Q SCREENWIDTH 45Q LASTMOUSEY 41Q LASTMOUSEX) () DISPLAY/NUMBER/READER/TOTALA0001 D1 (NAME ERRORSET P 6 STR P 5 I P 3 NCHARS P 2 NAFTERDEC P 1 DECPOS P 0 TOTSTR F 7 DECIMALPLACES F 10Q WIN F 11Q TOTALREG F 12Q MACROY) W²kWg 1H »oH ¹WkÙKIÕZð’H°@WJó¬HkIWkÙÔ°.HWkÙJÕkMLó³Nµ o¾MkÔ]°ðo °òN ‡Wg WWci(173Q CENTERPRINTINREGION 164Q GETWINDOWUSERPROP 152Q CONCAT 143Q CONCAT 74Q SUBSTRING 36Q STRPOS 25Q NCHARS 16Q MKSTRING 13Q GETWINDOWUSERPROP) (161Q TOTAL 10Q TOTAL) ( 140Q "0" 125Q "0" 32Q ".") DISPLAY/NUMBER/READER/TOTAL D1 (P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE P 1 DECIMALPLACES P 0 TOTALREG I 0 WIN F 6 RESETVARSLST) X@g @g Hjg@l 1gJhhVc»og £g½Kc¿gK ¿M´h(124Q ERROR! 115Q APPLY 71Q DISPLAY/NUMBER/READER/TOTALA0001 36Q RADIX 31Q DSPFILL 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (106Q RADIX 75Q ERROR 66Q INTERNAL 44Q RADIX 25Q REPLACE 12Q DECIMALPOWER 3 TOTALREG) ( 63Q (DISPLAY/NUMBER/READER/TOTALA0001)) NUMBER.READER.HANDLER D1 (I 2 BUTTON I 1 MENU I 0 DIGIT) @A (7 NUMBERPAD.READER.HANDLE.CHAR 4 WFROMMENU) NIL () NUMBERPAD.HELDFN D1 (I 2 BUTTON I 1 MENU I 0 ITEM F 0 RNUMBER.ABORT.BITMAP F 1 RNUMBER.CLEAR.BITMAP) z@dgð–¿o°igð•o°^@dgð–¿o°Pgð•o°E@dgð–¿o°7gð•o°,@dgð–¿o°Pð•o°@dQð•¿o‡¤o€h (167Q PROMPTPRINT) (117Q % 102Q %. 66Q - 51Q abt 35Q clr 20Q ok 4 bs) ( 162Q "Will put this digit on the right of the total." 153Q "Will reset the total to 0" 137Q "will abort this question." 126Q "doesn't do anything." 110Q "will enter a decimal point." 75Q " will change the sign of the total" 57Q "will abort this question." 44Q "Will reset the total to 0" 26Q "Indicates that you are through entering the number." 13Q "Will erase the last digit entered.") \READNUMBER.OUTLINEREGION D1 (P 0 N I 2 OUTLINESIZE I 1 WIN I 0 REG) _Bd¡µlhddA@HÙ@HÙ@HlÚØ@HlÚØggnÿÿ hddA@@@@gghA h(133Q BKBITBLT 127Q DSPTEXTURE 72Q BKBITBLT) (122Q REPLACE 117Q TEXTURE 63Q REPLACE 60Q TEXTURE) NIL (PRETTYCOMPRINT READNUMBERCOMS) (RPAQQ READNUMBERCOMS ((FNS \NUMBERPAD.READER.CLOSEFN \READNUMBER.FLASHAREA RNUMBER NUMBERPAD.READ NUMBERPAD.READER.HANDLE.CHAR NUMBERPAD.READER.DECODE CREATE.NUMBERPAD.READER BREAK.MSG.INTO.LINES REGIONONSCREEN DISPLAY/NUMBER/READER/TOTAL NUMBER.READER.HANDLER NUMBERPAD.HELDFN \READNUMBER.OUTLINEREGION) (UGLYVARS RNUMBER.CLEAR.BITMAP RNUMBER.ABORT.BITMAP) (COMS (* stuff to dummy up a definition of TEDIT.GETSYNTAX if it isn't defined.) (INITVARS (TEDIT.READTABLE T)) (P ( MOVD? (QUOTE GETSYNTAX) (QUOTE TEDIT.GETSYNTAX)))))) (READVARS RNUMBER.CLEAR.BITMAP RNUMBER.ABORT.BITMAP) ({ (READBITMAP) (14 14 "GJ@@" "DJCL" "DBBD" "DBCL" "DJB@" "GKKL" "@@@@" "@@@@" "@GKL" "@DJD" "@GKL" "@DJH" "@DJD" "@@@@") } { (READBITMAP) (14 14 "GKL@" "DJD@" "DKL@" "GJD@" "DJD@" "DKL@" "@@@@" "@@CH" "GKM@" "DJE@" "DKM@" "DJI@" "GJM@" "@@@@") }) (RPAQ? TEDIT.READTABLE T) (MOVD? (QUOTE GETSYNTAX) (QUOTE TEDIT.GETSYNTAX)) (PUTPROPS READNUMBER COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL