start tok64 d64-NeI1pL
0 REM easy-rename (c) 1991 mr.p.              (includes basic-dir (c)ob.DIMom)
1 DIMa$(141),b$(141):INPUT"device?#8{left*3}";d:INPUT"drive ?#0{left*3}";m:p=0:q$=CHR$(34)
2 m$=MID$(STR$(m),2):OPEN1,d,0,"$"+m$:POKE781,1:SYS65478:GETa$,a$:e$=CHR$(.)
3 PRINT:GETa$,a$,a$,a$:IFstTHEN8
4 GETa$:ON-(a$="b")GOTO8:IFa$<>CHR$(34)THEN4
5 GETa$:IFa$<>q$THENa$(p)=a$(p)+a$:GOTO5
6 PRINTq$a$(p)q$" ";:p=p+1
7 GETa$:ON-(a$="")GOTO3:PRINTa$;:GOTO7
8 SYS65484:CLOSE1:p=p-1:POKE198,.:PRINT"{clear}{down}{right}original name"," rename to":POKE198,.
9 FORi=1TOp:PRINT" "q$a$(i)q$TAB(21)q$a$(i)q$:INPUT"{up}{right*19}";b$(i)
10 IFb$(i)=a$(i)THENb$(i)=""
11 NEXT:OPENd,d,15:PRINT"renaming":FORi=1TOp:IFb$(i)=""THEN14
12 PRINTq$a$(i)q$" to "q$b$(i)q$:PRINT#d,"r"m$":"b$(i)"="a$(i)
13 GET#d,a$:IFa$<>"0"THENINPUT"{reverse on}disk error{reverse off} continue? n{left*3}";b$:IFb$="n"THEN15
14 NEXT
15 CLOSEd
stop tok64
(bastext 1.0)