1 MEMORY &A060:FOR I=&A061 TO &A07B:READ A$:POKE I,VAL("&"+A$):NEXT:CALL &A072:NEW 2 DATA 66,A0,C3,6E,A0,49,4E,56,45,52,53,C5,0,CD,9C,BB,C9,01,61,A0,21,7C,A0,CD,D1,BC,C9