#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