1 POKE53280,0:POKE53281,0
2 PRINTCHR$(14)"[147]"TAB(15)"[194]AMDOK 8"TAB(97)"VON"TAB(49)"[200]ANS-[202]UERGEN [218]IETHMANN"
3 PRINT"[194]ITTE DEFEKTE [199]EO[194][193][211][201][195]-[196]ISKETTE "TAB(80)"IN DAS [204]AUFWERK LEGEN"
4 PRINT"UND EINE [212]ASTE DRUECKEN":WAIT203,64,64:OPEN1,8,15,"I":OPEN2,8,2,"#"
5 PRINT#1,"U1:"2;0;10;5:PRINT#1,"B-P"2;20:GET#2,A$:A=ASC(A$+CHR$(0))
6 IFA<>0THENPRINT"[147]NICHT AUF DIESER [196]ISK ANWENDBAR!":CLOSE2:CLOSE1:END
7 READN:IFN<0THEN9
8 PRINT#1,"M-W"CHR$(LB)CHR$(05)CHR$(1)CHR$(N):LB=LB+1:GOTO7
9 ON ABS(N) GOTO10,11,14
10 READ LB:GOTO 7
11 IF SI=1 THENPRINT#1,"U2:";2;0;T;S
12 READ T: READ S
13 PRINT#1,"U1:";2;0;T;S:SI=1:GOTO7
14 PRINT#1,"U2:";2;0;T;S:PRINT#1,"I"
15 CLOSE2:CLOSE1:PRINT"[199]EO[194][193][211][201][195]-[196]ISKETTE NUN WIEDER"TAB(80)"VERWENDBAR!"
16 DATA-2,18,0,-1,0,18,1,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
17 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
18 DATA0,0,0,0,0,0,0,0,15,252,253,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
19 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
20 DATA0,0,0,0,17,255,255,1,17,255,255,1,103,101,111,66,65,83,73,67,32,83,101
21 DATA105,116,101,32,49,160,160,71,68,160,50,65,160,160,160,160,19,8,71,69,79
22 DATA83,32,102,111,114,109,97,116,32,86,49,46,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
24 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,18,9,131,1,16,71,69,79,66
25 DATA65,83,73,67,160,160,160,160,160,160,160,160,1,8,1,6,90,2,7,22,43,53,1,0
26 DATA0,131,15,6,66,65,83,73,67,32,71,82,65,66,66,69,82,160,160,160,15,19,0,6
27 DATA89,8,5,12,41,37,0,0,0,0,34,1,76,95,52,46,50,46,49,95,49,160,160,160,160
28 DATA160,160,160,34,10,1,7,89,9,19,17,57,4,0,0,0,0,34,2,76,95,52,46,50,46,49
29 DATA95,50,160,160,160,160,160,160,160,34,11,1,7,89,9,19,17,58,4,0,0,0,0,34
30 DATA4,76,95,52,46,50,46,49,95,51,160,160,160,160,160,160,160,34,13,1,7,89
31 DATA9,19,17,59,4,0,0,0,0,34,6,76,95,52,46,50,46,49,95,52,160,160,160,160
32 DATA160,160,160,34,15,1,7,89,9,19,18,1,4,0,0,0,0,35,14,76,95,52,46,50,46
33 DATA50,160,160,160,160,160,160,160,160,160,34,8,1,7,89,9,19,18,2,4,0,0,0,0
34 DATA35,3,76,95,52,46,50,46,52,160,160,160,160,160,160,160,160,160,35,12,1
35 DATA7,89,9,19,18,4,4,0,-3