10 OPEN 1,8,15,"I" 20 READ X:IF X=-1THEN 100 25 SU=SU+X 30 PRINT#1,"M-W"CHR$(N)CHR$(4)CHR$(1)CHR$(X) 40 N=N+1:GOTO 20 100 IF SU <> 5381 THEN PRINT "FEHLER IN DATAS":STOP 102 INPUT "STARTTRACK >35 ";S 105 INPUT "ENDTRACK <42 ";E 120 PRINT#1,"M-W"CHR$(25)CHR$(4)CHR$(1)CHR$(S) 125 PRINT#1,"M-W"CHR$(47)CHR$(4)CHR$(1)CHR$(E+1) 130 PRINT#1,"M-E"CHR$(24)CHR$(4) 140 PRINT#1,"M-R"CHR$(1)CHR$(0)CHR$(1) 150 GET#1,A$:A=ASC (A$+CHR$(0)) 160 IF A>127 THEN 140 170 IFA =1 THEN PRINT"FORMATING OK":END 180 PRINT"FORMAT ERROR":END 302 DATA 169,17,133,67,173,0,28,41,159,9,0,141,0,28,165,8,133,81 304 DATA 76,199,250,32,66,208,169,36,133,55,133,8,169,224,133,1,165,1 306 DATA 48,252,201,2,176,8,230,55,165,55,201,42,208,232,96,-1