12 lines
191 B
Text
12 lines
191 B
Text
PROGRAM DYNAMIC
|
|
|
|
!$DYNAMIC
|
|
DIM A%[0,0]
|
|
|
|
BEGIN
|
|
PRINT(CHR$(12);) !CLS
|
|
INPUT("Subscripts",R%,C%)
|
|
!$DIM A%[R%,C%]
|
|
A%[2,3]=6
|
|
PRINT("Value in row";2;"and col";3;"is";A%[2,3])
|
|
END PROGRAM
|