home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
EDSBK115.ZIP
/
PPE.ZIP
/
EUTMOD7.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-02-09
|
15KB
|
866 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
Boolean BOOLEAN004
Boolean BOOLEAN005
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Real REAL001
Real REAL002
Real REAL003
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
Byte BYTE001
Byte BYTE002
Byte BYTE003
Byte BYTE004
Word WORD001
;------------------------------------------------------------------------------
If (TokCount() <> 1) Then
PrintLn
PrintLn "@X0CEUTMOD7 FATAL ERROR: INVALID COMMAND SEQUENCE!"
PrintLn
PrintLn "@X0AEUTMOD7 must be ran from within EDSUtil!"
PrintLn
Goto LABEL022
Else
GetToken STRING001
Select Case (STRING001)
Case "1"
Gosub LABEL007
Goto LABEL022
Case "2"
Gosub LABEL010
Goto LABEL022
Case "3"
Gosub LABEL003
Goto LABEL022
Case "4"
Gosub LABEL001
Goto LABEL022
Case Else
PrintLn
PrintLn "@X0CEUTMOD7 FATAL ERROR: INVALID COMMAND SEQUENCE!"
PrintLn
PrintLn "@X0AEUTMOD7 must be ran from within EDSUtil!"
PrintLn
Goto LABEL022
Endif
End Select
:LABEL001
Gosub LABEL016
FSeek 2, 509, 0
FRead 2, STRING005, 75
FClose 2
STRING006 = PPEPath() + "EDSBADNM.XPT"
STRING007 = PPEPath() + "EXPORT.RPT"
InputStr "Path & Filename to export to", STRING006, 15, 45, Mask_Path() + Mask_File(), 2 + 4 + 256
STRING006 = Strip(Upper(STRING006), " ")
If (STRING006 == "") Goto LABEL022
InputStr "Path & Filename for report file", STRING007, 15, 45, Mask_Path() + Mask_File(), 2 + 4 + 256
STRING007 = Strip(Upper(STRING007), " ")
If (STRING007 == "") Goto LABEL022
STRING005 = Trim(Upper(STRING005), " ")
If (Exist(STRING005)) Goto LABEL002
PrintLn
PrintLn "@X0C" + STRING005 + " does not exist!"
PrintLn
Delay 4
Goto LABEL022
:LABEL002
INTEGER004 = FileInf(STRING005, 4)
INTEGER003 = (INTEGER004 - 41) / 19
If (Exist(STRING006)) Then
FAppend 1, STRING006, 1, 2
If (Ferr(1)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING006 + " @X0Cfile is currently inaccessible..."
FClose 1
Return
Endif
Else
FCreate 1, STRING006, 1, 2
If (Ferr(1)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING006 + " @X0Cfile is currently inaccessible..."
FClose 1
Return
Endif
Endif
FOpen 2, STRING005, 0, 0
If (Ferr(2)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING005 + " @X0Cfile is currently inaccessible..."
FClose 1
FClose 2
Return
Endif
If (Exist(STRING007)) Then
FAppend 3, STRING007, 1, 2
If (Ferr(3)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING007 + " @X0Cfile is currently inaccessible..."
FClose 1
FClose 2
FClose 3
Return
Endif
Else
FCreate 3, STRING007, 1, 2
If (Ferr(3)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING007 + " @X0Cfile is currently inaccessible..."
FClose 1
FClose 2
FClose 3
Return
Endif
FPutLn 3, "EDSBack v1.15 Bad Numbers File Exportation Report"
FPutLn 3, "Report generated at " + String(Time()) + " on " + String(Date())
FPutLn 3, "----------------------------------------------------------------------"
FPutLn 3
Endif
INTEGER002 = 1
Cls
PrintLn
PrintLn Space(19) + "@X0A(@X0FBad Numbers File Exportation Procedure@X0A)"
PrintLn
PrintLn
PrintLn "@X0BFrom :@X0E " + STRING005
PrintLn "@X0BTo :@X0E " + STRING006
PrintLn "@X0BReport :@X0E " + STRING007
PrintLn
Print "@X0CPlease wait, now exporting...@X0F "
FSeek 2, 41, 0
While (INTEGER002 <= INTEGER003) Do
FSeek 2, 1, 1
FRead 2, BOOLEAN004, 1
FSeek 2, 2, 1
FRead 2, STRING002, 3
STRING002 = Strip(STRING002, " ")
FRead 2, STRING003, 4
STRING003 = Strip(STRING003, " ")
FRead 2, STRING004, 8
STRING004 = Strip(STRING004, " ")
If (BOOLEAN004) Then
FPutLn 3, "--------------------------------------------------------------------------"
FPutLn 3, "Record #" + String(INTEGER002) + " not exported because it is an international number..."
FPutLn 3, "CountryCode = " + STRING002
FPutLn 3, "CityCode = " + STRING003
FPutLn 3, "Number = " + STRING004
Else
FPutLn 1, STRING002 + "-" + Left(STRING003 + Space(3), 3) + "-" + Left(STRING004 + Space(4), 4)
Endif
Gosub LABEL020
Inc INTEGER002
EndWhile
FClose 1
FClose 2
FClose 3
PrintLn
PrintLn "@X0BExporting process completed!"
Log "Bad Numbers file exported...", 0
Delay 4
Return
:LABEL003
Gosub LABEL016
FSeek 2, 509, 0
FRead 2, STRING005, 75
FClose 2
PrintLn
STRING006 = ""
InputStr "Path & Filename of file to import", STRING006, 15, 45, Mask_Path() + Mask_File(), 2 + 4
STRING006 = Strip(Upper(STRING006), " ")
If (STRING006 == "") Goto LABEL022
STRING005 = Upper(STRING005)
Newline
InputInt "Node # that the imported numbers affect", WORD001, 15
PrintLn
If (Exist(STRING006)) Goto LABEL004
PrintLn "@X0C" + STRING006 + " does not exist!"
PrintLn
Delay 9
Return
:LABEL004
If (Exist(STRING005)) Then
FOpen 1, STRING005, 1, 2
If (Ferr(1)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING005 + " @X0Cfile is currently inaccessible..."
FClose 1
Return
Endif
FSeek 1, 0, 2
Else
FCreate 1, STRING005, 1, 2
If (Ferr(1)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING005 + " @X0Cfile is currently inaccessible..."
FClose 1
Return
Endif
FWrite 1, " EDSBack v1.15 Bad Number Trash File" + Chr(13) + Chr(32) + Chr(10) + Chr(26) + Chr(0), 41
Endif
FOpen 2, STRING006, 0, 0
If (Ferr(2)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING006 + " @X0Cfile is currently inaccessible..."
FClose 1
FClose 2
Return
Endif
Cls
PrintLn
PrintLn Space(20) + "@X0A(@X0FBad # Trash File Importation Procedure@X0A)"
PrintLn
PrintLn "@X0EFrom : @X0F" + STRING006
PrintLn "@X0ETo : @X0F" + STRING005
PrintLn "@X0EDefault Node : @X0F" + String(WORD001)
PrintLn
PrintLn
Print "@X0CImporting record #@X0F1"
INTEGER002 = 1
INTEGER001 = 1
:LABEL005
If (Ferr(2)) Goto LABEL006
FGet 2, STRING001
Backup Len(String(INTEGER001))
Print String(INTEGER002)
STRING001 = Strip(Strip(Strip(Strip(Strip(STRING001, " "), ")"), "("), "-"), ".")
If (STRING001 <> "") Then
FWrite 1, 0, 1
FWrite 1, 0, 1
FWrite 1, WORD001, 2
FWrite 1, Mid(STRING001, 1, 3), 3
FWrite 1, Mid(STRING001, 4, 3), 4
FWrite 1, Mid(STRING001, 7, 4), 8
INTEGER001 = INTEGER002
Inc INTEGER002
Endif
Goto LABEL005
:LABEL006
FClose 1
FClose 2
PrintLn
PrintLn "@X0B" + STRING006 + " successfully imported..."
Log STRING006 + " imported into Bad # file...", 0
Return
:LABEL007
Gosub LABEL016
FSeek 2, 509, 0
FRead 2, STRING005, 75
FClose 2
If (Exist(STRING005)) Goto LABEL008
PrintLn
PrintLn "@X0C" + STRING005 + " does not exist!"
Delay 9
Return
:LABEL008
INTEGER004 = FileInf(STRING005, 4)
INTEGER003 = (INTEGER004 - 41) / 19
PrintLn
PrintLn "@X0F FileSize = " + String(INTEGER004) + " NumRecs = " + String(INTEGER003)
If (INTEGER003 <= 1) Then
PrintLn
PrintLn "@X0CTHERE MUST BE AT LEAST ONE RECORD PRESENT IN THE TRASH CAN FILE!"
PrintLn
Delay 18
Return
Endif
KbdChkOff
Rename STRING005, PPEPath() + String(PcbNode()) + "tb.$$$"
FCreate 1, STRING005, 1, 2
If (Ferr(1)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING005 + " @X0Cfile is currently inaccessible..."
FClose 1
Return
Endif
FOpen 2, PPEPath() + String(PcbNode()) + "tb.$$$", 0, 3
If (Ferr(2)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + String(PcbNode()) + "tb.$$$ @X0Cfile is currently inaccessible..."
FClose 2
FClose 1
PrintLn
PrintLn "@X0ADeleting & renaming temporary files..."
Delete STRING005
Rename PPEPath() + String(PcbNode()) + "tb.$$$", STRING005
Return
Endif
BOOLEAN001 = 0
FSeek 1, 0, 0
FWrite 1, " EDSBack v1.15 Bad Number Trash File" + Chr(13) + Chr(32) + Chr(10) + Chr(26) + Chr(0), 41
PrintLn
PrintLn "@X0BPacking Bad Number Trash Can File..."
If (GrafMode() <> "N") Then
PrintLn
Print "@X0F0% @X07░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ @X0F100%"
BYTE001 = GetY()
Endif
INTEGER002 = 1
While (INTEGER002 <= INTEGER003) Do
BOOLEAN001 = 0
BOOLEAN005 = 0
BOOLEAN004 = 0
WORD001 = 0
STRING002 = Space(3)
STRING003 = Space(4)
STRING004 = Space(8)
FSeek 2, 41 + INTEGER002 * 19 - 19, 0
FRead 2, BOOLEAN005, 1
If (BOOLEAN005) Then
BOOLEAN001 = 1
Else
BOOLEAN001 = 0
Endif
If (BOOLEAN001) Goto LABEL009
FWrite 1, BOOLEAN005, 1
FRead 2, BOOLEAN004, 1
FWrite 1, BOOLEAN004, 1
FRead 2, WORD001, 2
FWrite 1, WORD001, 2
FRead 2, STRING002, 3
FWrite 1, STRING002, 3
FRead 2, STRING003, 4
FWrite 1, STRING003, 4
FRead 2, STRING004, 8
FWrite 1, STRING004, 8
:LABEL009
If (GrafMode() <> "N") Gosub LABEL019
Inc INTEGER002
EndWhile
Color 7
FClose 1
FClose 2
PrintLn
PrintLn
PrintLn "@X0BDeleting temporary files..."
Delete PPEPath() + String(PcbNode()) + "tb.$$$"
PrintLn "@X0EChecking files..."
INTEGER004 = FileInf(STRING005, 4)
INTEGER003 = (INTEGER004 - 41) / 19
If (INTEGER003 < 1) Then
PrintLn
PrintLn "@X0C0 byte file! Recreating with a dummy record..."
FCreate 1, STRING005, 1, 2
FWrite 1, " EDSBack v1.15 Bad Number Trash File" + Chr(13) + Chr(32) + Chr(10) + Chr(26) + Chr(0), 41
FWrite 1, 0, 1
FWrite 1, 0, 1
FWrite 1, 0, 2
FWrite 1, Space(3), 3
FWrite 1, Space(4), 4
FWrite 1, Space(8), 8
FClose 1
PrintLn "@X0ANew bad number trash can file successfully created..."
Endif
PrintLn "@X0FBad number trash can file successfully packed!"
Log "Bad number trash can file successfully packed!", 0
KbdChkOff
Return
:LABEL010
BOOLEAN001 = 0
BOOLEAN002 = 1
INTEGER002 = 1
Gosub LABEL016
FSeek 2, 509, 0
FRead 2, STRING005, 75
FClose 2
INTEGER004 = FileInf(STRING005, 4)
If (Exist(STRING005)) Goto LABEL011
PrintLn
PrintLn "@X0CCreating " + STRING005
BOOLEAN003 = 1
FCreate 1, STRING005, 2, 2
If (Ferr(1)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING005 + " X0Cfile is currently inaccessible..."
FClose 1
Return
Endif
FSeek 1, 0, 0
FWrite 1, " EDSBack v1.15 Bad Number Trash File" + Chr(13) + Chr(32) + Chr(10) + Chr(26) + Chr(0), 41
FWrite 1, 0, 1
FWrite 1, 0, 1
FWrite 1, 0, 2
FWrite 1, "000", 3
FWrite 1, "000", 4
FWrite 1, "0000", 8
INTEGER004 = 60
Goto LABEL012
:LABEL011
BOOLEAN003 = 1
FOpen 1, STRING005, 2, 2
If (Ferr(1)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING005 + " X0Cfile is currently inaccessible..."
FClose 1
Return
Endif
:LABEL012
If (BOOLEAN001) Goto LABEL015
If (BOOLEAN002) Then
FSeek 1, 41 + INTEGER002 * 19 - 19, 0
FRead 1, BOOLEAN005, 1
FRead 1, BOOLEAN004, 1
FRead 1, WORD001, 2
FRead 1, STRING002, 3
FRead 1, STRING003, 4
FRead 1, STRING004, 8
STRING002 = Strip(STRING002, " ")
STRING003 = Strip(STRING003, " ")
STRING004 = Strip(STRING004, " ")
BOOLEAN002 = 0
Endif
PrintLn
INTEGER003 = (INTEGER004 - 41) / 19
PrintLn " @X0FBad Number Trash File"
PrintLn " @X0BRecord #@X0E" + String(INTEGER002) + "@X0B of @X0E" + String(INTEGER003)
Print " @X0F(@X09D@X0F)eleted : @X0C"
If (BOOLEAN005) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
PrintLn
Print " @X0F(@X09I@X0F)nternational # : @X0C"
If (BOOLEAN004) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
PrintLn " @X0FN(@X09O@X0F)de : @X0C" + String(WORD001)
PrintLn " @X0F(@X09N@X0F)umber : @X0C" + STRING002 + "-" + STRING003 + "-" + STRING004
PrintLn
PrintLn " @X0F(@X09+@X0F) @X0BAdvance 1 record @X0F(@X09-@X0F) @X0BRetard 1 record"
PrintLn " @X0F(@X09J@X0F)@X0Bump to record @X0F(@X09A@X0F)@X0Bdd a record"
PrintLn " @X0F(@X09Q@X0F)@X0Buit"
PrintLn
InputStr "(H)elp, Enter command", STRING006, 10, 1, "NnAaDdJj+-OoQqRrHh", 2 + 4
Newline
STRING006 = Upper(STRING006)
Select Case (STRING006)
Case "Q", "R"
FClose 1
BOOLEAN002 = 0
BOOLEAN001 = 1
Case "H"
Print "@PON@"
DispFile PPEPath() + "EDSBE", 1 + 4
Print "@POFF@"
Cls
BOOLEAN002 = 0
BOOLEAN001 = 0
Case "+"
If (INTEGER002 >= INTEGER003) Then
INTEGER002 = 1
Else
Inc INTEGER002
Endif
BOOLEAN001 = 0
BOOLEAN002 = 1
Case "-"
If (INTEGER002 <= 1) Then
INTEGER002 = INTEGER003
Else
Dec INTEGER002
Endif
BOOLEAN001 = 0
BOOLEAN002 = 1
Case "J"
INTEGER001 = INTEGER003
InputInt "Enter record # to jump to", INTEGER001, 10
If (INTEGER001 > INTEGER003) Then
INTEGER002 = INTEGER003
ElseIf (INTEGER001 < 1) Then
INTEGER002 = 1
Else
INTEGER002 = INTEGER001
Endif
BOOLEAN001 = 0
BOOLEAN002 = 1
Case "D"
FSeek 1, 41 + INTEGER002 * 19 - 19, 0
If (BOOLEAN005) Then
FWrite 1, 0, 1
Else
FWrite 1, 1, 1
Endif
BOOLEAN001 = 0
BOOLEAN002 = 1
Case "A"
FSeek 1, 0, 2
WORD001 = 0
InputInt "Enter node affected (0 = ALL)", WORD001, 12
Newline
STRING007 = NoChar()
InputYN "International number", STRING007, 12
STRING007 = Upper(STRING007)
Newline
If (STRING007 == YesChar()) Then
BOOLEAN004 = 1
InputStr "Country code (XXX = wildcard)", STRING002, 10, 3, Mask_Num() + "Xx", 2 + 4
Newline
STRING002 = Strip(STRING002, " ")
InputStr "City code (XXXX = wildcard)", STRING003, 10, 4, Mask_Num() + "Xx", 2 + 4
Newline
STRING003 = Strip(STRING003, " ")
InputStr "Number (XXXXXXXX = wildcard)", STRING004, 10, 8, Mask_Num() + "Xx", 2 + 4
Newline
STRING004 = Upper(Strip(STRING004, " "))
Else
BOOLEAN004 = 0
If (Len(STRING003) == 4) STRING003 = ""
If (Len(STRING004) > 4) STRING004 = ""
InputStr "Area code (XXX = wildcard)", STRING002, 10, 3, Mask_Num() + "Xx", 2 + 4
STRING002 = Upper(Strip(STRING002, " "))
Newline
InputStr "Prefix (XXX = wildcard)", STRING003, 10, 3, Mask_Num() + "Xx", 2 + 4
STRING003 = Upper(Strip(STRING003, " "))
Newline
InputStr "Number (XXXX = wildcard)", STRING004, 10, 4, Mask_Num() + "Xx", 2 + 4
STRING004 = Upper(Strip(STRING004, " "))
Endif
PrintLn
PrintLn "@X0FCreating record..."
FWrite 1, 0, 1
FWrite 1, BOOLEAN004, 1
FWrite 1, WORD001, 2
FWrite 1, STRING002, 3
If (BOOLEAN004) Then
FWrite 1, STRING003, 4
FWrite 1, STRING004, 8
Else
FWrite 1, Mid(STRING003, 1, 3) + Space(1), 4
FWrite 1, Mid(STRING004, 1, 4) + Space(4), 8
Endif
INTEGER003 = INTEGER003 + 1
INTEGER004 = INTEGER004 + 19
INTEGER002 = INTEGER003
BOOLEAN002 = 1
BOOLEAN001 = 0
Case "O"
InputInt "Enter new node affected (0 = ALL)", WORD001, 12
FSeek 1, 41 + INTEGER002 * 19 - 17, 0
FWrite 1, WORD001, 2
BOOLEAN001 = 0
BOOLEAN002 = 1
Case "I"
If (BOOLEAN004) Then
STRING007 = YesChar()
Else
STRING007 = NoChar()
Endif
InputYN "International number", STRING007, 12
Newline
STRING007 = Upper(STRING007)
If (STRING007 == YesChar()) Then
BOOLEAN004 = 1
Else
BOOLEAN004 = 0
Endif
FSeek 1, 41 + INTEGER002 * 19 - 18, 0
FWrite 1, BOOLEAN004, 1
BOOLEAN001 = 0
BOOLEAN002 = 1
Case "N"
If (BOOLEAN004) Then
InputStr "Country code (XXX = wildcard)", STRING002, 10, 3, Mask_Num() + "Xx", 2 + 4
Newline
STRING002 = Upper(Strip(STRING002, " "))
InputStr "City code (XXXX = wildcard)", STRING003, 10, 4, Mask_Num() + "Xx", 2 + 4
Newline
STRING003 = Upper(Strip(STRING003, " "))
InputStr "Number (XXXXXXXX = wildcard)", STRING004, 10, 8, Mask_Num() + "Xx", 2 + 4
Newline
STRING004 = Upper(Strip(STRING004, " "))
Goto LABEL013
Endif
If (Len(STRING003) == 4) STRING003 = ""
If (Len(STRING004) > 4) STRING004 = ""
InputStr "Area code (XXX = wildcard)", STRING002, 10, 3, Mask_Num() + "Xx", 2 + 4
STRING002 = Upper(Strip(STRING002, " "))
Newline
InputStr "Prefix (XXX = wildcard)", STRING003, 10, 3, Mask_Num() + "Xx", 2 + 4
STRING003 = Upper(Strip(STRING003, " "))
Newline
InputStr "Number (XXXX = wildcard)", STRING004, 10, 4, Mask_Num() + "Xx", 2 + 4
STRING004 = Upper(Strip(STRING004, " "))
:LABEL013
FSeek 1, 41 + INTEGER002 * 19 - 15, 0
FWrite 1, STRING002, 3
If (BOOLEAN004) Then
FWrite 1, STRING003, 4
FWrite 1, STRING004, 4
Goto LABEL014
Endif
FWrite 1, Mid(STRING003, 1, 3) + Space(1), 4
FWrite 1, Mid(STRING004, 1, 4) + Space(4), 8
:LABEL014
BOOLEAN001 = 0
BOOLEAN002 = 1
End Select
Goto LABEL012
:LABEL015
FClose 1
Return
:LABEL016
STRING001 = PPEPath() + "EDSBACK.XXX"
If (Exist(PPEPath() + "EDSBACK.XXX")) Then
FOpen 2, STRING001, 0, 0
Else
PrintLn
PrintLn "@X0FPath & filename to EDSBack config file @X0E(Enter Below)"
InputStr "", STRING001, 12, 75, Mask_Path() + Mask_File(), 2 + 4
If (Exist(STRING001)) Goto LABEL017
PrintLn
PrintLn "@X0C" + STRING001 + " DOES NOT EXIST! @X0AReturning to EDSUtil Main..."
Goto LABEL022
Goto LABEL018
:LABEL017
FOpen 2, STRING001, 0, 0
Endif
:LABEL018
If (Ferr(2)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING001 + " @X0Cfile is currently inaccessible..."
FClose 2
Return
Endif
Return
:LABEL019
If (INTEGER002 == 1) BYTE004 = 0
If ((INTEGER002 <> 0) && (INTEGER003 <> 0)) Then
REAL002 = ToReal(INTEGER002) / ToReal(INTEGER003)
REAL003 = FmtReal(ToReal(35) * REAL002, 1, 0)
BYTE003 = ToByte(REAL003) - BYTE004
If (BYTE003 <> BYTE004) Then
Color 73
AnsiPos 4 + BYTE004, BYTE001
For BYTE004 = 1 To BYTE003
Print "▓"
Next
BYTE004 = ToByte(REAL003)
REAL002 = FmtReal(REAL002 * 100, 1, 0)
BYTE003 = (43 - Len(String(REAL002) + "%")) / 2
Color 11
REAL003 = ToReal(BYTE001) - 1
AnsiPos BYTE003, ToByte(REAL003)
Print String(REAL002) + "%"
AnsiPos 45, BYTE001
Endif
Endif
Return
:LABEL020
If ((INTEGER002 <> 0) && (INTEGER003 <> 0)) Then
If (INTEGER002 == 1) Then
BYTE002 = 0
Goto LABEL021
Endif
BYTE002 = REAL001
:LABEL021
REAL001 = ToReal(INTEGER002) / ToReal(INTEGER003)
REAL001 = FmtReal(REAL001 * 100, 1, 0)
If (BYTE002 <> REAL001) Then
Backup Len(String(BYTE002) + "%")
Print String(REAL001) + "%"
Endif
Endif
Return
:LABEL022
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 3 Cls
; 3 Color
; 146 Goto
; 143 Let
; 11 Print
; 106 PrintLn
; 90 If
; 1 DispFile
; 6 FCreate
; 7 FOpen
; 2 FAppend
; 34 FClose
; 1 FGet
; 10 FPutLn
; 2 Delete
; 3 Log
; 17 InputStr
; 2 InputYN
; 4 InputInt
; 10 Gosub
; 23 Return
; 5 Delay
; 4 Inc
; 1 Dec
; 15 Newline
; 1 GetToken
; 2 KbdChkOff
; 3 AnsiPos
; 2 Backup
; 2 Rename
; 17 FSeek
; 20 FRead
; 45 FWrite
;
;
; ■ Functions used :
;
; 9 *
; 7 /
; 159 +
; 13 -
; 24 ==
; 10 <>
; 3 <
; 5 <=
; 3 >
; 3 >=
; 81 !
; 4 &&
; 2 ||
; 7 Len(
; 18 Upper()
; 7 Mid()
; 2 Left()
; 14 Space()
; 14 Ferr()
; 20 Chr()
; 1 Trim()
; 1 Date()
; 1 Time()
; 2 NoChar()
; 3 YesChar()
; 26 Strip()
; 20 String()
; 12 Mask_Num()
; 4 Mask_File()
; 4 Mask_Path()
; 9 PPEPath()
; 5 PcbNode()
; 9 Exist()
; 1 GetY()
; 2 GrafMode()
; 4 FileInf()
; 1 TokCount()
; 3 ToByte()
; 6 ToReal()
; 3 FmtReal()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 2 While/EndWhile
; 56 If/Then or If/Then/Else
; 2 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------