BASCOM $1,$1=$1/D/N
L80 $1,RND/E