1 PRINTCHR$(14):POKE53280,6:POKE53281,6
2 PRINT"[147]"TAB(14)"[211]YSWANDLER"TAB(54)"[163][163][163][163][163][163][163][163][163][163]"
3 PRINTTAB(17)"VON"TAB(48)"[200]ANS-[202]UERGEN [218]IETHMANN"
4 PRINTTAB(160)"BITTE LEGEN [211]IE DIE [199][197][207][211] 2.0"
5 PRINT"[199]EOSSYSTEMDISKETTE IN DAS [204]AUFWERK":A=0
6 PRINT"UND DRUECKEN EINE [212]ASTE"
7 WAIT203,64,64:OPEN1,8,15,"I":OPEN2,8,2,"#":RESTORE
8 PRINT#1,"U1:";2;0;18;0:PRINT#1,"B-P";2;10:GET#2,A$:A=ASC(A$+CHR$(0))
9 IFA<>64THENPRINT"[147][198]ALSCHE [196]ISKETTE, BRECHE [198]ORGANG AB!":CLOSE2:CLOSE1:END
10 PRINT"([193])= [211]YSTEMDISKETTE[146]":PRINT"([194])= [211]ICHERHEITSSYSTEMDISKETTE"
11 PRINT"([197])= [197]NDE[146]"
12 GETA$:IFA$="A"THENSY=1:GOTO16
13 IFA$="B"THENSY=2:GOTO16
14 IFA$="E"THENGOTO24
15 GOTO12
16 READ N:IFN<0THEN18
17 PRINT#1,"M-W"CHR$(LB)CHR$(05)CHR$(1)CHR$(N):LB=LB+1:GOTO16
18 ON ABS(N) GOTO19,20,23
19 READ LB:GOTO16
20 IF SI=1 THEN PRINT#1,"U2";2;0;T;S
21 READ T:READ S
22 PRINT#1,"U1"2;0;T;S:SI=1:GOTO16
23 PRINT#1,"U2"2;0;T;S:IFSY=2THENSY=3:GOTO16
24 PRINT#1,"I":CLOSE1:CLOSE2:PRINT"[211]YSTEM GEENDERT":END
25 DATA-2,18,0,-1,144,83,121,115,116,101,109,160,160,160,160,160,160,160,160
26 DATA160,160,-3,-2,18,0,-1,144,83,105,99,104,101,114,104,101,105,116,115,121
27 DATA115,116,101,109,-3