home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / valida15 / valida15.bas < prev    next >
Encoding:
BASIC Source File  |  1989-12-02  |  3.9 KB  |  111 lines
  1. REM * VERSION 1.5 ADDS GEM ROUTINES AND OPTION TO QUIT VIEWING
  2. REM * USERS. ADDED SEVERAL COMMENTS.
  3. name$="USERLOG.DAT"
  4. path$="\USERLOG.DAT"
  5. defint a-z
  6. library "gemaes"
  7. Z=1:QQ=1
  8. cls
  9. ? "                         Validate Express ST-Ver 1.5"
  10. ? "        This file is intended for a teaching tool on how to read and"
  11. ? "   alter the BBS Express ST Userlog. It is written for my BBS Setup"
  12. ? "   and SHOULD NOT be used as is for any other BBS. This program is"
  13. ? "   set to search for new users, so they can be set for normal BBS"
  14. ? "   Access."
  15. ?:?:?:?:?:?:?:?:BEEP
  16. ? "   I REPEAT.....DO NOT USE THIS ON YOUR BBS UNLESS YOUR SETUP IS"
  17. ? "   THE SAME AS MINE!!!! SEE THE FILE VALIDATE.DOC FOR INFO"
  18. dummy:
  19. X1$="[2][DO YOU WANT TO RUN THIS PROGRAM][YES|NO]"
  20. JUNK = FNFORM_ALERT(2,X1$)
  21. IF JUNK = 1 then goto ok
  22. IF JUNK = 2 then end
  23. goto dummy
  24. ok:
  25. fsel_input path$, name$,ff
  26. if ff = 0 then
  27. cls:? "Something is wrong!!!":close:end
  28. end if
  29. OPEN path$ FOR RANDOM AS #1 LEN=288
  30. FIELD #1, 288 AS A$
  31. GET #1
  32. Z=Z+1
  33. Q= CVI(MID$(A$,3,2)) 'Determine how many records are currently in use
  34.  
  35. FIELD #1, 1 AS F1$, 1 AS RS$, 1 AS HC$, 30 AS H$, 1 AS F2$, 1 AS NC$,_
  36.           30 AS N$, 1 AS F3$, 1 AS PC$, 15 AS P$, 1 AS SAC$, 25 AS SA$,_
  37.           1 AS CC$, 20 AS C$, 1 AS F4$, 1 AS SC$, 2 AS S$, 1 AS F5$,_
  38.           1 AS ZC$, 10 AS Z$, 1 AS F6$, 1 AS CTC$, 15 AS CT$, 1 AS PNC$,_
  39.           15 AS PN$, 1 AS F7$, 1 AS A$, 1 AS CPUC$, 14 AS CPU$, 1 AS F8$,_
  40.           4 AS ACC$, 1 AS LCDC$, 8 AS LCD$, 1 AS F9$, 2 AS TPC$, 2 AS TPD$,_
  41.           2 AS TUT$, 2 AS HM$, 2 AS DU$, 2 AS DL$, 2 AS UL$, 2 AS MP$,_
  42.           2 AS EP$, 2 AS TC$, 1 AS F10$, 1 AS SW$, 1 AS F11$, 1 AS DP$,_
  43.           1 AS F12$, 1 AS TPP$, 5 AS F13$, 1 AS TE$, 1 AS F14$, 1 AS NU$,_
  44.           4 AS SF$, 4 AS F15$, 4 AS RF$, 4 AS PF$, 4 AS EF$, 4 AS DF$,_
  45.           4 AS PMF$, 4 AS AF$, 4 AS VF$, 4 AS EFF$, 4 AS DFF$
  46. xit:
  47. GET #1,z
  48. Z=Z+1
  49. if z-2>q then cls:INPUT;" No More New Users Found.....PRESS RETURN", C:close:SYSTEM
  50. if asc(nu$)=0 then goto xit '**CHANGE TO =1 TO VIEW ALL USERS EXCEPT NEW
  51. cls
  52. ? "Record #:";z-1
  53. lset h$=ucase$(H$) 'Capitalize the Users Handle
  54. lset n$=ucase$(N$) 'Capitalize the Users Name
  55. ? "Handle: ";left$(h$,asc(hc$))
  56. ? "Name: ";left$(N$,asc(nc$))
  57. ? "Password: ";LEFT$(P$,ASC(PC$))
  58. ? "Street: ";ucase$(LEFT$(SA$,ASC(SAC$)));
  59. ? "   City & State: ";LEFT$(C$,ASC(CC$));", ";
  60. ? LEFT$(S$,ASC(SC$))
  61. ? "Zip: ";LEFT$(Z$,ASC(ZC$));
  62. ? "   Country: ";LEFT$(CT$,ASC(CTC$))
  63. ? "Phone #: ";LEFT$(PN$,ASC(PNC$));
  64. ? "   Computer: ";LEFT$(CPU$,ASC(CPUC$));
  65. ? "   Age: ";asc(a$);" Time on: ";cvi(tpc$);" ";cvi(tpd$)
  66. ? CVL(ACC$)
  67. ? cvl(af$):?
  68. ? "0 - Skip User"
  69. ? "1 - Delete User"
  70. ? "2 - Normal User"
  71. ? "3 - Atari User"
  72. ? "4 - Adult Atari User"
  73. ? "5 - QUIT"
  74. input c
  75. if c = 0 then gosub skip_user        'Do Nothing
  76. if c = 1 then gosub delete_user      'Delete the User
  77. if c = 2 then gosub normal_user      'Give them normal BBS Access
  78. if c = 3 then gosub atari_user       'Give them more time + file access
  79. if c = 4 then gosub adult_atari_user 'Give more time + adult file access 
  80. IF C = 5 THEN CLOSE:SYSTEM
  81. goto xit
  82. CLOSE
  83. skip_user:             'Skip the User
  84. return
  85. delete_user:
  86. lset rs$=chr$(0)       'Delete User Set
  87. put #1,loc(1)
  88. return
  89. normal_user:
  90. lset nu$=chr$(0)        'Validated User Set
  91. lset tpc$=mki$(45)      '45 minutes/call
  92. lset tpd$=mki$(45)      '45 minutes/day
  93. lset acc$=mkl$(1023)    'Access flags 1 - 10 set
  94. put #1,loc(1)
  95. return
  96. atari_user:
  97. lset nu$=chr$(0)        'Validated User Set
  98. lset tpc$=mki$(60)      '60 minutes/call
  99. lset tpd$=mki$(60)      '60 minutes/day
  100. lset acc$=mkl$(32767)   'Access flags 1 - 15 set
  101. put #1,loc(1)
  102. return
  103. adult_atari_user:
  104. lset nu$=chr$(0)        'Validated User Set
  105. lset tpc$=mki$(60)      '60 minutes/call
  106. lset tpd$=mki$(60)      '60 minutes/day
  107. lset acc$=mkl$(32767)   'Access flags 1 - 15 set
  108. lset af$=mkl$(67047423) 'Files flags  1 - 12 & 17 - 26 set
  109. put #1,loc(1)
  110. return
  111.