13 lines
392 B
Plaintext
13 lines
392 B
Plaintext
#include <flow.h>
|
|
|
|
#import lib/input.bas.lib
|
|
#include include/flow-input.h
|
|
|
|
DEF-MAIN(argv,argc)
|
|
CLR-SCR
|
|
MSET( número, cadena )
|
|
LOCATE(2,2), PRNL( "Input an string : "), LOC-COL(20), LET( cadena := READ-STRING( cadena ) )
|
|
LOCATE(3,2), PRNL( "Input an integer: "), LOC-COL(20), LET( número := INT( VAL(READ-NUMBER( número )) ) )
|
|
LOCATE(5,2), PRNL( cadena, "\n ",número )
|
|
END
|