home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: OtherApp / OtherApp.zip / stwtv113.zip / Script / Sample2.STS < prev    next >
Text File  |  1999-10-18  |  620b  |  24 lines
  1. /* Sample2.STS */
  2. /* Shows the names of all defined stations */
  3.  
  4. /* Enumerate all stations into Station */
  5. NumStations=StWTVEnumStations(Station)
  6.  
  7. /* Retreive handle of current station */
  8. CurStation=StWTVGetStation('HANDLE','CURRENT')
  9. rc=RxMessageBox(CurStation,"Actual station")
  10.  
  11. /* Loop over all stations */
  12. Do i=1 To Station.0
  13.  /* Retreive name for station */
  14.  Name=StWTVGetStation('NAME',Station.i)
  15.  /* Switch to the station */
  16.  rc=StWTVActivateStation(Station.i)
  17.  /* Show station name */
  18.  rc=RxMessageBox(Name,'Sendername')
  19. End
  20.  
  21. /* Restore old station */
  22. rc=StWTVActivateStation(CurStation)
  23.  
  24.