User manual

128
APPENDIX A - SAMPLE BASIC PROGRAM FOR 200 DPI PRINT HEAD
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,"<RL><RC360,10><F3><HW1,1>GHOSTWRITER WORLD";
45 PRINT#1,"<RC380,76><F6><HW1,1><BS26,44>ALL<F2>";
47 PRINT#1,"<F6><BS26,44>THREE<F2> <F6><BS26,44>PARKS";
50 PRINT#1,"<RC348,130><F6><HW1,1><BS42,44>PASSPORT";
60 PRINT#1,"<RC324,240><RL><F6><HW2,2>6";
70 PRINT#1,"<RC210,240><HW1,1>DAY";
74 PRINT#1,"<RC230,290><F3><HW1,1>ADMIT ONE";
76 PRINT#1,"<RC230,320><F6><HW1,1>GUEST";
78 PRINT#1,"<F1><RC230,370><F1><HW1,1>VERY SMALL PRINT";
80 PRINT#1,"<RC24,530><LT2><BX340,50>";
84 PRINT#1,"<RC25,528><LT2><VX338>";
85 PRINT#1,"<RC216,550><HW1,1><F2>DAY 1";
90 PRINT#1,"<RC24,580><LT2><BX340,50>";
95 PRINT#1,"<RC216,600>DAY 2";
100 PRINT#1,"<RC24,630><LT2><BX340,50>";
105 PRINT#1,"<RC216,650>DAY 3";
110 PRINT#1,"<RC24,680><LT2><BX340,50>";
115 PRINT#1,"<RC216,700>DAY 4";
120 PRINT#1,"<RC24,730><LT2><BX340,50>";
123 PRINT#1,"<RC25,780><LT2><VX338>";
125 PRINT#1,"<RC216,760>DAY 5";
170 PRINT#1,"<RC340,400><RL><F6><BS36,44><HW1,1>DAY GUEST";
180 PRINT#1,"<RC260,450><F3><HW1,1>$112.00";
190 PRINT#1,"<RC240,482><F3>PLUS TAX";
250 PRINT#1,"<RC280,1010><F3><HW1,1>12345678";
260 PRINT#1,"<RC60,990><NL10><X2>*01000407*";
270 PRINT#1,"<RC360,820><F9><HW1,1>VALID ONLY ON DATE STAMPED"
280 PRINT#1,"NONTRANSFERABLE NONREFUNDABLE";
290 PRINT#1,"<RC280,870><F3><HW1,1>01000407";
500 PRINT#1,"<RC20,1079><RR><F3><HW1,1>GHOSTWRITER WORLD"
2000 PRINT#1,"<p>";
2005 NEXT J
2100 END