10 DIM T$(30)›20 OPEN #1,12,0,"S:":REM OPEN FOR R/W›30 FOR I=ASC("A") TO ASC("Z")›40 PUT #1,I:NEXT I›50 POSITION PEEK(82),0›60 FOR I=1 TO 26:GET #1,CHARACTER›70 T$(I,I)=CHR$(CHARACTER)›80 NEXT I›90 GET #1,I:REM MOVE THE CURSOR PAST THE Z›100 CLOSE #1›110 PRINT :PRINT T$›