home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / software / utilities / abeat / beat2ced.ced < prev   
Encoding:
Text File  |  1999-06-15  |  354 b   |  25 lines
  1. /*
  2.   $VER: Beat2CED.ced 1.0 (14.6.99) © by Nils Görs
  3. */
  4.  
  5. ABeat.exe = "ABeat"
  6.  
  7. options results
  8.  
  9. IF SHOW(p,ABEAT) = 0 THEN DO
  10.     ADDRESS COMMAND "run <>NIL:" ABeat.exe
  11.     ADDRESS COMMAND "wait"
  12. END
  13.  
  14. ADDRESS ABEAT
  15.  
  16. DATE
  17. beatDate = result
  18.  
  19. BEAT
  20.         IF result ~= "0000"    THEN mybeat = STRIP(result,L,0)
  21.                     ELSE mybeat = "0"
  22.  
  23. ADDRESS()
  24. TEXT beatDate "at @"||mybeat
  25.