Compuprint 6314 CDL - Manual (Page 45)

CDL – Programmer Manual
45
saved in register A, the second in B and so on up to Z. The contents of these registers can be
retrieved using command STX Sn in which n indicates the register to be retrieved.
The following examples, the first in text format, the second in Basic, give the result shown in fig.
34.
L
D11
PC
H15
133300000200200HELLO
G
133300000650200SA
133300001100200SA
133300001550200SA
E
OPEN "com1:9600,n,8,1" FOR OUTPUT AS #1
PRINT #1, CHR$(2); "L"
PRINT #1, "D11"
PRINT #1, "PC"
PRINT #1, "H15"
PRINT #1, "1"; "3"; "33"; "000"; "0020"; "0200"; "HELLO"
'save the previous field in register A
PRINT #1, "G"
PRINT #1, "1"; "3"; "33"; "000"; "0065"; "0200"; CHR$(2); "SA"
' 1 = rotation by 0 degrees
' 3 = font no. 3
' 33 = horizontal and vertical expansion
' 000 = ignored when the font is not 9
' 0065 = line co-ordinate
' 0200 = column co-ordinate
' STX SA = enters the memorised field in register A
PRINT #1, "1"; "3"; "33"; "000"; "0110"; "0200"; CHR$(2); "SA"
' 1 = rotation by 0 degrees
' 3 = font no. 3
' 33 = horizontal and vertical expansion
' 000 = ignored when the font is not 9
' 0110 = line co-ordinate
' 0200 = column co-ordinate
' STX SA = enters the memorised field in register A
PRINT #1, "1"; "3"; "33"; "000"; "0155"; "0200"; CHR$(2); "SA"
' 1 = rotation by 0 degrees
' 3 = font no. 3
' 33 = horizontal and vertical expansion
' 000 = ignored when the font is not 9
' 0155 = line co-ordinate
' 0200 = column co-ordinate
' STX SA = enters the memorised field in register A
PRINT #1, "E"
CLOSE #1