13 lines
191 B
Text
13 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
|