Le TERMINATE récalcitrant

dim i,res%
dll_on "KGF.dll"
while 2 > 1
   i = i + 1
   caption 0,str$(i) : pause 100
   if scancode <> 0  then res% = dll_call1("KillProcessByHandle",handle(0))
end_while

fin:
  terminate

label fin
' on_close 0,fin : ' cette ligne modifie le comportement de TERMINATE

END

fin:
terminate

rem ============================================================================
rem                    Orbite
rem ============================================================================
rem Paramètres pour une orbite géostationnaire autour de la Terre
rem ============================================================================
Init()
boucle()
Fin()
end
rem ============================================================================
SUB Init()
   dim hauteur,speed,radius,time,scale,dt,g,x,y,px,py,xspeed,yspeed
   hauteur = 36000000 : speed = 3070 : radius = 6371000
   time = 0 : scale = 400000 :dt = 40 :g = 9.81
   x = 0 : y = radius + hauteur : px = 0 : py = 0 : xspeed = speed : yspeed = 0
   height 0,350 : caption 0," <CLICK> pour arrêter ...."
   color 0,255,255,255 : font_name 0,"arial" : font_bold 0  : font_size 0,12
   2d_fill_on : 2d_pen_width 20 : 2d_fill_color 255,255,255
END_SUB
rem ============================================================================
SUB Boucle()
   dim_local dist,gravity,dx,dy,xac,yac
   while 0 = 0
       dist = sqr((x-px)*(x-px) + (y-py)*(y-py))
       gravity = g * (radius/dist) * (radius/dist)
       dx = x - px : dy = y - py
       xac = (dx/dist) * gravity  : yac = (dy/dist) * gravity
       xspeed = xspeed - xac * dt : yspeed = yspeed - yac * dt
       x = x + xspeed * dt : y = y + yspeed * dt

       print_locate 150 + x/scale,150 + y/scale : print "[]o[]"
       2d_circle 150+px, 150+py, radius/scale -10
       time = time + dt
       speed = int(sqr(xspeed*xspeed + yspeed*yspeed))
       print_locate 50,10 : print "Paramètres pour une orbite géostationnaire autour de la Terre"
       print_locate 300,50 : print "Height = " + str$(dist/radius) + " radius"
       print_locate 300,70 : print "Speed  = " + str$(speed) + " m/s"
       print_locate 300,90 : print "Time     = " + str$(int(time/3600)) + " h"
       print_locate 300,110 : print "Grav-acc   = " + str$((radius/dist)*(radius/dist)) + " g"
       print_locate 300,130 : print "Centri-acc = " + str$((speed*speed/dist)/g)+ " g"
       display
       if scancode <> 0 then Fin()
   end_while
END_SUB
rem ============================================================================
SUB Fin()
   dim_local h
   for h = height(0) to 10 step -1 : height 0,h : next h
   terminate
   end : ' Ce END après TERMINATE élimine le désagréable bip
END_SUB
rem ============================================================================

label go
button 1 : caption 1,"Go" : on_click 1,go
end

go:
' form 5000
terminate
return

label go
button 1 : caption 1,"Go" : on_click 1,go
end

go:
form 5000
terminate
return

label go
button 1 : caption 1,"Go" : on_click 1,go
end

go:
form 5000
' terminate
return

label go
button 1 : caption 1,"Go" : on_click 1,go

end

go:
form 5000  : pause 1000
delete 5000
terminate
return