mirror of
https://github.com/irmen/prog8.git
synced 2024-10-17 10:24:55 +00:00
37 lines
491 B
Lua
37 lines
491 B
Lua
%import c64lib
|
|
%import c64utils
|
|
%import c64flt
|
|
%zeropage basicsafe
|
|
%option enable_floats
|
|
|
|
|
|
main {
|
|
|
|
float[] fa = [1,2,3,4]
|
|
|
|
sub start() {
|
|
float x = 9.9
|
|
|
|
fa[2] = 8.8
|
|
|
|
p()
|
|
|
|
ubyte b = 2
|
|
fa[b] = 9.8
|
|
p()
|
|
fa[b] = 9.9
|
|
p()
|
|
|
|
}
|
|
|
|
sub p() {
|
|
byte i
|
|
for i in 0 to len(fa)-1 {
|
|
c64flt.print_f(fa[i])
|
|
c64.CHROUT(',')
|
|
c64.CHROUT(' ')
|
|
}
|
|
c64.CHROUT('\n')
|
|
}
|
|
}
|