home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
XNAME110.ZIP
/
FNAME.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-11-12
|
1KB
|
136 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
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Integer INTEGER001
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
;------------------------------------------------------------------------------
StartDisp 2
Print "@QOFF@"
STRING005 = LangExt()
If (Exist(PPEPath() + "XNAME" + STRING005) == 0) STRING005 = ""
If (Exist(PPEPath() + "XNAME" + STRING005) == 0) STRING004 = "@X0EEnter Your Real First Name?"
DispFile PPEPath() + "FNAME" + STRING005, 1 + 2
STRING004 = ReadLine(PPEPath() + "XNAME" + STRING005, 1)
Print STRING004 + Chr(32)
:LABEL001
If (BOOLEAN001) Goto LABEL003
BOOLEAN002 = 0
BOOLEAN003 = 0
STRING003 = Upper(Inkey())
If (((STRING003 >= " ") && (STRING003 <= "~")) && (Len(STRING001) < 40)) Then
STRING001 = STRING001 + STRING003
STRING002 = STRING002 + 1
If (Right(Left(STRING001, Len(STRING001) - 1), 1) == " ") BOOLEAN003 = 1
If (STRING002 == 1) BOOLEAN003 = 1
BOOLEAN002 = 1
ElseIf ((STRING003 == Chr(8)) && (Len(STRING001) > 0)) Then
STRING001 = Left(STRING001, Len(STRING001) - 1)
STRING002 = STRING002 - 1
BOOLEAN002 = 1
Else
Select Case (STRING003)
Case Chr(13)
STRING001 = STRING001 + STRING003
BOOLEAN001 = 1
Case Chr(27)
STRING001 = ""
For INTEGER001 = 1 To STRING002
Print Chr(8) + Chr(32) + Chr(8)
Next
STRING002 = 0
Endif
End Select
If (BOOLEAN002) Then
If (BOOLEAN003) Then
Print Upper(STRING003) + " ", Chr(8)
Goto LABEL002
Endif
Print Lower(STRING003) + " ", Chr(8)
Endif
:LABEL002
Goto LABEL001
:LABEL003
PrintLn
KbdStuff STRING001
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 14 Goto
; 21 Let
; 5 Print
; 1 PrintLn
; 12 If
; 1 DispFile
; 1 StartDisp
; 1 KbdStuff
;
;
; ■ Functions used :
;
; 18 +
; 3 -
; 7 ==
; 2 <
; 2 <=
; 1 >
; 3 >=
; 8 !
; 5 &&
; 1 ||
; 4 Len(
; 1 Lower()
; 2 Upper()
; 2 Left()
; 1 Right()
; 9 Chr()
; 1 Inkey()
; 4 PPEPath()
; 1 ReadLine()
; 2 Exist()
; 1 LangExt()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 4 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------