1 '**********************************
2 '*       Version disquette        *
3 '*  Decompactage de lignes de     *
4 '* programme possedant plus de    *
5 '*       255 caracteres.          *
8 '*                                *
9 '**********************************
10 CLS:SCREEN4,6,6
15 INPUT"Numero de ligne a decompacter "
;NUM:IF NUM<2000 THEN COLOR 1:PRINT "Le 
programme a decompacter commence a lalig
ne 2000":COLOR 4:GOTO 15
16 COLOR 0:PRINT "Je verifie":COLOR 4
20 ADRD=PEEK(&H611C)*256+PEEK(&H611D):'A
dresse de debut du programme
30 NL=PEEK(ADRD+2)*256+PEEK(ADRD+3)
35 IF NL=1000 THEN DVAL=ADRD+6
37 IF NL=2000 THEN ARRET=ADRD
40 IF NL=NUM THEN 80
50 ADRD=PEEK(ADRD)*256+PEEK(ADRD+1)
60 IF ADRD=0 THEN CLS:COLOR 1:PRINT "La 
ligne";NUM;"n'existe  pas":COLOR 4:GOTO 
15
70 GOTO 30
80 '
90 'S/Programme de traitement de ligne
100 '
120 '
130 CLS:LOCATE12,10,0:ATTRB1,1:PRINT"Pat
ience":ATTRB0,0:LOCATE14,14:PRINT"JE TRA
VAILLE"
150 '
160 FOR I=0 TO 200
170     J=PEEK(ADRD+4+I):LOCATE18,16:COL
OR0,3:PRINTJ
180     IF I>140 AND J=58 THEN 220
190     IF J=0 THEN 270
200     POKE DVAL+I,J
210 NEXT
220 ADRD=ADRD+I+1
230 DVAL=DVAL+241
240 IF DVAL>=ARRET THEN COLOR1,6:PLAY "L
96DO":PRINT "  Plus assez de lignes pour
 recevoir le programme decompacte. En ra
jouter entre les lignes 1100 et 2000.":C
OLOR 4:STOP
250 GOTO 160
270 PLAY"L96SO":COLOR4,6:LOCATE0,18:PRIN
T "Il ne reste plus qu'a lister les lign
es 1000 a 1300 en supprimant les ' et le
s + et a valider"
280 END
300 '
310 '
320 '  Les lignes 1000 a 1999 sont desti
nees a recevoir les lignes de programme 
decompactees.
330 '
340 '
350 '
1000 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
1010 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
1020 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
1030 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
1040 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
1050 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
1060 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
1070 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
1080 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
1090 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
1100 '++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++
2000 '"MERGER" ce programme apres avoir 
renumerote le programme a decompacter (q
ui doit se situer a partir de la ligne 2
010)
