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

