home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GJH.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  551 b   |  42 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. use &a
  6. a1=.t.
  7. do while a1
  8. clear
  9. k1='         '
  10. k2='     '
  11. a2=.t.
  12. do while a2
  13. clear
  14. @ 2,1 say "╟δ╩Σ╚δ"+c+"╚╒╞┌╕─▒Σ╟Θ┐÷"
  15. @ 3,1 say "╔Φ▒╕▒α║┼" get k1
  16. @ 4,1 say "╕─▒Σ╠∞╩²" get k2 pict '#####'
  17. read 
  18. wait '╩²╛▌╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú ╖╡╗╪ú╥ú ' to w
  19. do case 
  20. case w='r'
  21. retu
  22. case w='x'
  23. loop
  24. case w='z'
  25. k2=val(k2)
  26. loca for bjh1=k1                             
  27. repl &b with &b+k2
  28. endcase 
  29. exit
  30. enddo a2
  31. wait '╗╣╨▐╕─┬≡(Y/N)' to w
  32. if w<>'y'
  33. retu
  34. endif
  35. enddo a1
  36. retu
  37.  
  38.  
  39.  
  40.  
  41.  
  42.