prog8/examples/test.p8

%import c64utils

~ main {

    sub start()  {

        ubyte i = 10
        ubyte ub2
        byte j = 5
        byte b2
        uword uw = 1000
        uword uw2
        word w = 1000
        word w2

        ub2=i*1
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*2
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*3
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*4
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*5
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*6
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*7
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*8
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*9
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*10
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*11
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*12
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*13
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*14
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*15
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*16
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*17
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*18
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*19
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*20
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*21
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*22
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*23
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*24
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')
        ub2=i*25
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')

        i=5
        ub2=i*40
        c64scr.print_ub(ub2)
        c64.CHROUT('\n')

        c64.CHROUT('\n')


        b2=j*1
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*2
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*3
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*4
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*5
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*6
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*7
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*8
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*9
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*10
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*11
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*12
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*13
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*14
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*15
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*16
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*17
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*18
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*19
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*20
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*21
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*22
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*23
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*24
        c64scr.print_b(b2)
        c64.CHROUT('\n')
        b2=j*25
        c64scr.print_b(b2)
        c64.CHROUT('\n')

        j=3
        b2=j*40
        c64scr.print_b(b2)
        c64.CHROUT('\n')

        c64.CHROUT('\n')


        ;@todo multiplication by negative values

        ;@todo the same, for uword and word

    }
}