home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
RQ20.ZIP
/
RQ.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1994-02-20
|
3KB
|
141 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
;------------------------------------------------------------------------------
Integer INTEGER001
String STRING001
String STRING002
;------------------------------------------------------------------------------
GetUser
:LABEL001
If (Exist(PPEPath() + "rq.cfg")) Then
FOpen 1, PPEPath() + "rq.cfg", 0, 0
FGet 1, INTEGER001
FClose 1
Else
PrintLn "@X0CSorry, we're having to create a config file for the program..."
FCreate 1, PPEPath() + "rq.cfg", 2, 3
FPutLn 1, "10 ;Level which if equal or lower to is forced to read their mail!"
FClose 1
PrintLn "@X0DOK!"
Log "You forgot to create a config file!", 0
Goto LABEL001
Endif
INTEGER001 = Left(INTEGER001, 3)
INTEGER001 = S2I(INTEGER001, 10)
STRING001 = "Y"
PrintLn " @X00 @X10┌─────────────────────────────────────@X1B┐@X08 "
PrintLn " @X10│@X1F " + Mixed(U_Name()) + " @X1EThis is mail@X1B@POS:58@│@X08 ██"
PrintLn " @X10│@X1E for you! Would you like to: @X1B@POS:58@│@X08 ██"
PrintLn " @X10│@X1B@POS:58@│@X08 ██"
PrintLn " @X10│ @X1A(@X1CY@X1A) @X1FRead it now! @X1B@POS:58@│@X08 ██"
PrintLn " @X10│ @X1B@POS:58@│@X08 ██"
PrintLn " @X10│ @X1A(@X1CQ@X1A) @X1FDownload a QWK packet! @X1B@POS:58@│@X08 ██"
PrintLn " @X10│ @X1B@POS:58@│@X08 ██"
PrintLn " @X10│ @X1A(@X1CA@X1A) @X1FRead All the mail! @X1B@POS:58@│@X08 ██"
PrintLn " @X10│ @X1B@POS:58@│@X08 ██"
If (CurSec() <= INTEGER001) Then
STRING002 = "yqaYQA"
Goto LABEL002
Else
STRING002 = "ynqaYNQA"
Endif
PrintLn " @X10│ @X1A(@X1CN@X1A) @X1FDo Nothing about it? @X1B@POS:58@│@X08 ██"
PrintLn " @X10│ @X1B@POS:58@│@X08 ██"
:LABEL002
PrintLn " @X10└@X1B─────────────────────────────────────┘@X08 ██"
PrintLn " @X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄██"
PrintLn " @X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
Newline
InputStr " @X0AWhatcha wanna do", STRING001, 0, 1, STRING002, 2 + 128
If (STRING001 == NoChar()) Then
KbdStuff "N" + Chr(13)
Else
Select Case (Lower(STRING001))
Case "n"
KbdStuff "N" + Chr(13)
Case "y"
KbdStuff "N" + Chr(13) + "R;Y;S;A"
Case "a"
KbdStuff "N" + Chr(13) + "R;A"
Case "q"
KbdStuff Chr(13) + "QWK;D"
Goto LABEL003
Endif
End Select
:LABEL003
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 16 Goto
; 5 Let
; 17 PrintLn
; 7 If
; 1 FCreate
; 1 FOpen
; 2 FClose
; 1 FGet
; 1 FPutLn
; 1 GetUser
; 1 Log
; 1 InputStr
; 1 Newline
; 5 KbdStuff
;
;
; ■ Functions used :
;
; 13 +
; 5 ==
; 1 <=
; 7 !
; 4 Lower()
; 1 Left()
; 5 Chr()
; 1 U_Name()
; 1 NoChar()
; 3 PPEPath()
; 1 CurSec()
; 1 Exist()
; 1 S2I()
; 1 Mixed()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 3 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------