5 PRINT CHR$(147)
10 POKE53281,0
11 POKE53280,0
15 GOTO 1000
16 PRINT CHR$(147)
20 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
30 PRINT" [194]                                    [194]"
40 PRINT" [194]   TEXT-LOESCH-NATOR V0.9BETA PRE   [194]"
50 PRINT" [194]                                    [194]"
60 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
70 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
80 PRINT" [194]BITTE GEBEN SIE JETZT IHREN TEXT EIN[194]"
90 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
95 PRINT
110 INPUT"EINGABE:";A$
120 INPUT"EINGABE:";B$
130 INPUT"EINGABE:";C$
140 INPUT"EINGABE:";D$
150 INPUT"EINGABE:";E$
160 PRINT
170 PRINT"DANKE FUER IHRE EINGABE!"
171 PRINT:PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
172 PRINT"[194]                                     [194]"
173 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
175 FOR G=1 TO 37
176 HU=RND(15)
180 POKE (1784+G),24
181 FOR H=1 TO 25:POKE53280,1:POKE53280,0:NEXT H
182 POKE 53280,0
185 NEXT G
190 PRINT:PRINT"DER TEXT WURDE ERFOLGREICH GELOESCHT."
200 GOTO 200
1000 PRINT" MIEKROSOHVT PRESENDIRD TEXT LOESCH -"
1002 PRINT" NATOR V0.9 BETA PRE! VIR PITTEN "
1004 PRINT" TARUM TISES BROGRAHM NISCHT AERNST"
1006 PRINT" ZUNEMEN. WUER VOLGESCHEDEN UEPER-"
1008 PRINT" NEMEN VIR KAINE FERANDVORDUNG! "
1010 PRINT" AES KIPT AUCH GEINE RUEKGAHBEKARANTIE!"
1012 PRINT" TESVEITEREN ISST UNSEHR VIRMENSITZ"
1014 PRINT" INEN NISCHT BEGANNT. $TASS IST AUGH"
1016 PRINT" KUUT SO. ALSO VIR FISSEN AUCH NISCHT."
1018 PRINT" HIR KIPPTS KAIN PIER TESWEGEN ZU "
1020 PRINT" PLEIBEN... VER MER DUMMHEIT FERTRAHGEN"
1022 PRINT" KAN, SOL DASDE TRUEKKEN."
1024 GET V$:IF V$="" THEN GOTO 1024
1025 GOTO 16