10 POKE53280,0:POKE53281,0
20 PRINTCHR$(8)CHR$(14)CHR$(154)
30 PRINTCHR$(147)CHR$(18)" AUTOSTARTGENERATOR (C) 1987 [212]. [196]IDDEN  "
40 PRINT" [196]IESES [208]ROGRAMM STATTET JEDES [208]ROGRAMM
50 [153]" ( PEEKASIC ODER (null)P ) MIT EINEM ATNUTOSTART
60 PRINT" AUS. [193]UF [215]UNSCH WERDEN DIE 'RUN/STOP'
70 [153]" UND 'RESTORE'-(null)ASTE ABGESCHALTET.
80 PRINT" [196]AS [193]UTOSTARTPROGRAMM IST DABEI
90 [153]" NUR UNWESENTLICH ( 97 BYTE )
100 PRINT" LAENGER ALS DAS [207]RIGINALPROGRAMM.":PRINT
110 INPUT" ALTER [208]ROGRAMMNAME ";PA$
120 INPUT" NEUER [208]ROGRAMMNAME ";PN$
130 INPUT" R/S + RESTORE AUS    J[157][157][157]";J$
140 IFPA$=""ORPN$=""THENEND
150 J1=49:J2=71
160 IFJ$="J"THENJ1=52:J2=193
170 FORI=1TO77:READA:A$=A$+CHR$(A):NEXT
180 :A$=A$+CHR$(J1)
190 FORI=1TO3:READA:A$=A$+CHR$(A):NEXT
200 :A$=A$+CHR$(J2)
210 FORI=1TO17:READA:A$=A$+CHR$(A):NEXT
220 :
230 OPEN15,8,15
240 OPEN1,8,1,"ZW,P"
250 PRINT#1,A$;
260 CLOSE1
270 PRINT#15,"C:"+PN$+"=ZW,"+PA$
280 PRINT#15,"S:ZW"
290 CLOSE15
300 END
49999 REM AUTOSTARTPROGRAMM                       IN DATA-STATEMENTS
50000 DATA  201,  2
50010 DATA  141, 41,  3, 76,237,246,162, 87,160,241,142, 36,  3,140, 37,  3
50020 DATA  165,196,201,  8,240,  3,108,195,  0,169,  0, 32,144,255, 32, 89
50030 DATA  166, 76,174,167, 32, 19,238,133,174,133,195, 32, 19,238,133,175
50040 DATA  133,196,169,246, 76,201,  2,139,227,131,164,124,165, 26,167,228
50050 DATA  167,134,174, 60,  5,176, 49, 76, 72,178,  0
50060 DATA 234,102,254
50070 DATA  254, 74,243,145,242, 14,242, 80,242, 51,243,207,  2,202,241,237,  2