Click above to get retro games delivered to your door ever month!

 ASTORE()    Array initialization by parameter passing (compact source code)

 Syntax....: ASTORE( array, s1 [,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12 ] )
 Parameters: <arrX>: array    = the array to be initialized (any type)
             <expX>: s1       = the first element to store
 [optional]  <expX>: s2...s12 = additional elements to store

 Returns...: <expL>: .T.
 Cautions..: maximum of 12 elements
             assumes at least 1 element
             2.5 to 3.5 times slower than direct array initialization
             ( the benefit is compact source code! )
 CC Calls..: none
 Alias.....: none

 Example...: PRIVATE colors[6]
             ASTORE( colors,"N/W","W+/B","N/W","W+/B","N/W","W+/B" )