Отладка кода (программы) во FreeBasic

   Const PI As Double = 3.1415926535897932   
   Dim g AS STRING, driver AS String:   Dim AS String  sap
   Dim as Integer scr, scrx, scry, scrym, n, w, t, k, ps, fz, fy, fy1, fx, mpr, prm, fz1, Tr 
   Dim as Integer  a1, a2, a3, ka, kb, kc, kd, pgx, pgy, gy1, gy2, gy3, gx, gy, gym, pgya, gya
   Dim As Double  r, r1, r2, r3, rr, Zr, Av3, Av2, Av1, Av, m, a, Lz, Ly, Lx,  Ly1, Zn
   Dim As Double  x, y, z, xx, yy, zz, z1, z2, y1, y2, x1, x2, ya, xa, y12, x12
'=========================================================================
    Screen 20: scrx=1024: scry=768:    a3=37: a1=a3: a2=46
  ' Screen 21: scrx=1280: scry=1024  : a3=44: a1=a3: a2=53
    scrym=scry/2  
'-------------------------------------------------------------------------------------------------------
   Window (1,127)-(scrx-15, scry-350)
   View (1, 127)-(scrx-15, scry-350),,10
'-----------------------------------------------------------------------------------------------
       Tr =   1806                           
'...........................  ....................................
         a3=44: a1=a3: a2=53:                    
   '      a3=60: a1=a3: a2=64:                    
        ka=1: kb=ka+6: kc=ka+12: kd=ka+28    
'................................  .......................................
         k = 3 :  n = 12 * k                      
         m = 2 * PI / n                       
 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
       For fz = 0 To n: For fy = 0 To n: fy1=fy1-1:  For fx = 0 To n:   For t = 0 TO n
'-------------------------------------------------------------------- 
        rr= fz+fy+fx+t
'-------------------------------------------------------------------       
      r= Sqr(rr): r = Fix(r*1000000): r = r/1000000: Zr=r            
'========================================================================
       Next:  Av = Zr/n:                    
'=================================================================== graf AV =   
          px = gx:
           gx = gx + 10 ' scrx-15 ? gx;
           if gx < scrx Then goto krdYa
         px = 1:  gx = 1: Cls       
krdYa: '..........................................................................
          py=gy                                            ' gy = Fix(scrym * Av) *100'/6)  
          gy =  Av *70+100'  ? Zr;  ? Av;  ? gy;
        Line (px,py)-(gx,gy),3               ': py = gy 
 'Sleep 10
          Line (1,238)-(scrx-15,238),13      
'----------------------------------------------------------------------------------------------
      View Print a1 TO a2: '? "                                                 "
                           '? "                                                 "
       View PRINT a1 TO a2 
      ? TAB(ka); fx;Tab(ka+4); fy; Tab(ka+8); fz; Tab(ka+12); Av; Tab(ka+32);gy          
       a1 = a1 + 1: If a1 <= a2 then goto paus Else a1 = a3  
paus:'---------------------------------------------------------------------------------------
   For hh = 1 To Tr: For h = 1 To Tr: e= Sin(0.123456789): Next: Next
'---------------------------------------------------------------------------------------------
    g = InKey: IF g = "" THEN GoTo met11:
    For ps = 0 TO 100
    Sleep 500: g = InKey: IF g = "" THEN goto met2 else goto met3
met2: Next ps
met3: Sleep 300: g = InKey: IF g = "" THEN goto met11 else end
met11:'LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL   
   Zr = 0 :  Sleep : Next: Next: Next