Citizen Systems BD2-2220 Manuel D’Utilisation

 

- 137 - 

 

 

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 

 

 

Registered character