(FILECREATED "21-May-85 20:55:14" ("compiled on " {ERIS}LIBRARY>READNUMBER.;8) "20-May-85 17:03:08" recompiled changes: \NUMBERPAD.READER.CLOSEFN NUMBERPAD.READ CREATE.NUMBERPAD.READER in "INTERLISP-D 20-May-85 ..." dated "20-May-85 17:17:27") (FILECREATED "21-May-85 20:54:58" {ERIS}LIBRARY>READNUMBER.;8 13858 changes to: (VARS READNUMBERCOMS) (FNS \NUMBERPAD.READER.CLOSEFN NUMBERPAD.READ CREATE.NUMBERPAD.READER) previous date: " 4-Jan-85 17:21:11" {ERIS}LIBRARY>READNUMBER.;6) \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 4 INCLUDEABORTFLG I 3 DIGITFONT I 2 MSGFONT I 1 POSITION I 0 MSG) @ABCD  (13Q NUMBERPAD.READ 10Q CREATE.NUMBERPAD.READER) NIL () NUMBERPAD.READA0001 D1 (NAME ERRORSET P 0 FINISHVAL F 1 NUMBERPAD/READER F 2 RESETVARSLST F 3 RESETY) igQhQ hRcQ Qg XQ ld Qgg HggQg  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 @gg S!Tog hgZ JI(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 X P 14Q RMARG 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 MSG F 17Q DIGITFONT F 20Q MSGFONT F 21Q INCLUDEABORTFLG F 22Q RNUMBER.ABORT.BITMAP F 23Q RNUMBER.CLEAR.BITMAP F 24Q WPOSITION F 25Q MACROY) lW gl g W gl g  `gW"!J_l lOW$W&hooo _dOdldi dIdgdgdldg jdndh_dO d Il_W(Hkl0I _l ]O \ W=jO  hdi WdJK K WdNhK  W