program asd
dim s as byte
 dim x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19,x20,x21,x22,x23,x24,
x25,x26,x27,x28,x29,x30,x31,x32,x33,x34,x35,x36,x37,x38,x39,x40,x41,x42,x43,x44,x45,x46,x47,x48,x49,x50,x51,x52,x53,x54,x55 as byte
  'allah
 x1=0x7e
 x2=0x00
 x3=0x7e
 x4=0x40
 x5=0x7e
 x6=0x40
 x7=0x70
 x8=0x60
 x9=0x00
 x10=0x00
 'akbar
 x11=0x7e
 x12=0x00
 x13=0x02

 x14=0x1e
 x15=0x10
 x16=0x58
 x17=0x10
 x18=0x78
 x19=0x40
 x20=0x00
 x21=0x00
 x22=0x00
 '3ed
 x23=0x14
 x24=0x1c
 x25=0x10
 x26=0xd8
 x27=0x10
 x28=0x1c
 x29=0x10
 x30=0x00
 x31=0x00
 x32=0x18
 x33=0x10
 x34=0x18
 x35=0x10
 x36=0x18
 x37=0x10
 x38=0x14
 x39=0x1c
 x40=0x10
 x41=0xd8
 x42=0x10
 x43=0x1c
 x44=0x10
 x45=0x00
 x46=0x00
 x47=0x00
 x48=0x00
 x49=0x00
 x50=0x00
 x51=0x00
 x52=0x00
 x53=0x00
 x54=0x00
 main:
trisb=0x00
trisa=0x00
loop:
for s=0 to 7
porta.0=0
porta.1=1
porta.0=1
next s 
for s=0 to 100
porta.0=0
porta.1=0
porta.0=1
portb=x1
delay_us(500)
'second
porta.0=0
porta.1=1
porta.0=1
 portb=x2
delay_us(500)
'Third

porta.0=0
porta.1=1
porta.0=1
portb=x3
delay_us(500)
'fourth

porta.0=0
porta.1=1
porta.0=1
portb=x4
delay_us(500)
 'Fifth

porta.0=0
 porta.1=1
porta.0=1
portb=x5
delay_us(500)
'sixth

porta.0=0
porta.1=1
porta.0=1
portb=x6
delay_us(500)
'seventh

porta.0=0
porta.1=1
porta.0=1
portb=x7
delay_us(500)
'eighth

porta.0=0
porta.1=1
porta.0=1
 portb=x8
delay_us(500)
next s
x52=x1
x1=x2
x2=x3
x3=x4
x4=x5
x5=x6
x6=x7
x7=x8
x8=x9
x9=x10
x10=x11
x11=x12
x12=x13
x13=x14
x14=x15
x15=x16
x16=x17
x17=x18
x18=x19
x19=x20
x20=x21
x21=x22
x22=x23
x23=x24
x24=x25
x25=x26
x26=x27
x27=x28
x28=x29
x29=x30
x30=x31
x31=x32
x32=x33
x33=x34
x34=x35
x35=x36
x36=x37
x37=x38
x38=x39
x39=x40
x40=x41
x41=x42
x42=x43
x43=x44
x44=x45
x45=x46
x46=x47
x47=x48
x48=x49
x49=x50
x50=x51
x51=x52



goto loop
end.