A-4
PROGRAM
NO.
1
GIVES
CORRieT
GRAPHIC/ALPHANU"ERIC
ALIGN"EHT
WITH
THE
DP9500,
POR
THE
DP9501
CHANGE
TO'
READ
'CHRf
(25) ,
330LPRINTCHR$(27);"@";:REft
THIS
CLEARS
ANY
VERTICAL
TABS
AND
ESTABLISHES
THE
CURREN
T
POSITIOHAS
TOP
OF
POR"
340LPRINTCHRt(27);"B";:RE"
THIS
CLEARS
ANY
HORIZONTAL
TABS
350
LPRIHT
CHRt(27);"7132";:RE"
THIS
SETS
THE
PRINT
WIDTH
LIMIT
AT
13.2
INCHES.
360
LPRINT
CHRt
<27
);"3050"
; :
REri
TH
IS
SETS
A
HOR
IZONTAL
TAB
AT
COLUriN
50'
370
LPRINT
CHRSi21);"VO":REft
THIS
RESETS
THE
AUTO
LINE
FEED
"ODE
TO
INACTIVE
J80.LPRIHT.CHRf(27);~VO":RE"DESELECTS
AUTO
LINEPEED
"ODE.
390RE"
IIIIIII
THE
ACTUAL
GRAPHICS
PROGRA"
BEGINS
HERE
11*1***
400RE~~OTEEARLY
VERSIONS
OF
THE
~P9500/DP9501
WILL
AUTOMAfICALLY
IXIT
GRAPHICS
ON
RECtiPT
OF
ANY
~OK
GRAPHIC
CODE.
LATER
ViRSI~NS
IGNORE
ALL
NOM
GRAPHIC
CODES.
1M
£ITN
ERCA$EIT~ISADVISABLB
TO
AVOID
ANY
NON
GRAPHIC
CODES
DURING
GRAPHICS.
420
REft
NOlE
*1
IN
THieODE
BiLOV1XTEHSIVE
USE
OF
THE
-CHR_tNNN)
FUNCTION
IS
USED
TO
ENTER
ASCII
CODES
WHICH
ARENDT
ALWAYS
AVAILABLE
ON
LI"ITED
KEYBOARDS.
;425
LPRINTCHR$( 28);"@999" ;
,
426RE"
THIS
CAUSES
THEPAPBR
TO
BE
FED
A
TOTAL
OF
27
DOTPOSl,TIONS.
NOTE
THAT
THE
TH
REB
ASCII
NUI'IERALS
ARE
ALWAYS
PRECEDED
BY
A
"PRINTABLE"
GRAPHICS
CODE,
IN
THIS
CASE
I
, T I'SABLANK.
430LPRINTCHR$
(28
r;
n;
380CGLXpXLGCI@"@''';CHR$(
127)
;CHR$(
127)
;··ssss.··
;CHRt(
95
);UL"
;ST
R1NG$(6,,"I")lCHR$
(95)
;CHRt
(127)
;"
pppppxX6
u
;
440RE"
NOTE
THe
ASCII
NU"ERAL
6
WHICH
ISTHETERrlINATINGCHARACTER
OF
THE
GRAPHICS
S
·TIINGABOVE
.•
THIS
IS
THE
PAPER
FEEDIHSTRUCTION
WHICH
INSTRUCTS
THE
PRINTER
TO
PEED
T
HI
"APER6VERTICAL,DOT
POSITIONS.
450R&"
NOTE
ALSO
THE
EXPRESSION
u;380".THISPORTIONOFTHEGRAPHICSCODE
INSTRUCTS
THE
PRINTER
TO
INDENT
380
HORIZONTAL
DOT
POSITIONS.THEACTUALLINEARDISTANCEISA
F
UNCTION
OP
DOT
DENSITY
AND
DIFPERS
BETWEEN
THE
DP9500
AND
DP9501
4,60RE"PROGRA""ERS
WILL
FIND
THIS
FEATURE
EXTR~"ELY
USEFUL
AS
A
BYTE
SAVER
IN
THE
,PR
INTERS
BUFFER
RA"
AND
THE
CO"PUTERSI'IE"ORY.
470
RE"
THE
.'STRINGtfNN
,AA)'
FUN.CT'ION
IS
"ERELYA
PRO·GRA""ING
,CONVENIENCE
BUT
DOESMQ
,1
SAUE
ANY
PRINTER
BUFFER
SPACE
SINCE
THE
COftPUTERWILL
TRNAS"ITT
EACH
CHARACTER
INBI
.VIDUALLY
•
..
~8·O.LPRINr
·"l380"
;CHRt
(124
)lCHR$(
124)
;"
pp
ppp";CHR$
(124)
;CHRS
(
124);"18"'1"
;CHRt<
124);
eHRtll.24)j"LLLL
lxpe'I'@Ix
n;CHR$
(124l;
"LLLtL
";CHRS
(92)
i"X399";CHR$
(29)
490RE"THBSTATE"ENTSABOUEPRINT
THE
LETTERS
'A
BC'
IN
A
DOUBLE
SIZE
FORttATTHEN"
QVESTHEPAPER26
DOT
POSITIONS
AHDEXITSGRAPHICS.
500
LPR
INT
CMR$
(9
);CHRt
(14l;
""AHUFAC,TUR
lNG,
INC."
,510LPRINTCHR$(15l;CHRS(138):RE"EXITS
THE
DOUBLE
WIDTH
"ODE
AND
CAUSES
OMELINEP,
ED.
NOTE
THATSO"E
tOftPUTERS
LINE
PRINtER
DRIVER
OR
1/~
CAR~
TRAP
CERTAIK
CONTROL
COD
is
AND
USE
tHEft
INTiRNALLI
POR
CERT~IHFUNtTIONS.
, '15RB" IN
THESE
CASES
IT
IS
NECESSARY
TO
,BYPASS
THE
TRAP
BY
ADDING
128'
TO
THENDR"AL
COOETO
GETTHEINSTRUCTIQN
TO
THE
PRINTER.
THE
PRINTER
WILL
"ASK
OPFTHE
EXTRAVALU
I~HJ
ACT
ONLY
ON
DRIGINAL
INTENDED
CODE.
510-RIM
fHE
GRAPHICS
PLOT
BEGINS
HERE
WITH
THE
SCALARS
AND
TRENDLINES
530~PRINT
CHR$(28);:RE"
REENTER
THE
GRAPHICSftODE.
THE
FIRST
TWO
PASSES
PLOT
A
VERTI
C"L.··.LINE.
54QLPR
INT'~
;034"
;CHR$(
127)
;"6;036"
;CHR$
(127)
;"0
;670A06
u
;CHRf
(29)
5'50R8"
"OTE
THE
USE
OF
THEINDSNT
,FUNCTION
(;NNNl
TO
CONTROL
THE
PRINT
POSITION.
:560RB"
THE
NEXTIMSTRUCTION
ILLUSTRATES
THE
"ETHOU
OF
INTER"lXING
ALPHANU"ERICSAND
GRAPHICS.
570
LPRIHT"P
11"
;LPRINT
CHR$
(.28);"
;035D
"CHR$(
127)
;
"DDO
;657AABBDDDHHPP'
~@xPHDBA6·';.
580REftNOTE
THAT
APTERALPHANU"ERIC
PRINTING
THE
LINE
"UST
BETERftJNATEDBEPORE
ENTE
RING
GRAPHICS.
NOTE
ALSO
AT
THE
END
OFTHESTATE"ENT
ABOVE
THE
;
IS
USED
TO
SUPPRESS
THE
AUTO"ATICCR
TER"INATION
To Next Page
Loading...
General