10 REM RANGEMENT DIAPOSITIVE 20 REM DE E. LETELLIER 30 CLS 40 RESTORE 50 PRINT"CHOISISSEZ VOTRE MODE DE RECHERCHE: ":PRINT 60 PRINT.1-PAR SUJET" 70 PRINT"2-PAR LIEU" 80 PRINT"3-PAR LIEU+SUJET" 90 PRINT"4-PAR N.DIAPOSITIVE" 100 PRINT"5-PAR SUJET DANS SUITE" 110 PRINT"6-LISTE DIAPOSITIVE" 120 PRINT 130 INPUT"VOTRE CHOIX ";CHOIX 140 ON CHOIX GOTO 150,220,290,370,450,530 150 REM === SUJET === 160 CLS:INPUT"SUJET ";S$ 170 READ SUJET$,LIEU$,BOITE,DIA 180 IF SUJET$="FIN" THEN 600 190 IF SUJETS=S$ THEN GOSUB 670 ELSE 170 200 PRINT: INPUT"VOULEZ-VOUS POURSUIVRE LA RECHERCHE DU MEME SUJET DANS LA MEME SUITE (O/N) ";V$ 210 IF V$<>"O" THEN 620 ELSE 170 220 REM === LIEU === 230 CLS:INPUT"LIEU .;L$ 240 READ SUJET$,LIEU$,BOITE,DIA 250 IF SUJET$="FIN" THEN 600 260 IF LIEUS=L$ THEN GOSUB 670 ELSE 240 270 PRINT:INPUT"VOULEZ-VOUS POURSUIVRE LA RECHERCHE DU MEME LIEU DANS LA MEME SUITE (O/N) ";V$ 280 IF V$<>"O" THEN 620 ELSE 240 290 REM === LIEU+SUJET === 300 CLS:INPUT"LIEU ";L$ 310 INPUT"SUJET ";S$ 320 READ SUJET$,LIEU$,BOITE,DIA 330 IF SUJET$="FIN" THEN 600 340 IF LIEUS=L$ AND SUJETS=S$ THEN GOSUB 670 ELSE 320 350 PRINT: INPUT"VOULEZ-VOUS POURSUIVRE LA RECHERCHE DU MEME LIEU ET DU MEME SUJET DANS LA MEME SUITE (O/N) ";V$ 360 IF V$<>"O" THEN 620 ELSE 240 370 REM === BOITE+DIA === 380 CLS:INPUT"NUMERO SUITE ";NB 390 INPUT"NUMERO DIAPOSITIVE ";ND 400 READ SUJET$,LIEU$,BOITE,DIA 410 IF SUJET$="FIN" THEN 600 420 IF BOITE=NB AND DIA=ND THEN GOSUB 670 ELSE 400 430 PRINT 440 GOTO 620 450 REM --- BOITE+SUJET 460 CLS:INPUT"NUMERO BOITE ";NB 470 INPUT"SUJET ";S$ 480 READ SUJET$,LIEU$,BOITE,DIA 490 IF SUJET$="FIN" THEN 600 500 IF BOITE=NB AND SUJETS=S$ THEN GOSUB 670 ELSE 480 510 PRINT: INPUT"VOULEZ-VOUS POURSUIVRE LA RECHERCHE DU MEME SUJET DANS LA MERE BOITE (O/N) ";V$ 520 IF V$<>"O" THEN 620 ELSE 480 530 REM === LISIE DIAPO 540 CLS:INPUT"NUMERO BOITE ";NB 550 N2AD SUJET$,LIEU$,BOITE,DIA 560 IF SUJET$="FIN" THEN 600 570 IF BOITE=NB THEN GOSUB 670 ELSE 550 580 PRINT:PRINT"TAPEZ UNE TOUCHE" 590 IF INKEY$="" THEN 590 ELSE 550 600 REM === INCONNUE+ADIEU === 610 PRINT"LECTURE TERMINEE." 620 PRINT 630 INPUT"VOULEZ-VOUS CONTINUER (O/N) ";C$ 640 IF C$="O" THEN 30 650 CLS:PRINT"AU REVOIR !" 660 END 670 REM === INSCRIPTION === 680 CLS 690 PRINT:PRINT:PRINT"SUJET ";SUJET$ 700 PRINT 710 PRINT"LIEU : ";LIEU$ 720 PRINT 730 PRINT"BOITE ";BOITE 740 PRINT 750 PRINT"DIAPOSITIVE ";DIA 760 PRINT 770 RETURN 780 REM +++ DATA +++ 790 REM 800 REM Entrée des donnees sous la forme : 810 REM DATA sujet,lieu,n* boite,n' dia 820 REM 830 DATA MAISON,REIMS,1,1 840 DATA MONUMENT,REIMS,1,2 850 DATA FIN,FIN,100,100