1 REM zkouska programu, ktery ve vykresovem souboru nahradi textove retezce

2 REM %%<trojmistne cislo> jednim bajtem - osmibitovym kodem znaku. Upravena

3 REM data zapise do noveho souboru

 

rem tabulka kodu

DATA 130, é

DATA 133, ů

DATA 144, É

DATA 155, Ť

DATA 156, ť

DATA 159, č

DATA 160, á

DATA 161, í

DATA 162, ó

DATA 163, ú

DATA 166, Ž

DATA 167, ž

DATA 172, Č

DATA 181, Á

DATA 183, Ě

DATA 210, Ď

DATA 212, ď

DATA 213, Ň

DATA 214, Í

DATA 216, ě

DATA 222, Ů

DATA 224, Ó

DATA 229, ň

DATA 230, Š

DATA 231, š

DATA 233, Ú

DATA 236, ý

DATA 237, Ý

DATA 252, Ř

DATA 253, ř

 

 

defint i,j,k,l,m,n

rem dimenzovani pole kodu

 

dim ko$(30,2)

cls

rem nacteni dat do pole kodu

for n=1 to 30

read ko$(n,1)

read ko$(n,2)

next n

 

10 OPEN "ZDROJ.DXF" FOR RANDOM AS #1 len=1

24 OPEN "CIL.DXF" FOR RANDOM AS #2 len=1

30 FIELD #1, 1 AS A$

40 FIELD #2, 1 AS X$

 

50 IF EOF(1) THEN PRINT: print "Konec souboru": GOTO 140

60 GET #1: LET B$ = A$:print ".";

80 if B$<>"%" then lset X$=B$: put #2: goto 50

 

get #1

let B$=A$

if B$<>"%" then lset X$="%": put #2:lset X$=B$: put #2: goto 50

 

get #1

B$=A$

get #1

B$=B$+A$

get #1

B$=B$+A$

 

rem hledani v tabulce

c$=""

for n=1 to 30

if B$=ko$(n,1) then c$=ko$(n,2): goto ven

next n

rem kod se nenasel

lset X$="%": put #2

lset X$="%": put #2

for n=1 to 3

lset X$=mid$(B$,n):put #2

next n

goto 50

 

ven:

rem kod se nasel

print"*";

lset X$=C$:put #2

goto 50

 

140 close

stop