3 REM      RANDOM:     RANDOM NUMBER GENERATOR
9000 PRINT'DO YOU NEED RANDOM NUMBERS WHICH DO NOT REPEAT OR CAN'
9001 PRINT'THE SAME NUMBER BE USED MORE THAN ONCE? 0=NO REPEATS';
9002 PRINT' 1=CAN REPEAT';
9004 INPUT Q
9005 X=0
9006 DIM Y(1000),Z(1000)
9007 PRINT'WHAT IS THE SAMPLE SIZE DESIRED AND POPULATION SIZE';
9008 INPUT S,N
9009 PRINT
9010 PRINT
9011 IF Q=0 AND N>S THEN 9015
9012 IF Q=1 THEN 9015
9013 PRINT'THE SAMPLE MUST BE SMALLER THAN THE POPULATION, TRY AGAIN.'
9014 GOTO 9007
9015 PRINT'SAMPLE NO.','RANDOM NO.'
9016 MAT Y=ZER
9017 FOR I=1 TO S
9018 GOSUB 9037
9019 NEXT I
9020 IF Q>.5 THEN 9033
9021 MAT Z=ZER
9022 P=0
9023 MAT Z=Y
9024 FOR I=1 TO S
9025 FOR J=1 TO S
9026 IF Y(I)<>Z(J) THEN 9030
9027 IF I=J THEN 9030
9028 GOSUB 9037
9029 P=1
9030 NEXT J
9031 NEXT I
9032 IF P=1 THEN 9021
9033 FOR I=1 TO S
9034 PRINTI,Y(I)
9035 NEXT I
9036 GOTO 9045
9037 A=INT(10*N*RND(X))
9038 B=INT(A/10)
9039 IF A-(10*B)<5 THEN 9042
9040 Y(I)=B+1
9041 GOTO 9043
9042 Y(I)=B
9043 IF Y(I)=0 THEN 9037
9044 RETURN
9045 END