在高階語言裡，“Hello world"是經典的第一個程式；在與硬體密切相關的嵌入式程式設計裡，點亮LED燈則更具有代表性。
下面的程式碼實現一個LED燈的明、暗迴圈：

Program led_test;
   const
       flash_time_limit_1=$A0;
       flash_time_limit_2=$FF;
    
    var
      count : byte;
      LED_bit : Boolean absolute P1.1;      // 設定LED接到P1.1腳上
      flash_status : byte;  
      flash_delay_1,flash_delay_2,flash_delay_3 : byte;
        
    begin
       flash_status := 0;
      
      repeat
    
        case flash_status of
        0:
          begin
              LED_bit := not LED_bit;          // 明、暗的轉換
             flash_delay_1 := flash_time_limit_1;
             Inc(flash_status);       
         end;
       1:
         begin
             if (flash_delay_1 > 0) then
             begin
                Dec(flash_delay_1);         
             end
             else begin
                      flash_delay_2 := flash_time_limit_2;
                      Inc(flash_status);
                   end;
         end;
       2:
        begin
            if (flash_delay_2 > 0) then
            begin
                Dec(flash_delay_2);
            end
            else begin
                      flash_status := 0;    // 重新開始
                   end;
         end;
       end; 
    
      until False;  
      
    end.
 

編譯成功：