%CALC{$SET(webtopic, $LISTRAND(TWikiTip001, TWikiTip002, TWikiTip003, TWikiTip004, TWikiTip005, TWikiTip006, TWikiTip007, TWikiTip008, TWikiTip009, TWikiTip010, TWikiTip011, TWikiTip012, TWikiTip013, TWikiTip014, TWikiTip015, TWikiTip016, TWikiTip017, TWikiTip018, TWikiTip019, TWikiTip020, TWikiTip021, TWikiTip022, TWikiTip023, TWikiTip024, TWikiTip025, TWikiTip026, TWikiTip027, TWikiTip028, TWikiTip029 ))$SET(pos, $FIND(., $GET(webtopic)))$SET(web, $REPLACE($GET(webtopic), $GET(pos), 100))$SET(topic, $REPLACE($GET(webtopic), 1, $GET(pos)))}%