Filter
Top Products
Printer Commands Chapter 5
))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))
410 Operators Manual86
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"
110 PRINT#1,"3,320,110,";DT;,1,13,,4"
115 PRINT#1,"4,50,5,";F;",1,6
116 PRINT#1,"5,80,75,";C1;",1,10"
117 PRINT#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