Atari 8-bit Source code

10REM
15REM
20REMREVISIONDATE:83-02-06
30REM
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?"havespecified."
135?"Forexample:or."
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diskwhichistocontain"
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	

• Download link 1

• Download link 1