verıcı
include "modedefs.bas"
cmcon = 7
@ DEVICE pic16F628A
@ DEVICE pic16F628A, WDT_OFF
@ DEVICE pic16F628A, PWRT_OFF
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_off
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT
TRISA=%01100
TRISB=0
PORTA=0
PORTB=0
VERICI VAR BYTE
VERICI=0
PAUSE 500
BASLA:
IF PORTA.2=0 THEN
VERICI=10
GOSUB GONDER
PAUSE 100
ENDIF
IF PORTA.3=0 THEN
VERICI=11
GOSUB GONDER
PAUSE 100
ENDIF
GOTO BASLA
GONDER:
SEROUT2 PORTA.0,396,["T","U","N","A",VERICI]
SEROUT2 PORTA.0,396,["T","U","N","A",VERICI]
SEROUT2 PORTA.0,396,["T","U","N","A",VERICI]
RETURN
END