(FILECREATED "27-Aug-85 14:48:28" ("compiled on " {ERIS}LIBRARY>READNUMBER.;11) "19-Mar-85 14:34:17" recompiled changes: RNUMBER NUMBERPAD.READ CREATE.NUMBERPAD.READER BREAK.MSG.INTO.LINES NUMBER.READER.HANDLER NUMBERPAD.HELDFN in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED "27-Aug-85 14:48:02" {ERIS}LIBRARY>READNUMBER.;11 16956 changes to: (FNS BREAK.MSG.INTO.LINES NUMBERPAD.HELDFN RNUMBER NUMBER.READER.HANDLER NUMBERPAD.READ CREATE.NUMBERPAD.READER) previous date: "21-May-85 20:54:58" {ERIS}LIBRARY>READNUMBER.;8) \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 5 FLOATINGPTFLG I 4 INCLUDEABORTFLG I 3 DIGITFONT I 2 MSGFONT I 1 POSITION I 0 MSG) @ABCDE (14Q NUMBERPAD.READ 11Q CREATE.NUMBERPAD.READER) NIL () NUMBERPAD.READA0001 D1 (NAME ERRORSET P 0 FINISHVAL F 1 NUMBERPAD/READER F 2 RESETVARSLST F 3 RESETY) igQhQ hRc¿Q ¿Qg X¬Q ¿ld ¿°ìQgg¿Hgð²gQg É ´ †Qg ci(142Q GETWINDOWUSERPROP 132Q ERROR! 125Q MEMBER 114Q GETWINDOWUSERPROP 72Q WINDOWDELPROP 55Q DISMISS 47Q TOTOPW 41Q PUTWINDOWPROP 26Q DISPLAY/NUMBER/READER/TOTAL 12Q OPENW) (137Q TOTAL 120Q MENU 111Q MENU 105Q % 77Q ABORT 67Q \NUMBERPAD.READER.CLOSEFN 64Q CLOSEFN 36Q FINISHEDFLG 2 CLOSEW) () NUMBERPAD.READ D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST 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)) 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 MSG F 20Q DIGITFONT F 21Q MACROY F 22Q MSGFONT F 23Q INCLUDEABORTFLG F 24Q RNUMBER.ABORT.BITMAP F 25Q RNUMBER.CLEAR.BITMAP F 26Q WPOSITION) W’llW µ` W$µ` £`gW&²J _l ñlOñ—W(W*hˆ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(627Q CLOSEW 622Q DISPLAY/NUMBER/READER/TOTAL 615Q PUTWINDOWPROP 604Q PUTWINDOWPROP 573Q DSPFONT 565Q \READNUMBER.OUTLINEREGION 555Q PUTWINDOWPROP 544Q FONTHEIGHT 526Q CHECK/MENU/IMAGE 512Q ADDMENU 500Q OPENW 467Q TERPRI 462Q PRIN3 444Q FONTHEIGHT 440Q LENGTH 433Q BREAK.MSG.INTO.LINES 421Q MOVETOUPPERLEFT 414Q DSPFONT 402Q CREATEW 374Q REGIONONSCREEN 371Q HEIGHTIFWINDOW 360Q CHECK/MENU/IMAGE 346Q WIDTHIFWINDOW 334Q CHECK/MENU/IMAGE 320Q CHARWIDTH 275Q FONTHEIGHT 147Q \APPEND2 144Q \APPEND2 141Q \APPEND2 55Q FONTHEIGHT 33Q FONTCREATE 21Q FONTCREATE) (611Q MAXDIGITS 600Q TOTAL 531Q BITMAP 517Q TOTALREG 363Q BITMAP 337Q BITMAP 264Q MENU 231Q CLRPROMPT 214Q NUMBER.READER.HANDLER 205Q NUMBERPAD.HELDFN 45Q - 41Q MENUTYPE# 30Q DEFAULTFONT 16Q BOLDFONT) ( 136Q (0 ok) 132Q (bs) 125Q (%.) 116Q (1 2 3 4 5 6 7 10Q 11Q) 112Q (% clr) 105Q (abt clr)) CREATE.NUMBERPAD.READER D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE 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) Q@@ •@¸@Š¿`¸`¹HAØ`ñ`AÙºjJñ¡J€j¸IBØn(ñn(BÙ»jKñ¡K€j¹HIABh(20Q GETMOUSESTATE 6 POSITIONP) (44Q SCREENWIDTH 37Q SCREENWIDTH 30Q LASTMOUSEY 24Q LASTMOUSEX) NIL DISPLAY/NUMBER/READER/TOTALA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 WIN F 1 TOTALREG F 2 MACROY) Pg QPci(13Q CENTERPRINTINREGION 6 GETWINDOWUSERPROP) (3 TOTAL) () DISPLAY/NUMBER/READER/TOTAL D1 (P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 TOTALREG I 0 WIN F 5 RESETVARSLST) Q@g Hjg@l 1gIhhUc ºog £g¼Jc ¿gJ ¿L´h(115Q ERROR! 106Q APPLY 62Q DISPLAY/NUMBER/READER/TOTALA0001 27Q RADIX 22Q DSPFILL 6 GETWINDOWUSERPROP) (77Q RADIX 66Q ERROR 57Q INTERNAL 35Q RADIX 16Q REPLACE 3 TOTALREG) ( 54Q (DUMMY.FOR.ERRORSET)) NUMBER.READER.HANDLER D1 (P 2 POWER P 1 TOTAL P 0 WIN I 2 BUTTON I 1 MENU I 0 DIGIT F 6 RNUMBER.ABORT.BITMAP F 7 RNUMBER.CLEAR.BITMAP) A !Hg YHg@dgð—¿Il Û±çgð–I ±Û@dgð”¿I±ÏgðŸHgk¿I±º@dgðš¿HgihVð¨@dgð²¿Hg ¿HgihWð¥@gðšHg ¿j°tHg I ðžjdnèdH ¿I°UHg Z²:HgJkØ¿JkoLKó¬Moê½LkÔ\°òMºjIó¦I@JÖÔ°I@JÖjIó¦Il Ö@Ô…Il Ö@ÕH h(414Q DISPLAY/NUMBER/READER/TOTAL 410Q PUTWINDOWPROP 306Q PUTWINDOWPROP 271Q GETWINDOWUSERPROP 256Q \READNUMBER.FLASHAREA 241Q NCHARS 236Q ABS 232Q GETWINDOWUSERPROP 217Q PUTWINDOWPROP 174Q PUTWINDOWPROP 163Q PUTWINDOWPROP 136Q PUTWINDOWPROP 106Q PUTWINDOWPROP 52Q MINUS 15Q GETWINDOWUSERPROP 3 WFROMMENU) (300Q DECIMALPOWER 266Q DECIMALPOWER 227Q MAXDIGITS 214Q DECIMALPOWER 206Q clr 170Q FINISHEDFLG 160Q TOTAL 150Q abt 132Q FINISHEDFLG 123Q ok 113Q FLOATP 102Q DECIMALPOWER 74Q %. 62Q % 44Q - 27Q bs 22Q TOTAL 12Q TOTAL) ( 331Q .1 315Q 1.0) 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 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))) (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@" "@@@@") }) (PUTPROPS READNUMBER COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL