at a émis l'idée suivante :
En fait AbbyFineReader permet le mode par apprentissage, ça donne un
résultat presque identique au document original, sauf pour les
caractères spéciaux qui sont de toute façon a peine identifiable avec
un cerveau!
Voilà le travail pour l'exemple:
(j'ai juste corrigé les retours à la ligne qui ne se font pas toujours
correctement)
10 REM BREAKOUT
20 REM ***************************************
30 REM
40 GOTO1160
50 HA=36878 : 8 1 =36876 : S2=86877
60 POKEHA,15
70 GO8UB1050
80 POKE36879, 1 2 : P=8 : BA=5
90 REM
100 REM DISPLAY
110 REM
120 PRINT"^^ _________________________ ";
130 FORI=1TO21
140 PRINT"^^ ^^ ^^ ^^^^^^ "
150 NEXT
160 PRINT"^^ ^^ ^^ ^^^^^^ _^
170 PRINT"^^I^^^":A$="^^^^^^^^^^^^T^^^^^^^
180 PRINT"^^^"A$:PRINT"^^"A$
1 90 PR I NT "^^" A$ : PR I NT " ^^" A$
200 PR I NT " ^^" A$ : PR I NT " ^^" A$
210 PRINT"^^"A$:PRINT"^^"A$
220 POKE82 , 0 : POKEHA , 1 5 : A ( 1 ) = 1 26 : A ( 2 ) = 1 08
230 A ( 3 ) = 1 28 : A ( 4 ) = 1 24 : R=0 : O=0 : V=23 : Y= 1
240 REM
250 REM RANDOM BALL START POSITION
260 REM AND DIRECTION
270 REM
280 Z=7945+RND(1)*20
290 G=INT(RND(1)*2)
300 IFG=1THENR=1
310 IFG=0THENR=3
320 POKE8 1 , 0 : PR I NT " ^^^^OORE " SC
330 PRINT"^^^^^^^^^^^^^^^^ALL NO"BA
340 IF BA<>0 THEN 430
350 PRINT"^NOTHER GAME ?";
360 GET A$:IF A$="" THEN 360
370 IF A$="Y" THEN RUN
380 IF A$<>"N" THEN 360
390 PRINT"^":POKE 36879,27:END
400 REM
410 REM PLAY GAME AND MOVE BAT WITH 8Y8 7424
420 REM
430 POKES1,0:SYS7424
440 R=R+1
450 IFO=1THENIFR>4THENR=3 : Z=Z+V : POKEZ-V, 32 : GOTO480
460 IFO=1THEN480 470 IFR>2THENR= 1 : Z=Z+V : POKEZ-V, 32
480 X=PEEK(Z)
490 IFX=120THEN800
500 IFX=207THENK= 1:GOTO870
510 I FX=208THENK=- 1 : GOTO870