gistfile1.txt

VAR $W
VAR $H
VAR $X
VAR $Y
VAR $R1
VAR $R2
VAR $R3
MOV 128 $W
MOV 128 $H
MOV 0 $X
MOV 0 $Y


LABEL MAIN
RAND 0 255
MOV @r0 $R1
RAND 0 255
MOV @r0 $R2
RAND 0 255
MOV @r0 $R3
MOV $X @r0
MOV $Y @r1
MOV $R1 @r2
MOV $R2 @r3
MOV $R3 @r4
INT 97
MOV 1 @r1
ADD
MOV @r0 $X
MOV $W @r1
SUB
JGZ MAIN
MOV 0 $X
MOV $Y @r0
MOV 1 @r1
ADD
MOV @r0 $Y
MOV $H @r1
SUB
JGZ MAIN
MOV 0 $Y
JMP MAIN