home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / communic / ncomm3.0 / scripts / clock.script next >
Text File  |  1995-02-27  |  275b  |  12 lines
  1. ;NComm script that demonstrates the STRPART function
  2.  
  3. SET $stoptime = "14:00:00"
  4.  
  5. REPEAT
  6.     SET $varin = $date
  7.     STRPART $varout "11" "8" $varin    ;Numbers without quotes are also OK
  8.     MESSAGE $varout"\r"
  9.     DELAY 1
  10. UNTIL $varout == $stoptime
  11. MESSAGE "\t --- Reached StopTime\n";
  12.