[i]HDPICV

0->TOTALPICS

// Allocate memory for picture names
Alloc(9)->LPICNAME
Alloc(9)->RPICNAME

// Detect left half of the images
0->APOS
While Detect(^^oAPOS,"HDPICV2L"->LPIC
	// Open the variable - we are sure it exists because it's detected
	Open(LPIC,"r"->LPICSLOT

	// Write the name to the allocated memory
	Seek(8,0,LPICSLOT
	Read(LPICNAME,8,1,LPICSLOT

	// Detect right half of the images
	0->BPOS
	While Detect(^^oBPOS,"HDPICV2R"->RPIC
		// Open the variable - we are sure it exists because it's detected
		Open(RPIC,"r"->RPICSLOT

		// Write the name
		Seek(8,0,RPICSLOT
		Read(RPICNAME,8,1,LPICSLOT

		// Compare names
		If not([Med]LPICNAME,RPICNAME
			// Yay, they matched! Now store the data pointer into L1
			GetDataPtr(LPICSLOT)->L1(TOTALPICS
			TOTALPICS+3->TOTALPICS
			GetDataPtr(RPICSLOT)->L1(TOTALPICS
			TOTALPICS+3->TOTALPICS
		End

		// Close the right half of the image
		Close(RPICSLOT
	End

	// Close the left half of the image
	Close(LPICSLOT
End