keypad ekrana sayı yazma

[bahdiyarusta]

merhaba arkadaşlar,
keypad ile ekrana 5 haneli bir sayı yazmak istiyorum. mesela 16421 sayınısı bunun için yazılıma ne yapmam gerektiğini bilemedim.
yardımlarınızı bekliyorum
teşekkürler.,

AYAR:
    LCDOUT $FE,1,  "STOP ADETI:        "     
    LCDOUT $FE,$C0,#SAYAC1,"           "
    GOSUB TUS
    pause 100
    GOTO AYAR
    
TUS:
    PORTA.7=1 
    PORTA.6=0
    PORTA.0=0
    IF PORTA.1=1 THEN SAYI=1
    IF PORTA.2=1 THEN SAYI=4
    IF PORTA.3=1 THEN SAYI=7
    IF PORTA.4=1 THEN SAYI=10
    PAUSE 20
    PORTA.7=0 
    PORTA.6=1
    PORTA.0=0
    IF PORTA.1=1 THEN SAYI=2
    IF PORTA.2=1 THEN SAYI=5
    IF PORTA.3=1 THEN SAYI=8
    IF PORTA.4=1 THEN SAYI=0
    PAUSE 20
    PORTA.7=0 
    PORTA.6=0
    PORTA.0=1
    IF PORTA.1=1 THEN SAYI=3
    IF PORTA.2=1 THEN SAYI=6
    IF PORTA.3=1 THEN SAYI=9
    IF PORTA.4=1 THEN SAYI=11
    PAUSE 20
    RETURN
    END   

[ete]

Başlangıçta sayac1=0 ile başlıyorsun
Gosub Tus komutundan önce sayı=255 deyip gosub tus diyorsun sonra sayı değeri 0-10 arası bir değerle dönüyor.
If sayı=10 then sayı=0 diyorsun
Sayac1=sayac1*10+sayı
Lcdout $FE,$C0,"Sayac=",dec sayac1
Goto Ayar
Diyerek işi bitiriyorsun.
Ete

[bahdiyarusta]

tamamdır hocam oldu ,
teşekkürler...