260 IFA=0 THEN A=1:LOAD"CRUNCH",8,1
300 A$="[147]SYS49152"+CHR$(13):POKE198,LEN(A$)
310 FORI=1TOLEN(A$):POKE630+I,ASC(MID$(A$,I)):NEXT