Hier 256K für euch, zum Abtippen:
1 MEMORY &A000:MODE 1:FOR i=1 TO 49:READ a$:POKE &A000+i,VAL("&"+a$):NEXT:CALL &A000
2 DATA 3E,4B,06,00,CD,5A,BB,04,20,FA,3E,0D,CD,5A,BB,3E,0A,CD,5A,BB,3E,32,CD,5A,BB,3E,35,CD,5A,BB,3E,36,CD,5A,BB,3E,4B,CD,5A,BB,3E,21,CD,5A,BB,CD,06,BB,C9