Metropoli BBS - eq

VIEWER: eq_read.ppd MODE: TEXT (CP437)
    STRING     VAR001
    STRING     VAR002
    STRING     VAR003(13) 
    STRING     VAR004
    STRING     VAR005
    STRING     VAR006
    STRING     VAR007
    STRING     VAR008
    STRING     VAR009
    STRING     VAR010
    STRING     VAR011
    INTEGER    VAR012
    INTEGER    VAR013
    INTEGER    VAR014
    INTEGER    VAR015
    INTEGER    VAR016
    INTEGER    VAR017
    INTEGER    VAR018
    BOOLEAN    VAR019
    STRING     VAR020
    INTEGER    VAR023


    LET VAR020=READLINE(PCBDAT(),94)
    LET VAR023=LEN(VAR020)/1

:LABEL000

:LABEL001

:LABEL002
    IF (!(TOKCOUNT()<>0)) GOTO LABEL003
    LET VAR004=TOKENSTR()
    TOKENIZE VAR004
    GETTOKEN VAR006
    GETTOKEN VAR007
    GETTOKEN VAR008
    GETTOKEN VAR009
    GETTOKEN VAR010
    GETTOKEN VAR011
    NEWLINE 
    CLS 
    KBDSTUFF "R "+VAR006+" "+VAR007+" "+VAR008+" "+VAR009+" "+VAR010+" "+VAR011
    END 


:LABEL003
    LET VAR013=1
    PRINT "@CLS@@POFF@"
    FOPEN 1,PPEPATH()+"eq_read.cfg",O_RD,S_DN
    FGET 1,VAR001
    FGET 1,VAR014
    FGET 1,VAR015
    FGET 1,VAR002
    FGET 1,VAR003(1)
    FGET 1,VAR003(2)
    FGET 1,VAR003(3)
    FGET 1,VAR003(4)
    FGET 1,VAR003(5)
    FGET 1,VAR003(6)
    FGET 1,VAR003(7)
    FGET 1,VAR003(8)
    FGET 1,VAR003(9)
    FGET 1,VAR003(10)
    FGET 1,VAR003(11)
    FGET 1,VAR003(12)
    FGET 1,VAR003(13)
    FCLOSE 1
    PRINTLN "@CLS@@X08                                  @X07▄▄                        @X0F▄▄▄▄██@X7F▓@X0F█@X7F▓▓@X0F▄▄▄"
    PRINTLN "@X0F                       @X07▄▄▄@X78░▒@X08▄▄ @X07▄▄@X78░░@X07▀▀▄     ▄▄@X78░░@X07▄▄        @X0F▄███████████@X7F▓▓▒░▒░@X07▄"
    PRINTLN "@X07   @X0C[@X0F@X0E@X0F/@X0E@X0C] @X0Fto @X0FMove   @X08   @X07▀  ▀▀@X78▒▒▓▓▒▒@X07▀        ▀    ▀@X78░@X7F░@X07▄▀    @X0F▀ @X07▄▄@X0F▀██▀@X07▄▄@X0F▀███@X7F█▓▓▒▒░ @X07"
    PRINTLN "@X0F   @X0C[@X0F@X0EEsc@X0C] @X0Fto @X0FExit   @X08           ▀▀    @X07▄▄   ▄▄@X7F░ @X78░@X07▄▄       ▄█@X77 @X7F░░ @X07▄▄@X77 @X7F░@X07▀▀@X0F▄████@X7F▓▓▒▒░@X07█"
    PRINTLN "@X07   @X0C[@X0F@X0EEnter@X0C] @X0Fto @X0FSelect@X08     ▄▄       @X07▄█@X78░░░@X07▄@X77 @X7F░ @X07█@X78░░▓░▒░@X07▄▄▄@X77 @X78░  ░   ░ @X7F░@X07▄▄▀@X0F▄████@X7F▓▓▓▒░@X07██"
    PRINTLN "@X07                        @X08▀ ▀@X78▓@X08▄  @X07▄▄@X78░@X07█@X78░░  ░░@X07█@X78░░░@X07█@X78▒█▓▓░░▀░  @X07▀▀@X78░░░  @X07▀@X0F▄▄██████@X7F▓▓▒▒░@X07██"
    PRINTLN "@X07                           @X08▀@X78▓▒▒░░ @X07█@X78░@X07█@X7F░░@X07██@X78░@X07▀▀@X78▓░@X07█@X78░▒░▒░@X07█▀ @X0F▄██▄▄@X07▀▀@X0F▄████████@X7F▓▓▓▒░░@X07█"
    PRINTLN "@X07                              @X08▀@X78░░ ░@X07█@X7F░@X07▀▀▀  @X08▄ ▄@X78▓▓@X07▀▀       @X0F██████████████@X7F▓@X0F█████@X7F░@X07"
    PRINTLN "@X0F                                 @X07▀▀        @X08▀▀▀           @X0F▀████████@X7F▓@X0F█@X7F▓@X0F█████▀▀"
    PRINTLN "@X0F                                                            ▀▀▀▀█████▀▀▀"
    GOTO LABEL006

:LABEL004

:LABEL005

:LABEL006
    LET VAR018=1

:LABEL007
    IF (!(((1<0)&(VAR018>=13))|((1>=0)&(VAR018<=13)))) GOTO LABEL008
    ANSIPOS VAR014,VAR015+(VAR018-1)
    PRINTLN VAR003(VAR018)+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR018))))
    LET VAR018=VAR018+1
    GOTO LABEL007

:LABEL008
    LET VAR019=0
    ANSIPOS VAR014,VAR015
    PRINT VAR002+STRIPATX(VAR003(1))+SPACE(VAR001-LEN(STRIPATX(VAR003(1))))+"@X0F"
    LET VAR016=VAR014
    LET VAR017=VAR015

:LABEL009
    IF (!(VAR019=0)) GOTO LABEL031
    LET VAR005=INKEY()
    LET VAR012=ASC(VAR005)
    IF (!(VAR005=CHR(13))) GOTO LABEL010
    LET VAR019=1
    DEFCOLOR 
    GOSUB LABEL031
    GOTO LABEL030

:LABEL010
    IF (!((VAR005="UP")|(VAR005="8"))) GOTO LABEL013
    IF (!(!(VAR017=VAR015))) GOTO LABEL011
    DEC VAR017
    IF (!(VAR017=VAR015)) ANSIPOS VAR016,VAR017-1
    IF (!(VAR017=VAR015)) PRINTLN VAR003(VAR013-2)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013-2))))
    ANSIPOS VAR016,VAR017
    PRINTLN VAR002+STRIPATX(VAR003(VAR013-1))+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013-1))))+"@X0F"
    ANSIPOS VAR016,VAR017+1
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR016+VAR001,VAR017
    DEC VAR013
    GOTO LABEL012

:LABEL011
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    LET VAR013=13
    LET VAR017=VAR015+12
    ANSIPOS VAR016,VAR017
    PRINT VAR002+STRIPATX(VAR003(VAR013))+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))+"@X0F"

:LABEL012
    GOTO LABEL030

:LABEL013
    IF (!(((VAR005="DOWN")|(VAR005="2"))|(VAR005=" "))) GOTO LABEL016
    IF (!(!(VAR017=(VAR015+12)))) GOTO LABEL014
    INC VAR017
    ANSIPOS VAR016,VAR017-1
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR016,VAR017
    PRINTLN VAR002+STRIPATX(VAR003(VAR013+1))+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013+1))))+"@X0F"
    IF (!(VAR017=(VAR015+12))) ANSIPOS VAR016,VAR017+1
    IF (!(VAR017=(VAR015+12))) PRINTLN VAR003(VAR013+2)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013+2))))
    ANSIPOS VAR016+VAR001,VAR017
    INC VAR013
    GOTO LABEL015

:LABEL014
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    LET VAR013=1
    LET VAR017=VAR015
    ANSIPOS VAR016,VAR017
    PRINT VAR002+STRIPATX(VAR003(VAR013))+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))+"@X0F"

:LABEL015
    GOTO LABEL030

:LABEL016
    IF (!(UPPER(VAR005)="A")) GOTO LABEL017
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015
    PRINTLN VAR002+STRIPATX(VAR003(1))+SPACE(VAR001-LEN(STRIPATX(VAR003(1))))+"@X0F"
    NEWLINES 13
    KBDSTUFF "R;A"+CHR(13)
    END 


:LABEL017
    IF (!(UPPER(VAR005)="B")) GOTO LABEL018
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+1
    PRINTLN VAR002+STRIPATX(VAR003(2))+SPACE(VAR001-LEN(STRIPATX(VAR003(2))))+"@X0F"
    NEWLINES 12
    KBDSTUFF "R;ALL"+CHR(13)
    END 


:LABEL018
    IF (!(UPPER(VAR005)="C")) GOTO LABEL019
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+2
    PRINTLN VAR002+STRIPATX(VAR003(3))+SPACE(VAR001-LEN(STRIPATX(VAR003(3))))+"@X0F"
    NEWLINES 11
    KBDSTUFF "R;F"+CHR(13)
    END 


:LABEL019
    IF (!(UPPER(VAR005)="D")) GOTO LABEL020
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+3
    PRINTLN VAR002+STRIPATX(VAR003(4))+SPACE(VAR001-LEN(STRIPATX(VAR003(4))))+"@X0F"
    NEWLINES 10
    KBDSTUFF "R;FROM"+CHR(13)
    END 


:LABEL020
    IF (!(UPPER(VAR005)="E")) GOTO LABEL021
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+4
    PRINTLN VAR002+STRIPATX(VAR003(5))+SPACE(VAR001-LEN(STRIPATX(VAR003(5))))+"@X0F"
    NEWLINES 9
    KBDSTUFF "R;N"+CHR(13)
    END 


:LABEL021
    IF (!(UPPER(VAR005)="F")) GOTO LABEL022
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+5
    PRINTLN VAR002+STRIPATX(VAR003(6))+SPACE(VAR001-LEN(STRIPATX(VAR003(6))))+"@X0F"
    NEWLINES 8
    KBDSTUFF "R;S"+CHR(13)
    END 


:LABEL022
    IF (!(UPPER(VAR005)="G")) GOTO LABEL023
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+6
    PRINTLN VAR002+STRIPATX(VAR003(7))+SPACE(VAR001-LEN(STRIPATX(VAR003(7))))+"@X0F"
    NEWLINES 7
    KBDSTUFF "R;TO"+CHR(13)
    END 


:LABEL023
    IF (!(UPPER(VAR005)="H")) GOTO LABEL024
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+7
    PRINTLN VAR002+STRIPATX(VAR003(8))+SPACE(VAR001-LEN(STRIPATX(VAR003(8))))+"@X0F"
    NEWLINES 6
    KBDSTUFF "R;TS"+CHR(13)
    END 


:LABEL024
    IF (!(UPPER(VAR005)="I")) GOTO LABEL025
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+8
    PRINTLN VAR002+STRIPATX(VAR003(9))+SPACE(VAR001-LEN(STRIPATX(VAR003(9))))+"@X0F"
    NEWLINES 5
    KBDSTUFF "R;U"+CHR(13)
    END 


:LABEL025
    IF (!(UPPER(VAR005)="J")) GOTO LABEL026
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+9
    PRINTLN VAR002+STRIPATX(VAR003(10))+SPACE(VAR001-LEN(STRIPATX(VAR003(10))))+"@X0F"
    NEWLINES 4
    KBDSTUFF "R;USER"+CHR(13)
    END 


:LABEL026
    IF (!(UPPER(VAR005)="K")) GOTO LABEL027
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+10
    PRINTLN VAR002+STRIPATX(VAR003(11))+SPACE(VAR001-LEN(STRIPATX(VAR003(11))))+"@X0F"
    NEWLINES 3
    KBDSTUFF "R;WAIT"+CHR(13)
    END 


:LABEL027
    IF (!(UPPER(VAR005)="L")) GOTO LABEL028
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+11
    PRINTLN VAR002+STRIPATX(VAR003(12))+SPACE(VAR001-LEN(STRIPATX(VAR003(12))))+"@X0F"
    NEWLINES 2
    KBDSTUFF "R;Y"+CHR(13)
    END 


:LABEL028
    IF (!(UPPER(VAR005)="M")) GOTO LABEL029
    ANSIPOS VAR016,VAR017
    PRINTLN VAR003(VAR013)+"@X0F"+SPACE(VAR001-LEN(STRIPATX(VAR003(VAR013))))
    ANSIPOS VAR014,VAR015+12
    PRINTLN VAR002+STRIPATX(VAR003(13))+SPACE(VAR001-LEN(STRIPATX(VAR003(13))))+"@X0F"
    NEWLINE 
    KBDSTUFF "R;YA"+CHR(13)
    END 


:LABEL029
    IF (!(VAR005=CHR(27))) GOTO LABEL030
    CLS 
    KBDSTUFF "MENU"+CHR(13)
    END 


:LABEL030
    GOTO LABEL009

:LABEL031
    IF (!(VAR013=1)) GOTO LABEL032
    CLS 
    KBDSTUFF "R;A"+CHR(13)
    GOTO LABEL045

:LABEL032
    IF (!(VAR013=2)) GOTO LABEL033
    CLS 
    KBDSTUFF "R;ALL"+CHR(13)
    GOTO LABEL045

:LABEL033
    IF (!(VAR013=3)) GOTO LABEL034
    CLS 
    KBDSTUFF "R;F"+CHR(13)
    GOTO LABEL045

:LABEL034
    IF (!(VAR013=4)) GOTO LABEL035
    CLS 
    KBDSTUFF "R;FROM"+CHR(13)
    GOTO LABEL045

:LABEL035
    IF (!(VAR013=5)) GOTO LABEL036
    CLS 
    KBDSTUFF "R;N"+CHR(13)
    GOTO LABEL045

:LABEL036
    IF (!(VAR013=6)) GOTO LABEL037
    CLS 
    KBDSTUFF "R;S"+CHR(13)
    GOTO LABEL045

:LABEL037
    IF (!(VAR013=7)) GOTO LABEL038
    CLS 
    KBDSTUFF "R;TO"+CHR(13)
    GOTO LABEL045

:LABEL038
    IF (!(VAR013=8)) GOTO LABEL039
    CLS 
    KBDSTUFF "R;TS"+CHR(13)
    GOTO LABEL045

:LABEL039
    IF (!(VAR013=9)) GOTO LABEL040
    CLS 
    KBDSTUFF "R;U"+CHR(13)
    GOTO LABEL045

:LABEL040
    IF (!(VAR013=10)) GOTO LABEL041
    CLS 
    KBDSTUFF "R;USER"+CHR(13)
    GOTO LABEL045

:LABEL041
    IF (!(VAR013=11)) GOTO LABEL042
    CLS 
    KBDSTUFF "R;WAIT"+CHR(13)
    GOTO LABEL045

:LABEL042
    IF (!(VAR013=12)) GOTO LABEL043
    CLS 
    KBDSTUFF "R;Y"+CHR(13)
    GOTO LABEL045

:LABEL043
    IF (!(VAR013=13)) GOTO LABEL044
    CLS 
    KBDSTUFF "R;YA"+CHR(13)
    GOTO LABEL045

:LABEL044
    CLS 
    END 


:LABEL045
    END
[ RETURN TO DIRECTORY ]