-----------------------------------

Dylan-182

Fri May 13, 2005 1:09 pm


question: is there an easier way of doing this sorta thing?

-----------------------------------

ok so i made this small prg and i dont really know if theres an easier way 2 make these?:think: and seeing as how im probly going 2 have 2 make more at some point it wuld b helpful 2 know  :roll: sooo on that note heres the code

var name : string
var f1 : int
var f2 : int
var f3 : int
var f4 : int
var f5 : int

colourback (black)
colour (brightred)
cls
locate (11, 20)
put "Hello and welcome to auto addition bot v.01"
delay (3000)
cls
locate (11, 20)
put "Please enter your name"
locate (12, 20)
get name
cls
locate (11, 20)
put "Thank You ", name, "."
delay (3000)
cls
locate (11, 20)
put "Please input a number"
locate (12, 20)
get f1
delay (2000)
cls
locate (11, 20)
put "Please input second number"
locate (12, 20)
get f2
delay (2000)
cls
locate (11, 20)
put "Please input third number"
locate (12, 20)
get f3
delay (2000)
cls
locate (11, 20)
put "Please input fourth number"
locate (12, 20)
get f4
delay (2000)
cls
locate (11, 20)
put "Please input fifth and final number"
locate (12, 20)
get f5
delay (2000)
cls
locate (11, 20)
put "Please Wait While I Process Your Data"
locate (11, 58)
delay (2000)
put "."
delay (200)
locate (11, 59)
put "."
delay (200)
locate (11, 60)
put "."
delay (200)
locate (11, 58)
put "."
delay (200)
locate (11, 59)
put "."
delay (200)
locate (11, 60)
put "."
locate (11, 58)
delay (200)
put "."
delay (200)
locate (11, 59)
put "."
delay (200)
locate (11, 60)
put "."
delay (200)
locate (11, 58)
put "."
delay (200)
locate (11, 59)
put "."
delay (200)
locate (11, 60)
put "."
delay (200)
locate (11, 58)
put "."
delay (200)
locate (11, 59)
put "."
delay (200)
locate (11, 60)
put "."
delay (200)
locate (11, 58)
put "."
delay (200)
locate (11, 59)
put "."
delay (200)
locate (11, 60)
put "."
locate (11, 58)
delay (200)
put "."
delay (200)
locate (11, 59)
put "."
delay (200)
locate (11, 60)
put "."
delay (200)
locate (11, 58)
put "."
delay (200)
locate (11, 59)
put "."
delay (200)
locate (11, 60)
put "."
locate (11, 20)
put " THE SUM OF ALL YOUR NUMBERS IS..."
delay (2000)
locate (12, 35)
put (f1 + f2 + f3 + f4 + f5)
delay (3000)
cls
locate (11, 20)
put "THANK YOU FOR CHOOSING AUTO ADDITION BOT V.01"
delay (2000)
locate (12, 35)
put "HAVE A NICE DAY"



-----------------------------------

Tony

Fri May 13, 2005 1:51 pm



-----------------------------------

please post questions here 
for i:1..10
   put "."..
   delay(100)
end for



-----------------------------------

Dylan-182

Fri May 13, 2005 1:55 pm



-----------------------------------

oo :doh:  lol ty ty k ill remember 2 post questions there n ty for the help it works great lol my code is shorter now 2 yayy :D