utilitaire pour Sharp PC1500 ( pas de programme )
tiré du magazine Hebdogiciel N°20

http://www.hebdogiciel.fr 

Bon Jeu ! Ouessan / Chistian DUBROEUCQ

	Nécessite l'extension PETOOLS.

	Ce programme est un utilitaire de 56 octets qui permet l'autorepeat du clavier sonorisé ou non, d'activer ou non le mode sonore du clavier et surtout de pouvoir "bloquer SHIFT" et donc d'utiliser les touches INS et DEL enmode autorepeat sans faire le désagréable va et vient entre SHIFT et la touche.

Mode d'emploi :
1) faire NEW &--+55
2) charger le programme Basic, entrer l'adresse de départ selon votre module mémoire
3) RUN
4) NEW

Programme :
10 REM auteur m. fojud fabien
20 REM pc1500
30 REM clavier autorepeat sonorisé
40 INPUT "adresse départ";A:B=A
50 FOR C=1 TO 56
60 READ D:POKE (A-1+C),D
70 NEXT C
80 A=B:C=INT(A/256):D=((A/256)-C)*256
90 POKE (&785B),C:POKE (&785C),D
100 CLS:BEEP 3:CALL B
110 POKE &79D4,&55:END
120 DATA &B5,&01,&BE,&E4,&1A,&48,&78,&4A,&50,&B7,&10,&89,&02,&0D,&41,&4D
130 DATA &10,&89,&0A,&EB,&76,&4E,&02,&B7,&01,&89,&02,&0D
140 DATA &0E,&4D,&01,&89,&07
150 REM *beep*
160 DATA &6A,&06,&48,&01,&BE,&E6,&6F
170 REM ***
180 DATA &BE,&E2,&4A
190 DATA &B7,&0F,&89,&03,&BE,&E3,&3F,&F9,&EB,&7B,&0E,&40,&9A