Bandiera Ucraina

; ***************************************************************
;
; BANDIERA UCRAINA #NoWar (C)2022
; FOR C64 - V 1.0 (28 FEB 2022)
; CODE BY KIMONO (FELICE NARDELLA)
; XC=BASIC V 2.3.02
;
; ***************************************************************

	PRINT "{CLR}"
	DOKE $D020,0
	A$="{158}{239}{210}{198}{195}{196}{197}{247}{197}{196}{195}{198}{210}{239}"

	FOR K = 0 TO 79
		POKE $033C+K,6
	NEXT K

LOOP:

	PRINT A$;
	MEMCPY $033C, $D9B8, 80

GOTO LOOP