Sorry your browser is not supported!

FUNCTION list_compress()
FOR t=0 TO GET ARRAY INDEX(pack$())
FOR a=0 TO (GET ARRAY INDEX(pack$())-1)
IF pack$(a)=""
pack$(a)=pack$(a+1)
CLEAR ARRAY ITEM pack$(),a+1
ENDIF
NEXT a
NEXT t
ENDFUNCTION

GLOBAL DIM array$(10)

array$(5) = "Banana"
array$(9) = "Apple"

show_array()
compress_array()
show_array()

END

FUNCTION show_array()
	LOCAL c AS INTEGER
	FOR c = 0 TO ARRAY COUNT( array$() )
		IF array$( c ) = ""
			PRINT STR$( c ) + " ...nothing"
		ELSE
			PRINT STR$( c ) + " " + array$( c )
		ENDIF
	NEXT c
	PRINT
	PRINT "Press any key..."
	WAIT KEY
ENDFUNCTION

FUNCTION compress_array()
	LOCAL c AS INTEGER
	FOR c = ARRAY COUNT( array$() ) TO 0 STEP -1
		IF array$( c ) = ""
			ARRAY DELETE ELEMENT array$(), c
		ENDIF
	NEXT c
ENDFUNCTION

// init
   DIM inven(4)

// make whichever slots you like 0 or other numbers and then print
   inven(0) = 0
   inven(1) = 2
   inven(2) = 0
   inven(3) = 0
   inven(4) = 9
   PRINT: PRINT "Current Inventory:": FOR i = 0 TO 4: PRINT "inven"; "("; i; "): "; inven(i): NEXT i


// Important bit
   maxSlots = ARRAY COUNT(inven())
   DEC maxSlots                                 // Decrease maxSlots for the following operation (must iterate for 0 to 3 (4cycles)*
   FOR b = 0 TO maxSlots
         FOR a = 0 TO maxSlots                  // We scan every slot per slot. This is the easiest way.
               IF inven(a) = 0
                     inven(a) = inven(a+1)      // *Here's why. We're refencing inven(a+1) on the last iteration which is inven(4)
                     inven(a+1) = 0             // Safe. We moved the value down. Only happens if a 0 was present before.
               ENDIF
         NEXT a
   NEXT b

// Print the result
   PRINT: PRINT "Post-shift Inventory:": FOR i = 0 TO 4: PRINT "inven"; "("; i; "): "; inven(i): NEXT i

   WAIT KEY: END