+d * EDIT DISK * * NAME *8n I116MxPAD$PAD$(160)TIu"EDIT DISK NAME - 1541 ""REMOVE WRITEPROTECT""INSERT DISKETTE""PRESS RETURN" Q$: Q$(13)180"OK"15,8,1515,"IO"15,EN$,EM$,ET$,ES$) EN$"00"280H""EN$", "EM$","ET$","ES$P15Ve2,8,2,"#"{"15,"U1";2;0;18;0,15,EN$,EM$,ET$,ES$615,"B-P";2;2@#2,B$J B$""B$(0)TDOS(B$)^ DOS65390h"73,CBM DOS V2.6 1541,00,00"r"FAILED"|720315,"B-P";2;144@ I116K#2,B$` B$"" B$(0)lA(B$) A127 AA128 A32 A95A63 A34A63ODN$ODN$(A)I"OLD DISK NAME: ";ODN$"NEW DISK NAME: "; NDN$$ (NDN$)0(NDN$)17 530-720O"ARE YOU SURE (Y/N) Y";X Q$j Q$"Y"720&NDN$(NDN$PAD$,16)015,"B-P";2;144:2,NDN$;D15,"U2";2;0;18;0N15,EN$,EM$,ET$,ES$XEN$"00"640b""EN$", "EM$","ET$","ES$l"FAILED"v720$2<15,EN$,EM$,ET$,ES$I15,"IO"a15,EN$,EM$,ET$,ES$i15w"DONE!"} * CLOSE * 215,EN$,EM$,ET$,ES$15