Specifications

CONSTRUCTION
dim C(3,2048),ad(3,257),d(12),q(8)
open “chtamil2” for random as #1 len=1
field #1, 1 as A$
cls
total%= LOf(1)
for lan%=1 to 3
for i%= 0 to 255 ‘total%
get #1 ‘get one byte
rem pick and store the address for all 256
codes
a= asc(a$)
‘ print a;
ad(lan%,i%) = a
rem low address in 00-7F and high add. in 80
-FF
n=n+1
next
for i%= 3 to 1024*2 -254’total% -256
get #1
‘? i%-3,asc(a$)
c(lan%,i%-3)= asc(a$)
next
next lan%
CLOSE #1
lang%=2
on key(1) gosub 500:key(1) on
on key(2) gosub 510:key(2) on
on key(3) gosub 520:key(3) on
ON KEY(11) GOSUB 540: KEY(11) ON
ON KEY(12) GOSUB 550: KEY(12) ON
ON KEY(13) GOSUB 560: KEY(13) ON
ON KEY(14) GOSUB 570: KEY(14) ON
690 CLS: locate 10,15: ?”Type F1 key for
Tamil, F2 for English and F3 Hindi”
? “Want small or large size font ? Press S or
L”
ad$= input$(1)
if ad$=”S” then screen 12 : goto 700
if ad$=”L” then screen 2: goto 700
goto 690
700 cls: s=0:row=0
i=0
s=1:R=1:L=0
hook=0
2 if lang%=2 then hook=0
if hook=1 then s=s-1
if s<0 then row=row-1: s=40
21 A$=inPUT$(1): ‘got a key
N= ASC(A$)
‘locate 20,51 :print n
‘goto 2
REM remove old cursor
x=s*12:y=row*16+11
for jj%=1 to 10
pset(x+jj%,y),0 :next
if S>40 then s=0 :Row=Row+1
if n=8 then s=s-1:gosub 300 ‘backspace
if N=32 then s=s+1:gosub cur: goto 2 ‘space
if N=10 then row = row + 1 :goto 2 ‘return
if N=13 then row=row +1:s=0: goto 2 ‘line feed
if lang%=1 then
REM This is for TAMIL HOOK characters
if N=80 then hook=1 :goto 23
if N=112 then hook=1 :goto 23
if N=91 then hook=1 :goto 23
Program in BASIC for Computer Based Display for English, Hindi, Tamil, etc Languages
if N= 123 then hook=1 :goto 23
if N=43 then hook =1:goto 23
if N= 59 then hook=1:goto 23
hook=0
end if
if lang%=3 then gosub 400
‘ if N= 8 then s=s-1 : goto 300: ‘hook=1:
goto 23
‘if n=28 then s=s+1:goto 300
‘if n=30 then row=row+1:goto 2
hook =0
23 n1= ad(lang%,n) :n5=n1
n2=ad(lang%,n+128)
n3=(n2-1)*256 +n1
N1=(n3):
j=0: for i1= 0 to 17 step 3
i=i1
d(j) = 16*c(lang%,n1+i) + C(lang%,n1+i+1)\ 16
d(j+1) =256*(c(lang%,n1+i+1) mod 16) +
c(lang%,n1+i+2)
j=j+2
next i1 :j=0
for i = 0 to 11
‘?i; hex$(d(i))
next :’ ?n,n5,n2
for l =0 to 11
n= d(l):i=0 :k%=15
gosub 10 ‘put pixels
next l
s=s+1
gosub cur
goto 2
‘put cursor
cur:
x=s*12:y=row*16+11
for jj%=1 to 10
pset(x+jj%,y),15 :next
return
end
rem given a number <256*8 put pixels
10 r = n mod 2
‘? r ;
q(i)=r
x=S*12: y=Row*16+l
100 i=i+1
if i >= 12 then 200
n=n\2
goto 10
200 for j%=0 to 11
if q(11-j%)=0 then pset(x,y),15
x=x+1
next
return
300 for l =0 to 12
x=s*12: y =row *16+l
for j% = 1 to 12
‘ n= 4096 : i=0
pset (x+j%,y),0
‘gosub 40 ‘put pixels
next j%
next l
goto 2
40 r = n mod 2
‘? r ;
q(i)=r
x=S*12: y=Row*16+l
101 i=i+1
if i >= 12 then 201
n=n\2
goto 10
201 s=s-1
for j%=0 to 11
‘pset(x,y),0
if q(11-j%)=1 then pset(x,y),0
x=x+1
next
‘t$=input$(1)
return
500 rem language selection
lang%=1
return
510 lang%=2:return
520 lang%=3:return
REM HINDI HOOKs
400 if n=45 then hook=1:goto 630
if n=61 then hook=1:goto 23 ‘; The sanskrit
hook for word ends
if n=81 then hook=1: goto 23 ‘ ; The adjunct to
“Pa” to make “PPa”
if n=113 then hook=1 :goto 610 ‘; The u hook
as in Pushpa
if n=65 then hook=1 :goto 23 ‘; the “n” part of
“Gend”
if n=83 then hook=1 : goto 23 ‘; the Ttha part
of kuttha
if n=87 then hook=1: goto 23 ‘; The OOm
symbol as in hoom
if n=90 then hook=1: goto 23 ‘;as in “rka”,
the top “rr”
if n=119 then hook=1:goto 620 ‘; oo as in Koo
if n=97 then hook=1: goto 23 ‘;dot top as in
“mm”
if n=115 then hook=1:goto 23 ‘; The “Ey”
hook as in “Gend”
if n=122 then hook=1: goto 23 ‘; “Pna” as in
APna
return
540 gosub remcur:ROW=ROW-1 :RETURN
550 GOSUB REMCUR :S=S+1: RETURN
560 GOSUB REMCUR: S=S-1:RETURN
570 GOSUB REMCUR: ROW=ROW+1:
RETURN
600 rem hindi 13th line hook points
610 x= s*12: y= row*16+12
i =3
pset(x+i,y),15: i=8:pset(x+i,y),15:goto 23
620 x=s*12: y=row*16+12
i =12
pset(x+i,y),15
goto 23
630 x=s*12: y=row*16+12
i=12:
pset(x+i,y),15:goto 23
REMCUR:
x=s*12:y=row*16+11
for jj%=1 to 10
pset(x+jj%,y),0 :next
RETURN
dot patterns for the four languages is re-
quired to be present in the working di-
rectory for the PC based program to work.
This file is also proposed to be issued
with Sept. 2000 EFY-CD.
integrated single board within a cost of
Rs 2,000. The TV display of a 36cm (14-
inch) monitor costs less than Rs 1,000 to-
day, and the same video signal can be
used for multiple positions.
Dedicated display unit design
A unit of this type is a low-cost solution
for a public display. The circuits described
in this section can be assembled on an
125