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