home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / time.amos / time.amosSourceCode
AMOS Source Code  |  1993-01-08  |  513b  |  18 lines
  1. '*             Time.AMOS             * 
  2. '*     ï¿½1992 by Volker Stepprath     * 
  3. '*  Shows the actual time of system  * 
  4. '**** Install buffer ****
  5. N$=Space$(12)+Chr$(0)
  6. '**** Get time of system ****
  7. Dreg(1)=Varptr(N$)
  8. XDATESTAMP=Doscall(-192)
  9. '**** Calculate and show time **** 
  10. H=Leek(Varptr(N$)+4)
  11. S=Leek(Varptr(N$)+8)/50
  12. M=H mod 60
  13. H=H/60
  14. H$="00" : Right$(H$,Len(Str$(H))-1)=Str$(H)-" "
  15. M$="00" : Right$(M$,Len(Str$(M))-1)=Str$(M)-" "
  16. S$="00" : Right$(S$,Len(Str$(S))-1)=Str$(S)-" "
  17. Print H$+":"+M$+":"+S$
  18. End