home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
CW_IN_45.ZIP
/
INTELAPP.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-09-30
|
22KB
|
685 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Date DATE001
Date DATE002
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
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 STRING038
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
String STRING053
String STRING054
String STRING055
String STRING056
String STRING057
String STRING058
String STRING059
String STRING060
String STRING061
String STRING062
;------------------------------------------------------------------------------
If (INTEGER006 == 1) Then
INTEGER006 = "CRW"
Beep
Endif
INTEGER007 = 36
STRING052 = PPEPath() + PPEName() + ".CNF"
STRING060 = 58053
STRING058 = "N"
STRING061 = "U" + "n" + "r" + "e" + "g" + "i" + "s" + "t" + "e" + "r" + "e" + "d"
If (PPEName() == "SUBSCRIP") STRING059 = 46554
If (PPEName() == "FONE-VER") STRING059 = 34479
If (PPEName() == "PRO-VOTE") STRING059 = 57877
If (PPEName() == "CONFMENU") STRING059 = 27062
If (PPEName() == "FILEMENU") STRING059 = 14513
If (PPEName() == "MAINMENU") STRING059 = 25781
If (PPEName() == "DOORMENU") STRING059 = 44910
If (PPEName() == "AUTOPOST") STRING059 = 61482
If (PPEName() == "BBSLISTR") STRING059 = 11832
If (PPEName() == "REMINDME") STRING059 = 54925
If (PPEName() == "TIMEZONE") STRING059 = 38318
If (PPEName() == "USERNEWS") STRING059 = 31171
If (PPEName() == "MSGQUEST") STRING059 = 50024
If (PPEName() == "BIRTHDAY") STRING059 = 19645
If (PPEName() == "HOWHEARD") STRING059 = 42868
If (PPEName() == "WELCOMAT") STRING059 = 23034
If (Exist(STRING052)) Then
FOpen 1, STRING052, 0, 0
FGet 1, STRING047
FGet 1, INTEGER010
FGet 1, INTEGER009
FClose 1
Else
Select Case (PPEName())
Case "MAINT"
STRING052 = PPEPath() + "PRO-VOTE.CNF"
Case "CMW"
STRING052 = PPEPath() + "CONFMENU.CNF"
Case "INTELAPP"
STRING052 = PPEPath() + "INTELEC.CNF"
Case Else
PrintLn "@X0CError - Config file not found - Please notify SysOp"
End
Endif
End Select
Tokenize STRING047
GetToken STRING056
GetToken STRING057
If (INTEGER010 == 0) Then
STRING058 = "N"
Goto LABEL003
Else
Goto LABEL001
Endif
:LABEL001
STRING053 = Left(STRING056, 1)
STRING054 = Left(STRING057, 2)
STRING055 = STRING053 + STRING054
If (STRING053 == "A") INTEGER011 = 8408
If (STRING053 == "B") INTEGER011 = 9119
If (STRING053 == "C") INTEGER011 = 6619
If (STRING053 == "D") INTEGER011 = 4820
If (STRING053 == "E") INTEGER011 = 7325
If (STRING053 == "F") INTEGER011 = 2928
If (STRING053 == "G") INTEGER011 = 2031
If (STRING053 == "H") INTEGER011 = 1934
If (STRING053 == "I") INTEGER011 = 5534
If (STRING053 == "J") INTEGER011 = 4737
If (STRING053 == "K") INTEGER011 = 9242
If (STRING053 == "L") INTEGER011 = 3743
If (STRING053 == "M") INTEGER011 = 6546
If (STRING053 == "N") INTEGER011 = 8355
If (STRING053 == "O") INTEGER011 = 2859
If (STRING053 == "P") INTEGER011 = 4660
If (STRING053 == "Q") INTEGER011 = 7463
If (STRING053 == "R") INTEGER011 = 1164
If (STRING053 == "S") INTEGER011 = 6471
If (STRING053 == "T") INTEGER011 = 3973
If (STRING053 == "U") INTEGER011 = 5674
If (STRING053 == "V") INTEGER011 = 5782
If (STRING053 == "W") INTEGER011 = 3885
If (STRING053 == "X") INTEGER011 = 8287
If (STRING053 == "Y") INTEGER011 = 7591
If (STRING053 == "Z") INTEGER011 = 1096
INTEGER008 = S2I(STRING055, INTEGER007) + INTEGER010 + STRING059 + INTEGER011
INTEGER012 = S2I(STRING055, INTEGER007) + INTEGER010 + STRING060 + INTEGER011
If (INTEGER009 == INTEGER008) Goto LABEL002
If (INTEGER009 == INTEGER012) Goto LABEL002
Goto LABEL019
:LABEL002
STRING058 = "Y"
If (Len(INTEGER010) == 1) STRING049 = "000"
If (Len(INTEGER010) == 2) STRING049 = "00"
If (Len(INTEGER010) == 3) STRING049 = "0"
If (Len(INTEGER010) == 4) STRING049 = ""
STRING050 = INTEGER010
STRING051 = STRING049 + STRING050
STRING048 = Space(30 - Len(STRING047))
:LABEL003
STRING062 = "CRW"
FDefIn 1
FDefOut 2
FOpen 1, PPEPath() + "INTELEC.CNF", 0, 0
FGet 1, STRING002
FGet 1, STRING003
FGet 1, INTEGER005
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING030
FGet 1, STRING027
FGet 1, STRING031
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING046
FGet 1, STRING045
FGet 1, STRING027
FClose 1
STRING009 = "4.5 "
DATE001 = Date()
STRING037 = " "
STRING004 = "Intelec PPE v" + STRING009 + " ■ " + STRING002 + " ■ " + STRING003 + " ■ "
GetToken STRING010
If (STRING010 == "I") STRING011 = "Y"
If (STRING011 == "Y") Goto LABEL004
FOpen 1, STRING030, 0, 0
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING028
FClose 1
DATE002 = Mid(STRING028, 38, 8)
Goto LABEL005
:LABEL004
FOpen 1, STRING030, 0, 0
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING028
FClose 1
DATE002 = Mid(STRING028, 49, 8)
:LABEL005
FOpen 1, STRING031, 0, 0
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FClose 1
INTEGER003 = Mid(STRING027, 42, 3)
GetUser
STRING024 = Left(U_Addr(0), 17)
STRING016 = Left(U_Addr(2), 17)
STRING023 = Left(U_Addr(3), 2)
STRING007 = Left(U_Addr(4), 7)
STRING005 = Left(U_Addr(5), 12)
STRING020 = Left(U_Name(), 25)
:LABEL006
WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec Application", "", ""
INTEGER001 = 0
Cls
DispFile PPEPath() + "SCHBBS", 4 + 2 + 1
PrintLn
InputStr " @X0BSelect # or <Enter> to Abort", INTEGER001, 11, 2, Mask_Num(), 2
If (INTEGER001 == 0) Goto LABEL016
If (INTEGER001 == 1) STRING013 = "PCBoard "
If (INTEGER001 == 2) STRING013 = "Wildcat "
If (INTEGER001 == 3) STRING013 = "Gap "
If (INTEGER001 == 4) STRING013 = "Spitfire "
If (INTEGER001 == 5) STRING013 = "Auntie "
If (INTEGER001 == 6) STRING013 = "TriBBS "
If (INTEGER001 == 7) STRING013 = "GT Power "
If (INTEGER001 == 8) STRING013 = "Synchronet "
If (INTEGER001 == 9) STRING013 = "Rem. Access"
If (INTEGER001 == 10) STRING013 = "SearchLight"
If (INTEGER001 == 11) STRING013 = "UltraBBS "
If (INTEGER001 == 12) STRING013 = "Maximus "
If (INTEGER001 == 13) Goto LABEL007
If (INTEGER001 > 13) Gosub LABEL017
If (INTEGER001 > 13) Goto LABEL006
:LABEL007
STRING042 = "N"
If (INTEGER001 == 13) Then
STRING013 = ""
PrintLn
InputStr "@X0BWhat BBS software do you use", STRING013, 11, 11, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2
If (STRING013 == "") Goto LABEL016
STRING042 = "Y"
STRING013 = STRING013 + Space(11 - Len(STRING013))
Endif
:LABEL008
Cls
INTEGER001 = 0
DispFile PPEPath() + "SCHNET", 4 + 2 + 1
PrintLn
InputStr " @X0ESelect # or <Enter> to Abort", INTEGER001, 11, 2, Mask_Num(), 2
If (INTEGER001 == 0) Goto LABEL016
If (!(INTEGER001 == 16) && (STRING042 == "Y")) Goto LABEL018
If (INTEGER001 == 1) STRING014 = "Rnet "
If (INTEGER001 == 2) STRING014 = "Qnet "
If (INTEGER001 == 3) STRING014 = "Cam-Mail "
If (INTEGER001 == 4) STRING014 = "RoseMail "
If (INTEGER001 == 5) STRING014 = "Tnet "
If (INTEGER001 == 6) STRING014 = "GapNet "
If (INTEGER001 == 7) STRING014 = "BG_QWK "
If (INTEGER001 == 8) STRING014 = "GT_QWK "
If (INTEGER001 == 9) STRING014 = "Jnet "
If (INTEGER001 == 10) STRING014 = "TriNet "
If (INTEGER001 == 11) STRING014 = "QWiKerNet "
If (INTEGER001 == 12) STRING014 = "MkNet "
If (INTEGER001 == 13) STRING014 = "Cnet "
If (INTEGER001 == 14) STRING014 = "SynchroNet"
If (INTEGER001 == 15) STRING014 = "Valence "
If (INTEGER001 == 16) STRING014 = "FTS Format"
If (INTEGER001 == 17) STRING014 = "wcECHO "
If (INTEGER001 == 18) STRING014 = "wcGATE "
If (INTEGER001 > 18) Gosub LABEL017
If (INTEGER001 > 18) Goto LABEL008
:LABEL009
INTEGER004 = 0
INTEGER001 = 0
Cls
FOpen 1, STRING031, 0, 0
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
FGet 1, STRING027
For INTEGER002 = 1 To INTEGER003
FGet 1, STRING032
FGet 1, STRING033
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
If (((Mid(STRING035, 9, 14) == "Super Regional") || (Mid(STRING035, 9, 14) == "Regional Hub ")) || (Mid(STRING035, 9, 14) == "Local Hub ")) Gosub LABEL010
Next
FClose 1
PrintLn
If (!(INTEGER004 == 4)) InputStr "@X0BSelect a Hub Number, or <Enter> for next screen", INTEGER001, 11, 1, Mask_Num() , 2
If (INTEGER001 == 0) Goto LABEL009
:LABEL010
If (INTEGER004 == 4) INTEGER004 = 0
If (INTEGER004 == 0) Cls
INTEGER004 = INTEGER004 + 1
STRING043 = Mid(STRING032, 9, 20)
STRING032 = "@X0F " + Mid(STRING032, 9, 71)
STRING033 = "@X0E " + Mid(STRING033, 9, 71)
STRING034 = "@X0A " + Mid(STRING034, 9, 71)
STRING035 = "@X0B " + Mid(STRING035, 9, 71)
STRING036 = "@X0F " + Mid(STRING036, 9, 71)
If (INTEGER004 == 1) STRING038 = STRING043
If (INTEGER004 == 2) STRING039 = STRING043
If (INTEGER004 == 3) STRING040 = STRING043
If (INTEGER004 == 4) STRING041 = STRING043
STRING032 = "@X07" + String(INTEGER004) + STRING032
PrintLn STRING032
PrintLn STRING033
PrintLn STRING034
PrintLn STRING035
PrintLn STRING036
If (INTEGER004 == 4) Then
PrintLn
INTEGER001 = 0
InputStr "@X0BSelect a Hub Number, or <Enter> for next screen", INTEGER001, 11, 1, Mask_Num(), 2
If (INTEGER001 == 1) STRING018 = STRING038
If (INTEGER001 == 2) STRING018 = STRING039
If (INTEGER001 == 3) STRING018 = STRING040
If (INTEGER001 == 4) STRING018 = STRING041
If (INTEGER001 == 0) Return
If (INTEGER001 > 4) Return
If (!(INTEGER001 == 0)) FClose 1
If (!(INTEGER001 == 0)) INTEGER002 = 0
If (INTEGER001 == 0) Then
Cls
Endif
Return
Endif
Cls
InputStr "@X0BWhat is the name of your BBS (20 chars maximum)", STRING012, 11, 20, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2
If (STRING012 == "") Goto LABEL016
If (STRING011 == "Y") Then
STRING006 = " "
Else
STRING006 = " - - "
Endif
InputStr "@X0BWhat is your BBS's phone number ", STRING006, 11, 14, Mask_Num() + "-", 2 + 128 + 1024
If (Len(STRING006) < 8) Goto LABEL016
:LABEL011
INTEGER001 = 0
Cls
DispFile PPEPath() + "SCHMDM", 4 + 2 + 1
PrintLn
PrintLn " @X0EWhat modem is on your BBS phone number: @X0F", STRING006, "@X0B"
PrintLn
InputStr "Select # or <Enter> to Abort ", INTEGER001, 11, 1, Mask_Num(), 2
If (INTEGER001 == 0) Goto LABEL016
If (INTEGER001 == 1) STRING019 = "v.32bis "
If (INTEGER001 == 2) STRING019 = "USR HST "
If (INTEGER001 == 3) STRING019 = "D/S 14.4 "
If (INTEGER001 == 4) STRING019 = "D/S 16.8 "
If (INTEGER001 == 5) STRING019 = "ZyXel "
If (INTEGER001 == 6) STRING019 = "V.Terbo "
If (INTEGER001 == 7) STRING019 = "V.FC 28.8 "
If (INTEGER001 == 8) STRING019 = "V.34 "
If (INTEGER001 == 9) STRING019 = "Other "
If (INTEGER001 > 9) Gosub LABEL017
If (INTEGER001 > 9) Goto LABEL011
INTEGER001 = 0
Cls
InputStr "@X0EHow many years has your BBS been operational, or <Enter> to Abort ", INTEGER001, 11, 2, Mask_Num(), 2
If (INTEGER001 == 0) Goto LABEL016
If (INTEGER001 == 1) STRING026 = "1 Year "
If (INTEGER001 == 2) STRING026 = "2 Years "
If (INTEGER001 == 3) STRING026 = "3 Years "
If (INTEGER001 == 4) STRING026 = "4 Years "
If (INTEGER001 == 5) STRING026 = "5 Years "
If (INTEGER001 == 6) STRING026 = "6 Years "
If (INTEGER001 == 7) STRING026 = "7 Years "
If (INTEGER001 == 8) STRING026 = "8 Years "
If (INTEGER001 == 9) STRING026 = "9 Years "
If (INTEGER001 == 10) STRING026 = "10 Years"
If (INTEGER001 == 11) STRING026 = "11 Years"
If (INTEGER001 == 12) STRING026 = "12 Years"
If (INTEGER001 == 13) STRING026 = "13 Years"
If (INTEGER001 == 14) STRING026 = "14 Years"
If (INTEGER001 == 15) STRING026 = "15 Years"
If (INTEGER001 > 15) STRING026 = "15+ Yrs."
INTEGER001 = 0
Cls
PrintLn " "
InputStr "@X0EHow many users on your BBS, or <Enter> to Abort ", INTEGER001, 11, 5, Mask_Num(), 2
If (INTEGER001 == 0) Goto LABEL016
STRING025 = String(INTEGER001) + Space(9 - Len(INTEGER001))
Cls
Color 11
InputStr "Your real name on BBS (25 characters max) ", STRING020, 11, 25, Mask_Alpha() + " ", 2 + 128
If (Len(STRING020) < 1) Goto LABEL016
If (STRING011 == "Y") Then
STRING017 = " "
Else
STRING017 = " - - "
Endif
InputStr "What is your voice phone # ", STRING017, 11, 14, Mask_Num() + "-", 2 + 128 + 1024
If (Len(STRING017) < 8) Goto LABEL016
STRING008 = " - - "
InputStr "What is your Date of Birth ", STRING008, 11, 8, Mask_Num() + "-", 2 + 128 + 1024
If (Len(STRING008) < 8) Goto LABEL016
InputStr "What's your Street Address ", STRING024, 11, 25, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 128
If (Len(STRING024) < 9) Goto LABEL016
InputStr "City: (17 characters max) ", STRING016, 11, 17, Mask_Alpha() + " ", 2 + 128
If (Len(STRING016) < 3) Goto LABEL016
InputStr "State or Province (2 letter abbreviation) ", STRING023, 11, 2, Mask_Alpha() + " ", 2 + 8 + 128
InputStr "Country (12 characters max) ", STRING005, 11, 12, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
If (Len(STRING005) < 3) Goto LABEL016
InputStr "Zip code (7 characters max) ", STRING007, 11, 7, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
If (Len(STRING007) < 3) Goto LABEL016
Cls
Color 11
PrintLn "The ideal applicant should be familiar with network mail. While this is"
PrintLn "not a requirement, an aptitude for handling the software is essential to"
PrintLn "the ensurance of smooth, problem-free mail runs. Systems that show they"
PrintLn "cannot handle network mail can be removed as fast as they were approved."
PrintLn "We do this since it is not fair for the rest of the network to always be"
PrintLn "cleaning up messes made by too novice a SysOp. So if you're new, please"
PrintLn "make sure you have a good solid handle on the net software you're using."
PrintLn
InputStr "@X0BWhat other networks do you currently carry", STRING044, 11, 25, Mask_Ascii() + Mask_Alpha() + Mask_Num(), 2
:LABEL012
Cls
Color 15
PrintLn "Please make sure you have read our network rules file, it's required...."
PrintLn
Color 11
PrintLn "You will need to make an account on your BBS for the name CLIFF WATKINS."
PrintLn "This will be used for either reviewing your board if we are not familiar"
PrintLn "with your system or for direct contacts from the Intelec Administration."
PrintLn "You'll need to make this account and tell us what password you assigned:"
PrintLn
InputStr "@X0BWhat password as defined above (8 characters max) ", STRING021, 11, 8, Mask_Pwd(), 2 + 8 + 1 + 128
If (Len(STRING021) < 2) Goto LABEL016
InputStr "Please type password again........................", STRING022, 11, 8, Mask_Pwd(), 2 + 8 + 1 + 128
If (STRING021 == STRING022) Goto LABEL013
PrintLn
PrintLn "@X8C* @X0BPasswords did not match @X8C*@X07"
PrintLn
Wait
STRING021 = ""
STRING022 = ""
Goto LABEL012
:LABEL013
STRING029 = "N"
PrintLn
InputStr "@X0BHave you read the network rules and agree to comply with all (Y/N)", STRING029, 11, 1, Mask_Alpha(), 2 + 8
If (STRING029 == "N") Goto LABEL016
If (STRING029 == "") Goto LABEL016
If (STRING029 == "Y") STRING015 = "Y"
Cls
STRING029 = ""
PrintLn " @X0A┌─────────────────────────────────────────────────@X0A┐@X07"
PrintLn " @X0A│ @X0EIntelec Network PPE v", STRING009, " VOID on ", DATE002, " @X0A│@X07"
PrintLn " @X0A├─────────────────────────────────────────────────@X0A┤@X07"
PrintLn " @X0A│@X0B Today's Date@X0A·········@X0E ", DATE001, " @X0A│@X07"
PrintLn " @X0A│@X0B Your (SysOp) Name@X0A····@X0E ", STRING020, Space(25 - Len(STRING020)), " @X0A│@X07"
PrintLn " @X0A│@X0B Your (BBS's) Name@X0A····@X0E ", STRING012, Space(20 - Len(STRING012)), " @X0A│@X07"
PrintLn " @X0A│@X0B Your Date of Birth@X0A···@X0E ", STRING008, " @X0A│@X07"
PrintLn " @X0A│@X0B Street Address@X0A·······@X0E ", STRING024, Space(25 - Len(STRING024)), " @X0A│@X07"
PrintLn " @X0A│@X0B City and State@X0A·······@X0E ", STRING016, " ", STRING023, Space(17 - Len(STRING016)), Space(2 - Len(STRING023)), " @X0A│@X07"
PrintLn " @X0A│@X0B Country & Zip Code@X0A···@X0E ", STRING005, Space(12 - Len(STRING005)), " ", STRING007, Space(7 - Len(STRING007)), " @X0A│@X07"
PrintLn " @X0A│@X0B Your Voice Phone #@X0A···@X0E ", STRING017, Space(14 - Len(STRING017)), " @X0A│@X07"
PrintLn " @X0A│@X0B Your BBS Phone #@X0A···@X0E ", STRING006, Space(14 - Len(STRING006)), " @X0A│@X07"
PrintLn " @X0A│@X0B Modem on above #@X0A·····@X0E ", STRING019, " @X0A│@X07"
PrintLn " @X0A│@X0B BBS Software Used@X0A····@X0E ", STRING013, " @X0A│@X07"
PrintLn " @X0A│@X0B Total Users Online@X0A···@X0E ", STRING025, " @X0A│@X07"
PrintLn " @X0A│@X0B Years/Months Online@X0A··@X0E ", STRING026, " @X0A│@X07"
PrintLn " @X0A│@X0B Your Hub Request@X0A·····@X0E ", STRING018, " @X0A│@X07"
PrintLn " @X0A│@X0B Netmail Tosser Used@X0A··@X0E ", STRING014, " @X0A│@X07"
PrintLn " @X0A│@X0B Other Nets Carried@X0A···@X0E ", STRING044, Space(25 - Len(STRING044)), " @X0A│@X07"
PrintLn " @X0A│@X0B Read Rules? [Y/N]@X0A····@X0E ", STRING015, " @X0A│@X07"
PrintLn " @X0A│@X0B CLIFF WATKINS P/W@X0A····@X0E ", STRING022, Space(8 - Len(STRING022)), " @X0A│@X07"
PrintLn " @X0A└@X0A─────────────────────────────────────────────────┘@X07"
InputStr " @X0AS@X0B) Save as shown above @X0EM@X0B) Modify @X0CA@X0B) Abort", STRING029, 11, 1, Mask_Alpha(), 2 + 8
If (STRING029 == "S") Goto LABEL014
If (STRING029 == "M") Goto LABEL006
If (STRING029 == "A") Goto LABEL016
Goto LABEL016
:LABEL014
FOpen 2, STRING045, 1, 0
FPutLn 2, "┌─────────────────────────────────────────────────┐"
FPutLn 2, "│ Intelec Network PPE v", STRING009, " VOID on ", DATE002, " │"
FPutLn 2, "├─────────────────────────────────────────────────┤"
FPutLn 2, "│ Today's Date········· ", DATE001, " │"
FPutLn 2, "│ Your (SysOp) Name···· ", STRING020, Space(25 - Len(STRING020)), " │"
FPutLn 2, "│ Your (BBS's) Name···· ", STRING012, Space(20 - Len(STRING012)), " │"
FPutLn 2, "│ Your Date of Birth··· ", STRING008, " │"
FPutLn 2, "│ Street Address······· ", STRING024, Space(25 - Len(STRING024)), " │"
FPutLn 2, "│ City and State······· ", STRING016, " ", STRING023, Space(17 - Len(STRING016)), Space(2 - Len(STRING023)), " │"
FPutLn 2, "│ Country & Zip Code··· ", STRING005, Space(12 - Len(STRING005)), " ", STRING007, Space(7 - Len(STRING007)), " │"
FPutLn 2, "│ Your Voice Phone #··· ", STRING017, Space(14 - Len(STRING017)), " │"
FPutLn 2, "│ Your BBS Phone #··· ", STRING006, Space(14 - Len(STRING006)), " │"
FPutLn 2, "│ Modem on above #····· ", STRING019, " │"
FPutLn 2, "│ BBS Software Used···· ", STRING013, " │"
FPutLn 2, "│ Total Users Online··· ", STRING025, " │"
FPutLn 2, "│ Years/Months Online·· ", STRING026, " │"
FPutLn 2, "│ Your Hub Request····· ", STRING018, " │"
FPutLn 2, "│ Netmail Tosser Used·· ", STRING014, " │"
FPutLn 2, "│ Other Nets Carried··· ", STRING044, Space(25 - Len(STRING044)), " │"
FPutLn 2, "│ Read Rules? [Y/N]···· ", STRING015, " │"
FPutLn 2, "│ CLIFF WATKINS P/W···· ", STRING022, Space(8 - Len(STRING022)), " │"
FPutLn 2, "└─────────────────────────────────────────────────┘"
FPutLn 2, STRING004
FClose 2
Log "Intelec Application completed at " + String(Time()), 0
Message 0, STRING003, "INTAPP", "Intelec Application", "R", "0", "0", "0", STRING045
If (INTEGER005 < 1) Goto LABEL015
Message INTEGER005, "CLIFF WATKINS", STRING003, "Intelec Application", "N", "0", "0", "1", STRING045
:LABEL015
If (!(STRING046 == "")) Append STRING045, STRING046
Delete STRING045
Cls
Color 15
PrintLn "Thanks for taking the time to apply to the Intelec Network. The applica-"
PrintLn "tion will be sent ASAP to the net host for immediate processing and you"
PrintLn "will hear back from us real soon. Cliff Watkins. Intelec Network Admin."
PrintLn
Wait
End
:LABEL016
Cls
Color 15
PrintLn "Intelec PPE has ABORTED. If you didn't mean to, please re-start the app-"
PrintLn "lication as we would love to hear from you! Thanks. Intelec Management."
PrintLn
Wait
End
:LABEL017
PrintLn
PrintLn "@X0FSorry... you entered an invalid number"
PrintLn
Wait
Return
:LABEL018
Cls
Color 15
PrintLn " Sorry... for the BBS software you use, only FTS (Fido Technology Standard) is"
PrintLn " available for use. There is no ""QWK software format"" approved for use within"
PrintLn " Intelec for your software at this time. However if you would like to have the"
PrintLn " software approved for use, please contact the host BBS SysOp directly to have"
PrintLn " test relays set up to see if this QWK software can be placed on the approved"
PrintLn " software list. If you have selected PCRelay or PostLink, they're not approved"
PrintLn " at this time either, no testing can be done at the host as the host system is"
PrintLn " not going to operate this software at all. Thank you, Intelec Administration."
PrintLn
Wait
Goto LABEL016
:LABEL019
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 4 End
; 16 Cls
; 5 Wait
; 7 Color
; 60 Goto
; 178 Let
; 75 PrintLn
; 167 If
; 3 DispFile
; 7 FOpen
; 8 FClose
; 50 FGet
; 23 FPutLn
; 1 GetUser
; 1 Delete
; 1 Log
; 23 InputStr
; 4 Gosub
; 4 Return
; 1 Tokenize
; 3 GetToken
; 1 Beep
; 1 WrUNet
; 2 Message
; 1 FDefIn
; 1 FDefOut
; 1 Append
;
;
; ■ Functions used :
;
; 93 +
; 25 -
; 150 ==
; 11 <
; 1 <=
; 8 >
; 2 >=
; 18 !
; 3 &&
; 3 ||
; 38 Len(
; 12 Mid()
; 8 Left()
; 25 Space()
; 1 Date()
; 1 Time()
; 2 U_Name()
; 3 String()
; 2 Mask_Pwd()
; 11 Mask_Alpha()
; 16 Mask_Num()
; 6 Mask_Ascii()
; 8 PPEPath()
; 1 PcbNode()
; 1 UN_Stat()
; 1 Exist()
; 2 S2I()
; 20 PPEName()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 8 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------