100	!SYMAKE		VERSION 6A	EDIT 1		2-AUG-76
	!(EXPORT VERSION)
110	!
	!APPOLOGIES FOR A POORLY DOCUMENTED PROGRAM; THIS PROGRAM IS
	!MEANT TO SET UP THE SYMBOL FILE.  IT IS USUALLY RUN ONCE
120	!AND THEN FORGOTTEN.  IT CAN HOWEVER BE USED TO CREATE FILES OF
	!SPECIAL PLOTTING SYMBOLS.

130!!!SYMAKE -- CREATE SYMBOL ARRAYS FOR LETTERING ON TEK4010 OR HP
	PLOTTER USING TEK?? PLOTTING FUNCTIONS
140!! CREATES 16BYTE OR LESS STRING S$(), SUCH THAT S$(K) DRAWS CHR$(K)
150!! EACH BYTE OF S$ HAS THE FORM
	|U/D| X | X | X | S | Y | Y | Y |

	WHERE U/D = 0 FOR LINE; 1 FOR NO LINE TO POINT
160!	       XXX = COORDINATE OF X DIRECTION
	       YYY = COORDINATE OF Y DIRECTION (2'S COMPLIMENT WITH S)
	INPUT IS:
170!		0XY - NORMAL POINT
		1XY - (X,-Y)
		2XY - UP TO (X,Y)
		3XY - UP TO (X,-Y)
		4X0 - UP TO (-X,0)
		500 - SPECIAL CHARACTER (255%)
180!	GRID IS:
	06|16|26|36|46
	05|15|25|35|45
	04|14|24|34|44
	03|13|23|33|43
	02|12|22|32|42
	01|11|21|31|41
	00|10|20|30|40
190	!
	!FOR EXAMPLE, THE LETTER 'X' (ASCCII=88) WOULD BE REPRESENTED
	!IN THE INPUT FILE AS THE FOLLOWING STRING OF NUMBERS:
	!
	!200,46,23,6,40,260
200	!
	!SEE THE FILE 'TEKSYM.FIL' FOR FURTHER EXAMPLES.
	!NOTE:  FOR NORMAL CHARACTER SPACING, THE LAST MOTION TO THE
	!START OF THE NEXT CHARACTER POSITION CAN BE SKIPPED.
210	!I.E., IF THE LAST ENTRY WOULD NORMALLY BE 260 (PEN UP TO THE START
	!OF THE NEXT POSITION) IT CAN BE OMITTED.  OVER TRACING WITH PEN DOWN
	!IS PREFERRED TO ANY RAISING/LOWERING OF THE PEN.

220 DIM T%(16%),S%(16)
230 DIM#1, S$(127%)=16%
240 INPUT 'SYMBOL FILE (OUTPUT)';F$
250 OPEN F$ FOR OUTPUT AS FILE 1%, FILESIZE 4%
260 INPUT'INPUT FILE';F1$\ OPEN F1$ FOR INPUT AS FILE 2
270 FOR I%=0% TO 127%
280 MAT INPUT#2%, T%
290 GOSUB 320
300 NEXT I%
310 GOTO 380
320 FOR J%=1% TO NUM\ T%= T%(J%)\ Z%=0%\ F%=T%/100%\
	T%=T%-100%*F%\ X%=T%/10%\ Y%=T%-10%*X%
330 Z%=128% IF F%>=2%\ Y%=16%-Y% IF F%=1% OR F%=3%\
	Y%=8% IF F%=4%\
	IF F%=5% THEN S%(J%)=255% ELSE S%(J%)=Z%+X%*16%+Y%
340 NEXT J%
350 S%(K%)=0% FOR K%=J%+1% TO 16%
360 S%(0%)=16%\ CHANGE S% TO S$(I%)
370 RETURN
380 CLOSE 1,2
390 END