home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTKP.PRG < prev    next >
Encoding:
Text File  |  1990-05-29  |  1.2 KB  |  84 lines
  1. ** RPTKP.PRG **
  2. CLEAR
  3. @ 1,0 CLEAR
  4. DIME FNA(32)
  5. BNO=0
  6. BGM=''
  7. FN=''
  8. FNA=0
  9. DO SELEB
  10. IF LEN(FN)=0
  11. RETU
  12. ENDIF
  13. MBTZX=FNA(4)
  14. MBSZX=FNA(5)
  15. HJJ=-2
  16. PP=25
  17. GG=1
  18. @ 2,20 TO 5,60 DOUB
  19. @ 3,21 SAY '╟δ╩Σ╚δ┐╒▒φ╡─┐╒╨╨╩² [1-100]:' GET PP RANG 1,100
  20. @ 4,21 SAY '    ┐╒▒φ╡─┤≥╙í╖▌╩² [1-10 ]:' GET GG RANG 1,10
  21. READ
  22. SELE 10
  23. USE FFBT
  24. SET FILT TO B_NO=BNO
  25. GO TOP
  26. SNUM2=LEN(TRIM(SNA))
  27. COUNT TO MXN
  28. MXN=MXN-3
  29. SKIP -1
  30. SYM3=TRIM(SNA)
  31. SKIP -1
  32. SYNN=TRIM(SNA)
  33. SKIP -1
  34. SYM2=TRIM(SNA)
  35. GO TOP
  36. BC2=INT((SNUM2-LEN(BGM)*2)/4)
  37. HN='⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ'
  38. HN=HN+HN
  39. IF LEN(BGM)/2=INT(LEN(BGM)/2)
  40. LGM=LEN(BGM)
  41. ELSE
  42. LGM=LEN(BGM)+1
  43. ENDIF
  44. BGM1=SUBSTR(HN,1,LGM+4)
  45. CLEAR
  46. @ 3,20 TO 5,55 DOUB
  47. IF SYS(13)<>'READY'
  48. @ 4, 25 SAY '╟δ╫╝▒╕║├┤≥╙í╗·......'
  49. ?? CHR(7)+CHR(7)
  50. ENDIF
  51. DO WHILE SYS(13)<>'READY'
  52. ENDDO
  53. @ 4,25 SAY '┐¬╩╝┤≥╙í......      '
  54. SET CONS OFF
  55. SET PRINT ON
  56. DD=1
  57. BC=1
  58. DO WHILE .T.
  59. IF GG<DD
  60. EXIT
  61. ENDIF
  62. DO RPTMZPT
  63. I=1
  64. DO WHILE I<PP
  65. ? SPACE(BC)+SYM2
  66. ? SPACE(BC)+SYNN
  67. I=I+1
  68. ENDDO
  69. ? SPACE(BC)+SYM3
  70. DO RPTWZPT
  71. DD=DD+1
  72. ? CHR(2)
  73. ENDDO
  74. ?
  75. ?
  76. SET PRINT OFF
  77. SET CONS ON
  78. ?? CHR(7)+CHR(7)
  79. @ 4,25 SAY '┤≥╙í═Ω▒╧!!!         '
  80. A=INKEY(4)
  81. CLOSE DATA
  82. RETU
  83. **** END OF RPTKP.PRG ****
  84.