home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / WHUR.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  315 b   |  22 lines
  1. clear
  2. set talk off
  3. use sb 
  4. set index to sb1
  5. repl all sb31 with 'n'
  6. set devi to scree
  7. a='    '
  8. @ 3,20 say "╟δ╩Σ╚δ▓╗═Ω║├╔Φ▒╕╫▄╩²" get a pict '9999'
  9. read
  10. a=val(a)
  11. do while a<>0
  12. clear
  13. b='         '
  14. @ 4,20 say "╟δ╩Σ╚δ▓╗═Ω║├╔Φ▒╕▒α║┼" get b
  15. read
  16. seek b
  17. repl sb31 with 'y'
  18. a=a-1
  19. enddo 
  20. clos data
  21. retu
  22.