nomainwin
global name$, city$, zip$, add$, price, pord$, quan, state$

call Splash

wait

sub Splash

WindowWidth = 400
WindowHeight = 450

UpperLeftX = 280
UpperLeftY = 100

statictext #splash.static, "   Thank You For Shopping At           Sam's Small Business                          Products.",_
50, 80, 300, 70
open "Sam's Small Business Products" for window_nf as #splash
print #splash.static, "!font Arial 15 bold"
print #splash, "trapclose CloseEnd"

timer 3000, CloseSplash

end sub
sub CloseEnd handle$

timer 0
close #splash
end
end sub

sub CloseSplash

timer 0

close #splash

call UserInfo

end sub

sub UserInfo

WindowWidth = 400
WindowHeight = 450

UpperLeftX = 280
UpperLeftY = 100

statictext #userin.static, "  Please Type In The Following Information", 100, 40, 200, 70
statictext #userin.name, "First and Last Name:", 50, 150, 97, 20
statictext #userin.add, "Address:", 50, 200, 34, 20
statictext #userin.city, "City:", 50, 250, 19, 20
statictext #userin.state, "State Abbreviation:", 50, 300, 90, 20
statictext #userin.zip, "Zip Code:", 50, 350, 43, 20

textbox #userin.name, 149, 149, 201, 22
textbox #userin.add, 86, 199, 264, 22
textbox #userin.city, 71, 249, 279, 22
textbox #userin.state, 142, 299, 208, 22
textbox #userin.zip, 95, 349, 257, 22

button #userin.next, "--->", UserInNext, UL, 345, 385, 45, 30
button #userin.quit, "Quit", CloseUserin, UL, 165, 385, 75, 30

open "Sam's Small Business Products" for window_nf as #userin
print #userin.static, "!font Arial 16"
print #userin.name, "!setfocus"

wait
end sub

sub State handle$

    wait
end sub
sub CloseUserin handle$

close #userin
end
end sub

sub UserInNext handle$

print #userin.name, "!contents? name$"
print #userin.add, "!contents? add$"
print #userin.city, "!contents? city$"
print #userin.state, "!contents? state$"
print #userin.zip, "!contents? zip$"

close #userin

statictext #pay.static, "  Please Type In The Following Information", 100, 40, 200, 70
statictext #pay.pord, "Product:", 40, 100, 140, 20
statictext #pay.proc, "Price:  ($)", 40, 160, 140, 20
statictext #pay.proq, "Quantity:", 40, 220, 120, 20
statictext #pay.cred, "Credit card number:  (No Dashes)", 40, 280, 300, 20
statictext #pay.credex, "Credit card expiration date:", 40, 340, 300, 20

textbox #pay.tpord, 40, 120, 200, 21
textbox #pay.tporc, 40, 180, 200, 21
textbox #pay.tporq, 40, 240, 200, 21
textbox #pay.tcred, 40, 300, 200, 21
textbox #pay.tcredex, 40, 360, 200, 21

button #pay.next, "--->", PayNext, UL, 345, 385, 45, 30
button #pay.quit, "Quit", ClosePay, UL, 165, 385, 75, 30

open "Sam's Small Business Products" for window_nf as #pay
print #pay.static, "!font Arial 16"
print #pay.tpord, "!setfocus"

wait

end sub
sub ClosePay handle$

close #pay
end
end sub

sub PayNext handle$

print #pay.tpord, "!contents? pord$"
print #pay.tporc, "!contents? price$"
print #pay.tporq, "!contents? quan$"

close #pay

quan = val(quan$)
price = val(price$)
subT = quan * price
subT$ = using("########################.##", subT) 'I found this useful command "using" the just basic help
Tax = subT * 0.075
Tax$ = using("########################.##", Tax)
total = Tax + subT
total$ = using("########################.##", total)

statictext #sum.static, "   Thank You For Shopping At           Sam's Small Business                          Products.",_
50, 30, 300, 70
statictext #sum.firstline, word$(name$, 1) + ", here is a summary of your order:", 85, 150, 299, 25
                                'The word$() function was a lot easier to use than the other one on that website. They mentioned
                                'it on the website.
statictext #sum.we, "We will send " + quan$ + " " + pord$ +"(s) to:", 130, 185, 250, 25
statictext #sum.add1, name$, 165, 230, 250, 20
statictext #sum.add2, add$, 148, 255, 250, 20
statictext #sum.add3, city$ + ", " + state$ + " " + zip$, 149, 280, 250, 20
statictext #sum.sum, quan$ + " " + pord$ + "(s),", 150, 320, 250, 25
statictext #sum.subt, "Subtotal: $" + subT$, 115, 350, 250, 20
statictext #sum.tax, "Tax: $" + Tax$, 115, 370, 190, 20
statictext #sum.total, "Total: $" + total$, 115, 390, 190, 20

button #sum.ok, "OK", DoneOk, UL, 345, 385, 45, 30

open "Sam's Small Business Products" for window_nf as #sum
print #sum.static, "!font Arial 15 bold"
print #sum, "trapclose DoneOk"
print #sum.firstline, "!font Arial 11"
print #sum.sum, "!font Arial 10"
wait
end sub
sub DoneOk handle$

close #sum
end
end sub