home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 1a / demos / title.bas < prev   
Encoding:
BASIC Source File  |  1985-05-29  |  896 b   |  21 lines
  1. 5     ' Sample shows how to change OUTPUT window title, by Russ Wetmore
  2. 10    poke systab+24,1 : ' Let's not see window...
  3. 20    clearw 2 : ' while we're clearing it
  4. 30    poke systab+24,0
  5. 40    input "New OUTPUT name: ",title$
  6. 50    gosub newtitle
  7. 60    ?"Done"
  8. 70    end
  9. 32000 newtitle: ' New title for OUTPUT window
  10. 32001 poke systab+24,1 : ' Don't need to see this...
  11. 32002 a# = gb : ' Fetch globals address
  12. 32003 gintin = peek(a#+8) : ' AES int_in array
  13. 32004 poke gintin+0,peek(systab+8) : ' OUTPUT window handle
  14. 32005 poke gintin+2,2 : ' we're changing it's name
  15. 32006 s# = gintin+4 : ' DBL address for long poke
  16. 32007 title$ = title$ + chr$(0) : ' assure zero terminator
  17. 32008 poke s#,varptr(title$) : ' title of new window
  18. 32009 gemsys(105) : ' wind_set AES call
  19. 32010 poke systab+24,0 : ' Turn things back on
  20. 32011 return
  21. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə