# ô LOGGER (c) Ian Summers Oct 88 òset òof (õ:òlg:ý£ 2Ýòset H<mx%=40:Dr$=":RAM.2/LOG/":O%=18.5*3600:O$="^":ô personalisation items A*NAME LOGGER Èç Nn$ = "END" òer("Enter RUN "+a$+½225+" at '>' prompt"):à eÒñ "Log will "¤checkex(Nn$)" '"B$Dr$Nn$B$"'":è "Do you wish to change the log file name (Y/N)";an$ Üç an$ = "END" à æý an$ <> "y" € an$ <> "Y" 3ðç nn=£ new=®(Dr$+Nn$):ld$="NEW":EX%=¢#new:Ù#new 2úòss(ld$,Nn$,¤tm,AP$,AC$,¹):òls:çnn=£ „ EX%=0 á ’òze:Û:ñ"Calculating...":F=Ž(Dr$+Fn$):ñŠ0,2)"Finding end of file ";:õ:EX%=#F:è#F,TEST$:ñŠ20,2)EX%;:ýÅ#F „ TEST$="*END*":çTEST$<>"*END*"EX%=¢#F Ù#F:á Ý¤dy:dy$=‘$:=Ády$,1,©dy$-10) Y"Ý¤tm:tm$=Â‘$,8):hr%=»(Àtm$,2)):mn%= (Átm$,4,2)):sc%= (Âtm$,2)):=sc%+(mn%+(hr%*60))*60 >,Ý¤rt:t%=tm%ƒ(24*3600):hr%=t% 3600:mn%=(t%-hr%*3600) 60 6sc%=(t%-hr%*60) ƒ 60 @ç hr%<10 tm$="0" ‹ tm$="" Jtm$=tm$+Ãhr%+":" Tçmn%<10 Œ tm$=tm$+"0" ^tm$=tm$+Ãmn%+":" hçsc%<10 Œ tm$=tm$+"0" rtm$=tm$+Ãsc%:=tm$ x|Ý¤HR(tm%):hrs%=tm%3600:T$=Ã(hrs%):T$=Ä4-©T$," ")+T$+":":mn%=(tm%-hrs%*3600)/60:çmn%<10T$=T$+"0"+Ã(mn%)‹T$=T$+Ã(mn%) †=T$ €Ý¤date(dy$):p%=0:õ:p%=p%+1:ýÁdy$,p%,1)=" ":q%=p%:õ:q%=q%+1:ýÁdy$,q%,1)>"9":q%=q%-1:r%=q%+3:õ:r%=r%+1:ýÁdy$,r%,1)=" ":s%=r%+1 Ršõ:s%=s%+1:ýÁdy$,s%,1)=",":dy%=»(Ády$,p%+1,q%-p%)):mh$=Ády$,q%+4,r%-q%-4):mh%=0 }¤õ:mh%=mh%+1:ýmh$=M$(mh%):yr%=»(Ády$,r%+1,s%-r%-1))-1988:an%=yr%*365+D%(mh%-1)+dy%-1:an%=an%+yr%4:çmh%<3€yr%ƒ4=0an%=an%-1 ®=an% J¸Ýòlg:ç nn Û:ñ S$"Last session... "S$B$ld$" "tm$B$" "R$AP$R$" "B$AC$B$' ªÂõ:Û:tm$=¤rt:ñ R$S$" "st$S$R$B$ld$" "tm$B$" "R$AP$R$" "B$AC$B$Š13,1)R$S$" Menu "R$S$Š13,2)R$" B "R$" will cause a break in logging"Š13)R$" C "R$" will clear "lf$'R$S$; ÝÌñ " Log file "R$S$‰3R$" E "R$" to edit the last few entries of "lf$'‰13R$" P "R$" will print "lf$'R$S$" Time "R$S$‰7R$S$"ESC"R$S$" to start a new log"'‰13R$" Select from menu or press any other key to log change in "; -Öñ "application/activity "R$C$Š0,5)S$Fn$S$ àõ:G=¦(0):çG>0G=G €&5F fêtm%=¤tm:ñS$Š0,7)¤rt S$;:ýG>0:ñŠ0,8)C$:ç G = —("B") Œ st$="Break in... ":ñ:òlog("*BREAK*","<",£):ý£ ôçG=—("C")òclear:ý£ þçG=—("P")òpr:ý£ çG=—("E")òed:ý£ <NP$=¤new("Application ",R$+AP$+R$,9):ç NP$ = "END" Û:ý£ -NT$=¤new("Activity"+Ä5," "),B$+AC$+B$,42) &çNT$ = "END" Û:ý£ 0ç NP$ <> "" Œ AP$=NP$ :ç NT$ <> "" Œ AC$=NT$ NDç AP$="" „ AC$="" Œ Û:òer("You must enter an application and activity"):ý£ .Nst$="Logging... ":Û:òlog(AP$,AC$,fg):ý£:á ˆXÝ¤new(ty$,df$,ln%):õ:ñ 'ty$"(DEFAULT="df$") up to "ln%" characters"'Äln%+2,".")"<"a$½225Äln%+6,½8);:ènew$:ç©new$>ln%ï7:ý£ ‹ ý¹:=new$ ‡bÝòed:õ:Û:ãPN%=6¸0ˆ-1:tm%=SC%(PN%)ƒ(24*3600):ñR$" "PN%+1" "R$;:çAP$(PN%)<>""ñS$DY$(PN%)Š38)À¤rt,5)S$" "R$AP$(PN%)R$" "B$AC$(PN%)B$‹ñ ‚lí:ñR$" Enter the number to edit an entry or "a$½225" to make changes and return to main menu "R$" ";:õ:G=¥:ý§"1234567"+½13,½G) vçG=13ý¹:òRe:á Å€ñŠ0,7)‰80;:G=G-49:õ:Û:ñR$‰3S$DY$(G%)" "S$R$:tm%=SC%(G):ñR$" A "R$À¤rt,5)'R$" B "R$AP$(G)'R$" C "R$AC$(G)'R$" Which attribute of the entry do you want to change ("a$½225" for no changes) "R$" "; (Šõ:H=¥:ýH-64>0€H-64<4„H=13:çH=13ý¹:ý£ ”îH-64åt^B,dPB,dxB ˆžtm%=¤tm:ñ'R$" Currently "À¤rt,5)" "R$" How many minutes do you want to add to time (use '-' to take away) ";:è MN%:SS%=SC%(G)+MN%*60 m¨çSS%0çSS%>SC%(G-1)ñ½7R$" You cannot move the time to after that of the next entry "R$" Press a key":ç¥:ý£ y¼çG=0€SS%>¤date(¤dy+",")*24*3600+¤tm ñ½7R$" You cannot move the time to after the current time "R$" Press a key":ç¥:ý£ ÆSC%(G)=SS%:ý£ AÐNP$=¤new("New application ",R$+AP$(G)+R$,9):çNP$=""NP$=AP$(G) ÚçNP$="END"ý£ äçG=0€AP$<>""AP$=NP$ îAP$(G)=NP$:ý£ ?øNT$=¤new("New activity ",B$+AC$(G)+B$,42):çNT$=""NT$=AC$(G) çNT$="END"ý£ çG=0€AP$<>""AC$=NT$ AC$(G)=NT$:ý£:á : ÝòRe:òts(400):PO%=7:õPO%=PO%-1:çPO%=-1ý¹ ‹ýPO%(PO%)>-1 *çPO%=-1á :4CD$=DY$(PO%+1):F=(Dr$+Fn$):Ï#F=PO%(PO%):ãPN%=PO%¸0ˆ-1 >çAP$(PN%)=""åDfC HPO%(PN%)=#F 1RçDY$(PN%)<>CD$„#F=0CD$=DY$(PN%):ñ#F,DY$(PN%) -\ñ#F,Ã(SC%(PN%)):ñ#F,AP$(PN%):ñ#F,AC$(PN%) fí:EX%=#F:ñ#F,"*END*":Ù#F:á kpÝòts(sz%):Û:ñS$"Calculating..."S$;:F=®(Dr$+"Dummy"):ãDZ%=1¸sz%/2:ñ#F,"T":í:Ù#F:ÿ"*ERASE "+Dr$+"Dummy":á VzÝòlog(ap$,ac$,fg):òts(100):F=(Dr$+Fn$):ç F=0 Œ òer("Log file has dissappeared"):à „Ï#F=EX%:EP%=#F:dy$=¤dy Žç dy$<>ld$ Œ ñ#F,dy$ …˜ld$=dy$:tm%=¤date(dy$+",")*24*3600+¤tm:ñ#F,Ã(tm%):ñ#F,ap$:ñ#F,ac$:EX%=#F:ñ#F,"*END*":Ù#F:òss(dy$,Fn$,tm%,ap$,ac$,fg):ãPN%=6¸0ˆ-1 i¢DY$(PN%+1)=DY$(PN%):SC%(PN%+1)=SC%(PN%):AP$(PN%+1)=AP$(PN%):AC$(PN%+1)=AC$(PN%):PO%(PN%+1)=PO%(PN%):í <¬DY$(0)=dy$:SC%(0)=tm%:AP$(0)=ap$:AC$(0)=ac$:PO%(0)=EP%:á ¶Ýòss(dy$,Fn$,tm%,ap$,ac$,fg) Àçfg=£ ap$=AP$:ac$=AC$ ÊF=®(Dr$+"Control") 5Ôç F=0 Œ òer("Log control file has dissapeared"):à <Þñ#F,Fn$:ñ#F,dy$:ñ#F,Ã(tm%):ñ#F,ap$:ñ#F,ac$:ñ#F,st$:Ù#F:á cèÝ¤checkex(F$):ex=Ž(Dr$+F$):ç ex nn=¹:EX%=¢#ex:Ù#ex:="be added to the "+B$+"existing"+B$+" file" 5ònn=£:Ù#ex:= "begin a "+B$+"new"+B$+" file called" ’üÝòclear:Û:ñ "Do you really want to clear "lf$" "B$Fn$B$" (Y/N)";:è an$:ç an$ = "Y" „ an$ = "y" Œ òclearf ‹ òer("File "+Fn$+" still intact!"):á 2ld$="Cleared":òss(ld$,Fn$,¤tm,AP$,AC$,¹):òze:á dÝòze:AP$="":AC$="":ãPN%=0¸7:DY$(PN%)="":SC%(PN%)=0:AP$(PN%)="":AC$(PN%)="":PO%(PN%)=-1:í:EX%=0:á GÝòclearf:C%=®(Dr$+Fn$):Ù#C%:òer("Log file "+B$+Fn$+B$+" cleared"):á ³$Ýòpr:Û:ñS$"Calculating..."S$:òts(30):tm%=¤date(dy$+",")*24*3600+¤tm:F=(Dr$+Fn$):Ï#F=EX%:ñ#F,"*END*":ñ#F,Ã(tm%):ñ#F,"*PRINT*":Ù#F:F=Ž(Dr$+Fn$):P%=0:B%=0:ñ:ãX%=0¸mx%:T%(X%)=0:í .õ:òrd:ñ".";:N%=¹:çP%>0òs >8çN%P%=P%+1:A$(P%)=A$:W%=T%-U%:T%(B%)=T%(B%)+W%:U%=T%:B%=P% BýÅ#F:Ù#F:òdp:á 4LÝòrd:d$=D$:è#F,D$:ç »(D$)=0 è#F,T$ ‹ T$=D$:D$=d$ ?VçD$="*END*"T%=»(T$):õè#F,D$:ýÅ#F:D$=d$:A$="*PRINT*":Y$="":á `è#F,A$,Y$:T%=»(T$):á EjÝòs:ãX%=1¸P%:çA$=A$(X%)W%=T%-U%:T%(B%)=T%(B%)+W%:U%=T%:B%=X%:N%=£ Dtí:çN%€P%=mx%òer("Too many applications: increase mx% (line 60)") ~á 'ˆÝòdp:çP%=0 òer("No log found"):á‹ ñ p’OU=®(Dr$+Fn$+"L"):ñ#OU,"%OP%BM4":ñ#OU,"%OP%LM4":ñ#OU,"%OP%HE/LOGGER %H4%(C) Ian Summers 1988%H4%//Page @P@/" ‡œñ#OU,"%OP%FO/"+Fn$+"L//@D@/":ñ#OU,"%CO:A,72,72%%C%%H2%Log of file: "+Fn$+"%H2%":ñ#OU:tt%=0:ãX%=1¸P%:çÀA$(X%),1)="*"„T%(X%)<60ŒådbD R¦tt%=tt%+T%(X%):ld$="NEW":ñ#OU," ":ñ:F=Ž(Dr$+Fn$):òrd:U%=T%:AO$=A$:CO$=Y$:õ:òrd A°çD$<>ld$€AO$=A$(X%)ñ#OU," "+" "+IP$+D$+IP$:ñ" "S$D$S$:ld$=D$ ºçU%ƒ86400>O%V$=O$‹V$=" " hÄçAO$=A$(X%)€T%-U%>59tm%=U%:OU$=À¤rt,5)+" "+AO$+Ä10-©AO$," ")+¤HR(T%-U%)+V$+Ä3," ")+CO$:ñOU$:ñ#OU,OU$ kÎAO$=A$:CO$=Y$:U%=T%:ýÅ#F:Ù#F:OU$=Ä6," ")+A$(X%)+Ä10-©A$(X%)," ")+¤HR(T%(X%))+Ä4," ")+"TOTAL (hrs:mins)" ØñB$OU$B$:ñ#OU,PB$+OU$+PB$ 1âí:LL$="Total hours for "+Fn$+" are "+¤HR(tt%) 5ìñ'B$LL$B$':LL$=PB$+LL$+PB$:ñ#OU," ":ñ#OU,LL$:Ù#OU öñ"To print the log - go into a blank PipeDream application and enter:"'Š10)B$a$½43"FL"Dr$Fn$"L "a$½225Š10)a$½43"PO "B$a$½225' >ñ "Print of "Fn$" finished - Press a key to continue":ç¥:á K Ýòer(er$):Û:ñ Z$er$F$''"Press a key to continue"F$;:ç¥:ñŠ0,2)‰30Š0,1):á ŒÝònr:òer("Device "+Dr$+" nearly full"+gp$+"Last action has not been carried out"+gp$+"Create some room using FILER before continuing"):á : (Ý òE(B) 2ô Cambridge Computer Ltd <ç B=0 Œ á FA=®":RAM.0/EE.CLI" PB$=":RAM.0/E.CLI" Zñ#A,".>"+B$ dñ#A,".J","LIST"+Ã(B),"PROCF" nÙ#A x*CLI .*:RAM.0/EE.CLI ‚á ŒÝ òF –A=¦(0) A=Ž B$ ªè#A,A$,A$ ´Ù#A ¾A=® B$ Èñ#A,".J",A$ ÒÏ#A=#A-1 ÜÕ#A,0 æÙ#A ð*ERASE :RAM.0/EE.CLI úï8 ÿ"*CLI .<"+B$ á ÿÿ