Microcom 400 - Manual (Page 88)

400 Operators Manual 80
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)
: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 C1 = 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" : 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,C1$
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
190 CLOSE
200 SYSTEM