38 lines
622 B
Plaintext
38 lines
622 B
Plaintext
FUNCTION min(x, y)
|
|
IF x < y THEN LET min = x ELSE LET min = y
|
|
END FUNCTION
|
|
|
|
DIM arr1$(3)
|
|
LET arr1$(1) = "a"
|
|
LET arr1$(2) = "b"
|
|
LET arr1$(3) = "c"
|
|
DIM arr2$(3)
|
|
LET arr2$(1) = "A"
|
|
LET arr2$(2) = "B"
|
|
LET arr2$(3) = "C"
|
|
DIM arr3(3)
|
|
LET arr3(1) = 1
|
|
LET arr3(2) = 2
|
|
LET arr3(3) = 3
|
|
|
|
FOR i = 1 TO 3
|
|
PRINT arr1$(i); arr2$(i); STR$(arr3(i))
|
|
NEXT i
|
|
PRINT
|
|
|
|
DIM arr4$(4)
|
|
LET arr4$(1) = "A"
|
|
LET arr4$(2) = "B"
|
|
LET arr4$(3) = "C"
|
|
LET arr4$(4) = "D"
|
|
DIM arr5(2)
|
|
LET arr5(1) = 1
|
|
LET arr5(2) = 2
|
|
|
|
LET ub = min(UBOUND(arr1$),min(UBOUND(arr4$),UBOUND(arr5)))
|
|
|
|
FOR i = 1 TO ub
|
|
PRINT arr1$(i) & arr4$(i) & STR$(arr5(i))
|
|
NEXT i
|
|
END
|