You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
1029<br />
1030<br />
1040<br />
1050<br />
1060<br />
1070<br />
1080<br />
1090<br />
1100<br />
1110<br />
1120<br />
1130<br />
3: POKE 6,25: POKE 7,10: CALL<br />
31667: NEXT J:I l - 1: GOTO 103<br />
o<br />
POKE 6,30 + l * 20: POKE 7,18: CAL<br />
L - 31667<br />
NEXT l<br />
FOR l '" 1 Ta 2<br />
IF l 2 2 TH EN AS (l) AS(3)<br />
Al " Ase (AS(l» - 64<br />
IF l .. 2 THEN El " Al " VAL (AS(4<br />
» • 12: GOTO 1090<br />
Cl 11 Al . VAL (AS(2» .. 12<br />
NEXT l<br />
C " BCE1) :BM " C:BP " B(C1):B TA<br />
GOSUB 300<br />
HCOLOR: 0: ORAW 37 AT 3, 185<br />
POKE 230 ,64: FOR l : 176 TO 191 : H<br />
FLOT 0,1 TO 21 ,1: NEXT : POKE 230<br />
,32<br />
1140 CALL - 31720<br />
1150<br />
1160<br />
1170<br />
1200<br />
1202<br />
1205<br />
1210<br />
1215<br />
1220<br />
1230<br />
2000<br />
2050<br />
2055<br />
2060<br />
2070<br />
2110<br />
2U7<br />
2120<br />
2130<br />
2140<br />
2150<br />
2160<br />
2170<br />
2200<br />
2202<br />
2203<br />
2210<br />
2220<br />
2230<br />
HCOLOR 3: ORAW 37<br />
IF PEEK (254) : 0<br />
GOTO 1000<br />
IF GAGNE s 1 THEN<br />
: GET AS :A a ASC<br />
TH EN' 1020<br />
IF GAGNE '" 1 THEN 1230<br />
AT 3,185<br />
THEN 2000<br />
POKE - 16299,0<br />
(AS) : IF A : 27<br />
POKE - 16299 ,0: POKE 16368 ,0<br />
FOR II .. 1 TO BOUCLE : IF PEEK (<br />
16384) ) 128 THEM II : BOUCLE<br />
IF PEEK ( - 16384) % 175 THEN<br />
SUS 3000: POKE - 16304 ,0<br />
NEXT II<br />
POKE<br />
B • .B<br />
GO<br />
16368,0: POKE - 16300,O:N'<br />
• 1: RETURH<br />
HCOLOR- 0: FOR l 1 TO 2: POKE 23<br />
0,32 .. 1<br />
FOR J : 177 TO 191 : HPLOT 13,J TO<br />
279 ,J: NEXT J<br />
NEXT 1: POKE 230 ,32: HeOLOR: 3<br />
DIM BR(29) : FOR l " 1 TO 29: READ<br />
8R ( 1)<br />
DRAW BR (I) AT 14 • l 8, 185: NEXT<br />
1<br />
Z '" l<br />
OIM C(31) ,0(31) ,E(31)<br />
FOR l = 1 TO 31 : REAO C(I),O(!l ,E(<br />
Il: N'EXT l<br />
FOR K " 1 T0 2<br />
FOR l '" 1 TO 31<br />
POKE 6,C(I): POKE 7,D(I) : CALL<br />
31667<br />
FOR J " 0 TO E(l): NEXT J,I<br />
FOR J • 1 TO 500: NEXT J,K<br />
POKE 230,64<br />
IF NB - 0 TH EN 2700<br />
IF NB ) 54 THEN 2710<br />
ON INT (NB 1 5) .. 1 GOSUB 2500 ,25<br />
10,2520,2530,2540 ,2550,2560,2570,<br />
2580,2590,2600<br />
FOR l - 1 TO LEN (AS) STEP 2<br />
ORAW VAL ( MIOS (AS,l,2» AT 18 •<br />
l .. 4,185<br />
2240 N'EXT 1: POKE 230,32<br />
2250 GAGNE .. 1: GOTO 1001<br />
2500 AS " "22152119400520051940120540160<br />
80514092440393939" : RETURN<br />
2510 AS .. "15091905012140042140160118010<br />
4091939" : RETURN<br />
2520 AS " "06090518400315131305402114401<br />
<strong>Pom's</strong> n° 9<br />
VOUS INVESTISSEZ EN<br />
V<br />
fAITES LE<br />
EffICACEMENT.<br />
ous allez investir dans un ordinateur personnel.<br />
.<br />
Vous voulez être guidé dans votre choix el garanur au<br />
maximum votre investissement.<br />
Vous 'Ioulez vous servir efficacement de votre ordinateur<br />
personnel et souhaitez une assistance soutenue et suivie tant sur<br />
le matériel que sur l'emploi des logiciels .<br />
MINIGRAPHE MtCROINFORMATlQUE, créée à<br />
Boulogne-sur-Seine il y a Irois ans par Jean-louis Orsini, met à<br />
vOire disposition un système d'assistan·ce efficace qui vous permettra<br />
de réussir votre investissement et d 'optimiser 'lOS résultats.<br />
Téléphonez-lui, il vous donnera loutes les informations<br />
nécessaires.<br />
0 0<br />
o<br />
0<br />
0 0<br />
En nous rendant visite,<br />
vous pourrez 'loir<br />
fonctionner<br />
des logiciels<br />
performants sur nos<br />
ordinateurs personnels.<br />
25