STRING VAR001
STRING VAR002(1,10)
STRING VAR003
STRING VAR004
STRING VAR005
STRING VAR006
STRING VAR007
STRING VAR008
STRING VAR009
STRING VAR010
STRING VAR011
STRING VAR012
STRING VAR013
STRING VAR014
STRING VAR015
STRING VAR016
STRING VAR017
STRING VAR018
STRING VAR019
STRING VAR020
STRING VAR021
STRING VAR022
STRING VAR023
STRING VAR024
STRING VAR025
STRING VAR026
STRING VAR027(5,5)
STRING VAR028
STRING VAR029
STRING VAR030
STRING VAR031
STRING VAR032
STRING VAR033
STRING VAR034
STRING VAR035
STRING VAR036
STRING VAR037
STRING VAR038
STRING VAR039
STRING VAR040
STRING VAR041
STRING VAR042
STRING VAR043
STRING VAR044
STRING VAR045
STRING VAR046
STRING VAR047
STRING VAR048
STRING VAR049
STRING VAR050
STRING VAR051
STRING VAR052
STRING VAR053
STRING VAR054
STRING VAR055
STRING VAR056(9)
STRING VAR057
STRING VAR058
STRING VAR059
STRING VAR060
STRING VAR061
STRING VAR062
STRING VAR063
STRING VAR064
STRING VAR065
STRING VAR066
STRING VAR067
STRING VAR068
STRING VAR069
STRING VAR070
STRING VAR071
STRING VAR072
STRING VAR073(1,9)
STRING VAR074(1,9)
STRING VAR075(1,9)
STRING VAR076(1,9)
STRING VAR077
STRING VAR078
STRING VAR079
STRING VAR080
STRING VAR081
STRING VAR082
STRING VAR083
INTEGER VAR084
INTEGER VAR085
INTEGER VAR086
INTEGER VAR087
INTEGER VAR088
INTEGER VAR089
INTEGER VAR090
INTEGER VAR091
INTEGER VAR092
INTEGER VAR093
INTEGER VAR094
INTEGER VAR095
INTEGER VAR096
INTEGER VAR097
INTEGER VAR098
INTEGER VAR099
INTEGER VAR100
INTEGER VAR101
INTEGER VAR102
INTEGER VAR103
INTEGER VAR104
INTEGER VAR105
INTEGER VAR106
INTEGER VAR107
INTEGER VAR108
INTEGER VAR109
INTEGER VAR110
INTEGER VAR111
INTEGER VAR112
INTEGER VAR113
INTEGER VAR114
INTEGER VAR115
INTEGER VAR116
INTEGER VAR117
INTEGER VAR118
BOOLEAN VAR119
BOOLEAN VAR120
BOOLEAN VAR121
BOOLEAN VAR122
BOOLEAN VAR123
BOOLEAN VAR124
LET VAR022="@X07"
LET VAR024="@X78"
LET VAR025=""
LET VAR026="@X0B"
LET VAR028=""
LET VAR029="@X0E"
LET VAR032=""
LET VAR033="@X0A"
LET VAR030=""
LET VAR031="@X0F"
LET VAR036=""
LET VAR037="@X1E"
LET VAR042=""
LET VAR043="@X1E"
LET VAR038=""
LET VAR039="@X0BPre@X03ss @X0F[@X0EANY KEY@X0F] @X0BT@X03o @X0BConti@X03nue@X07"
LET VAR040=""
LET VAR041="@X0BPlea@X03se @X0BSel@X03ect @X0F(@X0E1@X0F-@X0E5@X0F)@X0B, o@X03r @X0F(@X0CQ@X0F)@X0Cuit @X0B: @X07"
LET VAR044=""
LET VAR045="@X0BPlea@X03se @X0BSel@X03ect @X0BVi@X03ew @X0BOpti@X03ons @X0F(@X0E1@X0F-@X0E5@X0F)@X0B, o@X03r @X0F(@X0CM@X0F)@X0Cain @X04Me@X0Cnu @X0B: @X07"
LET VAR046=""
LET VAR047="@X0BPlea@X03se @X0BSel@X03ect @X0BDownl@X03oad @X0BOpti@X03ons @X0F(@X0E1@X0F-@X0E5@X0F)@X0B, o@X03r @X0F(@X0CM@X0F)@X0Cain @X04Me@X0Cnu @X0B: @X07"
LET VAR016=" @X0E[@X8AUNREGISTERED@X0E] @X0D- @X0FEncourage your SYSOP to register this@X0E!@X07"
LET VAR017=" @X0E10 second delay @X07"
LET VAR034=""
LET VAR035=""
LET VAR050=""
LET VAR051=""
LET VAR055=""
LET VAR053=""
LET VAR052=0
LET VAR054=0
LET VAR100=0
LET VAR068=""
LET VAR077=""
LET VAR068=""
LET VAR084=0
LET VAR085=0
LET VAR069=""
LET VAR086=0
LET VAR087=0
LET VAR070=""
LET VAR088=0
LET VAR089=0
LET VAR071=" "
LET VAR072="N"
LET VAR093=0
LET VAR096=0
LET VAR093=0
LET VAR097=0
LET VAR018=""
LET VAR048=""
LET VAR049=""
LET VAR056(0)="URL_NUM,N,1,0"
LET VAR056(1)="URL_TYPE,C,8,0"
LET VAR056(2)="ADDRESS,C,200,0"
LET VAR056(3)="SHORT_DESC,C,53,0"
LET VAR056(4)="LONG_DESC1,C,53,0"
LET VAR056(5)="LONG_DESC2,C,53,0"
LET VAR056(6)="LONG_DESC3,C,53,0"
LET VAR056(7)="LONG_DESC4,C,53,0"
LET VAR056(8)="USER,C,40,0"
LET VAR056(9)="DATE,D,8,0"
LET VAR009=PPEPATH()
LET VAR073(1,1)="MAIL"
LET VAR074(1,1)="MAILTO://"
LET VAR075(1,1)="Internet E-Mail"
LET VAR073(1,2)="FINGER"
LET VAR074(1,2)="FINGER://"
LET VAR075(1,2)="Finger"
LET VAR073(1,3)="FTP"
LET VAR074(1,3)="FTP://"
LET VAR075(1,3)="FTP (File Transfer Protocol)"
LET VAR073(1,4)="GOPHER"
LET VAR074(1,4)="GOPHER://"
LET VAR075(1,4)="Gopher"
LET VAR073(1,5)="IRC"
LET VAR074(1,5)="IRC Channel : "
LET VAR075(1,5)="IRC (Internet Relay Chat)"
LET VAR073(1,6)="NEWS"
LET VAR074(1,6)="NEWS://"
LET VAR075(1,6)="Newsgroups"
LET VAR073(1,7)="TELNET"
LET VAR074(1,7)="TELNET://"
LET VAR075(1,7)="Telnet"
LET VAR073(1,8)="WAIS"
LET VAR074(1,8)="WAIS://"
LET VAR075(1,8)="Wais"
LET VAR073(1,9)="WWW/HTTP"
LET VAR074(1,9)="HTTP://"
LET VAR075(1,9)="World Wide Web Site"
LET VAR076(1,1)=""
LET VAR076(1,2)=""
LET VAR076(1,3)=""
LET VAR076(1,4)=""
LET VAR076(1,5)=""
LET VAR076(1,6)=""
LET VAR076(1,7)=""
LET VAR076(1,8)=""
LET VAR076(1,9)=""
LET VAR120=0
LET VAR121=0
LET VAR122=1
LET VAR123=0
LET VAR124=0
PRINT "@POFF@"
GOSUB LABEL016
GOSUB LABEL229
GOSUB LABEL258
GOSUB LABEL267
GOSUB LABEL020
GOSUB LABEL222
:LABEL000
DISPFILE PPEPATH()+"COOLSITE.M01",2+1+4
LET VAR050=""
PRINTLN
PRINTLN VAR040
:LABEL001
IF (!(VAR050="")) GOTO LABEL004
LET VAR050=INKEY()
IF (!((((((((((VAR050="1")|(VAR050="2"))|(VAR050="3"))|(VAR050="4"))|(VAR050="5"))|(VAR050="6"))|(VAR050="Q"))|(VAR050="q"))|(VAR050="H"))|(VAR050="h"))) GOTO LABEL002
GOTO LABEL003
:LABEL002
LET VAR050=""
:LABEL003
GOTO LABEL001
:LABEL004
IF (!(VAR050="1")) GOTO LABEL008
IF (!((!VAR119)&(DRECCOUNT(1)>=32767))) GOTO LABEL005
GOSUB LABEL266
GOSUB LABEL219
GOTO LABEL000
:LABEL005
LET VAR121=0
GOSUB LABEL235
GOSUB LABEL238
GOSUB LABEL027
IF (!VAR122) GOTO LABEL006
GOSUB LABEL041
GOTO LABEL007
:LABEL006
LET VAR122=1
:LABEL007
GOTO LABEL000
:LABEL008
IF (!(VAR050="2")) GOTO LABEL009
LET VAR121=1
GOSUB LABEL052
GOTO LABEL000
:LABEL009
IF (!(VAR050="3")) GOTO LABEL010
GOSUB LABEL071
GOTO LABEL000
:LABEL010
IF (!(VAR050="4")) GOTO LABEL011
GOSUB LABEL090
GOTO LABEL000
:LABEL011
IF (!(VAR050="5")) GOTO LABEL012
GOSUB LABEL186
GOTO LABEL000
:LABEL012
IF (!((VAR050="H")|(VAR050="h"))) GOTO LABEL013
GOSUB LABEL273
GOTO LABEL015
:LABEL013
IF (!((VAR050="Q")|(VAR050="q"))) GOTO LABEL014
LET VAR098=VAR094
GOTO LABEL429
:LABEL014
GOTO LABEL000
:LABEL015
GOTO LABEL000
:LABEL016
GETUSER
IF (!EXIST(PPEPATH()+"COOLSITE.CF1")) GOTO LABEL017
FOPEN 1,PPEPATH()+"COOLSITE.CF1",O_RD,S_DW
FGET 1,VAR019
FGET 1,VAR020
FGET 1,VAR093
FGET 1,VAR094
FGET 1,VAR018
FGET 1,VAR008
FGET 1,VAR021
FGET 1,VAR023
FGET 1,VAR025
FGET 1,VAR028
FGET 1,VAR032
FGET 1,VAR030
FGET 1,VAR036
FGET 1,VAR042
FGET 1,VAR038
FGET 1,VAR040
FGET 1,VAR044
FGET 1,VAR046
FCLOSE 1
GOTO LABEL018
:LABEL017
GOSUB LABEL247
:LABEL018
IF (!((VAR018="Y")|(VAR018="y"))) GOTO LABEL019
LET VAR008=VAR009
LET VAR010=PPEPATH()
LET VAR013=".ZIP"
LET VAR011="PKZIP"
LET VAR012="-A"
LET VAR021=VAR022
LET VAR023=VAR024
LET VAR025=VAR026
LET VAR028=VAR029
LET VAR032=VAR033
LET VAR030=VAR031
LET VAR036=VAR037
LET VAR038=VAR039
LET VAR040=VAR041
LET VAR042=VAR043
LET VAR044=VAR045
LET VAR046=VAR047
:LABEL019
LET VAR006="CS_"+STRING(PCBNODE())
FCREATE 0,VAR008+VAR006+".TXT",O_RD,S_DW
FCLOSE 0
FCREATE 0,VAR008+VAR006+".HTM",O_RD,S_DW
FCLOSE 0
RETURN
:LABEL020
GOSUB LABEL257
IF (!(!VAR119)) GOTO LABEL021
; GOSUB LABEL022
:LABEL021
RETURN
:LABEL022
LET VAR097=0
PRINTLN
PRINTLN VAR016
PRINT VAR017
:LABEL023
IF (!(VAR097<11)) GOTO LABEL026
DELAY 18
IF (!((((((VAR097=0)|(VAR097=2))|(VAR097=4))|(VAR097=6))|(VAR097=8))|(VAR097=10))) GOTO LABEL024
PRINT "@X0A∙@X07"
GOTO LABEL025
:LABEL024
PRINT "@X0D∙@X07"
:LABEL025
LET VAR097=VAR097+1
GOTO LABEL023
:LABEL026
PRINTLN
RETURN
:LABEL027
LET VAR050=""
LET VAR053="Press the NUMBER of the type of URL you'd like to add or [Q] to QUIT"
GOSUB LABEL227
:LABEL028
IF (!(VAR050="")) GOTO LABEL040
LET VAR050=INKEY()
IF (!(VAR050="1")) GOTO LABEL029
GOSUB LABEL246
LET VAR057=1
LET VAR058=VAR073(1,1)
ANSIPOS 34,5
PRINTLN VAR028+"E-MAIL"
LET VAR049="MAILTO://"
GOTO LABEL039
:LABEL029
IF (!(VAR050="2")) GOTO LABEL030
GOSUB LABEL246
LET VAR057=2
LET VAR058=VAR073(1,2)
ANSIPOS 34,5
PRINTLN VAR028+"Finger"
LET VAR049="FINGER://"
GOTO LABEL039
:LABEL030
IF (!(VAR050="3")) GOTO LABEL031
GOSUB LABEL246
LET VAR057=3
LET VAR058=VAR073(1,3)
ANSIPOS 34,5
PRINTLN VAR028+"FTP"
LET VAR049="FTP://"
GOTO LABEL039
:LABEL031
IF (!(VAR050="4")) GOTO LABEL032
GOSUB LABEL246
LET VAR057=4
LET VAR058=VAR073(1,4)
ANSIPOS 34,5
PRINTLN VAR028+"Gopher"
LET VAR049="GOPHER://"
GOTO LABEL039
:LABEL032
IF (!(VAR050="5")) GOTO LABEL033
GOSUB LABEL246
LET VAR057=5
LET VAR058=VAR073(1,5)
ANSIPOS 34,5
PRINTLN VAR028+"Internet Relay Chat (IRC)"
LET VAR049="IRC Channel : "
GOTO LABEL039
:LABEL033
IF (!(VAR050="6")) GOTO LABEL034
GOSUB LABEL246
LET VAR057=6
LET VAR058=VAR073(1,6)
ANSIPOS 34,5
PRINTLN VAR028+"Newsgroups (USENET)"
LET VAR049="NEWS://"
GOTO LABEL039
:LABEL034
IF (!(VAR050="7")) GOTO LABEL035
GOSUB LABEL246
LET VAR057=7
LET VAR058=VAR073(1,7)
ANSIPOS 34,5
PRINTLN VAR028+"Telnet"
LET VAR049="TELNET://"
GOTO LABEL039
:LABEL035
IF (!(VAR050="8")) GOTO LABEL036
GOSUB LABEL246
LET VAR057=8
LET VAR058=VAR073(1,8)
ANSIPOS 34,5
PRINTLN VAR028+"WAIS"
LET VAR049="WAIS://"
GOTO LABEL039
:LABEL036
IF (!(VAR050="9")) GOTO LABEL037
GOSUB LABEL246
LET VAR057=9
LET VAR058=VAR073(1,9)
ANSIPOS 34,5
PRINTLN VAR028+"World Wide Web Site (HTTP)"
LET VAR049="HTTP://"
GOTO LABEL039
:LABEL037
IF (!((VAR050="Q")|(VAR050="q"))) GOTO LABEL038
LET VAR122=0
RETURN
:LABEL038
LET VAR050=""
GOTO LABEL028
:LABEL039
GOTO LABEL028
:LABEL040
LET VAR050=""
LET VAR053="Enter URL in the space provided (200 character MAX) and press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=19
LET VAR089=LEN(VAR049)
LET VAR085=9
LET VAR086=58
LET VAR068=VAR049
LET VAR088=200
LET VAR072="N"
GOSUB LABEL197
LET VAR059=VAR068
LET VAR050=""
LET VAR053="Enter a SHORT description of the above entered URL and press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=24
LET VAR089=0
LET VAR085=11
LET VAR086=53
LET VAR068=""
LET VAR088=53
LET VAR072="N"
GOSUB LABEL197
LET VAR060=VAR068
LET VAR050=""
LET VAR053="(OPTIONAL) Enter Long Description [1/4] for URL & press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=24
LET VAR089=0
LET VAR085=13
LET VAR086=53
LET VAR068=""
LET VAR088=53
LET VAR072="N"
GOSUB LABEL197
LET VAR061=VAR068
LET VAR050=""
LET VAR053="(OPTIONAL) Enter Long Description [2/4] for URL & press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=24
LET VAR089=0
LET VAR085=14
LET VAR086=53
LET VAR068=""
LET VAR088=53
LET VAR072="N"
GOSUB LABEL197
LET VAR062=VAR068
LET VAR050=""
LET VAR053="(OPTIONAL) Enter Long Description [3/4] for URL & press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=24
LET VAR089=0
LET VAR085=15
LET VAR086=53
LET VAR068=""
LET VAR088=53
LET VAR072="N"
GOSUB LABEL197
LET VAR063=VAR068
LET VAR050=""
LET VAR053="(OPTIONAL) Enter Long Description [4/4] for URL & press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=24
LET VAR089=0
LET VAR085=16
LET VAR086=53
LET VAR068=""
LET VAR088=53
LET VAR072="N"
GOSUB LABEL197
LET VAR064=VAR068
RETURN
:LABEL041
LET VAR053="Press [Y]es to ACCEPT, [N]o to ABORT, or [E]dit to EDIT"
GOSUB LABEL227
:LABEL042
LET VAR050=""
IF (!(VAR050="")) GOTO LABEL048
LET VAR050=INKEY()
IF (!((VAR050="Y")|(VAR050="y"))) GOTO LABEL043
GOSUB LABEL050
GOSUB LABEL250
RETURN
:LABEL043
IF (!((VAR050="N")|(VAR050="n"))) GOTO LABEL046
IF (!(VAR121=1)) GOTO LABEL044
LET VAR053="Editing of existing URL has been ABORTED - Press ANY KEY"
GOTO LABEL045
:LABEL044
LET VAR053="Addition of URL to Database has been ABORTED - Press ANY KEY"
:LABEL045
GOSUB LABEL227
GOSUB LABEL219
GOSUB LABEL250
RETURN
:LABEL046
IF (!((VAR050="E")|(VAR050="e"))) GOTO LABEL047
GOSUB LABEL049
LET VAR053="Press [Y]es to ACCEPT, [N]o to ABORT, or [E]dit to EDIT"
GOSUB LABEL227
GOTO LABEL042
:LABEL047
LET VAR050=""
GOTO LABEL042
:LABEL048
RETURN
:LABEL049
GOSUB LABEL235
GOSUB LABEL239
LET VAR035=VAR028+"COOLSITE Internet Database "+VAR030+"- "+VAR032+"EDIT Existing URL Screen@X07"
GOSUB LABEL242
LET VAR050=""
LET VAR053="[BACKSPACE] deletes chars, EDIT URL (200 char MAX) and press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=19
LET VAR089=LEN(VAR049)
LET VAR085=9
LET VAR086=58
LET VAR068=VAR059
LET VAR088=200
LET VAR072="Y"
LET VAR087=LEN(VAR059)
GOSUB LABEL197
LET VAR059=VAR068
LET VAR050=""
LET VAR053="[BACKSPACE] deletes chars, RE-ENTER Short Description and press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=24
LET VAR089=0
LET VAR085=11
LET VAR086=53
LET VAR068=VAR060
LET VAR088=53
LET VAR072="Y"
LET VAR087=LEN(VAR060)
GOSUB LABEL197
LET VAR060=VAR068
LET VAR050=""
LET VAR053="(OPTIONAL) RE-ENTER Long Description [1/4] for URL & press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=24
LET VAR089=0
LET VAR085=13
LET VAR086=53
LET VAR068=VAR061
LET VAR088=200
LET VAR072="Y"
LET VAR087=LEN(VAR061)
GOSUB LABEL197
LET VAR061=VAR068
LET VAR050=""
LET VAR053="(OPTIONAL) RE-ENTER Long Description [2/4] for URL & press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=24
LET VAR089=0
LET VAR085=14
LET VAR086=53
LET VAR068=VAR062
LET VAR088=53
LET VAR072="Y"
LET VAR087=LEN(VAR062)
GOSUB LABEL197
LET VAR062=VAR068
LET VAR050=""
LET VAR053="(OPTIONAL) RE-ENTER Long Description [3/4] for URL & press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=24
LET VAR089=0
LET VAR085=15
LET VAR086=53
LET VAR068=VAR063
LET VAR088=53
LET VAR072="Y"
LET VAR087=LEN(VAR063)
GOSUB LABEL197
LET VAR063=VAR068
LET VAR050=""
LET VAR053="(OPTIONAL) RE-ENTER Long Description [4/4] for URL & press [ENTER]"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=24
LET VAR089=0
LET VAR085=16
LET VAR086=53
LET VAR068=VAR064
LET VAR088=53
LET VAR072="Y"
LET VAR087=LEN(VAR064)
GOSUB LABEL197
LET VAR064=VAR068
RETURN
:LABEL050
IF (!(VAR121=1)) GOTO LABEL051
DGO 1,VAR107
DDELETE 1
DPACK 1
:LABEL051
DNEW 1
DPUT 1,"URL_NUM",VAR057
DPUT 1,"URL_TYPE",VAR058
DPUT 1,"ADDRESS",VAR059
DPUT 1,"SHORT_DESC",VAR060
DPUT 1,"LONG_DESC1",VAR061
DPUT 1,"LONG_DESC2",VAR062
DPUT 1,"LONG_DESC3",VAR063
DPUT 1,"LONG_DESC4",VAR064
DPUT 1,"USER",U_NAME()
DPUT 1,"DATE",DATE()
DADD 1
LET VAR107=0
RETURN
:LABEL052
DISPFILE PPEPATH()+"COOLSITE.D02",2+1+4
GOSUB LABEL236
IF (!DERR(1)) GOTO LABEL055
LET VAR050=""
LET VAR053="Database Error : "+DERRMSG(DCHKSTAT(1))+" - Press [ENTER]"
GOSUB LABEL227
LET VAR050=""
:LABEL053
IF (!(VAR050="")) GOTO LABEL054
LET VAR050=INKEY()
GOTO LABEL053
:LABEL054
RETURN
:LABEL055
LET VAR102=0
LET VAR054=1
LET VAR104=1
LET VAR105=VAR104
:LABEL056
IF (!(VAR102<=9)) GOTO LABEL061
IF (!(VAR102=9)) GOTO LABEL058
IF (!(DRECCOUNT(1)>=VAR054)) GOTO LABEL057
LET VAR104=VAR054
LET VAR103=10
LET VAR050=""
LET VAR053="Select URL to Edit, [N]ext Page, or [Q]uit"
GOSUB LABEL227
GOTO LABEL061
:LABEL057
LET VAR104=-1
LET VAR050=""
LET VAR053="Select URL to Edit, or [Q]uit"
GOSUB LABEL227
GOTO LABEL061
:LABEL058
IF (!(VAR054>DRECCOUNT(1))) GOTO LABEL059
LET VAR103=VAR102
LET VAR102=9
GOTO LABEL060
:LABEL059
LET VAR050=""
LET VAR053="Searching Database for Records YOU may Edit .. "+STRING(VAR054)+" of "+STRING(DRECCOUNT(1))
GOSUB LABEL227
DGO 1,VAR054
DGET 1,"URL_TYPE",VAR058
DGET 1,"ADDRESS",VAR059
DGET 1,"SHORT_DESC",VAR060
DGET 1,"USER",VAR065
LET VAR054=VAR054+1
IF (!((VAR065=(U_NAME()+LEFT(VAR071,(LEN(VAR065)-LEN(U_NAME())))))|VAR120)) GOTO LABEL060
ANSIPOS 5,VAR102+7
PRINTLN VAR028+STRING(VAR102+1)+VAR030+") "+VAR032+LEFT(VAR060,40)+" "+LEFT(VAR059,22)+VAR030+"..."
LET VAR102=VAR102+1
LET VAR076(1,VAR102)=DRECNO(1)
:LABEL060
GOTO LABEL056
:LABEL061
LET VAR050=""
IF (!(VAR050="")) GOTO LABEL070
LET VAR050=INKEY()
IF (!(((((((((VAR050="1")|(VAR050="2"))|(VAR050="3"))|(VAR050="4"))|(VAR050="5"))|(VAR050="6"))|(VAR050="7"))|(VAR050="8"))|(VAR050="9"))) GOTO LABEL063
IF (!(VAR076(1,VAR050)="")) GOTO LABEL062
GOTO LABEL061
:LABEL062
LET VAR107=VAR076(1,VAR050)
DGO 1,VAR076(1,VAR050)
DGET 1,"URL_NUM",VAR057
DGET 1,"URL_TYPE",VAR058
DGET 1,"ADDRESS",VAR059
DGET 1,"SHORT_DESC",VAR060
DGET 1,"LONG_DESC1",VAR061
DGET 1,"LONG_DESC2",VAR062
DGET 1,"LONG_DESC3",VAR063
DGET 1,"LONG_DESC4",VAR064
DGET 1,"USER",VAR065
DGET 1,"DATE",VAR066
GOSUB LABEL251
LET VAR049=VAR074(1,VAR057)
GOSUB LABEL049
GOSUB LABEL041
RETURN
:LABEL063
IF (!((VAR050="N")|(VAR050="n"))) GOTO LABEL066
IF (!(VAR104=(-1))) GOTO LABEL064
GOTO LABEL061
:LABEL064
IF (!(VAR103<=9)) GOTO LABEL065
GOTO LABEL061
:LABEL065
GOSUB LABEL243
LET VAR102=0
LET VAR054=VAR104
GOTO LABEL056
:LABEL066
IF (!((VAR050="P")|(VAR050="p"))) GOTO LABEL068
IF (!(VAR103<9)) GOTO LABEL067
GOTO LABEL061
:LABEL067
GOTO LABEL061
:LABEL068
IF (!((VAR050="Q")|(VAR050="q"))) GOTO LABEL069
RETURN
:LABEL069
GOTO LABEL061
:LABEL070
RETURN
:LABEL071
DISPFILE PPEPATH()+"COOLSITE.D01",2+1+4
GOSUB LABEL236
IF (!DERR(1)) GOTO LABEL074
LET VAR050=""
LET VAR053="Database Error : "+DERRMSG(DCHKSTAT(1))+" - Press [ENTER]"
GOSUB LABEL227
LET VAR050=""
:LABEL072
IF (!(VAR050="")) GOTO LABEL073
LET VAR050=INKEY()
GOTO LABEL072
:LABEL073
RETURN
:LABEL074
LET VAR102=0
LET VAR054=1
LET VAR104=1
LET VAR105=VAR104
:LABEL075
IF (!(VAR102<=9)) GOTO LABEL080
IF (!(VAR102=9)) GOTO LABEL077
IF (!(DRECCOUNT(1)>=VAR054)) GOTO LABEL076
LET VAR104=VAR054
LET VAR103=10
LET VAR050=""
LET VAR053="Select URL to Edit, [N]ext Page, or [Q]uit"
GOSUB LABEL227
GOTO LABEL080
:LABEL076
LET VAR104=-1
LET VAR050=""
LET VAR053="Select URL to Edit, or [Q]uit"
GOSUB LABEL227
GOTO LABEL080
:LABEL077
IF (!(VAR054>DRECCOUNT(1))) GOTO LABEL078
LET VAR103=VAR102
LET VAR102=9
GOTO LABEL079
:LABEL078
LET VAR050=""
LET VAR053="Searching Database for Records YOU may DELETE .. "+STRING(VAR054)+" of "+STRING(DRECCOUNT(1))
GOSUB LABEL227
DGO 1,VAR054
DGET 1,"URL_TYPE",VAR058
DGET 1,"ADDRESS",VAR059
DGET 1,"SHORT_DESC",VAR060
DGET 1,"USER",VAR065
LET VAR054=VAR054+1
IF (!((VAR065=(U_NAME()+LEFT(VAR071,(LEN(VAR065)-LEN(U_NAME())))))|VAR120)) GOTO LABEL079
ANSIPOS 5,VAR102+7
PRINTLN VAR028+STRING(VAR102+1)+VAR030+") "+VAR032+LEFT(VAR060,40)+" "+LEFT(VAR059,22)+VAR030+"..."
LET VAR102=VAR102+1
LET VAR076(1,VAR102)=DRECNO(1)
:LABEL079
GOTO LABEL075
:LABEL080
LET VAR050=""
LET VAR106=0
IF (!(VAR050="")) GOTO LABEL089
LET VAR050=INKEY()
IF (!(((((((((VAR050="1")|(VAR050="2"))|(VAR050="3"))|(VAR050="4"))|(VAR050="5"))|(VAR050="6"))|(VAR050="7"))|(VAR050="8"))|(VAR050="9"))) GOTO LABEL082
IF (!(VAR076(1,VAR050)="")) GOTO LABEL081
GOTO LABEL080
:LABEL081
LET VAR106=VAR050
DGO 1,VAR076(1,VAR050)
DGET 1,"URL_NUM",VAR057
DGET 1,"URL_TYPE",VAR058
DGET 1,"ADDRESS",VAR059
DGET 1,"SHORT_DESC",VAR060
DGET 1,"LONG_DESC1",VAR061
DGET 1,"LONG_DESC2",VAR062
DGET 1,"LONG_DESC3",VAR063
DGET 1,"LONG_DESC4",VAR064
DGET 1,"USER",VAR065
DGET 1,"DATE",VAR066
GOSUB LABEL251
LET VAR049=VAR074(1,VAR057)
GOSUB LABEL274
GOSUB LABEL277
RETURN
:LABEL082
IF (!((VAR050="N")|(VAR050="n"))) GOTO LABEL085
IF (!(VAR104=(-1))) GOTO LABEL083
GOTO LABEL080
:LABEL083
IF (!(VAR103<=9)) GOTO LABEL084
GOTO LABEL080
:LABEL084
GOSUB LABEL243
LET VAR102=0
LET VAR054=VAR104
GOTO LABEL075
:LABEL085
IF (!((VAR050="P")|(VAR050="p"))) GOTO LABEL087
IF (!(VAR103<9)) GOTO LABEL086
GOTO LABEL080
:LABEL086
GOTO LABEL080
:LABEL087
IF (!((VAR050="Q")|(VAR050="q"))) GOTO LABEL088
RETURN
:LABEL088
GOTO LABEL080
:LABEL089
RETURN
:LABEL090
DISPFILE PPEPATH()+"COOLSITE.M02",2+1+4
LET VAR124=0
LET VAR098=1
:LABEL091
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL092
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL091
:LABEL092
LET VAR050=""
PRINTLN
PRINTLN VAR044
:LABEL093
IF (!(VAR050="")) GOTO LABEL094
LET VAR050=INKEY()
GOTO LABEL093
:LABEL094
IF (!(VAR050="1")) GOTO LABEL095
GOSUB LABEL102
GOTO LABEL090
:LABEL095
IF (!(VAR050="2")) GOTO LABEL096
GOSUB LABEL113
GOTO LABEL090
:LABEL096
IF (!(VAR050="3")) GOTO LABEL097
GOSUB LABEL124
GOTO LABEL090
:LABEL097
IF (!(VAR050="4")) GOTO LABEL098
GOSUB LABEL149
GOTO LABEL090
:LABEL098
IF (!(VAR050="5")) GOTO LABEL099
GOSUB LABEL159
GOTO LABEL090
:LABEL099
IF (!(VAR050="6")) GOTO LABEL100
GOSUB LABEL169
GOTO LABEL090
:LABEL100
IF (!((VAR050="M")|(VAR050="m"))) GOTO LABEL101
RETURN
:LABEL101
GOTO LABEL090
:LABEL102
LET VAR001="1"
IF (!VAR124) GOTO LABEL103
DISPFILE PPEPATH()+"COOLSITE.D15",2+1+4
GOTO LABEL104
:LABEL103
DISPFILE PPEPATH()+"COOLSITE.D05",2+1+4
:LABEL104
GOSUB LABEL236
LET VAR053="Enter Number of Days BACK to scan, or [Q] to Quit"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=30
LET VAR089=0
LET VAR085=7
LET VAR086=4
LET VAR068=""
LET VAR088=4
LET VAR072="N"
GOSUB LABEL197
IF (!((LEFT(VAR068,1)="Q")|(LEFT(VAR068,1)="q"))) GOTO LABEL105
RETURN
:LABEL105
IF (!VAR124) GOTO LABEL110
FOPEN 0,VAR008+VAR006+".HTM",O_WR,S_DW
FOPEN 2,VAR008+VAR006+".TXT",O_WR,S_DW
GOSUB LABEL425
DISPFILE PPEPATH()+"COOLSITE.D16",2+1+4
GOSUB LABEL376
IF (!(UPPER(VAR050)<>"A")) GOTO LABEL106
GOSUB LABEL386
LET VAR079=TODDATE(DATE()-TOINTEGER(VAR068))
GOSUB LABEL352
GOSUB LABEL428
FCLOSE 0
FCLOSE 2
GOSUB LABEL387
DELETE VAR008+VAR006+".HTM"
DELETE VAR008+VAR006+".TXT"
GOTO LABEL107
:LABEL106
FCLOSE 0
FCLOSE 2
DELETE VAR008+VAR006+".HTM"
DELETE VAR008+VAR006+".TXT"
:LABEL107
LET VAR001="0"
LET VAR098=1
:LABEL108
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL109
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL108
:LABEL109
GOTO LABEL112
:LABEL110
DISPFILE PPEPATH()+"COOLSITE.D07",2+1+4
LET VAR079=TODDATE(DATE()-TOINTEGER(VAR068))
GOSUB LABEL283
LET VAR001="0"
LET VAR098=1
:LABEL111
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL112
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL111
:LABEL112
RETURN
:LABEL113
LET VAR001="2"
IF (!VAR124) GOTO LABEL114
DISPFILE PPEPATH()+"COOLSITE.D17",2+1+4
GOTO LABEL115
:LABEL114
DISPFILE PPEPATH()+"COOLSITE.D08",2+1+4
:LABEL115
GOSUB LABEL236
LET VAR053="Select URL Type [1-9], or [Q] to Quit"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=26
LET VAR089=0
LET VAR085=7
LET VAR086=1
LET VAR068=""
LET VAR088=1
LET VAR072="N"
GOSUB LABEL197
IF (!((LEFT(VAR068,1)="Q")|(LEFT(VAR068,1)="q"))) GOTO LABEL116
RETURN
:LABEL116
LET VAR003=VAR068
IF (!VAR124) GOTO LABEL121
FOPEN 0,VAR008+VAR006+".HTM",O_WR,S_DW
FOPEN 2,VAR008+VAR006+".TXT",O_WR,S_DW
GOSUB LABEL425
DISPFILE PPEPATH()+"COOLSITE.D18",2+1+4
GOSUB LABEL376
IF (!(UPPER(VAR050)<>"A")) GOTO LABEL117
GOSUB LABEL386
GOSUB LABEL352
GOSUB LABEL428
FCLOSE 0
FCLOSE 2
GOSUB LABEL387
DELETE VAR008+VAR006+".HTM"
DELETE VAR008+VAR006+".TXT"
GOTO LABEL118
:LABEL117
FCLOSE 0
FCLOSE 2
DELETE VAR008+VAR006+".HTM"
DELETE VAR008+VAR006+".TXT"
:LABEL118
LET VAR001="0"
LET VAR098=1
:LABEL119
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL120
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL119
:LABEL120
GOTO LABEL123
:LABEL121
DISPFILE PPEPATH()+"COOLSITE.D09",2+1+4
GOSUB LABEL283
LET VAR001="0"
LET VAR098=1
:LABEL122
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL123
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL122
:LABEL123
RETURN
:LABEL124
LET VAR001="3"
IF (!VAR124) GOTO LABEL125
DISPFILE PPEPATH()+"COOLSITE.D19",2+1+4
GOTO LABEL126
:LABEL125
DISPFILE PPEPATH()+"COOLSITE.D11",2+1+4
:LABEL126
GOSUB LABEL236
ANSIPOS 29,8
PRINTLN VAR042+" "+"@X07"
ANSIPOS 29,9
PRINTLN VAR042+" "+"@X07"
ANSIPOS 29,10
PRINTLN VAR042+" "+"@X07"
LET VAR053="Enter a Keyword to search database with, or [Q] to Quit"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=22
LET VAR089=0
LET VAR085=6
LET VAR086=10
LET VAR068=""
LET VAR088=10
LET VAR072="N"
GOSUB LABEL197
IF (!((LEFT(VAR068,1)="Q")|(LEFT(VAR068,1)="q"))) GOTO LABEL127
RETURN
:LABEL127
LET VAR003=VAR068
:LABEL128
LET VAR053="Scan URL field for Keyword [Y]es or [N]o"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=29
LET VAR089=0
LET VAR085=8
LET VAR086=1
LET VAR068=""
LET VAR088=1
LET VAR072="N"
GOSUB LABEL197
IF (!((UPPER(VAR068)="Y")|(UPPER(VAR068)="N"))) GOTO LABEL129
LET VAR080=UPPER(VAR068)
ANSIPOS VAR084,VAR085
PRINTLN VAR042+UPPER(VAR068)+"@X07"
GOTO LABEL130
:LABEL129
GOTO LABEL128
:LABEL130
LET VAR053="Scan Short Description field for Keyword [Y]es or [N]o"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=29
LET VAR089=0
LET VAR085=9
LET VAR086=1
LET VAR068=""
LET VAR088=1
LET VAR072="N"
GOSUB LABEL197
IF (!((UPPER(VAR068)="Y")|(UPPER(VAR068)="N"))) GOTO LABEL131
LET VAR081=UPPER(VAR068)
ANSIPOS VAR084,VAR085
PRINTLN VAR042+UPPER(VAR068)+"@X07"
GOTO LABEL132
:LABEL131
GOTO LABEL130
:LABEL132
LET VAR053="Scan Long Description fields for Keyword [Y]es or [N]o"
GOSUB LABEL227
LET VAR069=VAR042
LET VAR084=29
LET VAR089=0
LET VAR085=10
LET VAR086=1
LET VAR068=""
LET VAR088=1
LET VAR072="N"
GOSUB LABEL197
IF (!((UPPER(VAR068)="Y")|(UPPER(VAR068)="N"))) GOTO LABEL133
LET VAR082=UPPER(VAR068)
ANSIPOS VAR084,VAR085
PRINTLN VAR042+UPPER(VAR068)+"@X07"
GOTO LABEL134
:LABEL133
GOTO LABEL132
:LABEL134
IF (!(((VAR080="N")&(VAR081="N"))&(VAR082="N"))) GOTO LABEL135
LET VAR053="You MUST select at LEAST one field to search [Press ANY KEY]"
GOSUB LABEL227
GOSUB LABEL219
GOTO LABEL124
:LABEL135
LET VAR053="Scan Database with the entered criteria? [Y]es, [N]o or [A]bort"
GOSUB LABEL227
LET VAR050=""
:LABEL136
IF (!(VAR050="")) GOTO LABEL141
LET VAR050=INKEY()
IF (!(((UPPER(VAR050)="N")|(UPPER(VAR050)="Y"))|(UPPER(VAR050)="A"))) GOTO LABEL139
IF (!(UPPER(VAR050)="A")) GOTO LABEL137
RETURN
:LABEL137
IF (!(UPPER(VAR050)="N")) GOTO LABEL138
GOTO LABEL124
:LABEL138
GOTO LABEL140
:LABEL139
LET VAR050=""
:LABEL140
GOTO LABEL136
:LABEL141
IF (!VAR124) GOTO LABEL146
FOPEN 0,VAR008+VAR006+".HTM",O_WR,S_DW
FOPEN 2,VAR008+VAR006+".TXT",O_WR,S_DW
GOSUB LABEL425
DISPFILE PPEPATH()+"COOLSITE.D20",2+1+4
GOSUB LABEL376
IF (!(UPPER(VAR050)<>"A")) GOTO LABEL142
GOSUB LABEL386
GOSUB LABEL352
GOSUB LABEL428
FCLOSE 0
FCLOSE 2
GOSUB LABEL387
DELETE VAR008+VAR006+".HTM"
DELETE VAR008+VAR006+".TXT"
GOTO LABEL143
:LABEL142
FCLOSE 0
FCLOSE 2
DELETE VAR008+VAR006+".HTM"
DELETE VAR008+VAR006+".TXT"
:LABEL143
LET VAR001="0"
LET VAR098=1
:LABEL144
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL145
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL144
:LABEL145
GOTO LABEL148
:LABEL146
DISPFILE PPEPATH()+"COOLSITE.D12",2+1+4
GOSUB LABEL283
LET VAR001="0"
LET VAR098=1
:LABEL147
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL148
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL147
:LABEL148
RETURN
:LABEL149
LET VAR001="4"
IF (!VAR124) GOTO LABEL150
DISPFILE PPEPATH()+"COOLSITE.D14",2+1+4
GOTO LABEL151
:LABEL150
DISPFILE PPEPATH()+"COOLSITE.D10",2+1+4
:LABEL151
IF (!VAR124) GOTO LABEL156
FOPEN 0,VAR008+VAR006+".HTM",O_WR,S_DW
FOPEN 2,VAR008+VAR006+".TXT",O_WR,S_DW
GOSUB LABEL425
GOSUB LABEL376
IF (!(UPPER(VAR050)<>"A")) GOTO LABEL152
GOSUB LABEL386
GOSUB LABEL352
GOSUB LABEL428
FCLOSE 0
FCLOSE 2
GOSUB LABEL387
DELETE VAR008+VAR006+".HTM"
DELETE VAR008+VAR006+".TXT"
GOTO LABEL153
:LABEL152
FCLOSE 0
FCLOSE 2
DELETE VAR008+VAR006+".HTM"
DELETE VAR008+VAR006+".TXT"
:LABEL153
LET VAR001="0"
LET VAR098=1
:LABEL154
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL155
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL154
:LABEL155
GOTO LABEL158
:LABEL156
GOSUB LABEL283
LET VAR001="0"
LET VAR098=1
:LABEL157
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL158
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL157
:LABEL158
RETURN
:LABEL159
LET VAR001="5"
IF (!VAR124) GOTO LABEL160
DISPFILE PPEPATH()+"COOLSITE.D06",2+1+4
GOTO LABEL161
:LABEL160
DISPFILE PPEPATH()+"COOLSITE.D21",2+1+4
:LABEL161
IF (!VAR124) GOTO LABEL166
FOPEN 0,VAR008+VAR006+".HTM",O_WR,S_DW
FOPEN 2,VAR008+VAR006+".TXT",O_WR,S_DW
GOSUB LABEL425
GOSUB LABEL376
IF (!(UPPER(VAR050)<>"A")) GOTO LABEL162
GOSUB LABEL386
GOSUB LABEL352
GOSUB LABEL428
FCLOSE 0
FCLOSE 2
GOSUB LABEL387
DELETE VAR008+VAR006+".HTM"
DELETE VAR008+VAR006+".TXT"
GOTO LABEL163
:LABEL162
FCLOSE 0
FCLOSE 2
DELETE VAR008+VAR006+".HTM"
DELETE VAR008+VAR006+".TXT"
:LABEL163
LET VAR001="0"
LET VAR098=1
:LABEL164
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL165
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL164
:LABEL165
GOTO LABEL168
:LABEL166
GOSUB LABEL283
LET VAR001="0"
LET VAR098=1
:LABEL167
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL168
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL167
:LABEL168
RETURN
:LABEL169
LET VAR001="6"
LET VAR108=0
LET VAR109=0
LET VAR110=0
LET VAR111=0
LET VAR112=0
LET VAR113=0
LET VAR114=0
LET VAR115=0
LET VAR116=0
LET VAR117=0
DISPFILE PPEPATH()+"COOLSITE.D13",2+1+4
GOSUB LABEL236
LET VAR053="Displaying REAL-TIME Database Statistics, Press [A] to Abort"
GOSUB LABEL227
ANSIPOS 67,4
PRINTLN VAR030+STRING(VAR108)
ANSIPOS 67,7
PRINTLN VAR030+STRING(VAR111)
ANSIPOS 67,10
PRINTLN VAR030+STRING(VAR114)
ANSIPOS 67,5
PRINTLN VAR030+STRING(VAR109)
ANSIPOS 67,8
PRINTLN VAR030+STRING(VAR112)
ANSIPOS 67,11
PRINTLN VAR030+STRING(VAR115)
ANSIPOS 67,6
PRINTLN VAR030+STRING(VAR110)
ANSIPOS 67,9
PRINTLN VAR030+STRING(VAR113)
ANSIPOS 67,12
PRINTLN VAR030+STRING(VAR116)
ANSIPOS 67,14
PRINTLN VAR117
LET VAR054=1
:LABEL170
IF (!(((1<0)&(VAR054>=DRECCOUNT(1)))|((1>=0)&(VAR054<=DRECCOUNT(1))))) GOTO LABEL181
IF (!((INKEY()="A")|(INKEY()="a"))) GOTO LABEL171
GOTO LABEL182
:LABEL171
DGO 1,VAR054
DGET 1,"URL_NUM",VAR057
IF (!(VAR057=1)) GOTO LABEL172
LET VAR108=VAR108+1
LET VAR117=VAR117+1
ANSIPOS 67,4
PRINTLN VAR030+STRING(VAR108)
GOTO LABEL180
:LABEL172
IF (!(VAR057=2)) GOTO LABEL173
LET VAR109=VAR109+1
LET VAR117=VAR117+1
ANSIPOS 67,5
PRINTLN VAR030+STRING(VAR109)
GOTO LABEL180
:LABEL173
IF (!(VAR057=3)) GOTO LABEL174
LET VAR110=VAR110+1
LET VAR117=VAR117+1
ANSIPOS 67,6
PRINTLN VAR030+STRING(VAR110)
GOTO LABEL180
:LABEL174
IF (!(VAR057=4)) GOTO LABEL175
LET VAR111=VAR111+1
LET VAR117=VAR117+1
ANSIPOS 67,7
PRINTLN VAR030+STRING(VAR111)
GOTO LABEL180
:LABEL175
IF (!(VAR057=5)) GOTO LABEL176
LET VAR112=VAR112+1
LET VAR117=VAR117+1
ANSIPOS 67,8
PRINTLN VAR030+STRING(VAR112)
GOTO LABEL180
:LABEL176
IF (!(VAR057=6)) GOTO LABEL177
LET VAR113=VAR113+1
LET VAR117=VAR117+1
ANSIPOS 67,9
PRINTLN VAR030+STRING(VAR113)
GOTO LABEL180
:LABEL177
IF (!(VAR057=7)) GOTO LABEL178
LET VAR114=VAR114+1
LET VAR117=VAR117+1
ANSIPOS 67,10
PRINTLN VAR030+STRING(VAR114)
GOTO LABEL180
:LABEL178
IF (!(VAR057=8)) GOTO LABEL179
LET VAR115=VAR115+1
LET VAR117=VAR117+1
ANSIPOS 67,11
PRINTLN VAR030+STRING(VAR115)
GOTO LABEL180
:LABEL179
IF (!(VAR057=9)) GOTO LABEL180
LET VAR116=VAR116+1
LET VAR117=VAR117+1
ANSIPOS 67,12
PRINTLN VAR030+STRING(VAR116)
:LABEL180
ANSIPOS 67,14
PRINTLN VAR030+STRING(VAR117)
LET VAR054=VAR054+1
GOTO LABEL170
:LABEL181
LET VAR001="0"
LET VAR053="Database Statistics Complete, Press [Q] to Quit"
GOTO LABEL183
:LABEL182
LET VAR053="Database Statistics ABORTED, Press [Q] to Quit"
:LABEL183
GOSUB LABEL227
LET VAR050=""
:LABEL184
IF (!(VAR050="")) GOTO LABEL186
LET VAR050=INKEY()
IF (!((VAR050="Q")|(VAR050="q"))) GOTO LABEL185
RETURN
:LABEL185
LET VAR050=""
GOTO LABEL184
:LABEL186
PRINT "@POFF@"
LET VAR124=1
DISPFILE PPEPATH()+"COOLSITE.M03",2+1+4
LET VAR098=1
:LABEL187
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL188
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL187
:LABEL188
LET VAR050=""
PRINTLN
PRINTLN VAR046
:LABEL189
IF (!(VAR050="")) GOTO LABEL190
LET VAR050=INKEY()
GOTO LABEL189
:LABEL190
IF (!(VAR050="1")) GOTO LABEL191
GOSUB LABEL102
GOTO LABEL186
:LABEL191
IF (!(VAR050="2")) GOTO LABEL192
GOSUB LABEL113
GOTO LABEL186
:LABEL192
IF (!(VAR050="3")) GOTO LABEL193
GOSUB LABEL124
GOTO LABEL186
:LABEL193
IF (!(VAR050="4")) GOTO LABEL194
GOSUB LABEL149
GOTO LABEL186
:LABEL194
IF (!(VAR050="5")) GOTO LABEL195
GOSUB LABEL159
GOTO LABEL186
:LABEL195
IF (!((VAR050="M")|(VAR050="m"))) GOTO LABEL196
LET VAR124=0
RETURN
:LABEL196
GOTO LABEL186
:LABEL197
LET VAR070=""
IF (!(VAR072="N")) GOTO LABEL200
IF (!(VAR089>0)) GOTO LABEL198
LET VAR087=VAR089
GOTO LABEL199
:LABEL198
LET VAR087=0
:LABEL199
ANSIPOS VAR084,VAR085
PRINT VAR069+VAR068+LEFT(VAR071,(VAR086-VAR089))+"@X07"
GOTO LABEL202
:LABEL200
IF (!(LEN(VAR068)>VAR086)) GOTO LABEL201
ANSIPOS VAR084,VAR085
PRINT VAR069+RIGHT(VAR068,VAR086)
ANSIPOS VAR084,VAR087
GOTO LABEL202
:LABEL201
ANSIPOS VAR084,VAR085
PRINT VAR069+VAR068+LEFT(VAR071,(VAR086-LEN(VAR068)))
ANSIPOS VAR084,VAR087
:LABEL202
IF (!(VAR070<>CHR(13))) GOTO LABEL211
LET VAR070=INKEY()
GOSUB LABEL212
IF (!(VAR070=CHR(13))) GOTO LABEL204
IF (!(LEN(VAR068)>VAR086)) GOTO LABEL203
ANSIPOS VAR084,VAR085
PRINT LEFT(VAR068,(VAR086-4))+"∙∙∙ "
:LABEL203
RETURN
:LABEL204
IF (!((VAR070=CHR(8))&(VAR087=VAR086))) GOTO LABEL205
ANSIPOS VAR084+VAR087-1,VAR085
PRINT VAR069+" "
ANSIPOS VAR084+VAR087-1,VAR085
LET VAR068=LEFT(VAR068,(VAR087-1))
LET VAR070=""
LET VAR087=VAR087-1
GOTO LABEL210
:LABEL205
IF (!(VAR087<VAR086)) GOTO LABEL208
IF (!((VAR070=CHR(8))&(VAR087>VAR089))) GOTO LABEL206
ANSIPOS VAR084+VAR087-1,VAR085
PRINT VAR069+" "
ANSIPOS VAR084+VAR087-1,VAR085
LET VAR068=LEFT(VAR068,(VAR087-1))
LET VAR070=""
LET VAR087=VAR087-1
GOTO LABEL207
:LABEL206
IF (!(((VAR070<>"")&(VAR070<>CHR(8)))&(VAR087<VAR088))) GOTO LABEL207
ANSIPOS VAR084+VAR087,VAR085
PRINT VAR069+VAR070
LET VAR068=VAR068+VAR070
LET VAR070=""
LET VAR087=VAR087+1
:LABEL207
GOTO LABEL210
:LABEL208
IF (!(((VAR070<>"")&(VAR070<>CHR(8)))&(VAR087<VAR088))) GOTO LABEL209
LET VAR068=VAR068+VAR070
LET VAR070=""
LET VAR087=VAR087+1
ANSIPOS VAR084,VAR085
PRINT VAR069+MID(VAR068,(VAR087+1-VAR086),VAR086)
GOTO LABEL210
:LABEL209
IF (!(VAR070=CHR(8))) GOTO LABEL210
ANSIPOS VAR084,VAR085
PRINT VAR069+MID(VAR068,(VAR087-VAR086),VAR086)
LET VAR068=LEFT(VAR068,(VAR087-1))
LET VAR087=VAR087-1
LET VAR070=""
:LABEL210
GOTO LABEL202
:LABEL211
RETURN
:LABEL212
IF (!((((((((((((VAR070="UP")|(VAR070="DOWN"))|(VAR070="LEFT"))|(VAR070="RIGHT"))|(VAR070="INS"))|(VAR070="DEL"))|(VAR070="HOME"))|(VAR070="END"))|(VAR070="PGUP"))|(VAR070="PGDN"))|(VAR070=CHR(27)))|(VAR070=CHR(9)))) GOTO LABEL213
LET VAR070=""
RETURN
:LABEL213
RETURN
:LABEL214
LET VAR097=0
PRINTLN
PRINT VAR017
:LABEL215
IF (!(VAR097<11)) GOTO LABEL218
DELAY 18
IF (!((((((VAR097=0)|(VAR097=2))|(VAR097=4))|(VAR097=6))|(VAR097=8))|(VAR097=10))) GOTO LABEL216
PRINT "@X0A∙@X07"
GOTO LABEL217
:LABEL216
PRINT "@X0D∙@X07"
:LABEL217
LET VAR097=VAR097+1
GOTO LABEL215
:LABEL218
PRINTLN
RETURN
:LABEL219
LET VAR048=""
:LABEL220
IF (!(VAR048="")) GOTO LABEL221
LET VAR048=INKEY()
GOTO LABEL220
:LABEL221
RETURN
:LABEL222
LET VAR035=VAR038
LET VAR048=""
GOSUB LABEL231
PRINTLN ""
PRINTLN LEFT(VAR071,((80-VAR099)/2))+VAR035
:LABEL223
IF (!(VAR048="")) GOTO LABEL224
LET VAR048=INKEY()
GOTO LABEL223
:LABEL224
RETURN
:LABEL225
LET VAR100=LEN(VAR053)
LET VAR053=VAR036+LEFT(VAR071,(LEN(LEFT(VAR071,(73-VAR100)))/2))+VAR053+LEFT(VAR071,(73-VAR100-LEN(LEFT(VAR071,(LEN(LEFT(VAR071,(73-VAR100)))/2)))))+"@X07"
LET VAR100=0
GOSUB LABEL226
RETURN
:LABEL226
ANSIPOS 4,20
PRINT VAR053
RETURN
:LABEL227
LET VAR100=LEN(VAR053)
LET VAR053=VAR036+LEFT(VAR071,(LEN(LEFT(VAR071,(73-VAR100)))/2))+VAR053+LEFT(VAR071,(73-VAR100-LEN(LEFT(VAR071,(LEN(LEFT(VAR071,(73-VAR100)))/2)))))+"@X07"
LET VAR100=0
GOSUB LABEL228
RETURN
:LABEL228
ANSIPOS 4,19
PRINT VAR053
RETURN
:LABEL229
IF (!EXIST(PPEPATH()+"COOLSITE.DBF")) GOTO LABEL230
DOPEN 1,PPEPATH()+"COOLSITE",0
RETURN
:LABEL230
DCREATE 1,PPEPATH()+"COOLSITE",0,VAR056
RETURN
:LABEL231
LET VAR034=LEN(VAR035)
LET VAR098=1
LET VAR099=0
:LABEL232
IF (!(VAR098<VAR034)) GOTO LABEL234
IF (!(MID(VAR035,VAR098,1)="@")) GOTO LABEL233
LET VAR098=VAR098+4
:LABEL233
LET VAR099=VAR099+1
LET VAR098=VAR098+1
GOTO LABEL232
:LABEL234
LET VAR099=VAR099-1
RETURN
:LABEL235
PRINTLN "@CLS@"+VAR021+"█"+VAR023+"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR023+"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"+VAR021
PRINTLN "@X01───────────────────────────────────────────────────────────────────────────────@X07"
RETURN
:LABEL236
ANSIPOS 1,18
PRINTLN VAR021+"█"+VAR023+"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR023+"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"+VAR021
PRINTLN "@X01───────────────────────────────────────────────────────────────────────────────@X07"
RETURN
:LABEL237
ANSIPOS 1,18
PRINTLN VAR021+"█"+VAR023+"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR021+"█"+VAR023+"▌"+VAR021+" "+VAR023+"▐"+VAR021+"█"+VAR021+""
PRINTLN VAR023+"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"+VAR021
PRINTLN "@X01───────────────────────────────────────────────────────────────────────────────@X07"
RETURN
:LABEL238
LET VAR035=VAR028+"COOLSITE Internet Database "+VAR030+"- "+VAR032+"Data Entry Screen@X07"
GOSUB LABEL242
ANSIPOS 4,5
PRINT VAR025+"Select ONE of the Following"+"@X07"
ANSIPOS 4,9
PRINT VAR025+"Site Address"+"@X07"
ANSIPOS 4,11
PRINT VAR025+"Short Description"+"@X07"
ANSIPOS 4,13
PRINT VAR025+"Long Description"+"@X07"
ANSIPOS 34,5
PRINT VAR028+"1 ∙∙ "+VAR032+"E-MAIL "+VAR028+"4 ∙∙ "+VAR032+"Gopher "+VAR028+"7 ∙∙ "+VAR032+"Telnet@X07"
ANSIPOS 34,6
PRINT VAR028+"2 ∙∙ "+VAR032+"Finger "+VAR028+"5 ∙∙ "+VAR032+"IRC "+VAR028+"8 ∙∙ "+VAR032+"WAIS@X07"
ANSIPOS 34,7
PRINT VAR028+"3 ∙∙ "+VAR032+"FTP "+VAR028+"6 ∙∙ "+VAR032+"News "+VAR028+"9 ∙∙ "+VAR032+"WWW/HTTP@X07"
ANSIPOS 19,9
PRINT VAR042+LEFT(VAR071,58)+"@X07"
ANSIPOS 24,11
PRINT VAR042+LEFT(VAR071,53)+"@X07"
ANSIPOS 24,13
PRINT VAR042+LEFT(VAR071,53)+"@X07"
ANSIPOS 24,14
PRINT VAR042+LEFT(VAR071,53)+"@X07"
ANSIPOS 24,15
PRINT VAR042+LEFT(VAR071,53)+"@X07"
ANSIPOS 24,16
PRINT VAR042+LEFT(VAR071,53)+"@X07"
RETURN
:LABEL239
ANSIPOS 4,5
PRINT VAR025+"URL Type : "+VAR032+VAR058
IF (!(LEN(VAR059)>58)) GOTO LABEL240
ANSIPOS 4,9
PRINT VAR025+"Site Address"+"@X07"
ANSIPOS 19,9
PRINT VAR042+LEFT(VAR059,54)+LEFT(VAR071,4)+"@X07"
GOTO LABEL241
:LABEL240
ANSIPOS 4,9
PRINT VAR025+"Site Address"+"@X07"
ANSIPOS 19,9
PRINT VAR042+VAR059+LEFT(VAR071,(58-LEN(VAR059)))+"@X07"
:LABEL241
ANSIPOS 4,11
PRINT VAR025+"Short Description"+"@X07"
ANSIPOS 24,11
PRINT VAR042+VAR060+LEFT(VAR071,(53-LEN(VAR060)))+"@X07"
ANSIPOS 4,13
PRINT VAR025+"Long Description"+"@X07"
ANSIPOS 24,13
PRINT VAR042+VAR061+LEFT(VAR071,(53-LEN(VAR061)))+"@X07"
ANSIPOS 24,14
PRINT VAR042+VAR062+LEFT(VAR071,(53-LEN(VAR062)))+"@X07"
ANSIPOS 24,15
PRINT VAR042+VAR063+LEFT(VAR071,(53-LEN(VAR063)))+"@X07"
ANSIPOS 24,16
PRINT VAR042+VAR064+LEFT(VAR071,(53-LEN(VAR064)))+"@X07"
RETURN
:LABEL242
GOSUB LABEL231
ANSIPOS (80-VAR099)/2,2
PRINT VAR035
RETURN
:LABEL243
LET VAR054=7
:LABEL244
IF (!(((1<0)&(VAR054>=17))|((1>=0)&(VAR054<=17)))) GOTO LABEL245
ANSIPOS 5,VAR054
PRINT LEFT(VAR071,71)
LET VAR054=VAR054+1
GOTO LABEL244
:LABEL245
LET VAR076(1,1)=""
LET VAR076(1,2)=""
LET VAR076(1,3)=""
LET VAR076(1,4)=""
LET VAR076(1,5)=""
LET VAR076(1,6)=""
LET VAR076(1,7)=""
LET VAR076(1,8)=""
LET VAR076(1,9)=""
RETURN
:LABEL246
ANSIPOS 34,5
PRINT LEFT(VAR071,43)
ANSIPOS 34,6
PRINT LEFT(VAR071,43)
ANSIPOS 34,7
PRINT LEFT(VAR071,43)
RETURN
:LABEL247
PRINTLN "@CLS@"
PRINTLN "@X84WARNING!!! @X0E- @X0FYour @X0ECOOLSITE.CF1 @X0Ffile is @X0EMISSING@X0F! You're going to@X07"
PRINTLN " @X0Fneed this file in order to use this PPE.@X07"
PRINTLN ""
PRINTLN " @X0BPlease check the documentation for details on what@X07"
PRINTLN " @X0Bshould be contained in this file!@X07"
PRINTLN ""
PRINTLN " @X09Thanks for installing the COOL SITE Database PPE!@X07"
PRINTLN ""
PRINTLN " @X0FThomas Christoph@X07"
PRINTLN " @X0EWILD PPE Productions@X07"
PRINTLN "@WAIT@"
GOTO LABEL429
:LABEL248
PRINTLN "@CLS@"
PRINTLN "@X84WARNING!!! @X0E- @X0FYour @X0ECOOLSITE.CF2 @X0Ffile is @X0EMISSING@X0F! You're going to@X07"
PRINTLN " @X0Fneed this file in order to use this PPE.@X07"
PRINTLN ""
PRINTLN " @X0BPlease check the documentation for details on what@X07"
PRINTLN " @X0Bshould be contained in this file!@X07"
PRINTLN ""
PRINTLN " @X09Thanks for installing the COOL SITE Database PPE!@X07"
PRINTLN ""
PRINTLN " @X0FThomas Christoph@X07"
PRINTLN " @X0EWILD PPE Productions@X07"
PRINTLN "@WAIT@"
GOTO LABEL429
:LABEL249
PRINTLN "@CLS@"
PRINTLN "@X84WARNING!!! @X0E- @X0FYour @X0ECOOLSITE.CF3 @X0Ffile is @X0EMISSING@X0F! You're going to@X07"
PRINTLN " @X0Fneed this file in order to use this PPE.@X07"
PRINTLN ""
PRINTLN " @X0BPlease check the documentation for details on what@X07"
PRINTLN " @X0Bshould be contained in this file!@X07"
PRINTLN ""
PRINTLN " @X09Thanks for installing the COOL SITE Database PPE!@X07"
PRINTLN ""
PRINTLN " @X0FThomas Christoph@X07"
PRINTLN " @X0EWILD PPE Productions@X07"
PRINTLN "@WAIT@"
GOTO LABEL429
:LABEL250
LET VAR068=""
LET VAR084=0
LET VAR085=0
LET VAR069=""
LET VAR086=0
LET VAR087=0
LET VAR070=""
LET VAR088=0
LET VAR089=0
LET VAR071=" "
LET VAR072="N"
RETURN
:LABEL251
LET VAR077=VAR058
GOSUB LABEL252
LET VAR058=LEFT(VAR058,VAR100)
LET VAR077=VAR059
GOSUB LABEL252
LET VAR059=LEFT(VAR059,VAR100)
LET VAR077=VAR060
GOSUB LABEL252
LET VAR060=LEFT(VAR060,VAR100)
LET VAR077=VAR061
GOSUB LABEL252
LET VAR061=LEFT(VAR061,VAR100)
LET VAR077=VAR062
GOSUB LABEL252
LET VAR062=LEFT(VAR062,VAR100)
LET VAR077=VAR063
GOSUB LABEL252
LET VAR063=LEFT(VAR063,VAR100)
LET VAR077=VAR064
GOSUB LABEL252
LET VAR064=LEFT(VAR064,VAR100)
LET VAR077=VAR065
GOSUB LABEL252
LET VAR065=LEFT(VAR065,VAR100)
RETURN
:LABEL252
IF (!(((LEFT(VAR077,1)=" ")|(LEFT(VAR077,2)=" "))|(LEFT(VAR077,3)=" "))) GOTO LABEL253
LET VAR100=1
GOTO LABEL256
:LABEL253
LET VAR078=" "
LET VAR101=LEN(VAR077)
:LABEL254
IF (!(VAR078=" ")) GOTO LABEL255
LET VAR078=MID(VAR077,VAR101,1)
LET VAR101=VAR101-1
GOTO LABEL254
:LABEL255
LET VAR100=VAR101+1
:LABEL256
RETURN
:LABEL257
PRINTLN "@CLS@"
PRINTLN ""
PRINTLN ""
PRINTLN " @X0E▄██ ███ @X0E▄ ▄█ @X0E▄███▄@X07"
PRINTLN " @X0E▐███▌ ███ @X0E▀█▀▄█ @X0E██ ▀█▄@X07"
PRINTLN " @X01───── @X0E███▌@X01─── @X0E███ @X0E▄█▄ ██ @X0E██ @X01─@X0E▐█▌@X01──────@X07"
PRINTLN " @X0B■▀█▀▄@X03■ @X0E███ ▄█▄▐█▌ @X0E██▌ ██ @X0E▀▄ ▐██ @X0FPPE's@X07"
PRINTLN " @X0B███@XB3▄@X0B▄▀@X03▄ @X0E████▀███ @X0E▐█▌ ██▄███▀▄██▀ @X03─────@X07"
PRINTLN " @X09──────── @X0E█▀ @X09─ @X0E▀ @X0E▀█▀ ▄█▀▀▀▄▄█▀▀ @X09───────@X07"
PRINTLN ""
PRINTLN ""
PRINTLN ""
PRINTLN " @X0ECOOL SITE Internet Site Database@X07"
PRINTLN ""
PRINTLN " @X0F(c) 1996@X07"
PRINTLN " @X0FWILD PPE PRODUCTIONS@X07"
RETURN
:LABEL258
LET VAR095=1
:LABEL259
IF (!(VAR095<41)) GOTO LABEL263
IF (!((((VAR095=2)|(VAR095=8))|(VAR095=12))|(VAR095=18))) GOTO LABEL260
LET VAR096=VAR096+(ASC(MID(VAR019,VAR095,1))*4)
LET VAR096=VAR096+(ASC(MID(VAR020,VAR095,1))*3)
LET VAR096=((ASC(MID(VAR020,VAR095,1))*2)*(ASC(MID(VAR020,VAR095,1))*4)-3)*7+VAR096
LET VAR095=VAR095+1
GOTO LABEL262
:LABEL260
IF (!((((VAR095=3)|(VAR095=7))|(VAR095=14))|(VAR095=16))) GOTO LABEL261
LET VAR096=VAR096+(ASC(MID(VAR019,VAR095,1))*2)
LET VAR096=VAR096+(ASC(MID(VAR020,VAR095,1))*3)
LET VAR096=((ASC(MID(VAR020,VAR095,1))*4)*(ASC(MID(VAR020,VAR095,1))*6)-5)*8+VAR096
LET VAR095=VAR095+1
GOTO LABEL262
:LABEL261
LET VAR096=VAR096+(ASC(MID(VAR019,VAR095,1))*5)
LET VAR096=VAR096+(ASC(MID(VAR020,VAR095,1))*4)
LET VAR096=((ASC(MID(VAR020,VAR095,1))*2)*(ASC(MID(VAR020,VAR095,1))*2)-8)*2+VAR096
LET VAR095=VAR095+1
:LABEL262
GOTO LABEL259
:LABEL263
LET VAR096=(VAR096+3)*2+(ASC(MID(VAR019,5,1))*9)+3
IF (!(VAR096=VAR093)) GOTO LABEL264
LET VAR119=1
GOTO LABEL265
:LABEL264
LET VAR119=0
:LABEL265
LET VAR095=0
LET VAR096=0
RETURN
:LABEL266
PRINTLN "@CLS@ @X0E▄██ ███ @X0E▄ ▄█ @X0E▄███▄@X07"
PRINTLN " @X0E▐███▌ ███ @X0E▀█▀▄█ @X0E██ ▀█▄ @X84«@X8C«@X8B« @X8EUN@X8F-@X8EREGISTERED @X8B»@X8C»@X84»@X07"
PRINTLN "@X01───── @X0E███▌@X01─── @X0E███ @X0E▄█▄ ██ @X0E██ @X01─@X0E▐█▌@X01────── @X0FLIMIT REACHED@X07"
PRINTLN "@X0B■▀█▀▄@X03■ @X0E███ ▄█▄▐█▌ @X0E██▌ ██ @X0E▀▄ ▐██ @X0FPPE's @X0F┌───────────────────────────@X07┐"
PRINTLN "@X0B███@XB3▄@X0B▄▀@X03▄ @X0E████▀███ @X0E▐█▌ ██▄███▀▄██▀ @X03───── @X0F│ @X0A25 record limit @X07│"
PRINTLN "@X09──────── @X0E█▀ @X09─ @X0E▀ @X0E▀█▀ ▄█▀▀▀▄▄█▀▀ @X09─────── @X0F│ @X0Aon UN-REGISTERED Shareware@X07@X07│"
PRINTLN " @X0F│ @X0Aversion @X07│"
PRINTLN " @X0FBenefits of REGISTERING (only $15.00) └@X07───────────────────────────┘"
PRINTLN " @X0E───────────────────────@X07"
PRINTLN " @X0A∙ @X0BDelays entering & leaving Coolsite Internet Site Database Removed!@X07"
PRINTLN " @X02∙ @X0CNO RECORD LIMIT @X0E- @X03UNLIMITED Database size@X07"
PRINTLN " @X0A∙ @X0CUN-REGISTERED comments removed @X0Bfrom download listings@X07"
PRINTLN " @X02∙ @X03The @X0CSATISFACTION @X03of knowing you're supporting the efforts of@X07"
PRINTLN " @X03the programmers involved in the creation of this PPE!@X07"
PRINTLN ""
PRINTLN " @X0EPlease ENCOURAGE your SYSOP to REGISTER THIS PPE@X0A! @X0F..@X07.@X08. @X0FTHANKS!@X07"
GOSUB LABEL236
LET VAR053="Press ANY KEY to return to Main Menu"
GOSUB LABEL227
RETURN
:LABEL267
IF (!EXIST(PPEPATH()+"COOLSITE.CF2")) GOTO LABEL271
FOPEN 1,PPEPATH()+"COOLSITE.CF2",O_RD,S_DW
LET VAR054=1
:LABEL268
IF (!(((1<0)&(VAR054>=10))|((1>=0)&(VAR054<=10)))) GOTO LABEL270
FGET 1,VAR078
IF (!(VAR078=U_NAME())) GOTO LABEL269
LET VAR120=1
:LABEL269
LET VAR054=VAR054+1
GOTO LABEL268
:LABEL270
FCLOSE 1
GOTO LABEL272
:LABEL271
GOSUB LABEL248
:LABEL272
RETURN
:LABEL273
DISPFILE PPEPATH()+"COOLSITE.HLP",2+1+4
RETURN
:LABEL274
DISPFILE PPEPATH()+"COOLSITE.D04",2+1+4
GOSUB LABEL236
ANSIPOS 1,5
PRINTLN VAR028+"URL Created by "+VAR030+": "+VAR032+VAR065
PRINTLN VAR028+"URL Creation Date "+VAR030+": "+VAR032+VAR066
PRINTLN
PRINTLN VAR028+"URL Type "+VAR030+": "+VAR032+VAR073(1,VAR057)
IF (!(LEN(VAR059)<50)) GOTO LABEL275
PRINTLN VAR028+"Site Address "+VAR030+": "+VAR032+VAR059
GOTO LABEL276
:LABEL275
PRINTLN VAR028+"Site Address "+VAR030+": "+VAR032+LEFT(VAR059,50)+VAR030+"∙∙∙"
:LABEL276
PRINTLN
PRINTLN VAR028+"Short Description "+VAR030+": "+VAR032+VAR060
PRINTLN
PRINTLN VAR028+"Long Description "+VAR030+": "+VAR032+VAR061
PRINTLN VAR032+" "+VAR032+VAR062
PRINTLN VAR032+" "+VAR032+VAR063
PRINTLN VAR032+" "+VAR032+VAR064
LET VAR053="Press [Y]es to DELETE THIS URL or Press [N]o to Abort Delete"
GOSUB LABEL227
RETURN
:LABEL277
LET VAR050=""
:LABEL278
IF (!(VAR050="")) GOTO LABEL282
LET VAR050=INKEY()
IF (!((VAR050="Y")|(VAR050="y"))) GOTO LABEL279
DGO 1,VAR076(1,VAR106)
DDELETE 1
DPACK 1
LET VAR053="Record has been DELETED! Press [ANY KEY] to Return to Main Menu"
GOSUB LABEL227
GOSUB LABEL219
GOTO LABEL281
:LABEL279
IF (!((VAR050="N")|(VAR050="n"))) GOTO LABEL280
LET VAR053="Delete ABORTED - Press [ANY KEY] to Return to Main Menu"
GOSUB LABEL227
GOSUB LABEL219
GOTO LABEL281
:LABEL280
GOTO LABEL277
:LABEL281
GOTO LABEL278
:LABEL282
RETURN
:LABEL283
IF (!(VAR001="3")) GOTO LABEL284
GOSUB LABEL237
GOTO LABEL285
:LABEL284
GOSUB LABEL237
LET VAR053=" "
GOSUB LABEL227
LET VAR053="Processing ... Press [A] to Abort"
GOSUB LABEL225
:LABEL285
LET VAR087=1
LET VAR054=1
:LABEL286
IF (!(((1<0)&(VAR054>=DRECCOUNT(1)))|((1>=0)&(VAR054<=DRECCOUNT(1))))) GOTO LABEL302
DGO 1,VAR054
DGET 1,"DATE",VAR066
DGET 1,"URL_NUM",VAR057
DGET 1,"USER",VAR065
DGET 1,"ADDRESS",VAR059
DGET 1,"SHORT_DESC",VAR060
DGET 1,"LONG_DESC1",VAR061
DGET 1,"LONG_DESC2",VAR062
DGET 1,"LONG_DESC3",VAR063
DGET 1,"LONG_DESC4",VAR064
IF (!(VAR001<>"3")) GOTO LABEL287
LET VAR053="Searching Record "+STRING(VAR054)+" of "+STRING(DRECCOUNT(1))
GOSUB LABEL227
GOSUB LABEL303
:LABEL287
IF (!(VAR001="1")) GOTO LABEL290
IF (!(VAR066>=VAR079)) GOTO LABEL288
LET VAR002(1,VAR087)=VAR054
GOSUB LABEL305
LET VAR087=VAR087+1
IF (!(VAR004="Y")) GOTO LABEL288
LET VAR004="N"
RETURN
:LABEL288
IF (!(VAR054=DRECCOUNT(1))) GOTO LABEL289
GOSUB LABEL330
GOSUB LABEL320
:LABEL289
GOTO LABEL301
:LABEL290
IF (!(VAR001="2")) GOTO LABEL293
IF (!(VAR057=TOINTEGER(VAR003))) GOTO LABEL291
LET VAR002(1,VAR087)=VAR054
GOSUB LABEL305
LET VAR087=VAR087+1
IF (!(VAR004="Y")) GOTO LABEL291
LET VAR004="N"
RETURN
:LABEL291
IF (!(VAR054=DRECCOUNT(1))) GOTO LABEL292
GOSUB LABEL330
GOSUB LABEL320
:LABEL292
GOTO LABEL301
:LABEL293
IF (!(VAR001="3")) GOTO LABEL296
GOSUB LABEL332
IF (!VAR123) GOTO LABEL294
LET VAR123=0
LET VAR002(1,VAR087)=VAR054
GOSUB LABEL305
LET VAR087=VAR087+1
IF (!(VAR004="Y")) GOTO LABEL294
LET VAR004="N"
RETURN
:LABEL294
IF (!(VAR054=DRECCOUNT(1))) GOTO LABEL295
GOSUB LABEL330
GOSUB LABEL320
:LABEL295
GOTO LABEL301
:LABEL296
IF (!(VAR001="4")) GOTO LABEL299
IF (!(VAR065=(U_NAME()+LEFT(VAR071,(LEN(VAR065)-LEN(U_NAME())))))) GOTO LABEL297
LET VAR002(1,VAR087)=VAR054
GOSUB LABEL305
LET VAR087=VAR087+1
IF (!(VAR004="Y")) GOTO LABEL297
LET VAR004="N"
RETURN
:LABEL297
IF (!(VAR054=DRECCOUNT(1))) GOTO LABEL298
GOSUB LABEL330
GOSUB LABEL320
:LABEL298
GOTO LABEL301
:LABEL299
IF (!(VAR001="5")) GOTO LABEL301
LET VAR002(1,VAR087)=VAR054
GOSUB LABEL305
LET VAR087=VAR087+1
IF (!(VAR004="Y")) GOTO LABEL300
LET VAR004="N"
RETURN
:LABEL300
IF (!(VAR054=DRECCOUNT(1))) GOTO LABEL301
GOSUB LABEL330
GOSUB LABEL320
:LABEL301
LET VAR054=VAR054+1
GOTO LABEL286
:LABEL302
LET VAR004="N"
RETURN
:LABEL303
LET VAR007=INKEY()
IF (!(UPPER(VAR007)="A")) GOTO LABEL304
LET VAR054=DRECCOUNT(1)
:LABEL304
RETURN
:LABEL305
ANSIPOS 5,VAR087+5
PRINTLN VAR028+STRING(VAR087-1)+VAR030+") "+VAR032+LEFT(VAR060,40)+" "+LEFT(VAR059,22)+VAR030+"..."
IF (!((VAR054<>DRECCOUNT(1))&(VAR087=10))) GOTO LABEL315
LET VAR053="Select the URL number for more information, [N]ext Page, or [Q]uit"
GOSUB LABEL227
LET VAR053=" "
GOSUB LABEL225
LET VAR005=""
:LABEL306
IF (!(VAR005="")) GOTO LABEL314
LET VAR005=INKEY()
IF (!((VAR005="Q")|(VAR005="q"))) GOTO LABEL307
LET VAR004="Y"
RETURN
:LABEL307
IF (!((VAR005="N")|(VAR005="n"))) GOTO LABEL312
LET VAR053="Processing ... Press [A] to Abort"
GOSUB LABEL225
LET VAR087=0
LET VAR098=6
:LABEL308
IF (!(((1<0)&(VAR098>=17))|((1>=0)&(VAR098<=17)))) GOTO LABEL309
ANSIPOS 5,VAR098
PRINT LEFT(VAR071,71)
LET VAR098=VAR098+1
GOTO LABEL308
:LABEL309
LET VAR098=1
:LABEL310
IF (!(((1<0)&(VAR098>=10))|((1>=0)&(VAR098<=10)))) GOTO LABEL311
LET VAR002(1,VAR098)=""
LET VAR098=VAR098+1
GOTO LABEL310
:LABEL311
RETURN
:LABEL312
IF (!(((((((((((VAR005="0")|(VAR005="1"))|(VAR005="2"))|(VAR005="3"))|(VAR005="4"))|(VAR005="5"))|(VAR005="6"))|(VAR005="7"))|(VAR005="8"))|(VAR005="9"))&(VAR002(1,(VAR005+1))<>""))) GOTO LABEL313
DGO 1,VAR002(1,TOINTEGER(VAR005+1))
DGET 1,"URL_NUM",VAR057
DGET 1,"URL_TYPE",VAR058
DGET 1,"ADDRESS",VAR059
DGET 1,"SHORT_DESC",VAR060
DGET 1,"LONG_DESC1",VAR061
DGET 1,"LONG_DESC2",VAR062
DGET 1,"LONG_DESC3",VAR063
DGET 1,"LONG_DESC4",VAR064
DGET 1,"USER",VAR065
DGET 1,"DATE",VAR066
GOSUB LABEL325
RETURN
:LABEL313
LET VAR005=""
GOTO LABEL306
:LABEL314
GOTO LABEL319
:LABEL315
IF (!((VAR054=DRECCOUNT(1))&(VAR087<=10))) GOTO LABEL319
LET VAR053="Select the URL number for more information, or [Q]uit"
GOSUB LABEL227
LET VAR053=" "
GOSUB LABEL225
LET VAR005=""
:LABEL316
IF (!(VAR005="")) GOTO LABEL319
LET VAR005=INKEY()
IF (!((VAR005="Q")|(VAR005="q"))) GOTO LABEL317
LET VAR004="Y"
RETURN
:LABEL317
IF (!(((((((((((VAR005="0")|(VAR005="1"))|(VAR005="2"))|(VAR005="3"))|(VAR005="4"))|(VAR005="5"))|(VAR005="6"))|(VAR005="7"))|(VAR005="8"))|(VAR005="9"))&(VAR002(1,(VAR005+1))<>""))) GOTO LABEL318
DGO 1,VAR002(1,TOINTEGER(VAR005+1))
DGET 1,"URL_NUM",VAR057
DGET 1,"URL_TYPE",VAR058
DGET 1,"ADDRESS",VAR059
DGET 1,"SHORT_DESC",VAR060
DGET 1,"LONG_DESC1",VAR061
DGET 1,"LONG_DESC2",VAR062
DGET 1,"LONG_DESC3",VAR063
DGET 1,"LONG_DESC4",VAR064
DGET 1,"USER",VAR065
DGET 1,"DATE",VAR066
GOSUB LABEL325
RETURN
:LABEL318
LET VAR005=""
GOTO LABEL316
:LABEL319
RETURN
:LABEL320
IF (!((VAR054=DRECCOUNT(1))&(VAR087<=10))) GOTO LABEL324
LET VAR053="Select the URL number for more information, or [Q]uit"
GOSUB LABEL227
LET VAR053=" "
GOSUB LABEL225
LET VAR005=""
:LABEL321
IF (!(VAR005="")) GOTO LABEL324
LET VAR005=INKEY()
IF (!((VAR005="Q")|(VAR005="q"))) GOTO LABEL322
LET VAR004="Y"
RETURN
:LABEL322
IF (!(((((((((((VAR005="0")|(VAR005="1"))|(VAR005="2"))|(VAR005="3"))|(VAR005="4"))|(VAR005="5"))|(VAR005="6"))|(VAR005="7"))|(VAR005="8"))|(VAR005="9"))&(VAR002(1,(VAR005+1))<>""))) GOTO LABEL323
DGO 1,VAR002(1,TOINTEGER(VAR005+1))
DGET 1,"URL_NUM",VAR057
DGET 1,"URL_TYPE",VAR058
DGET 1,"ADDRESS",VAR059
DGET 1,"SHORT_DESC",VAR060
DGET 1,"LONG_DESC1",VAR061
DGET 1,"LONG_DESC2",VAR062
DGET 1,"LONG_DESC3",VAR063
DGET 1,"LONG_DESC4",VAR064
DGET 1,"USER",VAR065
DGET 1,"DATE",VAR066
GOSUB LABEL325
RETURN
:LABEL323
LET VAR005=""
GOTO LABEL321
:LABEL324
RETURN
:LABEL325
DISPFILE PPEPATH()+"COOLSITE.D03",2+1+4
PRINTLN VAR028+"Created by "+VAR030+": "+VAR032+VAR065+VAR028+" Creation Date "+VAR030+": "+VAR032+VAR066
PRINTLN
PRINTLN VAR028+"URL Type "+VAR030+": "+VAR032+VAR075(1,VAR057)
PRINTLN VAR028+"Site Address "+VAR030+": "+VAR032+VAR059
PRINTLN
PRINTLN VAR028+"Short Description "+VAR030+": "+VAR032+VAR060
PRINTLN VAR028+"Long Description "+VAR030+": "+VAR032+VAR061
PRINTLN VAR032+" "+VAR032+VAR062
PRINTLN VAR032+" "+VAR032+VAR063
PRINTLN VAR032+" "+VAR032+VAR064
GOSUB LABEL236
LET VAR050=""
LET VAR053="Press [Q] to Quit"
GOSUB LABEL227
LET VAR005=""
:LABEL326
IF (!(VAR005="")) GOTO LABEL329
LET VAR005=INKEY()
IF (!((VAR005="Q")|(VAR005="q"))) GOTO LABEL327
LET VAR004="Y"
GOTO LABEL328
:LABEL327
LET VAR005=""
:LABEL328
GOTO LABEL326
:LABEL329
RETURN
:LABEL330
IF (!(VAR002(1,1)="")) GOTO LABEL331
LET VAR083="Y"
ANSIPOS 10,11
PRINTLN VAR028+"Sorry"+VAR030+", "+VAR028+"NO records were found that match your search criteria"+VAR030+"!"
:LABEL331
RETURN
:LABEL332
LET VAR053="Searching Database for Keyword -> "+UPPER(VAR003)+" <-, Hold Down [A] to Abort"
GOSUB LABEL227
LET VAR053="Processing Record : "+STRING(VAR054)+" of "+STRING(DRECCOUNT(1))
GOSUB LABEL225
IF (!((INKEY()="A")|(INKEY()="a"))) GOTO LABEL333
LET VAR053="Search ABORTED ... "+STRING(VAR054)+" of "+STRING(DRECCOUNT(1))+" Database records were searched"
GOSUB LABEL225
LET VAR054=DRECCOUNT(1)
RETURN
:LABEL333
IF (!(VAR080="Y")) GOTO LABEL336
LET VAR118=1
:LABEL334
IF (!(((1<0)&(VAR118>=(LEN(VAR059)-LEN(VAR003))))|((1>=0)&(VAR118<=(LEN(VAR059)-LEN(VAR003)))))) GOTO LABEL336
IF (!(UPPER(MID(VAR059,VAR118,LEN(VAR003)))=UPPER(VAR003))) GOTO LABEL335
LET VAR123=1
RETURN
:LABEL335
LET VAR118=VAR118+1
GOTO LABEL334
:LABEL336
IF (!(VAR081="Y")) GOTO LABEL339
LET VAR118=1
:LABEL337
IF (!(((1<0)&(VAR118>=(LEN(VAR060)-LEN(VAR003))))|((1>=0)&(VAR118<=(LEN(VAR060)-LEN(VAR003)))))) GOTO LABEL339
IF (!(UPPER(MID(VAR060,VAR118,LEN(VAR003)))=UPPER(VAR003))) GOTO LABEL338
LET VAR123=1
RETURN
:LABEL338
LET VAR118=VAR118+1
GOTO LABEL337
:LABEL339
IF (!(VAR082="Y")) GOTO LABEL351
LET VAR118=1
:LABEL340
IF (!(((1<0)&(VAR118>=(LEN(VAR061)-LEN(VAR003))))|((1>=0)&(VAR118<=(LEN(VAR061)-LEN(VAR003)))))) GOTO LABEL342
IF (!(UPPER(MID(VAR061,VAR118,LEN(VAR003)))=UPPER(VAR003))) GOTO LABEL341
LET VAR123=1
RETURN
:LABEL341
LET VAR118=VAR118+1
GOTO LABEL340
:LABEL342
LET VAR118=1
:LABEL343
IF (!(((1<0)&(VAR118>=(LEN(VAR062)-LEN(VAR003))))|((1>=0)&(VAR118<=(LEN(VAR062)-LEN(VAR003)))))) GOTO LABEL345
IF (!(UPPER(MID(VAR062,VAR118,LEN(VAR003)))=UPPER(VAR003))) GOTO LABEL344
LET VAR123=1
RETURN
:LABEL344
LET VAR118=VAR118+1
GOTO LABEL343
:LABEL345
LET VAR118=1
:LABEL346
IF (!(((1<0)&(VAR118>=(LEN(VAR063)-LEN(VAR003))))|((1>=0)&(VAR118<=(LEN(VAR063)-LEN(VAR003)))))) GOTO LABEL348
IF (!(UPPER(MID(VAR063,VAR118,LEN(VAR003)))=UPPER(VAR003))) GOTO LABEL347
LET VAR123=1
RETURN
:LABEL347
LET VAR118=VAR118+1
GOTO LABEL346
:LABEL348
LET VAR118=1
:LABEL349
IF (!(((1<0)&(VAR118>=(LEN(VAR064)-LEN(VAR003))))|((1>=0)&(VAR118<=(LEN(VAR064)-LEN(VAR003)))))) GOTO LABEL351
IF (!(UPPER(MID(VAR064,VAR118,LEN(VAR003)))=UPPER(VAR003))) GOTO LABEL350
LET VAR123=1
RETURN
:LABEL350
LET VAR118=VAR118+1
GOTO LABEL349
:LABEL351
RETURN
:LABEL352
IF (!(VAR001="3")) GOTO LABEL353
GOSUB LABEL237
GOTO LABEL354
:LABEL353
GOSUB LABEL237
LET VAR053=" "
GOSUB LABEL227
LET VAR053="Processing ... Press [A] to Abort"
GOSUB LABEL225
:LABEL354
LET VAR087=1
LET VAR054=1
:LABEL355
IF (!(((1<0)&(VAR054>=DRECCOUNT(1)))|((1>=0)&(VAR054<=DRECCOUNT(1))))) GOTO LABEL371
DGO 1,VAR054
DGET 1,"DATE",VAR066
DGET 1,"URL_NUM",VAR057
DGET 1,"USER",VAR065
DGET 1,"ADDRESS",VAR059
DGET 1,"SHORT_DESC",VAR060
DGET 1,"LONG_DESC1",VAR061
DGET 1,"LONG_DESC2",VAR062
DGET 1,"LONG_DESC3",VAR063
DGET 1,"LONG_DESC4",VAR064
IF (!(VAR001<>"3")) GOTO LABEL356
LET VAR053="Creating File for Download - Working on Record "+STRING(VAR054)+" of "+STRING(DRECCOUNT(1))
GOSUB LABEL227
GOSUB LABEL303
:LABEL356
IF (!(VAR001="1")) GOTO LABEL359
IF (!(VAR066>=VAR079)) GOTO LABEL357
LET VAR002(1,VAR087)=VAR054
GOSUB LABEL372
LET VAR087=VAR087+1
IF (!(VAR004="Y")) GOTO LABEL357
LET VAR004="N"
RETURN
:LABEL357
IF (!(VAR054=DRECCOUNT(1))) GOTO LABEL358
GOSUB LABEL330
:LABEL358
GOTO LABEL370
:LABEL359
IF (!(VAR001="2")) GOTO LABEL362
IF (!(VAR057=TOINTEGER(VAR003))) GOTO LABEL360
LET VAR002(1,VAR087)=VAR054
GOSUB LABEL372
LET VAR087=VAR087+1
IF (!(VAR004="Y")) GOTO LABEL360
LET VAR004="N"
RETURN
:LABEL360
IF (!(VAR054=DRECCOUNT(1))) GOTO LABEL361
GOSUB LABEL330
:LABEL361
GOTO LABEL370
:LABEL362
IF (!(VAR001="3")) GOTO LABEL365
GOSUB LABEL332
IF (!VAR123) GOTO LABEL363
LET VAR123=0
LET VAR002(1,VAR087)=VAR054
GOSUB LABEL372
LET VAR087=VAR087+1
IF (!(VAR004="Y")) GOTO LABEL363
LET VAR004="N"
RETURN
:LABEL363
IF (!(VAR054=DRECCOUNT(1))) GOTO LABEL364
GOSUB LABEL330
:LABEL364
GOTO LABEL370
:LABEL365
IF (!(VAR001="4")) GOTO LABEL368
IF (!(VAR065=(U_NAME()+LEFT(VAR071,(LEN(VAR065)-LEN(U_NAME())))))) GOTO LABEL366
LET VAR002(1,VAR087)=VAR054
GOSUB LABEL372
LET VAR087=VAR087+1
IF (!(VAR004="Y")) GOTO LABEL366
LET VAR004="N"
RETURN
:LABEL366
IF (!(VAR054=DRECCOUNT(1))) GOTO LABEL367
GOSUB LABEL330
:LABEL367
GOTO LABEL370
:LABEL368
IF (!(VAR001="5")) GOTO LABEL370
LET VAR002(1,VAR087)=VAR054
GOSUB LABEL372
LET VAR087=VAR087+1
IF (!(VAR004="Y")) GOTO LABEL369
LET VAR004="N"
RETURN
:LABEL369
IF (!(VAR054=DRECCOUNT(1))) GOTO LABEL370
GOSUB LABEL330
:LABEL370
LET VAR054=VAR054+1
GOTO LABEL355
:LABEL371
LET VAR004="N"
RETURN
:LABEL372
IF (!(VAR001<>"3")) GOTO LABEL373
LET VAR053="Creating File for Download - Working on Record "+STRING(VAR054)+" of "+STRING(DRECCOUNT(1))
GOSUB LABEL227
:LABEL373
LET VAR077=VAR059
GOSUB LABEL252
LET VAR059=LEFT(VAR059,VAR100)
LET VAR077=VAR060
GOSUB LABEL252
LET VAR060=LEFT(VAR060,VAR100)
IF (!(VAR067="HTML")) GOTO LABEL374
FPUTLN 0,"<LI><a href="+CHR(34)+VAR059+CHR(34)+">"+VAR060+"</a>"
GOTO LABEL375
:LABEL374
FPUTLN 2,"Address : "+VAR059
FPUTLN 2,"Short Description : "+VAR060
FPUTLN 2,"Long Description : "+VAR061
FPUTLN 2," "+VAR062
FPUTLN 2," "+VAR063
FPUTLN 2," "+VAR064
FPUTLN 2,"=============================================================================="
:LABEL375
RETURN
:LABEL376
ANSIPOS 12,11
PRINTLN VAR042+"Download in HTML format"+"@X07"
ANSIPOS 45,11
PRINTLN VAR028+"Download in TEXT format"+"@X07"
GOSUB LABEL236
LET VAR053="Use SPACE BAR to highlight selection and Press [ENTER], or [A] to Abort"
GOSUB LABEL227
LET VAR050=""
LET VAR067="TEXT"
:LABEL377
IF (!(VAR050="")) GOTO LABEL385
LET VAR050=INKEY()
IF (!(VAR050=CHR(13))) GOTO LABEL379
IF (!(VAR067="HTML")) GOTO LABEL378
LET VAR067="TEXT"
RETURN
:LABEL378
LET VAR067="HTML"
RETURN
:LABEL379
IF (!(VAR050=CHR(32))) GOTO LABEL382
IF (!(VAR067="HTML")) GOTO LABEL380
ANSIPOS 12,11
PRINTLN VAR042+"Download in HTML format"+"@X07"
ANSIPOS 45,11
PRINTLN VAR028+"Download in TEXT format"+"@X07"
LET VAR067="TEXT"
LET VAR050=""
GOTO LABEL381
:LABEL380
ANSIPOS 12,11
PRINTLN VAR028+"Download in HTML format"+"@X07"
ANSIPOS 45,11
PRINTLN VAR042+"Download in TEXT format"+"@X07"
LET VAR067="HTML"
LET VAR050=""
:LABEL381
GOTO LABEL384
:LABEL382
IF (!((VAR050="A")|(VAR050="a"))) GOTO LABEL383
RETURN
:LABEL383
LET VAR050=""
:LABEL384
GOTO LABEL377
:LABEL385
RETURN
:LABEL386
ANSIPOS 12,11
PRINTLN VAR071
ANSIPOS 14,11
PRINTLN VAR028+"Now creating your file for download"+VAR030+" ... "+VAR032+"Please wait"+VAR030+"!"+"@X07"
RETURN
:LABEL387
IF (!(VAR083="Y")) GOTO LABEL388
LET VAR083="N"
GOTO LABEL395
:LABEL388
ANSIPOS 12,11
PRINTLN VAR071
ANSIPOS 11,11
PRINTLN VAR028+"Your file has been created"+VAR030+". "+VAR032+"Please select download option"+VAR030+"."+"@X07"
LET VAR053="Press [D] to Download file, or [Q] to Quit"
GOSUB LABEL227
LET VAR053=" "
GOSUB LABEL225
LET VAR050=""
:LABEL389
IF (!(VAR050="")) GOTO LABEL395
LET VAR050=INKEY()
IF (!((VAR050="D")|(VAR050="d"))) GOTO LABEL392
GOSUB LABEL396
IF (!(VAR067="HTML")) GOTO LABEL390
PRINTLN VAR028+"Compressing HTML file using "+VAR032+VAR011+VAR028+" Compression "+VAR030+"... "+VAR028+"Please wait"+VAR030+"!"+"@X07"
SHELL 1,VAR014,VAR010+VAR011,VAR012+" "+VAR008+VAR006+" "+VAR008+VAR006+".HTM"
DOWNLOAD VAR006+VAR013
DELETE VAR008+VAR006+VAR013
GOTO LABEL391
:LABEL390
PRINTLN VAR028+"Compressing HTML file using "+VAR032+VAR011+VAR028+" Compression "+VAR030+"... "+VAR028+"Please wait"+VAR030+"!"+"@X07"
SHELL 1,VAR014,VAR010+VAR011,VAR012+" "+VAR008+VAR006+" "+VAR008+VAR006+".TXT"
DOWNLOAD VAR006+VAR013
DELETE VAR008+VAR006+VAR013
:LABEL391
GOTO LABEL394
:LABEL392
IF (!((VAR050="Q")|(VAR050="q"))) GOTO LABEL393
RETURN
:LABEL393
LET VAR050=""
:LABEL394
GOTO LABEL389
:LABEL395
RETURN
:LABEL396
LET VAR090=0
LET VAR091=0
IF (!EXIST(PPEPATH()+"COOLSITE.CF3")) GOTO LABEL423
FOPEN 3,PPEPATH()+"COOLSITE.CF3",O_RD,S_DW
LET VAR090=1
:LABEL397
IF (!(((1<0)&(VAR090>=5))|((1>=0)&(VAR090<=5)))) GOTO LABEL399
FGET 3,VAR015
FGET 3,VAR010
FGET 3,VAR011
FGET 3,VAR012
FGET 3,VAR013
LET VAR027(1,VAR090)=VAR015
LET VAR027(2,VAR090)=VAR010
LET VAR027(3,VAR090)=VAR011
LET VAR027(4,VAR090)=VAR012
LET VAR027(5,VAR090)=VAR013
IF (!(VAR027(1,VAR090)<>"")) GOTO LABEL398
LET VAR091=VAR090
:LABEL398
LET VAR090=VAR090+1
GOTO LABEL397
:LABEL399
FCLOSE 3
DISPFILE PPEPATH()+"COOLSITE.D22",2+1+4
GOSUB LABEL236
LET VAR053="Use Spacebar to Highlight compression method, and Press [ENTER]"
GOSUB LABEL227
ANSIPOS (80-LEN(VAR027(1,1)))/2,7
PRINTLN VAR042+VAR027(1,1)
ANSIPOS (80-LEN(VAR027(1,2)))/2,9
PRINTLN VAR028+VAR027(1,2)
ANSIPOS (80-LEN(VAR027(1,3)))/2,11
PRINTLN VAR028+VAR027(1,3)
ANSIPOS (80-LEN(VAR027(1,4)))/2,13
PRINTLN VAR028+VAR027(1,4)
ANSIPOS (80-LEN(VAR027(1,5)))/2,15
PRINTLN VAR028+VAR027(1,5)
LET VAR050=""
LET VAR092=1
:LABEL400
IF (!(VAR050="")) GOTO LABEL422
LET VAR050=INKEY()
IF (!(VAR050=CHR(13))) GOTO LABEL406
IF (!(VAR092=1)) GOTO LABEL401
LET VAR010=VAR027(2,1)
LET VAR011=VAR027(3,1)
LET VAR012=VAR027(4,1)
LET VAR013=VAR027(5,1)
GOTO LABEL405
:LABEL401
IF (!(VAR092=2)) GOTO LABEL402
LET VAR010=VAR027(2,2)
LET VAR011=VAR027(3,2)
LET VAR012=VAR027(4,2)
LET VAR013=VAR027(5,2)
GOTO LABEL405
:LABEL402
IF (!(VAR092=3)) GOTO LABEL403
LET VAR010=VAR027(2,3)
LET VAR011=VAR027(3,3)
LET VAR012=VAR027(4,3)
LET VAR013=VAR027(5,3)
GOTO LABEL405
:LABEL403
IF (!(VAR092=4)) GOTO LABEL404
LET VAR010=VAR027(2,4)
LET VAR011=VAR027(3,4)
LET VAR012=VAR027(4,4)
LET VAR013=VAR027(5,4)
GOTO LABEL405
:LABEL404
LET VAR010=VAR027(2,5)
LET VAR011=VAR027(3,5)
LET VAR012=VAR027(4,5)
LET VAR013=VAR027(5,5)
:LABEL405
RETURN
:LABEL406
IF (!(VAR050=CHR(32))) GOTO LABEL420
IF (!(VAR092=1)) GOTO LABEL409
IF (!(VAR092=VAR091)) GOTO LABEL407
ANSIPOS (80-LEN(VAR027(1,1)))/2,7
PRINTLN VAR042+VAR027(1,1)
LET VAR092=1
GOTO LABEL408
:LABEL407
ANSIPOS (80-LEN(VAR027(1,1)))/2,7
PRINTLN VAR028+VAR027(1,1)
ANSIPOS (80-LEN(VAR027(1,2)))/2,9
PRINTLN VAR042+VAR027(1,2)
LET VAR092=2
:LABEL408
GOTO LABEL419
:LABEL409
IF (!(VAR092=2)) GOTO LABEL412
IF (!(VAR092=VAR091)) GOTO LABEL410
ANSIPOS (80-LEN(VAR027(1,2)))/2,9
PRINTLN VAR028+VAR027(1,2)
ANSIPOS (80-LEN(VAR027(1,1)))/2,7
PRINTLN VAR042+VAR027(1,1)
LET VAR092=1
GOTO LABEL411
:LABEL410
ANSIPOS (80-LEN(VAR027(1,2)))/2,9
PRINTLN VAR028+VAR027(1,2)
ANSIPOS (80-LEN(VAR027(1,3)))/2,11
PRINTLN VAR042+VAR027(1,3)
LET VAR092=3
:LABEL411
GOTO LABEL419
:LABEL412
IF (!(VAR092=3)) GOTO LABEL415
IF (!(VAR092=VAR091)) GOTO LABEL413
ANSIPOS (80-LEN(VAR027(1,3)))/2,11
PRINTLN VAR028+VAR027(1,3)
ANSIPOS (80-LEN(VAR027(1,1)))/2,7
PRINTLN VAR042+VAR027(1,1)
LET VAR092=1
GOTO LABEL414
:LABEL413
ANSIPOS (80-LEN(VAR027(1,3)))/2,11
PRINTLN VAR028+VAR027(1,3)
ANSIPOS (80-LEN(VAR027(1,4)))/2,13
PRINTLN VAR042+VAR027(1,4)
LET VAR092=4
:LABEL414
GOTO LABEL419
:LABEL415
IF (!(VAR092=4)) GOTO LABEL418
IF (!(VAR092=VAR091)) GOTO LABEL416
ANSIPOS (80-LEN(VAR027(1,4)))/2,13
PRINTLN VAR028+VAR027(1,4)
ANSIPOS (80-LEN(VAR027(1,1)))/2,7
PRINTLN VAR042+VAR027(1,1)
LET VAR092=1
GOTO LABEL417
:LABEL416
ANSIPOS (80-LEN(VAR027(1,4)))/2,13
PRINTLN VAR028+VAR027(1,4)
ANSIPOS (80-LEN(VAR027(1,5)))/2,15
PRINTLN VAR042+VAR027(1,5)
LET VAR092=5
:LABEL417
GOTO LABEL419
:LABEL418
ANSIPOS (80-LEN(VAR027(1,5)))/2,15
PRINTLN VAR028+VAR027(1,5)
ANSIPOS (80-LEN(VAR027(1,1)))/2,7
PRINTLN VAR042+VAR027(1,1)
LET VAR092=1
:LABEL419
LET VAR050=""
GOTO LABEL421
:LABEL420
LET VAR050=""
:LABEL421
GOTO LABEL400
:LABEL422
GOTO LABEL424
:LABEL423
GOSUB LABEL249
:LABEL424
RETURN
:LABEL425
FPUTLN 0,"<html>"
FPUTLN 0,"<head>"
FPUTLN 0,"<title>WILD PPE PRODUCTIONS - Coolsite Database Extract</title>"
FPUTLN 0,"</head>"
FPUTLN 0,"<body>"
FPUTLN 0,"<center><h1><i>COOLSITES</i></h1>"
FPUTLN 0,"<br><h3>(c) 1996 WILD PPE PRODUCTIONS</h3><br>"
FPUTLN 0,"<h2><b>Generated by Coolsite Internet Site Database [PPE] for PCBoard<b></h2></center>"
IF (!(!VAR119)) GOTO LABEL426
FPUTLN 0,"<center><hr><h2>*** UN-REGISTERED ***<br><br>Please encourage your SYSOP to register the COOLSITE Internet Site Database PPE that generated this listing!<br><br>*** UN-REGISTERED ***</h2></center>"
:LABEL426
FPUTLN 0,"<br><hr><br><h2><b>Select ANY of the below listed sites</h2></b><br><h3>"
FPUTLN 2,"COOLSITES - (c) 1996 WILD PPE PRODUCTIONS"
FPUTLN 2,"-----------------------------------------"
FPUTLN 2,""
IF (!(!VAR119)) GOTO LABEL427
FPUTLN 2," UN-REGISTERED *** Please encourage your SYSOP to register *** UN-REGISTERED"
FPUTLN 2," UN-REGISTERED *** the COOLSITE Internet Database [PPE] *** UN-REGISTERED"
FPUTLN 2," UN-REGISTERED *** that generated this listing *** UN-REGISTERED"
FPUTLN 2,""
:LABEL427
FPUTLN 2,"Summary of Sites Extracted from the Coolsite Database"
FPUTLN 2,"====================================================="
FPUTLN 2,""
RETURN
:LABEL428
FPUTLN 0,"</h3><br><hr><br><center><h3>This sitelisting was generated by the Coolsite Internet Site Database [PPE], Version 1.00.</h3></center></body></html>"
FPUTLN 2,""
FPUTLN 2,"This sitelisting was generated by the Coolsite Internet Site Database [PPE],"
FPUTLN 2,"Version 1.00."
FPUTLN 2,""
RETURN
:LABEL429
LET VAR095=1
:LABEL430
IF (!(VAR095<41)) GOTO LABEL433
IF (!(((((VAR095=2)|(VAR095=8))|(VAR095=9))|(VAR095=12))|(VAR095=18))) GOTO LABEL431
LET VAR096=VAR096-(ASC(MID(VAR019,VAR095,1))*4)
LET VAR096=VAR096+(ASC(MID(VAR020,VAR095,1))*3)
LET VAR095=VAR095+1
GOTO LABEL432
:LABEL431
LET VAR096=VAR096+(ASC(MID(VAR020,VAR095,1))*3)
LET VAR096=(ASC(MID(VAR020,VAR095,1))*4)*(ASC(MID(VAR020,VAR095,1))*6)-5+8+VAR096
LET VAR095=VAR095+1
:LABEL432
GOTO LABEL430
:LABEL433
goto label434
IF (!(VAR096<>VAR098)) GOTO LABEL434
PRINTLN "@CLS@"
PRINTLN ""
PRINTLN " @X0E▄██ ███ @X0E▄ ▄█ @X0E▄███▄@X00"
PRINTLN "@X0B @X0E▐███▌ ███ @X0E▀█▀▄█ @X0E██ ▀█▄@X07"
PRINTLN "@X01───── @X0E███▌@X01─── @X0E███ @X0E▄█▄ ██ @X0E██ @X01─@X0E▐█▌@X01──────@X07"
PRINTLN "@X0B■▀█▀▄@X03■ @X0E███ ▄█▄▐█▌ @X0E██▌ ██ @X0E▀▄ ▐██ @X0FPPE's@X07 @X8B≡@X8A≡@X82≡ @X8FUNREGISTERED @X82≡@X8A≡@X8B≡@X07"
PRINTLN "@X0B███@XB3▄@X0B▄▀@X03▄ @X0E████▀███ @X0E▐█▌ ██▄███▀▄██▀ @X03─────@X07"
PRINTLN "@X09──────── @X0E█▀ @X09─ @X0E▀ @X0E▀█▀ ▄█▀▀▀▄▄█▀▀ @X09───────@X07"
PRINTLN ""
PRINTLN " @X0APlease encourage your @X02SYSOP to @X02REGISTER @X0Athis SOFTWARE@X0F!@X07"
GOSUB LABEL214
:LABEL434
PRINT "@PON@"
DCLOSE 1
IF (!EXIST(VAR008+VAR006+".HTM")) GOTO LABEL435
DELETE VAR008+VAR006+".TXT"
DELETE VAR008+VAR006+".HTM"
:LABEL435
