10 ! program looklog.bas
11 ! to look at looged on users
20 def fnt1$(x)=string$("0",2-len(str$(x)))+str$(x)
30 dim mo$[36],a$[80]v,dl$[9]v,dd$[9]v,tm$[8]
40 mo$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
50 dim #3,d%(255),r%(39,9)
60 dim #4,up%(143,31)
70 open #3,"LB:[1,1]HELBYE.TSK/BL/RO/SH"
80 open #4,"SD:[1,100]PDSUPF.DAT/BL/RO/SH"
83 tm$=tim$(0)
84 dd$=ddat$(0) : if len(dd$)=8 then let dd$=" "+dd$
85 print tab(24);dd$;" ";tm$ : print
86 print "Term User        Logged on          Connect"
87 print "---- ----------- --------- -------- --------"
90 for n=1 to 35
100 if r%(n,0)=0 then 130
110 print "TT";oct$(n);tab(6);
120 gosub 1000
130 next n
140 exit 
1000 for j=0 to 3
1010 a$=r5a$(up%(r%(n,8)-1,j))
1020 print a$;
1030 next j
1040 dl$=frmt$(r%(n,2),2) : if len(dl$)=1 then let dl$="0"+dl$
1045 dl$=dl$+"-"+sbs$(mo$,(r%(n,1)-1)*3+1,3)+"-"+frmt$(r%(n,0),2)
1050 print dl$;" ";
1060 for j=3 to 5 : print fnt1$(r%(n,j)); : if j<>5 then  print ":"; : next j
1070 da=dcen(dd$)-dcen(dl$)
1075 hr=val(sbs$(tm$,1,2))-r%(n,3)
1080 mi=val(sbs$(tm$,4,2))-r%(n,4)
1085 se=val(sbs$(tm$,7,2))-r%(n,5)
1090 if se>0 then 1095
1091 se=se+60 : mi=mi-1
1095 if mi>0 then 1100
1096 mi=mi+60 : hr=hr-1
1100 hr=hr+da*24
1110 print frmt$(hr,4);":";frmt$(mi,2);":";frmt$(se,2)
1120 return