1 POKE53280,0:POKE53281,0
2 PRINTCHR$(14)"[147]"TAB(15)"[194]AMDOK 1"TAB(97)"VON"TAB(49)"[200]ANS-[202]UERGEN [218]IETHMANN"
3 PRINT"[194]ITTE DEFEKTE [193]PPLIKATIONSDISKETTE 2.0"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<>252THENPRINT"[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"[193]PPLIKATIONSDISKETTE NUN WIEDER"TAB(80)"VERWENDBAR!"
16 DATA-2,18,0
17 DATA18,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,0,0,0,0,0,0,0
18 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
19 DATA0,15,252,253,5,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,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,13
21 DATA223,159,0,65,112,112,108,105,107,97,116,105,111,110,115,160,160,160,160
22 DATA160,160,74,68,160,50,65,160,160,160,160,19,8,71,69,79,83,32,102,111,114
23 DATA109,97,116,32,86,49,46,48,80,0,0,-2,18,1,-1,0,18,9,131,1,16,68,69,83,75
24 DATA32,84,79,80,160,160,160,160,160,160,160,160,1,8,1,4,88,10,11,17,2,119,0
25 DATA0,0,131,2,2,71,69,79,87,82,73,84,69,160,160,160,160,160,160,160,160,2,15
26 DATA1,6,89,1,3,15,14,140,0,0,0,131,11,19,71,69,79,80,65,73,78,84,160,160,160
27 DATA160,160,160,160,160,11,11,1,6,88,9,22,13,47,155,0,0,0,0,13,9,27,83,119
28 DATA97,112,32,70,105,108,101,160,160,160,160,160,160,13,17,0,13,88,7,6,23,0
29 DATA19,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
30 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
31 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
32 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-3