//    This program displays the ASCII value (0-255)
//    associated with each screen character.

      cls; ch=0
loop: y=ch/11; x=7*(ch%11)
      tabxy(x+1+bool(ch<10)+bool(ch<100),y+1)
      output (ch, 0)
      output (":", 0)
      If ch=13 Goto next
      If ch!=26 Call output (char(ch), 0)
next: ch=ch+1; If ch<256 Goto loop