10 OPEN 1,8,15,"I"
20 READ X:IF X=-1 THEN 100
25 SU=SU+X
30 PRINT#1,"M-W"CHR$(N>CHR$(6)CHR$(1)CHR$<X)
40 N=N+1:GOTO 20
100 IF SU <> 3608 THEN PRINT "ERROR IN DATAS":STOP
105 INPUT "WHAT TRACK";T
110 INPUT "WHAT SECTOR";S
120 PRINT#1,"M-W"CHR$(22)CHRS(6)CHR$(1)CHR$(T)
125 PRINT#1,"M-W"CHR$(26)CHR$(6)CHR$(1)CHR$(S)
130 PRINT#1,"M-E"CHR$(21)CHR$(6)
135 FOR N=1 TO 500:NEXT
140 PRINT#1,"M-R"CHR$(3)CHR$(0)CHR$(1)
150 GET#1,A$:A=ASC (AS+CHR$(0))
160 IF A>127 THEN 130
170 IF A=1 THEN PRINT"OK":END
180 PRINT "ERROR":END
302 DATA 173,0,28,41,159,9,0,141,0,28,169,17,133,67,169, 5,133,49
304 DATA 76,209,244,169,36,133,12,169,0,133,13,169,224,133,3,165,3,48
306 DATA 252,96,-1