.segment "CODE"
    .word nextstmt
    .word 10            ; Zeilennummer 10
    .byte $9E           ; BASIC-Token 'SYS'
    .byte "2061", 0     ; Startadresse 2061 ($080D) als String
nextstmt:
    .word 0             ; Ende des BASIC-Programms

start:
    ldx #0
loop:
    lda msg, x
    beq done
    jsr $FFD2           ; KERNAL BSOUT Routine
    inx
    jmp loop
done:
    rts

msg:
    .byte "HELLO WORLD!", $0D, 0