Microcom 470 Návod k obsluze stáhnout pdf (Strana 107)

))))))))))))))))))))))))))))))))))))))))))))

470 Operators 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 470 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

1 2 ... 102 103 104 105 106 107 108 109 110 111 112 ... 123 124

Komentáře k této Příručce

Žádné komentáře

Microcom 470 Návod k obsluze Strana 107

Komentáře k této Příručce

Související produkty a manuály pro Tisk a skenování Microcom 470