HELP needed with 2 dim array

   10 REM ******************************
   20 REM *        AGON LIGHT 2        *
   30 REM *      BBC BASIC MODE 8      *
   40 REM *          DEMO 10           *
   50 REM *         320 X 240          *
   60 REM *     DRAW & SCALE TEXT2     *
   70 REM *       BY LOVEJOY777        *
   80 REM ******************************
   90 :
  100 VDU 22,8 : REM SET SCREEN MODE.
  110 VDU 23,1,0 : REM DISABLE TEXT CURSOR.
  120 VDU 12 : REM SAME AS CLS.
  130 VDU 16 : REM SAME AS CLG.
  140 VDU 18,0,10 : REM SAME AS GCOL.
  150 SW% = 1280 : SH%=1024 : REM SCREEN WIDTH & HEIGHT IN GRAPHICAL UNITS.
  160 SC=2.0 : REM ASSIGN FLOAT FOR SCALE.
  170 IW% = 16
  180 IH% = 16
  190 AX%=SW%/2-200 : AY%=SH%/2-8 : REM ASSIGN VARS FOR A's X & Y START COORDS (center).
  200 :
  400 PROC_DRAWA
  410 :
  470 END : REM **** END PROGRAM ****
  480 :
  500 REM ********** PROCS **********
 1000 :
 2000 REM **** DRAW AGON ****.
 2010 DEF PROC_DRAWA
 2020 REM *FX 19 : REM WAIT FOR NEXT SCAN LINE.
 2030 MOVE AX%+1*SC,AY%+2*SC
 2035
 2040 REM DIM XY%(24,2)
 2042 REM DIM XY%(23,1)
 2045 REM DIM XY%(24)
 2047 DIM XY%(48)
 2050 :
 2060 REM FOR I%=1 TO 48 STEP 2
 2062 REM FOR I%=1 TO 23
 2065 FOR I%=1 TO 48
 2070   READ XY%(I%)
 2080   IF I%MOD=0 THEN y% = XY%(I%) ELSE x% = XY%(I%) : REM IF EVEN Y ELSE X.
 2090 :
 2092   REM x% = XY%(I%) : REM X.
 2095   REM y% = XY%(J%) : REM Y.
 2100   REM DRAW x%,y%
 2110   PRINT "X & Y = ";x%;",";y%
 2120 NEXT I%
 2130 ENDPROC
 2140 :
 2150 END
 2160 :
 2170 DATA AX%+1*SC,AY%+6*SC,AX%+3*SC,AY%+6*SC,AX%+3*SC,AY%+8*SC,AX%+5*SC,AY%+8*SC,AX%+5*SC,AY%+10*SC,AX%+7*SC,AY%+10*SC,AX%+7*SC,AY%+12*SC
 2180 DATA AX%+9*SC,AY%+12*SC,AX%+9*SC,AY%+14*SC,AX%+11*SC,AY%+14*SC,AX%+11*SC,AY%+16*SC,AX%+15*SC,AY%+16*SC,AX%+15*SC,AY%+0*SC,AX%+13*SC,AY%+0*SC
 2190 DATA AX%+13*SC,AY%+2*SC,AX%+11*SC,AY%+2*SC,AX%+11*SC,AY%+8*SC,AX%+9*SC,AY%+8*SC,AX%+9*SC,AY%+6*SC,AX%+7*SC,AY%+6*SC,AX%+7*SC,AY%+4*SC
 2200 DATA AX%+5*SC,AY%+4*SC,AX%+5*SC,AY%+2*SC,AX%+1*SC,AY%+2*SC