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 >
Encoding:
Text File  |  1995-01-06  |  1.8 KB  |  69 lines
  1. ;---------------------------------------------------------------------------
  2. ;POB SC2 PPS
  3. ;Only for Distributors who use the PCBoard Door
  4. ;Change the security level for use on your system!
  5. ;POB(c)1995 *FREEWARE* change the code as you need!
  6. ;---------------------------------------------------------------------------
  7.  
  8.  
  9. STRING UNAME, SER, CODE, PPL, PPQ, SP, SPSL, CONT, OK
  10. BIGSTR COMMENT
  11. REAL LINE
  12.  
  13. :BEGIN
  14. CLS
  15. NEWLINE
  16. NEWLINE
  17. INPUTSTR "@X0FUsername: ",UNAME,@X0E,20,MASK_ASCII(),DEFS+NEWLINE+UPCASE
  18. INPUTSTR "@X0FSerial #: ",SER,@X0E,6,MASK_ASCII(),DEFS+NEWLINE
  19. INPUTSTR "@X0FLineversion: ",LINE,@X0E,4,"1250",NEWLINE
  20. INPUTSTR "@X0FCode: ",CODE,@X0E,10,MASK_ASCII(),DEFS+NEWLINE+UPCASE
  21. INPUTYN "@X0Fregistered for PPL: ",PPQ,@X0E
  22. LET PPL = ""
  23. IF (PPQ = YESCHAR()) LET PPL = "PPL"
  24.  
  25. LET COMMENT = STRING(SER) + " " + "/" + STRING(LINE) + " " + STRING(CODE) + " " + STRING(PPL)
  26. GETALTUSER U_RECNUM(UNAME)
  27. CLS
  28. PRINTLN ""
  29. PRINTLN ""
  30. PRINTLN ""
  31. PRINTLN "@X0FUSERNAME: " + UNAME
  32. PRINT "@X0FUSER RECORD #: "
  33. PRINTLN U_RECNUM(UNAME)
  34. PRINTLN "@X0FCODE FOR PCBOARD DOOR:@X0E " + COMMENT
  35. PRINTLN ""
  36. PRINTLN ""
  37. INPUTYN "@X0CIs the Information OK to store in USER-RECORD ",OK,@X0F
  38. PRINTLN ""
  39. IF (OK = YESCHAR()) THEN
  40. ;PRINTLN "@X0FCOMMENTLINE ",U_CMNT2
  41. LET U_CMNT2 = COMMENT
  42. PRINTLN ""
  43. PRINTLN ""
  44. PRINTLN "@X0FCOMMENT-LINE #2 changed to:@X0A ",U_CMNT2
  45. PRINTLN ""
  46. PRINTLN ""
  47. PRINTLN "                                                                  @X08POB(@X0Ac@X08)1995"
  48. PRINTLN ""
  49. LET U_SEC = 20   ; <----- Change here the security level for your system!!!!!
  50.  
  51. LET U_EXPDATE = (DATE() + 365)
  52. PUTALTUSER
  53. ELSE
  54. PRINTLN ""
  55. INPUTYN "@X0FContinue with code-entry ",CONT,@X0E
  56. PRINTLN ""
  57. ENDIF
  58. IF (CONT = YESCHAR()) GOTO BEGIN
  59.  
  60. WAIT
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.