C64 test program

        *= $801
        .block
        .word s, 10
        .byte $9e
        .null "4096"
        s .word 0
        .bend

        *= $1000
        lda #$93;ASCII FOR CLEAR
        JSR $FFD2
        ldy #$00
        lda #$00
        sta $00;just store 0 into address
        ldy #$0;remember how much to increment
loop    lda message,x;load the character + x
        and #$3f;convert all letters to uppercase
        sta $0400,y;store on screen starting @ adr. 1024
        inx;increment x to next character
        stx $00
        tya
        clc
        adc $00
        tay
        cpx #$0a;compare x with 11, the length of the text.  BTW no subrout to count letters yet.
        bne loop;go back to loop if comparison is less that 0
        rts
        ;todo: make a triangle thingy, reading more from message each line
;   for example,
;       a
;       ab
;       abc
;       abcd

message
        .text "aaaaaaaaaa"