home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / diskmags / scripts&guides / startrek / trx / about next >
Text File  |  1995-06-16  |  642b  |  18 lines
  1. /* arexx script  */
  2.  
  3. idcmp = 'CLOSEWINDOW+GADGETUP'
  4. flags = 'WINDOWCLOSE+BACKFILL+ACTIVATE'
  5.  
  6. address ARexx "'call CreateHost(hostport, notifyport, trekguide)'"
  7.  
  8. WaitForPort hostport
  9. WaitForPort hostport
  10.  
  11. call OpenWindow(hostport, 140, 80, 385, 254, idcmp, flags, 'About Trek-The Guide')
  12. call SetNotify(hostport, CLOSEWINDOW, hostport)
  13.  
  14. /*call windowtext(hostport, 'Trek-The Guide v1.5\©1995 Jim Hines REGISTERED VERSION\ \Distributed by Exclusive PD, UK\ \Star Trek and related marks are\trademarks of Paramount Pictures\ALL RIGHTS RESERVED')*/
  15. call IFFImage(hostport, 'TREKGUIDE:TREKPICS/UFP', 5, 11, 390, 256, nocolor)
  16.  
  17. closeport(hostport)
  18.