home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JKZ32.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  182 b   |  12 lines
  1. STORE 'Y' TO C
  2. DO WHILE .NOT. C='n'
  3. APPE BLANK
  4. CLEAR
  5. @ 3,20 SAY '╡Ñ╬╗┤·┬δ' GET DW1
  6. @ 4,20 SAY '╡Ñ╬╗├√│╞' GET DW2
  7. READ
  8. @ 7,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡ ?' GET C
  9. READ
  10. ENDDO
  11. RETURN
  12.