
10 MODE 2:'routine LM transfert implentee en 28480 transfert rapide d'images.
20 PRINT:PRINT:PRINT"'chargement routine LM. 5 secondes...":PRINT:PRINT:PRINT
30 MEMORY &6A03
40 DATA 3e,08,32,8b,6f,3e,0c,32,8a,6f 
50 DATA 2a,86,6f,ed,5b,88,6f,01,28,00
60 DATA ed,b0,3a,8a,6f,3d,28,08,32,8a
70 DATA 6f,01,50,00,18,10,3a,8b,6f,3d
80 DATA c8,32,8b,6f,3e,0c,32,8a,6f,01
90 DATA 90,04,2a,86,6f,09,22,86,6f,2a
100 DATA 88,6f,09,22,88,6f,18,c6
110 RESTORE 40:s=0:FOR i=0 TO 67:READ a$:a=VAL("&"+a$):s=s+a:POKE i+28480,a: NEXT i:IF s<>5662 THEN PRINT"erreur datas routine TRANSFERT":STOP
120 'routine LM Paint implentee en &6a04 remplissage de contours fermes convexes traces en INK 3.ne bugge Pas.Sortie du contour en haut ou en bas ecran autorise.faire l Poke avant appel(cf ROBOT)
1010 DATA 3A,7E,6B,FE,C8,38,4,AF,32,7E,6B,3A,7E,6B,4F,E6,7,47,4,21,0,B8,11,0,8,19,10,FD,79,E6,F8,5F,16,0,6,A,19,10, 3254 
1020 DATA FD,22,74,6B,3E,F,32,7F,6B,2A,74,6B,22,76,6B,CD,AB,6A,3A,7F,6B,A7,28,26,2A,76,6B,3E,FF,BC,20,5,3E,80,BD,28,19,2A, 3709 
1030 DATA 76,6B,11,0,8,19,30,4,11,50,C0,19,22,76,6B,18,D8,AB,4F,52,56,4B,51,48,3A,7E,6B,A7,C8,3E,F,32,7F,6B,2A,74,6B,22, 3104
1040 DATA 76,6B,18,15,18,13,CD,AB,6A,3A,7F,6B,A7,C8,2A,76,6B,AF,BD,20,4,3E,C0,BC,c8,2A,76,6B,11,0,8,AF,ED,52,11,0,c0,ED, 3995
1050 DATA 52,19,30,6,AF,11,50,C0,ED,52,22,76,6B,18,D1,2A,76,6B,6,50,4E,79,cB,7,CB,7,CB,7,CB,7,A1,20,8,23,10,F0,AF,32, 3545
1060 DATA 7F,6B,C9,22,78,6B,32,7C,6B,2A,76,6B,11,4F,0,19,6,50,4E,79,cB,7,CB,7,CB,7,CB,7,A1,20,3,2B,18,F0,22,7A,6B,32, 3306
1070 DATA 7D,6B,2A,7A,6B,ED,4B,78,6B,ED,42,20,2A,2A,78,6B,3A,7C,6B,E6,99,FE,99,20,3,36,99,C9,3A,7C,6B,E6,AA,FE,AA,20,5,CB, 4563
1080 DATA 96,CB,B6,c9,3A,7C,6B,E6,55,FE,55,C0,CB,8E,CB,AE,C9,2A,78,6B,3A,7c,6B,CB,7F,28,4,36,88,18,12,CB,77,28,6,7E,E6,CC, 4886
1090 DATA 77,18,8,CB,6F,28,4,CB,A6,CB,86,2A,7A,6B,3A,7D,6B,CB,47,28,4,36,11,18,12,cB,4F,28,6,7E,E6,33,77,18,8,CB,57,28, 3423
1100 DATA 4,cB,BE,CB,9E,2A,7A,6B,ED,4B,78,6B,ED,42,45,5,C8,2A,78,6B,23,36,0,10,FB,C9,0,F5,E0,C1,6,CA,9,CA,11,CC,86,10, 4423
1110 RESTORE 1010
1120 FOR serie=1 TO 10:s=0:fOR i=&6A04+(serie-1)*38 TO &6A04+serie*38-1:READ a$:POKE i,VAL("&"+a$):s=s+PEEK(i):NEXT i:READ sum:IF sum<>s THEN PRINT"erreur dans PAINT,datas serie n";serie:STOP
1130 NEXT serie
1140 PRINT"remarques:-Pour mettre en evidence l'effet de chaque articulations"
1150 PRINT"du robot:choisir 1e mode anime,fixer toutes les art.en 45 degres(donc"
1160 PRINT"entrer:45,45),sauf celle qui est mobile a mettre entre 0 et 45(entrer"
1170 PRINT"0,45)":PRINT"ATTENDRE la realisation des 7 images,l'animation suit"
1180 PRINT"le +rapide:mode PAINT LM":PRINT"1e dessin le + fin obtenu en mode PAINT BASIC(est le +lent!)"
1190 PRINT"le beep sonore separe le tracage de 2 segments <>"
1200 PRINT"Pour une perspective 'normale' entrez psi=0,teta=30"
1210 PRINT"faites new et entrez le prgrm ROBOT"



