OUTCH EQU $F018
WARMS EQU $CD03


BEGIN LDB #128
	LDA #5
	JSR OUTCH
OUTLOP LDA #'A
	JSR OUTCH
	DEC B
	BNE OUTLOP
	LDA #$15
	JSR OUTCH
	LDB #128
OUTLP1 LDA #'B
	JSR OUTCH
	DEC B
	BNE OUTLP1

	JMP WARMS

	END BEGIN
                          