10  FILES C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13
20  FOR I=1 TO 13
30  IF  END #I THEN 80
40  FOR J=1 TO 200
50  PRINT #I,J;-1,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0
55  PRINT #I;-1,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0
60  NEXT J
80  NEXT I
90  END 
