Atari 8-bit Source code

5REMD:RUNAUTO.BASic
6REMbyCHETWALTERS(c)84
7REM
10GRAPHICS0:SC=PEEK(88)+256*PEEK(89):DIMA$(21),B$(21):?:?""
15CLOSE#1:TRAP60:?:?"":?:?"ENTERNAMEOFFILETOAUTORUN"
20B$="D:":INPUTA$:B$(3)=A$:IFA$(1,2)=B$(1,2)THENB$=A$
25IFLEN(B$)>20THEN?"":GOTO15
30OPEN#1,4,0,B$:CLOSE#1:?"";:POKE85,0:?B$
35?:?:?"CREATINGFILE,DON'TINTERRUPT":OPEN#1,8,0,"D:AUTORUN.SYS"
40FORI=0TO49:READA:PUT#1,A:NEXTI
45FORI=0TO20:PUT#1,PEEK(SC+I):NEXTI
50FORI=0TO42:READA:PUT#1,A:NEXTI:CLOSE#1
55?"AUTORUNFILEFOR":?A$:?"ISNOW":?"TO":?"R";:END
60CLOSE#1:?CHR$(253):ERR=PEEK(195):IFERR=170THEN?:?"":GOTO15
65IFERR=5THEN?"MUSTBEATLEASTTWOCHARACTERS":GOTO15
70IFERR<>167THEN?"";ERR:GOTO15
75POKE84,3:?"":?:?"PRESS>>RETURN<<TWICETO":?"REPLACEEXISTINGFILEOR"
80?"TYPEDOSTOCHECKMENU":?:?:?"XIO36,#1,0,0,";CHR$(34);"D:AUTORUN.SYS";CHR$(34);":G.30":POKE84,7:END
82DATA255,255,0,6,101,6,160,158,162,36,142,197,2,142,23,208,142
84DATA240,2,189,28,6,145,88,136,202,16,247,169,13,141,74,3,96
86DATA56,29,53,51,50,8,17,22,16,17,9,26,50,53,46,2
88DATA104,141,240,2,168,170,145,88,200,192,129,144,4,189
90DATA94,6,232,192,140,208,241,142,74,3,202,142,197,2,96
92DATA0,44,47,33,36,41,46,39,226,2,227,2,0,6
93REM
94REMFORQUIETLOADCHANGE->240,2TO65,0INLINE88(CURSORWILLREMAININVISIBLE)
95REM
96REMTOHAVENOTEXTAPPEARCHANGE->2TO6INLINE90
97REM
98REMTOMAKESYSTEMRESETCAUSECOLDSTARTCHANGE->197TO68INLINE90(THETEXTWON'TAPPEARHOWEVER)
99REMPROGRAMLOADEDSHOULDISSUEAGRAPHICSSTATEMENTTORESTORECOLOR&CLEARTHESCREEN	

• Download link 1
• Download link 2