10 OPEN1,8,1,"ADD-CHAR,P,W"
20 PRINT#1,CHR$(0)CHR$(224);
30 FORI=16384TO18431:PRINT#1,CHR$(PEEK(I));:NEXT
40 CLOSE1