megint picbasic help

[Kiss Tamás]

Sziasztok!
Megint segítségeteket kérném picbasicben!
Az adott progit lefordítom, futtatom proteusban akkor teljesen jól műxik!
Ha viszont panelen ugyanabba a kapcsolásba berakom akkor a loop-ba lévő késleltetést nem veszi figyelembe, hanem mindjárt az xy-ba ugrik.
Igazából az kéne, hogy késleltesse a bekapcsolást, legyen egy kb 30 mp-es idő mielőtt belép az xy-ba!
A valóságba vajon mért nem működik?
Előre is köszi a segítséget!
Tomy



B0      var     byte
B2      var     byte
Bv      var     word
b6  var  word
x var word

trisa = %00000001 
trisb = %11111111
b6=0 : b2=0 : bv=0 : x=0               
 


loop:
    if x=>280 THEN
        high porta.2
        GOTO xy
        
        else
         
           x=x+1         
           Pause 100  
          if portb.2=1 then
          goto loop
       endif
  endif

xy:
      b0=0
      if b2=0 AND bv => 1 then       
            PAUSE 10000
            HIGH Portb.6
            pause 100
            LOW Portb.6
            PAUSE 100
            HIGH Portb.4
            PAUSE 100
            LOW Portb.4
            b2=1
            Bv=0
            goto xy
  else
             bv=bv+1         
               toggle porta.3
                   Pause 10
             if portb.2=1 then
   
        goto xy

  endif
  endif