From 21ceff5ad921d28f28d6c60adeb85f40bdbce884 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Tue, 18 Apr 2023 15:21:35 -0700 Subject: [PATCH] add internal/MAINTAIN.TXT to explain what MAINTAIN is --- internal/MAINTAIN.TXT | 2 ++ sources/DMISC | 57 +++++++++++++++++++++--------------------- sources/DMISC.LCOM | Bin 17796 -> 17712 bytes 3 files changed, 30 insertions(+), 29 deletions(-) create mode 100644 internal/MAINTAIN.TXT diff --git a/internal/MAINTAIN.TXT b/internal/MAINTAIN.TXT new file mode 100644 index 00000000..aa6ccee7 --- /dev/null +++ b/internal/MAINTAIN.TXT @@ -0,0 +1,2 @@ +MAINTAIN -- Network access to the PUP "Grapevine" server, which did + email, distribution lists. Written ~1985 mainly by Bill van Melle. diff --git a/sources/DMISC b/sources/DMISC index ebf93839..3d263a27 100644 --- a/sources/DMISC +++ b/sources/DMISC @@ -1,11 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 6-Jan-2022 19:08:15" {DSK}kaplan>Local>medley3.5>my-medley>sources>DMISC.;3 45512 +(FILECREATED " 8-Apr-2023 13:56:13" {DSK}larry>il>medley>sources>DMISC.;2 45464 - :CHANGES-TO (FNS FLASHWINDOW) + :EDIT-BY "lmm" - :PREVIOUS-DATE "16-May-90 15:53:57" -{DSK}kaplan>Local>medley3.5>my-medley>sources>DMISC.;1) + :CHANGES-TO (FNS RINGBELLS) + + :PREVIOUS-DATE " 6-Jan-2022 19:08:15" {DSK}larry>il>medley>sources>DMISC.;1) (* ; " @@ -216,16 +217,14 @@ with the terms of said license. (DEFINEQ (RINGBELLS - [LAMBDA (N) (* ; "Edited 10-May-88 23:01 by MASINTER") + [LAMBDA (N) (* ; "Edited 8-Apr-2023 13:30 by lmm") + (* ; "Edited 10-May-88 23:01 by MASINTER") (DECLARE (GLOBALVARS RINGBELLS.L1 RINGBELLS.L2)) (OR (FIXP N) (SETQ N 1)) - (SELECTC \MACHINETYPE - ((LIST \DAYBREAK \DANDELION \MAIKO) - (to N do (PLAYTUNE RINGBELLS.L1) - (FLASHWINDOW NIL NIL 100) - (PLAYTUNE RINGBELLS.L2))) - (FLASHWINDOW NIL N]) + (to N do (PLAYTUNE RINGBELLS.L1) + (FLASHWINDOW NIL NIL 100) + (PLAYTUNE RINGBELLS.L2]) (FLASHWINDOW [LAMBDA (WIN? N FLASHINTERVAL SHADE) (* ; "Edited 6-Jan-2022 19:08 by rmk") @@ -951,22 +950,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 (4732 5435 (BACKSPACEDEL 4742 . 5433)) (5530 5963 (PERIODICALLYRECLAIM 5540 . 5961)) ( +6193 7884 (\DIRTYBACKGROUND 6203 . 6625) (\SAVEVMBACKGROUND 6627 . 7411) (COPYVM 7413 . 7882)) (8305 +9504 (SETTIME 8315 . 9502)) (9505 13503 (RINGBELLS 9515 . 9975) (FLASHWINDOW 9977 . 11905) (PLAYTUNE +11907 . 13501)) (13765 19297 (DISPLAYDOWN 13775 . 14163) (SETDISPLAYHEIGHT 14165 . 16965) (VIDEORATE +16967 . 19295)) (19721 20442 (DOAROUNDEXITFORMS 19731 . 20440)) (20645 22360 (REALMEMORYSIZE 20655 . +20813) (LISPVERSION 20815 . 20968) (MICROCODEVERSION 20970 . 21128) (BCPLVERSION 21130 . 21283) ( +REQUIREVERSION 21285 . 22358)) (22397 26975 (APROPOS 22407 . 26423) (APROPRINT 26425 . 26973)) (27001 +30909 (READPRINTERPORT 27011 . 27152) (WRITEPRINTERPORT 27154 . 27309) (\READPRINTERPORT.UFN 27311 . +27500) (\WRITEPRINTERPORT.UFN 27502 . 27700) (\MISC1.UFN 27702 . 27855) (\MISC2.UFN 27857 . 28095) ( +\MISC3.UFN 28097 . 28830) (\MISC4.UFN 28832 . 29382) (\MISC5.UFN 29384 . 29537) (\MISC6.UFN 29539 . +29789) (\MISC7.UFN 29791 . 30276) (\MISC8.UFN 30278 . 30579) (\MISC10.UFN 30581 . 30907)) (30963 38412 + (\BLKFDIFF.UFN 30973 . 31538) (\BLKFPLUS.UFN 31540 . 32112) (\BLKFTIMES.UFN 32114 . 32689) ( +\BLKSEP.UFN 32691 . 33822) (\BLKPERM.UFN 33824 . 34293) (\BLKEXPONENT.UFN 34295 . 34705) ( +\BLKFLOATP2COMP.UFN 34707 . 35291) (\BLKSMALLP2FLOAT.UFN 35293 . 35652) (\BLKMAG.UFN 35654 . 36305) ( +\FLOATTOBYTE.UFN 36307 . 36886) (\BLKFMAX.UFN 36888 . 37280) (\BLKFMIN.UFN 37282 . 37671) ( +\BLKFABSMAX.UFN 37673 . 38042) (\BLKFABSMIN.UFN 38044 . 38410)) (38452 40270 (\P-MISC2.UFN 38462 . +38703) (\LINES-EQUAL-P 38705 . 39089) (\GET-NEXT-RUN 39091 . 40268)) (40271 44450 (IBLT1 40281 . 42283 +) (IBLT2 42285 . 44448))))) STOP diff --git a/sources/DMISC.LCOM b/sources/DMISC.LCOM index dc27968812427d18b04ea3893434af344c31c111..dd5ff41c4560f475308778dec0a1b77b531f486c 100644 GIT binary patch delta 502 zcmZ{gJx{_=6ox@3D~X$Cc+kdjyebP6_eEtNF6 zG~7IWT%Chl9Yb7QChupIP$R*$3S1_priMleR?Z%de(tWpx*`4w8g72U$PUv~unGur z4fFI54c2u5TB4w2Xr}9%SgC7ipkQcfWom3?YEE<*K?2OKIKQ+gId$SZ&dp3rPdQa0 zm>3us9gGzgXD2c2PhbFolpKx^t5R~b%p%LTj Z=