mirror of
https://github.com/irmen/prog8.git
synced 2024-10-19 22:24:17 +00:00
91 lines
1.8 KiB
Lua
91 lines
1.8 KiB
Lua
%import c64lib
|
|
%import c64utils
|
|
%import c64flt
|
|
%zeropage basicsafe
|
|
|
|
|
|
main {
|
|
|
|
str str1 = "irmen"
|
|
str str2 = "test"
|
|
str_s strs1 = "irmen"
|
|
str_s strs2 = "test"
|
|
|
|
sub start() {
|
|
str str1x = "irmen"
|
|
str str2x = "test"
|
|
str_s strs1x = "irmen"
|
|
str_s strs2x = "test"
|
|
|
|
c64scr.print(str1)
|
|
c64.CHROUT('\n')
|
|
c64scr.print(str2)
|
|
c64.CHROUT('\n')
|
|
c64scr.print(str1x)
|
|
c64.CHROUT('\n')
|
|
c64scr.print(str2x)
|
|
c64.CHROUT('\n')
|
|
|
|
str1[0]='a'
|
|
str2[0]='a'
|
|
str1x[0]='a'
|
|
str2x[0]='a'
|
|
strs1x[0]='a'
|
|
strs2x[0]='a'
|
|
strs1[0]='a'
|
|
strs2[0]='a'
|
|
|
|
c64scr.print(str1)
|
|
c64.CHROUT('\n')
|
|
c64scr.print(str2)
|
|
c64.CHROUT('\n')
|
|
c64scr.print(str1x)
|
|
c64.CHROUT('\n')
|
|
c64scr.print(str2x)
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
byte[] barr = [1,2,3]
|
|
word[] warr = [1000,2000,3000]
|
|
float[] farr = [1.1, 2.2, 3.3]
|
|
|
|
byte bb
|
|
word ww
|
|
float ff
|
|
for bb in barr {
|
|
c64scr.print_b(bb)
|
|
c64.CHROUT(',')
|
|
}
|
|
c64.CHROUT('\n')
|
|
for ww in warr {
|
|
c64scr.print_w(ww)
|
|
c64.CHROUT(',')
|
|
}
|
|
c64.CHROUT('\n')
|
|
for bb in 0 to len(farr)-1 {
|
|
c64flt.print_f(farr[bb])
|
|
c64.CHROUT(',')
|
|
}
|
|
c64.CHROUT('\n')
|
|
|
|
barr[0] = 99
|
|
warr[0] = 99
|
|
farr[0] = 99.9
|
|
for bb in barr {
|
|
c64scr.print_b(bb)
|
|
c64.CHROUT(',')
|
|
}
|
|
c64.CHROUT('\n')
|
|
for ww in warr {
|
|
c64scr.print_w(ww)
|
|
c64.CHROUT(',')
|
|
}
|
|
c64.CHROUT('\n')
|
|
for bb in 0 to len(farr)-1 {
|
|
c64flt.print_f(farr[bb])
|
|
c64.CHROUT(',')
|
|
}
|
|
}
|
|
|
|
}
|