10DEFFNS="Eoff!"
20MODE0
30*.
40PRINT"Rescue By C.J.Richardson for
8BS"
50PRINT"ADFS ONLY!!!!"
60PRINT"Remove E attributes and chang
e to WR? Y/N"
70IFGET$<>"Y" END
80start%=&C405
90REPEAT
100IF ?(start%+4)>128?(start%+4)=?(sta
rt%+4)-128
110start%=start%+26
120UNTILstart%>&C900
130*ACCESS #* WR
140*.