image of READY prompt

Wang2200.org

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