10 clear 24575
20 load "" code 24576
30 ink 0:paper 7:cls:randomize usr 24576
