QBasic

Nova fase..!! QBasic na cabeça.....

---------------------
DIM mesg AS STRING
mesg = "O valor é:"
num = 1+1
print mesg
print num
---------------------
FOR i% = 1 TO 10
NEXT
---------------------