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