home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JKZ20.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  226 b   |  14 lines
  1. STORE 'Y' TO C
  2. DO WHILE .NOT. C='N'
  3. APPEND BLANK
  4. CLEAR
  5. @ 4,15 SAY '╔Φ▒╕╨═║┼' GET AN1
  6. @ 5,15 SAY '┤·    ┬δ' GET AN2
  7. @ 6,15 SAY '─┌    ╚▌' GET AN3
  8. READ
  9. @ 8,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡ ?' GET C
  10. READ
  11. c=uppe(c)
  12. ENDDO
  13. RETURN
  14.