e6980ba382
It used to only update IsExprs, but that meant that all the constants inside types in other things didn't get folded properly, which caused problems.
19 lines
427 B
Plaintext
19 lines
427 B
Plaintext
VAL INT screen.width IS 80:
|
|
VAL INT screen.height IS 24:
|
|
|
|
PROC clear.buffer ([screen.height][screen.width]BYTE screen, [screen.height][screen.width]INT colour)
|
|
SKIP
|
|
:
|
|
|
|
PROC screen.buffer (CHAN OF BYTE in, CHAN OF BYTE out)
|
|
[2][screen.height][screen.width]BYTE screen:
|
|
[2][screen.height][screen.width]INT colour:
|
|
SEQ
|
|
clear.buffer (screen[0], colour[0])
|
|
clear.buffer (screen[1], colour[1])
|
|
:
|
|
|
|
PROC q7 ()
|
|
SKIP
|
|
:
|