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