WRITE(FILEID)
   WRITE(SPOFILE,FMT,LISTID)
   WRITE(FILEID[NO],FMT)
   WRITE(SPOFILE,10,ARRY[3,*])
   WRITE(SWFILEID[0],X+Y-Z,ARRY[X,I,*])
   WRITE(SPOFILE,/,LISTID)
   WRITE(FILEID,FMT,LISTID)
   WRITE(SWFILEID[3][PAGE])
   WRITE(FILEID,/,A,B,C)
   WRITE(FILEID,SWFMT[A*I])
   WRITE(FILEID,*,LISTID)
   WRITE(FILEID[5+I],/,SWLISTID[4])
   WRITE(FILEID,/,LISTID)
   WRITE(FILEID,*,A,B,C)
   WRITE(FILEID,FMT,A,B,C,D+SIN(X)) [:PARL]
   WRITE(FILEID,FMT,LISTID) [:PARSWL[M]]
   WRITE(SWFILEID[1],SWFMT[2],SWLISTID[3]) [:PARSWL[4]]
   WRITE(DIRFYLE,30,DIRARAY) [EVNT]
   WRITE(MYSELF.TASKFILE,<"ABOVE DUMP BEFORE TRANSACTION">)
   WRITE(OUT,10,S1 !! S2)
   WRITE(OUT,<2A10>,TAKE(S1,2),S1 !! "ABC")
   WRITE(OUT[5,SYNCHRONIZE],30,ARRAYNAME)