Text Display

; Set Cursor postion X,Y and print text.


setcursor   = $e50c
print       = $ab1e

    ldx #1          ; Select row
    ldy #25         ; Select column
    jsr setcursor   ; Set cursor

    lda #<prginfo   ; Load lo-byte of string adress
    ldy #>prginfo   ; Load hi-byte of string adress
    jsr print       ; Print Program Info


prginfo
!byte $05
!text "Program"
!byte $0d
!byte $99
!text "                         "
!text "by jeff ledger"
!byte $0d, $0d, $9a
!text "                         "
!text "score"
!byte $0d

!byte $00