1 POKE788,52:X=PEEK(186):IFX<8ORX>13THENX=8
2 GOSUB26:GOSUB28:WAIT203,64,64:GOSUB26:GOSUB35
3 WAIT203,64,64:OPEN15,X,15:OPEN2,X,2,"#"
4 PRINT#15,"U1:";2;0;20;5:PRINT#15,"B-P:"2;10:GET#2,A$:A=ASC(A$+CHR$(0))
5 IFA<>2THEN:CLOSE2:CLOSE15:GOTO3
6 GOSUB26:PRINT"[194]ITTE WARTEN!"
7 NU=237:PU=4:FORA=0TO259:NU=NU+1:READBY:IFNU>255THENPU=5:NU=0
8 PRINT#15,"M-W"CHR$(NU)CHR$(PU)CHR$(1)CHR$(BY):NEXTA:A=1:E=17:GOSUB12
9 B1=25:B2=18:GOSUB14:A=27:E=28:GOSUB12:B1=30:GOSUB14:B1=31:B2=17:GOSUB14
10 A=32:E=33:GOSUB12:GOSUB17
11 GOSUB26:GOSUB37:POKE53281,6:POKE53280,6:PRINT"[147]":LOAD"GEOS",8,1
12 FORT=ATOE:PRINT#15,"M-W"CHR$(244)CHR$(4)CHR$(1)CHR$(T)
13 PRINT#15,"M-E"CHR$(238)CHR$(4):POKE53280,NL:NL=NL+1:NEXTT:RETURN
14 PRINT#15,"M-W"CHR$(244)CHR$(4)CHR$(1)CHR$(B1)
15 PRINT#15,"M-W"CHR$(1)CHR$(5)CHR$(1)CHR$(B2):PRINT#15,"M-E"CHR$(238)CHR$(4)
16 RETURN
17 READ N:IFN<0THEN19
18 PRINT#15,"M-W"CHR$(LB)CHR$(05)CHR$(1)CHR$(N):LB=LB+1:GOTO17
19 ONABS(N)GOTO20,21,24
20 READLB:GOTO17
21 IFSI=1THENPRINT#15,"U2";2;0;T;S
22 READT:READS
23 PRINT#15,"U1"2;0;T;S:SI=1:GOTO17
24 PRINT#15,"U2"2;0;T;S
25 CLOSE2:CLOSE15:RETURN
26 POKE53280,0:POKE53281,0:PRINT"[147]"CHR$(14)TAB(13)"[199][197][207][211]-[198][207][210][205][193][212][207][210]"TAB(98)"VON"
27 PRINTTAB(9)"[200]ANS-[202]UERGEN [218]IETHMANN":RETURN
28 PRINT"[214][207][210][211][201][195][200][212]!"TAB(80)"[196]IESES [208]ROGRAMM FORMATIERT DIE"
29 PRINT"[211]YSTEMDISKETTE."TAB(80)"[196]IE [211]TARTPROGRAMME [199][197][207][211]"TAB(59)"[199][197][207][211] [194][207][207][212]"
30 PRINTTAB(19)"[199][197][207][211] [203][197][210][206][193][204]"TAB(40)"BLEIBEN DABEI ABER VOELLIG ERHALTEN!"
31 PRINT"[196]IESES [208]ROGRAMM KANN NUR AN [199][197][207][211] [214]2.0/  [199][197][207][210][193][205] [214]2.0 ANGEWAND WERDEN!"
32 PRINTTAB(80)"[196]EN [196][197][211][203] [212][207][208] UND DIE"
33 PRINT"[145][145]"TAB(61)"[200]ILFSPROGRAMME"TAB(40)"MUESSEN [211]IE WIDER AUF DIE"
34 PRINT"[211]YSTEMDISKETTE KOPIEREN!"TAB(86)"[194][201][212][212][197] [197][201][206][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]!":RETURN
35 PRINTTAB(40)"[194]ITTE DIE [211]YSTEMDISKETTE IN DAS "TAB(40)"[204]AUFWERK "X;"[146]LEGEN"
36 PRINT"[145]"TAB(18)"UND EINE [212]ASTE"TAB(40)"DRUECKEN!":RETURN
37 PRINT"[198]ORMATIERUNG BEENDET!":IFX=8THEN39
38 PRINT"BITTE LEGEN [211]IE DIE [211]YSTEMDISKETTE IN   DAS [204]AUFWERK (8)"
39 PRINTTAB(247)  "[194]ITTE EINE [212]ASTE DRUECKEN!":WAIT203,64,64:RETURN
40 DATA169,26,141,5,28,162,1,134,10,169,224,133,2,165,2,48,252,96,169,21
41 DATA133,67,169,0,133,27,160,0,162,0,165,57,153,0,3,200,200,165,27,153,0
42 DATA3,200,165,10,153,0,3,200,165,19,153,0,3,200,165,18,153,0,3,200,169
43 DATA15,153,0,3,200,153,0,3,200,169,0,89,250,2,89,251,2,89,252,2,89,253
44 DATA2,153,249,2,230,27,165,27,197,67,144,190,169,3,133,49,152,72,138,157
45 DATA0,7,232,208,250,32,48,254,104,168,136,32,229,253,32,245,253,169,7,133
46 DATA49,32,233,245,133,58,32,143,247,169,0,133,50,32,14,254,169,255,141
47 DATA1,28,162,5,80,254,184,202,208,250,162,10,164,50,80,254,184,185,0,3
48 DATA141,1,28,200,202,208,243,162,9,80,254,184,169,103,141,1,28,202,208
49 DATA245,169,255,162,5,80,254,184,141,1,28,202,208,247,162,187,80,254,184
50 DATA189,0,1,141,1,28,232,208,244,160,0,80,254,184,177,48,141,1,28,200,208
51 DATA245,169,103,162,8,80,254,184,141,1,28,202,208,247,165,50,24,105,10
52 DATA133,50,198,27,208,149,80,254,184,80,254,184,32,0,254,76,158,253,0
53 DATA-2,18,0,-1,0,18,1,65,0,21,255,255,31,21,255,255,31,21,255,255,31,21,255
54 DATA255,31,21,255,255,31,21,255,255,31,21,255,255,31,21,255,255,31,21,255
55 DATA255,31,21,255,255,31,21,255,255,31,21,255,255,31,21,255,255,31,21,255
56 DATA255,31,21,255,255,31,21,255,255,31,21,255,255,31,17,252,255,7,0,0,0,0
57 DATA6,194,6,4,0,0,0,0,0,0,0,0,0,0,0,0,14,246,182,7,18,255,255,3,17,255,255
58 DATA2,18,255,255,3,18,255,255,3,13,94,111,3,18,255,255,3,17,255,255,1,17,255
59 DATA255,1,17,255,255,1,0,0,0,0,15,252,255,1,83,-2,18,0,-1,160,160,160,76,74
60 DATA160,50,65,160,160,160,160,19,8,71,69,79,83,32,102,111,114,109,97,116,32
61 DATA86,49,46,48,66,128,-2,18,1,-1
62 DATA0,0,255,194,19,17,71,69,79,83,160,160,160,160,160,160,160,160,160,160
63 DATA160,160,19,9,0,12,86,4,7,12,0,2,0,0,0,194,19,15,71,69,79,83,32,66,79,79
64 DATA84,160,160,160,160,160,160,160,19,7,0,12,88,7,6,13,0,6,0,0,0,195,19,0
65 DATA71,69,79,83,32,75,69,82,78,65,76,160,160,160,160,160,19,11,1,12,88,7,6
66 DATA13,0,91,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
67 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
68 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
69 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
70 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-3