Genicom GEK 00031B manual Basic Programming Example for Evfu Table Loading

NOTE

To make characters acceptable, bit 7 must be set.

Each "channel control code" pair of bytes has the capability to indicate multiple channels since each channel indication has a unique bit position, which is either ON=1 or OFF=0.

TABLE OF CHANNEL CODES

Decimal			Binary					ASCII
Value			Value				Character
1	2		1		2		1			2	Remarks
64	64	1000000		1000000		@			@		Fillers: see Note
65	64	1000001		1000000			A		@		Channel 1
66	64	1000010		1000000			B		@		Channel 2
68	64	1000100		1000000			D		@		Channel 3
72	64	1001000		1000000			H		@		Channel 4
80	64	1010000		1000000			P		@		Channel 5
96	64	1100000		1000000		`			@		Channel 6
64	65	1000000		1000001		@				A	Channel 7
64	66	1000000		1000010		@				B	Channel 8
64	68	1000000		1000100		@				D	Channel 9
64	72	1000000		1001000		@				H	Channel 10
64	80	1000000		1010000		@				P	Channel 11
64	96		1000000		1100000		@			`	Channel 12

BASIC Programming Example for EVFU Table Loading

	PROGRAM INSTRUCTION	REMARKS
1500	WIDTH "LPT1:" 255	Required by some BASIC languages to avoid auto LF at
		column 80
1510	LPRINT CHR$(27);"]I";	Enables EVFU loading.
1520	LPRINT CHR$(65);CHR$(64); Resets TOF, Channel 1 Sao Table of Channel Codes
1530	FOR I=1 to 4
1531	LPRINT CHR$(64);CHR$(64);	4 filler lines
1532	NEXT I
1540	LPRINT CHR$(68);CHR$(64); Selects Channel 3. See Table of Channel Codes
1550	FOR I=1 to 16
1551	LPRINT CHR$(64);CHR$(64);	16 filler lines
1552	NEXT I
1560	LPRINT CHRS$72);CHR$(64); Selects channel 4. See Table of Channel Codes
1570	FOR I=1 to 31
1571	LPRINT CHR$(64);CHR$(64);	31 filler lines
1572	NEXT I
1580	LPRINT CHR$(80);CHR$(64); Selects channel 5. See Table of Channel Codes
1590	FOR I=1 to 8
1591	LPRINT CHR$(64);CHR$(64);	8 filler lines
1592	NEXT I
1600	LPRINT CHR$(64);CHR$(66); Selects channel 8. See Table of Channel Codes
1610	LPRINT CHR$(27);"\";	Exit EVFU loading.
1620	END

GEK-00029B 43 5000 Series Programmer’s Manual