Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
20<br />
360 LS = Dl • L1 - Sl<br />
370 S4 = S3 • LS<br />
380 IF OH .. N2) ) 255 THEN PRINT ") 2<br />
55, TROP LONG I" : END<br />
3'30 FLASH : PRINT : HTAB 13: PRINT "«<br />
400 RE!'!<br />
FUSION » " : NOR!'!AL<br />
COPIE DES ADRESSES DE 5T1<br />
410 J = D3<br />
420 FOR 1 = 01 .. 2 TO Dl • 2 • N1 • 2 S<br />
TEP 2<br />
430 J = J • 2<br />
440 TE"P = PEEK (1)<br />
5.<br />
PEEK (1 • 1) • 2<br />
450 TE"P = TEHP .. N2 • 2 - 51 • (Dl • N1<br />
• 2 .. 2)<br />
460 POKE J • l,TE!'!P 1 256<br />
470 POKE J,TEHP - ( PEEK (J • 1) • 256)<br />
480 NE:XT l<br />
4'30 REl'!<br />
500<br />
510<br />
520<br />
530<br />
COPIE DES 5HAPE5 DE 5T1<br />
FOR l = Sl TO 51 + L5 - 1<br />
POKE: 53, PEEK (1) :53'= 53 .. 1<br />
NE:XT l<br />
REM<br />
540 J = 03 • Nl .. 2<br />
COPIE DES ADRESSES DE 5T2<br />
550 FOR l = 02 • 2 TO 02 .. 2 .. N2 STEP<br />
2<br />
560 TEHP = PEEK " PEEK (1 .. 1) .. 2<br />
56<br />
570 TEHP = TEHP .. N1 • 2 .. L5 - 52 .. (02<br />
580 J = J · 2<br />
• 2 .. N2 .. 2)<br />
5'30 POKE J .. 1,TEHP 1 256<br />
600 POKE J,TEHP - < PEEK (J .. 1) .. 256><br />
610 NEXT l<br />
620 REH<br />
COPIE DES 5HAPES DE 5T2<br />
630 FOR l = 52 TO 02 + L2 - 1<br />
640 POKE 54 , PEEK (I} :54 54 • 1<br />
650 NEXT l<br />
660 REH<br />
670 L3 = S4 - 03<br />
SAUVEGARDE DE 5T3<br />
680<br />
690<br />
700<br />
710<br />
720<br />
730<br />
740<br />
750<br />
760<br />
770<br />
780<br />
790<br />
800<br />
810<br />
POKE D3,Nl + N2<br />
CALL - '3'38: CALL - '358<br />
INPUT "NOH DE: LA ST OBTENUE :";S3S:<br />
IF S3S ... "" THEN 730<br />
PRINT DS"BSAVE"S3S" , A " 03" ,L "L3<br />
PRINT<br />
PRINT "ADRESSE ACTUELLE: ";D3<br />
PRINT "VECTEUR :"<br />
POKE 233,03 1 256<br />
POKE 232,D3 PEEK (233) • 256<br />
PRINT "POKE 232,": PEEK (232)<br />
PRINT "POKE 233 ,": PEEK (233)<br />
REM<br />
• •• DEHO DES ST FUSIONNEES •••<br />
PRINT PRINT "DEHO "0" THEM END<br />
830 PRINT<br />
840 POKE 16301 ,0<br />
850 HGR<br />
860<br />
870<br />
880<br />
5CALE= 1: ROTz 0: HCOLOR= 7<br />
VTAB 21: CALL - 958<br />
PRINT " SHAPE