home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / programs / list / ep-docs.ark / FCHART < prev    next >
Text File  |  1988-05-21  |  896b  |  32 lines
  1. \if argcount < 2 \error What font to chart?
  2. \fm0
  3. \high-resolution
  4. \font Nullfont
  5. \lm 1"\ll 6"
  6. \tab-char :
  7. \xcol =7*24\rept-line 16\cl=xcol\tab-set\xcol+=3*24
  8. \Font B:$1
  9. \ce Font \$1
  10.  
  11. \cl 6\ru1\ru2\cl9\ru3\cl12\ru4\cl15\ru5\cl18\ru6\cl21\ru7\cl24\ru8\cl27\ru9\
  12. \cl30\ru10\cl33\ru11\cl36\ru12\cl39\ru13\cl42\ru14\cl45\ru15\
  13. \cl48\ru16\cl51\ru17\cl54\ru18\ru1
  14. :\xch1\rl 15:\(xch)\xch+
  15. \cl 6\rule\cl 54\rule
  16. \rept-line 16 :\(xch)\xch+
  17. \cl 6\rule\cl 54\rule
  18. \rept-line 16 :\(xch)\xch+
  19. \cl 6\rule\cl 54\rule
  20. \rept-line 16 :\(xch)\xch+
  21. \cl 6\rule\cl 54\rule
  22. \rept-line 16 :\(xch)\xch+
  23. \cl 6\rule\cl 54\rule
  24. \rept-line 16 :\(xch)\xch+
  25. \cl 6\rule\cl 54\rule
  26. \rept-line 16 :\(xch)\xch+
  27. \cl 6\rule\cl 54\rule
  28. \rept-line 15 :\(xch)\xch+
  29. \cl 6\ru1\ru2\ru3\ru4\ru5\ru6\ru7\ru8\ru9\
  30. \ru10\ru11\ru12\ru13\ru14\ru15\
  31. \ru16\ru17\ru18\cl54\ru1
  32.