home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / baslib1.zip / ASCII.BAS next >
BASIC Source File  |  1987-03-27  |  1KB  |  57 lines
  1. 'ASCII CHR set by Jeff Bretz, John Craig
  2. 'Converted to Quickbasic 2.01 by Dennis Dreyer
  3. 'ASCII.BAS
  4.  
  5. CLS
  6. locate 9,30:Print    "                      "
  7. locate 10,30,0:Print " Displaying ASCII CHR "
  8. locate 11,30:Print " In Quickbasic 2.01 "
  9. locate 12,30:Print    "                      "
  10. color 4,4,1:locate 13,30:Print "                      "
  11. locate 8,30:Print "                      "
  12. locate 20,22:color 4,0:Print " To Quit after DEMO press any key!"
  13. for w=1 to 10000:next
  14.  
  15. screen 0:color 7,0:cls:width 40
  16.  
  17. def seg=&HB800
  18. color 4
  19. locate 1,12,0
  20. print "ASCII Character Set";
  21. locate 3,14
  22. print "EX: A = 41 HEX"
  23. color 6
  24.  
  25. for x=0 to 15
  26. for y=0 to 15
  27. poke (8+x)*80+14+Y*4,X*16+Y
  28. next Y,X
  29.  
  30.  
  31. locate 8,7
  32. print string$(32,205)
  33. locate 8,6
  34. print chr$(201);
  35.  
  36. for x=9 to 24
  37. locate x,6
  38. print chr$(186);
  39. next
  40.  
  41. for X=0 to 15
  42. locate 7,X*2+8,0
  43. print hex$(X);
  44. next X
  45.  
  46. for X=0 to 15
  47. locate X+9,5,0
  48. print hex$(x);
  49. next
  50.  
  51.  
  52. REPEATQUIT:
  53. A$=inkey$
  54. IF A$ <> "" then end else goto repeatquit
  55.  
  56.  
  57.