10 MEMORY &9FFF:FOR i=0 TO &4C:READ a$:POKE &A000+i,VAL("&"+a$):NEXT i:CALL &A000:NEW 
20 DATA 21,44,A0,0E,00,06,81,11,0E,A0,CD,D7,BC,C9,C5,E5,D5,F5,21,33,
A0,7E,FE,20,28,03,34,18,10,36,00,21,34,A0,7E,FE,FF,28,06,CD,5A,BB,23,18,F5,F1,D1,E1,C1,C9,00,00,56,69,76,65,20,53,65,70,74,68,20,21,20,0D,0A,FF,00,00,00,00,00,00,00,00,00