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"
|