0 POKE53281,.:POKE53280,.:POKE808,225:PRINT"[147][159]";CHR$(14);CHR$(8);
1 PRINT"       [205]ASSEN[198]ORMATIERUNGSPROGRAMM      ";
2 PRINT"[150]    CODED IN 1995/96 BY [194]LACK [211]HADOW    "
3 PRINT"[153][211]OFTFORMAT ODER [206]ORMAL S/N ?"
4 GETA$:IFA$<>"S"ANDA$<>"N"THEN4
5 INPUT"[147][155][196]ISKETTENNAMEN";B$:IFA$="N"THENINPUT"[201][196]'S";C$
6 PRINT"[147][158][201]NFORMATION":PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
7 PRINT"[215]ENN SIE DAS [208]ROGRAMM BEENDEN WOLLEN,"
8 PRINT"SO DRUECKEN SIE _[158] ALS [197]SCAPE-[212]ASTE.":GOSUB16
9 PRINT"[147][204]EGEN SIE DIE ZU FORMATIERENDE [196]ISK EIN.":GOSUB16
10 IFC$=""THENG$="N:"+B$
11 IFC$<>""THENG$="N:"+B$+","+C$
12 OPEN1,8,15,G$
13 PRINT"[196]ISKETTE WIRD FORMATIERT...":CLOSE1:OPEN1,8,15
14 FORI=1TO13:GET#1,H$:J$=J$+H$:NEXT:CLOSE1:PRINTJ$:FORI=1TO3000:NEXT:J$=""
15 GOTO9
16 PRINT"[155]           [211][208][193][195][197] FUER [215][197][201][212][197][210]"
17 GETZ$:IFZ$="_"THENPRINT"[194]Y(T)E...":PRINT"[200]EY, COPY ME! [201]'M [198][210][197][197][215][193][210][197]!!":FORI=1TO3000:NEXT
18 IFZ$="_"THENSYS64738
19 IFZ$<>" "THEN17
20 PRINT"[147]":RETURN