You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
)T5 1 LUNDI 1 MARDI 1 MERCREDI LES SEPT JOURS DE lJ\ SEMAINE Mercredi<br />
1 JEUDI 1 VENDREDI 1 SAMEDI 1 DIMANCHE<br />
III ITO n.. y A 52 SEMAINES DANS UNE<br />
ANNEE. Une semaine est composée de sept<br />
2) A l'impression, il sort sous <strong>la</strong><br />
fonne :<br />
Programme PROGR.EDIT<br />
jours. Ce sont :<br />
Lundi<br />
Mardi<br />
10 REH ••••• EDITEUR DE TEXTE EDIT<br />
20 REft ••••• G, HISLEUR<br />
30 ses • . " .. : REft SEP"'R ... TEUR DE CH ... IME<br />
40 GOSUS 900<br />
O PRIMT "TOUTE COftft ... MDE SUIVIE DE 1 ENTR ... IN<br />
E": PRIMT .. L· ... FFICH ... GE DE SON ftODE D'E<br />
ftPLOI ,": PRIMT<br />
100 NOs · ".01" : Dlft SOURCES <br />
IF' LEF'TS • ...ND BS < )<br />
THEM BS " RIGHTS :<br />
GOTO 1210<br />
<<br />
•<br />
Jeudi<br />
Vendredi<br />
Samedi<br />
Dimanche<br />
D y a 52 semaInes dans une année.<br />
1220 IF' 8S . STRS (B) THEM RETURM<br />
1230 PRINT DS"PRIW": PRINT "COMM ... NDE INCORRE<br />
CTE": GOTO 200<br />
1500 REft •••••••••••••••••••• COMMANDE U<br />
1510 IF' 8 • 1 THEM 1540<br />
1520<br />
1530<br />
1540<br />
1560<br />
180<br />
1600<br />
1610<br />
1630<br />
1650<br />
1660<br />
1670<br />
2000 .<br />
2010<br />
2020<br />
2040<br />
2050<br />
2060<br />
2110<br />
2120<br />
200<br />
2:505<br />
2510<br />
2:520<br />
2530<br />
2540<br />
2560<br />
270<br />
280<br />
2600<br />
2610<br />
2620<br />
2625<br />
2630<br />
263:5<br />
2636<br />
2640<br />
2650<br />
2670<br />
2680<br />
2690<br />
2700<br />
2710<br />
2750<br />
2760<br />
2770<br />
2790<br />
2810<br />
3000<br />
3020<br />
3030<br />
3040<br />
30'0<br />
IF MIOS (AS.2,l><br />
GOSUB 1200<br />
SCS TH EN 1600<br />
15 • TU(IS>: IF' 15 • 0 THEM 8510<br />
8 • 8 - 1: IF 8 ) 0 THEM 1540<br />
PRIMT SOURCES