home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / HFX1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.2 KB  |  52 lines
  1. clear
  2. set device to screen 
  3. set talk off
  4. a='  '
  5. @ 4,20 say "╥¬╝╕╖▌ú┐" get a
  6. read
  7. a=val(a)
  8. @ 4,0 clear 
  9. @ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
  10. set cons off
  11. set device to print 
  12. set print on
  13. ? chr(27)+"IJ"
  14. set print off
  15. do while a<>0
  16. @ prow()+1,20 say "╕≈╧ε╓╕▒Ω▒╚╓╪╚╖╢¿▒φ"
  17. @ prow()+1,1 say "            "
  18. @ prow()+1,1 say ì
  19. "=================================================================ì
  20. ==="
  21. @ prow()+1,1 say ì
  22. "|╨╘─▄|╛¡╝├╨╘|┐╔┐┐╨╘|╥╫╬¼╨▐╨╘|╜┌─▄╨╘|╗╖▒ú░▓╚½╨╘|═¿╙├╨╘|╩╩╙├╨╘|═Γ╣█ì
  23. ╨╘|"
  24. @ prow()+1,1 say ì
  25. "|----|------|------|--------|------|----------|------|------|----ì
  26. --|"
  27. @ prow()+1,1 say "|╖╓╓╡|      |      |        |      |          | ì
  28.      |      |      |"
  29. @ prow()+1,1 say ì
  30. "|----|------|------|--------|------|----------|------|------|----ì
  31. --|"
  32. @ prow()+1,1 say "|╒╝úÑ|  ú¬  |  ú¬  |   ú¬   |  ú¬  |    ú¬    | ì
  33.  ú¬  |  ú¬  |  ú¬  |"
  34. @ prow()+1,1 say ì
  35. "=================================================================ì
  36. ==="
  37. @ prow()+1,1 say "╙╨ú¬║┼╒▀ú¼▓╗╙├╠ε╨┤úí                     ì
  38. ╞└╣└╚╦ú║"
  39. @ prow()+1,1 say "      "
  40. @ prow()+1,1 say "       "
  41. @ prow()+1,1 say "       "
  42. a=a-1
  43. enddo
  44. set print on
  45. ? chr(13)
  46. set print off
  47. set device to screen 
  48. retu
  49.  
  50.  
  51.  
  52.