Magazine Pom's : la collection

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