Citizen Systems BD2-2220 - Manual (Page 129)

- 129 -
[Sample Program]
GOSUB SETNV
LPRINT CHR$(&H1C); “p”; CHR$(1); CHR$(0);
DATA &H00, &H00, &H00, &H00, &H07, &HF0
LPRINT CHR$(&HA); DATA &H1E, &H78, &H18, &H18, &H30, &H0C
LPRINT CHR$(&H1C); “p”; CHR$(1); CHR$(3); DATA &H30, &H0C, &H30, &H0C, &H30, &H0C
LPRINT CHR$(&HA); DATA &H1C, &H18, &H18, &H18, &H00, &H00
END DATA &H00, &H00, &H00, &H00, &H3F, &HFC
SETNV: DATA &H3F, &HFC, &H00, &H00, &H00, &H00
LPRINT CHR$(&H1C);"q"; CHR$(1); DATA &H30, &H00, &H30, &H00, &H30, &HF0
LPRINT CHR$(8); CHR$(0); CHR$(2); CHR$(0); DATA &H30, &H00, &H3F, &HFC, &H3F, &HFC
FOR I=1 TO 128 DATA &H30, &H00, &H30, &H00, &H30, &HF0
READ D DATA &H00, &H00, &H3F, &HFC, &H3F, &HFC
LPRINT CHR$(D); DATA &H00, &H00, &H00, &H1C, &H30, &H3C
NEXT I DATA &H30, &HFC, &H31, &HCC, &H33, &H8C
RETURN DATA &H3E, &H0C, &H3C, &H0C, &H30, &H0C
DATA &H00, &H00, &H00, &H00, &H3F, &HFC
DATA &H3F, &HFC, &H31, &H8C, &H31, &H8C
DATA &H31, &H8C, &H31, &H8C, &H31, &H8C
DATA &H31, &H8C, &H00, &H0C, &H00, &H00
DATA &H00, &H00, &H3F, &HFC, &H3F, &HFC
DATA &H1C, &H00, &H07, &H00, &H01, &HC0
DATA &H00, &HE0, &H00, &H38, &H3F, &HFC
DATA &H3F, &HFC, &H00, &H00, &H00, &H00
DATA &H00, &H00
[Print Results]
CITIZEN … When Normal mode is specified
CITIZEN
… When Quadruple size mode is specified