21 lines
576 B
Plaintext
21 lines
576 B
Plaintext
#include <flow.h>
|
|
#import lib/input.bas.lib
|
|
#include include/flow-input.h
|
|
|
|
DEF-MAIN
|
|
CLR-SCR
|
|
MSET(nRow, nCol)
|
|
LOCATE( 2,5 ), PRN("Input size rows :")
|
|
LOC-COL( 23 ), LET( nRow := ABS(VAL(READ-NUMBER( nRow ) )))
|
|
LOCATE( 3,5 ), PRN("Input size cols :")
|
|
LOC-COL( 23 ), LET( nCol := ABS(VAL(READ-NUMBER( nCol ) )))
|
|
|
|
COND( IS-NOT-ZERO?( MUL(nRow,nCol) ) )
|
|
DIM(nRow, nCol) AS-VOID( array )
|
|
BLK-[1,1], {100} PUT(array)
|
|
PRNL("\tElement at position 1,1 : ", GET(array) )
|
|
CLEAR(array) /* destroy array */
|
|
CEND
|
|
END
|
|
SUBRUTINES
|