[CC] [CHIPER] ScreenSaver?

ld A,#1
ld I,#4092
ld (I),A
.loop
ld I,#4090
ld A,(I)
add A,#1
ld I,#4090
ld (I),A
ld I,#4091
ld A,(I)
add A,#1
ld I,#4091
ld (I),A
ld I,#4092
ld A,(I)
add A,#1
ld I,#4092
ld (I),A
ld I,#4092
ld A,(I)
mor A,#15
jmp if0do
jmp if0end
.if0do
ld A,#1
ld I,#4092
ld (I),A
.if0end
ld A,#1
ld I,#4095
ld (I),A
jmp loop