(C) Zhilenkov Sergei, Murmansk
reg., pos.Vidyaevo
I suggest you one of their "lighter", which is quite
effectively displays a picture placed in the buffer - the
screen slides apart left and right from the center with a step
equal familiarity (the action is carried out simultaneously
with the graphics and attributes), and if you make it to the
screen was already an image, it also moved apart, until it
disappears behind the screen edges (as in the program "Doors" -
ZX REVIEW 93, p.121). Program relotsiruema and takes only 56
bytes. Type in - you will not regret!
140.
BUF EQU 40056
; Buffer address
LD C, 16
L0 LD HL, 16385
LD B, 216
HALT
L1 PUSH BC
LD BC, 15
PUSH BC
PUSH HL
POP DE
DEC DE
LDIR
POP BC
ADD HL, BC
PUSH HL
POP DE
DEC HL
LDDR
POP BC
PUSH BC
PUSH HL
LD DE, BUF-16383
ADD HL, DE
LD B, 0
SBC HL, BC
LD E, (HL)
DEC HL
ADD HL, BC
ADD HL, BC
LD D, (HL)
POP HL
LD (HL), E
INC HL
LD (HL), D
LD DE, 17
ADD HL, DE
POP BC
DJNZ L1
DEC C
JR NZ, L0
RET
*
