[i]HDPICV


0->APOS
0->TOTALPICS
10->THUMBNAILX
20->THUMBNAILY

Pause
Begin
//detects left side
While Detect(^^oAPOS,"HDPICV2L"->LPIC

   //Disp "1 "
   CloseAll
   Open(LPIC,"r->LPICSLOT
   If LPICSLOT=0
         Goto WRONGPIC
      End
    Seek(8,0,LPICSLOT
   0->BPOS
   Pause

   Lbl WRONGPIC
   //detects right side
   While Detect(^^oBPOS,"HDPICV2R"->RPIC
      //Disp "5 "
         //Disp "6 "
         Open(RPIC,"r->RPICSLOT
         If RPICSLOT=0
            Goto WRONGPIC
         End

         Seek(8,0,RPICSLOT
         0->WRONGPIC

         //checks if name is correct
           For(CHAR,0,7
            If GetChar(LPICSLOT)!=GetChar(RPICSLOT
               //Disp "8 ",[i]
               sum(3,RPICSLOT
               Goto WRONGPIC
            End
         End
         //1->BPOS
         //Goto CORRECTPIC

   End
   Lbl CORRECTPIC
      //[Will be implemented later] stores pointers to pic into L1
   3+TOTALPICS->TOTALPICS

   3+TOTALPICS->TOTALPICS


      //RPIC->L1(TOTALPICS

   //Disp 80*(TOTALPICS/3)," ",60*(TOTALPICS/12),[i]
   //Disp (*{GetDataPtr(LPICSLOT)}/4)+80*(TOTALPICS/2)," ",60*(TOTALPICS/12)

   //sets pic coordinates
   //10+80*((TOTALPICS/6))->LPICX+(*{GetDataPtr(LPICSLOT)})/2->RPICX


   10+120*((remainder(TOTALPICS,12)=0))->LPICX+(*{GetDataPtr(LPICSLOT)})/2->RPICX
   10+60*((TOTALPICS/12)*remainder(TOTALPICS,12)!=0)->LPICY->RPICY

   //(*{GetDataPtr(LPICSLOT)})/2+80*((TOTALPICS/6)-1)->RPICX
   //TOTALPICS+60*((TOTALPICS/6))->RPICY

   //Pause

   "test
   //displays coordinates for bugtesting
   //det(1
   Output(230,1,LPICX
   Output(230,40,LPICY
   Output(245,1,RPICX
   Output(245,40,RPICY
   Output(245,80,TOTALPICS
   Pause
   //ClrHome

   Begin

   //outputs the thumbnail image
   RotatedScaledSprite_NoClip(GetDataPtr(LPICSLOT),LPICX,LPICY,0,32
   //gets the correct placement of the right pic. *{GetDataPtr(LPICSLOT)} gets width of left pic.
   RotatedScaledSprite_NoClip(GetDataPtr(RPICSLOT),RPICX,RPICY,0,32
   Pause


End
Pause
sum(0
det(1
Disp "End!
Pause