home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TOPS.ZIP
/
SUB10DQ.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-03-27
|
10KB
|
373 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
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Integer INTEGER026
Integer INTEGER027
Integer INTEGER028
Integer INTEGER029
Integer INTEGER030
Integer INTEGER031
Integer INTEGER032
Integer INTEGER033
Integer INTEGER034
Integer INTEGER035
Integer INTEGER036
Integer INTEGER037
Integer INTEGER038
Integer INTEGER039
Integer INTEGER040
Integer INTEGER041
Integer INTEGER042
Integer INTEGER043
Integer INTEGER044
Integer INTEGER045
Integer INTEGER046
Integer INTEGER047
Integer INTEGER048
Integer INTEGER049
Integer INTEGER050
Integer INTEGER051
Integer INTEGER052
Integer INTEGER053
Integer INTEGER054
Integer INTEGER055
Integer INTEGER056
Integer INTEGER057
Integer INTEGER058
Integer INTEGER059
Integer INTEGER060
Integer INTEGER061
Integer INTEGER062
Integer INTEGER063
Integer INTEGER064
Integer INTEGER065
Integer INTEGER066
Integer INTEGER067
Integer INTEGER068
Integer INTEGER069
Integer INTEGER070
Integer INTEGER071
String STRING001
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
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
;------------------------------------------------------------------------------
STRING002 = ReadLine(PPEPath() + "SUB10D.DAT", 1)
INTEGER002 = ReadLine(PPEPath() + "SUB10D.DAT", 2)
STRING003 = ReadLine(PPEPath() + "SUB10D.DAT", 3)
INTEGER003 = ReadLine(PPEPath() + "SUB10D.DAT", 4)
STRING004 = ReadLine(PPEPath() + "SUB10D.DAT", 5)
INTEGER004 = ReadLine(PPEPath() + "SUB10D.DAT", 6)
STRING005 = ReadLine(PPEPath() + "SUB10D.DAT", 7)
INTEGER005 = ReadLine(PPEPath() + "SUB10D.DAT", 8)
STRING006 = ReadLine(PPEPath() + "SUB10D.DAT", 9)
INTEGER006 = ReadLine(PPEPath() + "SUB10D.DAT", 10)
STRING007 = ReadLine(PPEPath() + "SUB10D.DAT", 11)
INTEGER007 = ReadLine(PPEPath() + "SUB10D.DAT", 12)
STRING008 = ReadLine(PPEPath() + "SUB10D.DAT", 13)
INTEGER008 = ReadLine(PPEPath() + "SUB10D.DAT", 14)
STRING009 = ReadLine(PPEPath() + "SUB10D.DAT", 15)
INTEGER009 = ReadLine(PPEPath() + "SUB10D.DAT", 16)
STRING010 = ReadLine(PPEPath() + "SUB10D.DAT", 17)
INTEGER010 = ReadLine(PPEPath() + "SUB10D.DAT", 18)
STRING011 = ReadLine(PPEPath() + "SUB10D.DAT", 19)
INTEGER011 = ReadLine(PPEPath() + "SUB10D.DAT", 20)
Cls
INTEGER001 = INTEGER002 / 40
Newline
DispFile PPEPath() + "SUB10D.PCB", 2
STRING032 = ReadLine(PPEPath() + "SUB10D.CFG", 7)
INTEGER032 = ReadLine(PPEPath() + "SUB10D.CFG", 12)
INTEGER042 = ReadLine(PPEPath() + "SUB10D.CFG", 13)
AnsiPos INTEGER032, INTEGER042
STRING012 = ReadLine(PPEPath() + "SUB10D.CFG", 35)
Print STRING012, STRING002
INTEGER052 = ReadLine(PPEPath() + "SUB10D.CFG", 49)
INTEGER062 = ReadLine(PPEPath() + "SUB10D.CFG", 50)
AnsiPos INTEGER052, INTEGER062
STRING022 = ReadLine(PPEPath() + "SUB10D.CFG", 72)
Print STRING022, INTEGER002
INTEGER012 = ReadLine(PPEPath() + "SUB10D.CFG", 86)
INTEGER022 = ReadLine(PPEPath() + "SUB10D.CFG", 87)
AnsiPos INTEGER012, INTEGER022
For STRING001 = 1 To 40
Print STRING032
Next
Newline
INTEGER033 = ReadLine(PPEPath() + "SUB10D.CFG", 14)
INTEGER043 = ReadLine(PPEPath() + "SUB10D.CFG", 15)
AnsiPos INTEGER033, INTEGER043
STRING013 = ReadLine(PPEPath() + "SUB10D.CFG", 36)
Print STRING013, STRING003
INTEGER053 = ReadLine(PPEPath() + "SUB10D.CFG", 51)
INTEGER063 = ReadLine(PPEPath() + "SUB10D.CFG", 52)
AnsiPos INTEGER053, INTEGER063
STRING023 = ReadLine(PPEPath() + "SUB10D.CFG", 73)
Print STRING023, INTEGER003
INTEGER013 = ReadLine(PPEPath() + "SUB10D.CFG", 88)
INTEGER023 = ReadLine(PPEPath() + "SUB10D.CFG", 89)
AnsiPos INTEGER013, INTEGER023
For STRING001 = 1 To INTEGER003 / INTEGER001
Print STRING032
Next
Newline
INTEGER034 = ReadLine(PPEPath() + "SUB10D.CFG", 16)
INTEGER044 = ReadLine(PPEPath() + "SUB10D.CFG", 17)
AnsiPos INTEGER034, INTEGER044
STRING014 = ReadLine(PPEPath() + "SUB10D.CFG", 37)
Print STRING014, STRING004
INTEGER054 = ReadLine(PPEPath() + "SUB10D.CFG", 53)
INTEGER064 = ReadLine(PPEPath() + "SUB10D.CFG", 54)
AnsiPos INTEGER054, INTEGER064
STRING024 = ReadLine(PPEPath() + "SUB10D.CFG", 74)
Print STRING024, INTEGER004
INTEGER014 = ReadLine(PPEPath() + "SUB10D.CFG", 90)
INTEGER024 = ReadLine(PPEPath() + "SUB10D.CFG", 91)
AnsiPos INTEGER014, INTEGER024
For STRING001 = 1 To INTEGER004 / INTEGER001
Print STRING032
Next
Newline
INTEGER035 = ReadLine(PPEPath() + "SUB10D.CFG", 18)
INTEGER045 = ReadLine(PPEPath() + "SUB10D.CFG", 19)
AnsiPos INTEGER035, INTEGER045
STRING015 = ReadLine(PPEPath() + "SUB10D.CFG", 38)
Print STRING015, STRING005
INTEGER055 = ReadLine(PPEPath() + "SUB10D.CFG", 55)
INTEGER065 = ReadLine(PPEPath() + "SUB10D.CFG", 56)
AnsiPos INTEGER055, INTEGER065
STRING025 = ReadLine(PPEPath() + "SUB10D.CFG", 75)
Print STRING025, INTEGER005
INTEGER015 = ReadLine(PPEPath() + "SUB10D.CFG", 92)
INTEGER025 = ReadLine(PPEPath() + "SUB10D.CFG", 93)
AnsiPos INTEGER015, INTEGER025
For STRING001 = 1 To INTEGER005 / INTEGER001
Print STRING032
Next
Newline
INTEGER036 = ReadLine(PPEPath() + "SUB10D.CFG", 20)
INTEGER046 = ReadLine(PPEPath() + "SUB10D.CFG", 21)
AnsiPos INTEGER036, INTEGER046
STRING016 = ReadLine(PPEPath() + "SUB10D.CFG", 39)
Print STRING016, STRING006
INTEGER056 = ReadLine(PPEPath() + "SUB10D.CFG", 57)
INTEGER066 = ReadLine(PPEPath() + "SUB10D.CFG", 58)
AnsiPos INTEGER056, INTEGER066
STRING026 = ReadLine(PPEPath() + "SUB10D.CFG", 76)
Print STRING026, INTEGER006
INTEGER016 = ReadLine(PPEPath() + "SUB10D.CFG", 94)
INTEGER026 = ReadLine(PPEPath() + "SUB10D.CFG", 95)
AnsiPos INTEGER016, INTEGER026
For STRING001 = 1 To INTEGER006 / INTEGER001
Print STRING032
Next
Newline
INTEGER037 = ReadLine(PPEPath() + "SUB10D.CFG", 22)
INTEGER047 = ReadLine(PPEPath() + "SUB10D.CFG", 23)
AnsiPos INTEGER037, INTEGER047
STRING017 = ReadLine(PPEPath() + "SUB10D.CFG", 40)
Print STRING017, STRING007
INTEGER057 = ReadLine(PPEPath() + "SUB10D.CFG", 59)
INTEGER067 = ReadLine(PPEPath() + "SUB10D.CFG", 60)
AnsiPos INTEGER057, INTEGER067
STRING027 = ReadLine(PPEPath() + "SUB10D.CFG", 77)
Print STRING027, INTEGER007
INTEGER017 = ReadLine(PPEPath() + "SUB10D.CFG", 96)
INTEGER027 = ReadLine(PPEPath() + "SUB10D.CFG", 97)
AnsiPos INTEGER017, INTEGER027
For STRING001 = 1 To INTEGER007 / INTEGER001
Print STRING032
Next
Newline
INTEGER038 = ReadLine(PPEPath() + "SUB10D.CFG", 24)
INTEGER048 = ReadLine(PPEPath() + "SUB10D.CFG", 25)
AnsiPos INTEGER038, INTEGER048
STRING018 = ReadLine(PPEPath() + "SUB10D.CFG", 41)
Print STRING018, STRING008
INTEGER058 = ReadLine(PPEPath() + "SUB10D.CFG", 61)
INTEGER068 = ReadLine(PPEPath() + "SUB10D.CFG", 62)
AnsiPos INTEGER058, INTEGER068
STRING028 = ReadLine(PPEPath() + "SUB10D.CFG", 78)
Print STRING028, INTEGER008
INTEGER018 = ReadLine(PPEPath() + "SUB10D.CFG", 98)
INTEGER028 = ReadLine(PPEPath() + "SUB10D.CFG", 99)
AnsiPos INTEGER018, INTEGER028
For STRING001 = 1 To INTEGER008 / INTEGER001
Print STRING032
Next
Newline
INTEGER039 = ReadLine(PPEPath() + "SUB10D.CFG", 26)
INTEGER049 = ReadLine(PPEPath() + "SUB10D.CFG", 27)
AnsiPos INTEGER039, INTEGER049
STRING019 = ReadLine(PPEPath() + "SUB10D.CFG", 42)
Print STRING019, STRING009
INTEGER059 = ReadLine(PPEPath() + "SUB10D.CFG", 63)
INTEGER069 = ReadLine(PPEPath() + "SUB10D.CFG", 64)
AnsiPos INTEGER059, INTEGER069
STRING029 = ReadLine(PPEPath() + "SUB10D.CFG", 79)
Print STRING029, INTEGER009
INTEGER019 = ReadLine(PPEPath() + "SUB10D.CFG", 100)
INTEGER029 = ReadLine(PPEPath() + "SUB10D.CFG", 101)
AnsiPos INTEGER019, INTEGER029
For STRING001 = 1 To INTEGER009 / INTEGER001
Print STRING032
Next
Newline
INTEGER040 = ReadLine(PPEPath() + "SUB10D.CFG", 28)
INTEGER050 = ReadLine(PPEPath() + "SUB10D.CFG", 29)
AnsiPos INTEGER040, INTEGER050
STRING020 = ReadLine(PPEPath() + "SUB10D.CFG", 43)
Print STRING020, STRING010
INTEGER060 = ReadLine(PPEPath() + "SUB10D.CFG", 65)
INTEGER070 = ReadLine(PPEPath() + "SUB10D.CFG", 66)
AnsiPos INTEGER060, INTEGER070
STRING030 = ReadLine(PPEPath() + "SUB10D.CFG", 80)
Print STRING030, INTEGER010
INTEGER020 = ReadLine(PPEPath() + "SUB10D.CFG", 102)
INTEGER030 = ReadLine(PPEPath() + "SUB10D.CFG", 103)
AnsiPos INTEGER020, INTEGER030
For STRING001 = 1 To INTEGER010 / INTEGER001
Print STRING032
Next
Newline
INTEGER041 = ReadLine(PPEPath() + "SUB10D.CFG", 30)
INTEGER051 = ReadLine(PPEPath() + "SUB10D.CFG", 31)
AnsiPos INTEGER041, INTEGER051
STRING021 = ReadLine(PPEPath() + "SUB10D.CFG", 44)
Print STRING021, STRING011
INTEGER061 = ReadLine(PPEPath() + "SUB10D.CFG", 67)
INTEGER071 = ReadLine(PPEPath() + "SUB10D.CFG", 68)
AnsiPos INTEGER061, INTEGER071
STRING031 = ReadLine(PPEPath() + "SUB10D.CFG", 81)
Print STRING031, INTEGER011
INTEGER021 = ReadLine(PPEPath() + "SUB10D.CFG", 104)
INTEGER031 = ReadLine(PPEPath() + "SUB10D.CFG", 105)
AnsiPos INTEGER021, INTEGER031
For STRING001 = 1 To INTEGER011 / INTEGER001
Print STRING032
Next
Newline
Newline
Newline
Newline
PrintLn "@PAUSE@" + "@X07SuB-10 v1.1 By The Chairman [RAZOR]"
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 20 Goto
; 122 Let
; 30 Print
; 1 PrintLn
; 10 If
; 1 DispFile
; 14 Newline
; 30 AnsiPos
;
;
; ■ Functions used :
;
; 19 /
; 113 +
; 10 <
; 10 <=
; 20 >=
; 10 !
; 20 &&
; 10 ||
; 102 PPEPath()
; 101 ReadLine()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 10 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------