snipplets.dev/snipplets/code/Gambas/array_foreach.bas
2023-08-05 22:45:06 +03:00

9 lines
265 B
QBasic

' 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