@8191
D=A     //8191 in D
@endpos //endpos
M=D     //bekommt 8191

//@0
D=0
@actpos
M=D

//temp
D=-1
@color
M=D
(LOOP)
@actpos
D=M
@SCREEN
D=D+M
M=D
MD=M-1
@endpos