READ(FILEID)
    READ(FILEID,FMT)
    READ(FILEID,FMT,LISTID)
    READ(FILEID,*,LISTID)
    READ(SPOFILE,FMT,A,B,C)
    READ(SPOFILE,/,SIZE,LENGTH,MASS)
    READ(FILEID,FMT,7,2,A,B,C,ARAY[A],B+C,F)
    READ(FILEID,/,J,FOR I:= 0 STEP 1 UNTIL J DO ARRY[I])
    READ(FILEID,*,A,B,C,FOR A:= B*A STEP C UNTIL J DO ARY[I])
    READ(SWFILEID[IF X > N THEN X+N ELSE 0],25,ARRY[2,*])
    READ(FILEID,/,SWLISTID[I])
    READ(FILEID,FMT,SWLISTID[I])
    READ(SPOFILE,SWFMT[16],A,B,C)
    READ(FILEID,50,STR)
    READ(FILEID,/,L,M,N,ARRY[2]) [EOFL]
    READ(FILEID[3][NO]) [:PARL]
    READ(SWFILEID[14][NO],FMT,A+EXP(B),ARRY[I,J,*]) [:PARSWL[M]]
    READ(FILEID[NO],SWFMT[6+J],LISTID) [EOFSWL[Q*3]::DATAERRORL]
    READ(SWFILEID[A+B],*,SWLISTID[2+H/K]) [EOFL:PARL]
    READ(FILEID[NO]) [EOFSWL[I]:PARSWL[J]]
    READ(FYLE) [EOFL:PARL:DATAERRL]
    READ(DIRFYLE) [EVNT]
    READ(DIRFYLE,30,DIRARAY) [EVNT]