10 clear 24575
20 load "" code
30 border 0
50 cls:randomize usr 24576

