14 lines
331 B
Text
14 lines
331 B
Text
#include <hbasic.h>
|
|
|
|
#import lib/input.bas.lib
|
|
#include include/input.h
|
|
|
|
Begin
|
|
Token Init
|
|
Cls
|
|
Locate(5,1),Print(Utf8$("Ingrese dos números, separados por espacio: "))
|
|
msg=""
|
|
LocCol(45),Let( msg := ReadString(msg))
|
|
Token Sep(" ")
|
|
Print("Suma : ", Token(1),Val(Token$(msg)) Plus (Token(2),Val(Token$(msg))), Newl)
|
|
End
|