STRING VAR001
STRING VAR002
STRING VAR003
STRING VAR004
STRING VAR005
STRING VAR006
STRING VAR007
STRING VAR008
STRING VAR011(15)
STRING VAR012(8)
STRING VAR013
STRING VAR014
STRING VAR015
STRING VAR016
STRING VAR017
INTEGER VAR018
INTEGER VAR019
INTEGER VAR020
INTEGER VAR021
INTEGER VAR022
INTEGER VAR023
BOOLEAN VAR024
BOOLEAN VAR025
STRING VAR026
STRING VAR027
STRING VAR028
STRING VAR029
STRING VAR030
STRING VAR031
STRING VAR032
STRING VAR033
LET VAR008=READLINE(PCBDAT(),94)
LET VAR023=LEN(VAR008)/1
FOPEN 6,PPEPATH()+"EQ_ENTR.CFG",O_RD,S_DN
FGET 6,VAR026
FGET 6,VAR027
FGET 6,VAR028
FGET 6,VAR029
FGET 6,VAR030
FGET 6,VAR031
FGET 6,VAR032
FGET 6,VAR033
FCLOSE 6
GOTO LABEL002
:LABEL000
GOTO LABEL001
:LABEL001
:LABEL002
LET VAR019=10
LET VAR011(1)="9"
LET VAR011(2)="3"
LET VAR011(3)="B"
LET VAR011(4)="F"
LET VAR011(5)="F"
LET VAR011(6)="B"
LET VAR011(7)="3"
LET VAR011(8)="9"
LET VAR011(9)="1"
LET VAR011(10)="F"
LET VAR022=0
LET VAR017="@X4F"
LET VAR022=S2I(VAR002,10)
IF (VAR022<0) LET VAR022=0
IF (VAR022>6) LET VAR022=0
LET VAR012(1)=VAR026
LET VAR012(2)=VAR027
LET VAR012(3)=VAR028
LET VAR012(4)=VAR029
LET VAR012(5)=VAR030
LET VAR012(6)=VAR031
LET VAR012(7)=VAR032
LET VAR012(8)=VAR033
IF (VAR022<1) GOTO LABEL004
LET VAR018=1
:LABEL003
IF (!(((1<0)&(VAR018>=8))|((1>=0)&(VAR018<=8)))) GOTO LABEL004
IF (VAR022=1) LET VAR013="@X19"
IF (VAR022=2) LET VAR013="@X2A"
IF (VAR022=3) LET VAR013="@X3B"
IF (VAR022=4) LET VAR013="@X5D"
IF (VAR022=5) LET VAR013="@X6E"
IF (VAR022=1) LET VAR014="@X18"
IF (VAR022=2) LET VAR014="@X28"
IF (VAR022=3) LET VAR014="@X38"
IF (VAR022=4) LET VAR014="@X58"
IF (VAR022=5) LET VAR014="@X68"
IF (VAR022=1) LET VAR015="@X01"
IF (VAR022=2) LET VAR015="@X02"
IF (VAR022=3) LET VAR015="@X03"
IF (VAR022=4) LET VAR015="@X05"
IF (VAR022=5) LET VAR015="@X06"
IF (VAR022=1) LET VAR016="@X09"
IF (VAR022=2) LET VAR016="@X0A"
IF (VAR022=3) LET VAR016="@X0B"
IF (VAR022=4) LET VAR016="@X0D"
IF (VAR022=5) LET VAR016="@X0E"
IF (VAR022=1) LET VAR017="@X1F"
IF (VAR022=2) LET VAR017="@X2F"
IF (VAR022=3) LET VAR017="@X3F"
IF (VAR022=4) LET VAR017="@X5F"
IF (VAR022=5) LET VAR017="@X6F"
LET VAR012(VAR018)=REPLACESTR(VAR012(VAR018),"@X4C",VAR013)
LET VAR012(VAR018)=REPLACESTR(VAR012(VAR018),"@X48",VAR014)
LET VAR012(VAR018)=REPLACESTR(VAR012(VAR018),"@X04",VAR015)
LET VAR012(VAR018)=REPLACESTR(VAR012(VAR018),"@X0C",VAR016)
LET VAR018=VAR018+1
GOTO LABEL003
:LABEL004
CLS
GOTO LABEL006
:LABEL005
GOTO LABEL006
:LABEL006
PRINTLN "@X0ERegistered To: @BOARDNAME@"
GOTO LABEL008
:LABEL008
PRINTLN "@POFF@@X01▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ·@X0FE@X07·@X0FN@X07·@X0FT@X07·@X0FE@X07·@X0FR@X07·@X07 @X07·@X0FA@X07· @X01▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PRINTLN
LET VAR018=1
:LABEL009
IF (!(((1<0)&(VAR018>=8))|((1>=0)&(VAR018<=8)))) GOTO LABEL010
PRINTLN VAR012(VAR018)
LET VAR018=VAR018+1
GOTO LABEL009
:LABEL010
PRINTLN
PRINTLN " @X03@X7F┌──────────────────────────────────────────────────@X70┐@X07"
PRINTLN " @X7F│ @X71MESSAGE TO:@X0F @X7F @X70│@X07"
PRINTLN " @X7F│ @X70──────────────────────────────────────────────── @X70│@X07"
PRINTLN " @X7F│ @X71SUBJECT:@X0F @X7F @X70│@X07"
PRINTLN " @X7F└@X70──────────────────────────────────────────────────┘@X07"
PRINTLN
PRINTLN " @X0DSTATUS:"
PRINTLN
PRINTLN "@X01▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
PRINTLN " @X0C[@X07MESSAGE v1.07 (C)1995 Equinox Software@X0C]@X07"
GETUSER
ANSIPOS 23,19
CLREOL
PRINT "@X07Enter USERNAME or [@X0FENTER@X07] to write a msg to ALL"
ANSIPOS 30,14
LET VAR001=""
INPUTSTR "_",VAR001,7,30,MASK_ASCII(),FIELDLEN
IF (VAR001="") GOTO LABEL011
IF (VAR001="@USER@") GOTO LABEL012
GOTO LABEL012
:LABEL011
LET VAR001="ALL"
:LABEL012
LET VAR003=VAR001
IF (VAR001="@USER@") LET VAR003="MESSAGE TO ALL USERS"
LET VAR004=VAR001
ANSIPOS 30,14
LET VAR020=30
LET VAR002=VAR003
GOSUB LABEL027
ANSIPOS 23,19
CLREOL
PRINT "@X07SUBJECT of message or Press [@X0FENTER@X07] to quit"
ANSIPOS 30,16
LET VAR001=""
INPUTSTR "_",VAR001,7,34,MASK_ASCII(),DEFS
IF (VAR001="") GOTO LABEL026
LET VAR005=VAR001
ANSIPOS 30,16
LET VAR020=30
LET VAR002=VAR005
GOSUB LABEL027
IF (VAR004="ALL") GOTO LABEL022
IF (VAR004="@USER@") GOTO LABEL022
ANSIPOS 1,19
CLREOL
PRINTLN "@X07TYPE OF MESSAGE@X08: "+VAR017+" PUBLIC @X07 Private "
LET VAR021=0
GOSUB LABEL015
:LABEL013
LET VAR006=INKEY()
IF (VAR006="UP") GOSUB LABEL014
IF (VAR006="DOWN") GOSUB LABEL014
IF (VAR006="LEFT") GOSUB LABEL014
IF (VAR006="RIGHT") GOSUB LABEL014
IF (VAR006=CHR(13)) GOTO LABEL017
IF (VAR006=CHR(27)) GOTO LABEL016
GOTO LABEL013
:LABEL014
LET VAR018=VAR021
IF (VAR018=0) LET VAR021=1
IF (VAR018=1) LET VAR021=0
GOSUB LABEL015
RETURN
:LABEL015
ANSIPOS 1,19
IF (VAR021=0) PRINT "@X07TYPE OF MESSAGE@X08: "+VAR017+" PUBLIC @X07 Private "
IF (VAR021=1) PRINT "@X07TYPE OF MESSAGE@X08: @X07 Public "+VAR017+" PRIVATE @X07 "
RETURN
:LABEL016
GOTO LABEL026
:LABEL017
ANSIPOS 1,19
CLREOL
IF (VAR021=0) LET VAR024=0
IF (VAR021=1) LET VAR024=1
IF (!VAR024) GOTO LABEL024
ANSIPOS 1,19
CLREOL
PRINTLN "@X07REQUEST RETURN RECEIPT@X08: "+VAR017+" YES @X07 no! "
LET VAR021=0
GOSUB LABEL020
:LABEL018
LET VAR006=INKEY()
IF (VAR006="UP") GOSUB LABEL019
IF (VAR006="DOWN") GOSUB LABEL019
IF (VAR006="LEFT") GOSUB LABEL019
IF (VAR006="RIGHT") GOSUB LABEL019
IF (VAR006=CHR(13)) GOTO LABEL021
IF (VAR006=CHR(27)) GOTO LABEL026
GOTO LABEL018
:LABEL019
LET VAR018=VAR021
IF (VAR018=0) LET VAR021=1
IF (VAR018=1) LET VAR021=0
GOSUB LABEL020
RETURN
:LABEL020
ANSIPOS 1,19
IF (VAR021=0) PRINT "@X07REQUEST RETURN RECEIPT@X08: "+VAR017+" YES @X07 no! "
IF (VAR021=1) PRINT "@X07REQUEST RETURN RECEIPT@X08: @X07 yes "+VAR017+" NO! @X07 "
RETURN
:LABEL021
ANSIPOS 1,19
CLREOL
IF (VAR021=0) LET VAR025=1
IF (VAR021=1) LET VAR025=0
GOTO LABEL023
:LABEL022
LET VAR007=""
LET VAR007="N"+CHR(13)
IF (U_FSEP=1) LET VAR007=VAR007+"Y"+CHR(13)
GOTO LABEL025
:LABEL023
LET VAR007=""
IF (VAR024) LET VAR007="R"+CHR(13)
IF (!VAR024) LET VAR007="N"+CHR(13)
IF (VAR025) LET VAR007=VAR007+"Y"+CHR(13)
IF (!VAR025) LET VAR007=VAR007+"N"+CHR(13)
IF (U_FSEP=1) LET VAR007=VAR007+"Y"+CHR(13)
GOTO LABEL025
:LABEL024
LET VAR007="N"+CHR(13)
IF (U_FSEP=1) LET VAR007=VAR007+"Y"+CHR(13)
GOTO LABEL025
:LABEL025
LET VAR011(10)="F"
ANSIPOS 1,22
LET VAR020=1
LET VAR002="PREPARING SCREEN..."
GOSUB LABEL027
DELAY 15
CLS
KBDSTUFF "E"+CHR(13)+VAR004+CHR(13)+VAR005+CHR(13)+VAR007
END
:LABEL026
LET VAR011(10)="C"
ANSIPOS 1,19
CLREOL
LET VAR020=1
LET VAR002="MESSAGE ABORTED!"
GOSUB LABEL027
ANSIPOS 1,21
END
:LABEL027
LET VAR018=1
:LABEL028
IF (!(((1<0)&(VAR018>=VAR019))|((1>=0)&(VAR018<=VAR019)))) GOTO LABEL029
ANSIPOS VAR020,GETY()
LET VAR001="@X0"+VAR011(VAR018)
PRINT VAR001+VAR002
DELAY 1
LET VAR018=VAR018+1
GOTO LABEL028
:LABEL029
RETURN
