PROMPTREMINDERS--tobeperiodicallyremindedofthingsFile:PromptReminders.ttyRevised:Feb21,1983,andApr15,1984,byJonLWhiteOnemaywanttobeperiodically"reminded"ofimportantthingsbyamessagewhichisaggressively"winked"and"flashed"inapromptwindow(oronprimaryoutputforsystemswithoutbitmapdisplay,suchasInterlisp-10andInterlisp/VAX).Itwilldesistthewink/flash"hassling"onlyafterithasbeenacknowledgedbyuserresponse,orafterapre-setintervalof"hassling"timehaselapsed.SuchisimplementedusinganInterlisp-Dbackgroundprocess(orforthenon-Interlisp-Dsystems,thefacilityofPROMPTCHARFORMS).IftheMESSAGEgivenforthereminder(seedescriptionofthefunctionSETREMINDERbelow)isalistp,thenwhenthereminder"goesoff",thatlistpwillbeEVAL'dratherthananyofthe"winking","flashing",or"hassling"mentionedabove.InInterlisp-D,theglobalvariableREMINDERSTREAMholdsthewindow(or,indeed,stream!)thatthe"winking/flashing"istooccur;ifnotsetbytheuser,itwilldefaulttoPROMPTWINDOW.Afterthe"hassling"hascompleted,thewindow(ifindeedREMINDERSTREAMholdsawindow)willbeclosed,dependingonthevalueofCLOSEREMINDERSTREAMFLG.REMINDERSisafilepkgtype,sothattheymaybeeasilysavedonfiles,andsothatthegeneraltyped-definitionfacilitiesmaybeused.OnanyfilewhichusestheREMINDERSfilepkgcom,itisadvisabletoprecedethiscommandwithacommand(FILES(SYSLOADCOMPILEDFROMLISPUSERS)PROMPTREMINDERS)sincethispackageisnotintheinitialLisploadup.Wheninitiallydefiningareminder,itispreferablefortheusertocallSETREMINDERratherthanPUTDEF;butHASDEFistheacceptedwaytoaskifsomenamecurrentlydefinesa"reminder",andDELDEFistheacceptedwaytocancelanexisting"reminder".Inthefirstexamplebelow,theuserwantstoberemindedevery30minutesthatheoughttobeusingMAKEFILEtosavehiswork;inthesecondexample,hemerelywantstobetoldonce,atprecisely4:00PMtocallhome;inthethird,hemerelychecksevery10minutestoseeifthereisaprocesscalledLISTFILES.Examples:(SETREMINDERNIL(ITIMES3060)"HaveyouMADEFILErecently?")(SETREMINDER'WOOFNIL"Don'tforgettoinformwifeofdinnerplans.""8-Jan-834:00PM")(SETREMINDERNIL600'(PROGN(AND(FIND.PROCESS'LISTFILES)(addFREQ1))(addTOTAL1)))Functions:(SETREMINDERNAMEPERIODMESSAGEINITIALDELAYEXPIRATION)Thiswillcreateandinstalla"reminder"withthenameNAME(NILgivenforanamewillbereplacedbyagensym),whichwillbeexecutedeveryPERIODnumberofsecondsbywinkingthestringMESSAGEintothepromptwindow;ifMESSAGEisnull,thenNAMEiswinked;ifMESSAGEisalistp,thenitisEVAL'dandno"winking"takesplace."Winking"meansalternatelyprintingthemessageandclearingthewindowinwhichitwasprinted,ataratedesignedtoattracttheeye'sattention.ThefirstsuchexecutionwilloccuratPERIODsecondsafterpН ЙОc/Н ЙОb6qН ПОb6Н ЙО`чНаН≤Н oНFННТНкН╒НН!≈Н$Н&║Н1▄Н9Н;═Н@╟О`чН ЙО_├Н ПО_├Н ЙО^.НЮНжН.О^.Н ЙО\жНyНжН2Н▌Н ≤Н#ТН'PН*╛Н/ІН2;Н6nН:їО\жН ЙО[~Н ПО[~Н ЙОZ&Н ПОZ&Н ЙОXнНаН≤Н oНFН╒НЧН1НІН;Н)& Н2cН4ХН=NНC/НEЄНE╨ОXнН ЙОWvН≤НPНZНъН%йН-YН0╣Н9Н;═Н=NНC/НC5ОWvН ЙОVНкН'Н╛НdН#EН&║Н-YН4Н9РНA│НEЄНE╨ОVН ЙОTфН oНZНІН)&Н)ЩН*тН-YН1▄Н7mН:и НDНDОTфН ЙОSn Н'НZНdНИН#EН'xН2cН4ХН9НA│НDНDОSnН ЙОRНТН╒НZНИН"n Н+╚Н/чН3:Н:иН;═Н?сНBXНB^ОRН ЙОPЎ НЧНН█ Н&║ Н/чН6√Н9РН=NН@╙НDОPЎН ЙОOf НЧН█НИН'xН)ЩН8JОOfН ЙОNН ПОNН ЙОLІНаН≤Н oНFНкН'НъНИН#EН&║Н.0Н2c НЭНBXНB^ОLІН ЙОK^Нy Н█Н"nН$СН&║Н,┌Н0╣Н4ХН8DН?сН?ыОK^Н ЙОJНТНЧН1Н;Н"nН$СН*тН+╚Н1▄Н5©Н9Н;═Н>Э НGhОJН ЙОHў НЧН┐ Н юН)&Н.6ОHўН ЙОGVН ПОGVН ЙОEЧНаН≤Н oНFНкНІНН$СН,┌ Н9Н>%НA│НGbНGhОEЧН ЙОDіННуНdН!≈Н$СН4ХН7mН9РН?сНBXНDЦОDіН ЙОCNНFНкН'Н1НІНИН&║Н)&Н4ХН5©Н:иН>% НF▒ОCNН ЙОAЖНF Н┐НъН юН$Н)Щ Н6√Н;═Н=NНDНGhОAЖН ЙО@·Н oН'Н█НН"nН'xН)ЩН=TО@·Н ЙО?FН ПО?FН ЙО=ННаН≤Н oНFН╛Н1НъН!≈Н&║Н)&Н-YН1▄Н4ХН7mН=NНBXНDщНDЦО=НН ЙО<√НкН'Н╛НъН;Н$СН3: НН oНкНЧНН;Н!≈Н)Щ Н4Н6√Н9НA│НDНDО;>Н ЙО9ФН╒НуН█Н юН"nН#EН),О9ФН ЙО8▌НаН≤Н oНFН'НІН#EН'x Н0╣Н>ЭН?О8▌Н ЙО76НТН'НъНdН юН#EН&║Н-YН1▄Н8DН9Н9РН>%НF▀НF▒О76Н ЙО5чНyН'Н█НН!≈ Н*тН.0Н1▄Н5©Н8DНЭНC/НGbНGhО4├Н ЙО3.НPННІ Н%йН)&Н/Н1▄Н4ХНЭНDНF▀НF▒О/&Н ЙО-нН╒НуНZНdНИН"nН'xН/Н1▄Н5©Н9Н>%Н>ЭНA│НDщНDЦО-нН ЙО,vНкНZНъН юН%йН(OН*тН/Н4Н6√Н>ЭНDщНGbНGhО,vН ЙО+НН'НЧН┐НъН юН#EН)&Н/Н4Н6√Н=NН?сНC/НEЄНE╨О+Н ЙО)фНТНyН'НъН ю Н)ЩН*тН+╚Н,┌Н4О)фН ЙО(nН ПО(nН ЙО'НаН≤Н oНFН1Н█Н#EН%йН)&Н.0Н1▄Н9 НB^О'Н ЙО%ЎН ПО%ЎН ЙО$fНаН≤Н oНFН1Н;Н!≈Н'xН-YН/чН5©Н9РН%Н@╟ОН ЙОўНаН≤Н oНFННТНкН╒НyНPН'НЧНуН╛Н┐НZН1ННъНІНИН$СН(UОўН ЙОVН ПОVН ЙОЧН ПОЧН ЙОіН ПОіН ЙОNН ПОNН ЙОЖНаН≤Н oНFННТНкН╒НyНPН'НЧНуН╛Н┐НZН1ННъНІН█НdН;ННИН юН!≈Н"n Н+╚Н+╠ОЖН ЙО·Н ПО·Н ЙОFНаН≤Н oНFН1НdН#EН)ЩН4Х Н>+ОFН ЙОННаН≤Н oНFННТНкН╒НyНPН'НЧН1НdН#EН&║Н-YН/ Н8DН%НC/НGbНGhО√Н ЙО>НаН≤Н oНFННТНкН╒Н'НІН юН&║Н,┌Н/Н5©Н8DН>ЭНBXНGhО>Н ЙОФНаН≤Н oНFННТНкН╒НZН█НИН%йН,┌Н/Н5©Н8DН=NНA│НEЄНGhОФН ЙО ▌НаН≤Н oНFННТНкН╒НZНъН!≈Н$Н%йН+╚Н/чН2cН4ХН:иН>%Н@╙НH?О ▌Н ЙО6НаН≤Н oНFННТНкН╒Н╛Н█НdН%йН*т Н4ХН's).Returnsthename(noteabovewhenNILissuppliedforthename).(ACTIVEREMINDERNAMES)Noarguments;self-explanatory.(REMINDER.NEXTREMINDDATENAME)Returnsthetime(inGDATEformat)atwhichthenextremindingfromthenamedreminderwilloccur;NILifNAMEisn'taREMINDERS.(REMINDER.NEXTREMINDDATENAMEDate/Time.string)Setsthetimeatwhichthereminderisnexttobeexecuted.(REMINDER.EXPIRATIONDATENAME)Returnsthetime(inGDATEformat)atwhichthereminderwillbeautomaticallydeleted.(REMINDER.EXPIRATIONDATENAMEDate/Time.string)Setstheexpirationtime.(INSPECTREMINDERNAME)InInterlisp-D,thiswillcallINSPECTonthedefinitionofthenamedreminder;inothersystems,itmerelycallsSHOWDEF.FunctioninInterlisp-Donly:(UNTILKEYDOWNPFNINTERVAL.SECSDURATION.SECSsubCycleDuration.secssubCycleFN)ForaperiodofuptoDURATION.SECSseconds,thefunctionFNwillbe"run"(i.e.,appliedtonoarguments)everyINTERVAL.SECSseconds;bothofthesetimedurationsmaybefloatp's,andhencespecifyfractionalpartsofasecond.Theprocessisstoppedwheneverthereisanychangeinthestateofthekeyboard;exceptthatCTRL,LOCK,LSHIFT,RSHIFT,andLEFTandRIGHT(towofthethreemousebuttons)don'tcount.ThefunctionFN,ofcourse,maysave"state"inordertododifferentthingscyclicallyonthevarious"runnings".Butacommonstructureistohaveamajorcycleandaminorcycleforwhichsomeactivityistobeperformed.Thetwooptionalarguments,subCycleDuration.secsandsubCycleFN,allowforthissecondfunctiontobe"run"attheendofthesubCycledurationН ЙОc8Н ЙОb6qНаН≤Н oНFННТНкН╒НЧН1НІ Н%йН+╚Н6√Н9Н@╙НC/НGhОb6Н ЙО`чНаН≤Н oНFННТНкН╒НуНН;Н"nН$СН)ЩН+╚Н/чН4ХН8DНC/НDЦО`чН ЙО_├НаН≤Н oНFННТНкН╒ НІН;Н юН&║Н)&Н/чН4Н7mН;═Н>%НA│НEЄНH9НH?О_├Н ЙО^.НаН≤Н oНFННТНкН╒Н█НИН!≈Н(OН-YН/чН2cН9РНBXНH?О^.Н ЙО\жНаН≤Н oНFННТНкН╒НyНPН'НЧН┐НdНИН$СН)&Н,┌Н4Н6√Н9Н;═Н>ЭНF▒О\жН ЙО[~НаН≤Н oНFННТНкН╒Н╛Н┐Н Н#EН%йН.0Н2cН4Н8DН=NНA│НEЄНE╨О[~Н ЙОZ&НаН≤Н oНFННТНкН╒Н┐НН юН%йН)&Н.0 Н7mН:иН?сНDНE╨ОZ&Н ЙОXнНаН≤Н oНFННТНкН╒Н1ННІН"nН'xН)&Н/чН8DН:иН?сНBXНGhОXнН ЙОWvНаН≤Н oНFННТНкН╒НЧНОWvН ЙОVНаН≤Н oНFННТНкН╒НyНPН'НЧН█НИН#EН&║Н/Н/чН2cН8DНGbНH9НH?ОVН ЙОTфНаН≤Н oНFННТНкН╒НЧН"nН$СН*тН.0Н0╣Н4ХН8DН>%Н@╙НDщНIГНIМОTфН ЙОSnНаН≤Н oНFННТНкН╒Н'Н┐Н█НН"n Н+╚Н0╣Н4Н7mН=NН?сНDНIНIОSnН ЙОRНаН≤Н oНFННТНкН╒НZН; Н'xН)&Н0╣Н1▄Н4ХНF▀НF▒ОRН ЙОPЎНаН≤Н oНFННТНкН╒Н┐НІН#EН&║Н5©НЭНA│НDщНDЦОNН ЙОLІНаН≤Н oНFННТНкН╒НН;Н юН%йН)&Н+╚Н2cН5©Н:и НDНDщНDЦОLІН ЙОK^НаН≤Н oНFННТНкН╒ НъНН"nН)&Н,┌Н4Н4ХН7mН;═Н>ЭНC/НF▀НF▒ОK^Н ЙОJНаН≤Н oНFННТНкН╒Н┐НИН"nН*тН/чН2cН8DН;═НC/НGbНGhОJН ЙОHўНаН≤Н oНFННТНкН╒Н╛Н$Н*тН3:Н6√Н;═Н>%НA│НGbНGhОHўН ЙОGVНаН≤Н oНFННТНкН╒Н1Н4ХН9РНЭНC/НC/ОDіН ЙОCNНPНVОCNН ЙОAЖНаН≤Н oНFННТНкН╒Н1Нd Н&║Н.0Н2cН6√Н;═Н?с НH?ОAЖН ЙО@·Н ПО@·Н ЙО?FНаН≤Н oНFННТНкН╒НyНPН'НЧНІНН#EН(OН-YН1▄Н4ХН7mН>ЭНBXНEЄНE╨О?FН ЙО=ННаН≤Н oНFННТНкН╒Н╡О=НН ЙО<√Н ПО<√Н ЙО;>Н ПО;>Н ЙО9ФНаН≤Н oНFН юН фО9ФН ЙО8▌НаН≤Н oНFННТНкН╒НyНPН'НЧН┐ Н юН/ О8▌Н ЙО76Н ПО76Н ЙО5чНаН≤Н oНFН#EН'~О5чН ЙО4├НаН≤Н oНFННТНкН╒НyНPН'НЧНІНН#EН&║Н+╚Н2cН4ХН9РН=NНA│НIГНIМО4├Н ЙО3.НаН≤Н oНFННТНкН╒НуН1Н;Н%йН)ЩН/чН3:Н5©Н9РН>ЭН@╙ НIО3.Н ЙО1жНаН≤Н oНFН#EН'xН5еО1жН ЙО0~НаН≤Н oНFННТНкН╒НyНPН'НЧН1Н█Н юН#EН(OН+╚Н3:Н5©Н9РНЭНF▒О0~Н ЙО/&Н ПО/&Н ЙО-нНаН≤Н oНFН#EН'~О-нН ЙО,vНаН≤Н oНFННТНкН╒НyНPН'НЧНІНН#EН&║Н+╚Н2cН4ХН9РН=NНDщНIНIО,vН ЙО+НаН≤Н oНFННТНкН╒Н'НИН&їО+Н ЙО)фНаН≤Н oНFН#EН'xН5еО)фН ЙО(nНаН≤Н oНFННТНкН╒НyНPН'НЧН1Н█ Н%йН*О(nН ЙО'Н ПО'Н ЙО%ЎНаН≤Н oНFН█Н фО%ЎН ЙО$fНаН≤Н oНFННТНкН╒НyНPН'НЧН┐Н"nН&║Н*тН/Н5©Н8DН;═ НDщНGbНGhО$fН ЙО#НаН≤Н oНFННТНкН╒НЧНН"nН$СН)ЩН1▄Н4Н9РН>ЭНE╨О#Н ЙО!ІН ПО!ІН ЙО ^Н ПО ^Н ЙОН ПОН ЙОўНаН≤Н oНFННТНкН╒НyНPН'НЧНуН╛Н┐НZН1НН!≈Н$ Н.0Н2iОўН ЙОVН ПОVН ЙОЧНаН≤Н oНF НъНdН)&Н4ХН4НОЧН ЙОіНаН≤Н oНFННТНкН╒НyНPН'НЧНуН╛Н┐НZН1ННъНІН█НdН;ННИН юН!≈Н"nН#EН$Н$СН%йН&║Н'xН(OН)&Н;═ НDЦОіН ЙОNНаН≤Н oНFННТНкН╒НyНPН'НЧНZННИН"nН$СН'xН3:Н:иН>%НEЄНH9НH?ОNН ЙОЖНаН≤Н oНFННТНкН╒НуНZНdН#EН)ЩН,┌Н/ Н8DН=NНIНIОЖН ЙО·НаН≤Н oНFННТНкН╒Н1НdНИН$СН)&Н1▄Н4ХН7mН?сНC/НH9НH?О·Н ЙОFНаН≤Н oНFННТНкН╒НZ Н!≈Н&║Н)&Н*тН1▄Н2cН5©НЭНEЄНE╨ОFН ЙОННаН≤Н oНFННТНкН╒Н1Н;Н юН$Н)ЩН,┌Н/чН4ХН7mН:иНC/НIНIОНН ЙО√НаН≤Н oНFННТНкН╒НуНъНИН&║Н-YН0╣Н4ХН8DН=NНA│НDНGbНGhО√Н ЙО>НаН≤Н oНFННТНкН╒Н╛НІН#EН(OН-_О>Н ЙОФНаН≤Н oНFННТНкН╒НyНPН'НЧНZНИН#EН%йН,┌Н/чН4Н:иН=NНBXНDщНGbНGhОФН ЙО ▌НаН≤Н oНFННТНкН╒ННИ Н)&Н+╚Н/Н5© Н?сН@╙НDНEЄНE╨О ▌Н ЙО6НаН≤Н oНFННТНкН╒Н┐НИН"nН$СН)&Н*тН/чН4ХН8DН9РН>ЭНDНGbНGhО6Н ЙО чНаН≤Н oНFННТНкН╒Н╛НъН"nН$СН'xН)Щ Н3:Н4Н7mН:иНBXНB^О чН ЙО ├НаН≤Н oНFННТНкН╒ НъН-YН0╣ Н:иН?сНC/НGbНGhО ├Н ЙО.НаН≤Н oНFННТНкН╒Н┐НН!≈Н$Н)&Н+╚Н/Н2cН4ХН8DН?сНGbНGhО. 9 Йq?─[гPtime.Forexample,INTERVAL.SECSmaybe0.5inordertocausea"winking"ofamessageinthePROMPTWINDOWeverysecondorso,andsubCycleDuration.secsmaybe10.0inordertocausea"flashing"ofthewholescreenevery10secondsorso.Inthiscase,themajorcycleisthe"fastratewinking"everysecond,whereastheminorcycleisthe"slowrateflashing"every10secs.Н ЙОc8Н ЙОb6qНаН≤Н oНFННТНкН╒Н╛Н┐Н┴Оb6Н ЙО`чНаН≤Н oНFННТНкН╒НyНPН'НЧНZНИН+╚Н/Н1▄Н4ХН7mНЭНDНEЄНE╨О`чН ЙО_├НаН≤Н oНFННТНкН╒НН█Н;Н$СН'xН*тН5©Н:иН@╙НC/НF▀НIГНIМО_├Н ЙО^.НаН≤Н oНFННТНкН╒Н$Н'xН)ЩН.0Н0╣Н5©Н8DН=NН>Э НH9НH?О^.Н ЙО\жНаН≤Н oНFННТНкН╒Н'Н┐Н█Н"nН'xН)ЩН0╣Н3:Н6√Н7mН9РН>%НC/НF▀НF▒О\жН ЙО[~НаН≤Н oНFННТНкН╒Н╛НІН;Н!≈Н&║Н*тН2cН7mН>%НDщНH9НH?О[~Н ЙОZ&НаН≤Н oНFННТНкН╒Н╛НІН;Н!≈Н&║Н*тН3:Н8DН:иН?ОZ&6 Йq?─[г~GACHA ~GACHA Y▓Gъj/ЪЪ°╘юxЪЪЪЪЪЪ){PHYLUM}PROMPTREMINDERS.TTY;12JONL.PA15-Apr-84 14:55:14