prog8/examples/hello.p8

33 lines
637 B
Plaintext
Raw Normal View History

2018-11-25 00:17:39 +00:00
%import c64lib
%import c64utils
~ main {
2018-12-18 14:12:56 +00:00
sub start() {
2018-11-25 00:17:39 +00:00
2018-12-18 14:12:56 +00:00
; set screen colors and activate lowercase charset
c64.EXTCOL = 5
c64.BGCOL0 = 0
c64.COLOR = 1
c64.VMCSB |= 2
2018-11-25 00:17:39 +00:00
2018-12-18 14:12:56 +00:00
; use kernel routine to write text
c64.STROUT("Hello!\n")
str question = "How are you?\n"
; use iteration to write text
2019-01-12 00:59:32 +00:00
for ubyte char in question { ; @todo fix iteration
2018-12-18 14:12:56 +00:00
c64.CHROUT(char)
}
; use loop to write characters
str bye = "Goodbye!\n"
for ubyte c in 0 to len(bye) {
2018-12-18 14:12:56 +00:00
c64.CHROUT(bye[c])
}
2018-11-25 00:17:39 +00:00
}
2018-11-25 00:17:39 +00:00
}