;
;
;
Enumeration
  #FichierBootsecteur
  #FichierRemplissage
  #FichierImageDisquette144
EndEnumeration

; Debug #PB_Compiler_FilePath
; Debug GetCurrentDirectory()

Procedure Fichier_Dummy(octets.l)
  ;FichierParDefaut$ = GetCurrentDirectory()+"Dummy.bin"
  If CreateFile(#FichierRemplissage, GetCurrentDirectory()+"NASM\3.bin" )
    For i=1 To octets
      WriteByte(#FichierRemplissage, 0)
    Next i
    
; ;   WriteAsciiCharacter(#Fichier, Valeur) 
  EndIf
  
EndProcedure

n=1440*1024-512-4622
Fichier_Dummy(n)



; FichierParDefaut$ = GetCurrentDirectory()+"PureBoot.bin"   ; Répertoire et fichier par défaut qui seront affichés
;   ;  Avec la chaîne suivante nous allons définir les filtres ("|" comme séparateur) pour l'affichage de fichier :
;   ;  1er  : "Texte (*.txt)" comme nom, ".txt" et ".bat" comme extension autorisée
;   ;  2ème : "PureBasic (*.pb)" comme nom, ".pb" comme extension autorisée
;   ;  3ème : "Tous les fichiers (*.*)" comme nom, "*.*" comme extension autorisée, valide pour tous les fichiers
;   Filtre$ = "Binaire (*.bin)|*.bin|Tous les fichiers (*.*)|*.*"
;   Filtre  = 0    ; utiliser  par défaut le premier des deux filtres possibles
;   Fichier$ = OpenFileRequester("Choisissez un fichier ", FichierParDefaut$, Filtre$, Filtre)
;   If Fichier$
;     MessageRequester("Information", "Vous avez choisi le fichier suivant :"+Chr(10)+Fichier$, 0)
;   Else
;     MessageRequester("Information", "La sélection a été annulée.", 0)
;   EndIf 
; 
; If CreateFile(#FichierImageDisquette144, GetCurrentDirectory()+"PureBasicTestFile.txt" )
;   ;WriteString(0, "Maintenant c'est ok ",#PB_Ascii )
; ;   WriteString(0, "la meme ligne.")
; ;   WriteByte(#Fichier, Valeur.b)
; ;   WriteAsciiCharacter(#Fichier, Valeur)
; 
; If ReadFile(#FichierBootsecteur, GetCurrentDirectory()+"PureBasicTestFile.txt")
; ; Valeur.b = ReadByte(#Fichier) 
;   While Eof(0) = 0           ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File') 
;       Debug ReadString(0)      ; Affiche ligne par ligne le contenu du fichier
;     Wend
;     CloseFile(0)               ; Ferme le fichier précédemment ouvert
;   Else
;     MessageRequester("Information","Impossible d'ouvrir le fichier!")
;   EndIf
;   
;   CloseFile(#FichierImageDisquette144)
; Else
;   MessageRequester("PureBasic", "Erreur: Impossible d'écrire le fichier", 0)
;   End
; EndIf

; If ReadFile(0, "PureBasicTestFile.txt")
; ; Valeur.b = ReadByte(#Fichier) 
;   While Eof(0) = 0           ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File') 
;       Debug ReadString(0)      ; Affiche ligne par ligne le contenu du fichier
;     Wend
;     CloseFile(0)               ; Ferme le fichier précédemment ouvert
;   Else
;     MessageRequester("Information","Impossible d'ouvrir le fichier!")
;   EndIf


End

; IDE Options = PureBasic 4.61 (Windows - x86)
; CursorPosition = 24
; FirstLine = 5
; Folding = -
; EnableXP
; Executable = ..\zzztest\boot.exe
; CompileSourceDirectory