Violation d'accès.

' dim ,    : ' <==== une virgule seule : violation d'accès
dim a,     : ' <==== OK malgé la virgule qui n'a rien à faire ici !
' dim x,,y   : ' <====  deux virgules (ou plus) qui se suivent : violation d'accès
a = 10 :::   : ' <==== OK pour Plusieurs deux-points, mais un seul deux-points ERREUR

clipboard_string_copy "C:\PANO\chemin du programme\Nom du programme.bas"
chain "c:\PANO\temp\ligne_erreur.bas"  :  ' Y mettre le chemin et le nom du programme de contrôle

' à sauvegarder et reprendre le chemin avec le nom du programme pour son propre programme (cosmos70)
 dim f_source$ ,f_trace$, dim_prg$(100)
 dim a%,a$

 f_source$ = clipboard_string_paste$ :'   :' fichier, non dir !!
 f_trace$ = file_extract_path$(f_source$)
 dir_change f_trace$
 dlist 1 :  file_load 1,f_source$
 dlist 2
 if count(1) > 0
    for a%=1 to count(1)
       a$=item_read$(1,a%)
       if trim$(a$)=""
          item_add 2,""
       else
          item_add 2,"caption 0,"+str$(a%)+":"+a$
       end_if
    next a%
 end_if
 file_save 2,"copie_prg_avec_ligne.bas"
 chain "copie_prg_avec_ligne.bas"

LABEL Chp,Info
DIM r$,fr$,i%,a$,c$,q$,panedi$,panexe$
r$ = "C:\PANORAMIC": ' Répertoire des sources Panoramic
panedi$ = "C:\PROGRA~2\PANORA~1\PANORA~1.EXE": ' Panoramic_Editor
panexe$ = "C:\PROGRA~2\PANORA~1\PANORA~2.EXE": ' Panoramic.exe
fr$ = r$+"Debug_tmp.bas": ' Fichieer 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