1 2 3 4 5 6 7 8
-Screen @loop DUP DUP STA ( draw pixel ) INC DUP ( overflow check ) JNZ ,loop @infinite SLP JMP ,infinite