User manual

43
BOX AND LINE SUPPLEMENT
The box and line commands are very useful in adding a finished appearance to the ticket. The following example shows
how a ticket could be formatted using these commands. (NOTE: The following ticket is printed on a 2" wide print head with
200 dpi.
1 CLS:PRINT:PRINT "WHICH OF THE FOLLOWING PORTS IS YOUR PRINTER CONNECTED TO?"
2 PRINT:PRINT "1=LPT1:":PRINT "2=LPT2:":PRINT "3=COM1:":PRINT "4=COM2:"
3 PRINT:INPUT "ENTER NUMBER 1-4";PN$:PN=VAL(PN$)
4 IF PN < 1 OR PN > 4 THEN CLS:GOTO 1
5 ON PN GOTO 6,7,8,9
6 OPEN "LPT1:" AS #1:WIDTH #1,255:GOTO 10
7 OPEN "LPT2:" AS #1:WIDTH #1,255:GOTO 10
8 OPEN "COM1:9600,N,8,1,RS,DS60000" AS #1:GOTO 10
9 OPEN "COM2:9600,N,8,1,RS,DS60000" AS #1:GOTO 10
10 CLS
20 PRINT: INPUT "Enter number of tickets to print";N
30 FOR J=1 TO N
40 PRINT#1,"<RC94,60><HW2,2><F2>15G";
50 PRINT#1,"<RC88,34><LT2><BX36,140>";
60 PRINT#1,"<RC180,75>A ";
70 PRINT#1,"<RC176,34><LT2><BX36,140>";
80 PRINT#1,"<RC248,34><LT2><BX36,140>";
90 PRINT#1,"<RC328,34><LT2><BX36,140>";
100 PRINT#1,"<RC70,70><HW1,1><F2>SEAT";
110 PRINT#1,"<RC158,70>ROW ";
120 PRINT#1,"<RC88,720><LT2><BX32,140>";
130 PRINT#1,"<RC168,720><LT2><BX36,140>";
140 PRINT#1,"<RC248,720><LT2><BX36,140>";
150 PRINT#1,"<RC328,720><LT2><BX36,140>";
160 PRINT#1,"<RC2,10><LT4><BX380,1020>";
170 PRINT#1,"<RC16,240><LT2><BX200,400>";
180 PRINT#1,"<RC333,44><F3><HW1,1><NR>1000<RC333,105>"J;
190 PRINT#1,"<F6><HW1,1><RC40,336>BOCA";
200 PRINT#1,"<F2><HW2,2><RC100,330>PRESENTS";
210 PRINT#1,"<F6><HW1,1><RC140,325>BOXES";
220 PRINT#1,"<F2><HW2,2><RR><RC20,1000> VOID VOID";
230 PRINT#1,"<RC280,210><LT2><HX456>";
240 PRINT#1,"<RC10,680><LT2><VX360>";
250 PRINT#1,"<RC252,210><NR><BS9,12><F2><HW2,2>FRIENDLY GHOST LANGUAGE";
260 PRINT#1,"<RC300,240><HW2,2><F1>CUSTOMIZE YOUR TICKETS WITHOUT";
270 PRINT#1,"<RC320,240>EXPENSIVE PRE-PRINTED STOCK.";
280 PRINT#1,"<p>";
290 NEXT J
300 END
SAMPLE OF TICKET PRODUCED WITH THIS PROGRAM: