- 167 -
[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
