Snowflake 2025 in ZX-Spectrum 48K basic by Kaszi75
for Logiker's Vintage Computing Christmas Challenge 2025

a) least characters in a text file (218)

1 FOR i=0 TO 9: READ a: FOR j=0 TO 9: LET a=a/2: LET a$=CHR$ (32+10*(a<>INT a)): PRINT AT 10+i,10+j;a$;AT 10-i,10+j;a$;AT 10+i,10-j;a$;AT 10-i,10-j;a$: LET a=INT a: NEXT j: NEXT i: DATA 1023,147,293,9,19,229,97,163,5,1

-------------------------
b) least symbols / tokens in Spectrum basic (45)

1 LET x=10: FOR i=0 TO 9: READ a: FOR j=0 TO 9: LET a=a/2: LET a$=CHR$ (32+x*(a<>INT a)): PRINT AT x+i,x+j;a$;AT x-i,x+j;a$;AT x+i,x-j;a$;AT x-i,x-j;a$: LET a=INT a: NEXT j: NEXT i: DATA 1023,147,293,9,19,229,97,163,5,1

-------------------------
c) least bytes in memory (231)

1 LET x=VAL "10": FOR i=NOT PI TO VAL "9": READ a: FOR j=NOT PI TO VAL "9": LET a=a/VAL "2": LET a$=CHR$ (VAL "32"+x*(a<>INT a)): PRINT AT x+i,x+j;a$;AT x-i,x+j;a$;AT x+i,x-j;a$;AT x-i,x-j;a$: LET a=INT a: NEXT j: NEXT i: DATA VAL "1023",VAL "147",VAL "293",VAL "9",VAL "19",VAL "229",VAL "97",VAL "163",VAL "5",PI/PI
