10 REM  THIS PROGRAM BY DIOMIDIS D. SPINELLIS REDIFINES THE LOWER CASE SET TO GREEK
20 FOR I=97 TO 122
30 READ A$
40 CALL CHAR(I,A$)
50 NEXT I
60 DATA 003844447C444444
70 DATA 0078242438242478
80 DATA 0054543810101010
90 DATA 001028282844447C
100 DATA 007C40407840407C
110 DATA 0038545438101010
120 DATA 007C404040404040
130 DATA 004444447C444444
140 DATA 0038101010101038
150 DATA 007C00003800007C
160 DATA 0044485060504844
170 DATA 0010282828444444
180 DATA 00446C5454444444
190 DATA 00446464544C4C44
200 DATA 007C44444444447C
210 DATA 007C444444444444
220 DATA 00FFFFFFFFFFFFFF
230 DATA 0078444478404040
240 DATA 007C20100810207C
250 DATA 007C101010101010
260 DATA 003844447C444438
270 DATA 003844444438007C
280 DATA 0000000000000000
290 DATA 0044442810284444
300 DATA 0044442810101010
310 DATA 007C04081020407C
311 DIM L$(24)
320 FOR I=1 TO 24
330 READ L$(I)
340 NEXT I
350 DATA 3,98,83,95,9,99,13,124,13,105,73,77,78,15,126,110,82,120,111,13,115,93,
126,15
355 OPEN #1:"ALPHON",INTERNAL
360 INPUT S$
370 FOR I=1 TO LEN(S$)
375 IF SEG$(S$,I,1)=" " THEN 400
380 W=ASC(SEG$(S$,I,1))-96
390 PRINT #1:L$(W)
400 NEXT I
410 GOTO 360