Thanks for all of your help, finally got it working with this code
rem load apartment
apartmentZ = 200
apartmentRoom = 50
load image "media\bunker.bmp",2
for x = 1 to 6
for z = 1 to 2
load object "media\apartmentRoom.3DS",apartmentRoom
if x = 1 or x = 3 or x = 5
scale object apartmentRoom,-2000,2000,2000
else
scale object apartmentRoom,2000,2000,2000
endif
position object apartmentRoom,5000,1,apartmentZ
texture object apartmentRoom,2
rotate object apartmentRoom,0,90,0
if z = 2
rotate object apartmentRoom,0,90,0
position object apartmentRoom,3750,1,(apartmentZ-201)
scale object apartmentRoom,2000,2000,-2000
if x = 1 or x = 3 or x = 5
scale object apartmentRoom,-2000,2000,-2000
ENDIF
endif
inc apartmentRoom
inc apartmentZ,201
next z
next x