Violation d'accès.

LABEL Chp,Info
DIM r$,fr$,i%,a$,c$,q$,panedi$,panexe$
r$ = "C:\PANORAMIC"+CHR$(92): ' Répertoire des sources Panoramic
  FileShort(r$): r$ = CLIPBOARD_STRING_PASTE$: ' nom court
panedi$ = "C:\Program Files (x86)\Panoramic Editor\PANORAMIC_EDITOR.exe"
  FileShort(panedi$): panedi$ = CLIPBOARD_STRING_PASTE$: ' nom court
panexe$ = "C:\Program Files (x86)\Panoramic Editor\PANORAMIC.exe"
  FileShort(panexe$): panexe$ = CLIPBOARD_STRING_PASTE$: ' nom court
fr$ = r$+"Debug_tmp.bas": ' Fichier source de manoeuvre (créé)
q$ = CHR$(34)
WIDTH 0,230: HEIGHT 0,SCREEN_Y-40
BORDER_SMALL 0: CAPTION 0, "-   DEBUG   -"
ALPHA 8: TOP 8,2: FONT_SIZE 8,10: FONT_BOLD 8: CAPTION 8,"Clic le progr. à debugger "
  COLOR 8,255,255,128
BUTTON 9: WIDTH 9,30: LEFT 9,WIDTH(0)-50: HEIGHT 9,22: CAPTION 9,"?"
  FONT_BOLD 9: FONT_SIZE 9,10: ON_CLICK 9,Info
CONTAINER_OPTION 10: TOP 10,21: WIDTH 10,WIDTH(0)-20: HEIGHT 10,30
  CAPTION 10,"Exécuter dans:": COLOR 10,200,255,255
OPTION 11: PARENT 11,10: TOP 11,13: LEFT 11,3: CAPTION 11,"Panoramic_Editor"
OPTION 12: PARENT 12,10: TOP 12,TOP(11): LEFT 12,115: CAPTION 12,"Panoramic.exe"
  MARK_ON 11
LIST 1: TOP 1,50: WIDTH 1,210: HEIGHT 1,HEIGHT(0)-90: FONT_NAME 1,"Consolas"
  ON_CLICK 1,Chp
MEMO 2: HIDE 2
DLIST 4
DLIST 5
EXECUTE_WAIT "Cmd.exe /c DIR /B "+r$+"*.bas | clip"
CLIPBOARD_PASTE 2
FOR i% = 1 TO COUNT(2): ITEM_ADD 1,ITEM_READ$(2,i%): NEXT i%
END
' ==============================================================================
Chp:
  FILE_LOAD 4,r$+ITEM_INDEX$(1)
  FOR i% = 1 TO COUNT(4)
      ITEM_ADD 5,"  Caption 0,"+q$+"Ligne: "+STR$(i%)+" *** debug ***"+q$
      ITEM_ADD 5,ITEM_READ$(4,i%)
  NEXT i%
  FILE_SAVE 5,fr$
  IF CHECKED(11) = 1
      EXECUTE panedi$+" "+fr$: ' exécution dans Panoramic_Editor
  ELSE
      EXECUTE panexe$+" "+fr$: ' exécution dans Panoramic.exe
  END_IF
TERMINATE
' ==============================================================================
Info:
  c$ = CHR$(10)
  a$="Débogage d'un programme dont l'origine de l'erreur n'est pas localisée."+c$
  a$=a$+"  (méthode cosmos70)"+c$+c$
  a$=a$+"Ce module intercale entre toutes les lignes du programme à tester une ligne"+c$
  a$=a$+q$+"CAPTION 0 "+q$+" + n° de la ligne courante, et crée un nouveau fichier: Debug_tmp.bas"+c$
  a$=a$+"(dont le nombre de lignes est donc le double de celui de l'original)"+c$+c$
  a$=a$+"C'est ce nouveau fichier/programme qui sera exécuté, soit dans Panoramic_Editor,"+c$
  a$=a$+"soit dans Panoramic.exe (choisi préalablement)."+c$+c$
  a$=a$+"Usage:"+c$
  a$=a$+"1) Choisir d'abord le programme d'exécution (Panoramic_Editor ou Panoramic.exe)"+c$
  a$=a$+"2) Cliquer dans la liste des programmes le source (.bas) à tester."+c$+c$
  a$=a$+"Quand le programme part en erreur, le numéro de la ligne où il s'est arrêté est"+c$
  a$=a$+"affiché dans le caption du Form 0."
  MESSAGE a$
RETURN
' ==============================================================================
SUB FileShort(f$)
  ' Chemin court fichier f$ -> clipboard
  EXECUTE_WAIT "cmd /c for %A in ("+CHR$(34)+f$+CHR$(34)+") do @echo %~sA | clip"
  CLIPBOARD_STRING_COPY LEFT$(CLIPBOARD_STRING_PASTE$, LEN(CLIPBOARD_STRING_PASTE$)-3)
END_SUB
' ==============================================================================

r$ = "C:….\PANORAMIC" + chr$(92)