5 PRINT "INPUT 'N,R'. TO END PROGRAM INPUT VALUES<=0."
7 GOTO 20
10 PRINT "INPUT 'N,R'"  
20 INPUT N,R  
30 IF N<=0 THEN 999
40 IF R<=0 THEN 999
50 IF R<=N THEN 90 
60 PRINT "R MUST BE <=N"  
70 PRINT 
80 GOTO 10 
90 P=1 
100 FOR L=N-R+1 TO N  
110 IF 9.9E62/L>=P THEN 150
120 PRINT "NO. OF PERMUTATIONS CANNOT BE COMPUTED DUE TO FLOATING"  
130 PRINT "POINT OVERFLOW"  
135 PRINT 
140 GOTO 10
150 P=P*L
160 NEXT L 
170 F=1
175 IF R=1 THEN 210
180 FOR I=2 TO R  
190 F=F*I
200 NEXT I 
210 PRINT "NO. OF PERMUTATIONS IS ";P 
220 PRINT "NO. OF COMBINATIONS IS ";P/F 
230 PRINT 
240 GOTO 10
999 END 

