You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Programme EDITEUR-HGR<br />
MM s PEEK (llS) .. PEEK (116) • 256 :K<br />
H K HM - 26: HIHEH: HH - 31<br />
10 KH INT (KM 1 256) :KL s KM - 256 •<br />
KH : PQKE 232,KL: POKE 233,KH: FOR<br />
l " KI1 TO KI"I .. 20: .READ EE: PDKE<br />
I,EE: NEXT<br />
11 DATA 1,0,6.0,21,0,77,36,28,63,63,23,<br />
54 ,54, 14,45,45,5,32,4,0<br />
20 TEXT : HOME : PRINT "CREATION D'UN 0<br />
ESSIN EN HGR"<br />
30 PRINT : PRINT : INPUT "NOt'lBRE l'IAXHIU<br />
H DE POINTS ? ";N: 011"1 T% (2,N)<br />
40 HOME : PRINT : PRINT "LES CURSEURS D<br />
EPLACENT LE REPERE": PRINT : PRUI<br />
T "SUR L'ECRAN .": PRINT : PRINT :<br />
PRINT<br />
50 PRINT : PRINT "'ESPACE' MAROUE UN PO<br />
INr DE DEPART .": PRINT : PRINT ..<br />
, -)' LIE loS: POINT AU PRECEDENT<br />
60 PRINT : PRINT " '(-' REVIENT AU P<br />
OINT PRECEDENT .": PRINT : PRINT ..<br />
'RETURN' TERMINE L'ENREGISTREMENT<br />
70 VTAB 20: PRINT " • • • / • • • ": VTAB 20 : H<br />
TAB 4: GET RS<br />
100 HGR : POKE 49234 ,0: HCOLOR= 3: ROT=<br />
110 TX *' 0<br />
0: SCALEz 1<br />
120 GOSUB 10000 :XO X:YO = Y<br />
130 DRAW l AT XO, YO<br />
135 PRINT<br />
140 GOSUB 20000<br />
150 TEXT : HOME<br />
160 VTAB 10: PRINT "VOULEZ-VOUS VERIFIE<br />
R ? " : : GET RS: IF RS < ) "0" AN<br />
o RS < ) "N" THEN PRINT CHRS (<br />
7) : GOTO 160<br />
170 IF RS = "N" GOTO 310<br />
180 HGR : POKE 49234 ,0: HCOLOR= 3<br />
190 FOR 1 = 0 TO TX - 1<br />
200 IF T(O, I) K 0 THEN HPLOT T(l,I),<br />
T(2, I): GOTO 222<br />
210 HPLOT TO T%( 1,I),T(2,I)<br />
222 NEXT I<br />
300 GET R9 : TEXT<br />
310 HOME : PRINT "SAUVEGARDE DU TABLEAU<br />
SOUS FORME DE DATA": PRINT "RECU<br />
PERABLE PAR EXEC.": PRINT : PRIN<br />
T<br />
315 PRINT : PRINT "VOULEZ-VOUS SAUVEGAR<br />
DER ? "; : GET R9: IF RS < ) "a"<br />
AND RS < ) "N" THEN PRINT CHRS<br />
(7) : GOTO 315<br />
316 PRINT IF R$ ,. "N" GOTO 610<br />
317 PRINT INPUT "EN QUELLE LIGNE ? " .<br />
LI<br />
318 PRINT INPUT "QUEL NOM POUR LE TEX<br />
TE ? ";NOMS: PRINT<br />
320 IF LEFTS (NOMS,l) < "A" OR LEFTS<br />
(NOMS,l> > "Z" THEN PRINT CHRS<br />
(7) : GOTO 318<br />
520 PRINT CHRS (4); "OPEN ": NOMS:<br />
530 PRINT CHRS (4) ; "WRITE ''': NOMS<br />
540 TS STRS (LI) .. "DATA" .. STRS (TX<br />
- 1 ) : 1 " 0<br />
550 TG z TG .. "." ... :5TRG