Bug avec Panoramic.exe en mode commande

' === Projet IDE
label labels : gosub labels
gosub FORM0
gosub variables
gosub GUI
gosub initialisations
end

' === IDE subroutine labels
labels:
  label sortie
  label initialisations
  label FORM0
  label GUI
  label variables
  return

' === IDE subroutine variables
variables:
  return

' === IDE subroutine GUI
GUI:
' --- IDE objet
  button 1
  top 1,0
  left 1,0
  height 1,25
  width 1,75
  show 1
  active 1
  caption 1,"P. Editor"

' --- IDE objet
  button 2
  top 2,0
  left 2,74
  height 2,25
  width 2,75
  show 2
  active 2
  caption 2,"IDE"

' --- IDE objet
  button 3
  top 3,0
  left 3,148
  height 3,25
  width 3,75
  show 3
  active 3
  caption 3,"Aide"

' --- IDE objet
  button 4
  top 4,0
  left 4,222
  height 4,25
  width 4,75
  show 4
  active 4
  caption 4,"Astuces"

' --- IDE objet
  button 5
  top 5,0
  left 5,296
  height 5,25
  width 5,75
  show 5
  active 5
  caption 5,"Sortie"
  on_click 5,sortie

' --- IDE objet
  main_menu 6

' --- IDE objet
  sub_menu 7
  caption 7,"P. Editor"
  parent 7,6

' --- IDE objet
  sub_menu 8
  caption 8,"IDE"
  parent 8,6

' --- IDE objet
  sub_menu 9
  caption 9,"Aide"
  parent 9,6
  active 9

' --- IDE objet
  sub_menu 10
  caption 10,"Astuces"
  parent 10,6
  active 10

' --- IDE objet
  sub_menu 11
  caption 11,"Sortie"
  parent 11,6
  on_click 11,sortie

  return

' === IDE subroutine FORM0
FORM0:
  top 0,0
  left 0,0
  height 0,80
  width 0,380
  show 0
  active 0
  caption 0,"IDE - programme application"
  color 0,236,233,216
  return

' === IDE subroutine initialisations
initialisations:

  return

' === IDE subroutine sortie
sortie:
  terminate
  return
' === IDE EOF

' === Projet IDE
label labels : gosub labels
gosub FORM0
gosub variables
gosub GUI
gosub initialisations
end

' === IDE subroutine labels
labels:
  label delphi
  label astuces
  label aide
  label IDE
  label editor
  label sortie
  label initialisations
  label FORM0
  label GUI
  label variables
  return

' === IDE subroutine variables
variables:
  dim editor$, IDE$, aide$, astuces$, delphi$
  return

' === IDE subroutine GUI
GUI:

' --- IDE objet
  main_menu 1

' --- IDE objet
  sub_menu 2
  caption 2,"Outils"
  parent 2,1

' --- IDE objet
  sub_menu 3
  caption 3,"P. Editor"
  parent 3,2
  on_click 3,editor

' --- IDE objet
  sub_menu 4
  caption 4,"IDE"
  parent 4,2
  on_click 4,IDE

' --- IDE objet
  sub_menu 5
  caption 5,"Aide"
  parent 5,2
  active 5
  on_click 5,aide

' --- IDE objet
  sub_menu 6
  caption 6,"Astuces"
  parent 6,2
  active 6
  on_click 6,astuces

' --- IDE objet
  sub_menu 7
  caption 7,"Delphi"
  parent 7,2
  active 7
  on_click 7,delphi

' --- IDE objet
  sub_menu 8
  caption 8,"Sortie"
  parent 8,2
  active 8
  on_click 8,sortie

  return

' === IDE subroutine FORM0
FORM0:
  top 0,0
  left 0,0
  height 0,50
  width 0,70
  show 0
  active 0
  caption 0,""
  color 0,236,233,216
  return

' === IDE subroutine initialisations
initialisations:
  editor$  = "C:\PROGRA~1\PANORA~1\PANORA~3.EXE"
  IDE$    = "C:\PROGRA~1\PANORA~1\IDE.exe"
  aide$    = "C:\Langages\PANORA~1\Help.exe"
  astuces$ = "C:\PROGRA~1\PANORA~1\MESAST~1.EXE"
  delphi$  = "C:\PROGRA~1\Borland\Delphi6\Bin\delphi32.exe"
  border_hide 0
  height 0,20
  width 0,40
  left 0,screen_x-width(0)
  top 0,screen_y-height(0)
  return

' === IDE subroutine sortie
sortie:
  terminate
  return

' === IDE subroutine editor
editor:
  execute editor$
  return

' === IDE subroutine IDE
IDE:
  execute IDE$
  return

' === IDE subroutine aide
aide:
  execute aide$

  return

' === IDE subroutine astuces
astuces:
  execute astuces$
 
  return

' === IDE subroutine delphi
delphi:
  execute delphi$
 
  return
' === IDE EOF

dim i
for i = 1 to 10
    print str$(i): wait 300
next i
print "Fin !"
end