Basic Programming Example For Evfu Table Loading - Genicom GEK 00031B Programmer's Manual

PROGRAM INSTRUCTION
1500 WIDTH "LPT1:" 255
1510 LPRINT CHR$(27);"]I";
1520 LPRINT CHR$(65);CHR$(64);
1530 FOR I=1 to 4
1531 LPRINT CHR$(64);CHR$(64);
1532 NEXT I
1540 LPRINT CHR$(68);CHR$(64);
1550 FOR I=1 to 16
1551 LPRINT CHR$(64);CHR$(64);
1552 NEXT I
1560 LPRINT CHRS$72);CHR$(64);
1570 FOR I=1 to 31
1571 LPRINT CHR$(64);CHR$(64);
1572 NEXT I
1580 LPRINT CHR$(80);CHR$(64);
1590 FOR I=1 to 8
1591 LPRINT CHR$(64);CHR$(64);
1592 NEXT I
1600 LPRINT CHR$(64);CHR$(66);
1610 LPRINT CHR$(27);"\";
1620 END
GEK-00029B
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
Value
1 2 1
64 64 1000000
65 64 1000001
66 64 1000010
68 64 1000100
72 64 1001000
80 64 1010000
96 64 1100000
64 65 1000000
64 66 1000000
64 68 1000000
64 72 1000000
64 80 1000000
64 96 1000000

BASIC Programming Example for EVFU Table Loading

Required by some BASIC languages to avoid auto LF at
column 80
Enables EVFU loading.
Resets TOF, Channel 1 Sao Table of Channel Codes
4 filler lines
Selects Channel 3. See Table of Channel Codes
16 filler lines
Selects channel 4. See Table of Channel Codes
31 filler lines
Selects channel 5. See Table of Channel Codes
8 filler lines
Selects channel 8. See Table of Channel Codes
Exit EVFU loading.
NOTE
Binary ASCII
Value Character
2 1
1000000 @
1000000 A
1000000 B
1000000 D
1000000 H
1000000 P
1000000 `
1000001 @
1000010 @
1000100 @
1001000 @
1010000 @
1100000 @
REMARKS
43
2 Remarks
@ Fillers: see Note
@ Channel 1
@ Channel 2
@ Channel 3
@ Channel 4
@ Channel 5
@ Channel 6
A Channel 7
B Channel 8
D Channel 9
H Channel 10
P Channel 11
` Channel 12
5000 Series Programmer's Manual