You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
50<br />
E : "; VB$: INPUT "DONNEE : "; VCS<br />
175 IF LEN (VAS) . LEN (VBS) . LEN (<br />
VCS) ) LE - 3 THEN PRINT "TROP L<br />
ONG" : GOTO 170<br />
178 IF NZ • 0 THEN AO PO: POKE 28 ,0:<br />
POKE 29 ,HB: GOTO 190<br />
180 IF AO < • HM • 256 • LH THEN GOSU<br />
B 30: CALL 36176: REM DECALAGE P<br />
OUR INSERTION DANS LA TABLE<br />
190 FOR 1 • 1 TO LC : POKE AO • 1 - l,Z(<br />
1> : NEXT :NZ * NZ • 1: REM HET L<br />
A CLE A SA PLACE DANS LA TABLE<br />
200 & W: IF PEEK (35988) • 255 THEN P<br />
RUT "PLUS DE PLACE" : POKE 359SS,<br />
o<br />
205 GOTO 110<br />
250 CALL 36000 :Al z PEEK (28):A2 '" PE<br />
EK (29) :AO '" Al • 256 .; A2: IF P<br />
EEK (31) '" 0 THEN PRINT "N' EXIST<br />
E PAS" : GOTO 110<br />
260 POKE 35215,LE: • R:S . PEEK