mirror of
https://github.com/irmen/prog8.git
synced 2024-07-19 04:28:56 +00:00
58 lines
1.1 KiB
Lua
58 lines
1.1 KiB
Lua
%import c64utils
|
|
%zeropage basicsafe
|
|
|
|
|
|
~ main {
|
|
|
|
sub start() {
|
|
|
|
ubyte x = 99
|
|
|
|
return
|
|
|
|
startqqq:
|
|
|
|
sub startzzz() {
|
|
if_cc goto startqqq
|
|
c64.EXTCOL++
|
|
}
|
|
}
|
|
|
|
|
|
; for ubyte y in 0 to 3 {
|
|
; for ubyte x in 0 to 10 {
|
|
; ubyte product = x*y
|
|
; c64scr.setcc(x, y, 160, product)
|
|
; }
|
|
; }
|
|
; c64.CHROUT('\n')
|
|
; c64.CHROUT('\n')
|
|
;
|
|
; for ubyte y in 12 to 15 {
|
|
; for ubyte x in 0 to 10 {
|
|
; ubyte sumv = x+y
|
|
; c64scr.setcc(x, y, 160, sumv)
|
|
; }
|
|
; }
|
|
|
|
;ubyte bb = len(xcoor)
|
|
|
|
; storage for rotated coordinates
|
|
; ubyte[len(xcoor)] xx = 2
|
|
; float[len(xcoor)] rotatedx=0.0
|
|
;
|
|
; ubyte[4] x = 23
|
|
; float[4] yy = 4.4
|
|
|
|
; c64flt.print_f(xcoor[1])
|
|
; c64.CHROUT(',')
|
|
; c64flt.print_f(xcoor[2])
|
|
; c64.CHROUT('\n')
|
|
; swap(xcoor[1], xcoor[2])
|
|
; c64flt.print_f(xcoor[1])
|
|
; c64.CHROUT(',')
|
|
; c64flt.print_f(xcoor[2])
|
|
; c64.CHROUT('\n')
|
|
|
|
}
|