1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
include! ../../../std/index
call start
halt
.start
call clear
pause
push $st, #FF00FF
push $st, 50.0
push $st, 50.0
dup $vi(3)
cast $st, float
dup $vi(4)
cast $st, float
call std.graphics.draw_line
sig %flush_frame%
pause
jmp start
ret
.clear
push $st, @1
add $bp, $st
push $vi(20), @16000
push $vi(0), @0
.clear__loop
push $fb, #000000
push $st, @1
add $vi(0), $st
cmp $vi(0), $vi(20)
jmplteq clear__loop
push $st, @1
sub $bp, $st
ret