home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JKZ23.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. @ 3,15 SAY '╔Φ▒╕╨═║┼' GET GJ1
  6. @ 4,15 SAY '╣ñ╛▀┤·┬δ' GET GJ2
  7. @ 5,15 SAY '╣ñ    ╛▀' GET GJ3
  8. READ
  9. @ 7,20 SAY '╗╣╝╠╨°╩Σ╚δ┬δ ?' GET C
  10. READ
  11. c=uppe(c)
  12. ENDDO
  13. RETURN
  14.