home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / MVUPDAT3.ZIP / RAINBOW.ZIP / COLORS.ZIP / COLORS2.TXT < prev    next >
Text File  |  1996-04-13  |  732b  |  35 lines
  1. Macro FileNew
  2.  
  3. Sub MAIN
  4.         On Error Goto ErrorRoutine
  5.  
  6.         If macros.bDebug Then MsgBox "start FileNew"
  7.  
  8.         REM enable AutoMacros
  9.         DΘsactiverMacrosAuto 0
  10.  
  11.         Dim dlg As FichierNouveau
  12.         GetCurValues dlg
  13.         Dialog dlg
  14.         If dlg.NouvModΦle = 0 Then dlg.NouvModΦle = 1
  15.         FichierNouveau dlg
  16.  
  17.         macros.SavToDoc(NomFichier$())
  18.         macros.SavToGlobal(NomFichier$())
  19.         macros.objectiv
  20.  
  21.         Goto Done
  22.  
  23. ErrorRoutine:
  24.         If Err <> 102 Then
  25.                 FichierNouveau dlg
  26.         End If
  27.  
  28.         On Error Goto Done
  29.         If macros.bDebug Then
  30.                 MsgBox "error " + Str$(Err) + " occurred"
  31.         End If
  32.  
  33. Done:
  34. End Sub
  35.