DIM fname$
 
 INPUT "BMP File name";fname$
 'fname$ = "40pin.bmp"
 bmpFlip fname$
 
 LOAD BMP "flip_"+fname$
 
 
SUB bmpFlip f$ ' opens two files using #2 and #3
 LOCAL x$, hdr$, b$
 LOCAL INTEGER pixStart, iWdth, iHt, bits, bytesperrow, n, k ,rs
 OPEN f$ FOR INPUT AS #2
 x$ = INPUT$(10,#2) ' skip this
 pixstart =  ASC(INPUT$(1,#2))+ASC(INPUT$(1,#2))*256 + ASC(INPUT$(1,#2))*2^16+ASC(INPUT$(1,#2))*2^24
 x$ = INPUT$(4,#2) ' skip this
 iWdth = ASC(INPUT$(1,#2))+ASC(INPUT$(1,#2))*256 +ASC(INPUT$(1,#2))*2^16+ASC(INPUT$(1,#2))*2^24
 iHt = ASC(INPUT$(1,#2))+ASC(INPUT$(1,#2))*256 +ASC(INPUT$(1,#2))*2^16+ASC(INPUT$(1,#2))*2^24
 x$ = INPUT$(2,#2) ' colour planes - not used
 bits = ASC(INPUT$(1,#2))+ASC(INPUT$(1,#2))*256
 bytesperrow = INT((iWdth*bits/8+3)/4)*4
 OPEN "flip_"+f$ FOR OUTPUT AS #3
 SEEK #2,0
 hdr$ = INPUT$(pixstart-1 ,#2)
 PRINT #3, hdr$;
 FOR n = iHt-1 TO 0 STEP -1
   rs = pixstart + n*bytesperRow
   SEEK #2, rs
   FOR k = 0 TO bytesperRow-1 STEP 4 ' there will always be a mutiple of 4 bytes to a row
     b$ = INPUT$(4, #2)
     PRINT #3, b$;
   NEXT k
 NEXT n
 CLOSE #2
 CLOSE #3
 
END SUB

Error in line 19: Y Dimensions 1

mode 1,8
cls

' Define polygon vertices
dim integer xorg(6) = (-10,-5,5,10,5,-5,-10)
dim integer xgon(6)
dim integer ygon(6) = (0,9,9,0,-9,-9,0)

for j = 1 to 30
 for v = 0 to 6
   xgon(v) = xorg(v)
   ygon(v) = ygon(v) + 9
 next v

 for i = 1 to 26
   for v = 0 to 6
     xgon(v) = xgon(v) + 30
   next v
   polygon 6, xgon(), ygon()
 next i

 for v = 0 to 6
   xgon(v) = xorg(v) + 15
   ygon(v) = ygon(v) + 9
 next v

 for i = 1 to 25
   for v = 0 to 6
     xgon(v) = xgon(v) + 30
   next v
   polygon 6, xgon(), ygon()
 next i

next j