Dim VT(3)

_DIR$="votacion:amiga/"

V=Rnd(14)

For BUCLE=1 To 200

   NAME$="Votos."
   EXT$=Hex$(V)
   EXT$="00"+Right$(EXT$,Len(EXT$)-1)
   EXT$=Right$(EXT$,3)
   NAME$=NAME$+EXT$
   Print NAME$
   Open Out 1,_DIR$+NAME$
   For C=1 To 12
      For P=1 To 3
         VT(P)=Rnd(15)
      Next 
      If VT(2)=VT(1) Then Inc VT(2)
      Repeat 
         EX=True
         If VT(3)=VT(1) Then Inc VT(3) : EX=False
         If VT(3)=VT(2) Then Inc VT(3) : EX=False
      Until EX
      For P=1 To 3
         Print #1,Chr$(VT(P));
      Next 
   Next 
   Print #(1),Chr$(255)
   Close 1
   V=V+Rnd(15)

Next