home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progbas / msasc100.arj / GRAPHD40.ASI < prev    next >
Encoding:
Text File  |  1992-01-17  |  1009 b   |  64 lines
  1. data 19
  2.  
  3. rem "M"
  4.  
  5. data 1,30,2,2,15,15
  6. data 1,4,3,5,14,14,13,13,12,12
  7. data 1,30,6,6,11,11
  8. data 1,4,7,7,12,12
  9. data 1,31,8,8,13,13
  10. data 1,4,9,9,12,12
  11. data 1,30,10,10,11,11
  12. data 1,4,11,13,12,12,13,13,14,14
  13. data 1,30,14,14,15,15
  14.  
  15. rem "A"
  16.  
  17. data 2,30,16,16,15,15
  18. data 2,4,17,19,14,14,13,13,12,12
  19. data 2,30,20,20,11,11
  20. data 2,4,21,23,12,12,13,13,14,14
  21. data 2,30,24,24,15,15
  22. data 2,220,19,21,13,13,13,13,13,13
  23.  
  24. rem "T"
  25.  
  26. data 3,219,26,30,11,11,11,11,11,15,11,11,11,11
  27.  
  28. rem "T"
  29.  
  30. data 4,219,33,37,11,11,11,11,11,15,11,11,11,11
  31.  
  32. rem Top border
  33.  
  34. data 5,1,2,37,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  35. data 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  36. data 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  37. data 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  38.  
  39. cls
  40. width 40
  41. read no
  42. for ob=1 to no
  43. read ko
  44. read ch
  45. read y
  46. read z
  47. for co=y to z
  48. read a
  49. read b
  50. for ro=a to b
  51. color ko,0
  52. locate ro,co
  53. c$=chr$(ch)
  54. print c$;
  55. next ro
  56. next co
  57. next ob
  58. locate 81,81
  59. wait:
  60. a$=inkey$
  61. if a$="" then wait:
  62. width 80
  63. end
  64.