home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
POWRPK10.ZIP
/
ADUPD.ZIP
/
ADUPD.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-03-02
|
4KB
|
163 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 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING002
String STRING003
String STRING004
;------------------------------------------------------------------------------
STRING003 = " 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
GetUser
If ((U_Addr(0) == "") || (Left(U_Addr(0), 1) == " ")) Goto LABEL001
Goto LABEL009
:LABEL001
PrintLn
PrintLn "@X09┌───────────────────────────────────────────────────────────────────┐"
PrintLn "@X09│ @X0B**** Address Update Menu **** @X09 │"
PrintLn "@X09├───────────────────────────────────────────────────────────────────┤"
PrintLn "@X09│ │"
PrintLn "@X09│ @X0BYou have not filled out your extra account information, you will @X09 │"
PrintLn "@X09│ @X0Basked a few questions so we can have a full record account. @X09 │"
PrintLn "@X09│ │"
PrintLn "@X09└───────────────────────────────────────────────────────────────────┘"
PrintLn
PrintLn "@X0AFor any information that does not apply to you, enter N/A."
:LABEL002
PrintLn
PrintLn "@X0E" + "1" + " @X0F- @X0BStreet (1 of 2): @X0F", U_Addr(0)
PrintLn "@X0E" + "2" + " @X0F- @X0BStreet (2 of 2): @X0F", U_Addr(1)
PrintLn "@X0E" + "3" + " @X0F- @X0BCity : @X0F", U_Addr(2)
PrintLn "@X0E" + "4" + " @X0F- @X0BState : @X0F", U_Addr(3)
PrintLn "@X0E" + "5" + " @X0F- @X0BZip Code : @X0F", U_Addr(4)
PrintLn "@X0E" + "6" + " @X0F- @X0BCountry : @X0F", U_Addr(5)
PrintLn
InputStr "@X0EAddress Info Command (@X0A1@X0F-@X0A6@X0E,@X0AQ@X0F/@X0AS to quit@X0E)", STRING002, 14, 1, "1234567890SsQq", 10
PrintLn
If (STRING002 == "") Goto LABEL001
If (STRING002 == "1") Goto LABEL003
If (STRING002 == "2") Goto LABEL004
If (STRING002 == "3") Goto LABEL005
If (STRING002 == "4") Goto LABEL006
If (STRING002 == "5") Goto LABEL007
If (STRING002 == "6") Goto LABEL008
If (STRING002 == "S") Goto LABEL009
If (STRING002 == "s") Goto LABEL009
If (STRING002 == "Q") Goto LABEL009
If (STRING002 == "q") Goto LABEL009
If (STRING002 > 6) Goto LABEL002
Goto LABEL002
:LABEL003
InputStr "@X0AEnter Street Address (1 of 2)", U_Addr(0), 14, 45, STRING003, 10
PrintLn
Goto LABEL001
:LABEL004
InputStr "@X0AEnter Street Address (2 of 2)", U_Addr(1), 14, 30, STRING003, 10
PrintLn
Goto LABEL001
:LABEL005
InputStr "@X0AEnter City", U_Addr(2), 14, 30, STRING003, 10
PrintLn
Goto LABEL001
:LABEL006
InputStr "@X0AEnter State (2 letter code)", U_Addr(3), 14, 2, STRING003, 10
PrintLn
Goto LABEL001
:LABEL007
InputStr "@X0AEnter Zip Code", U_Addr(4), 14, 12, "1234567890-", 10
PrintLn
Goto LABEL001
:LABEL008
InputStr "@X0AEnter Country", U_Addr(5), 14, 10, STRING003, 10
PrintLn
Goto LABEL001
:LABEL009
If ((U_Addr(0) == "") || (Left(U_Addr(0), 1) == " ")) Goto LABEL010
Goto LABEL011
:LABEL010
PrintLn " You will be placed here everytime until you fill out your address"
PrintLn " information. If there is some sort of problem, notify the sysop."
InputYN " Do you still want to Exit (y/N)", STRING004, 15
If (STRING004 == "Y") Goto LABEL011
If (STRING004 == "N") Goto LABEL001
If (STRING004 == "y") Goto LABEL011
If (STRING004 == "n") Goto LABEL001
If (STRING004 == "") Goto LABEL001
PrintLn " Thanks for taking the time to update your Address Information"
PrintLn " It will enable us to keep you in touch with future changes and"
PrintLn " changing Membership features. In the future if you need you"
PrintLn " update your Address Information please use the W command at"
PrintLn " the main board prompt."
More
:LABEL011
PutUser
PrintLn
PrintLn "Extra information updated (if at all) ..."
PrintLn "@X0AModule revised by Michael Cherin - DynaSOFT."
PrintLn "@X0AOriginal copy written by Ralph LoBianco."
PrintLn
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 More
; 28 Goto
; 1 Let
; 38 PrintLn
; 19 If
; 1 GetUser
; 1 PutUser
; 7 InputStr
; 1 InputYN
;
;
; ■ Functions used :
;
; 12 +
; 20 ==
; 1 >
; 2 ||
; 2 Left()
;
;------------------------------------------------------------------------------
;
; Analysis flags : W
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------