1 COM N 10 REM:RAN2 OF >PSAM 50 REM:11MAY74 100 DIM B$[10],C[4000] 110 DEF FNB(Q)=INT(N*Q+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 N10 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