1 IFPEEK(215)=13THENA(1)=203:T=14:S=8:BY=95:A(3)=64:A(4)=74:A(5)=497:GOTO3
2 A(1)=213:A(3)=128:T=10:S=12:BY=116:A(4)=167:A(5)=569
3 POKE53280,0:POKE53281,0:PRINTCHR$(14):X=PEEK(186):IFX<8ORX>12THENX=8
4 PRINTCHR$(147)TAB(10)"[199][197][207][198][201][204][197]"A(3)"-[195]HANGE"TAB(57)"VON"
5 PRINTTAB(8)"[200]ANS-[202]UERGEN [218]IETHMANN"TAB(120)"[194]ITTE LEGEN [211]IE DIE [199][197][207][211]-"
6 PRINTTAB(40)"[193]PPLIKATIONSDISKETTE"A(3)TAB(80)"IN DAS [204]AUFWERK"X
7 PRINTTAB(40)"UND DRUECKEN EINE [212]ASTE":WAITA(1),64,64:OPEN1,X,15,"I"
8 OPEN2,X,2,"#":PRINT#1,"U1:";2;0;18;0:PRINT#1,"B-P:";2;190:GET#2,A$
9 A=ASC(A$+CHR$(0)):B=ASC(B$+CHR$(0)):PRINT#1,"U1:";2;0;T;S:PRINT#1,"B-P:";2;BY
10 GET#2,C$,D$:C=ASC(C$+CHR$(0)):D=ASC(D$+CHR$(0)):CLOSE2
11 PRINT"[145][145][145][145][145][199][197][207][198][201][204][197]"A(3)"[157] [196]ISKETTE    ":WAITA(1),64,64:OPEN2,X,2,"#"
12 PRINT#1,"U1:";2;0;18;0:PRINT#1,"B-P:";2;190:PRINT#2,CHR$(A);:PRINT#2,CHR$(B);
13 PRINT#1,"U2:";2;0;18;0:GOSUB15:PRINT#2,CHR$(C);:PRINT#2,CHR$(D);
14 PRINT#1,"U2:";2;0;T;S:CLOSE2:CLOSE1:PRINT"[199][197][207][198][201][204][197]"A(3)"ANGEPASST!":END
15 A(6)=20:FORT=1TO35:FORS=0TOA(6):PRINT#1,"U1:";2;0;T;S:PRINT#1,"B-P:";2;A(4)
16 GET#2,E$,F$,G$:E=ASC(E$+CHR$(0)):F=ASC(F$+CHR$(0)):G=ASC(G$+CHR$(0))
17 A=E+F+G:IFA=A(5)THENRETURN
18 A=0:IFT>17THENA(6)=18:IFT>24THENA(6)=17:IFT>30THENA(6)=16
19 NEXTS,T:CLOSE2:CLOSE1:PRINT"[147][203]ANN LEIDER DIE [201]NSTALLATIONS-[206]R. NICHT FINDEN"