DEMO2  	ORG	7000H
 ENTRY	DI
 	LD	SP,ENTRY
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	B,12
 LOOP1	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP1
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,54H+128
 	LD	B,12
 LOOP2	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP2
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,2AH+128
 	LD	B,12
 LOOP3	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP3
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,40H+128
 	LD	B,12
 LOOP4	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP4
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,60H+128
 	LD	B,12
 LOOP5	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP5
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,70H+128
 	LD	B,12
 LOOP6	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP6
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,78H+128
 	LD	B,12
 LOOP7	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP7
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7CH+128
 	LD	B,12
 LOOP8	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP8
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	B,12
 LOOP9	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP9
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	(HL),A
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	(HL),A
 	INC	HL
 	LD	(HL),A
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	(HL),A
 	INC	HL
 	LD	(HL),A
 	INC	HL
 	LD	(HL),A
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	(HL),A
 	INC	HL
 	LD	(HL),A
 	INC	HL
 	LD	(HL),A
 	INC	HL
 	LD	(HL),A
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	(HL),A
 	INC	HL
 	LD	(HL),A
 	INC	HL
 	LD	(HL),A
 	INC	HL
 	LD	(HL),A
 	INC	HL
 	LD	(HL),A
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	B,6
 LOOP10	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP10
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	B,7
 LOOP11	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP11
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	B,8
 LOOP12	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP12
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	B,9
 LOOP13	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP13
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	B,10
 LOOP14	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP14
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	B,11
 LOOP15	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP15
 	CALL	FILL
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,7EH+128
 	LD	B,12
 LOOP16	LD	(HL),A
 	INC	HL
 	DJNZ	LOOP16
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	A,55H+128
 	LD	(HL),A
 	LD	A,2AH+128
 	INC	HL
 	LD	(HL),A
 	LD	A,55H+128
 	INC	HL
 	LD	(HL),A
 	LD	A,2AH+128
 	INC	HL
 	LD	(HL),A
 	LD	A,55H+128
 	INC	HL
 	LD	(HL),A
 	LD	A,2AH+128
 	INC	HL
 	LD	(HL),A
 	LD	A,55H+128
 	INC	HL
 	LD	(HL),A
 	LD	A,2AH+128
 	INC	HL
 	LD	(HL),A
 	LD	A,55H+128
 	INC	HL
 	LD	(HL),A
 	LD	A,2AH+128
 	INC	HL
 	LD	(HL),A
 	LD	A,55H+128
 	INC	HL
 	LD	(HL),A
 	LD	A,2AH+128
 	INC	HL
 	LD	(HL),A
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	(HL),49H+128
 	INC	HL
 	LD	(HL),25H+128
 	INC	HL
 	LD	(HL),8+128
 	INC	HL
 	LD	(HL),49H+128
 	INC	HL
 	LD	(HL),25H+128
 	INC	HL
 	LD	(HL),8+128
 	INC	HL
 	LD	(HL),49H+128
 	INC	HL
 	LD	(HL),25H+128
 	INC	HL
 	LD	(HL),8+128
 	INC	HL
 	LD	(HL),49H+128
 	INC	HL
 	LD	(HL),25H+128
 	INC	HL
 	LD	(HL),8+128
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	(HL),44H+128
 	INC	HL
 	LD	(HL),23H+128
 	INC	HL
 	LD	(HL),10H+128
 	INC	HL
 	LD	(HL),44H+128
 	INC	HL
 	LD	(HL),23H+128
 	INC	HL
 	LD	(HL),10H+128
 	INC	HL
 	LD	(HL),44H+128
 	INC	HL
 	LD	(HL),23H+128
 	INC	HL
 	LD	(HL),10H+128
 	INC	HL
 	LD	(HL),44H+128
 	INC	HL
 	LD	(HL),23H+128
 	INC	HL
 	LD	(HL),10H+128
 	CALL	SHOWIT
 	CALL	SETUP
 	LD	BC,1023
 RANDOM	LD	A,R
 	RES	0,A
 	RES	7,A
 	ADD	A,128
 	LD	(HL),A
 	INC	HL
 	DEC	BC
 	LD	A,B
 	OR	C
 	JR	NZ,RANDOM
 	CALL	SPECL
 	JP	ENTRY
 FILL	LD	B,12
 	XOR	A
 FILLLP	LD	(HL),A
 	INC	HL
 	DJNZ	FILLLP
 	RET
 SETUP	CALL	1C9H
 	LD	A,96
 	OUT	(0FFH),A
 	LD	HL,3C00H
 	RET
 SHOWIT	LD	HL,3C00H+16
 	LD	A,7EH
 	LD	B,12
 SHOWLP	LD	(HL),A
 	INC	HL
 	DJNZ	SHOWLP
 	LD	A,32
 	OUT	(0FFH),A
 	CALL	1C9H
 	LD	A,160
 	OUT	(0FFH),A
 	LD	HL,3C00H
 	LD	DE,3C01H
 	LD	BC,1023
 	LD	(HL),128
 	LDIR
 	LD	BC,0
 	CALL	60H
 	LD	HL,3C00H+448
 	LD	DE,3C00H+449
 	LD	BC,63
 	LD	(HL),129
 	LDIR
 	CALL	60H
 WAIT	LD	A,(3840H)
 	CP	128
 	JR	Z,WAIT
 	RET
 SPECL	LD	A,32
 	OUT	(0FFH),A
 	CALL	1C9H
 	LD	A,160
 	OUT	(0FFH),A
 	LD	B,16
 	LD	HL,3C00H
 SPECLP	LD	A,128
 SPECGO	PUSH	HL
 	LD	(HL),A
 	INC	HL
 	INC	A
 	CP	192
 	JR	NZ,SPECGO
 	POP	HL
 	LD	DE,40H
 	ADD	HL,DE
 	DJNZ	SPECLP
 	RET
 	END	ENTRY
