********************** Programme Katakana - version 1.1 **********************
****************************** avril 2002 ************************************

--- Initialisation ---
  5 IF KANA=1 GOTO 95 ELSE KANA=1
 10 DIM K$(4,10),R$(4,10):RESTORE
 20 FOR Y=0 TO 10
 30 FOR X=0 TO 4
 40 IF Y<7 THEN K=177+X+Y*5 ELSE READ K
 45 K$(X,Y)=CHR$(K)
 50 NEXTX:NEXTY
 60 FOR Y=0 TO 10
 70 FOR X=0 TO 4
 80 READ R$(X,Y)
 90 NEXTX:NEXTY
 95 CLS:X=0:Y=0
--- Affichage ---
100 FOR X=0 TO 4:LOCATE(X*6)+3,0:PRINT K$(X,Y);:LOCATE(X*6)+3,1:PRINT R$(X,Y);"  ";:NEXTX
--- Lectures du clavier ---
105 K=ASC(INKEY$):IF K=0 THEN 105
120 IF K=31 THEN Y=Y+1:IF Y=11 THEN Y=0
130 IF K=30 THEN Y=Y-1:IF Y=-1 THEN Y=10
160 GOTO 100
--- Données des caractères ---
900 DATA 212,32,213,32,214
901 DATA 215,216,217,218,219
902 DATA 220,32,32,32,166
903 DATA 221,32,32,32,32
904 DATA a,i,u,e,o
905 DATA ka,ki,ku,ke,ko
906 DATA sa,shi,su,se,so
907 DATA ta,chi,tsu,te,to
908 DATA na,ni,nu,ne,no
909 DATA ha,hi,fu,he,ho
910 DATA ma,mi,mu,me,mo
911 DATA ya,,yu,,yo
912 DATA ra,ri,ru,re,ro
913 DATA wa,,,,wo 
914 DATA n,,,,

+++ Utilisation +++

Utiliser simplement les touches haut et bas pour faire défiler la table des 
caractères.