PrintChar	EQU	#BB5A	; A = CHAR, All regs are preserved
StartAdress	EQU	#4000	; it's relocateable

	ORG StartAdress
	WRITE DIRECT "A:VCCC2024.BIN"

	LD HL,ST1
	CALL PrintString

	LD C,#2
Loop2:
	LD HL,ST2
	CALL PrintString
	CALL PR8
	DEC C
	JR Z,FinalLine
	JR Loop2
FinalLine:
	LD HL,ST2
	CALL PrintString
Endless:
	JR Endless

PR8:
	LD B,#8
PL8:
	LD HL,ST3
	CALL PrintString
	DEC B
	RET Z
	JR PL8

PrintString:
	LD A,(HL)
	CP 255
	RET Z
	INC HL
	CALL PrintChar
	JR PrintString

ST1:DB 4,0,'        \O/',13,10,255
ST2:DB '+--------+--------+ ',255
ST3:DB '!        !        ! ',255