snipplets.dev/code/Gambas/array_foreach.bas

9 lines
265 B
QBasic
Raw Normal View History

2023-04-14 23:00:18 +03:00
' equpix color pallete
Dim equpix15 As Array
equpix15 = [5389390, 2763322, 4084802, 8672348, 3694716, 6060630, 1052708, 11697750, 13913682, 5613716, 8432704, 15501899, 9162938, 16764008, 16775360]
Dim color As Integer
For Each color In equpix15
Print color
Next