 100 REM =============================
 110 REM =                           =
 120 REM =     GESTION CLAVIER       =
 125 REM =      ORIC V1.0 V1.1       =
 130 REM =                           =
 140 REM =   AUTEUR:Fabrice BROCHE   =
 150 REM =        LE 12/03/84        =
 160 REM =                           =
 170 REM =     Ripelle Software      =
 180 REM =                           =
 190 REM =============================
 200 REM
 210 REM
 300 REM
 310 REM =============================
 320 REM ====== ENTREE ROUTINE 1 =====
 330 REM =============================
 1000 FOR I=#400 TO #469
 1010 READ A$:DT=VAL("#"+A$)
 1020 POKEI,DT
 1030 NEXT
 1040 A=1
 1045 REM ====== PLACER MASQUES ======
 1050 FOR I=#F8 TO #FF
 1060 POKE I,A:A=2*A
 1070 NEXT I
 1080 IF PEEK(#FFFE)=40 THEN 1160
 1090 DOKE#44E,#CCD9
 1100 DOKE#464,#CBF0
 1110 DOKE#45E,#CCD9
 1130 REM ============================
 1140 REM ===== ENTREE ROUTINE 2 =====
 1150 REM ============================
 1160 FOR I=#470 TO #48B
 1170 READ A$:DT=VAL("#"+A$)
 1180 POKE I,DT
 1190 NEXT
 1200 IF PEEK(#FFFE)=40 THEN 1250
 1210 DOKE#47D,#F590
 1220 REM ============================
 1230 REM ===== ENTREE ROUTINE 3 =====
 1240 REM ============================
 1250 FOR I=#490 TO #4C0
 1260 READ A$:DT=VAL("#"+A$)
 1270 POKE I,DT
 1280 NEXT
 1290 IF PEEK(#FFFE)=40 THEN 2000
 1300 DOKE#493,#D8CB
 1310 DOKE#4AB,#F590
 1320 DOKE#4BC,#DF0F
 1330 DOKE#4BF,#DF0B
 1340 REM ============================
 1350 REM = Representation du cla-   =
 1360 REM = vier par une matrice     =
 1370 REM = 8x8 ATTENTION :les li-   =
 1380 REM = gnes et les colonnes     =
 1390 REM= sont inversees...         =
 1400 REM ============================
 2000 CLS:POKE#26A,10
 2010 CALL#400
 2020 GOTO2010
 3000 REM =============================
 3010 REM =POKER en 0 un numero de li-=
 3020 REM =gne,et en 1 un numro de   =
 3030 REM =colonne:aprs un CALL #470 =
 3040 REM =PEEK(2) retournera 8 ou 0  =
 3050 REM =selon que la touche est ou =
 3060 REM =non pressee                =
 3070 REM ============================
 3080 REM
 3085 REM ======= TEST ESPACE ========
 3090 POKE 0,4:POKE 1,0
 3100 CALL #470
 3110 PRINT PEEK(2)
 3120 GOTO 3100
 4000 REM ============================
 4010 REM = USR(colonne +8*ligne)    =
 4020 REM = retourne la variable boa =
 4030 REM = lenne TRUE/FALSE selon  =
 4040 REM = que la touche est ou non =
 4050 REM = pressee                  =
 4060 REM ============================
 4070 DEF USR=#490
 4080 REM ======= TEST ESPACE ========
 4090 PRINT USR(0+8*4)
 4100 GOTO 4090
 8030 REM ============================
 8040 REM = ROUTINE CLAVIER MATRICE  =
 8050 REM ============================
 9000 DATA 08,78,A9,00,85,00,A2,7F
 9001 DATA 8A,48,A9,0E,8D,0F,03,A9
 9002 DATA EE,8D,0C,03,A9,CC,8D,0C
 9003 DATA 03,8E,0F,03,A9,EC,8D,0C
 9004 DATA 03,A9,CC,8D,0C,03,A0,00
 9005 DATA A2,07,8A,09,10,8D,00,03
 9006 DATA A9,08,2C,00,03,F0,04,98
 9007 DATA 15,F8,A8,CA,10,EC,A6,00
 9008 DATA E6,00,94,04,68,38,6A,AA
 9009 DATA B0,BE,28,A9,1E,20,12,CC
 9010 DATA A2,07,A0,07,16,04,90,03
 9011 DATA A9,30,2C,A9,31,20,12,CC
 9012 DATA 88,10,F1,20,9F,CB,CA,10
 9013 DATA E9,60
 9014 REM ============================
 9015 REM ====== ROUTINE "TEST" ======
 9016 REM ============================
 9017 DATA A6,01,A9,FF,18,2A,CA,10
 9018 DATA FC,AA,A9,0E,20,35,F5,A5
 9019 DATA 00,BD,00,03,A9,08,2D,00
 9020 DATA 03,85,02,60
 9021 REM ==============================
 9022 REM ======= ROUTINE "USR"  =======
 9023 REM ==============================
 9024 DATA 08,78,20,10,D8,8A,29,38
 9025 DATA 4A,4A,4A,48,8A,29,07,AA
 9026 DATA 18,A9,FF,2A,CA,10,FC,AA
 9027 DATA A9,0E,20,35,F5,68,09,10
 9028 DATA 8D,00,03,A9,08,28,2C,00
 9029 DATA 03,F0,03,4C,00,DF,4C,FC
 9030 DATA DE
 9031 REM
 9032 REM ============================
 9033 REM ============================

