prog8/examples/test.p8

56 lines
1.2 KiB
Plaintext
Raw Normal View History

2020-09-19 20:10:33 +00:00
;%import c64lib
;%import c64graphics
; %import c64textio
2020-09-19 20:10:33 +00:00
;%import c64flt
;%option enable_floats
%target cx16
%import cx16textio
2020-09-16 21:04:18 +00:00
%zeropage basicsafe
2020-08-27 17:47:50 +00:00
main {
2020-09-16 21:04:18 +00:00
sub start() {
2020-09-19 14:54:52 +00:00
txt.lowercase()
txt.print("Hello there")
2020-09-19 20:10:33 +00:00
txt.setchr(5, 5, '*')
txt.setchr(6, 5, '*')
txt.setchr(7, 5, '*')
txt.setchr(7, 6, '+')
txt.setchr(7, 7, '+')
; txt.setclr(5, 5, 1)
; txt.setclr(6, 5, 2)
; txt.setclr(7, 5, 3)
; txt.setclr(7, 6, 4)
; txt.setclr(7, 7, 5)
;
2020-09-19 20:10:33 +00:00
txt.plot(15,10)
txt.chrout('!')
;
; txt.print_ub(txt.getchr(4,5))
; txt.chrout(',')
; txt.print_ub(txt.getchr(5,5))
; txt.chrout(',')
; txt.print_ub(txt.getchr(6,5))
; txt.chrout(',')
; txt.print_ub(txt.getchr(7,5))
; txt.chrout(',')
; txt.print_ub(txt.getchr(8,5))
; txt.chrout('\n')
; txt.print_ub(txt.getclr(4,5))
; txt.chrout(',')
; txt.print_ub(txt.getclr(5,5))
; txt.chrout(',')
; txt.print_ub(txt.getclr(6,5))
; txt.chrout(',')
; txt.print_ub(txt.getclr(7,5))
; txt.chrout(',')
; txt.print_ub(txt.getclr(8,5))
; txt.chrout('\n')
2020-09-19 14:54:52 +00:00
2020-09-16 21:04:18 +00:00
}
2020-08-27 17:47:50 +00:00
}