IDLE will LOGOUT instead of SAVEVM if ONLINEP (#904)

* IDLE will LOGOUT instead of SAVEVM if ONLINEP
* patched some idle hacks fora  better show
* idle.random chooses an idle program at random among those loaded

sources/DMISC

@@ -1,11 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 6-Jan-2022 19:08:15" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>DMISC.;3
 45512  
+
(FILECREATED "20-Aug-2022 14:26:31" {DSK}<home>larry>medley>sources>DMISC.;2
 45041  
 
-      :CHANGES-TO (FNS FLASHWINDOW)
+      :CHANGES-TO (FNS \SAVEVMBACKGROUND)
 
-      :PREVIOUS-DATE "16-May-90 15:53:57" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>DMISC.;1)
+      :PREVIOUS-DATE " 6-Jan-2022 19:08:15" {DSK}<home>larry>medley>sources>DMISC.;1)
 
 
 (* ; "
@@ -135,21 +134,12 @@ with the terms of said license.
         (SETQ BACKGROUNDPAGECNT BACKGROUNDPAGEFREQ])
 
 (\SAVEVMBACKGROUND

-  [LAMBDA NIL                                                (* bvm%: "14-Feb-85 23:27")
+  [LAMBDA NIL
                                                (* ; "Edited 20-Aug-2022 13:29 by lmm")

+                                                             (* bvm%: "14-Feb-85 23:27")

     (COND
-       ((AND (ILESSP \DIRTYPAGEHINT SAVEVMMAX)
-             (NEQ (fetch
 (IFPAGE Key) of
 \InterfacePage)
-                  \IFPValidKey)
-             (FIXP SAVEVMWAIT)
+       ((AND (FIXP SAVEVMWAIT)
              (\SECONDSCLOCKGREATERP \LASTUSERACTION SAVEVMWAIT))
-        (COND
-           ((AND (ILESSP (SETQ \DIRTYPAGEHINT (\COUNTREALPAGES 'DIRTY))
-                        SAVEVMMAX)
-                 (\FLUSHVMOK? 'SAVEVM T))         (* ; 
-                                                  "Recalculate the hint before deciding it's okay")
-            (RESETLST (AND SAVINGCURSOR (GETD 'CURSOR)
-                           (RESETSAVE (CURSOR SAVINGCURSOR)))
-                   (SAVEVM])
+        (SAVEVM])
 
 (COPYVM

   [LAMBDA (FILE)                                             (* bvm%: "12-Jan-84 12:07")
@@ -951,22 +941,22 @@ with the terms of said license.
 (PUTPROPS DMISC COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1989 1990)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4747 5450 (BACKSPACEDEL 4757 . 5448)) (5545 5978 (PERIODICALLYRECLAIM 5555 . 5976)) (
-6208 7899 (\DIRTYBACKGROUND 6218 . 6640) (\SAVEVMBACKGROUND 6642 . 7426) (COPYVM 7428 . 7897)) (8320 
-9519 (SETTIME 8330 . 9517)) (9520 13551 (RINGBELLS 9530 . 10023) (FLASHWINDOW 10025 . 11953) (PLAYTUNE
- 11955 . 13549)) (13813 19345 (DISPLAYDOWN 13823 . 14211) (SETDISPLAYHEIGHT 14213 . 17013) (VIDEORATE 
-17015 . 19343)) (19769 20490 (DOAROUNDEXITFORMS 19779 . 20488)) (20693 22408 (REALMEMORYSIZE 20703 . 
-20861) (LISPVERSION 20863 . 21016) (MICROCODEVERSION 21018 . 21176) (BCPLVERSION 21178 . 21331) (
-REQUIREVERSION 21333 . 22406)) (22445 27023 (APROPOS 22455 . 26471) (APROPRINT 26473 . 27021)) (27049 
-30957 (READPRINTERPORT 27059 . 27200) (WRITEPRINTERPORT 27202 . 27357) (\READPRINTERPORT.UFN 27359 . 
-27548) (\WRITEPRINTERPORT.UFN 27550 . 27748) (\MISC1.UFN 27750 . 27903) (\MISC2.UFN 27905 . 28143) (
-\MISC3.UFN 28145 . 28878) (\MISC4.UFN 28880 . 29430) (\MISC5.UFN 29432 . 29585) (\MISC6.UFN 29587 . 
-29837) (\MISC7.UFN 29839 . 30324) (\MISC8.UFN 30326 . 30627) (\MISC10.UFN 30629 . 30955)) (31011 38460
- (\BLKFDIFF.UFN 31021 . 31586) (\BLKFPLUS.UFN 31588 . 32160) (\BLKFTIMES.UFN 32162 . 32737) (
-\BLKSEP.UFN 32739 . 33870) (\BLKPERM.UFN 33872 . 34341) (\BLKEXPONENT.UFN 34343 . 34753) (
-\BLKFLOATP2COMP.UFN 34755 . 35339) (\BLKSMALLP2FLOAT.UFN 35341 . 35700) (\BLKMAG.UFN 35702 . 36353) (
-\FLOATTOBYTE.UFN 36355 . 36934) (\BLKFMAX.UFN 36936 . 37328) (\BLKFMIN.UFN 37330 . 37719) (
-\BLKFABSMAX.UFN 37721 . 38090) (\BLKFABSMIN.UFN 38092 . 38458)) (38500 40318 (\P-MISC2.UFN 38510 . 
-38751) (\LINES-EQUAL-P 38753 . 39137) (\GET-NEXT-RUN 39139 . 40316)) (40319 44498 (IBLT1 40329 . 42331
-) (IBLT2 42333 . 44496)))))
+  (FILEMAP (NIL (4712 5415 (BACKSPACEDEL 4722 . 5413)) (5510 5943 (PERIODICALLYRECLAIM 5520 . 5941)) (
+6173 7428 (\DIRTYBACKGROUND 6183 . 6605) (\SAVEVMBACKGROUND 6607 . 6955) (COPYVM 6957 . 7426)) (7849 
+9048 (SETTIME 7859 . 9046)) (9049 13080 (RINGBELLS 9059 . 9552) (FLASHWINDOW 9554 . 11482) (PLAYTUNE 
+11484 . 13078)) (13342 18874 (DISPLAYDOWN 13352 . 13740) (SETDISPLAYHEIGHT 13742 . 16542) (VIDEORATE 
+16544 . 18872)) (19298 20019 (DOAROUNDEXITFORMS 19308 . 20017)) (20222 21937 (REALMEMORYSIZE 20232 . 
+20390) (LISPVERSION 20392 . 20545) (MICROCODEVERSION 20547 . 20705) (BCPLVERSION 20707 . 20860) (
+REQUIREVERSION 20862 . 21935)) (21974 26552 (APROPOS 21984 . 26000) (APROPRINT 26002 . 26550)) (26578 
+30486 (READPRINTERPORT 26588 . 26729) (WRITEPRINTERPORT 26731 . 26886) (\READPRINTERPORT.UFN 26888 . 
+27077) (\WRITEPRINTERPORT.UFN 27079 . 27277) (\MISC1.UFN 27279 . 27432) (\MISC2.UFN 27434 . 27672) (
+\MISC3.UFN 27674 . 28407) (\MISC4.UFN 28409 . 28959) (\MISC5.UFN 28961 . 29114) (\MISC6.UFN 29116 . 
+29366) (\MISC7.UFN 29368 . 29853) (\MISC8.UFN 29855 . 30156) (\MISC10.UFN 30158 . 30484)) (30540 37989
+ (\BLKFDIFF.UFN 30550 . 31115) (\BLKFPLUS.UFN 31117 . 31689) (\BLKFTIMES.UFN 31691 . 32266) (
+\BLKSEP.UFN 32268 . 33399) (\BLKPERM.UFN 33401 . 33870) (\BLKEXPONENT.UFN 33872 . 34282) (
+\BLKFLOATP2COMP.UFN 34284 . 34868) (\BLKSMALLP2FLOAT.UFN 34870 . 35229) (\BLKMAG.UFN 35231 . 35882) (
+\FLOATTOBYTE.UFN 35884 . 36463) (\BLKFMAX.UFN 36465 . 36857) (\BLKFMIN.UFN 36859 . 37248) (
+\BLKFABSMAX.UFN 37250 . 37619) (\BLKFABSMIN.UFN 37621 . 37987)) (38029 39847 (\P-MISC2.UFN 38039 . 
+38280) (\LINES-EQUAL-P 38282 . 38666) (\GET-NEXT-RUN 38668 . 39845)) (39848 44027 (IBLT1 39858 . 41860
+) (IBLT2 41862 . 44025)))))
 STOP