Listing of file='33' on disk='vmedia/glbr_22.wvd.zip'
# Sector 57, program filename = '33' 0005 PRINT "INPUT 'N,R'. TO END PROGRAM INPUT VALUES<=0." 0007 GOTO 20 0010 PRINT "INPUT 'N,R'" 0020 INPUT N,R 0030 IF N<=0 THEN 999 0040 IF R<=0 THEN 999 0050 IF R<=N THEN 90 0060 PRINT "R MUST BE <=N" 0070 PRINT 0080 GOTO 10 0090 P=1 0100 FOR L=N-R+1 TO N 0110 IF 9.9E62/L>=P THEN 150 0120 PRINT "NO. OF PERMUTATIONS CANNOT BE COMPUTED DUE TO FLOATING" 0130 PRINT "POINT OVERFLOW" 0135 PRINT 0140 GOTO 10 0150 P=P*L 0160 NEXT L 0170 F=1 0175 IF R=1 THEN 210 0180 FOR I=2 TO R 0190 F=F*I 0200 NEXT I 0210 PRINT "NO. OF PERMUTATIONS IS ";P 0220 PRINT "NO. OF COMBINATIONS IS ";P/F 0230 PRINT 0240 GOTO 10 0999 END