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