home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro14 / secure.bas < prev    next >
Encoding:
BASIC Source File  |  1991-03-13  |  668 b   |  20 lines
  1. 1 CLS
  2. 2 ON ERROR GOTO 4:COLOR 0,0
  3. 3 FILES "AUTHORIZ"
  4. 4 IF ERR=53 THEN RESUME 18
  5. 5 SECURITY=1:OPEN "I",3,"AUTHORIZ":INPUT #3,SN$,CS:CLOSE #3:COLOR 15,0
  6. 6 FOR N=1 TO 8:V$(N)=MID$(SN$,N,1):NEXT N
  7. 7 FOR N=1 TO 8:A(N)=ASC(V$(N)):NEXT N
  8. 8 FOR N=2 TO 8:T=T+A(N)*A(N-1):NEXT N
  9. 9 V=VAL(SN$)
  10. 10 IF V=<0 THEN GOTO 18
  11. 11 T=(T+AN/2.86)*V
  12. 12 C=INT((T^3+T^(3/2)+T^2/T^(.75)))/1000000!
  13. 13 IF C>9999999! THEN C=(C/10):IF C>9999999! THEN GOTO 13
  14. 14 IF C<1111111! THEN C=(C*10):IF C<1111111! THEN GOTO 14
  15. 15 IF C-INT(C)=>.5 THEN C=INT(C)+1
  16. 16 IF C-INT(C)<.5 THEN C=INT(C)-1
  17. 17 IF CS=C THEN GOTO 19
  18. 18 SECURITY=0
  19. 19 REM The next line is the beginning of your program.
  20.