home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JKZ29.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  186 b   |  13 lines
  1. STORE 'Y' TO C
  2. DO WHILE .NOT. C='N'
  3. APPE BLAN
  4. CLEAR
  5. @ 3,20 SAY '┤·║┼' GET JDX1
  6. @ 4,20 SAY '├√│╞' GET JDX2
  7. READ
  8. @ 7,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡ ?' GET C
  9. READ
  10. c=uppe(c)
  11. ENDDO
  12. RETURN
  13.