Change From C to PBP

[Jerson]

Yes. For Starters

void test() {     //Generate test signal
  while (1){
    PORTB &= 0xee;  // sends a ground to the SCR gate
    delay_us(56);   // 56 us delay
    PORTB |= 0x11;   // ground off the SCR
    if (PORTB & 0x04) delay_ms(200); //300 rpm
    else delay_ms(8); //7500 RPM
  }
}

converts to this

Test:
   while 1
      Portb = PortB & $ee
      pauseus 56
      Portb = PortB | $11
      if Portb & 4 then
         pause 200
      else
         pause 8
      endif
   wend

Jerson