1DATA4292,972,665,1012,335,3010,13,896,345,152:DIMU(18),V(9):L=1
2IFL=1THENREADV(I)
3S=RND(-V(I)):IFI=9THENL=-1
4FORJ=0TO18:IFJ<10THENU(J)=32-(RND(1)>.5)*10:U(18-J)=U(J)
5?CHR$(U(J));:NEXT:?:I=I+L:IFI>-1THEN2