›MODULE  ; Example 6››; Declare our individual arrays:››BYTE ARRAY›  one()   = [ 1, 2, 3 ],›  two()   = [ 4, 5, 6 ],›  three() = [ 7, 8, 9 ]››; Declare a dummy PROC with the›; addresses of the BYTE ARRAYs:››PROC dummy=*() [ one two three ]››; MODULE statement because we're›; declaring a variable:››CARD ARRAY›  ary_of_arys = dummy››; Now, our main procedure, which›; illustrates how to access our›; doubly subscripted arrays:››PROC main()›BYTE i, j›BYTE ARRAY bary››  ; loop for first subscript:›  FOR i = 0 TO 2 DO››    ; fetch address of array:›    bary = ary_of_arys(i)››    ; loop for second subscript:›    FOR j = 0 TO 2 DO›      PrintF("Array(%U)(%U) = %U%E",›              i, j, bary(j))›    OD›    PutE()›  OD›RETURN››