home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTCR.PRG < prev    next >
Encoding:
Text File  |  1990-04-27  |  669 b   |  42 lines
  1. ****** RPTCR.PRG ******
  2. DIME FNA(32)
  3. BGM=SPACE(30)
  4. MBTZX=' '
  5. MBSZX=' '
  6. DO WHILE .T.
  7. SET SCOR ON
  8. @ 2,11 TO 6,60 DOUB
  9. @ 3,13 SAY '╟δ╩Σ╚δ▒¿▒φ├√│╞ ' GET BGM
  10. @ 4,13 SAY '    ▒φ▒Ω╠Γ╫╓╨═ 'GET MBTZX PICT '!'
  11. @ 4,COL() SAY '[A-╨í╫╓ B-▒Γ╫╓ C-│ñ╫╓ D-┤≤╫╓]'
  12. @ 5,13 SAY '    ▒φ┐≥╝▄╫╓╨═ ' GET MBSZX PICT '!'
  13. READ
  14. BGM=LTRIM(RTRIM(BGM))
  15. IF LEN(BGM)=0
  16. RETU
  17. ENDIF
  18. IF MBTZX$'ABCD'.AND.MBSZX$'ABCD'
  19. EXIT
  20. ENDIF
  21. ENDDO
  22. FNA=0
  23. BNO=''
  24. DO RPTCR0
  25. LLO=0
  26. MC=1
  27. DO RPTCR1
  28. CLEAR
  29. @ 3,20 TO 5,60 DOUB
  30. YN=1
  31. @ 4,21 SAY '╙╨╔╧▓π▒φ═╖┬≡?[1-╙╨/0-╬▐]:' GET YN PICT '9' RANG 0,1
  32. READ
  33. IF YN=1
  34. DO RPTCR2
  35. ELSE
  36. MC=1
  37. DO RPTCR211
  38. ENDIF
  39. SET SCOR OFF
  40. RETU
  41. ** END OF RPTCR.PRG **
  42.