TPU

! TPU Hello World Program
! This procedure displays a message and creates a simple buffer

PROCEDURE user_hello
    LOCAL my_buffer;
    
    ! Create a new buffer
    my_buffer := CREATE_BUFFER("hello_buffer");
    
    ! Position to the buffer
    POSITION(my_buffer);
    
    ! Insert text
    COPY_TEXT("Hello, World!");
    POSITION(END_OF(my_buffer));
    COPY_TEXT(ASCII(10));  ! New line
    COPY_TEXT("Welcome to TPU programming!");
    
    ! Display message
    MESSAGE("Buffer created successfully");
    
ENDPROCEDURE;

! Execute the procedure
user_hello;