10 clear 32772
20 load "" code
30 cls:randomize usr 32773


