1 / 177

STRING ONE

STRING ONE. STRING US(600). STRING USON. STRING TMPLINE(600). STRING MOD(20). STRING FNA(20). STRING DSC(20). STRING YN(20). INTEGER RECOG. INTEGER RECNUM. INTEGER W. INTEGER X. INTEGER Y. INTEGER Y2. INTEGER Z. INTEGER A.

archie
Download Presentation

STRING ONE

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. STRING ONE

  2. STRING US(600)

  3. STRING USON

  4. STRING TMPLINE(600)

  5. STRING MOD(20)

  6. STRING FNA(20)

  7. STRING DSC(20)

  8. STRING YN(20)

  9. INTEGER RECOG

  10. INTEGER RECNUM

  11. INTEGER W

  12. INTEGER X

  13. INTEGER Y

  14. INTEGER Y2

  15. INTEGER Z

  16. INTEGER A

  17. INTEGER COU

  18. INTEGER B

  19. FOR A=1 TO 20

  20. LET YN(A)=" "

  21. NEXT A

  22. :HOME

  23. CLS

  24. RECOG=0

  25. GETUSER

  26. FOPEN 1,ppepath()+"indilog.dat", O_RW, S_DB

  27. fget 1,z

  28. for w=1 to z

  29. FGET 1, mod(w)

  30. FGET 1, fna(w)

  31. FGET 1, dsc(w)

  32. next w

  33. fclose 1

  34. FOPEN 1,ppepath()+"indilog.usr", O_RW, S_DB

  35. FGET 1,COU

  36. FOR B=1 to COU

  37. FGET 1, US(B)

  38. IF (US(B)!=U_NAME()) THEN

  39. FGET 1, TMPLINE(B)

  40. ENDIF

  41. IF (US(B)=U_NAME()) THEN

  42. RECOG=1

  43. RECNUM=B

  44. FGET 1, TMPLINE(B)

  45. FOR A=1 TO Z

  46. YN(A)=RIGHT(LEFT(TMPLINE(B),A),1)

  47. NEXT A

  48. ENDIF

  49. NEXT B

  50. FCLOSE 1

More Related