(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 8-Apr-2023 13:56:13" ("compiled on " {DSK}larry>il>medley>sources>DMISC.;2) " 6-Apr-2023 08:17:33" brecompiled changes%: RINGBELLS in "Welcome to Fuller sysout 6-Apr-2023 ..." dated " 6-Apr-2023 08:22:42") (FILECREATED " 8-Apr-2023 13:56:13" {DSK}larry>il>medley>sources>DMISC.;2 45464 :EDIT-BY "lmm" :CHANGES-TO (FNS RINGBELLS) :PREVIOUS-DATE " 6-Jan-2022 19:08:15" {DSK}larry>il>medley>sources>DMISC.;1) BACKSPACEDEL :D8 (L (0 TTBL)) [gj @ gj @ go@ go@ gh@ jg (88 ECHOCONTROL 77 DELETECONTROL 65 DELETECONTROL 49 DELETECONTROL 33 DELETECONTROL 27 CHARACTER 16 DELETECONTROL 10 CHARACTER) (83 REAL 70 NOECHO 54 EMPTYCHDEL 38 POSTCHDEL 21 NTHCHDEL 4 1STCHDEL) ( 59 "" 43 "") PERIODICALLYRECLAIM :D8 NIL :`´3`` ´"`` ´` (55 \DAYTIME0 45 RECLAIM 38 \SECONDSCLOCKGREATERP 21 \SECONDSCLOCKGREATERP) (50 \LASTRECLAIM 33 RECLAIMWAIT 28 \LASTRECLAIM 16 RECLAIMWAIT 11 \LASTUSERACTION 4 \RECLAIM.COUNTDOWN) () \DIRTYBACKGROUND :D8 NIL 0`´)`mÿÔjñ³` `h(33 \WRITEDIRTYPAGE) (43 BACKGROUNDPAGECNT 38 BACKGROUNDPAGEFREQ 28 BACKGROUNDPAGEMIN 19 BACKGROUNDPAGECNT 11 BACKGROUNDPAGECNT 4 BACKGROUNDPAGEFREQ) () \SAVEVMBACKGROUNDA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS*) 3`²'g ²g` hhPc¿(48 SAVEVM 33 CURSOR 16 \DEFINEDP) (28 SAVINGCURSOR 23 CURSOR 11 CURSOR 4 SAVINGCURSOR) () \SAVEVMBACKGROUND :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) y``ñ´l`Ènãð³^`3 ´V`` ´Eg `ýñ´+gi ´S!g ¿$h(112 SI::RESETUNWIND 107 \MVLIST 102 \SAVEVMBACKGROUNDA0001 86 \FLUSHVMOK? 61 \COUNTREALPAGES 49 \SECONDSCLOCKGREATERP) (97 SI::RESETUNWIND 80 SAVEVM 71 SAVEVMMAX 66 \DIRTYPAGEHINT 56 DIRTY 44 SAVEVMWAIT 39 \LASTUSERACTION 30 SAVEVMWAIT 17 \InterfacePage 9 \DIRTYPAGEHINT 4 SAVEVMMAX) () COPYVMA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FILE) "i`Ènãð˜Phi o(25 \COPYSYS) (10 \InterfacePage 5 \VMEM.INHIBIT.WRITE) ( 31 "Can't--virtual memory has been written to") COPYVM :D8 (P 0 SI::*RESETFORMS* I 0 FILE) *g`hg ¿$(35 SI::RESETUNWIND 30 \MVLIST 25 COPYVMA0001) (20 SI::RESETUNWIND 9 \VMEM.INHIBIT.WRITE 4 \VMEM.INHIBIT.WRITE) () SETTIME :D8 (L (0 DT)) ™@µ ’±„@d² µ o@ oæHµDoi ¿id bµ o°@ Xµoi ¿i ¿°ÄoæXžlYdjÍ¿IHÍ¿€H ¿i´ o (150 DATE 135 \SETDAYTIME0 101 TERPRI 94 PRIN1 80 IDATE 64 READ 56 PRIN1 33 ERROR 20 IDATE 7 \NET.SETTIME) NIL ( 145 (DATEFORMAT TIME.ZONE) 109 -2147483648 88 "Sorry, couldn't parse that" 73 "time not set" 50 "Enter date and time as string in double quotes: " 38 -2147483648 27 "Invalid date") RINGBELLS :D8 (L (0 N)) 6@3 µkkYHó‘h` ¿hdld ¿` ¿IkÔ°×(46 PLAYTUNE 35 FLASHWINDOW 25 PLAYTUNE) (41 RINGBELLS.L2 20 RINGBELLS.L1) () FLASHWINDOW :D8 (L (3 SHADE 2 FLASHINTERVAL 1 N 0 WIN?) P 4 \INTERRUPTABLE) ŒA3 £kb¿B3 ¤lÈb¿@µ;A@ hð"kºI—hð»JHó³ZI²'K Bhi ¿ °)g b¿°º@C ¿Bhi ¿@C JdAð©¿lú ¿JkÔZ°¦h(129 BLOCK 115 INVERTW 107 DISMISS 98 INVERTW 86 GETSTREAM 74 VIDEOCOLOR 68 DISMISS 60 VIDEOCOLOR 40 VIDEOCOLOR 26 DISPLAYSTREAMP) (81 OUTPUT) () PLAYTUNEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 TUNEPAIRS) WR°PdH—H „¿lw`l#ð’HŠH`Úl#ÛöY¿Ig ¦°îµ±h(76 BLOCK 70 TIMEREXPIRED? 23 BEEPOFF 17 BEEPON) (65 TICKS 52 \RCLKMILLISECOND 38 \RCLKMILLISECOND 32 FIXP) () PLAYTUNE :D8 (I 0 TUNEPAIRS) 1`dlðªdlð¥dlð´¿g ¿$i(41 BEEPOFF 36 \MVLIST 31 PLAYTUNEA0001) (26 BEEPOFF 4 \MACHINETYPE) () DISPLAYDOWNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FORM) P (5 EVAL) NIL () DISPLAYDOWN :D8 (L (1 NSCANLINES) P 0 SI::*RESETFORMS* I 0 FORM) 4gAµj hhhg ¿$(45 SI::RESETUNWIND 40 \MVLIST 35 DISPLAYDOWNA0001 15 SETDISPLAYHEIGHT) (30 SI::RESETUNWIND 4 SETDISPLAYHEIGHT) () SETDISPLAYHEIGHT :D8 (L (0 NSCANLINES)) ‡`lð©`lð´t`ªo ¿`´\j`ÈlØÑHÈnÿålÚ@²@@d²¿j@ñ³@`ñ²`b°ið—`b…@ ¿H@ââlÚn€äÍ¿(117 \ILLEGAL.ARG 34 HELP) (108 SCREENHEIGHT 96 SCREENHEIGHT 88 SCREENHEIGHT 48 \EM.DISPLAYHEAD 40 \EM.DISPLAYHEAD 23 \DisplayStarted 13 \MACHINETYPE 4 \MACHINETYPE) ( 29 "Display must be initialized.") VIDEORATE :D8 (L (0 TYPE)) `@²3`dlð²P¿@gð§@dlMð²¿l jd ¿g¿gð§@dl<ð²¿l‹jd ¿g°Û °Ôdlð²m¿@gð¦@dlMð™¿lln®°ªgð§@dl<ð²¿lln0 ¿g°’gðª@dgð²¿l:ln ¿g±ÿl ±ÿdlð¢±ÿX@gð¦@dlMð™¿lly±ÿ?gð¦@dl<ðŸ¿lŽly¿g±ÿ( ±ÿ (274 \ILLEGAL.ARG 206 \ILLEGAL.ARG 192 \DSPRATE 154 \DSPRATE 94 \ILLEGAL.ARG 81 \DSPRATE 44 \DSPRATE) (266 TAPE 245 TAPE 222 NORMAL 198 PHILLIPS 176 TAPEP 167 PHILLIPS 160 TAPE 132 TAPE 109 NORMAL 87 TAPE 62 TAPE 55 \VIDEORATE 50 NORMAL 25 NORMAL 12 \MACHINETYPE 4 \VIDEORATE) () DOAROUNDEXITFORMSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 $$FORM F 3 SI::NLSETQ-VALUE) i@R,hcgNIL (15 :NORMAL) () DOAROUNDEXITFORMS :D8 (L (0 EVENT) P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 $$FORM F 4 BEFORELOGOUTFORMS F 5 AFTERLOGOUTFORMS F 6 BEFORESYSOUTFORMS F 7 *PROCEED-CASES* F 8 AFTERSYSOUTFORMS F 9 BEFOREMAKESYSFORMS F 10 AFTERMAKESYSFORMS) h@dgð“¿T°Wdgð“¿U°Kgð’V°A@dgð”¿W°3gð“W°(@gð´W°d`WJ µæh(94 DOAROUNDEXITFORMSA0001) (82 SI::NLSETQ-PROCEED-CASE 65 AFTERMAKESYS 53 BEFOREMAKESYS 41 AFTERSYSOUT 29 BEFORESYSOUT 18 AFTERLOGOUT 6 BEFORELOGOUT) () REALMEMORYSIZE :D8 NIL `È8NIL (4 \InterfacePage) () LISPVERSION :D8 NIL `ÈNIL (4 \InterfacePage) () MICROCODEVERSION :D8 NIL `È NIL (4 \InterfacePage) () BCPLVERSION :D8 NIL `È NIL (4 \InterfacePage) () REQUIREVERSION :D8 (L (2 BCPL 1 MICROCODE 0 LISP)) b @²`È@Yýó–g°-A²`È AYýó–g°B´`È BYýó´gX²oHo I hi(92 ERROR 86 CONCAT) (67 BCPL 54 \InterfacePage 44 MICROCODE 32 \InterfacePage 22 LISP 10 \InterfacePage) ( 81 " version is too old. The minimum version required is " 75 "This ") APROPOSA0001A0002 :D8 (L (0 ATOM) F 1 OUTPUT F 2 BLOCKCOUNT F 3 FILTERFN F 4 STRING F 5 CASEARRAY F 6 ALLFLG F 7 RESULT F 8 QUIETFLG) *RkÙcjðšl c¿¿S²T@hdddU ´‚±ÿ@kS°eV³%@ ³@Áɳ@ gðhð´‚±ÒT@hdddU ´‚±¿V³/@ hð´‚±®@ l\ðhð´‚±@ hð´‚±W˜@Wc±‚@ ³@ÁÉ®@d gð¨¿Q ¿@Q ¿kQ ¿@d ²¿o@ Q ¿@ Xgð¬oHQ ¿@ÁÉX´oHQ h(294 APROPRINT 273 APROPRINT 253 GETTOPVAL 246 APROPRINT 240 ARGLIST 226 \DEFINEDP 218 SPACES 210 PRIN2 202 FRESHLINE 188 GETTOPVAL 173 \DEFINEDP 147 \SUBFNDEF 130 CHCON1 116 GENSYM? 101 STRPOS 74 GETTOPVAL 59 \DEFINEDP 37 STRPOS 20 BLOCK) (259 NOBIND 193 NOBIND 79 NOBIND) ( 287 "proplist:" 266 "value: " 234 "function:") APROPOSA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) g (9 MAPATOMS) (4 APROPOSA0001A0002) () APROPOS :D8 (L (4 CASEXACT) P 5 SI::*RESETFORMS* P 4 RESULT P 3 CASEARRAY P 2 BLOCKCOUNT P 1 DISPLAYSTREAM P 0 FILTERFN I 3 OUTPUT I 2 QUIETFLG I 1 ALLFLG I 0 STRING) nAdžiðhð´ A ´ABhð´Cµig b l Dhð´`gll hhhg ¿$L(102 SI::RESETUNWIND 97 \MVLIST 92 APROPOSA0001 72 PRINTLEVEL 43 DISPLAYSTREAMP 36 GETSTREAM 14 FNTYP) (87 SI::RESETUNWIND 63 PRINTLEVEL 55 UPPERCASEARRAY 31 OUTPUT) () APROPRINTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FILE F 1 SI::*RESETFORMS* F 2 VALUE) 0ghP P PhhdQcPj RPi (45 PRIN2 37 POSITION 17 DSPLEFTMARGIN 11 DSPXPOSITION) (4 DSPLEFTMARGIN) () APROPRINT :D8 (L (0 STRING) P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FILE I 1 VALUE F 3 LISPXHIST) [ljB ¿oB ¿@B ¿kB B ² S!g ¿$‡AB ¿B (88 FRESHLINE 81 PRIN2 68 SI::RESETUNWIND 63 \MVLIST 58 APROPRINTA0001 42 IMAGESTREAMP 36 SPACES 28 PRIN1 20 PRIN1 8 TAB) (53 SI::RESETUNWIND) ( 14 "-") READPRINTERPORT :D8 NIL tNIL NIL () WRITEPRINTERPORT :D8 (L (0 DATUM)) @uNIL NIL () \READPRINTERPORT.UFN :D8 NIL `lð´lxNIL (4 \MACHINETYPE) () \WRITEPRINTERPORT.UFN :D8 (L (0 DATUM)) `lð´@lyNIL (4 \MACHINETYPE) () \MISC1.UFN :D8 (L (1 ALPHA 0 ARG)) oA (10 RAID) NIL ( 4 "Illegal op to \MISC1.UFN -- ") \MISC2.UFN :D8 (L (2 ALPHA 1 ARG2 0 ARG1)) Bjð—@A oB (22 RAID 10 \GET-NEXT-RUN) NIL ( 16 "Illegal op to \MISC2.UFN -- ") \MISC3.UFN :D8 (L (3 ALPHA 2 ARG3 1 ARG2 0 ARG1)) «Cdjð™¿@AB dkð™¿@AB lð˜@AB Cdlð™¿@AB lð˜@AB Cdlð™¿@AB lð˜@AB Cdlð™¿@AB lð˜@AB Cdl ð™¿@AB l ð˜@AB oC (168 RAID 156 \LINES-EQUAL-P 143 %%SLOW-ARRAY-READ 127 \FLOATTOBYTE.UFN 114 \BLKFABSMIN.UFN 98 \BLKFABSMAX.UFN 85 \BLKFMIN.UFN 69 \BLKFMAX.UFN 56 \BLKFLOATP2COMP.UFN 40 \BLKSMALLP2FLOAT.UFN 27 \BLKMAG.UFN 13 \BLKEXPONENT.UFN) NIL ( 162 "Illegal op to \MISC3.UFN --") \MISC4.UFN :D8 (L (4 ALPHA 3 ARG4 2 ARG3 1 ARG2 0 ARG1)) xDdjðš¿@ABC dkðš¿@ABC lð™@ABC Ddlðš¿@ABC lð™@ABC Ddlðš¿@ABC lð™@ABC oD (117 RAID 105 %%SLOW-ARRAY-WRITE 91 \BITMAPBIT 74 \BLKSEP.UFN 60 \BLKFDIFF.UFN 43 \BLKFPLUS.UFN 29 \BLKPERM.UFN 14 \BLKFTIMES.UFN) NIL ( 111 "Illegal op to \MISC4.UFN -- ") \MISC5.UFN :D8 (L (5 ALPHA 4 ARG5 3 ARG4 2 ARG3 1 ARG2 0 ARG1)) oE (10 RAID) NIL ( 4 "Illegal op to \MISC5.UFN -- ") \MISC6.UFN :D8 (L (6 ALPHA 5 ARG6 4 ARG5 3 ARG4 2 ARG3 1 ARG2 0 ARG1)) Fjðœ@ABCDE oF (27 RAID 15 \FBITMAPBIT.UFN) NIL ( 21 "Illegal op to \MISC6.UFN -- ") \MISC7.UFN :D8 (L (7 ALPHA 6 ARG7 5 ARG6 4 ARG5 3 ARG4 2 ARG3 1 ARG2 0 ARG1)) 3Gdjðž¿@ABCDEF kðœ@ABCDE oG (48 RAID 35 \FBITMAPBIT.UFN 19 \PSEUDOCOLOR.UFN) NIL ( 41 "Illegal op to \MISC7.UFN -- ") \MISC8.UFN :D8 (L (8 ALPHA 7 ARG8 6 ARG7 5 ARG6 4 ARG5 3 ARG4 2 ARG3 1 ARG2 0 ARG1)) 9 Gdjð²¿@ABCDEFG kðŸ@ABCDEFG oG (54 RAID 41 IBLT2 22 IBLT1) NIL ( 47 "Illegal op to \MISC8.UFN --") \MISC10.UFN :D8 (L (10 ALPHA 9 ARG10 8 ARG9 7 ARG8 6 ARG7 5 ARG6 4 ARG5 3 ARG4 2 ARG3 1 ARG2 0 ARG1)) ( Gjð²@ABCDEFGGG oG (37 HELP 24 \PIXELBLT.UFN) NIL ( 30 "Illegal op to \MISC10.UFN -- ") \BLKFDIFF.UFN :D8 (L (3 COUNT 2 DEST 1 SOURCE2 0 SOURCE1)) 2CkÙàjIHó‘hBIÐ@IÐdÈýÈÑAIÐdÈýÈÑìοIlÔY°ÚNIL NIL () \BLKFPLUS.UFN :D8 (L (3 COUNT 2 DEST 1 SOURCE2 0 SOURCE1)) 7CkÙàjIHó‘hBIÐ@IÐdÈýÈÑíAIÐdÈýÈÑíèíοIlÔY°ÕNIL NIL () \BLKFTIMES.UFN :D8 (L (3 COUNT 2 DEST 1 SOURCE2 0 SOURCE1)) 7CkÙàjIHó‘hBIÐ@IÐdÈýÈÑíAIÐdÈýÈÑíêíοIlÔY°ÕNIL NIL () \BLKSEP.UFN :D8 (L (3 CNT 2 DEST 1 SOURCE2 0 SOURCE1)) ¨CkÙàj2IHó‘hCIÙºIlØ»JlؼBIÐ@IÐdÈýÈÑíAJÐdÈýÈÑíèíοBIlØÐ@KÐdÈýÈÑALÐdÈýÈÑìοBIlØÐ@KÐdÈýÈÑíALÐdÈýÈÑíèíοBIlØÐ@IÐdÈýÈÑAJÐdÈýÈÑìοIlÔY±ÿeNIL NIL () \BLKPERM.UFN :D8 (L (3 CNT 2 DEST 1 PERMUTATIONS 0 ORIG)) #CkÙjIHó‘hBIÐ@AIÐÈÐÈÍ¿IkÔY°èNIL NIL () \BLKEXPONENT.UFN :D8 (L (2 CNT 1 DEST 0 SOURCE)) *BkÙjIHó‘hAIÐ@IàÐdÈýÈÑíÊÍ¿IkÔY°áNIL NIL () \BLKFLOATP2COMP.UFN :D8 (L (2 CNT 1 DEST 0 SOURCE)) -BkÙjIHó‘hAIààÐZ@IàÐdÈýÈÑοJhοIkÔY°ÞNIL NIL () \BLKSMALLP2FLOAT.UFN :D8 (L (2 CNT 1 DEST 0 SOURCE)) "BkÙjIHó‘hAIàÐ@IÐÈíοIkÔY°éNIL NIL () \BLKMAG.UFN :D8 (L (2 CNT 1 MAGNITUDE-ARRAY 0 COMPLEX-ARRAY)) KBkÙjhdIHó‘hIàà¼@LÐdÈýÈѺ@LlØÐdÈýÈÑ»AIàÐJíJíêKíKíêèíοIkÔY°ÂNIL NIL () \FLOATTOBYTE.UFN :D8 (L (2 CNT 1 DBASE 0 SBASE)) dBâkÙjIHó‘hAIÐoo@IààÐdÈýÈÑí áoo@lIààØÐdÈýÈÑí äÍ¿IkÔY°¨(88 FMIN 83 FMAX 50 FMIN 45 FMAX) NIL ( 61 0.0 56 255.0 26 0.0 21 255.0) \BLKFMAX.UFN :D8 (L (2 CNT 1 ZERO 0 BASE)) Dj@dÈýÈÑí"BkÙj»ºKJó‘HI@KdØÐdÈýÈÑíó³K¸@HdØÐdÈýÈÑí¹KkÔ[°ÔNIL NIL () \BLKFMIN.UFN :D8 (L (2 CNT 1 ZERO 0 BASE)) Ej@dÈýÈÑí"BkÙj»ºKJó‘HI@KdØÐdÈýÈÑíýó³K¸@HdØÐdÈýÈÑí¹KkÔ[°ÓNIL NIL () \BLKFABSMAX.UFN :D8 (L (2 CNT 1 ZERO 0 BASE)) Hj@dÈýÈÑí"BkÙj»ºKJó‘HI@KdØÐdÈýÈÑííó³K¸@HdØÐdÈýÈÑíí¹KkÔ[°ÐNIL NIL () \BLKFABSMIN.UFN :D8 (L (2 CNT 1 ZERO 0 BASE)) Ij@dÈýÈÑí"BkÙj»ºKJó‘HI@KdØÐdÈýÈÑííýó³K¸@HdØÐdÈýÈÑíí¹KkÔ[°ÏNIL NIL () \P-MISC2.UFN :D8 (L (2 ALPHA 1 ARG2 0 ARG1)) Bjð—@A oB (22 RAID 10 \GET-NEXT-RUN) NIL ( 16 "Illegal op to \P-MISC2.UFN --") \LINES-EQUAL-P :D8 (L (2 WORDS-PER-RASTER 1 CURRENT-LINE 0 LAST-LINE)) BjHIó¡i@IÐÈAIÐÈð¡hIkÔ¹°èNIL NIL () \GET-NEXT-RUN :D8 (L (1 MAX 0 START)) VAjð›oA ¿kj"IkÔ@IÐÈ»ZAð™Hkð²j¸A°K@JÐÈð˜HkÔ¸JkÔ°ãHkó¡J¹IdAð¦¿Hkó²ÉIlçHÔ(14 CL:ERROR) NIL ( 8 "Max must be > 0: ~s") IBLT1 :D8 (L (7 Kount 6 ValWidth 5 ValHeight 4 BitmapWidth 3 BitmapAddr 2 XCoord 1 TextureArray 0 ValueArray)) @CQjGkÙ½¼LMó‘hA@MÐÈÐȹEk»ºKJó³HBFI ¿HDиKkÔ[°êMmÿÔ½°Î(44 \PUTBASEBITS) NIL () IBLT2 :D8 (L (7 Kount 6 ValWidth 5 ValHeight 4 BitmapWidth 3 BitmapAddr 2 XCoord 1 TextureArray 0 ValueArray)) @CQjGkÙ½¼LMó‘hA@MÐÈÐȹEk»ºKJó³HBFI ¿HDиKkÔ[°êMmþÔ½°Î(44 \PUTBASEBITS) NIL () (PRETTYCOMPRINT DMISCCOMS) (RPAQQ DMISCCOMS ((COMS (FNS BACKSPACEDEL) (DECLARE%: DOCOPY DONTEVAL@LOAD (P (BACKSPACEDEL \ORIGTERMTABLE) (BACKSPACEDEL NIL)))) (COMS (FNS PERIODICALLYRECLAIM) (DECLARE%: DONTEVAL@LOAD DOCOPY (INITVARS (RECLAIMWAIT 4) (\LASTRECLAIM (\DAYTIME0 (NCREATE (QUOTE FIXP))))) (APPENDVARS ( BACKGROUNDFNS PERIODICALLYRECLAIM) (\SYSTEMTIMERVARS (\LASTRECLAIM SECONDS))))) (COMS (FNS \DIRTYBACKGROUND \SAVEVMBACKGROUND COPYVM) (INITVARS (BACKGROUNDPAGEMIN 40) (BACKGROUNDPAGECNT 0) ( BACKGROUNDPAGEFREQ 4)) (INITVARS (SAVINGCURSOR) (SAVEVMMAX 600) (SAVEVMWAIT 300)) (ADDVARS ( BACKGROUNDFNS \DIRTYBACKGROUND) (TTYBACKGROUNDFNS \SAVEVMBACKGROUND)) (GLOBALVARS BACKGROUNDPAGEMIN BACKGROUNDPAGEFREQ BACKGROUNDPAGECNT)) (COMS (* ; "Setting the time") (FNS SETTIME)) (COMS (FNS RINGBELLS FLASHWINDOW PLAYTUNE) (DECLARE%: EVAL@COMPILE DONTCOPY (RESOURCES \PlayTimer)) ( INITRESOURCES \PlayTimer) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; "Overrides definition in the shared MISC") (P (MOVD (QUOTE RINGBELLS) (QUOTE PRINTBELLS))))) (COMS (* ; "Changing display") (FNS DISPLAYDOWN SETDISPLAYHEIGHT VIDEORATE) (INITVARS (\VIDEORATE (QUOTE NORMAL ))) (DECLARE%: DONTEVAL@LOAD DOCOPY (ADDVARS (BREAKRESETFORMS (SETDISPLAYHEIGHT T)) (RESETFORMS ( SETDISPLAYHEIGHT T))))) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (%#EOLCHARS 1)) (P (OR (LISTP (EVALV ( QUOTE EDITCHARACTERS))) (RPAQ EDITCHARACTERS (QUOTE (J X Z Y N))))) (ADDVARS (POSTGREETFORMS (CNDIR)) (LISPUSERSDIRECTORIES))) (INITVARS (CLEANUPOPTIONS (QUOTE (RC)))) (COMS (FNS DOAROUNDEXITFORMS) ( ADDVARS (AROUNDEXITFNS DOAROUNDEXITFORMS) (BEFORELOGOUTFORMS) (AFTERLOGOUTFORMS))) (DECLARE%: DONTEVAL@LOAD DOCOPY (INITVARS (ADVISEDFNS))) (COMS (* ; "Versions") (FNS REALMEMORYSIZE LISPVERSION MICROCODEVERSION BCPLVERSION REQUIREVERSION)) (COMS (* ; "Interlisp's apropos") (FNS APROPOS APROPRINT )) (COMS (* ; "Misc ops") (FNS READPRINTERPORT WRITEPRINTERPORT \READPRINTERPORT.UFN \WRITEPRINTERPORT.UFN \MISC1.UFN \MISC2.UFN \MISC3.UFN \MISC4.UFN \MISC5.UFN \MISC6.UFN \MISC7.UFN \MISC8.UFN \MISC10.UFN) (* ; "sub-functions of floating-point ufns") (FNS \BLKFDIFF.UFN \BLKFPLUS.UFN \BLKFTIMES.UFN \BLKSEP.UFN \BLKPERM.UFN \BLKEXPONENT.UFN \BLKFLOATP2COMP.UFN \BLKSMALLP2FLOAT.UFN \BLKMAG.UFN \FLOATTOBYTE.UFN \BLKFMAX.UFN \BLKFMIN.UFN \BLKFABSMAX.UFN \BLKFABSMIN.UFN) (* ; "functions for the 4045") (FNS \P-MISC2.UFN \LINES-EQUAL-P \GET-NEXT-RUN) (FNS IBLT1 IBLT2)) (VARS RINGBELLS.L1 RINGBELLS.L2) (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (BACKSPACEDEL \ORIGTERMTABLE) (BACKSPACEDEL NIL) (RPAQ? RECLAIMWAIT 4) (RPAQ? \LASTRECLAIM (\DAYTIME0 (NCREATE (QUOTE FIXP)))) (APPENDTOVAR BACKGROUNDFNS PERIODICALLYRECLAIM) (APPENDTOVAR \SYSTEMTIMERVARS (\LASTRECLAIM SECONDS)) (RPAQ? BACKGROUNDPAGEMIN 40) (RPAQ? BACKGROUNDPAGECNT 0) (RPAQ? BACKGROUNDPAGEFREQ 4) (RPAQ? SAVINGCURSOR) (RPAQ? SAVEVMMAX 600) (RPAQ? SAVEVMWAIT 300) (ADDTOVAR BACKGROUNDFNS \DIRTYBACKGROUND) (ADDTOVAR TTYBACKGROUNDFNS \SAVEVMBACKGROUND) (/SETTOPVAL (QUOTE \\PlayTimer.GLOBALRESOURCE) NIL) (MOVD (QUOTE RINGBELLS) (QUOTE PRINTBELLS)) (RPAQ? \VIDEORATE (QUOTE NORMAL)) (ADDTOVAR BREAKRESETFORMS (SETDISPLAYHEIGHT T)) (ADDTOVAR RESETFORMS (SETDISPLAYHEIGHT T)) (RPAQQ %#EOLCHARS 1) (OR (LISTP (EVALV (QUOTE EDITCHARACTERS))) (RPAQ EDITCHARACTERS (QUOTE (J X Z Y N)))) (ADDTOVAR POSTGREETFORMS (CNDIR)) (ADDTOVAR LISPUSERSDIRECTORIES) (RPAQ? CLEANUPOPTIONS (QUOTE (RC))) (ADDTOVAR AROUNDEXITFNS DOAROUNDEXITFORMS) (ADDTOVAR BEFORELOGOUTFORMS) (ADDTOVAR AFTERLOGOUTFORMS) (RPAQ? ADVISEDFNS) (RPAQQ RINGBELLS.L1 ((1000 . 1000) (800 . 1000) (600 . 1000) (500 . 1000) (400 . 1000) (NIL . 500) ( 440 . 1000) (484 . 1000) (540 . 1000) (600 . 1000))) (RPAQQ RINGBELLS.L2 ((2000 . 1000) (1600 . 1000) (1200 . 1000) (1000 . 1000) (800 . 1000) (NIL . 500) (880 . 1000) (968 . 1000) (1080 . 1000) (1188 . 1000))) (PUTPROPS DMISC COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1989 1990) ) NIL