GPRINTER GP-3150TIN - Page 37

Example 1.
SIZE 3,2
GAP 0,0
CLS
TEXT 100,100,"5",0,1,1,"\["]DEMO FOR TEXT\["]"
TEXT 100,200,"ROMAN.TTF",0,1,20,"\["]True Type Font Test Print\["]"
PRINT 1,1
Example 2：
DOWNLOAD F,"test.BAS"
SPEED 4
DENSITY 8
SET PEEL OFF
DIRECTION 0
SIZE 1.000,0.800
GAP 0.12,0.00
OFFSET 0.000
REFERENCE 0,0
:START
CLS
INPUT "Description",A$
Again:
F$=""
INPUT "Font:",1,F$
IF ASC(F$)>53 THEN GOTO Again
IF ASC(F$)<49 THEN GOTO Again
X_Again:
INPUT "X_multiple:",1,XM
IF XM>8 THEN GOTO X_Again
IF XM<1 THEN GOTO X_Again
Y_Again:
INPUT "Y_multiple:",1,YM
IF YM>8 THEN GOTO Y_Again
IF YM<1 THEN GOTO Y_Again
Z=LEN(A$)
WWidth=Z*XM*8
IF F$="1" THEN
REM *****When Font1, the space between every single word is XM*2 dots*****
WWidth=Z*(XM*8)
SWidth=Z*(XM*2)
X=101-((WWidth+SWidth)/2)
ELSEIF F$="2" THEN
REM *****When Font2, the space between every single word is XM*2 dots*****
WWidth=Z*(XM*12)
SWidth=Z*(XM*2)