home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: OtherApp / OtherApp.zip / stwtv113.zip / Script / Sample1.STS < prev    next >
Text File  |  1998-11-01  |  352b  |  14 lines
  1. /* Sample1.STS */
  2. /* Demonstrates some function calls in a script */
  3.  
  4. /* Enumerate all stations into Station */
  5. NumStations=StWTVEnumStations(Station)
  6.  
  7. /* Loop over all stations */
  8. Do i=1 To Station.0
  9.  /* Retreive name for station */
  10.  Name=StWTVGetStation('NAME',Station.i)
  11.  /* Show station name */
  12.  rc=RxMessageBox(Name,'Sendername')
  13. End
  14.