start tok64 d64-VUTsfG 100 PRINT"{clear}{down}diskette rename program" 120 OPEN15,8,15 130 OPEN2,8,2,"#" 140 GOSUB250 150 PRINTTAB(15)"{down*2}{cm t*16}{up*2}":nn$=dn$ 160 INPUT"{space*5}new name";nn$ 170 IFLEN(nn$)>16THENPRINTTAB(14)"{down}{reverse on}too long!":GOTO150 180 nn$=nn$+"{sh space*16}" 190 PRINT#15,"b-p:";2;144 200 PRINT#2,LEFT$(nn$,16);:REM no cr! 210 PRINT#15,"u2:";2;0;18;0 220 GOSUB250 225 PRINT#15,"io" 230 CLOSE2:CLOSE15 240 END 250 PRINT#15,"u1:";2;0;18;0 260 PRINT#15,"b-p:";2;144 270 dn$="" 280 FORi=1TO16 290 GET#2,a$:dn$=dn$+a$ 300 NEXT 320 RETURN stop tok64 (bastext 1.0)