home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
POB_SC2.ZIP
/
POB_SC2.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-01-06
|
2KB
|
135 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
;------------------------------------------------------------------------------
Real REAL001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
BigStr BIGSTR001
;------------------------------------------------------------------------------
:LABEL001
Cls
Newline
Newline
InputStr "@X0FUsername: ", STRING002, 14, 20, Mask_Ascii(), 0 + 64 + 8
InputStr "@X0FSerial #: ", STRING003, 14, 6, Mask_Ascii(), 0 + 64
InputStr "@X0FLineversion: ", REAL001, 14, 4, "1250", 64
InputStr "@X0FCode: ", STRING004, 14, 10, Mask_Ascii(), 0 + 64 + 8
InputYN "@X0Fregistered for PPL: ", STRING006, 14
STRING005 = ""
If (STRING006 == YesChar()) STRING005 = "PPL"
BIGSTR001 = String(STRING003) + " " + "/" + String(REAL001) + " " + String(STRING004) + " " + String(STRING005)
GetAltUser U_RecNum(STRING002)
Cls
PrintLn ""
PrintLn ""
PrintLn ""
PrintLn "@X0FUSERNAME: " + STRING002
Print "@X0FUSER RECORD #: "
PrintLn U_RecNum(STRING002)
PrintLn "@X0FCODE FOR PCBOARD DOOR:@X0E " + BIGSTR001
PrintLn ""
PrintLn ""
InputYN "@X0CIs the Information OK to store in USER-RECORD ", STRING008, 15
PrintLn ""
If (STRING008 == YesChar()) Then
U_Cmnt2 = BIGSTR001
PrintLn ""
PrintLn ""
PrintLn "@X0FCOMMENT-LINE #2 changed to:@X0A ", U_Cmnt2
PrintLn ""
PrintLn ""
PrintLn " @X08POB(@X0Ac@X08)1995"
PrintLn ""
U_Sec = 20
U_ExpDate = Date() + 365
PutUser
Else
PrintLn ""
InputYN "@X0FContinue with code-entry ", STRING007, 14
PrintLn ""
Endif
If (STRING007 == YesChar()) Goto LABEL001
Wait
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 Cls
; 1 Wait
; 3 Goto
; 6 Let
; 1 Print
; 18 PrintLn
; 3 If
; 1 PutUser
; 4 InputStr
; 3 InputYN
; 2 Newline
; 1 GetAltUser
;
;
; ■ Functions used :
;
; 15 +
; 3 ==
; 1 !
; 1 Date()
; 3 YesChar()
; 4 String()
; 3 Mask_Ascii()
; 2 U_RecNum()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WR
;
; 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
;
; R - Read user ■ 5
; User records are read, this may signify that someone wants to get
; various informations about a user (for example his password), but
; this may also be normal for a program accessing user records (for
; example a User Editor)
; ■ Search for : GETALTUSER
;
;------------------------------------------------------------------------------
;
; 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!
;------------------------------------------------------------------------------