EDIT: attaches is BASIC source and DSK of an 'INDICATEUR DE VITESSE DE LECTEUR'

Code: Select all
100 REM ###########################
105 REM
110 REM INDICATEUR DE VITESSE DE LECTEUR
115 REM
120 REM ###########################
130 REM
140 HIMEM#0FFF:POKE#BB80,#17:POKE#BB81,0
150 A=#1000:REPEAT:READV$:V=VAL("#"+V$)
152 POKEA,V:A=A+1:UNTILV=#60
160 POKE#26A,14:CLS:PRINT
170 PRINT"CHOISIR LE LECTEUR ET TAPER ESPACE"
180 DOKE#BB90,#4241:DOKE#BB92,#4443
190 KEYIF#AETHENPOKE#BB90,#C1:L=#86:GOTO250
200 KEYIF#92THENPOKE#BB91,#C2:L=#A6:GOTO250
210 KEYIF#BATHENPOKE#BB92,#C3:L=#C6:GOTO250
220 KEYIF#B9THENPOKE#BB93,#C4:L=#E6:GOTO250
230 KEYIF#A9THENEND
240 GOTO180
250 KEYIF#84THEN280
260 KEYIF#A9THENPOKE#26A,15:END
270 GOTO 250
280 CLS
290 PLOT2,4,"AUTRE TEST : ESPACE"
300 PLOT2,6,"SORTIR : ESC"
310 POKE#1002,L:POKE#4FB,L
320 CALL#1000
325 V$=STR$(60E6/(DEEK(0)*13+PEEK(1)*4))+" T/mn"
330 PLOT2,2,"VITESSE :"+V$
340 KEYIF#84THEN170
350 KEYIF#A9THEN POKE#26A,15:END
360 GOTO 320
370 DATA78,A9,86,8D,14,03,A9,08,8D,10,03,AD
375 DATA10,03,29,02,F0,F9,AD,10,03,29,02,D0
380 DATAF9,A2,00,A0,00,AD,10,03,29,02,D0,06
385 DATAE8,D0,F6,C8,D0,F3,AD,10,03,29,02,F0
390 DATA06,E8,D0,F6,C8,D0,F3,86,00,84,01,58
395 DATA60
but it seems to hang in emulator.
It's for microdisc and I don't know if it works at all
