READ DMAX FOR I=0 TO DMAX-1  READ HP[I],AT[I],DF[I],ID[I] NEXT @M_DATA DATA 2 DATA 100,20,20,0 DATA 120,15,25,1