Appendix C: Sample Basic Program - Microcom 400 Operator's Manual

APPENDIX C: SAMPLE BASIC PROGRAM

This Basic program produces labels for computer diskettes. It is intended to show the simplicity
that higher languages communicate with the 400 printer. Communication parameters may
need to be changed for some computers.
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 C1 = 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"
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,C1$
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
190 CLOSE
200 SYSTEM
80
: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
400 Operators Manual