!src "basicheader.acme"

Start:
  jsr $e544	; clear screen
  ldy #0
Loop:
  lda Message,y	; load message byte
  beq EOM	; 0 = end of string
  sta $400+41,y	; store to screen
  iny
  bne Loop	; next character
EOM:
  jmp EOM	; infinite loop

Message:
!scr "hello world!", 0