(FILECREATED "27-Nov-86 14:18:21" ("compiled on " {ERIS}LIBRARY>READNUMBER.;13) "25-Nov-86 00:46:57" bcompl'd in "Xerox Lisp 25-Nov-86 ..." dated "25-Nov-86 01:18:01") (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 §D4 (I 0 WINDOW) @gg (9 PUTWINDOWPROP) (6 ABORT 3 FINISHEDFLG) () \READNUMBER.FLASHAREA §D4 (I 4 WIN I 3 HGHT I 2 WDTH I 1 BTM I 0 LFT) 1hddD@ABCggnÿÿ l< hddD@ABCggnÿÿ (46 BKBITBLT 25 DISMISS 20 BKBITBLT) (39 INVERT 36 TEXTURE 13 INVERT 10 TEXTURE) () RNUMBER §D4 (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 (15 NUMBERPAD.READ 10 CREATE.NUMBERPAD.READER) NIL () NUMBERPAD.READA0001 §D4 (NAME SI§§*UNWIND-PROTECT* P 0 FINISHVAL I 0 SI§§*CLEANUP-FORMS* F 1 NUMBERPAD/READER F 2 SI§§*RESETFORMS* F 3 ACCEPTTYPEINFLG) ³S²5gQ hhRc¿gi hhRc¿gh hhRc¿gQhQ hRcQ Qg X³(Q ¿S²²i ›i Q ¿ld ¿°ÒQgg ¿Hgð²gQg É ´Qg (176 GETWINDOWUSERPROP 168 ERROR! 163 MEMBER 154 GETWINDOWUSERPROP 136 WINDOWDELPROP 123 DISMISS 117 NUMBERPAD.READER.HANDLE.CHAR 113 NUMBERPAD.READER.DECODE 110 READC 105 READP 99 HASTTYWINDOWP 92 TOTOPW 85 PUTWINDOWPROP 75 DISPLAY/NUMBER/READER/TOTAL 64 OPENW 43 ECHOMODE 26 CONTROL 9 TTYDISPLAYSTREAM) (173 TOTAL 158 MENU 151 MENU 147 % 141 ABORT 133 \NUMBERPAD.READER.CLOSEFN 130 CLOSEFN 82 FINISHEDFLG 56 CLOSEW 39 ECHOMODE 22 CONTROL 5 TTYDISPLAYSTREAM) () NUMBERPAD.READ §D4 (P 1 SI§§*RESETFORMS* P 0 LISPXHIST I 1 ACCEPTTYPEINFLG I 0 NUMBERPAD/READER F 2 LISPXHIST) 2@gj @g @gg Rg ¿ (47 CL§VALUES-LIST 43 SI§§RESETUNWIND 40 \MVLIST 37 NUMBERPAD.READA0001 27 WINDOWADDPROP 17 PUTWINDOWPROP 10 SPAWN.MOUSE 7 PUTWINDOWPROP) (34 SI§§RESETUNWIND 24 \NUMBERPAD.READER.CLOSEFN 21 CLOSEFN 14 FINISHEDFLG 3 TOTAL) () NUMBERPAD.READER.HANDLE.CHAR §D4 (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ðš¿Agi hVð¨@dgð²¿Ag ¿Agi hWð¥@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(354 DISPLAY/NUMBER/READER/TOTAL 350 PUTWINDOWPROP 284 PUTWINDOWPROP 271 GETWINDOWUSERPROP 255 \READNUMBER.FLASHAREA 242 NCHARS 239 ABS 235 GETWINDOWUSERPROP 224 PUTWINDOWPROP 205 PUTWINDOWPROP 196 PUTWINDOWPROP 175 PUTWINDOWPROP 151 PUTWINDOWPROP 140 GETWINDOWUSERPROP 112 MINUS 99 MKATOM 93 SUBSTRING 86 STRPOS 73 MKSTRING 68 PUTWINDOWPROP 50 PUTWINDOWPROP 30 GETWINDOWUSERPROP 9 GETWINDOWUSERPROP) (278 DECIMALPOWER 268 DECIMALPOWER 232 MAXDIGITS 221 DECIMALPOWER 215 clr 201 FINISHEDFLG 193 TOTAL 185 abt 171 FINISHEDFLG 164 ok 156 FLOATP 147 DECIMALPOWER 137 DECIMALPOWER 130 %. 120 % 106 - 61 DECIMALPOWER 47 DECIMALPOWER 27 DECIMALPOWER 19 bs 14 TOTAL 6 TOTAL) ( 303 0.1 291 1.0 82 ".") NUMBERPAD.READER.DECODE §D4 (I 0 CHAR) A@d3³;` dgð“gdgð¥dgð“ggð“g@gð¦@dgð’g(11 TEDIT.GETSYNTAX) (62 ok 57 % 50 % 45 abt 40 DELETE 36 clr 31 LINEDELETE 25 WORDDELETE 20 bs 15 CHARDELETE 8 TEDIT.READTABLE) () CREATE.NUMBERPAD.READERA0001 §D4 (NAME SI§§*UNWIND-PROTECT* P 13 LINE P 10 MSGLINES P 9 FONTHEIGHT P 8 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 I 0 SI§§*CLEANUP-FORMS* F 14 FLOATINGPTFLG F 15 INCLUDEABORTFLG F 16 MSG F 17 DIGITFONT F 18 BOLDFONT F 19 WPOSITION F 20 MSGFONT F 21 DEFAULTFONT F 22 POSITIVEONLYFLG F 23 RNUMBER.ABORT.BITMAP F 24 RNUMBER.CLEAR.BITMAP) ² W’llW"µW$ W(µW* £ `W,W–W“g†g‚gW²"JÈ_l ñžlOñ˜W.W0h°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 ²9JK ¿K ¿O°'JL _ JÈÚ°Äd OK ¿K µíK OKMj KglO ÈlÛOIÈh^ NKl IK Kgj KgH K K K(430 CLOSEW 426 DISPLAY/NUMBER/READER/TOTAL 422 PUTWINDOWPROP 414 PUTWINDOWPROP 406 DSPFONT 401 \READNUMBER.OUTLINEREGION 394 PUTWINDOWPROP 369 CHECK/MENU/IMAGE 358 ADDMENU 349 OPENW 340 TERPRI 335 PRIN3 315 LENGTH 310 BREAK.MSG.INTO.LINES 300 MOVETOUPPERLEFT 295 DSPFONT 285 CREATEW 279 REGIONONSCREEN 276 HEIGHTIFWINDOW 267 CHECK/MENU/IMAGE 257 WIDTHIFWINDOW 247 CHECK/MENU/IMAGE 235 CHARWIDTH 129 \APPEND2 126 \APPEND2 123 \APPEND2 25 FONTCREATE 16 FONTCREATE) (418 MAXDIGITS 410 TOTAL 383 FONTDESCRIPTOR 372 BITMAP 362 TOTALREG 319 FONTDESCRIPTOR 270 BITMAP 250 BITMAP 215 FONTDESCRIPTOR 206 MENU 179 CLRPROMPT 166 NUMBER.READER.HANDLER 159 NUMBERPAD.HELDFN 60 FONTDESCRIPTOR 52 - 48 % 44 bs 31 MENUTYPE#) ( 120 (0 ok) 116 (bs) 111 (%.) 104 (1 2 3 4 5 6 7 8 9) 100 (% clr) 95 (bs clr) 87 (abt clr)) CREATE.NUMBERPAD.READER §D4 (P 0 SI§§*RESETFORMS* I 6 POSITIVEONLYFLG I 5 FLOATINGPTFLG I 4 INCLUDEABORTFLG I 3 DIGITFONT I 2 MSGFONT I 1 WPOSITION I 0 MSG) $gl hhhg ¿ (33 CL§VALUES-LIST 29 SI§§RESETUNWIND 26 \MVLIST 23 CREATE.NUMBERPAD.READERA0001 7 RADIX) (20 SI§§RESETUNWIND 2 RADIX) () BREAK.MSG.INTO.LINES §D4 (P 10 NL P 8 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»°XK²@LHJKkÙ h ¼Kkغj¹OKkØ OOó³HO A IعOkÔ_°èh»°LHJOkÙ h ¼OºM¹OkÔ_±ÿQNl ð²óO[°ð(195 \NCONC2 190 SUBSTRING 164 CHARWIDTH 160 NTHCHARCODE 132 \NCONC2 127 SUBSTRING 103 \NCONC2 98 SUBSTRING 71 CHARWIDTH 66 NTHCHARCODE 57 \NCONC2 52 SUBSTRING 26 NCHARS 17 MKSTRING 13 SUBSTRING 6 MKSTRING) NIL () REGIONONSCREEN §D4 (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(29 GETMOUSESTATE 6 POSITIONP) (71 SCREENHEIGHT 66 SCREENHEIGHT 49 SCREENWIDTH 44 SCREENWIDTH 37 LASTMOUSEY 33 LASTMOUSEX) () DISPLAY/NUMBER/READER/TOTALA0001 §D4 (NAME SI§§*UNWIND-PROTECT* P 6 STR P 5 I P 3 NCHARS P 2 NAFTERDEC P 1 DECPOS P 0 TOTSTR I 0 SI§§*CLEANUP-FORMS* F 7 DECIMALPLACES F 8 WIN F 9 TOTALREG) ~W²kWg 1H »oH ¹WkÙKIÕZð’H°@WJó¬HkIWkÙÔ °.HWkÙJÕkMLó³Nµ o¾MkÔ]°ðo °òN ‡Wg WW (123 CENTERPRINTINREGION 116 GETWINDOWUSERPROP 106 CONCAT 99 CONCAT 60 SUBSTRING 30 STRPOS 21 NCHARS 14 MKSTRING 11 GETWINDOWUSERPROP) (113 TOTAL 8 TOTAL) ( 96 "0" 85 "0" 26 ".") DISPLAY/NUMBER/READER/TOTAL §D4 (P 2 SI§§*RESETFORMS* P 1 DECIMALPLACES P 0 TOTALREG I 0 WIN) ?@g @g Hjg@ gl hhhg ¿ h(59 CL§VALUES-LIST 55 SI§§RESETUNWIND 52 \MVLIST 49 DISPLAY/NUMBER/READER/TOTALA0001 33 RADIX 25 DSPFILL 13 GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (46 SI§§RESETUNWIND 28 RADIX 21 REPLACE 10 DECIMALPOWER 3 TOTALREG) () NUMBER.READER.HANDLER §D4 (I 2 BUTTON I 1 MENU I 0 DIGIT) @A (7 NUMBERPAD.READER.HANDLE.CHAR 4 WFROMMENU) NIL () NUMBERPAD.HELDFN §D4 (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 (119 PROMPTPRINT) (79 % 66 %. 54 - 41 abt 29 clr 16 ok 4 bs) ( 114 "Will put this digit on the right of the total." 107 "Will reset the total to 0" 95 "will abort this question." 86 "doesn't do anything." 72 "will enter a decimal point." 61 " will change the sign of the total" 47 "will abort this question." 36 "Will reset the total to 0" 22 "Indicates that you are through entering the number." 11 "Will erase the last digit entered.") \READNUMBER.OUTLINEREGION §D4 (P 0 N I 2 OUTLINESIZE I 1 WIN I 0 REG) [B3 µlhddA@HÙ@HÙ@HlÚØ@HlÚØggnÿÿ hddA@@@@gghA h(87 BKBITBLT 83 DSPTEXTURE 54 BKBITBLT) (78 REPLACE 75 TEXTURE 47 REPLACE 44 TEXTURE) () (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