home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / utilsf / login / ulogin.opl < prev   
Text File  |  1995-03-14  |  664b  |  39 lines
  1. proc ulogin:
  2.  
  3.   
  4.   
  5.   local s1,s2,sec,sec&,ses&,h&,m&,s&
  6.   
  7.   open "login",a,date1$,date2$,ses%,sec
  8.  
  9.   loadm "timelib"
  10.   ses&=a.ses%
  11.   print a.date1$
  12.   print a.date2$
  13.   print a.ses%
  14.   print a.sec;"    [";hrs$:(a.sec);"]"
  15.   print "Press a key <ESCAPE>=exit"      
  16.  
  17.   if get=27
  18.     return
  19.   endif
  20.   dINIT "Update LOGIN file time data"
  21.   dTEXT "Was "+hrs$:(a.sec),"  "
  22.   dLONG h&,"Heures",0,120
  23.   dLONG m&,"Minutes",0,59
  24.   dLONG s&,"Secondes",0,59
  25.  
  26.   dLONG ses&,"Session",0,1999
  27.   if DIALOG=0
  28.     giprint "*Changes aborted"
  29.     pause -40
  30.   else
  31.     giprint "*LOGIN file updated"
  32.     a.sec=sec&+h&*3600+m&*60+s&
  33.     a.ses%=ses&
  34.     pause -40
  35.     update
  36.   endif
  37. endp
  38.  
  39.