1  COM N
10  REM:RAN2 OF >PSAM
50  REM:11MAY74
100  DIM B$[10],C[4000]
110  DEF FNB()=INT(N*+1)
200  PRINT '10"*SIZE OF POPULATION TO BE SAMPLED  ?";
202  ENTER 30,Q8,N
204  PRINT 
206  IF Q8>0 THEN 218
208  PRINT '10"NEED HELP ";
210  INPUT B$
212  IF B$[1,1]="N" THEN 200
214  GOTO 9000
216  GOTO 200
218  IF N=INT(N) AND N>1 THEN 225
220  PRINT "TRY AGAIN!  GIVE AN INTEGER >1."
222  GOTO 200
225  IF N<4001 THEN 232
226  GOTO 9913
232  PRINT '10"DESIRED SAMPLE SIZE ";
234  INPUT N1
236  IF N1<1 THEN 240
238  IF N1=INT(N1) AND N1<N THEN 250
240  PRINT "TRY AGAIN! GIVE AN INTEGER >0 AND < "N
242  GOTO 232
250  MAT C=ZER[N]
260  M=0
270  X=RND(M)
280  Y=FNB(X)
290  IF C[Y]=0 THEN 300
292  GOTO 270
300  C[Y]=C[Y]+1
330  M=M+1
335  IF M=N1 THEN 680
340  GOTO 270
680  PRINT '10"THE FOLLOWING MEMBERS OF THE POPULATION OF "N
690  PRINT "COMPRISE THE SAMPLE OF "N1":"'10'13
695  J=0
700  FOR I=1 TO N
710  IF C[I]=0 THEN 750
720  PRINT  USING "#,3X4D";I
722  J=J+1
724  IF J#10*INT(J/10) THEN 750
726  PRINT 
750  NEXT I
775  PRINT 
800  PRINT '10"ANOTHER SAMPLE ";
810  INPUT B$
820  IF B$[1,1]="N" THEN 9998
830  GOTO 200
9000  PRINT "RAN2 SELECTS A RANDOM SAMPLE OF N1 FROM A FINITE POPULATION"
9010  PRINT "OF N, SELECTION WITHOUT REPLACEMENT. USER IS ASKED FOR N AND"
9020  PRINT "N1, AND THE SAMPLE ELEMENTS ARE PRINTED OUT IN ORDER OF"
9030  PRINT "THEIR LISTING IN THE POPULATION."
9040  GOTO 200
9913  CHAIN "$IDA13C"
9998  PRINT '10"TYPE 'GET-$IDA' AND 'RUN' TO ENTER IDA AGAIN."
9999  END 
