1 A$="0123456789ABCDEF":PRINTMID$(A$,INT(TR/16)+1,1):PRINTCHR$(14):POKE53281,6
2 POKE53280,6:INPUT"[147][215]IE LAUTET DER DEFEKTE [212]RACK";TR$:IFLEN(TR$)<>2THEN2
3 FORA=1TO2:FORB=1TO16:IFMID$(TR$,A,1)=MID$(A$,B,1)THENX(A)=B-1
4 NEXTB,A:TR=16*X(1)+X(2):IFTR<0ORTR>35ORTR=21THEN2
5 PRINT"[147][194]ITTE [209]UELLDISKETTE EINLEGEN":SX=20:SP=5000:WAIT203,64,64
6 OPEN1,8,15:OPEN2,8,2,"#":IFTR>17THENSX=18:IFTR>24THENSX=17:IFTR>30THENSX=16
7 FORSE=0TOSX:PRINT#1,"U1"2;0;TR;SE:PRINT#1,"B-P"2;P:FORP=0TO255:GET#2,BY$
8 BY=ASC(BY$+CHR$(0)):POKESP,BY:SP=SP+1:NEXTP,SE:CLOSE2:CLOSE1:POKE53280,0
9 POKE53281,0:PRINT""TAB(5)"  [218]IE"TAB(47)"^":WAIT203,64,64:OPEN1,8,15,"I"
10 OPEN2,8,2,"#":Z=19:N=238:PU=4:FORI=0TO259:READX:SU=SU+X:NU=NU+1
11 IFN>255THENN=0:PU=5
12 IFNU>10THENREADA:NU=0:Z=Z+1:IFSU<>ATHENGOTO19
13 PRINT#1,"M-W"CHR$(N)CHR$(PU)CHR$(1)CHR$(X):N=N+1:NEXTI
14 PRINT#1,"M-W"CHR$(244)CHR$(4)CHR$(1)CHR$(TR)
15 PRINT#1,"M-W"CHR$(1)CHR$(5)CHR$(1)CHR$(SE):PRINT#1,"M-E"CHR$(238)CHR$(4)
16 SP=5000:FORSE=0TOSX:PRINT#1,"U1"2;0;TR;S:PRINT#1,"B-P"2;0:FORP=0TO255
17 BY=PEEK(SP):PRINT#2,CHR$(BY);:SP=SP+1:NEXTP:PRINT#1,"U2"2;0;TR;SE:NEXTSE
18 PRINT#1,"I":CLOSE2:CLOSE1:PRINT"[212]RACK REPARIERT!":END
19 PRINT"[147][196]ATAFEHLER IN [218]EILE";Z;"[146]":CLOSE2:CLOSE1:END
20 DATA169,26,141,5,28,162,21,134,10,169,224,1089
21 DATA133,2,165,2,48,252,96,169,19,133,67,2175
22 DATA169,0,133,27,160,0,162,0,165,57,153,3201
23 DATA0,3,200,200,165,27,153,0,3,200,165,4317
24 DATA10,153,0,3,200,165,19,153,0,3,200,5223
25 DATA165,18,153,0,3,200,169,15,153,0,3,6102
26 DATA200,153,0,3,200,169,0,89,250,2,89,7257
27 DATA251,2,89,252,2,89,253,2,153,249,2,8601
28 DATA230,27,165,27,197,67,144,190,169,3,133,9953
29 DATA49,152,72,138,157,0,7,232,208,250,32,11250
30 DATA48,254,104,168,136,32,229,253,32,245,253,13004
31 DATA169,7,133,49,32,233,245,133,58,32,143,14238
32 DATA247,169,0,133,50,32,14,254,169,255,141,15702
33 DATA1,28,162,5,80,254,184,202,208,250,162,17238
34 DATA10,164,50,80,254,184,185,0,3,141,1,18310
35 DATA28,200,202,208,243,162,9,80,254,184,169,20049
36 DATA103,141,1,28,202,208,245,169,255,162,5,21568
37 DATA80,254,184,141,1,28,202,208,247,162,187,23262
38 DATA80,254,184,189,0,1,141,1,28,232,208,24580
39 DATA244,160,0,80,254,184,177,48,141,1,28,25897
40 DATA200,208,245,169,103,162,8,80,254,184,141,27651
41 DATA1,28,202,208,247,165,50,24,105,10,133,28824
42 DATA50,198,27,208,149,80,254,184,80,254,184,30492
43 DATA32,0,254,76,158,253,0,34,85,93,83,37264