Citizen Systems BD2-2220 User Manual

Page 137

background image

- 137 -

[Sample Program]

LPRINT CHR$(&H1C);"&";

DATA &H00, &H00, &H00, &H00, &H00, &H00

GOSUB SETCHR

DATA &H00, &H00, &H60, &H00, &H00, &HF0

LPRINT CHR$(&H77); CHR$(&H21); DATA &H00, &H01, &HF8, &H00, &H03, &HFC
LPRINT CHR$(&HA);

DATA &H00, &H07, &HFE, &H00, &H0F, &HFF

LPRINT CHR$(&H1C);".";

DATA &H00, &H00, &HF0, &H00, &H00, &HF0

END

DATA &H00, &H00, &HF0, &H00, &H00, &HF0
DATA &H00, &H00, &HF0, &H00, &H00, &HF0

SETCHR:

DATA &H00, &H00, &HF0, &H00, &H00, &HF0

LPRINT CHR$(&H1C);"2";

DATA &H00, &H01, &HF0, &H1F, &HFF, &HF0

LPRINT CHR$(&H77); CHR$(&H21); DATA &H1F, &HFF, &HF0, &H1F, &HFF, &HE0
FOR I=1 TO 72

DATA &H1F, &HFF, &HC0, &H00, &H00, &H00

READ D

DATA &H00, &H00,&H00, &H00, &H00, &H00

LPRINT CHR$(D);
NEXT I
RETURN

[Print Results]

Registered character

This manual is related to the following products:

PMU2XXX