User input/Text: Difference between revisions
no edit summary
(User input/Text in various BASIC dialents) |
No edit summary |
||
Line 203:
read( n )
end.</lang>
=={{header|Amazing Hopper}}==
Version: hopper-FLOW!
<lang Amazing Hopper>
#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
</lang>
{{out}}
<pre>
Input an string : Juanita Pérez
Input an integer: 75000.789
Juanita Pérez
75000
</pre>
=={{header|APL}}==
| |||