Appendix F: Sample Basic Program - Microcom 410 Operator's Manual

Printer Commands
))))))))))))))))))))))))))))))))))))))))))))

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)
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)
68 C2 = LEN(C1$)
66 INPUT"Comment #2: ",C2$
67 C2$ = LEFT$(C2$,50)
68 C2 = LEN(C2$)
84 PRINT#1,"^A3^D97"
85 PRINT#1,"^D57"
90 PRINT#1,"6,,,,,30,,70,2"
95 PRINT#1,"1,150,5,";D;",1,6"
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"
130 PRINT#1,D$
140 PRINT#1,ND$
150 PRINT#1,DT$
155 PRINT#1,F$
156 PRINT#1,F$
157 PRINT#1,C2$
160 PRINT#1,"^D3"
170 PRINT: PRINT: PRINT: INPUT"Another (Y/N)? ",YN$
180 IF (YN$ = "Y") OR (YN$ = "y") THEN 15
))))))))))))))))))))))))))))))))))))))))))))
86
*
:REM Limit title to 30 characters
:REM Limit comment to 50 characters
:REM Limit comment to 50 characters
: REM Tag mode #3
: REM format following
: REM label header
: REM fields
: REM select layout and
: REM send text data
: REM print label
Chapter 5
410 Operators Manual