50 I=0:L=0:MAX=196›60 DIM A$(MAX),B$(MAX),R$(1)›70 OPEN #1,4,0,"E:":OPEN #2,4,0,"K:"›80 ? "This program helps you to create"›90 ? " a personalized AUTORUN.SYS file"›100 ? " which, following the disk boot"›110 ? " process, automatically issues"›120 ? " a set of commands that ωου"›130 ? " specify."›140 I=I+1›150 ? :? "Please enter command #";I;"."›160 ? :INPUT #1;A$›170 POKE 766,1:? :? "Command #";I;":";A$:POKE 766,0›180 ? :? "Is that correct (Y/N)? ";:GET #2,X:? :R$=CHR$(X)›190 IF R$="Y" OR R$="y" THEN 220›200 IF R$="N" OR R$="n" THEN 150›210 GOTO 170›220 X=L+LEN(A$)+1-MAX›230 IF X<=0 THEN 260›240 ? :? "Command #";I;" is ";X;" character(s)"›250 ? "too long.":I=I-1:GOTO 270›260 B$(L+1)=A$:L=LEN(B$):B$(L+1)=CHR$(155):L=L+1›270 ? :? "Current command list:"›280 POKE 766,1:? :? B$:POKE 766,0›290 IF L>=MAX-1 THEN ? "Command list is full.":? :GOTO 370›300 ? "Command list can hold ";MAX-L-1;" more"›310 ? " character(s)."›320 ? :? "More commands (Y/N)? ";:GET #2,X:R$=CHR$(X)›330 IF R$="Y" OR R$="y" THEN 140›340 IF R$="N" OR R$="n" THEN 360›350 GOTO 300›360 ? CHR$(125);›370 ? "Mount diskette which is to bear"›380 ? " the AUTORUN.SYS file, then"›390 ? " press RETURN. ";:GET #2,X:CLOSE #1:CLOSE #2›400 ? CHR$(125);:? "Writing AUTORUN.SYS file."›410 OPEN #1,8,0,"D:AUTORUN.SYS"›420 REM PUT OUT THE HEADER AND THE CORE MACHINE LANGUAGE PROGRAM›430 DATA 255,255,0,6,59,6›440 DATA 173,31,208,41,4,240,10,169,18,141,33,3›450 DATA 169,6,141,34,3,96,251,243,51,246,33,6›460 DATA 163,246,51,246,60,246,76,228,243,0,238,33›470 DATA 6,172,33,6,192,0,208,10,169,0,141,33›480 DATA 3,169,228,141,34,3,185,59,6,160,1,96›490 FOR I=1 TO 66:READ X›500 IF I=5 OR I=48 THEN X=X+L›510 PUT #1,X:NEXT I›520 REM ADD THE COMMAND LIST›530 FOR I=1 TO L›540 X=ASC(B$(I,I))›550 PUT #1,X:NEXT I›560 REM APPEND INITIALIZE AND RUN VECTORS›570 DATA 226,2,227,2,0,6,224,2,225,2,17,6›580 FOR I=1 TO 12:READ X›590 PUT #1,X:NEXT I›600 CLOSE #1:? CHR$(125);:END ›