19 lines
194 B
Text
19 lines
194 B
Text
|
00 { 40-Byte Prgm }
|
||
|
01▸LBL "ΣnCk"
|
||
|
02 0
|
||
|
03 STO 00
|
||
|
04 INPUT "n"
|
||
|
05 INPUT "k"
|
||
|
06▸LBL 06
|
||
|
07 RCL "n"
|
||
|
08 RCL "k"
|
||
|
09 COMB
|
||
|
10 STO+ 00
|
||
|
11 1
|
||
|
12 STO- "k"
|
||
|
13 RCL "k"
|
||
|
14 X>0?
|
||
|
15 GTO 06
|
||
|
16 RCL 00
|
||
|
17 END
|