home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pcboard
/
script2s.zip
/
SCRIPT2.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-03-01
|
32KB
|
1,247 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
Boolean BOOLEAN006
Boolean BOOLEAN007
Boolean BOOLEAN008
Boolean BOOLEAN009
Integer INTEGER001
Integer TINTEGER002(6,3)
Integer INTEGER003
Integer TINTEGER004(5,3)
Integer INTEGER005
Integer TINTEGER006(8,3)
Integer INTEGER007
Integer TINTEGER008(5,3)
Integer INTEGER009
Integer TINTEGER010(4,3)
Integer INTEGER011
Integer TINTEGER012(6,3)
Integer INTEGER013
Integer TINTEGER014(3)
Integer TINTEGER015(11,3)
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Integer INTEGER026
Integer INTEGER027
Integer INTEGER028
Integer INTEGER029
Integer INTEGER030
Integer INTEGER031
Integer INTEGER032
Integer INTEGER033
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String TSTRING038(11)
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
;------------------------------------------------------------------------------
STRING010 = "USA"
TINTEGER002(1, 1) = 170
TINTEGER002(2, 1) = 340
TINTEGER002(3, 1) = 680
TINTEGER002(4, 1) = 1000
TINTEGER002(5, 1) = 2500
TINTEGER002(1, 2) = 4
TINTEGER002(2, 2) = 4
TINTEGER002(3, 2) = 4
TINTEGER002(4, 2) = 4
TINTEGER002(5, 2) = 4
TINTEGER004(1, 1) = 440
TINTEGER004(2, 1) = 780
TINTEGER004(3, 1) = 1100
TINTEGER004(4, 1) = 2600
TINTEGER004(1, 2) = 4
TINTEGER004(2, 2) = 4
TINTEGER004(3, 2) = 4
TINTEGER004(4, 2) = 4
TINTEGER006(1, 1) = 85
TINTEGER006(2, 1) = 195
TINTEGER006(3, 1) = 535
TINTEGER006(4, 1) = 365
TINTEGER006(5, 1) = 685
TINTEGER006(6, 1) = 345
TINTEGER006(7, 1) = 100
TINTEGER006(1, 2) = 4
TINTEGER006(2, 2) = 4
TINTEGER006(3, 2) = 4
TINTEGER006(4, 2) = 4
TINTEGER006(5, 2) = 4
TINTEGER006(6, 2) = 4
TINTEGER006(7, 2) = 1
TINTEGER008(1, 1) = 180
TINTEGER008(2, 1) = 275
TINTEGER008(3, 1) = 40
TINTEGER008(4, 1) = 179
TINTEGER008(1, 2) = 4
TINTEGER008(2, 2) = 2
TINTEGER008(3, 2) = 1
TINTEGER008(4, 2) = 3
TINTEGER010(1, 1) = 1060
TINTEGER010(2, 1) = 1525
TINTEGER010(3, 1) = 1830
TINTEGER010(1, 2) = 14
TINTEGER010(2, 2) = 18
TINTEGER010(3, 2) = 18
TINTEGER012(1, 1) = 495
TINTEGER012(2, 1) = 515
TINTEGER012(3, 1) = 995
TINTEGER012(4, 1) = 1035
TINTEGER012(5, 1) = 179
TINTEGER012(1, 2) = 5
TINTEGER012(2, 2) = 7
TINTEGER012(3, 2) = 7
TINTEGER012(4, 2) = 12
TINTEGER012(5, 2) = 2
TINTEGER014(1) = 60
TINTEGER014(2) = 120
GetUser
STRING003 = U_Name()
STRING003 = Upper(STRING003)
If ((STRING003 == "FRED CLARK") || (STRING003 == "DAVID TERRY")) Goto LABEL001
If ((STRING003 == "JOE ROBINSON") || (STRING003 == "SCOTT ROBISON")) Goto LABEL001
If ((STRING003 == "SCOTT CARPENTER") || (STRING003 == "DANIEL CHLARSON")) Goto LABEL001
If ((STRING003 == "RICHARD KOZIK") || (STRING003 == "STEVE CATMULL")) Goto LABEL001
If ((STRING003 == "LOUIS ZIRKEL") || (STRING003 == "MATT SMITH")) Goto LABEL001
If (STRING003 == "DAVID CLAYTON") Goto LABEL001
STRING021 = STRING003
STRING004 = Mid("", 1, 6)
STRING025 = ""
STRING020 = STRING025
STRING001 = ""
STRING001 = RTrim(STRING001, " ")
STRING030 = Right(STRING001, 6)
STRING001 = ""
Goto LABEL002
:LABEL001
STRING003 = ""
BOOLEAN009 = 1
:LABEL002
Cls
PrintLn "@X0EWe accept the following credit cards:"
PrintLn
PrintLn "@X0F (1) VISA"
PrintLn "@X0F (2) MasterCard"
PrintLn "@X0F (3) American Express/Optima"
PrintLn "@X0F"
PrintLn "@X0F (A) Abort, I don't have a Credit Card!"
PrintLn
InputStr "Enter the Credit Card Type for this order: (1/2/3/A)", STRING022, 14, 1, "123Aa", 10
PrintLn
If (STRING022 == "1") Goto LABEL004
If (STRING022 == "2") Goto LABEL005
If (STRING022 == "3") Goto LABEL006
STRING001 = "N"
Beep
PrintLn
InputYN "Are you sure you want to abort this script (Y/N)", STRING001, 12
If (STRING001 <> "Y") Goto LABEL002
PrintLn
Goto LABEL020
:LABEL003
Beep
PrintLn
PrintLn "@X8CThe card number you entered was invalid. Either you selected"
PrintLn "the wrong credit card type vs the card number entered, or you did"
PrintLn "failed to enter the proper number of digits. Please try again ..."
PrintLn "@X0E"
Gosub LABEL039
Goto LABEL002
:LABEL004
InputStr " Enter the VISA Card Number", STRING018, 14, 16, "1234567890", 2
PrintLn
If (Left(STRING018, 1) <> "4") Goto LABEL003
If ((Len(STRING018) == 13) || (Len(STRING018) == 16)) Goto LABEL007
Goto LABEL003
:LABEL005
InputStr " Enter the MasterCard Number", STRING018, 14, 16, "1234567890", 2
PrintLn
If (Left(STRING018, 1) <> "5") Goto LABEL003
If (Len(STRING018) <> 16) Goto LABEL003
Goto LABEL007
:LABEL006
InputStr " Enter the AMEX Card Number", STRING018, 14, 15, "1234567890", 2
PrintLn
If (Left(STRING018, 1) <> "3") Goto LABEL003
If (Len(STRING018) <> 15) Goto LABEL003
:LABEL007
InputStr " Expiration date (@X0CMMYY@X0E) format", STRING019, 14, 4, "1234567890", 2
PrintLn
If (Len(STRING019) == 4) Goto LABEL009
Beep
PrintLn
PrintLn "@X0CError in expiration date format! Please try again ..."
PrintLn "@X0E"
Goto LABEL007
:LABEL008
Beep
PrintLn
PrintLn "@X0CError in expiration date! Please try again ..."
PrintLn "@X0E"
Goto LABEL007
:LABEL009
INTEGER020 = Left(STRING019, 2)
INTEGER021 = Mid(STRING019, 3, 2)
INTEGER022 = Month(Date())
INTEGER023 = Year(Date())
If ((INTEGER020 > 12) || (INTEGER020 < 1)) Goto LABEL008
If (INTEGER021 > INTEGER023) Goto LABEL010
If ((INTEGER021 == INTEGER023) && (INTEGER020 >= INTEGER022)) Goto LABEL010
PrintLn
Beep
PrintLn "@X0CThat card has expired!"
PrintLn
PrintLn "@X0E Enter (R) to re-enter the card's expiration date."
PrintLn "@X0E Enter (D) to use a different credit card."
PrintLn "@X0E Enter (A) to abort this order and return."
PrintLn
STRING002 = "R"
InputStr "Your Choice: (R/D/A)", STRING002, 14, 1, "RDA", 14
PrintLn
If (STRING002 == "R") Goto LABEL007
If (STRING002 == "D") Goto LABEL002
Goto LABEL020
:LABEL010
InputText " Enter the Cardholder's Name", STRING021, 14, 50
PrintLn
STRING021 = Upper(STRING021)
STRING003 = STRING021
STRING011 = STRING021
InputStr "Enter the Cardholder's Phone #", STRING020, 14, 13, "1234567890.-()/", 2
STRING025 = STRING020
Cls
PrintLn "@X0EYou have entered the following Credit Card information:"
PrintLn
If ((STRING022 == "1") && (Len(STRING018) == 13)) STRING023 = Left(STRING018, 4) + "-" + Mid(STRING018, 5, 3) + "-" + Mid(STRING018, 8, 3) + "-" + Mid(STRING018, 11, 3)
If ((STRING022 == "1") && (Len(STRING018) == 16)) STRING023 = Left(STRING018, 4) + "-" + Mid(STRING018, 5, 4) + "-" + Mid(STRING018, 9, 4) + "-" + Mid(STRING018, 13, 4)
If (STRING022 == "2") STRING023 = Left(STRING018, 4) + "-" + Mid(STRING018, 5, 4) + "-" + Mid(STRING018, 9, 4) + "-" + Mid(STRING018, 13, 4)
If (STRING022 == "3") STRING023 = Left(STRING018, 4) + "-" + Mid(STRING018, 5, 6) + "-" + Mid(STRING018, 11, 5)
STRING024 = Left(STRING019, 2) + "/" + Mid(STRING019, 3, 2)
Print "@X0F Credit Card #: "
PrintLn "@X07", STRING023
Print "@X0F Expiration Date: "
PrintLn "@X07", STRING024
Print "@X0FCardholders Name: "
PrintLn "@X07", STRING021
Print "@X0F Phone: "
PrintLn "@X07", STRING020
PrintLn
STRING001 = "Y"
InputYN "Is the above information correct (Y/N)", STRING001, 14
PrintLn "@X07"
If (STRING001 == "Y") Goto LABEL011
Goto LABEL002
:LABEL011
Cls
PrintLn "@X0FNow that we have valid credit card information, you need to complete"
PrintLn "your billing and shipping information. In order for the script to"
PrintLn "properly calculate your freight and other functions, you @X0AMUST@X0F enter"
PrintLn "your State/Province and Country in their appropriate fields. Please do"
PrintLn "@X0CNOT@X0F include your State and Zip (Postal) code in the 'City' field."
PrintLn
PrintLn "Customers from outside the US and Canada may need to use the 'Company'"
PrintLn "or 'City' fields in order to enter all of your information properly."
PrintLn
:LABEL012
If ((STRING004 == "") || (Left(STRING004, 1) == " ")) STRING004 = "None"
InputStr " Serial # (if applicable)", STRING004, 14, 6, "1234567890", 2
PrintLn
If (((STRING004 == "") || (Left(STRING004, 1) == " ")) || (Left(STRING004, 1) == "N")) Goto LABEL013
If (Len(STRING004) == 6) Goto LABEL013
Beep
PrintLn
PrintLn "@X0CSerial # must be 6 characters in length! Please try again ..."
PrintLn
Goto LABEL012
:LABEL013
If ((STRING030 == "") || (Left(STRING030, 1) == " ")) STRING030 = "None"
InputText "Customer # (if applicable)", STRING030, 14, 6
PrintLn
STRING030 = Upper(STRING030)
InputText "Purchaser Name", STRING003, 14, 50
STRING003 = Upper(STRING003)
STRING011 = STRING003
PrintLn
InputStr " Voice Phone #", STRING025, 14, 13, "1234567890.-()/", 2
PrintLn
InputStr " FAX Phone #", STRING026, 14, 13, "1234567890.-()/", 2
PrintLn
InputText " Company Name", STRING005, 14, 50
STRING005 = Upper(STRING005)
STRING012 = STRING005
PrintLn
InputText "Street Address", STRING006, 14, 50
STRING006 = Upper(STRING006)
STRING013 = STRING006
PrintLn
InputText " City", STRING007, 14, 25
STRING007 = Upper(STRING007)
STRING014 = STRING007
PrintLn
InputText "State/Province", STRING008, 14, 2
STRING008 = Upper(STRING008)
STRING015 = STRING008
PrintLn
InputText " ZIP", STRING009, 14, 10
STRING009 = Upper(STRING009)
STRING016 = STRING009
PrintLn
InputText " Country", STRING010, 14, 20
PrintLn
BOOLEAN001 = 0
STRING010 = Upper(STRING010)
STRING017 = STRING010
If ((STRING010 == "USA") && (STRING008 == "")) Gosub LABEL015
If ((STRING010 == "") && (STRING008 == "")) Gosub LABEL015
If ((STRING010 == "USA") && (STRING008 == "")) Goto LABEL012
If ((STRING010 == "") && (STRING008 == "")) Goto LABEL012
If (STRING010 <> "USA") BOOLEAN001 = 1
If (STRING010 == "") BOOLEAN001 = 0
Cls
PrintLn "@X0EYou have entered the following purchaser information:"
PrintLn
Print "@X0F Serial #: "
PrintLn "@X07", STRING004
Print "@X0F Customer Number: "
PrintLn "@X07", STRING030
Print "@X0F Customer Name: "
PrintLn "@X07", STRING003
Print "@X0F Voice Phone #: "
PrintLn "@X07", STRING025
Print "@X0F FAX Phone #: "
PrintLn "@X07", STRING026
If (STRING005 == "") Goto LABEL014
Print "@X0F Company: "
PrintLn "@X07", STRING005
:LABEL014
Print "@X0F Address: "
PrintLn "@X07", STRING006
Print "@X0F "
PrintLn "@X07" + STRING007 + ", " + STRING008 + " " + STRING009
Print "@X0F "
PrintLn "@X07", STRING010
PrintLn "@X07"
STRING001 = "Y"
InputYN "Is the above information correct (Y/N)", STRING001, 14
PrintLn
If (STRING001 == "Y") Goto LABEL016
PrintLn
Goto LABEL012
:LABEL015
Cls
Beep
PrintLn
PrintLn "@X0CYou must enter a valid State! Please re-enter your information ..."
PrintLn "@X0E"
Return
:LABEL016
STRING001 = "Y"
InputYN "Is the Shipping Information the Same as above (Y/N)", STRING001, 14
PrintLn
BOOLEAN002 = 0
If (STRING001 == "Y") Goto LABEL019
:LABEL017
PrintLn
BOOLEAN002 = 1
InputText " Ship Name", STRING011, 14, 50
STRING011 = Upper(STRING011)
PrintLn
InputText " Ship Company", STRING012, 14, 50
STRING012 = Upper(STRING012)
PrintLn
InputText " Ship Address", STRING013, 14, 50
STRING013 = Upper(STRING013)
PrintLn
InputText " Ship City", STRING014, 14, 25
STRING014 = Upper(STRING014)
PrintLn
InputText "Ship State/Pro", STRING015, 14, 2
STRING015 = Upper(STRING015)
PrintLn
InputText " Ship ZIP", STRING016, 14, 10
STRING016 = Upper(STRING016)
PrintLn
InputText " Ship Country", STRING017, 14, 20
PrintLn
BOOLEAN001 = 0
STRING017 = Upper(STRING017)
If ((STRING017 == "USA") && (STRING015 == "")) Gosub LABEL015
If ((STRING017 == "") && (STRING008 == "")) Gosub LABEL015
If ((STRING017 == "USA") && (STRING015 == "")) Goto LABEL017
If ((STRING017 == "") && (STRING008 == "")) Goto LABEL017
If (STRING017 <> "USA") BOOLEAN001 = 1
If (STRING017 == "") BOOLEAN001 = 0
Cls
PrintLn "@X0EYou have entered the following shipping information:"
PrintLn
Print "@X0F Ship Name: "
PrintLn "@X07", STRING011
If (STRING012 == "") Goto LABEL018
Print "@X0F Ship Company: "
PrintLn "@X07", STRING012
:LABEL018
Print "@X0F Address: "
PrintLn "@X07", STRING013
Print "@X0F "
PrintLn "@X07" + STRING014 + ", " + STRING015 + " " + STRING016
Print "@X0F "
PrintLn "@X07", STRING017
PrintLn "@X07"
STRING001 = "Y"
InputYN "Is the above information correct (Y/N)", STRING001, 14
PrintLn
If (STRING001 == "Y") Goto LABEL019
PrintLn
Goto LABEL017
:LABEL019
Cls
DispFile "c:\pcb\gen\choices.txt", 0
PrintLn
STRING002 = ""
InputStr "@X0EMain Order Command: (1-6), (R), (S), (A)", STRING002, 14, 1, "123456RSA", 10
PrintLn
If (STRING002 == "") Goto LABEL019
If (STRING002 == "S") Goto LABEL070
If (STRING002 == "R") Goto LABEL022
If (STRING002 == "A") Goto LABEL020
If (INTEGER024 == 10) Goto LABEL021
If (STRING002 == "1") Gosub LABEL026
If (STRING002 == "2") Gosub LABEL034
If (STRING002 == "3") Gosub LABEL033
If (STRING002 == "4") Gosub LABEL032
If (STRING002 == "5") Gosub LABEL036
If (STRING002 == "6") Gosub LABEL031
Goto LABEL019
:LABEL020
PrintLn
Beep
PrintLn "@X0FScript Aborted. Returning to normal board operations ..."
Stop
:LABEL021
PrintLn
Beep
PrintLn "@X0CA maximum number of @X0F10@X0C items can be ordered with this Script!"
PrintLn
Gosub LABEL039
Goto LABEL019
:LABEL022
BOOLEAN005 = 1
Gosub LABEL040
If (INTEGER024 > 0) Goto LABEL023
Goto LABEL019
:LABEL023
STRING001 = "R"
InputStr "Verify Command: (D)elete Item, (R)eturn to Main Menu (S)ave Order", STRING001, 14, 1, "DRS", 10
PrintLn
If (STRING001 == "") Goto LABEL023
If (STRING001 == "R") Goto LABEL019
If (STRING001 == "S") Goto LABEL072
Beep
INTEGER027 = 0
InputInt "Which item # do you wish to delete (0 to Cancel)", INTEGER027, 12
If (INTEGER027 == 0) Goto LABEL022
If ((INTEGER027 >= 1) && (INTEGER027 <= INTEGER026)) Goto LABEL024
Beep
PrintLn
PrintLn "@X0CYou entered an invalid item number!"
PrintLn
Gosub LABEL039
Goto LABEL022
:LABEL024
INTEGER024 = INTEGER024 - 1
TSTRING038(INTEGER027) = ""
TINTEGER015(INTEGER027, 1) = 0
TINTEGER015(INTEGER027, 2) = 0
If (INTEGER027 == 10) Goto LABEL022
If (INTEGER024 == 0) Goto LABEL019
:LABEL025
TSTRING038(INTEGER027) = TSTRING038(INTEGER027 + 1)
TINTEGER015(INTEGER027, 1) = TINTEGER015(INTEGER027 + 1, 1)
TINTEGER015(INTEGER027, 2) = TINTEGER015(INTEGER027 + 1, 2)
INTEGER027 = INTEGER027 + 1
TSTRING038(INTEGER027) = ""
TINTEGER015(INTEGER027, 1) = 0
TINTEGER015(INTEGER027, 2) = 0
If (INTEGER027 > INTEGER024 + 1) Goto LABEL022
Goto LABEL025
:LABEL026
Cls
DispFile "c:\pcb\gen\newprod.txt", 0
PrintLn
:LABEL027
STRING002 = ""
InputStr "New Product Selection: (1-2), (E)xit", STRING002, 14, 1, "12E", 10
PrintLn
If (STRING002 == "") Goto LABEL027
If (STRING002 == "1") Goto LABEL029
If (STRING002 == "2") Goto LABEL030
:LABEL028
STRING002 = ""
Return
:LABEL029
Cls
INTEGER001 = 0
DispFile "c:\pcb\gen\pcbstan.txt", 0
PrintLn
STRING002 = ""
InputStr "Standard Product Selection: (1-5), (E)xit", STRING002, 14, 1, "12345E", 10
PrintLn
If (STRING002 == "") Goto LABEL028
If (InStr("12345", STRING002) < 1) Goto LABEL028
INTEGER001 = STRING002
STRING031 = "PCBoard "
If (STRING002 == "1") STRING031 = STRING031 + "2"
If (STRING002 == "2") STRING031 = STRING031 + "10"
If (STRING002 == "3") STRING031 = STRING031 + "100"
If (STRING002 == "4") STRING031 = STRING031 + "250"
If (STRING002 == "5") STRING031 = STRING031 + "1000"
STRING031 = STRING031 + " Node Standard Code for $ "
PrintLn
Print "@X0FProduct Ordered: "
Print "@X07", STRING031
STRING039 = TINTEGER002(INTEGER001, 1)
STRING039 = STRING039 + ".00"
PrintLn STRING039
PrintLn
STRING001 = "Y"
InputYN "Is the above correct (Y/N)", STRING001, 14
If (STRING001 == "N") Goto LABEL029
INTEGER024 = INTEGER024 + 1
TINTEGER015(INTEGER024, 1) = TINTEGER002(INTEGER001, 1)
TINTEGER015(INTEGER024, 2) = TINTEGER002(INTEGER001, 2)
TSTRING038(INTEGER024) = STRING031 + STRING039
Goto LABEL028
:LABEL030
Cls
INTEGER003 = 0
DispFile "c:\pcb\gen\pcb-m.txt", 0
PrintLn
STRING002 = ""
InputStr "/M Code Product Selection: (1-4), (E)xit", STRING002, 14, 1, "1234E", 10
PrintLn
If (STRING002 == "") Goto LABEL028
If (InStr("1234", STRING002) < 1) Goto LABEL028
INTEGER003 = STRING002
STRING033 = "PCBoard "
If (STRING002 == "1") STRING033 = STRING033 + "10"
If (STRING002 == "2") STRING033 = STRING033 + "100"
If (STRING002 == "3") STRING033 = STRING033 + "250"
If (STRING002 == "4") STRING033 = STRING033 + "1000"
STRING033 = STRING033 + " Node /M (80386) Code for $ "
PrintLn
Print "@X0FProduct Ordered: "
Print "@X07", STRING033
STRING039 = TINTEGER004(INTEGER003, 1)
STRING039 = STRING039 + ".00"
PrintLn STRING039
PrintLn
STRING001 = "Y"
InputYN "Is the above correct (Y/N)", STRING001, 14
If (STRING001 == "N") Goto LABEL030
INTEGER024 = INTEGER024 + 1
TINTEGER015(INTEGER024, 1) = TINTEGER004(INTEGER003, 1)
TINTEGER015(INTEGER024, 2) = TINTEGER004(INTEGER003, 2)
TSTRING038(INTEGER024) = STRING033 + STRING039
Goto LABEL028
:LABEL031
Cls
INTEGER009 = 0
DispFile "c:\pcb\gen\package.txt", 0
PrintLn
STRING002 = ""
InputStr "/M Package Deal Product Selection: (1-3), (E)xit", STRING002, 14, 1, "123E", 10
PrintLn
If (STRING002 == "") Goto LABEL028
If (InStr("123", STRING002) < 1) Goto LABEL028
INTEGER009 = STRING002
If (STRING002 == "1") STRING032 = "10/M, ARNET 4, DOORWAY, DESQView, Cables"
If (STRING002 == "2") STRING032 = "10/M, ARNET 8, DOORWAY, DESQView, Cables"
If (STRING002 == "3") STRING032 = "100/M, ARNET 8, DOORWAY, DESQView, Cables"
STRING032 = STRING032 + " for $ "
PrintLn
Print "@X0FProduct Ordered: "
Print "@X07", STRING032
STRING039 = TINTEGER010(INTEGER009, 1)
STRING039 = STRING039 + ".00"
PrintLn STRING039
PrintLn
STRING001 = "Y"
InputYN "Is the above correct (Y/N)", STRING001, 14
If (STRING001 == "N") Goto LABEL031
INTEGER024 = INTEGER024 + 1
TINTEGER015(INTEGER024, 1) = TINTEGER010(INTEGER009, 1)
TINTEGER015(INTEGER024, 2) = TINTEGER010(INTEGER009, 2)
TSTRING038(INTEGER024) = STRING032 + STRING039
Goto LABEL028
:LABEL032
Cls
INTEGER011 = 0
DispFile "c:\pcb\gen\hardware.txt", 0
PrintLn
STRING002 = ""
InputStr "Hardware Product Selection: (1-5), (E)xit", STRING002, 14, 1, "12345E", 10
PrintLn
If (STRING002 == "") Goto LABEL028
If (InStr("12345", STRING002) < 1) Goto LABEL028
INTEGER011 = STRING002
If (STRING002 == "1") STRING036 = "ARNET 4-Port Serial card w/o Cables"
If (STRING002 == "2") STRING036 = "ARNET 4-Port Serial card with Cables"
If (STRING002 == "3") STRING036 = "ARNET 8-Port Serial card w/o Cables"
If (STRING002 == "4") STRING036 = "ARNET 8-Port Serial card with Cables"
If (STRING002 == "5") STRING036 = "Willies' 4-Port Serial Card w/16550's"
STRING036 = STRING036 + " for $ "
PrintLn
Print "@X0FProduct Ordered: "
Print "@X07", STRING036
STRING039 = TINTEGER012(INTEGER011, 1)
STRING039 = STRING039 + ".00"
PrintLn STRING039
PrintLn
STRING001 = "Y"
InputYN "Is the above correct (Y/N)", STRING001, 14
If (STRING001 == "N") Goto LABEL032
INTEGER024 = INTEGER024 + 1
TINTEGER015(INTEGER024, 1) = TINTEGER012(INTEGER011, 1)
TINTEGER015(INTEGER024, 2) = TINTEGER012(INTEGER011, 2)
TSTRING038(INTEGER024) = STRING036 + STRING039
Goto LABEL028
:LABEL033
Cls
INTEGER007 = 0
DispFile "c:\pcb\gen\othersw.txt", 0
PrintLn
STRING002 = ""
InputStr "Other Software Product Selection: (1-4), (E)xit", STRING002, 14, 1, "1234E", 10
PrintLn
If (STRING002 == "") Goto LABEL028
If (InStr("1234", STRING002) < 1) Goto LABEL028
INTEGER007 = STRING002
If (STRING002 == "1") STRING035 = "PCBoard Development ToolKit"
If (STRING002 == "2") STRING035 = "PCB-MHS Novell GateWay"
If (STRING002 == "3") STRING035 = "DOORWAY Remote Access/DOS"
If (STRING002 == "4") STRING035 = "DESQview 386 Multitasking"
STRING035 = STRING035 + " Software for $ "
PrintLn
Print "@X0FProduct Ordered: "
Print "@X07", STRING035
STRING039 = TINTEGER008(INTEGER007, 1)
STRING039 = STRING039 + ".00"
PrintLn STRING039
PrintLn
STRING001 = "Y"
InputYN "Is the above correct (Y/N)", STRING001, 14
If (STRING001 == "N") Goto LABEL033
INTEGER024 = INTEGER024 + 1
TINTEGER015(INTEGER024, 1) = TINTEGER008(INTEGER007, 1)
TINTEGER015(INTEGER024, 2) = TINTEGER008(INTEGER007, 2)
TSTRING038(INTEGER024) = STRING035 + STRING039
Goto LABEL028
:LABEL034
Cls
INTEGER005 = 0
BOOLEAN003 = 0
DispFile "c:\pcb\gen\upgrade.txt", 0
PrintLn
STRING002 = ""
InputStr "Upgrade Product Selection: (1-7), (E)xit", STRING002, 14, 1, "1234567E", 10
PrintLn
If (STRING002 == "") Goto LABEL028
If (InStr("1234567", STRING002) < 1) Goto LABEL028
INTEGER005 = STRING002
If (STRING002 == "1") STRING034 = "Like-to-Like Upgrade"
If (STRING002 == "2") STRING034 = "2 Node to 10 Node Upgrade"
If (STRING002 == "3") STRING034 = "2 Node to 100 Node Upgrade"
If (STRING002 == "4") STRING034 = "10 Node to 100 Node Upgrade"
If (STRING002 == "5") STRING034 = "10 Node to 250 Node Upgrade"
If (STRING002 == "6") STRING034 = "100 Node to 250 Node Upgrade"
If (STRING002 == "7") STRING034 = "/M Code Supplement"
STRING034 = STRING034 + " for $ "
PrintLn
Print "@X0FProduct Ordered: "
Print "@X07", STRING034
STRING039 = TINTEGER006(INTEGER005, 1)
STRING039 = STRING039 + ".00"
PrintLn STRING039
PrintLn
STRING001 = "Y"
InputYN "Is the above correct (Y/N)", STRING001, 14
PrintLn
If (STRING001 == "N") Goto LABEL034
If ((INTEGER005 == 1) || (INTEGER005 == 7)) Goto LABEL035
PrintLn
STRING001 = "Y"
InputYN "Download your upgrade and save $25 (Y/N)", STRING001, 14
If (STRING001 == "N") Goto LABEL035
INTEGER028 = TINTEGER006(INTEGER005, 1) - 25
STRING039 = INTEGER028
STRING039 = STRING039 + ".00 via D/L"
BOOLEAN003 = 1
:LABEL035
INTEGER024 = INTEGER024 + 1
TINTEGER015(INTEGER024, 1) = TINTEGER006(INTEGER005, 1)
If (BOOLEAN003) TINTEGER015(INTEGER024, 1) = TINTEGER015(INTEGER024, 1) - 25
If (!BOOLEAN003) TINTEGER015(INTEGER024, 2) = TINTEGER006(INTEGER005, 2)
TSTRING038(INTEGER024) = STRING034 + STRING039
Goto LABEL028
:LABEL036
Cls
INTEGER013 = 0
BOOLEAN004 = 0
DispFile "c:\pcb\gen\sprt.txt", 0
PrintLn
STRING002 = ""
InputStr "Support Renewal Selection: (1-2), (E)xit", STRING002, 14, 1, "12E", 10
PrintLn
If (STRING002 == "") Goto LABEL028
If (InStr("12", STRING002) < 1) Goto LABEL028
INTEGER013 = STRING002
If (STRING002 == "1") STRING037 = "Standard Renewal"
If (STRING002 == "2") STRING037 = "Extended Renewal"
STRING037 = STRING037 + " for $ "
PrintLn
Print "@X0FSupport Ordered: "
Print "@X07", STRING037
STRING039 = TINTEGER014(INTEGER013)
STRING039 = STRING039 + ".00"
PrintLn STRING039
PrintLn
STRING001 = "Y"
InputYN "Is the above correct (Y/N)", STRING001, 14
PrintLn
If (STRING001 == "N") Goto LABEL036
If (STRING002 == "1") Goto LABEL038
:LABEL037
STRING027 = "XL"
InputStr "What size T-Shirt do you want (L/XL/XXL)", STRING027, 14, 3, "XLxl", 2
PrintLn
STRING027 = Upper(STRING027)
If (((STRING027 <> "L") && (STRING027 <> "XL")) && (STRING027 <> "XXL")) Goto LABEL037
STRING027 = " T-Shirt Size: " + STRING027
BOOLEAN004 = 1
:LABEL038
INTEGER024 = INTEGER024 + 1
TINTEGER015(INTEGER024, 1) = TINTEGER014(INTEGER013)
TSTRING038(INTEGER024) = STRING037 + STRING039
Goto LABEL028
:LABEL039
Wait
Return
:LABEL040
Cls
INTEGER016 = 0
INTEGER017 = 0
INTEGER018 = 0
INTEGER025 = 1
INTEGER026 = 1
BOOLEAN006 = 0
:LABEL041
If (INTEGER024 == 0) Goto LABEL063
If (TINTEGER015(INTEGER025, 1) > 0) INTEGER016 = INTEGER016 + TINTEGER015(INTEGER025, 2)
INTEGER025 = INTEGER025 + 1
If (INTEGER025 <= INTEGER024) Goto LABEL041
If (INTEGER016 == 0) Goto LABEL064
If (BOOLEAN001) Goto LABEL046
FOpen 1, "c:\pcb\gen\domestic.fex", 0, 0
INTEGER025 = 1
:LABEL042
FGet 1, STRING040
BOOLEAN008 = Ferr(1)
If (BOOLEAN008) Goto LABEL043
If (Left(STRING040, 1) == ";") Goto LABEL042
If (INTEGER025 == INTEGER016) Goto LABEL044
INTEGER025 = INTEGER025 + 1
Goto LABEL042
:LABEL043
STRING040 = "72+100 130 150"
:LABEL044
FClose 1
INTEGER029 = Mid(STRING040, 4, 3)
INTEGER030 = Mid(STRING040, 8, 3)
INTEGER031 = Mid(STRING040, 12, 3)
If ((STRING008 <> "HI") && (STRING008 <> "AK")) Goto LABEL045
INTEGER029 = INTEGER029 + 10
INTEGER030 = INTEGER030 + 10
INTEGER031 = INTEGER031 + 10
:LABEL045
PrintLn
Print "@X0EYour total shipping weight is @X0F"
Print INTEGER016
PrintLn "@X0E pounds. We ship only by @X0CFederal Express@X0E."
PrintLn "@X0EFederal Express delivery days are based on '@X0ABusiness Days@X0E' and do @X0CNOT@X0E"
PrintLn "include weekends or Holidays. How would you like your order shipped:"
PrintLn
Print "@X0F(1)@X0E Economy Two-Day Business Service for ............... $ @X0F"
Print INTEGER029
PrintLn ".00"
Print "@X0F(2)@X0E Standard Overnight (3:30pm delivery most areas) for $ @X0F"
Print INTEGER030
PrintLn ".00"
Print "@X0F(3)@X0E Priority Overnight (10:30am delivery most areas) for $ @X0F"
Print INTEGER031
PrintLn ".00"
PrintLn
STRING001 = "1"
InputStr "Shipping Method Desired: (1) Economy, (2) Standard, (3) Priority", STRING001, 14, 1, "123", 2
PrintLn
If (STRING001 == "1") INTEGER018 = INTEGER029
If (STRING001 == "2") INTEGER018 = INTEGER030
If (STRING001 == "3") INTEGER018 = INTEGER031
If (STRING001 == "1") STRING046 = "2-Day Economy"
If (STRING001 == "2") STRING046 = "Standard Overnight"
If (STRING001 == "3") STRING046 = "Priority Overnight"
Goto LABEL063
:LABEL046
BOOLEAN006 = 0
FOpen 1, "c:\pcb\gen\country.idx", 0, 0
Print "@X0FPlease wait while we load non-domestic shipping tables ..."
:LABEL047
FGet 1, STRING041
BOOLEAN008 = Ferr(1)
If (BOOLEAN008) Goto LABEL049
If (Left(STRING041, 1) == ";") Goto LABEL047
STRING042 = Left(STRING041, 15)
STRING042 = RTrim(STRING042, " ")
If (InStr(STRING017, STRING042) > 0) Goto LABEL048
Goto LABEL047
:LABEL048
BOOLEAN006 = 1
Goto LABEL050
:LABEL049
BOOLEAN006 = 0
Beep
PrintLn
PrintLn
Print "@X0CAn exact country match on country '@X0F", STRING017, "@X0C' was not found!"
:LABEL050
FClose 1
STRING043 = "7"
STRING044 = "H"
If (BOOLEAN006) STRING043 = Mid(STRING041, 16, 1)
If (BOOLEAN006) STRING044 = Mid(STRING041, 18, 1)
If (STRING043 == "0") Goto LABEL054
If (INTEGER016 > 72) Goto LABEL052
FOpen 1, "c:\pcb\gen\overseas.fex", 0, 0
INTEGER025 = 1
:LABEL051
FGet 1, STRING041
BOOLEAN008 = Ferr(1)
If (BOOLEAN008) Goto LABEL052
If (Left(STRING041, 1) == ";") Goto LABEL051
If (INTEGER025 == INTEGER016) Goto LABEL053
INTEGER025 = INTEGER025 + 1
Goto LABEL051
:LABEL052
STRING041 = "72+ 200 270 310 295 360 540 660"
:LABEL053
FClose 1
If (STRING043 == "1") INTEGER031 = Mid(STRING041, 6, 3)
If (STRING043 == "2") INTEGER031 = Mid(STRING041, 11, 3)
If (STRING043 == "3") INTEGER031 = Mid(STRING041, 16, 3)
If (STRING043 == "4") INTEGER031 = Mid(STRING041, 21, 3)
If (STRING043 == "5") INTEGER031 = Mid(STRING041, 26, 3)
If (STRING043 == "6") INTEGER031 = Mid(STRING041, 31, 3)
If (STRING043 == "7") INTEGER031 = Mid(STRING041, 36, 3)
:LABEL054
If (STRING044 == "0") Goto LABEL058
If (INTEGER016 > 72) Goto LABEL056
FOpen 1, "c:\pcb\gen\overseas.dhl", 0, 0
INTEGER025 = 1
:LABEL055
FGet 1, STRING041
BOOLEAN008 = Ferr(1)
If (BOOLEAN008) Goto LABEL056
If (Left(STRING041, 1) == ";") Goto LABEL055
If (INTEGER025 == INTEGER016) Goto LABEL057
INTEGER025 = INTEGER025 + 1
Goto LABEL055
:LABEL056
STRING041 = "72+ 205 215 220 195 300 380 250 440"
:LABEL057
FClose 1
If (STRING044 == "A") INTEGER032 = Mid(STRING041, 6, 3)
If (STRING044 == "B") INTEGER032 = Mid(STRING041, 11, 3)
If (STRING044 == "C") INTEGER032 = Mid(STRING041, 16, 3)
If (STRING044 == "D") INTEGER032 = Mid(STRING041, 21, 3)
If (STRING044 == "E") INTEGER032 = Mid(STRING041, 26, 3)
If (STRING044 == "F") INTEGER032 = Mid(STRING041, 31, 3)
If (STRING044 == "G") INTEGER032 = Mid(STRING041, 36, 3)
If (STRING044 == "H") INTEGER032 = Mid(STRING041, 41, 3)
:LABEL058
PrintLn
PrintLn
If (BOOLEAN006) Goto LABEL059
Beep
STRING001 = "R"
PrintLn "@X0EDo you want to use the (@X0BD@X0E)efault shipping charges or (@X0BR@X0E)e-enter your Country"
InputStr "in a different format in order to find a possible direct match (D/R)", STRING001, 14, 1, "DR", 10
PrintLn "@X0E"
If (STRING001 == "D") Cls
If (STRING001 == "D") Goto LABEL059
PrintLn
InputText " Ship Country", STRING017, 14, 20
Cls
BOOLEAN001 = 0
STRING017 = Upper(STRING017)
If (STRING017 <> "USA") BOOLEAN001 = 1
If (STRING017 == "") BOOLEAN001 = 0
Goto LABEL046
:LABEL059
Print "@X0ETotal shipping weight is @X0F"
Print INTEGER016
PrintLn "@X0E pounds. Available shipping to your area"
PrintLn "is as follows:"
PrintLn
Print "@X0F(1)@X0E Federal Express International for USD $ @X0F"
If (STRING043 == "0") PrintLn "(Not Available)"
If (STRING043 <> "0") Print Right(INTEGER031, 3)
If (STRING043 <> "0") PrintLn ".00"
Print "@X0F(2)@X0E DHL International for ........... USD $ @X0F"
If (STRING044 == "0") PrintLn "(Not Available)"
If (STRING044 <> "0") Print Right(INTEGER032, 3)
If (STRING044 <> "0") PrintLn ".00"
If (STRING017 <> "CANADA") Goto LABEL060
If (INTEGER016 <= 20) INTEGER033 = 9 + INTEGER016
If ((INTEGER016 > 20) && (INTEGER016 < 31)) INTEGER033 = 30
If (INTEGER016 > 30) INTEGER033 = INTEGER016
Print "@X0F(3)@X0E UPS Canada Delivery for ......... USD $ @X0F"
Print Right(INTEGER033, 3)
PrintLn ".00"
:LABEL060
PrintLn
PrintLn "@X0AFederal Express@X0E maintains their own Custom's Agents and usually provides"
PrintLn "@X0B2-3 day service@X0E throughout the world. @X0ADHL@X0E requires your own Custom's Agent"
PrintLn "and usually provides @X0B4-5 day service@X0E. Both FedEx and DHL may not be"
PrintLn "available in your area. @X0AUPS@X0E to Canada takes about @X0B5-10@X0E days to arrive"
PrintLn "depending on custom's delays."
PrintLn
PrintLn "@X0DFor all Canadian orders, you will be required to pay GST on package arrival."
PrintLn "For all overseas orders, you will be responsible for import tariff's (if any)."
:LABEL061
PrintLn "@X0E"
STRING001 = "1"
If (Left(STRING045, 1) == "F") STRING001 = "1"
If (Left(STRING045, 1) == "D") STRING001 = "2"
If (Left(STRING045, 1) == "U") STRING001 = "3"
If (STRING017 <> "CANADA") InputStr "Shipping Method Desired: (1) FedEx, (2) DHL", STRING001, 14, 1, "12", 2
If (STRING017 == "CANADA") InputStr "Shipping Method Desired: (1) FedEx, (2) DHL, (3) UPS", STRING001, 14, 1, "123", 2
PrintLn
If (STRING001 == "") Goto LABEL061
If ((STRING001 == "1") && (STRING043 == "0")) Goto LABEL062
If ((STRING001 == "2") && (STRING044 == "0")) Goto LABEL062
If ((STRING001 == "3") && (STRING017 <> "CANADA")) Goto LABEL062
INTEGER018 = INTEGER031
STRING045 = "Federal Express"
If (STRING001 == "2") INTEGER018 = INTEGER032
If (STRING001 == "2") STRING045 = "DHL Overseas"
If (STRING001 == "3") INTEGER018 = INTEGER033
If (STRING001 == "3") STRING045 = "UPS Canada"
Goto LABEL063
:LABEL062
Beep
PrintLn
PrintLn "@X0CYou must choose a valid shipping method! If you wish to leave us a comment"
PrintLn "concerning the shipping charges, you will be given the opportunity of doing so"
PrintLn "at the time you (S)ave your order."
PrintLn "@X0E"
Gosub LABEL039
Goto LABEL058
:LABEL063
Cls
BOOLEAN007 = 0
:LABEL064
PrintLn "@X0EYou have currently placed an order for the following:"
PrintLn
INTEGER025 = 1
:LABEL065
If (INTEGER024 == 0) Goto LABEL067
If (TINTEGER015(INTEGER025, 1) < 1) Goto LABEL066
BOOLEAN007 = 1
Print "@X0F "
Print Right(INTEGER026, 2)
INTEGER026 = INTEGER026 + 1
PrintLn "@X07. ", TSTRING038(INTEGER025)
INTEGER017 = INTEGER017 + TINTEGER015(INTEGER025, 1)
:LABEL066
INTEGER025 = INTEGER025 + 1
If (INTEGER025 <= INTEGER024) Goto LABEL065
If (BOOLEAN007) Goto LABEL068
:LABEL067
PrintLn "@X07 Nothing!"
PrintLn
INTEGER024 = 0
Gosub LABEL039
STRING002 = ""
Return
:LABEL068
PrintLn
If (INTEGER016 == 0) Goto LABEL069
Print "@X0F Sub-Total: USD $ "
Print "@X07"
Print Right(INTEGER017, 5)
PrintLn ".00"
Print "@X0F S&H Charges: USD $ "
Print "@X07"
Print Right(INTEGER018, 5)
PrintLn ".00"
:LABEL069
INTEGER019 = INTEGER017 + INTEGER018
Print "@X0F Grand Total: USD $ "
Print "@X07"
Print Right(INTEGER019, 5)
PrintLn ".00"
PrintLn
STRING002 = ""
If (STRING015 <> "UT") Return
If (INTEGER016 == 0) Return
PrintLn "@X0ASince you are from Utah, we will be adding 6.25% sales tax to"
PrintLn "your order at the time the credit card is run."
PrintLn
Return
:LABEL070
BOOLEAN005 = 0
If (INTEGER024 <> 0) Goto LABEL071
Beep
PrintLn
PrintLn "@X0CNothing has been Ordered!"
PrintLn
Gosub LABEL039
Goto LABEL019
:LABEL071
Gosub LABEL040
PrintLn
STRING001 = "Y"
InputYN "Is the above information correct (Y/N)", STRING001, 14
PrintLn
If (STRING001 == "N") Goto LABEL019
:LABEL072
PrintLn
STRING001 = "N"
PrintLn "@X0EBefore actually saving your order, you can leave us two general comment lines"
InputYN "@X0Econcerning the placement of this order. Do you wish to do so (Y/N)", STRING001, 14
If (STRING001 <> "Y") Goto LABEL073
PrintLn
InputText "Comment 1: ", STRING028, 14, 50
PrintLn
InputText "Comment 2: ", STRING029, 14, 50
PrintLn
:LABEL073
Cls
DispFile "c:\pcb\gen\legal.txt", 0
PrintLn
Print " @X0FWe will be charging your credit card in the amount of USD $ "
Print INTEGER019
PrintLn ".00"
PrintLn
STRING001 = "Y"
InputYN " Do you agree to this purchase (Y/N)", STRING001, 14
PrintLn
If (STRING001 <> "Y") Goto LABEL020
If (!BOOLEAN009) FPutLn 0, " User Info: ", ""
FPutLn 0, " Purchaser S/N: ", STRING004
FPutLn 0, " Customer Number: ", STRING030
FPutLn 0, ""
FPutLn 0, " CREDIT CARD INFO."
FPutLn 0, " Credit Card #: ", STRING023
FPutLn 0, " Expiration Date: ", STRING024
FPutLn 0, " Cardholder's Name: ", STRING021
FPutLn 0, " Cardholder's Phone: ", STRING020
FPutLn 0, ""
FPutLn 0, " SOLD TO INFORMATION"
FPutLn 0, " Voice Phone: ", STRING025
FPutLn 0, " FAX Phone: ", STRING026
FPutLn 0, " Purchaser: ", STRING003
If (STRING005 <> "") FPutLn 0, " Company: ", STRING005
FPutLn 0, " Address: ", STRING006
FPutLn 0, " City/State/ZIP: ", STRING007, ", ", STRING008, " ", STRING009
FPutLn 0, " Country: ", STRING010
FPutLn 0, ""
If (BOOLEAN002) Then
FPutLn 0, " SHIP TO INFORMATION"
FPutLn 0, " Ship Name: ", STRING011
If (STRING012 <> "") FPutLn 0, " Ship Company: ", STRING012
FPutLn 0, " Ship Address: ", STRING013
FPutLn 0, " Ship City/State/ZIP: ", STRING014, ", ", STRING015, " ", STRING016
FPutLn 0, " Ship Country: ", STRING017
FPutLn 0, ""
Endif
FPutLn 0, "PRODUCTS/SERVICES ORDERED"
INTEGER025 = 1
:LABEL074
FPut 0, " Product # "
FPut 0, Right(INTEGER025, 2)
FPutLn 0, ": ", TSTRING038(INTEGER025)
INTEGER025 = INTEGER025 + 1
If (INTEGER025 <= INTEGER024) Goto LABEL074
If (BOOLEAN004) FPutLn 0, " T-Shirt Size: ", STRING027
FPutLn 0, ""
FPut 0, " Ship Weight: "
FPut 0, INTEGER016
FPutLn 0, " #'s"
FPut 0, " Sub-Total: $ "
FPut 0, Right(INTEGER017, 5)
FPutLn 0, ".00"
FPut 0, " S&H Total: $ "
FPut 0, Right(INTEGER018, 5)
FPutLn 0, ".00"
FPut 0, " Grand Total: $ "
FPut 0, Right(INTEGER019, 5)
FPutLn 0, ".00"
FPut 0, " Shipping via: "
If (BOOLEAN001) FPutLn 0, STRING045
If (!BOOLEAN001) FPutLn 0, STRING046
FPutLn 0, ""
FPutLn 0, " Agree to Charge: YES"
FPutLn 0, " Order Comment 1: ", STRING028
FPutLn 0, " Order Comment 2: ", STRING029
FPutLn 0, ""
FPutLn 0, ""
FPutLn 0, " Card Authorization #: _______________________"
FPutLn 0, ""
FPutLn 0, " Authorization Ref. #: _______________________"
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 20 Cls
; 1 Wait
; 150 Goto
; 351 Let
; 63 Print
; 222 PrintLn
; 220 If
; 10 DispFile
; 4 FOpen
; 4 FClose
; 4 FGet
; 11 FPut
; 45 FPutLn
; 1 GetUser
; 25 InputStr
; 16 InputYN
; 1 InputInt
; 18 Gosub
; 7 Return
; 1 Stop
; 19 InputText
; 15 Beep
;
;
; ■ Functions used :
;
; 92 +
; 3 -
; 181 ==
; 27 <>
; 10 <
; 5 <=
; 10 >
; 2 >=
; 4 !
; 19 &&
; 12 ||
; 8 Len(
; 19 Upper()
; 34 Mid()
; 21 Left()
; 12 Right()
; 4 Ferr()
; 8 InStr()
; 2 RTrim()
; 2 Date()
; 1 U_Name()
; 1 Year()
; 1 Month()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 1 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------