mirror of
https://github.com/irmen/prog8.git
synced 2024-10-31 09:08:02 +00:00
37 lines
693 B
Lua
37 lines
693 B
Lua
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
c64.CHROUT('\n')
|
|
%asm {{
|
|
stx $0410
|
|
}}
|
|
c64.CHRIN()
|
|
%asm {{
|
|
stx $0411
|
|
}}
|
|
print_notes(80,35)
|
|
%asm {{
|
|
stx $0412
|
|
}}
|
|
return
|
|
}
|
|
|
|
sub print_notes(ubyte n1, ubyte n2) {
|
|
c64scr.print_ub(n1/2)
|
|
c64.CHROUT('\n')
|
|
c64scr.print_ub(n1/3)
|
|
c64.CHROUT('\n')
|
|
c64scr.print_ub(n1/4)
|
|
c64.CHROUT('\n')
|
|
c64.CHROUT('\n')
|
|
c64scr.print_ub(n2/2)
|
|
c64.CHROUT('\n')
|
|
c64scr.print_ub(n2/3)
|
|
c64.CHROUT('\n')
|
|
c64scr.print_ub(n2/4)
|
|
c64.CHROUT('\n')
|
|
}
|
|
}
|