10 OPEN #1,8,0,"D:TEST.DAT"›20 FOR I=ASC("A") TO ASC("Z")›30 PUT #1,I:NEXT I›40 CLOSE #1›50 OPEN #1,4,0,"D:TEST.DAT"›60 FOR I=1 TO 26›70 GET #1,CHARACTER›80 PRINT ;CHR$(CHARACTER);›90 NEXT I›100 CLOSE #1›