Dim Data() As Byte
Select Line
Case 0
If GlobalStore.Slot0 <> Null Then Data = (GlobalStore.Slot0)
Case 1
If GlobalStore.Slot1 <> Null Then Data = (GlobalStore.Slot1)
Case 2
If GlobalStore.Slot2 <> Null Then Data = (GlobalStore.Slot2)
Case 3
If GlobalStore.Slot3 <> Null Then Data = (GlobalStore.Slot3)
Case 4
If GlobalStore.Slot4 <> Null Then Data = (GlobalStore.Slot4)
Case 5
If GlobalStore.Slot5 <> Null Then Data = (GlobalStore.Slot5)
Case 6
If GlobalStore.Slot6 <> Null Then Data = (GlobalStore.Slot6)
Case 7
If GlobalStore.Slot7 <> Null Then Data = (GlobalStore.Slot7)
Case 8
If GlobalStore.Slot8 <> Null Then Data = (GlobalStore.Slot8)
Case 9
If GlobalStore.Slot9 <> Null Then Data = (GlobalStore.Slot9)
Case 10
If GlobalStore.Slot10 <> Null Then Data = (GlobalStore.Slot10)
Case 11
If GlobalStore.Slot11 <> Null Then Data = (GlobalStore.Slot11)
Case 12
If GlobalStore.Slot12 <> Null Then Data = (GlobalStore.Slot12)
Case 13
If GlobalStore.Slot13 <> Null Then Data = (GlobalStore.Slot13)
Case 14
If GlobalStore.Slot14 <> Null Then Data = (GlobalStore.Slot14)
Case 15
If GlobalStore.Slot15 <> Null Then Data = (GlobalStore.Slot15)
Case 16
If GlobalStore.Slot16 <> Null Then Data = (GlobalStore.Slot16)
Case 17
If GlobalStore.Slot17 <> Null Then Data = (GlobalStore.Slot17)
Case 18
If GlobalStore.Slot18 <> Null Then Data = (GlobalStore.Slot18)
Case 19
If GlobalStore.Slot19 <> Null Then Data = (GlobalStore.Slot19)
End Select