home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / sbasics.lbr / SCREEN.BZS / SCREEN.BAS
Encoding:
BASIC Source File  |  1993-10-25  |  1.8 KB  |  57 lines
  1. comment
  2.     File:        SCREEN.BAS
  3.     Contents:    S-Basic program to display screen characters 0 - 255.
  4.     Writer:        Bryan Ashby
  5.     Description:    See SCREEN.DOC
  6.     Date:        Jan 83
  7. end
  8.  
  9. var I = integer
  10. var J = integer
  11. var K = integer
  12. var IT = byte
  13.     IT = chr(31)
  14. text 0,&
  15.                    S C R E E N   C H A R A C T E R   T A B L E 
  16.  
  17.          The numbers are the decimal ASCII codes for the characters.
  18. &
  19. print string (80,31);
  20. for I = 1 to 2
  21.   print string(8,31); "  0  1  2  3  4  5  6  7  8  9 ";
  22. next I
  23. print IT; IT;
  24. print string(8,31); string(31,45); string(8,31); string(31,45); string(2,31);
  25. for I = 0 to 120 step 10
  26.   print IT; IT;
  27.   print using "####"; I; 
  28.   print "| ";
  29.   for J = I to I+9 
  30.     if J < 31 then if J = 0  then print "NUL";
  31.               else if J = 7  then print "BEL";
  32.               else if J = 8  then print " BS";
  33.               else if J = 9  then print " HT";
  34.               else if J = 10 then print " LF";
  35.               else if J = 11 then print " UP";
  36.               else if J = 12 then print "RET";
  37.               else if J = 13 then print " CR";
  38.               else if J = 23 then print "CES";
  39.               else if J = 24 then print "CEL";
  40.               else if J = 26 then print " CS";
  41.               else if J = 27 then print "ESC";
  42.               else if J = 30 then print "HOM";
  43.                              else print "  "; chr(J);
  44.               else print "  "; chr(J);
  45.   next J
  46.   K = I + 130
  47.   print ' '; IT; IT;
  48.   print using "####"; K;
  49.   print "| ";
  50.   for J = K to K+9 
  51.     if J > 255 then print string(3,31);
  52.                else print "  "; chr(J);
  53.   next J
  54.   print ' '; IT; IT;
  55. next I
  56. print string (80,31);
  57.