10 cls
20 for r = 0 to 15
30  for c = 1 to 6
40   a = 16+r+c*16
50   print right$("  "+str$(a),4)": " chr$(a)tab (10*c);
60  next c
70  print
80 next r