1 FOR i=&2023 TO &2023+79:READ a$:POKE i,VAL("&"+a$):NEXT
2 CALL &202A
10  DATA 2,51,30,72,9,4,92,49,21,22,20,CD,3A,20,CD
20  DATA 57,20,3E,2B,32,52,20,2B,16,9,4E,7C,CD,63,20,3E
30  DATA 19,32,6A,20,7B,CD,63,20,CD,5F,20,3E,11,32,6A,20
40  DATA 23,15,20,E6,C9,7B,6,13,CD,5A,BB,10,FB,DF,71,20
50  DATA C9,6,9,CD,5A,BB,7C,CB,11,30,1,7B,10,F5,C9,E2,c3
