home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00100_Script_100 < prev    next >
Text File  |  1997-10-15  |  346b  |  21 lines
  1. on toglipopop
  2.   global dove,cambio,rca,ss
  3.   
  4.   
  5.   set cambio to ""
  6.   set var to string(the windowlist)
  7.   if offset ("popup",var) then
  8.     close window "popup"
  9.     forget window "popup"  
  10.       set rca to 0
  11.   scrivi ss,ss+15
  12.     if objectp (attore) then forget attore
  13.     set dove to 0
  14.     curfinmetti
  15.     
  16.   end if
  17.   
  18.   
  19. end
  20.  
  21.