Od ***********************************************************************n * *x * *9 * NUMBERS MENU * * * * BY *# * *q * VICTOR HARRIS * * *  * JANUARY 27 1988 *[ * * * * ***********************************************************************7 (0)0"";10);"SWITCH TO 80 COLUMNS":Z02000:Z@ :%S 6,1:5,8:""u "";30);"NUMBERS MENU" "Þ" "";28);"INPUT YOUR CHOICE"!"28);"Þ"4!,"";28);"1. COMBINATIONS"X!6"";28);"2. PERMUTATIONS"z!@"";28);"3. FACTORIALS"!J"";28);"4. QUIT"!T"";6);"USE THE _ KEY AS FIRST ENTRY OF AN ITEM TO RETURN TO THE MAIN MENU"7"^C$:C(C$):C(C):(27);"U":(27);"E":"":C360,590,910,1110O"h COMBINATIONS MENU"r"":"";26);"COMBINATION CALCULATIONS":Z05000:Z:"""|21);" NUMBERS MUST BE <= 33 "9#"ÞNUMBER OF ITEMSÞNUMBER OF GROUPSÞCOMBINATIONSÞ"E#L110#"N: ";N$:"R: ";R#N$"_""":240#N(N$)#NR460#"";57);"INVALID N OR R"::LL1:540#TN#550#KF$TNR$550$BF"$WKB>$"";54);"W:";(W):\$L:Z06000:Z:"":380d$&F1p$0T1$:FFT:F1E37"";57);"NUMBERS OUT OF RANGE":Z02000:Z:LL1::400$DTT1:560$N PERMUTATIONS MENU%XD(33):M033:D(M)0:MR%b"":"";26);"PERMUTATION CALCULATIONS":Z05000:Z:""%l21);" NUMBERS MUST BE <= 33 "%v"ÞSIZE OF GROUPÞNUMBER OF SUBGROUPSÞPERMUTATIONSÞ"%L12:&"N: ";N$:"S: ";RP&N$"_""":240\&N(N$)k&NR700&"";59);"INVALID N OR S"::LL1:860&:M0R1&"";33);"SIZE OF GROUP ";M1B'"";D(M):D(M)N"";59);"INVALID GROUP SIZE"::LL1:860I'MQ'C1^'M0R1i'TD(M)r'870|' CCF'M' TN'*870'4KF'>WKC'HW1"";58);"IMPROBABLE PERMUTATION"::860'R:"";59);"P:";(W):(\L:Z06000:Z:"":620 (fF1,(pT1}(zFFT:F1E37"";59);"NUMBERS OUT OF RANGE":Z02000:Z:LL1::640(TT1:880( FACTORIALS MENU("":"";27);"FACTORIAL CALCULATIONS":Z05000:Z:""()21);" NUMBER MUST BE <= 33 ")"ÞNUMBERÞFACTORIALÞ")L110)"N: ";N$)N$"_""":240)N(N$))TN)1050)KF)1050*56);"N!:";(K):.*L:Z06000:Z:"":9306*F1B*$T1*.FFT:F1E37"";60);"NUMBER OUT OF RANGE":Z02000:Z:LL1::950*8TT1*B1060*L"":930*V QUIT*`5,4:(27);"S":(27);"F":16384