'GLCD TS240128 (T6963) By Behnam Zakizadeh @ 17.01.92 [2013]
'Web: http://avr64.com

'Rev1.0: 17.06.93  [Sep.2014]
'Compiler: Bascom FULL (2.0.7.7)

$regfile = "m16def.dat"
$crystal = 1000000
$hwstack = 64
$swstack = 64
$framesize = 64
'$projecttime = 1

'GLCD
config Graphlcd = 240 * 128 , Dataport = Portb , Controlport = Portd , Ce = _
 4 , Cd = 5 , Wr = 2 , Rd = 3 , Reset = 6 , Fs = 7 , Mode = 8


Cls
cursor off
waitms 200
Showpic 0 , 0 , p1
wait 2

cls
Showpic 0 , 0 , p2
wait 2

cls
Showpic 0 , 0 , p3
wait 2

dim x as byte

cls
for x = 1 to 16
   locate x,1
   Lcd "LCD-IS-OK-Chip==T6963##240x128"
next x

End
'_______________________________________________________________________________

p1:
$bgf "blk.bgf"

p2:
$bgf "hor.bgf"

p3:
$bgf "ver.bgf"

'end of file