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