2018-08-16 21:10:28 +00:00
|
|
|
%output prg
|
|
|
|
%launcher basic
|
2018-09-15 22:59:12 +00:00
|
|
|
%option enable_floats
|
2018-08-16 21:10:28 +00:00
|
|
|
|
2018-09-15 22:59:12 +00:00
|
|
|
~ main {
|
2018-09-02 16:32:48 +00:00
|
|
|
|
2018-09-15 22:59:12 +00:00
|
|
|
sub start() -> () {
|
2018-09-11 22:51:48 +00:00
|
|
|
|
2018-09-16 13:40:28 +00:00
|
|
|
const str cs1 = "string1"
|
|
|
|
const str_p cs2 = "string2"
|
|
|
|
const str_s cs3 = "string3"
|
|
|
|
const str_ps cs4 = "string4"
|
|
|
|
str vs1 = "string1"
|
|
|
|
str_p vs2 = "string2"
|
|
|
|
str_s vs3 = "string3"
|
|
|
|
str_ps vs4 = "string4"
|
|
|
|
const byte[5] ba = [1,2,3,4,5]
|
|
|
|
const byte[5] ba2 = [1,2,3,4,50]
|
|
|
|
const word[5] wa = [1,2,3,4,5]
|
|
|
|
const word[5] wa2 = [1,2,3,4,500]
|
|
|
|
const byte[100] yy = 1 to 100
|
|
|
|
const byte[100] zz = 100 to 1 step -1
|
|
|
|
const byte[7] xx = 1 to 20 step 3
|
|
|
|
const byte[7] ww = 20 to 1 step -3
|
|
|
|
const byte[2,4] wwm = 23 to 1 step -3
|
|
|
|
const str derp2 = "a" to "z"
|
|
|
|
|
|
|
|
_vm_write_str(cs1)
|
|
|
|
_vm_write_str(cs2)
|
|
|
|
_vm_write_str(cs3)
|
|
|
|
_vm_write_str(cs4)
|
|
|
|
_vm_write_str(vs1)
|
|
|
|
_vm_write_str(vs2)
|
|
|
|
_vm_write_str(vs3)
|
|
|
|
_vm_write_str(vs4)
|
|
|
|
|
2018-09-17 19:05:33 +00:00
|
|
|
byte lv = 0
|
2018-09-15 22:59:12 +00:00
|
|
|
word tx = 0
|
|
|
|
word ty = 12 % 5
|
|
|
|
float time = 0.0
|
|
|
|
_vm_gfx_clearscr(0)
|
2018-09-15 16:43:23 +00:00
|
|
|
|
2018-09-16 20:00:19 +00:00
|
|
|
for XY in 0 to 300 step 3 {
|
|
|
|
_vm_gfx_pixel(XY, 2, XY)
|
|
|
|
_vm_gfx_pixel(XY+1, 2, XY)
|
|
|
|
_vm_gfx_pixel(XY, 3, XY)
|
|
|
|
_vm_gfx_pixel(XY+1, 3, XY)
|
|
|
|
; continue
|
|
|
|
; break
|
|
|
|
}
|
|
|
|
for XY in 315 to 0 step -3 {
|
|
|
|
_vm_gfx_pixel(XY, 6, XY)
|
|
|
|
_vm_gfx_pixel(XY+1, 6, XY)
|
|
|
|
_vm_gfx_pixel(XY, 7, XY)
|
|
|
|
_vm_gfx_pixel(XY+1, 7, XY)
|
|
|
|
; continue
|
|
|
|
; break
|
2018-09-16 01:00:32 +00:00
|
|
|
}
|
|
|
|
|
2018-09-15 22:59:12 +00:00
|
|
|
loop:
|
|
|
|
tx = round(sin(time*1.01)*150 + 160)
|
|
|
|
ty = round((cos(time)+sin(time/44.1))*60 + 128)
|
|
|
|
_vm_gfx_pixel(tx, ty, rnd() % 4 + 7)
|
|
|
|
time += 0.02
|
|
|
|
goto loop
|
2018-09-05 21:14:08 +00:00
|
|
|
}
|
2018-08-12 21:09:59 +00:00
|
|
|
}
|