home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TBH-FTS.ZIP
/
STORY.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1994-05-16
|
4KB
|
196 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 TSTRING001(19)
String STRING002
String STRING003
;------------------------------------------------------------------------------
TSTRING001(19) = "Hell's Keeper IS and Alwayz Will B THE BEST !"
While ((INTEGER001 < 40) && (TSTRING001(19) <> "")) Do
Cls
Gosub LABEL001
Gosub LABEL002
Gosub LABEL003
EndWhile
Gosub LABEL004
End
:LABEL001
Print "@X01· · ·∙∙∙---───────────────────────────@X09────────────────────────────────────@X0F───┐"
Print " @X01· @X0FS@X09t@X01ory@X0FL@X09i@X01ner @X0F- B@X09y @X0FH@X09e@X01ll's @X0FK@X09e@X01eper @X0F[@X09T@X01BH] · @X0F│"
Print " @X09│"
Print " │"
Print " @X01│"
Print " │"
Print " ∙"
Print " ∙"
Print " ·"
PrintLn " ·"
Print "@X01 ·"
PrintLn " "
PrintLn " "
PrintLn " "
Print "@X01 ·"
Return
:LABEL002
FOpen 1, PPEPath() + "STORY.DAT", 0, 0
FGet 1, TSTRING001(1)
FGet 1, TSTRING001(2)
FGet 1, TSTRING001(3)
FGet 1, TSTRING001(4)
FGet 1, TSTRING001(5)
FGet 1, TSTRING001(6)
FGet 1, TSTRING001(7)
FGet 1, TSTRING001(8)
FGet 1, TSTRING001(9)
FGet 1, TSTRING001(10)
FGet 1, TSTRING001(11)
FGet 1, TSTRING001(12)
FGet 1, TSTRING001(13)
FGet 1, TSTRING001(14)
FGet 1, TSTRING001(15)
FGet 1, TSTRING001(16)
FGet 1, TSTRING001(17)
FGet 1, TSTRING001(18)
FGet 1, TSTRING001(19)
INTEGER001 = INTEGER001 + 19
Return
:LABEL003
Print "@X0F"
AnsiPos 2, 4
Print TSTRING001(1)
AnsiPos 2, 5
Print TSTRING001(2)
AnsiPos 2, 6
Print TSTRING001(3)
AnsiPos 2, 7
Print TSTRING001(4)
AnsiPos 2, 8
Print TSTRING001(5)
AnsiPos 2, 9
Print TSTRING001(6)
AnsiPos 2, 10
Print TSTRING001(7)
AnsiPos 2, 11
Print TSTRING001(8)
AnsiPos 2, 12
Print TSTRING001(9)
AnsiPos 2, 13
Print TSTRING001(10)
AnsiPos 2, 14
Print TSTRING001(11)
AnsiPos 2, 15
Print TSTRING001(12)
AnsiPos 2, 16
Print TSTRING001(13)
AnsiPos 2, 17
Print TSTRING001(14)
AnsiPos 2, 18
Print TSTRING001(15)
AnsiPos 2, 19
Print TSTRING001(16)
AnsiPos 2, 20
Print TSTRING001(17)
AnsiPos 2, 21
Print TSTRING001(18)
AnsiPos 2, 22
Print TSTRING001(19)
Wait
Return
:LABEL004
Cls
Gosub LABEL001
AnsiPos 2, 4
STRING003 = "Y"
InputYN "@X0FA@X09d@X01d @X0Fa @X0FS@X09t@X01ory@X0FL@X09i@X01ne ", STRING003, 0
If (STRING003 == NoChar()) Then
Return
Endif
AnsiPos 2, 6
PrintLn "@X0FE@X09n@X01ter @X0FL@X09i@X01ne :"
InputText "", STRING002, 15, 75
FClose 1
If (Len(STRING002) < 10) Then
Goto LABEL005
Endif
FAppend 2, PPEPath() + "STORY.DAT", 1, 3
FPutLn 2, STRING002
FClose 2
Return
:LABEL005
PrintLn ""
PrintLn "@X8FL@X89a@X81mer ! @X0FY@X09o@X01ur @X0FL@X09i@X01ne @X0FI@X09s@X01n't @X0FL@X09o@X01ng @X0FE@X09n@X01ough @X0F!"
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 2 Cls
; 1 Wait
; 5 Goto
; 3 Let
; 31 Print
; 7 PrintLn
; 3 If
; 1 FOpen
; 1 FAppend
; 2 FClose
; 19 FGet
; 1 FPutLn
; 1 InputYN
; 5 Gosub
; 5 Return
; 1 InputText
; 21 AnsiPos
;
;
; ■ Functions used :
;
; 3 +
; 1 ==
; 1 <>
; 2 <
; 3 !
; 1 &&
; 1 Len(
; 1 NoChar()
; 2 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 1 While/EndWhile
; 2 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------