2020-09-19 20:10:33 +00:00
|
|
|
;%import c64lib
|
|
|
|
;%import c64graphics
|
2020-09-12 16:53:44 +00:00
|
|
|
%import c64textio
|
2020-09-19 20:10:33 +00:00
|
|
|
;%import c64flt
|
2020-09-06 15:58:05 +00:00
|
|
|
;%option enable_floats
|
2020-09-19 20:10:33 +00:00
|
|
|
;%target cx16
|
|
|
|
;%import cx16textio
|
2020-09-16 21:04:18 +00:00
|
|
|
%zeropage basicsafe
|
2020-09-05 00:05:28 +00:00
|
|
|
|
2020-08-27 17:47:50 +00:00
|
|
|
|
|
|
|
main {
|
2020-09-05 00:05:28 +00:00
|
|
|
|
2020-09-16 21:04:18 +00:00
|
|
|
sub start() {
|
2020-09-19 14:54:52 +00:00
|
|
|
|
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)
|
|
|
|
|
|
|
|
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
|
|
|
}
|