1 ! RTSNAM 2 F$="[0,1]S1401.FRC" 5 OPEN F$ FOR OUTPUT AS FILE 1%: CLOSE 1% 10 DIM M%(30) 25 OPEN F$ FOR INPUT AS FILE 1% 30 R$="S1401" 40 CHANGE SYS(CHR$(6%)+CHR$(-10%)+R$) TO M% 50 M%(I%)=M%(I%+3%) FOR I%=4% TO 7% 60 M%(0%)=7% 70 M%(1%)=6% : M%(2%)=-17% : M%(3%)=1% 80 CHANGE M% TO M$ : M$=SYS(M$) : CLOSE 1% 85 NAME F$ AS F$+"<124>" 99 END