home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1997 / ARCHIVE_97.iso / discs / mag_discs / volume_03 / issue06 / hints / GRAPHBOX
Text File  |  1990-03-08  |  918b  |  33 lines
  1.  
  2. *BASIC
  3.  
  4. LOAD "!GraphBox.!RunImage"
  5.  
  6. 220 WHEN 3:PROCclosew(!q%):IF!q%=w_graphbox% THEN mainclosed%=TRUE
  7.  
  8. 560 quit%=FALSE:mainclosed%=FALSE
  9.  
  10. 4590 WHEN0:PROCclosew(w_graphbox%):quit%=TRUE
  11.  
  12. 5291 Icon%=sprites%:!Icon%=TRUE:DIM Spritename% 14:$Spritename%="!graphbox":Icon%!4=0:Icon%!8=0:Icon%!12=64:Icon%!16=68:Icon%!20=(&311A OR 0 OR (7<<28))
  13.  
  14. 5292 Icon%!24=Spritename%:Icon%!28=1:Icon%!32=12:SYS "Wimp_CreateIcon",,Icon% TO graph_iconbar%
  15.  
  16. 5445 READ t$:m_iconbar%=FNcrmenu(t$)
  17.  
  18. 5447 DATA "#Graphbox,Info>w_pinfo%,Quit"
  19.  
  20. 5710 REM quit%=TRUE
  21.  
  22. 6395 IF mh%=-2 AND mb%=4 OR mb%=1024 AND mi%=graph_icnbar% THEN PROCgetw(w_graphbox%):PROCfront(w_graphbox%,420,150):mainclosed%=FALSE
  23.  
  24. 7375 WHEN-2:IFmi%=graph_icnbar% PROCpop(m_iconbar%,-1)
  25.  
  26. 8219 IF menu%=m_iconbar% my%+=64
  27.  
  28. 8545 WHEN m_iconbar%:IF !mlist%=1 THEN quit%=TRUE
  29.  
  30. 16505 IFmainclosed%=TRUE PROCfront(w_graphbox%,420,150):mainclosed%=FALSE
  31.  
  32. SAVE "!GraphBox.!RunImage"
  33.