10 REM 
20 REM CHANGE D:AUTORUN.SYS
30 REM 
31 CLR 
35 DIM TEMP$(14),NAME$(14)
40 PRINT CHR$(125):POKE 82,2
50 PRINT "       CHANGE AUTORUN.SYS NAME ":PRINT 
100 START=5899
110 FOR LOOP=1 TO 14
120 DAT=PEEK(LOOP+START)
130 TEMP$(LOOP)=CHR$(DAT)
140 NEXT LOOP
150 IF TEMP$(1,3)<>"D1:" THEN 1000
160 PRINT "YOU MUST HAVE THE SAME LENGHT OR LESS"
170 PRINT "AS D1:AUTORUN.SYS"
180 PRINT 
190 PRINT "ENTER NAME - ";:INPUT NAME$
195 IF NAME$(1,1)<>"D" THEN PRINT "}":GOTO 190
196 IF NAME$(2,2)<>":" AND NAME$(3,3)<>":" THEN PRINT "}":GOTO 190
200 IF LEN(NAME$)<14 THEN NAME$(LEN(NAME$)+1)=" ":GOTO 200
210 FOR LOOP=1 TO 14
220 POKE START+LOOP,ASC(NAME$(LOOP,LOOP))
230 NEXT LOOP
234 TRAP 244
240 XIO 36,#1,0,0,"D:DOS.SYS"
244 TRAP 254
250 XIO 33,#1,0,0,"D:DOS.SYS"
254 TRAP 1000
260 OPEN #1,8,0,"D:DOS.SYS"
270 CLOSE #1
280 PRINT "COMPLETED"
290 END 
1000 REM 
1010 REM CAN'T CHANGE WRONG DOS.SYS
1020 REM 
1030 PRINT "}";"WRONG DOS FILE"
1040 END