10 LET c=1
20 LET tot=0: LET s=23280+c*16
30 FOR a=s TO s+15: READ x: POKE a,x: LET tot=tot+x: NEXT a: READ check
40 IF tot<>check THEN PRINT "Error in line ";9990+c: STOP
50 LET c=c+1
60 IF c<9 THEN GOTO 20
70 PRINT "Data OK"
80 SAVE "midixfer" CODE 23296,115
9991 DATA 175,55,221,33,0,94,17,17,0,205,86,5,42,11,94,235,1290
9992 DATA 221,33,17,94,62,255,55,205,86,5,62,1,211,95,1,127,1530
9993 DATA 0,62,21,237,121,17,17,0,42,11,94,25,235,1,127,1,1011
9994 DATA 123,237,121,1,127,2,237,120,203,79,40,250,1,127,1,122,1791
9995 DATA 237,121,1,127,2,237,120,203,79,40,250,19,33,0,94,1,1564
9996 DATA 127,1,126,237,121,230,7,211,254,1,127,2,237,120,203,79,2083
9997 DATA 40,250,35,27,122,179,32,231,1,127,0,62,131,237,121,175,1770
9998 DATA 211,95,201,0,0,0,0,0,0,0,0,0,0,0,0,0,507