home *** CD-ROM | disk | FTP | other *** search
- ; A S C I I P R I N T E R T E S T C H A R T
-
- ; (c) 1989 Ralph Roberts
-
- ; CHAR.SPM is a Sprint macro that came about through my annoyance in trying
- ; to find a special character on a PostScript laser printer. Ever notice that
- ; the durn character tables are never to hand when you NEED them? This macro
- ; will dump a neat ASCII chart, with the character decimal equavalents into a
- ; document file. Thus you can use it for whatever printer and font currently
- ; selected by Sprint. I've found it to be exceptionally handy! Enjoy.
-
- ; TO INSTALL: To put this macro into Sprint, simply load this file, exactly
- ; as it is. If there is a ruler at the top, remove it. Then type the ALT-U-M-R
- ; key combination and this macro will be compiled. Next, use the ALT-U-M-E key
- ; combination. When it reads, "Enter Macro:" on the status line at the bottom
- ; of your screen, type in the name "CHARGEN" and hit the <ENTER> key. You may
- ; either execute your new macro, or assign it to a key or key combination for
- ; ease-of-use in the future. Enjoy!
-
- ; CHAR.SPM and the other unique Sprint macros in this series are all the copy-
- ; righted property of Ralph Roberts. You may distribute and use them freely
- ; if the macros are properly attributed & my copyright notice remains intact.
- ; They are, frankly, advertisements for my book on Sprint, and the other help-
- ; ful computer-oriented books that I write. Helping fellow computer users is
- ; how I make my living, so please look for my books and articles. Thanks.
-
- ; Ralph Roberts, the author of this macro, also wrote the comprehensive book,
- ; COMPUTE!'S USING BORLAND'S SPRINT. Autographed copies of this 100,000-word+
- ; book are now available for the retail price of $16.95 (ppd) from the author
- ; at: P.O. Box 8549, Asheville, North Carolina 28814, or you may buy it through
- ; your local Waldenbooks, B. Dalton's, or other quality bookstore.
-
-
- CharGen:
- 33 -> x
- 0 -> y
-
- "^OBEGIN VERBATIM,SPACING 1^N^J^J"
- "^F^BA S C I I P R I N T E R T E S T C H A R T^N^F^J^J"
- "^FCourtesy of "
- "^UCOMPUTE!'S USING BORLAND'S SPRINT^N by Ralph Roberts^F^J^J"
-
- while x < 256 {
- if x < 100 (" ")
- x put current
- " " x -> current " " draw
- x + 1 -> x
- y + 6 -> y
- if y = 54 ("^J" 0 -> y)}
-
- "^OEND VERBATIM^N" 26 up tosol
-