home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
RECPTUNR.ZIP
/
RECEIPT.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-04-14
|
5KB
|
230 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
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
;------------------------------------------------------------------------------
STRING002 = ""
Log "RECEIPT: entered", 0
GetUser
If (Psa(3)) Goto LABEL001
Log "RECEIPT: address PSA not installed", 0
PrintLn "RECEIPT: address PSA not installed"
PrintLn "Please notify sysop. Exiting..."
Goto LABEL002
:LABEL001
FOpen 1, PPEPath() + "RECEIPT.CFG", 0, 0
If (Ferr(1)) Then
PrintLn "@X02RECEIPT: could not open RECEIPT.CFG, exiting..."
Log "RECEIPT: could not open RECEIPT.CFG, exiting...", 0
Else
FGet 1, STRING019
FGet 1, STRING020
FGet 1, STRING021
FGet 1, STRING022
FGet 1, STRING023
FGet 1, STRING024
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING005
FGet 1, STRING006
FGet 1, STRING007
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING010
FGet 1, STRING011
FGet 1, STRING012
FGet 1, STRING014
FGet 1, STRING015
FGet 1, STRING016
FGet 1, STRING017
FGet 1, STRING018
If (Ferr(1)) Then
PrintLn "@X02RECEIPT: error reading RECEIPT.CFG, exiting..."
Log "RECEIPT: error reading RECEIPT.CFG, exiting...", 0
FClose 1
Else
FClose 1
PrintLn "@CLS@@X07@X0C▐@X4C┌───────────────────────────────────────────────────────────────────────────@X40┐@X08▌"
PrintLn "@X0C▐@X4C│ @X4ERECEIPT.PPE ■ COPYRIGHT 1994 ROBERT BROWER ■ TOTAL ACCESS: (905) 568-5294 @X40│@X08▌"
PrintLn "@X0C▐@X4C└@X40───────────────────────────────────────────────────────────────────────────┘@X08▌"
If (STRING002 <> "") Then
STRING025 = "@X0EREGISTERED TO: " + STRING002
Forward (80 - Len(STRING025)) / 2
PrintLn "@X08" + STRING025
Else
PrintLn "@X8E UNREGISTERED EVALUATION COPY"
Endif
If (((((U_Sec <> STRING003) && (U_Sec <> STRING005)) && (U_Sec <> STRING007)) && (U_Sec <> STRING009)) && (U_Sec <> STRING011)) Then
PrintLn "@X0CYou are not yet a subscribing member of this BBS. Ask your sysop for"
Print "@X0Cinformation about subscribing to @BOARDNAME@."
Newline
Print "@WAIT@"
Else
FCreate 1, PPEPath() + "RECEIPT.TXT", 1, 2
If (Ferr(1)) Then
PrintLn "@X02RECEIPT: error opening RECEIPT.TXT, exiting..."
Log "@X02RECEIPT: error opening RECEIPT.TXT, exiting...", 0
Else
Select Case (U_Sec)
Case STRING003
STRING013 = STRING004
Case STRING005
STRING013 = STRING006
Case STRING007
STRING013 = STRING008
Case STRING009
STRING013 = STRING010
Case STRING011
STRING013 = STRING012
Case Else
PrintLn "@X0CYou are not yet a subscribing member of this BBS. Ask your sysop for"
Print "@X0Cinformation about subscribing to @BOARDNAME@."
Newline
Print "@WAIT@"
Goto LABEL002
End Select
FPutLn 1, "*****************************************************************************"
FPutLn 1, "* RECEIPT.PPE * COPYRIGHT 1994 ROBERT BROWER * TOTAL ACCESS: (905) 568-5294 *"
FPutLn 1, "*****************************************************************************"
FPutLn 1, ""
If (STRING002 == "") Then
FPutLn 1, "THIS RECEIPT GENERATED BY AN UNREGISTERED EVALUATION COPY"
FPutLn 1, ""
Else
FPutLn 1, "REGISTERED TO: " + STRING002
FPutLn 1, ""
Endif
FPutLn 1, STRING019, " - ", STRING021
FPutLn 1, STRING022, " - ", STRING024, " - ", STRING023
FPutLn 1, STRING020
FPutLn 1, ""
FPutLn 1, "RECEIVED FROM: ", U_Name(), " THE AMMOUNT OF: ", STRING013
FPutLn 1, "FOR ACCESS LEVEL: ", U_Sec, " UNTIL THE DATE: ", U_ExpDate
FPutLn 1, ""
FPutLn 1, "USER ADDRESS:"
FPutLn 1, U_Addr(0) + " " + U_Addr(1)
FPutLn 1, U_Addr(2) + ", " + U_Addr(3)
FPutLn 1, U_Addr(4) + ", " + U_Addr(5)
FPutLn 1, "USER HOME PHONE: " + U_HVPhone
FPutLn 1, "USER DATA PHONE: " + U_BDPhone
FPutLn 1, ""
FPutLn 1, "SYSOP COMMENTS:"
FPutLn 1, ""
FPutLn 1, STRING014
FPutLn 1, STRING015
FPutLn 1, STRING016
FPutLn 1, STRING017
FPutLn 1, STRING018
FPutLn 1, ""
FPutLn 1, "PLEASE REPORT ANY DISCREPENCIES IN THIS RECEIPT TO YOUR SYSOP. THANK YOU!"
FClose 1
PrintLn
Print "@WAIT@"
Newline
Download "RECEIPT.TXT" + ";" + U_Trans
Endif
Endif
Endif
Endif
:LABEL002
FClose 1
FClose 2
Log "RECEIPT: exited", 0
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 25 Goto
; 7 Let
; 5 Print
; 13 PrintLn
; 12 If
; 1 FCreate
; 1 FOpen
; 5 FClose
; 21 FGet
; 31 FPutLn
; 1 GetUser
; 6 Log
; 3 Newline
; 1 Forward
; 1 Download
;
;
; ■ Functions used :
;
; 1 /
; 15 +
; 1 -
; 6 ==
; 6 <>
; 12 !
; 4 &&
; 1 Len(
; 3 Ferr()
; 1 U_Name()
; 2 PPEPath()
; 1 Psa()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 6 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------