Metropoli BBS - gnx!sys.pps

VIEWER: gnx!sys.pps MODE: TEXT (LATIN1)
STRING VAR001
STRING VAR002
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
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
GOTO LABEL001

:LABEL001
IF (!(EXIST(PPEPATH()+"GNX!SYS.CNF"))) GOTO END
GOTO LABEL002

:LABEL002
LET VAR049="Via AMi/x comment to sysop V2.0á coded by dr dre [GNX]"
FOPEN 1,PPEPATH()+"GNX!SYS.CNF",O_RW,S_DN
FGET 1,VAR001
FGET 1,VAR002
FGET 1,VAR003
FGET 1,VAR004
FGET 1,VAR005
FGET 1,VAR006
FGET 1,VAR007
FGET 1,VAR008
FGET 1,VAR009
FGET 1,VAR010
FGET 1,VAR011
FGET 1,VAR012
FGET 1,VAR013
FGET 1,VAR014
FGET 1,VAR015
FGET 1,VAR016
FGET 1,VAR017
FGET 1,VAR018
FGET 1,VAR019
FGET 1,VAR020
FGET 1,VAR021
FCLOSE 1
GOTO LABEL003


:LABEL003
CLS
ANSIPOS 1,2
PRINT VAR019+"Ami/X Comment to Sysop V2.0á Coded by dr dre [GNX]"
ANSIPOS 1,5
PRINT VAR019+"leave Comment To Which Sysop"+VAR019+":"
ANSIPOS 1,6
PRINT VAR020+"============================="
ANSIPOS 1,7
PRINT VAR019+"1"+VAR021+")"+VAR019+" = "+VAR001+" "+VAR021+"("+VAR019+VAR002+" "+VAR021+")"
IF (VAR003="") GOTO SEL
ANSIPOS 1,8
PRINT VAR019+"2"+VAR021+")"+VAR019+" = "+VAR003+" "+VAR021+"("+VAR019+VAR004+" "+VAR021+")"
IF (VAR005="") GOTO SEL
ANSIPOS 1,9
PRINT VAR019+"3"+VAR021+")"+VAR019+" = "+VAR005+" "+VAR021+"("+VAR019+VAR006+" "+VAR021+")"
IF (VAR007="") GOTO SEL
ANSIPOS 1,10
PRINT VAR019+"4"+VAR021+")"+VAR019+" = "+VAR007+" "+VAR021+"("+VAR019+VAR008+" "+VAR021+")"
IF (VAR009="") GOTO SEL
ANSIPOS 1,11
PRINT VAR019+"5"+VAR021+")"+VAR019+" = "+VAR009+" "+VAR021+"("+VAR019+VAR010+" "+VAR021+")"
IF (VAR011="") GOTO SEL
ANSIPOS 1,12
PRINT VAR019+"6"+VAR021+")"+VAR019+" = "+VAR011+" "+VAR021+"("+VAR019+VAR012+" "+VAR021+")"
IF (VAR013="") GOTO SEL
ANSIPOS 1,13
PRINT VAR019+"7"+VAR021+")"+VAR019+" = "+VAR013+" "+VAR021+"("+VAR019+VAR014+" "+VAR021+")"
IF (VAR015="") GOTO SEL
ANSIPOS 1,14
PRINT VAR019+"8"+VAR021+")"+VAR019+" = "+VAR015+" "+VAR021+"("+VAR019+VAR016+" "+VAR021+")"
IF (VAR017="") GOTO SEL
ANSIPOS 1,15
PRINT VAR019+"9"+VAR021+")"+VAR019+" = "+VAR017+" "+VAR021+"("+VAR019+VAR018+" "+VAR021+")"
GOTO SEL

:SEL
NEWLINE
NEWLINE
NEWLINE
PRINT VAR021+"( "+VAR019+"SELECT"+VAR021+"):"


:SEL1
let var022=inkey()
IF (VAR022=1) GOTO fuck
IF (VAR022=2) GOTO KBD1
IF (VAR022=3) GOTO KBD2
IF (VAR022=4) GOTO KBD3
IF (VAR022=5) GOTO KBD4
IF (VAR022=6) GOTO KBD5
IF (VAR022=7) GOTO KBD6
IF (VAR022=8) GOTO KBD7
IF (VAR022=9) GOTO KBD8
IF (VAR022="A") GOTO END1
IF (VAR022="a") GOTO END1
IF (VAR022="Q") GOTO END1
IF (VAR022="q") GOTO END1
IF (VAR022=CHR(13)) GOTO END1
IF (VAR022=CHR(8)) GOTO END1
GOTO SEL1

:fuck
let var024=var001
goto kbd0

:KBD0
NEWLINE
NEWLINE
NEWLINE
PRINT VAR021+"     ("+VAR020+"----+----*----+----*----+----*"+VAR021+") "
NEWLINE
PRINT VAR021+"( "+VAR020+"Feedback"+VAR021+")@X04: "+VAR024+" "
NEWLINE
INPUTSTR VAR021+"(  "+VAR020+"Subject"+VAR021+")@X04:_",VAR023,@X07,30,MASK_ASCII(),HIGHASCII
IF (VAR023="") goto end1
NEWLINE
LET VAR025=GETX()
LET VAR026=GETY()
ANSIPOS VAR025,VAR026
PRINT VAR020+"Anonymous? [y/N]"
goto nip

:nip
let var022=inkey()
if (var022="N") goto no
if (var022="n") goto no
if (var022="Y") goto yes
if (var022="y") goto yes
goto nip

:no
LET VAR027=VAR025
LET VAR028=VAR026
ANSIPOS VAR027+18,VAR028
print "No"
let var046=random(20)
NEWLINE
Print var024+", has "+var046+" message(s)  waiting. "
kbdstuff "E"+CHR(13)+VAR024+chr(13)+var023+chr(13)+"Y"
end

:yes
let var027=var025
let var028=var026
ansipos var027+18,var028
print "yes"
NEWLINE
NEWLINE
let var046=random(20)
print var024+", has "+var046+" message(s) waiting. "
newline
newline
PRINT VAR020+" Enter Text!  'Return ' "+VAR021+"= "+VAR020+"Activate commands. "+VAR020+"("+VAR021+"75 Chars x 10 lines"+VAR020+") "
newline
PRINT VAR021+"("+VAR020+"----+----*----+----*-----+----*----+----*---+----*----+---*-----+-----*----+-"+VAR021+")"
NEWLINE
:I1
INPUTSTR VAR019+"1"+VAR020+")_",VAR029,@X07,75,MASK_ASCII(),HIGHASCII+WORDWRAP+NEWLINE
IF (VAR029="") GOTO DONE
:I2
INPUTSTR VAR019+"2"+VAR020+")_",VAR030,@X07,75,MASK_ASCII(),HIGHASCII+WORDWRAP+NEWLINE
IF (VAR030="") GOTO DONE
:I3
INPUTSTR VAR019+"3"+VAR020+")_",VAR031,@X07,75,MASK_ASCII(),HIGHASCII+WORDWRAP+NEWLINE
IF (VAR031="") GOTO DONE
:I4
INPUTSTR VAR019+"4"+VAR020+")_",VAR032,@X07,75,MASK_ASCII(),HIGHASCII+WORDWRAP+NEWLINE
IF (VAR032="") GOTO DONE
:I5
INPUTSTR VAR019+"5"+VAR020+")_",VAR033,@X07,75,MASK_ASCII(),HIGHASCII+WORDWRAP+NEWLINE
IF (VAR033="") GOTO DONE
:I6
INPUTSTR VAR019+"6"+VAR020+")_",VAR034,@X07,75,MASK_ASCII(),HIGHASCII+WORDWRAP+NEWLINE
IF (VAR034="") GOTO DONE
:I7
INPUTSTR VAR019+"7"+VAR020+")_",VAR035,@X07,75,MASK_ASCII(),HIGHASCII+WORDWRAP+NEWLINE
IF (VAR035="") GOTO DONE
:I8
INPUTSTR VAR019+"8"+VAR020+")_",VAR036,@X07,75,MASK_ASCII(),HIGHASCII+WORDWRAP+NEWLINE
IF (VAR036="") GOTO DONE
:I9
INPUTSTR VAR019+"9"+VAR020+")_",VAR037,@X07,75,MASK_ASCII(),HIGHASCII+WORDWRAP+NEWLINE
IF (VAR037="") GOTO DONE
:I10
INPUTSTR VAR019+"10"+VAR020+")_",VAR038,@X07,75,MASK_ASCII(),HIGHASCII+WORDWRAP+NEWLINE
IF (VAR038="") GOTO DONE

:DONE
NEWLINE
INPUTSTR VAR019+"Editor cmds "+VAR020+"("+VAR021+"A,S,C,L,D,E"+VAR020+") ("+VAR021+"?=MENU"+VAR020+") _",VAR041,@X07,1,"AaSsCcLldDEe?",HIGHASCII+UPCASE
IF (VAR041="S") GOTO SAVE
IF (VAR041="A") GOTO END1
IF (VAR041="?") GOTO HELP
IF (VAR041="C") GOTO CONT
IF (VAR041="L") GOTO LIST
IF (VAR041="D") GOTO DEL
IF (VAR041="E") GOTO EDIT

:SAVE
FCREATE 1,PPEPATH()+"MESS",O_RW,S_DN
FPUTLN 1,VAR029
IF (VAR030="") GOTO CLOSE
FPUTLN 1,VAR030
IF (VAR031="") GOTO CLOSE
FPUTLN 1,VAR031
IF (VAR032="") GOTO CLOSE
FPUTLN 1,VAR032
IF (VAR033="") GOTO CLOSE
FPUTLN 1,VAR033
IF (VAR034="") GOTO CLOSE
FPUTLN 1,VAR034
IF (VAR035="") GOTO CLOSE
FPUTLN 1,VAR035
IF (VAR036="") GOTO CLOSE
FPUTLN 1,VAR036
IF (VAR037="") GOTO CLOSE
FPUTLN 1,VAR037
IF (VAR038="") GOTO CLOSE
FPUTLN 1,VAR038
IF (VAR039="") GOTO CLOSE
FPUTLN 1,VAR039
FPUTLN 1,VAR049
GOTO CLOSE

:CLOSE
FCLOSE 1
log "@X03AMi/X CoMMeNT ",TRUE
MESSAGE 0,VAR024,"Anonymous",VAR023,"R",0,0,0,PPEPATH()+"MESS"
DELETE PPEPATH()+"MESS"
END

:HELP
SAVESCRN
CLS
NEWLINE
NEWLINE
NEWLINE
NEWLINE
PRINTLN VAR019+"A"+VAR020+">"+VAR019+"bort"
PRINTLN VAR019+"S"+VAR020+">"+VAR019+"end"
PRINTLN VAR019+"C"+VAR020+">"+VAR019+"ontinue"
PRINTLN VAR019+"L"+VAR020+">"+VAR019+"ist"
PRINTLN VAR019+"D"+VAR020+">"+VAR019+"elete Lines"
PRINTLN VAR019+"E"+VAR020+">"+VAR019+"dit Lines"
NEWLINE
WAIT
RESTSCRN
GOTO DONE

:CONT
IF (!(VAR029="")) GOTO CON2
NEWLINE
GOTO I1

:CON2
IF (!(VAR030="")) GOTO CON3
NEWLINE
GOTO I2

:CON3
IF (!(VAR031="")) GOTO CON4
NEWLINE
GOTO I3

:CON4
IF (!(VAR032="")) GOTO CON5
NEWLINE
GOTO I4

:CON5
IF (!(VAR033="")) GOTO CON6
NEWLINE
GOTO I5

:CON6
IF (!(VAR034="")) GOTO CON7
NEWLINE
GOTO I6

:CON7
IF (!(VAR035="")) GOTO CON8
NEWLINE
GOTO I7

:CON8
IF (!(VAR036="")) GOTO CON9
NEWLINE
GOTO I8

:CON9
IF (!(VAR037="")) GOTO CON10
NEWLINE
GOTO I9

:CON10
IF (!(VAR038="")) GOTO I10
NEWLINE
GOTO I10

:LIST
SAVESCRN
CLS
IF (VAR029="") GOTO RES
PRINTLN "@X031@X06>"+VAR029+""
IF (VAR030="") GOTO RES
PRINTLN "@X032@X06>"+VAR030+""
IF (VAR031="") GOTO RES
PRINTLN "@X033@X06>"+VAR031+""
IF (VAR032="") GOTO RES
PRINTLN "@X034@X06>"+VAR032+""
IF (VAR033="") GOTO RES
PRINTLN "@X035@X06>"+VAR033+""
IF (VAR034="") GOTO RES
PRINTLN "@X036@X06>"+VAR034+""
IF (VAR035="") GOTO RES
PRINTLN "@X037@X06>"+VAR035+""
IF (VAR036="") GOTO RES
PRINTLN "@X038@X06>"+VAR036+""
IF (VAR037="") GOTO RES
PRINTLN "@X039@X06>"+VAR037+""
IF (VAR038="") GOTO RES
PRINTLN "@X0310@X06>"+VAR038+""
GOTO RES

:RES
WAIT
RESTSCRN
GOTO DONE

:DEL
SAVESCRN
NEWLINE
INPUTSTR VAR020+"("+VAR019+"# of line to delete"+var020+")_",VAR047,@X07,2,"1234567890",HIGHASCII
IF (VAR047=1) GOTO DEL1
IF (VAR047=2) GOTO DEL2
IF (VAR047=3) GOTO DEL3
IF (VAR047=4) GOTO DEL4
IF (VAR047=5) GOTO DEL5
IF (VAR047=6) GOTO DEL6
IF (VAR047=7) GOTO DEL7
IF (VAR047=8) GOTO DEL8
IF (VAR047=9) GOTO DEL9
IF (VAR047=10) GOTO DEL10

:DEL1
LET VAR029=VAR030
LET VAR030=VAR031
LET VAR031=VAR032
LET VAR032=VAR033
LET VAR033=VAR034
LET VAR034=VAR035
LET VAR035=VAR036
LET VAR036=VAR037
LET VAR037=VAR038
LET VAR038=""
GOTO DRES

:DEL2
LET VAR030=VAR031
LET VAR031=VAR032
LET VAR032=VAR033
LET VAR033=VAR034
LET VAR034=VAR035
LET VAR035=VAR036
LET VAR036=VAR037
LET VAR037=VAR038
LET VAR038=""
GOTO DRES

:DEL3
LET VAR031=VAR032
LET VAR032=VAR033
LET VAR033=VAR034
LET VAR034=VAR035
LET VAR035=VAR036
LET VAR036=VAR037
LET VAR037=VAR038
LET VAR038=""
GOTO DRES

:DEL4
LET VAR032=VAR033
LET VAR033=VAR034
LET VAR034=VAR035
LET VAR035=VAR036
LET VAR036=VAR037
LET VAR037=VAR038
LET VAR038=""
GOTO DRES

:DEL5
LET VAR033=VAR034
LET VAR034=VAR035
LET VAR035=VAR036
LET VAR036=VAR037
LET VAR037=VAR038
LET VAR038=""
GOTO DRES
:DEL6
LET VAR034=VAR035
LET VAR035=VAR036
LET VAR036=VAR037
LET VAR037=VAR038
LET VAR038=""
GOTO DRES

:DEL7
LET VAR035=VAR036
LET VAR036=VAR037
LET VAR037=VAR038
LET VAR038=""
GOTO DRES

:DEL8
LET VAR036=VAR037
LET VAR037=VAR038
LET VAR038=""
GOTO DRES

:DEL9
LET VAR037=VAR038
LET VAR038=""
GOTO DRES

:DEL10
LET VAR038=""
GOTO DRES

:DRES
RESTSCRN
GOTO DONE

:KBD1
IF (VAR003="") GOTO SEL
NEWLINE
LET VAR024=VAR003
GOTO KBD0

:KBD2
IF (VAR005="") GOTO SEL
NEWLINE
LET VAR024=VAR005
GOTO KBD0

:KBD3
IF (VAR007="") GOTO SEL
NEWLINE
LET VAR024=VAR007
GOTO KBD0

:KBD4
IF (VAR009="") GOTO SEL
NEWLINE
LET VAR024=VAR009
GOTO KBD0

:KBD5
IF (VAR011="") GOTO SEL
NEWLINE
LET VAR024=VAR011
GOTO KBD0

:KBD6
IF (VAR013="") GOTO SEL
NEWLINE
LET VAR024=VAR013
GOTO KBD0

:KBD7
IF (VAR015="") GOTO SEL
NEWLINE
LET VAR024=VAR015
GOTO KBD0

:KBD8
IF (VAR017="") GOTO SEL
NEWLINE
LET VAR024=VAR017
GOTO KBD0

:EDIT
SAVESCRN
NEWLINE
INPUTSTR VAR020+"("+VAR019+"# Of line to edit"+VAR020+")_",VAR048,@X07,2,1234567890,HIGHASCII
IF (VAR048=1) GOTO R1
IF (VAR048=2) GOTO R2
IF (VAR048=3) GOTO R3
IF (VAR048=4) GOTO R4
IF (VAR048=5) GOTO R5
IF (VAR048=6) GOTO R6
IF (VAR048=7) GOTO R7
IF (VAR048=8) GOTO R8
IF (VAR048=9) GOTO R9
IF (VAR048=10) GOTO R10

:R1
RESTSCRN
newline
GOTO I1

:R2
RESTSCRN
newline
GOTO I2

:R3
RESTSCRN
newline
GOTO I3

:R4
RESTSCRN
newline
GOTO I4

:R5
RESTSCRN
newline
GOTO I5

:R6
RESTSCRN
newline
GOTO I6

:R7
RESTSCRN
newline
GOTO I7

:R8
RESTSCRN
newline
GOTO I8

:R9
RESTSCRN
newline
GOTO I9

:R10
RESTSCRN
newline
GOTO I10


:END
NEWLINE
PRINT VAR019+"CONFIG FILE MISSING ABORTION!"
DELAY 10
END

:END1
LET VAR042=GETX()
LET VAR043=GETY()
NEWLINE
ANSIPOS VAR042,VAR043
PRINT VAR021+"Abort editor? [y/N]"
goto g1

:g1
LET VAR022=INKEY()
IF (VAR022="N") GOTO NOPE
IF (VAR022="n") GOTO NOPE
IF (VAR022="Y") GOTO YUP
IF (VAR022="y") GOTO YUP
goto g1

:NOPE
LET VAR044=VAR042
LET VAR045=VAR043
ANSIPOS VAR044+20,VAR045
PRINT "No"
GOTO LABEL003

:YUP
LET VAR044=VAR042
LET VAR045=VAR043
ANSIPOS VAR044+20,VAR045
PRINT "Yes"
END
[ RETURN TO DIRECTORY ]