	ORG 100H	; CP/M base of TPA (transient program area)
	LXI D,ST1
	CALL PRI
	LXI D,ST2
	CALL PRI
	CALL PR8
	LXI D,ST2
	CALL PRI
	CALL PR8
	LXI D,ST2
	CALL PRI
	RST 0

PR8: ; Loop 8 times
	MVI L,8
PL8:
	LXI D,ST3
	CALL PRI
	DCR L
	RZ
	JMP	PL8

PRI: ; wants string pointer in D
	PUSH L		; CP/M corrupts regs
	MVI C,9		; BDOS function 9 (C_WRITESTR) - Output string
	CALL 5		; BDOS function 5 (L_WRITE) - Printer output
	POP L		; Restore regs
	RET

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