'****************************************************************
'*  Name    : UNTITLED.bas                                   *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 2012.02.14.                                       *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device 16F628A
 
   Xtal 4
 
  TRISA=0
  TRISB=0
  ujra:
'*4.Digit
   High PORTB.1
   High PORTA.4
  DelayUS 65000
  Low PORTB 
 High PORTB.2
  DelayUS 65000
  Low PORTB.2
  High PORTB.4
  DelayUS 65000
  Low PORTB.4
  High PORTB.6
  DelayUS 65000
  Low PORTB.6
  High PORTB.0
  DelayUS 65000
  Low PORTB.0
  High PORTB.5
  DelayUS 65000
  Low PORTB.5
  High PORTB.4
  DelayUS 65000
  Low PORTB.4
  High PORTB.7
  DelayUS 65000
  Low PORTB.7
  Low PORTA.4
 '*3.Digit
   High PORTB.1
   High PORTA.3
  DelayUS 65000
  Low PORTB 
 High PORTB.2
  DelayUS 65000
  Low PORTB.2
  High PORTB.4
  DelayUS 65000
  Low PORTB.4
  High PORTB.6
  DelayUS 65000
  Low PORTB.6
  High PORTB.0
  DelayUS 65000
  Low PORTB.0
  High PORTB.5
  DelayUS 65000
  Low PORTB.5
  High PORTB.4
  DelayUS 65000
  Low PORTB.4
  High PORTB.7
  DelayUS 65000
  Low PORTB.7
  Low PORTA.3
  '*2Digit
  High PORTB.1
   High PORTA.2
  DelayUS 65000
  Low PORTB 
 High PORTB.2
  DelayUS 65000
  Low PORTB.2
  High PORTB.4
  DelayUS 65000
  Low PORTB.4
  High PORTB.6
  DelayUS 65000
  Low PORTB.6
  High PORTB.0
  DelayUS 65000
  Low PORTB.0
  High PORTB.5
  DelayUS 65000
  Low PORTB.5
  High PORTB.4
  DelayUS 65000
  Low PORTB.4
  High PORTB.7
  DelayUS 65000
  Low PORTB.7
  Low PORTA.2
  '*1Digit
  High PORTB.1
   High PORTA.1
  DelayUS 65000
  Low PORTB 
 High PORTB.2
  DelayUS 65000
  Low PORTB.2
  High PORTB.4
  DelayUS 65000
  Low PORTB.4
  High PORTB.6
  DelayUS 65000
  Low PORTB.6
  High PORTB.0
  DelayUS 65000
  Low PORTB.0
  High PORTB.5
  DelayUS 65000
  Low PORTB.5
  High PORTB.4
  DelayUS 65000
  Low PORTB.4
  High PORTB.7
  DelayUS 65000
  Low PORTB.7
  Low PORTA.1
  GoTo(ujra)
  End