10 IFPEEK(49152)<>120ANDPEEK(49155)<>141THENLOAD"LS/TD+*",8,1
20 POKE53280,6:POKE53281,6:PRINTCHR$(14):POKE646,1:PRINT"[147]":SYS49152
30 A$="[204]AUFSCHRIFT-[196]EMO":P=(LEN(A$)/2):PRINT""SPC(20-P)A$
40 A$="[194][217]":P=(LEN(A$)/2):PRINT""SPC(20-P)A$
50 A$="[212]IGER-[196]ISK":P=(LEN(A$)/2):PRINT""SPC(20-P)A$
60 A$="IN  2004":P=(LEN(A$)/2):PRINT""SPC(20-P)A$:GOSUB230
70 PRINT"[218]UR [194]EDIENUNG DES [204]AUFSCHRIFTGENERATORS IST EIGENTLICH NICHTS WEITER ";
80 PRINT"ZU SAGEN...:":PRINT"[196]AS [208]ROGRAMM IST AUF DEUTSCH!"
90 PRINT"[196]ASS [196]U [196]EINE ERSTELLTE [204]AUFSCHRIFT VON [196]EINEM [208]ROGRAMM AUS MIT"
100 A$=CHR$(34)+",8,1"+CHR$(34):P=(LEN(A$)/2):PRINTSPC(20-P)A$
110 PRINT"LADEN UND MIT "CHR$(34)"SYS49152"CHR$(34)" STARTEN KANNST,";
120 PRINT"ERFAEHRST [196]U IM [208]ROGRAMM NACH DEM [211]PEI- CHERN [196]EINES [204]AUFSCHRIFT-[198]ILES..."
130 PRINT"[194]LEIBT UNS ALSO NUR, [196]IR [214][201][197][204][160][211][208][193][211][211]     MIT DIESEM [208]ROGRAMM ZU WUENSCHEN!"
140 A$=" [212][201][199][197][210][195][210][197][215] ":P=(LEN(A$)/2):PRINT""SPC(20-P)A$
150 GOSUB230:GOTO160
160 PRINT"[208][211]: [203]LEINER [212]IP NOCH...!:":PRINT"[196]A BEIM [194]ILDSCHIRM-[204]OESCHEN MIT"
170 A$=CHR$(34)+"CHR$(147)"+CHR$(34):P=(LEN(A$)/2):PRINTSPC(20-P)A$
180 PRINT"([211][200][201][198][212]+[195][204][210]/[200][207][205][197]) AUCH DIE [204]AUFSCHRIFT   GELOESCHT WIRD, EMPFIEHLT ES ";
190 PRINT"SICH,":PRINT"DAS [204]OESCHEN MIT DER IN DIESEM [208]ROGRAMM ENTHALTENEN [210]OUTINE ";
200 PRINT"VORZUNEHMEN...!":PRINT"[194][197][193][195][200][212][197][206] SOLLTEST [196]U AUCH, DASS [196]U DEN"
210 PRINT"[194]ILDSCHIRM NICHT BIS ZUR LETZTEN [218]EILE  NUTZEN KANNST...!"
220 GOSUB230:GOTO30
230 GETX$:IFX$=""THEN230
240 IFX$="E"THENSYS64738
250 FORX=0TO21:POKE781,X:SYS59903:NEXT:PRINT"";
260 RETURN