diff --git a/bin/basic_generic.rom b/bin/basic_generic.rom
index d0f19bd4..447fd20d 100644
Binary files a/bin/basic_generic.rom and b/bin/basic_generic.rom differ
diff --git a/bin/basic_ultimate64.rom b/bin/basic_ultimate64.rom
index 36ce32cb..5ae0f03b 100644
Binary files a/bin/basic_ultimate64.rom and b/bin/basic_ultimate64.rom differ
diff --git a/bin/kernal_generic.rom b/bin/kernal_generic.rom
index 29d756fa..9a23705a 100644
Binary files a/bin/kernal_generic.rom and b/bin/kernal_generic.rom differ
diff --git a/bin/kernal_ultimate64.rom b/bin/kernal_ultimate64.rom
index 7162b1f8..76f62af3 100644
Binary files a/bin/kernal_ultimate64.rom and b/bin/kernal_ultimate64.rom differ
diff --git a/bin/mega65.rom b/bin/mega65.rom
index f4c20228..643e1484 100644
Binary files a/bin/mega65.rom and b/bin/mega65.rom differ
diff --git a/bin/mega65_pxlfont.rom b/bin/mega65_pxlfont.rom
index 70961d3f..92655da7 100644
Binary files a/bin/mega65_pxlfont.rom and b/bin/mega65_pxlfont.rom differ
diff --git a/src/basic/engine_variables/helper_array_refresh_bptrs.s b/src/basic/engine_variables/helper_array_refresh_bptrs.s
index 90941d2e..616ed146 100644
--- a/src/basic/engine_variables/helper_array_refresh_bptrs.s
+++ b/src/basic/engine_variables/helper_array_refresh_bptrs.s
@@ -33,7 +33,40 @@ helper_array_refresh_bptrs_loop_1:
 
 #if CONFIG_MEMORY_MODEL_60K
 
-	// XXX!
+	ldx #<INDEX+0
+
+	ldy #$02
+
+	jsr peek_under_roms
+	clc
+	adc INDEX+0
+	sta INDEX+2 
+	iny
+	php
+	jsr peek_under_roms
+	plp
+	adc INDEX+1
+	sta INDEX+3
+
+	// Check if the current array is a string - if not, go to next array
+
+	ldy #$00
+	jsr peek_under_roms
+	and #$80
+	bmi helper_array_refresh_bptrs_loop_next
+	iny
+	jsr peek_under_roms
+	and #$80
+	bpl helper_array_refresh_bptrs_loop_next
+
+	// It's a string array - scroll INDEX+0/+1 to the first descriptor
+
+	ldy #$04
+	jsr peek_under_roms
+	asl
+	clc
+	adc #$05
+	jsr helper_INDEX_up_A
 
 #elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
 
@@ -44,28 +77,28 @@ helper_array_refresh_bptrs_loop_1:
 
 	ldy #$02
 
-	lda (INDEX+0), y // XXX
+	lda (INDEX+0), y
 	clc
 	adc INDEX+0
 	sta INDEX+2 
 	iny
-	lda (INDEX+0), y // XXX
+	lda (INDEX+0), y
 	adc INDEX+1
 	sta INDEX+3
 
 	// Check if the current array is a string - if not, go to next array
 
 	ldy #$00
-	lda (INDEX+0), y // XXX
+	lda (INDEX+0), y
 	bmi helper_array_refresh_bptrs_loop_next
 	iny
-	lda (INDEX+0), y // XXX
+	lda (INDEX+0), y
 	bpl helper_array_refresh_bptrs_loop_next
 
 	// It's a string array - scroll INDEX+0/+1 to the first descriptor
 
 	ldy #$04
-	lda (INDEX+0), y // XXX
+	lda (INDEX+0), y
 	asl
 	clc
 	adc #$05
@@ -81,8 +114,34 @@ helper_array_refresh_bptrs_loop_2:
 
 #if CONFIG_MEMORY_MODEL_60K
 
-	// XXX!
+	ldx #<INDEX+0
 
+	ldy #$00
+	jsr peek_under_roms
+	beq !+                                       // skip empty strings
+
+	iny
+	sta INDEX+5
+	jsr peek_under_roms
+	clc
+	adc INDEX+5
+	sta INDEX+4
+	iny
+	php
+	jsr peek_under_roms
+	plp
+	adc #$00
+	sta INDEX+5
+
+	ldx #<INDEX+4
+
+	ldy #$00
+	lda INDEX+0
+	jsr poke_under_roms
+	iny
+	lda INDEX+1
+	jsr poke_under_roms
+!:
 #elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
 
 	jsr helper_array_refresh_bptrs_part2