Listing of file='RENAME' on disk='vmedia/tbo_81.wvd.zip'
# Sector 858, program filename = 'RENAME' 0010 REM RENAME DATA FILES 0015 SELECT PRINT 005(64) : PRINT HEX(03);"CHANGE DATA FILE NAME" 0020 GOSUB 120 : REM /Get surface 0030 INPUT "OLD NAME=",F$ 0040 INPUT "NEW NAME=",N$ 0050 LIMITS T#1,F$,A,B,C 0060 SCRATCH T#1,F$ 0070 DATA SAVE DC OPEN T#1,F$,N$ 0080 DSKIP #1,(C-2)S 0090 DATA SAVE DC #1,END 0100 STOP "DONE" 0110 REM %.Ask Disk surface 0120 D=1 : PRINT "DISK SURFACE" 0130 PRINT "1=(F)310 2=(R)B10 3=(F)320 4=(R)B20 5=(F)330 6=(R)B30 7=(F)350" 0140 PRINT "(default=)";D; : INPUT D 0150 ON DGOTO 170,180,190,200,210,220,230 : GOTO 120 0170 SELECT #1310 : RETURN 0180 SELECT #1B10 : RETURN 0190 SELECT #1320 : RETURN 0200 SELECT #1B20 : RETURN 0210 SELECT #1330 : RETURN 0220 SELECT #1B30 : RETURN 0230 SELECT #1350 : RETURN 5000 DEFFN'0 : LOAD DC T "START "