Contents, cont'd. - Intermec

LAYOUT, cont'd.
Chapter 2 Program Instructions
Examples
10 DIM QERR%(10)
20 LAYDATA$(0)="01DAY"
30 LAYDATA$(1)="04123456789012"
40 QERR%(0)=0
50 OPEN "tmp:LOGNAME.DAT" FOR OUTPUT AS 19
60 PRINT# 19,"DIAMONDS.1";
70 CLOSE 19
80 OPEN "tmp:LAYOUT.DAT" FOR OUTPUT AS 6
90 PRINT# 6,"01C11100 10 BODYTEXT 1 00I 11 ";
100 PRINT# 6,"01C11100 40 BODYTEXT 1 00 22 ";
110 PRINT# 6,"01C11100 100 BODYTEXT 1WEDNES 06I 11 ";
120 PRINT# 6,"01C11100 130 BODYTEXT 1SATURNUS 05I 11 ";
130 PRINT# 6,"02L11300 70 1 33 ";
140 PRINT# 6,"03S11100 210 300 3 ";
150 PRINT# 6,"04B14100 300 EAN13 0 312 100";
160 CLOSE 6
170 LAYOUT "tmp:LAYOUT.DAT","tmp:LOGNAME.DAT",LAYDATA$,QERR%
180 IF QERR% (1) = 0 THEN GOTO 250
190 PRINT "-ERROR- LAYOUT 1"
200 I%=0
210 IF QERR%(I%)=0 THEN GOTO 250
220 PRINT " ERROR ";QERR%(I%+1);" in record ";QERR%(I%)
230 I%=I%+2
240 GOTO 210
250 PRINTFEED
Intermec Fingerprint 7.2 – Reference Manual Ed. 3 125