array.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 21 行

'----------------------------------------------------------------------
'                            ARRAY.BAS
'                    (c) 1998-2000 MCS Electronics
'----------------------------------------------------------------------
Dim Idx1 As Xram Integer                  'index
Dim B1(1000) As Xram Byte                 'byte array
Dim I(500) As Xram Integer                'integer array
Dim S(100) As Xram String * 20            'string array


For Idx1 = 1 To 10                        'fill part of array
  B1(idx1) = Idx1
  I(idx1) = Idx1
  S(idx1) = Str(b1(idx1))                 'assign a string 
Next

For Idx1 = 1 To 10                                            'print the first 10
  Print B1(idx1) ; "  " ; I(idx1) ; " " ; S(idx1)
Next
End