Printer Commands | Chapter 5 |
))))))))))))))))))))))))))))))))))))))))))))
APPENDIX F: SAMPLE BASIC PROGRAM
This program produces labels for computer diskettes. It is intended to show the simplicity that higher languages communicate with the 410 printer. Communication parameters may need to be changed for some computers.
2 REM *******************************************
3 REM * | DISK LABEL MAKER | * | |
4 REM * Sample BASIC program demonstration LDS. * | |||
5 REM ******************************************* | |||
10 OPEN "COM1:9600,N,8,1,RS" AS #1 |
| ||
15 CLS |
|
|
|
20 PRINT: PRINT: PRINT |
|
| |
30 INPUT"Disk Title: ",DT$ |
|
| |
32 DT$ = LEFT$(DT$,30) | :REM Limit title to 30 characters | ||
35 DT = LEN(DT$) |
|
| |
40 INPUT"Date: ",D$ |
|
| |
45 D = LEN(D$) |
|
|
|
47 INPUT"format: ",F$ |
|
| |
48 F = LEN(F$) |
|
|
|
50 INPUT"Disk Number: ",DN$ |
|
| |
60 INPUT"Total Disks In Series: ",TD$ 61 ND$ = DN$+" OF "TD$
62 ND = LEN(D$)
63 INPUT"Comment #1: ",C1$
64 C1$ = LEFT$(C1$,50) :REM Limit comment to 50 characters 68 C2 = LEN(C1$)
66 INPUT"Comment #2: ",C2$
67 C2$ = LEFT$(C2$,50) :REM Limit comment to 50 characters
68 C2 = LEN(C2$) |
| |
84 PRINT#1,"^A3^D97" | : REM Tag mode #3 | |
85 | PRINT#1,"^D57" | : REM format following |
90 | PRINT#1,"6,,,,,30,,70,2" | : REM label header |
95 | PRINT#1,"1,150,5,";D;",1,6" | : REM fields |
100 PRINT#1,"2,530,5,";ND;",1,6"
110PRINT#1,"3,320,110,";DT;,1,13,,4"
115PRINT#1,"4,50,5,";F;",1,6
116PRINT#1,"5,80,75,";C1;",1,10"
117PRINT#1,"6,80,50,";C2;",1,10"
120 PRINT#1,"^D56^D2" | : REM select layout and |
130 PRINT#1,D$ | : REM send text data |
140 PRINT#1,ND$ |
|
150 PRINT#1,DT$ |
|
155 PRINT#1,F$ |
|
156 PRINT#1,F$ |
|
157 PRINT#1,C2$ |
|
160 PRINT#1,"^D3" | : REM print label |
170 PRINT: PRINT: PRINT: INPUT"Another (Y/N)? ",YN$
180 IF (YN$ = "Y") OR (YN$ = "y") THEN 15
))))))))))))))))))))))))))))))))))))))))))))
86 | 410 Operators Manual |
