Star Micronics TSP400 Series, Programmer'S Manual

Page: 63 / 136

– 60 –
PAGE MODE
==SAMPLE PROGRAM==
’This sample program (SAMPLE2.BAS) is included in a floppy disk with the TSP400
printer.
’——<< SAMPLE2.BAS >>——
E$ = CHR$(27): LN$ = CHR$(10) + CHR$(0)
OPEN “COM1:9600,N,8,1,CS0,DS0” FOR RANDOM AS #1
:’For Serial I/F COM1:
’OPEN “COM2:9600,N,8,1,CS0,DS0” FOR RANDOM AS #1 :’For Serial I/F COM2:
’OPEN “LPT1:”FOR RANDOM AS #1: WIDTH “LPT1:”, 255 :’For Parallel I/F LPT1:
’——<< FORMAT SETTINGS >>——
PRINT #1, E$; “C”; LN$;
:’Clear format
PRINT #1, E$; “D0800”; LN$; :’Set print area
PRINT #1, E$; “PC00;0300,0222,1,1,1,00,01”; LN$; :’Define character string
position and type
PRINT #1, E$; “PC01;0300,0249,1,1,1,00,01”; LN$;
PRINT #1, E$; “PC02;0300,0276,1,1,1,00,01”; LN$;
PRINT #1, E$; “PB00;0300,0330,4,1,0,0040”; LN$;
:’Define bar code position
and type
PRINT #1, E$; “B”; LN$;
:’Enable cutter
’——<< PRINT DATA >>——
PRINT #1, E$; “RC00;Part#”: 08210116
“;LN$; :’Set character data
PRINT #1, E$; “RC01;Name : TTL IC 74LS06 (FLAT TYPE)”; LN$;
PRINT #1, E$; “RC02;Qty.: 50 pcs “; LN$;
PRINT #1, E$; “RB00;08210116”; LN$; :’Set bar code data
’
PRINT #1, E$; “H;0135,0255,”;
:’Copy BMP file to image buffer”
OPEN “TTLIC.BMP” FOR BINARY AS #2
FOR I = 1 TO LOF(2): D$ = INPUT$(1, #2): PRINT #1, D$;: NEXT l
CLOSE #2
PRINT #1, “,”; LN$
’——<< PRINT >>——
PRINT #1, E$; “I”; LN$
:’Print Label
END
Print Out Sample
P1995.6