1010	PRINT TAB(-1,23);TAB(-1,29);TAB(-1,0);
1030	RANDOMIZE
1040	FOR I=1 TO 30000
1060	B=INT(RND(4)*23)+ 1
1050	A=INT(RND(4)*79)+ 1
1070	C=INT(RND(4)*15)+38
1080 	IF C=50 THEN PRINT TAB(B,A);"*";
1090	NEXT I
1221 FINAL:
1230	PRINT TAB(-1,28);TAB(-1,33);
1240	PRINT TAB(-1,24);
1250	END