10 A$="MRED.PKD":D=9
20 B$="L[207]A$,D"+CHR$(13)+"R[213]"+CHR$(13)
30 FORX=1TO10:POKE630+X,ASC(MID$(B$,X)):NEXT:POKE198,10:END