home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
S
/
SINTAX.ZIP
/
SX-DOS12.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-08-14
|
4KB
|
169 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 STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
;------------------------------------------------------------------------------
Goto LABEL002
:LABEL001
Cls
AnsiPos 1, 1
Print "@X08Doorway Blocker v1.02 By SyntaxΣrror "
Delay 3
AnsiPos 1, 1
Print "@X07Doorway Blocker v1.02 By SyntaxΣrror "
Delay 3
AnsiPos 1, 1
Print "@X0FDoorway Blocker v1.02 By SyntaxΣrror "
Delay 3
AnsiPos 1, 1
Print "@X07Doorway Blocker v1.02 By SyntaxΣrror "
Delay 3
AnsiPos 1, 1
Print "@X08Doorway Blocker v1.02 By SyntaxΣrror "
Delay 5
Cls
End
:LABEL002
Cls
AnsiPos 1, 1
Print " @X0F■ @X08D@X07o@X0Forway Blocker v1.02 By: SyntaxΣrr@X07o@X08r @X0F■ "
AnsiPos 1, 3
Print "@X08R@X07e@X0Fgistered @X07T@X08o @X0F@BOARDNAME@ [@X0CReGiSTeReD@X0F]"
AnsiPos 1, 7
PrintLn " @X08┌─────@X07───────────────@X0F──────────────────@X07──────────────────────@X08───────┐"
PrintLn " @X0F│ @X08@X03S@X0Bt@X0Fat@X0Bu@X03S@X0F:> @X08[ @X08] @X0F│"
PrintLn " @X08└───────@X07────────────────@X0F─────────────@X07──────────────────@X08─────────────┘"
PrintLn " -SX '94-"
AnsiPos 15, 8
Print "@X08D@X07e@X0Fciding Weter or Not Ur Going To Jump to D@X07O@X08S"
AnsiPos 1, 5
InputStr "@X08S@X07o @X0FU Want To Jump To DOS, H@X07u@X08h.@X07.@X0F.@X07.@X08.-@X0F>", STRING001, 15, 1, Mask_Ascii(), 8
STRING005 = "Y"
If (Upper(STRING001) == Upper(STRING005)) Goto LABEL003
STRING006 = "N"
If (Upper(STRING001) == Upper(STRING006)) Goto LABEL006
Goto LABEL001
:LABEL003
For STRING004 = 1 To 3
STRING002 = ReadLine(PPEPath() + "SX-DOS.CNF", 2)
AnsiPos 15, 8
Print " "
AnsiPos 15, 8
Print "@X08E@X07n@X0Ftering The Magic Wo@X07r@X08d"
AnsiPos 1, 5
Print " "
AnsiPos 1, 5
InputStr "@X08E@X07n@X0Fter The Magic Wo@X07r@X08d@X0F", STRING003, 15, 30, Mask_Ascii(), 1
If (Upper(STRING003) == Upper(STRING002)) Goto LABEL004
Goto LABEL005
:LABEL004
Cls
AnsiPos 21, 12
Print "@X08Doorway Blocker v1.02 By SyntaxΣrror"
Delay 3
AnsiPos 21, 12
Print "@X07Doorway Blocker v1.02 By SyntaxΣrror"
Delay 3
AnsiPos 21, 12
Print "Doorway Blocker v1.02 By SyntaxΣrror"
Delay 3
AnsiPos 21, 12
Print "@X0FDoorway Blocker v1.02 By SyntaxΣrror"
Delay 3
AnsiPos 21, 12
Print "@X07Doorway Blocker v1.02 By SyntaxΣrror"
Delay 3
AnsiPos 21, 12
Print "@X08Doorway Blocker v1.02 By SyntaxΣrror"
Delay 3
KbdStuff "9 Y" + Chr(13)
End
:LABEL005
AnsiPos 15, 8
Print " "
AnsiPos 15, 8
Print "@X08H@X07a@X0Fy Jerky, Guess What Wrong Password Enter@X07e@X08d"
Delay 6
Next
:LABEL006
AnsiPos 15, 8
Print " "
AnsiPos 15, 8
Print "@X08E@X07x@X0Fiting Doorway Blocker v1.@X070@X082"
Delay 4
Goto LABEL001
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 4 Cls
; 10 Goto
; 5 Let
; 21 Print
; 4 PrintLn
; 4 If
; 2 InputStr
; 13 Delay
; 1 KbdStuff
; 24 AnsiPos
;
;
; ■ Functions used :
;
; 3 +
; 3 ==
; 1 <
; 1 <=
; 2 >=
; 1 !
; 2 &&
; 1 ||
; 6 Upper()
; 1 Chr()
; 2 Mask_Ascii()
; 1 PPEPath()
; 1 ReadLine()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------