(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "16-Aug-95 11:18:52" ("compiled on " {DSK}library>READNUMBER.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "25-May-93 00:28:30" |{PELE:MV:ENVOS}LIBRARY>READNUMBER.;3| 29420 changes to%: (FNS NUMBERPAD.READ) previous date%: "12-Jun-90 10:56:07" |{PELE:MV:ENVOS}LIBRARY>READNUMBER.;2|) \NUMBERPAD.READER.CLOSEFN :D8 (I 0 WINDOW) @gg (15 PUTWINDOWPROP) (10 ABORT 5 FINISHEDFLG) () \READNUMBER.FLASHAREA :D8 (I 4 WIN I 3 HGHT I 2 WDTH I 1 BTM I 0 LFT) ?hddD@ABCggnÿÿ l< hddD@ABCggnÿÿ (60 BKBITBLT 33 DISMISS 26 BKBITBLT) (51 INVERT 46 TEXTURE 17 INVERT 12 TEXTURE) () RNUMBER :D8 (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 (19 NUMBERPAD.READ 12 CREATE.NUMBERPAD.READER) NIL () NUMBERPAD.READA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 FINISHVAL I 0 SI::*CLEANUP-FORMS* F 1 NUMBERPAD/READER F 2 SI::*RESETFORMS* F 3 ACCEPTTYPEINFLG) S²ZgQ hhRc¿g` hhRc¿gi hhRc¿gh hhRc¿gQhQ hRcQ Qgh X³7Q ¿S²#²i ²i Q ¿ld ¿°¾Qgg ¿Hgð²"gQg É ´Qg (258 GETWINDOWUSERPROP 246 ERROR! 239 MEMBER 231 GETWINDOWUSERPROP 205 WINDOWDELPROP 186 DISMISS 178 NUMBERPAD.READER.HANDLE.CHAR 172 NUMBERPAD.READER.DECODE 167 READC 159 READP 151 HASTTYWINDOWP 142 TOTOPW 133 PUTWINDOWPROP 118 DISPLAY/NUMBER/READER/TOTAL 105 OPENW 80 ECHOMODE 59 CONTROL 38 TTY.PROCESS 13 TTYDISPLAYSTREAM) (253 TOTAL 226 MENU 220 % 212 ABORT 200 \NUMBERPAD.READER.CLOSEFN 195 CLOSEFN 127 FINISHEDFLG 95 CLOSEW 74 ECHOMODE 53 CONTROL 33 \RUNNING.PROCESS 28 TTY.PROCESS 7 TTYDISPLAYSTREAM) () NUMBERPAD.READ :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 ACCEPTTYPEINFLG I 0 NUMBERPAD/READER F 3 LISPXHIST) K@gj @gh @gg S!g ¿$(68 SI::RESETUNWIND 63 \MVLIST 58 NUMBERPAD.READA0001 44 WINDOWADDPROP 28 PUTWINDOWPROP 16 SPAWN.MOUSE 11 PUTWINDOWPROP) (53 SI::RESETUNWIND 39 \NUMBERPAD.READER.CLOSEFN 34 CLOSEFN 22 FINISHEDFLG 5 TOTAL) () NUMBERPAD.READER.HANDLE.CHAR :D8 (P 2 TOTSTR P 1 POWER P 0 TOTAL I 1 WIN I 0 DIGIT F 3 RNUMBER.ABORT.BITMAP F 4 RNUMBER.CLEAR.BITMAP) ² Ag XAg@dgð²j¿Ag Yµ Hl Û±rkð²Agh ¿Hjر[AgIkÙY ¿H JkoJ IkÙÔ µJ ± gð”jH±@dgð”¿H±gð²&Ag ‘hAgk ¿H±Ú@dgðž¿Agi hSðª@dgð²¿Agh ¿Agi hTð§@gðŸAgh ¿j°}Ag H ð²jdnèdA ¿H°S@3´ZAg Y²/AgIkØ ¿jHó­H@l I ëÔ°H@l I ëjHó¦Hl Ö@Ô…Hl Ö@Õ A h(430 DISPLAY/NUMBER/READER/TOTAL 424 PUTWINDOWPROP 400 EXPT 386 EXPT 371 PUTWINDOWPROP 354 GETWINDOWUSERPROP 334 \READNUMBER.FLASHAREA 318 NCHARS 313 ABS 307 GETWINDOWUSERPROP 292 PUTWINDOWPROP 267 PUTWINDOWPROP 254 PUTWINDOWPROP 226 PUTWINDOWPROP 194 PUTWINDOWPROP 179 GETWINDOWUSERPROP 130 MKATOM 122 SUBSTRING 113 STRPOS 97 MKSTRING 90 PUTWINDOWPROP 68 PUTWINDOWPROP 42 GETWINDOWUSERPROP 13 GETWINDOWUSERPROP) (363 DECIMALPOWER 349 DECIMALPOWER 302 MAXDIGITS 286 DECIMALPOWER 278 clr 261 FINISHEDFLG 248 TOTAL 238 abt 220 FINISHEDFLG 211 ok 201 FLOATP 188 DECIMALPOWER 174 DECIMALPOWER 165 %. 153 % 139 - 81 DECIMALPOWER 62 DECIMALPOWER 37 DECIMALPOWER 27 bs 20 TOTAL 8 TOTAL) ( 107 ".") NUMBERPAD.READER.DECODE :D8 (I 0 CHAR F 0 TEDIT.READTABLE) U@d3³OP dgð•gdgð§dgð•ggð•g@gð¨@dgð”g(11 TEDIT.GETSYNTAX) (82 ok 75 % 66 % 59 abt 52 DELETE 46 clr 39 LINEDELETE 31 WORDDELETE 24 bs 17 CHARDELETE) () CREATE.NUMBERPAD.READERA0001 :D8 (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°oW•o„ooW•o„oo _¿dO¿dl¿di ¿dI¿dg¿dg¿dl¿dg ¿jdnÿdh_¿dO ¿dÉ lIÈ Ø¿_W&l HkØl0I Ú_Ø]O Ø\ W µ:jO Ø hdi [W ²GJK ¿K ¿O°1JL _ JÈ Ú°²d OK ¿K µéK OKMj KglO lÛOIÈ h^ NKl IK Kgj KgH K K K(519 CLOSEW 513 DISPLAY/NUMBER/READER/TOTAL 507 PUTWINDOWPROP 495 PUTWINDOWPROP 483 DSPFONT 476 \READNUMBER.OUTLINEREGION 467 PUTWINDOWPROP 443 BITMAPHEIGHT 438 CHECK/MENU/IMAGE 423 ADDMENU 412 OPENW 401 TERPRI 394 PRIN3 370 LENGTH 363 BREAK.MSG.INTO.LINES 351 MOVETOUPPERLEFT 344 DSPFONT 332 CREATEW 324 REGIONONSCREEN 319 HEIGHTIFWINDOW 313 BITMAPHEIGHT 308 CHECK/MENU/IMAGE 296 WIDTHIFWINDOW 289 BITMAPWIDTH 284 CHECK/MENU/IMAGE 272 CHARWIDTH 157 \APPEND2 152 \APPEND2 147 \APPEND2 29 FONTCREATE 18 FONTCREATE) (501 MAXDIGITS 489 TOTAL 454 FONTDESCRIPTOR 429 TOTALREG 376 FONTDESCRIPTOR 250 FONTDESCRIPTOR 213 CLRPROMPT 198 NUMBER.READER.HANDLER 189 NUMBERPAD.HELDFN 75 FONTDESCRIPTOR 65 - 59 % 53 bs 37 |MENUTYPE#|) ( 142 (0 ok) 137 (bs) 131 (%.) 123 (1 2 3 4 5 6 7 8 9) 118 (% clr) 112 (bs clr) 103 (abt clr)) CREATE.NUMBERPAD.READER :D8 (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) 0gl hhhg ¿$(41 SI::RESETUNWIND 36 \MVLIST 31 CREATE.NUMBERPAD.READERA0001 11 RADIX) (26 SI::RESETUNWIND 4 RADIX) () BREAK.MSG.INTO.LINES :D8 (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»°dK²HLHJKkÙ h ¼Kkغj¹OKkØ OOó³HO A IعOkÔ_°äh»°LHJOkÙ h ¼OºM¹OkÔ_±ÿ8Nl ð²óO[°ð(228 \NCONC2 221 SUBSTRING 193 CHARWIDTH 187 NTHCHARCODE 157 \NCONC2 150 SUBSTRING 124 \NCONC2 117 SUBSTRING 88 CHARWIDTH 81 NTHCHARCODE 70 \NCONC2 63 SUBSTRING 34 NCHARS 23 MKSTRING 17 SUBSTRING 8 MKSTRING) NIL () REGIONONSCREEN :D8 (P 1 BOTTOM P 0 LEFT I 2 HEIGHT I 1 WIDTH I 0 POS) p@@ ²@djñ¡¿j¸@djñ³¿j°¿`¸`¹HAØ`ñŸ`AÙºjJñ¡J€j¸IBØ`ñŸ`BÙ»jKñ¡K€j¹HIABh(35 GETMOUSESTATE 8 POSITIONP) (89 SCREENHEIGHT 82 SCREENHEIGHT 63 SCREENWIDTH 56 SCREENWIDTH 47 LASTMOUSEY 41 LASTMOUSEX) () DISPLAY/NUMBER/READER/TOTALA0001 :D8 (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²~Wg 1H »oH ¹WkÙKIÕZð’H°HWJó®HkIWkÙÔ °4HWkÙJÕkMLó³Nµo¾MkÔ]°ïo °ïN ‹Wg WW (148 CENTERPRINTINREGION 139 GETWINDOWUSERPROP 125 CONCAT 116 CONCAT 73 SUBSTRING 41 STRPOS 29 NCHARS 20 MKSTRING 15 GETWINDOWUSERPROP) (134 TOTAL 10 TOTAL) ( 111 "0" 99 "0" 35 ".") DISPLAY/NUMBER/READER/TOTAL :D8 (P 2 SI::*RESETFORMS* P 1 DECIMALPLACES P 0 TOTALREG I 0 WIN) W@g @g Hjg@ gl hhhg ¿$h(79 SI::RESETUNWIND 74 \MVLIST 69 DISPLAY/NUMBER/READER/TOTALA0001 49 RADIX 37 DSPFILL 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (64 SI::RESETUNWIND 42 RADIX 31 REPLACE 16 DECIMALPOWER 5 TOTALREG) () NUMBER.READER.HANDLER :D8 (I 2 BUTTON I 1 MENU I 0 DIGIT) @A (11 NUMBERPAD.READER.HANDLE.CHAR 6 WFROMMENU) NIL () NUMBERPAD.HELDFN :D8 (I 2 BUTTON I 1 MENU I 0 ITEM F 0 RNUMBER.ABORT.BITMAP F 1 RNUMBER.CLEAR.BITMAP) ”@dgð—¿o°~dgð—¿o°ngð–o°`@dgð—¿o°Ogð–o°A@dgð—¿o°0gð–o°"@dPð—¿o°Qð•o‰@¥o€h (145 PROMPTPRINT) (99 % 84 %. 68 - 53 abt 37 clr 22 ok 6 bs) ( 138 "Will put this digit on the right of the total." 129 "Will reset the total to 0" 119 "will abort this question." 106 "doesn't do anything." 92 "will enter a decimal point." 75 " will change the sign of the total" 61 "will abort this question." 44 "Will reset the total to 0" 30 "Indicates that you are through entering the number." 14 "Will erase the last digit entered.") \READNUMBER.OUTLINEREGION :D8 (P 0 N I 2 OUTLINESIZE I 1 WIN I 0 REG) iB3 µlhddA@HÙ@HÙ@HlÚØ@HlÚØggnÿÿ hddA@@@@gghA h(101 BKBITBLT 95 DSPTEXTURE 60 BKBITBLT) (88 REPLACE 83 TEXTURE 51 REPLACE 46 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-FROM-STRINGS (QUOTE (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 ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1989 1990 1993)) NIL