This Manual: http://www.manuallib.com/file/2525964
KX-P1124 Features
Programming example for the one-eighth-note character is as follows:
10
REM
One-eighth-note
character
Download
and
print
20
WIDTH
"LPTl:"
,255
30
OPEN
"LPT1:"
AS
#1
40
REM---(Initialize
the
Download
Buffer)
50
PRINT
#l,CHR$(27)~"="~CHR$(0)+CHR$(0);
60
REM---(Dot
Pattern
Data
Entry
to
ASCII
"8")
70
PRINT
#1,CHR$(27)~"="+CHR$(45)+CHR$(0)+CHR$(35);
80
PRINT #l,CHR$(&HO)+CHR$(&HBO);
90
PRINT
#l,CHR$(O)+CHR
$(
O)~CHR$(O);
100
PRINT
#l,CHR$(0)~CHR$(0
)
+CHR$(128);
110
PRINT
#1,CHR$(0)
~
CHR$(1
)
+CHR$(64);
120
PRINT
#1,CHR$(0)+CHR$(3)+CHR$(224);
130
PRINT
#l,CHR$(0)~CHR$(7)+CHR$(240);
140
PRINT
#l,CHR
$
(0)~
C
HR$(3)~CHR$(224);
150
PRINT
#l,CHR$(0)+CHR$(1)+CHR$(64);
160
PRINT
#l,CHR$(63)+CHR$(254)+CHR$(128);
170
PRINT
#1,~HR$(14)+CHR$
(
0)~CHR$(0);
180
PRINT
#1,CHR$(6)~CHR$(0)~CHR$(0);
190
PRINT
#1,CHR$(3)~CHR$
(
0)~CHR$(0);
200
PRINT
#l,CHR$(1)~CHR$(132)~CHR$(0);
210
PRINT
#l,CHR$(0)~CHR$(120)~CHR$(0);
220
PRINT
#l,CHR$(O)~CHR$(O)+CHR$(O);
230
REM---(Index
Table
Entry
to
ASCII
"B")
240
PRINT
#1
,CHR$(27):"=<";CHR$(12)+CHR$(0)+CHR$(35);
250
PRINT
#l,CHR$(
&
H64)+CHR$(&H8B);
260
PRINT
#l,CHR$(&H80)+CHR$(&HO)+CHR$(14);
270
PRINT
#l,CHR$(35)+CHR$(124)+CHR$(90);
280
PRINT
#l,CHR$(85)+CHR$(47)+CHR$(240);
290
REM---(Download
Character
print)
300
PRINT
#l,CHR$(27):"I"
:
CHR$(6);
310
FOR
!"'1
TO
10
320
PRINT
#1,
"
8":
330
NEXT
340
PRINT
#1,CHR$(13):CHR$(10);
350
CLOSE
#l
360
END
5-13
To Next Page
