nomainwin

global text1$, text2$, text3$, text4$, text5$, text6$, text7$, text8$, text9$, text10$, twoWords$

UpperLeftX = 1
UpperLeftY = 1

WindowWidth = 600
WindowHeight = 480

BackgroundColor$ = "white"
ForegroundColor$ = "darkblue"

IntroMsg1$ = "Thank You For Choosing"
IntroMsg2$ = "Sam's Small Business Products"
IntroMsg3$ = "All you have to do to get started is to " _
    + "click on the start button below and once again, " _
    + "THANK YOU!!"

statictext #main.statictext1, IntroMsg1$, 100, 50, 500, 80
statictext #main.statictext2, IntroMsg2$, 60, 90, 500, 100
statictext #main.statictext3, IntroMsg3$, 100, 200, 400, 100

button #main.button "  Start ", PrepareStore, UL, 220, 360
button #main.button "  Quit  ", CloseMain, UL, 305, 360

open "Sam's Small Business Products" for window_nf as #main

print #main.statictext1, "!font Arial 24 bold"
print #main.statictext2, "!font Arial 24 bold"
print #main.statictext3, "!font Arial 15"

wait

sub PrepareStore handle$
    close #main
    call Personal

end sub

sub CloseMain handle$
    close #main

end sub

sub Personal

    UpperLeftX = 1
    UpperLeftY = 1

    WindowWidth = 600
    WindowHeight = 480

    BackgroundColor$ = "white"
    ForegroundColor$ = "darkblue"

    statictext #store.statictext "Please provide all the following:", 40, 20, 500, 30

    storeMsg1$ = "Full Name:"
    storeMsg2$ = "Address:"
    storeMsg3$ = "City:"
    storeMsg4$ = "State:"
    storeMsg5$ = "Zip Code:"
    storeMsg6$ = "Quantity of product:"
    storeMsg7$ = "Price of product:"
    storeMsg8$ = "Description of product:"
    storeMsg9$ = "Credit card number:"
    storeMsg10$ = "(No dashes please)"
    storeMsg11$ = "Credit card expiration date:"


    textbox #store.Textbox1, 40, 110, 200, 20
    textbox #store.Textbox2, 40, 170, 200, 20
    textbox #store.Textbox3, 40, 230, 200, 20
    textbox #store.Textbox4, 40, 290, 50, 20
    textbox #store.Textbox5, 40, 350, 100, 20
    textbox #store.Textbox6, 300, 110, 50, 20
    textbox #store.Textbox7, 300, 170, 50, 20
    textbox #store.Textbox8, 300, 230, 200, 20
    textbox #store.Textbox9, 300, 300, 200, 20
    textbox #store.Textbox10, 300, 360, 100, 20
    statictext #store.statictext1, storeMsg1$, 40, 80, 200, 20
    statictext #store.statictext2, storeMsg2$, 40, 140, 200, 20
    statictext #store.statictext3, storeMsg3$, 40, 200, 200, 25
    statictext #store.statictext4, storeMsg4$, 40, 260, 200, 25
    statictext #store.statictext5, storeMsg5$, 40, 320, 200, 25
    statictext #store.statictext6, storeMsg6$, 300, 80, 200, 25
    statictext #store.statictext7, storeMsg7$, 300, 140, 200, 25
    statictext #store.statictext8, storeMsg8$, 300, 200, 200, 25
    statictext #store.statictext9, storeMsg9$, 300, 260, 300, 25
    statictext #store.statictext10, storeMsg10$, 300, 285, 250, 15
    statictext #store.statictext11, storeMsg11$, 300, 330, 250, 25

    button #store.button, " Done ", Summary, UL, 250, 400


    open "Information" for window as #store

    print #store.statictext, "!font Garamond 20 bold"
    print #store.statictext1, "!font Arial 15"
    print #store.statictext2, "!font Arial 15"
    print #store.statictext3, "!font Arial 15"
    print #store.statictext4, "!font Arial 15"
    print #store.statictext5, "!font Arial 15"
    print #store.statictext6, "!font Arial 15"
    print #store.statictext7, "!font Arial 15"
    print #store.statictext8, "!font Arial 15"
    print #store.statictext9, "!font Arial 15"
    print #store.statictext11, "!font Arial 15"

wait

end sub

sub Summary handle$

    call SummaryOrder

end sub

sub SummaryOrder


    UpperLeftX = 1
    UpperLeftY = 1

    WindowWidth = 600
    WindowHeight = 480

    BackgroundColor$ = "white"
    ForegroundColor$ = "darkblue"

    print #store.Textbox1,"!contents? text1$"
    print #store.Textbox2,"!contents? text2$"
    print #store.Textbox3,"!contents? text3$"
    print #store.Textbox4,"!contents? text4$"
    print #store.Textbox5,"!contents? text5$"
    print #store.Textbox6,"!contents? text6$"
    print #store.Textbox7,"!contents? text7$"
    print #store.Textbox8,"!contents? text8$"
    print #store.Textbox9,"!contents? text9$"
    print #store.Textbox10,"!contents? text10$"

    Price = val(text7$)

    taxamount = Price*.075
    total = taxamount + Price

    taxamount$ = str$(taxamount)
    taxamount$ = left$(taxamount$, 4)
    total$ = str$(total)
    total$ = left$(total$, 4)

    twoWords$ = text1$ 

    close #store

    statictext #summary.statictext1 lefWord$(twoWords$) + ", thanks for your order. We" _
       + " will ship " + text6$ + " " + text8$ + " to the following address:", 40, 40, 500, 50
    statictext #summary.statictext2 text1$, 40, 100, 500, 25
    statictext #summary.statictext3 text2$, 40, 120, 500, 25
    statictext #summary.statictext4 text3$ + ", " + text4$ + " " + text5$, 40, 140, 500, 25
    statictext #summary.statictext5 "Here is your order summary:", 40, 200, 500, 25
    statictext #summary.statictext6 text6$ + " " + text8$, 40, 240, 500, 25
    statictext #summary.statictext7 "Sub Total: $" + text7$, 40, 260, 500, 25
    statictext #summary.statictext8 "Tax Amount: $" + taxamount$, 40, 280, 500, 25
    statictext #summary.statictext9 "Total Amount: $" + total$, 40, 300, 500, 25

    button #summary.button, " E   x   i   t ", closesummary, UL, 150, 360, 300, 40

    open "Summary of Order" for window as #summary

    print #summary.statictext1, "!font Arial 15 bold"
    print #summary.statictext2, "!font Arial 12"
    print #summary.statictext3, "!font Arial 12"
    print #summary.statictext4, "!font Arial 12"
    print #summary.statictext5, "!font Arial 14 bold underscore"
    print #summary.statictext6, "!font Arial 12"
    print #summary.statictext7, "!font Arial 12"
    print #summary.statictext8, "!font Arial 12"
    print #summary.statictext9, "!font Arial 12"

    print #summary.button, "!font 14 bold"

wait

end sub

function lefWord$(words$)

        temWord$ = ""
        spaFound = 0

        for looper = 1 to len(words$)

            letter$ = mid$(words$, looper, 1)

            if spaFound = 0 and letter$ = " " then

                temWord$ = left$(words$, looper - 1)

                spaFound = 1

            end if

        next

    lefWord$ = temWord$

end function

sub closesummary handle$

    notice "Thanks for shopping with us!!"
    close #summary

end sub

end