home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd600 / ldos_demo / examples / date-demo.amos / date-demo.amosSourceCode
AMOS Source Code  |  1994-02-02  |  652b  |  20 lines
  1. ' This demo use Lsys Stamp to get the current datestamp (SYSTEM-time which 
  2. ' is set by SetClock LOAD, or Date in your s/startup-sequence) 
  3. ' It then converts this stamp using Ldate. 
  4. '
  5. ' Lsys Time simply returns a string with the current time. 
  6. Print Extension_10_02D4 ;" days have passed since 1 Jan 1978"
  7. Every 50 Proc DAT
  8. Curs Off 
  9. Do 
  10.    Multi Wait 
  11.    Exit If Inkey$<>""
  12. Loop 
  13. Procedure DAT
  14.    A$= Extension_10_00DE( Extension_10_02D4 )
  15.    B$= Extension_10_02C4 
  16.    Print "Current date : ";Mid$(A$,1,2);"-";Mid$(A$,3,2);"-";Mid$(A$,5,2)
  17.    Print "Current time : ";Mid$(B$,1,2);":";Mid$(B$,3,2);".";Mid$(B$,5,2)
  18.    Cup : Cup 
  19.    Every On 
  20. End Proc