home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l190 / 5.ddi / ADVR_EX / UBO_EX.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-09-28  |  413 b   |  23 lines
  1. DECLARE SUB PRNTMAT (A!())
  2. '
  3. ' *** UBO_EX.BAS - UBOUND and LBOUND programming examples
  4. '
  5. DIM A(0 TO 3, 0 TO 3)
  6. FOR I% = 0 TO 3
  7.     FOR J% = 0 TO 3
  8.     A(I%, J%) = I% + J%
  9.     NEXT J%
  10. NEXT I%
  11. CALL PRNTMAT(A())
  12. END
  13.  
  14. SUB PRNTMAT (A()) STATIC
  15.     FOR I% = LBOUND(A, 1) TO UBOUND(A, 1)
  16.     FOR J% = LBOUND(A, 2) TO UBOUND(A, 2)
  17.        PRINT A(I%, J%); " ";
  18.     NEXT J%
  19.     PRINT : PRINT
  20.     NEXT I%
  21. END SUB
  22.  
  23.