Epson 410 manual Appendix F Sample Basic Program, Disk Label Maker, Print Print Print

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