6-65
100 Open "COM1:9600,N,8,1" For Output As #1
110 Print #1, Chr$(&H13); "A";
120 Print #1, Chr$(&H13); "V";
130 Print #1, String$(24, Chr$(&H88));
140 For I = 1 To 24: Print #1, Chr$(I);: Next I
150 Print #1, Chr$(&H13); "+";
160 Print #1, "RULED LINE OR"
170 Print #1, Chr$(&H12); "#1";
180 Print #1, "RULED LINE XOR"
190 Print #1, Chr$(&H13); "(";
200 For I = 0 To 120
210 X = Int(Sqr(14400! - I^2)): X1 = 191 - X: X2 = 191 + X
220 Print #1, "C";
230 Print #1, "L"; Chr$(X1 Mod 256); Chr$(X1 \ 256); Chr$(192); Chr$(0);
240 Print #1, "D"; Chr$(X2 Mod 256); Chr$(X2 \ 256);
250 Print #1, "P";
260 Next I
270 Print #1, "ACF"; Chr$(&HFF); Chr$(&HFF);
280 Print #1, "BCL"; Chr$(0); Chr$(0); Chr$(3); Chr$(0);
290 Print #1, "L"; Chr$(124); Chr$(1); Chr$(127); Chr$(1);
300 Print #1, "D"; Chr$(94); Chr$(0);
310 Print #1, "D"; Chr$(158); Chr$(0); "-)"
320 Print #1, Chr$(&H13); "(+APPPPB)";
330 Print #1, " RULEDLINEPRINT"
340 Print #1, Chr$(&H13); "(APPB)";
350 Print #1, Chr$(&HE); "ABCDEFGHIJ"
360 Print #1, Chr$(&H13); "(APPPP-)";
365 Close #1
370 End
Figure 6-19 Program Sample 10
Figure 6-20 Print Sample 10
Summary of Contents for DPU-S245
Page 1: ...DPU S245 SERIES THERMAL PRINTER TECHNICAL REFERENCE U00117152801 ...
Page 12: ...2 2 Dimensions 83 130 45 1 3 63 5 75 2 9 7 38 Unit mm Figure 2 1 Dimensions Paper Outlet ...
Page 87: ...6 42 Figure 6 10 Print Sample 5 ...
Page 97: ...6 52 Figure 6 12 Print Sample 6 ...
Page 122: ...6 77 Figure 6 24 Print Sample 12 ...
Page 125: ...6 80 Figure 6 28 Print Sample 14 ...