Hello BP from turtle0747
Hello BP
Below is the code. I am no longer having any errors. I was having trouble reading the pairs or trips. I could only use A1 and B1 for pairs and A1, B1, C1 for trips. Your code had 5 values for pairs file read.
2500 C1=0:N1=0:N2=0:N3=0:N4=0:N5=0:CNT1=0:CNT2=0
2600 IF EOF(1) THEN 10300
2700 INPUT#1,Z$
2800 GOSUB 8200
2900 A1=VAL(MID$(Z$,X1,2)):B1=VAL(MID$(Z$,X2,2))
3000 C1=VAL(MID$(Z$,X3,2)): D1=VAL(MID$(Z$,X4,2))
3100 E1=VAL(MID$(Z$,X5,3))
3200 CNT1=CNT1+1
I had to change to this to get it to work:
2900 A1=VAL(MID$(Z$,X1,2)):B1=VAL(MID$(Z$,X2,2))
3000 rem C1=VAL(MID$(Z$,X3,2))
4200 '------------------------------------
4300 '- COUNT PAIRS -
4400 '------------------------------------
4500 N1=0:N2=0:N3=0
4505 REM USING N DOES FULL FILE SEARCH
4600 FOR Q=1 TO 60
4700 N1=0:N2=0
4800 IF A1=A(Q) OR A1=B(Q) OR A1=C(Q) OR A1=D(Q) OR A1=E(Q) OR A1=F(Q) THEN
N1=N1+1 ELSE N1=N1
4900 IF B1=A(Q) OR B1=B(Q) OR B1=C(Q) OR B1=D(Q) OR B1=E(Q) OR B1=F(Q) THEN
N2=N2+1 ELSE N2=N2
5000 IF N1+N2=2 THEN N3=N3+1 ELSE N3=N3
5100 NEXT
5200 IF N3<4 GOTO 2600
5300 Y$=STR$(A1)+STR$(B1)+" -"+STR$(N3)
5400 CNT2=CNT2+1
5500 PRINT#3,Y$
5600 CLS
5700 COLOR 15,1
5800 LOCATE 11,36
5900 PRINT USING "###,###,###";CNT2
6000 GOTO 2600
6100 '
6200 '------------------------------------
6300 '- COUNT TRIPS -
6400 '------------------------------------
6500 N1=0:N2=0:N3=0:N4=0
6505 REM USING N DOES FULL FILE SEARCH
6600 FOR Q=1 TO 128
6700 N1=0:N2=0:N3=0
6800 IF A1=A(Q) OR A1=B(Q) OR A1=C(Q) OR A1=D(Q) OR A1=E(Q) OR A1=F(Q) THEN
N1=N1+1 ELSE N1=N1
6900 IF B1=A(Q) OR B1=B(Q) OR B1=C(Q) OR B1=D(Q) OR B1=E(Q) OR B1=F(Q) THEN
N2=N2+1 ELSE N2=N2
7000 IF C1=A(Q) OR C1=B(Q) OR C1=C(Q) OR C1=D(Q) OR C1=E(Q) OR C1=F(Q) THEN
N3=N3+1 ELSE N3=N3
7100 IF N1+N2+N3=3 THEN N4=N4+1 ELSE N4=N4
7200 NEXT
7300 IF N4<3 GOTO 2600
7400 Y$=STR$(A1)+STR$(B1)+STR$(C1)+" -"+STR$(N4)
7500 CNT2=CNT2+1
7600 PRINT#3,Y$
7700 CLS
7800 COLOR 15,1
7900 LOCATE 11,36
8000 PRINT USING "###,###,###";CNT2
8100 GOTO 2600