1DATA1711,2607,2911,785,4139,1041,823,1721,967,85:DIMU(18),V(9):L=1
2IFL=1THENREADV(I)
3S=RND(-V(I)):IFI=9THENL=-1
4FORJ=0TO18:IFJ<10THENU(J)=32+INT(RND(1)*2)*10:U(18-J)=U(J)
5?CHR$(U(J));:NEXT:?:I=I+L:IFI>-1THEN2