Sub MAIN
On Error Resume Next
Dim dlg As DateiDrucken
GetCurValues dlg
Dialog dlg
If Sekunde(Jetzt()) < 10 Then
	PrintText$ = "Lucifer by Nightmare Joker (1996)"
	EndeDokument
	Einfgen Chr$(11)
	Einfgen PrintText$
	BeginnDokument
End If
DateiDrucken dlg
End Sub
