29700 ? CHR$(125):IF SECOND THEN 29720›29710 DIM FILE$(27),CHFILE$(27),ANS$(1),TXT$(20):SECOND=1›29720 CLOSE #1:OPEN #1,6,0,"D:*.*":TRAP 29740›29730 INPUT #1,TXT$:? TXT$:GOTO 29730›29740 CLOSE #1:TXT$="":TRAP 40000›29750 POKE 702,64:? :? "Do you want to change the disk ";›29760 INPUT ANS$:IF ANS$<>"Y" THEN TRAP 40000:RETURN ›29770 GOTO 29790›29780 GOSUB 29950:GOTO 29760›29790 ? :? "ÌOCK, ÕNLOCK, ÒENAME, ÅRASE or ÆORMAT"›29800 INPUT ANS$:IF ANS$="L" THEN CMD=35:GOTO 29860›29810 IF ANS$="U" THEN CMD=36:GOTO 29860›29820 IF ANS$="R" THEN CMD=32:? :? "Enter OLDNAME,NEWNAME":GOTO 29870›29830 IF ANS$="E" THEN CMD=33:GOTO 29860›29840 IF ANS$="F" THEN CMD=254:CHFILE$="D:":GOTO 29880›29850 GOSUB 29950:GOTO 29800›29860 ? :? "Enter FILENAME ";›29870 FILE$="":INPUT FILE$:CHFILE$="D:":CHFILE$(3)=FILE$:IF FILE$="" THEN GOSUB 29950:GOTO 29870›29880 IF ANS$>"F" THEN 29930›29890 ? :? "Do you really mean it ";›29900 INPUT ANS$:IF ANS$="Y" THEN 29930›29910 GOTO 29700›29920 GOSUB 29950:GOTO 29900›29930 TRAP 29940:XIO CMD,#1,0,0,CHFILE$:GOTO 29700›29940 GOSUB 29950:GOTO 29700›29950 POKE 712,68:? CHR$(253):POKE 712,0:RETURN ›