10 border 0:clear 24575
20 load "" code
40 cls:randomize usr 24584

