home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / READONLY.SCR < prev    next >
Text File  |  1992-01-10  |  622b  |  17 lines
  1. > timeout = 0
  2. > windowshow()
  3. > windowtitle(sessionname + "printed as title test")
  4. > watch(off,0,0)
  5. > if connect 
  6. > message ("You are connected on port" + port)
  7. > else
  8. > message ("You are not connected on port " + port)
  9. > endif
  10. > message ("Current path = " + path)
  11. > message ("Current time (numeric format) = " + valtostr(hour) + ":" +  valtostr(minute) + ":" + valtostr(second))
  12. > message ("Current time (string format) = " + Time)
  13. > message ("Current date (numeric format) = " + valtostr(month) + "/" + valtostr(day) + "/" + valtostr(year))
  14. > message ("Current date (string format) = " + Date)
  15.  
  16. > wait()
  17.