10 CLS
20 PRINT "PERMUTATIONS AND COMBINATIONS" 
30 DEFDBL A-Z : DEFSNG I,J,K
40 PRINT 
50 PRINT "(ENTER 0 TO END PROGRAM)" 
60 PRINT "TOTAL NUMBER OF OBJECTS"; 
70 INPUT N 
80 IF N=0 THEN 300  
90 PRINT "SIZE OF SUBGROUP"; 
100 INPUT D 
110 IF D<=N THEN 150  
120 PRINT "SUBGROUP TOO LARGE"
130 PRINT 
140 GOTO 60   
150 P=1
160 C=1 
170 FOR I=N-D+1 TO N 
180 IF 9.9E37/I>=P THEN 210  
190 PRINT "MORE THAN 9.9E37 PERMUTATIONS" 
200 GOTO 300  
210 P=P*I 
220 NEXT I
230 FOR J=2 TO D 
240 C=C*J 
250 NEXT J 
260 PRINT P;"PERMUTATIONS" 
270 PRINT P/C;"COMBINATIONS" 
280 PRINT 
290 GOTO 60   
300 END