home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
POB_SC2.ZIP
/
POB_SC2.PPS
< prev
next >
Wrap
Text File
|
1995-01-06
|
2KB
|
69 lines
;---------------------------------------------------------------------------
;POB SC2 PPS
;Only for Distributors who use the PCBoard Door
;Change the security level for use on your system!
;POB(c)1995 *FREEWARE* change the code as you need!
;---------------------------------------------------------------------------
STRING UNAME, SER, CODE, PPL, PPQ, SP, SPSL, CONT, OK
BIGSTR COMMENT
REAL LINE
:BEGIN
CLS
NEWLINE
NEWLINE
INPUTSTR "@X0FUsername: ",UNAME,@X0E,20,MASK_ASCII(),DEFS+NEWLINE+UPCASE
INPUTSTR "@X0FSerial #: ",SER,@X0E,6,MASK_ASCII(),DEFS+NEWLINE
INPUTSTR "@X0FLineversion: ",LINE,@X0E,4,"1250",NEWLINE
INPUTSTR "@X0FCode: ",CODE,@X0E,10,MASK_ASCII(),DEFS+NEWLINE+UPCASE
INPUTYN "@X0Fregistered for PPL: ",PPQ,@X0E
LET PPL = ""
IF (PPQ = YESCHAR()) LET PPL = "PPL"
LET COMMENT = STRING(SER) + " " + "/" + STRING(LINE) + " " + STRING(CODE) + " " + STRING(PPL)
GETALTUSER U_RECNUM(UNAME)
CLS
PRINTLN ""
PRINTLN ""
PRINTLN ""
PRINTLN "@X0FUSERNAME: " + UNAME
PRINT "@X0FUSER RECORD #: "
PRINTLN U_RECNUM(UNAME)
PRINTLN "@X0FCODE FOR PCBOARD DOOR:@X0E " + COMMENT
PRINTLN ""
PRINTLN ""
INPUTYN "@X0CIs the Information OK to store in USER-RECORD ",OK,@X0F
PRINTLN ""
IF (OK = YESCHAR()) THEN
;PRINTLN "@X0FCOMMENTLINE ",U_CMNT2
LET U_CMNT2 = COMMENT
PRINTLN ""
PRINTLN ""
PRINTLN "@X0FCOMMENT-LINE #2 changed to:@X0A ",U_CMNT2
PRINTLN ""
PRINTLN ""
PRINTLN " @X08POB(@X0Ac@X08)1995"
PRINTLN ""
LET U_SEC = 20 ; <----- Change here the security level for your system!!!!!
LET U_EXPDATE = (DATE() + 365)
PUTALTUSER
ELSE
PRINTLN ""
INPUTYN "@X0FContinue with code-entry ",CONT,@X0E
PRINTLN ""
ENDIF
IF (CONT = YESCHAR()) GOTO BEGIN
WAIT