Table of Contents
Advertisement
PROGRAMMING WITH BASIC
As an exampleof programmingthe printeron MicrosoftBASIC,we have
listed the program for the IBM-PC. This program runs in the printer's
Standardmode,andthe dowrdoadable condition(EDSswitchA-1 ON and
A-2 OFF).
1000
iolo
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1130
1140
1150
1160
1170
1180
1190
1200
1210
1220
1230
1240
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340
1350
1360
1370
1380
1390
1400
1410
1420
1430
1440
1450
1460
1470
1480
'
Set
control
codes
E$=CHR$ (27)
'Escape code
D$=E$+''xO"
'
Draft
quality
N$=E$+"X1"
' Near letter qual ity
F$=E$+"k"
'Select font
C$=F$+CHR$ [0)+N$
'Select Courier
H$=CHR$ (9 )
'Horizontal tab
P$=E$+"P"
'Pica pitch
' Start printing
WIDTH "LPT1:' ' ,255
LPRINT E$; ''D''
;CHR$(3);CHR$(27);CHR$(0)
LPRINT C$; "Font setting:"
LPRINT H$;D$;"Draft characters, ";N$;
'Set HT
LPRINT H$;F$;CHR$(0) ;"Courier characters. "
LPRINT H$;F$;CHR$(l) ;"Sanserif characters.";
LPRINT H$;F$;CHR$(4) ;"Script characters, "
LPRINT H$;F$;CHR$(7) ;"Orator
Characters,
"
LPRINT
LPRINT C$; "Print pitches are:"
LPRINT H$;P$; ''Picapitch (10 CPI),";
LpRINT H$;E$; ''M''Eliteite
pitch (12 CPI),U
LPRINT H$;P$;
LPRINT CHR$(15);
'Select condensed pitch
LPRINT "Condensed pica pitch (17 CPI),";
LPRINT H$;E$; ''Mti;
''Condensedelite pitch (2O CPI)."
LPRINT CHR$(18)
'Cancel condensed print
LPRINT H$;E$;''P1"; 'Select proportional spacing
LPRINT P$; ''Proportionalspacing,";
LPRINT E$; ''PO"
'Cancel proportional spacing
LPRINT
LPRINT H5;E$; "WI";"Expanded, ";E$:''Wo";
LPRINT H$;E$; ''wl''D
oublebheightght.";E$;"wO"
LPRINT H$;E$; ''h'';CHR$(l)
;"Double–aized."
LPRINT H$;E$; ''h'';CHR$(2)
;"Quad-sized.";
LPRINT E$; ''h'';CHR$(O)
LPRINT :LPRINT
LPRINT E$; ''Q'';CHR$(47) 'Set right margin
LPRINT C5; "Various line and character sPacin9s:"
LPRINT E$; ''al"
'Center text
FOR 1=1 TO 7
LPRINT E$; "A'';CHR$(I); 'Set line spacing
LPRINT E$;" ";CHR$(I); 'Increase character space
LPRINT "THE SPACINGS ARE CHANGED"
NEXT I
FOR 1=7 TO 1 STEP -1
LPRINT E$; ''A";CHR$(I);
LPRINT E$;" ";CHR$(I);
LPRINT "THE SPACINGS ARE CHANGED"
Advertisement
Table of Contents
