5 GOSUB60100
6 CLR:DIM G$(6)
10 POKE53280,3:POKE53281,5
100 PRINT"[144][147]          LOADSTAR PRESENTS:"
105 PRINT"  PERMUTATIONS & COMBINATIONS - SANDER"
110 PRINT"  THIS SHOWS THE NUMBER OF POSSIBLE"
120 PRINT"  PERMUTATIONS AND COMBINATIONS OF"
130 PRINT"  NUMBERS THAT YOU INPUT."
135 PRINT"ENTER Q TO QUIT."
140 PRINT"HOW MANY OBJECTS:";:GOSUB500:N=VAL(A$)
141 IFA$="Q"ORA$="[209]"THEN260
142 IFN<1THENPRINT"NUMBER MUST BE GREATER THAN 0.":GOTO135
145 PRINT"ENTER Q TO QUIT."
150 PRINT"TAKEN HOW MANY AT A TIME:";:GOSUB500:D=VAL(A$):IFA$="Q"THEN260
152 IFA$="Q"ORA$="[209]"THEN260
155 IFD<1THENPRINT"NUMBER MUST BE GREATER THAN 0.":GOTO145
160 IFD>NTHENPRINT"TOO MANY!":GOTO140
170 P=1:C=1
180 FORJ=N-D+1TON:IF1.7E38/J>=PTHEN200
190 PRINT"> 1.7E38 PERMUTATIONS!!":GOTO230
200 P=P*J:NEXT:FORK=2TOD:C=C*K:NEXT
210 PRINT" NUMBER OF PERMUTATIONS =";P
220 PRINT" NUMBER OF COMBINATIONS =";P/C:PRINT
230 PRINT"WANT TO DO ANOTHER? (Y/N)"
240 GETA$:IFA$<>"Y"ANDA$<>"N"ORA$="[217]"ORA$="[206]"THEN240
250 IFA$="Y"ORA$="[217]"THEN10
255 GOTO265
260 GOSUB 61000:RUN6
265 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
270 PRINT"[147]";:IFER<>63THENEND
280 LOAD"HELLO CONNECT",8
500 PRINT"[164]";:FORA=1TO6:G$(A)=""
510 GETA$:IFA$=""THEN510
520 IFA$=CHR$(13)THEN570
530 IF(A$=CHR$(20))AND(A>1)THENPRINT"[157][157]  [157][157][164]";:A=A-1:G$(A)="":GOTO510
532 IF(A=6)THEN510
535 IF(A$="[209]")THENA$="Q"
540 IF(A$="Q")OR(A$="-")OR(A$="+")OR(A$=".")THEN560
550 IF(A$<"0")OR(A$>"9")THEN510
560 PRINT"[157]"A$"[164]";:G$(A)=A$:NEXT
570 PRINT"[157] ":A$=""
580 FORB=1TOA-1:A$=A$+G$(B):NEXT:RETURN
60100 POKE53280,6:POKE53281,6:PRINT"[147]"CHR$(142);
60110 PRINT"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]";
60140 PRINT"          LOADSTAR PRESENTS:"
60150 PRINT"[153]             PERMUTATIONS"
60160 PRINT"          BY LOUIS F. SANDER"
60165 PRINT"           (C)OPYRIGHT 1987"
60170 PRINT"[158]       PRESS ANY KEY TO CONTINUE"
60180 POKE198,.:WAIT 198,1:GETA$:RETURN
61000 REM QUIT FOR SURE
61010 PRINT"[147]ARE YOU SURE YOU WANT TO QUIT (Y/N)?"
61020 POKE198,0:WAIT198,1:GETA$
61030 IFA$="Y"ORA$="[217]"THEN265
61040 IFA$="N"ORA$="[206]"THENRETURN
61050 GOTO61020