1 REM (c) LOGI'STICK 84
2 ONERRORGOTO10000:SCREEN1,1,1:CLS
3 CONSOLE0,4,0,1,1:CONSOLEà1,1,0:CLEAR0:CLEAR(FRE(0)-999)/14*11:ONERRORGOTO270
6 BEEP5,5:PRINT"<><> GRAPHE <><>(c)  LOGI'STICK 1984 <><><><><><>     ><><><><><><";:GOTO99
9 A$=INKEY$:IFA$=""THEN9ELSERETURN
99 SCREEN2,2,2:CONSOLE0,16,0,1,1: CLS:COLOR4,7:POKE1210,1:BEEP99,1:PRINT"><  ><  Premier MENU  ><  ><";:LOCATE0,4:PRINT".OPTION (1) : RESULTATS         ";:LOCATE0,6:PRINT".OPTION (2) : GRAPHES           ";:LOCATE0,8
100 PRINT".OPTION (3) : ARRET MOMENTANE   ":LOCATE0,10: PRINT".OPTION (4) : ARRET DEFINITIF   ";:LOCATE0,13:PRINT"Tapez sur 'RETURN' pour acceder         au 2eme MENU ...        ";
111 A$=INKEY$:IFA$=CHR$(13)THEN1000ELSEIFA$="1"ANDP+R<>0THEN2000
112 IFA$="2"THEN3000ELSEIFA$="4"THENCLS:BEEP9,4:ENDELSEIFA$<>"3"THEN111ELSESLEEP:GOTO99
200 ONERRORGOTO270:DIMA$(R,P),B$(R,P):CONSOLE0,16,0,1,0:RETURN
270 BEEP150,2:SCREEN2,2,2:CLS:LOCATE9,6:PRINT"ERREUR No";ERR
271 GOSUB9:RESUME99
400 PRINT£1,R,P:FORE=0TOR:FORF=0TOP:PRINT£1,A$(E,F),B$(E,F):NEXTF,E:BEEP99,3:GOTO99
410 INPUT£1,R,P:GOSUB200:FORE=0TOR:FORF=0TOP:INPUT£1,A$(E,F),B$(E,F):NEXTF,E:BEEP99,3:GOTO99
1000 BEEP99,3:CLS:COLOR5,2:PRINT">< ><  Deuxieme MENU  >< >< ";:LOCATE0,2:PRINT".OPTION (1) : LECTURE           ";:LOCATE0,4:PRINT".OPTION (2) : CORRECTION        ";:LOCATE0,6:PRINT".OPTION (3) : DIRECTORY         ";:LOCATE0,8
1001 PRINT".OPTION (4) : SAUVEGARDE        ";:LOCATE0,10:PRINT".OPTION (5) : DELETE            ";:LOCATE0,13:PRINT"Tapez sur 'RETURN' pour acceder          au 1er MENU ...        ";
1010 A$=INKEY$:IFA$="2"THEN1100ELSEIFA$="4"THEN1400ELSEIFA$=CHR$(13)THEN99ELSEIFA$="1"THEN1700ELSEIFA$="3"THEN1250ELSEIFA$="5"THEN1300ELSE1010
1100 IFP<3THEN1000ELSEBEEP99,1:CLS:D$="":INPUT"GROUPE :";D$:IFLEN(D$)<>1THEN1100
1101 BEEP99,1:INPUT"Numero de DONNEE :";F:E=ASC(D$)-65:IFF>=1ANDF<=PANDE>=0ANDE<=RTHEN1130ELSE1100
1130 BEEP99,1:PRINTA$(E,F),"DONNEE :";:INPUTA$(E,F):IFVAL(A$(E,F))<0ORLEN(A$(E,F))>16THEN1130
1150 BEEP99,1:PRINTB$(E,F),"LABEL :";:INPUTB$(E,F):IFLEN(B$(E,F))>16THEN1150
1160 BEEP99,1:PRINTA$(E,0),"LABEL de GROUPE :";:INPUTA$(E,0):IFLEN(A$(E,0))>16THEN1160ELSE99
1250 BEEP99,1:CLS:DIR
1251 GOSUB9:GOTO99
1300 BEEP99,1:CLS:INPUT"LABEL ";C$:DELETEC$,"D":GOTO99
1400 CLS:COLOR2,4:BEEP99,3:PRINT"><  ><   SAUVEGARDE   ><  ><";:LOCATE0,4:PRINT".OPTION (1) : sur CASSETTE      ";:LOCATE0,6:PRINT".OPTION (2) : sur CARTE MEMOIRE ";
1401 GOSUB9:IFA$="1"THEN1410ELSEIFA$="2"THEN1500ELSE1000
1410 BEEP99,1:CLS:INIT£1,"CASO:",1200,"B":GOTO400
1500 BEEP99,1:CLS:C$="":INPUT"LABEL ";C$:INIT£1,C$,10+(R+1)*(P+1)*25:GOTO400
1700 CLS:COLOR5,2:BEEP99,3:PRINT"><   LECTURE ‰ Partir ...   ><";:LOCATE0,4:PRINT".OPTION (1) : du CLAVIER        ";:LOCATE0,6:PRINT".OPTION (2) : d'une CARTE       ";:LOCATE0,8:PRINT".OPTION (3) : d'une CASSETTE    ";
1710 GOSUB9:IFA$="3"THEN1750ELSEIFA$="1"THEN1850ELSEIFA$="2"THEN1800ELSE99
1750 CLEAR:BEEP99,1:CLS:INIT£1,"CASI:",1200,"B":GOTO410
1800 CLEAR:ONERRORGOTO270:BEEP99,1:CLS:INPUT"LABEL ";C$:INIT£1,C$:GOTO410
1850 CLEAR:BEEP99,1:CLS:PRINT"FORMAT (";INT((FRE(0)-999)/6);")"
1851 INPUT"Nombre de groupes ";R:INPUT"Nombre de donnees ";P
1860 IFR<1ORR>26ORP<3ORP>40ORR*P>(FRE(0)-950)/6THEN1850
1870 R=R-1:GOSUB200:FORE=0TOR
1874 BEEP99,1:CLS
1875 PRINT"LABEL du GROUPE ";CHR$(65+E);:INPUTA$(E,0):IFLEN(A$(E,0))>16THEN1874
1877 FORF=1TOP
1880 BEEP99,1:CLS:PRINTCHR$(65+E);F;"/ DONNEE ";:INPUTA$(E,F)
1890 IFVAL(A$(E,F))<0ORLEN(A$(E,F))>16THEN1880
1900 BEEP99,1:PRINT"LABEL ";:INPUTB$(E,F):IFLEN(B$(E,F))>16THEN1900
1910 NEXTF,E:GOTO99
2000 CLS:BEEP99,5:COLOR5,7:GOSUB5000:KK=0:LL=0:II=0:FORE=G2TOG3:FORF=1TOP:KK=KK+VAL(A$(E,F)):LL=LL+1:NEXTF,E:DE=KK/LL:FORE=G2TOG3:FORF=1TOP
2015 II=II+((VAL(A$(E,F))-DE)^2)/LL:NEXTF,E:JJ=SQR(II):OO=100*JJ/DE:CLS:BEEP9,6:PRINT"<>  RESULTATS STATISTIQUES  <>";
2025 LOCATE0,3:PRINT".Moyenne :";DE;:LOCATE0,5:PRINT".Variance :";II;:LOCATE0,7:PRINT".Ecart Type :";JJ;:LOCATE0,9:PRINT".Coeff. de Var. :";OO;:LOCATE0,13:PRINT"Tapez sur 'RETURN' pour acceder          au 1er MENU ...        ";
2040 IFINKEY$=CHR$(13)THEN99ELSE2040
3000 SCREEN2,2,2:POKE1210,1:CLS:BEEP99,1:PRINT"<> <>  Troisieme MENU  <> <>";:LOCATE0,2:PRINT".OPTION (1) : LEGENDES          ";:LOCATE0,4:PRINT".OPTION (2) : HISTOGRAMMES '2D' ";:LOCATE0,6:PRINT".OPTION (3) : CAMEMBERTS        ";:LOCATE0,8
3001 PRINT".OPTION (4) : HISTOGRAMMES '3D' ";:LOCATE0,10:PRINT".OPTION (5) : GRAPHES ‰ LIGNES  ";:LOCATE0,13:PRINT"Tapez sur 'RETURN' pour acceder          au 1er MENU ...        ";
3010 A$=INKEY$:IFA$="4"THEN3100ELSEIFA$="2"THEN3197ELSEIFA$=CHR$(13)THEN99ELSEIFA$="3"THEN3400ELSEIFA$="5"THEN3198ELSEIFA$="1"THEN3950ELSE3010
3050 C$="":CLS:BEEP9,4:INPUT"TITRE du GRAPHE ";C$:C$=LEFT$(C$,23):GOSUB5000:IFXY=1THENRETURN
3055 WW=0:FORE=G2TOG3:FORF=1TOP:IFWW<VAL(A$(E,F))THENWW=VAL(A$(E,F))
3068 NEXTF,E:VV=WW: HH=0:BEEP99,1:CLS:GOTO8000
3100 IFP>12ORP<3THEN3000ELSEXY=0:GOSUB3050:SCREEN6,1,1:POKE1210,1:U1=0
3120 FORE=G2TOG3:BEEP9,4:CONSOLE0,16,0,1,1:CLS:CONSOLE2,1,0,1,1:LOCATE0,0:PRINT"------ > ";C$;:LOCATE0,1:PRINT"Groupe : ";A$(E,0);:GOSUB3900
3130 FORF=1TOP:IFF<>1THEN3137ELSE:XX=1:YY=BB+10:X2=1:X1=2:LINE(YY,191)-(YY+10,191)
3137 GOSUB3891:X1=VAL(A$(E,F))/(KK/78)+XX:IFX1=0 THEN3190ELSEIFX2>=X1THEN3155
3147 LINE(YY+10,192-X2)-(YY+10,192-X1):LINE-(YY,192-X1):LINE-(YY,192-X2)
3155 LINE(YY+10,192-XX)-(YY+20,186-XX):LINE-(YY+20,186-X1):LINE-(YY+10,192-X1):LINE(YY+20,186-X1)-(YY+10,186-X1)
3165 IFX2<=X1THENLINE-(YY,192-X1):GOTO3190ELSEIFX2<X1+6THENLINE-(YY+(10/(6/(X2-X1))),192-X2)
3190 X2=X1+6:XX=XX+6:YY=YY+10:NEXTF:GOSUB3890:NEXTE:GOTO3000
3197 U1=0:GOTO3200
3198 U1=1:Z=0
3200 IFP>24ORP<3THEN3000ELSE XY=0:GOSUB3050:SCREEN6,1,1:POKE1210,1
3210 FORE=G2TOG3:BEEP9,4:CONSOLE0,16,0,1,1:CLS:CONSOLE2,1,0,1,1:LOCATE0,0:PRINT"------ > ";C$;:LOCATE0,1:PRINT"Groupe : ";A$(E,0);:GOSUB3900
3215 FORF=1TOP:IFF<>1THEN3220ELSE:YY=BB+10
3220 XX=VAL(A$(E,F))*(156/KK):GOSUB3891:IFU1=0THENGOSUB3250ELSEGOSUB3260
3245 YY=YY+(246-BB)/P:NEXTF:GOSUB3890:NEXTE:GOTO3000
3250 IFXX=0THENRETURNELSE LINE(YY,191)-(YY,192-XX):LINE-(YY+(246-BB)/P-4,192-XX):LINE-(YY+(246-BB)/P-4,191):RETURN
3260 IFXX=0THENRETURNELSEIFF=1THEN3270ELSEIFX1=0THENRETURNELSELINE(Y1,192-X1)-(YY,192-XX)
3270 CIRCLE(YY,192-XX),1:X1=XX:Y1=YY:RETURN
3400 IFP>24ORP<3THEN3000
3405 XY=1:GOSUB3050:SCREEN6,1,1:POKE1210,1:FORE=G2TOG3:BEEP9,3:CLS:LOCATE0,0:PRINT"------ > ";C$:LOCATE0,1:PRINT  "Groupe : ";A$(E,0):MM=0:X1=0:FORF=1TOP:MM=MM+VAL(A$(E,F)):NEXTF:CONSOLE2,1,0,1,1
3429 FORF=1TOP:GOSUB3891:X2=(6.283*VAL(A$(E,F)))/MM:NN=SIN(X2/2+X1)*10:PP=COS(X2/2+X1)*10:LINE(NN+130,PP+120)-(NN+SIN(X1)*60+130,PP+COS(X1)*60+120):GOSUB6000:FORYY=X1TOX2+X1-EESTEPEE
3433 LINE(NN+SIN(YY)*60+130,PP+COS(YY)*60+120)-(NN+SIN(YY+EE)*60+130,PP+COS(YY+EE)*60+120):NEXTYY:LINE-(NN+130,PP+120)
3435 X1=X2+X1:NEXTF:GOSUB3890:NEXTE:GOTO3000
3890 BEEP9,6:CLS:PRINT"Trac termin... Pressez RETURN";:GOSUB9:CONSOLE0,16,0,1,1:RETURN
3891 CLS:BEEP9,4:PRINT"Trac de : ";CHR$(65+E);:PRINTUSING"££";F;:FORTT=1TO200:NEXTTT:RETURN
3900 UU=LEN(STR$(INT((KK/12)*12))):CC=0:FORXX=0TO12:CC=(KK/12)*XX:A$=STRING$(INT(UU),35)+"."+STRING$(2,35):LOCATE0,15-XX:PRINTUSINGA$;CC;:NEXTXX:BB=(LEN(A$)+1)*8:LINE(BB,36)-(BB,191):RETURN
3910 UU=LEN(STR$(INT((KK/12)*12))):CC=0:FORXX=0TO12:CC=(KK/12)*XX:A$=STRING$(INT(UU),35)+"."+STRING$(2,35):LOCATE0,15-XX:PRINTUSINGA$;CC;:NEXTXX:BB=(LEN(A$)+1)*8:LINE(BB,36)-(BB,191):RETURN
3950 IFP<3THEN3000ELSEXY=1:GOSUB3050:SCREEN6,1,1:POKE1210,1:FORE=G2TOG3:GOSUB3990:FORF=1TOP:LOCATE0,F+1:GOSUB3995:LOCATE22,F+1:GOSUB3996:IFF=14ANDF<>PTHENF=15:GOTO3960ELSENEXTF
3955 GOSUB9:BEEP8,4:NEXTE:GOTO3000
3960 GOSUB9:GOSUB3990
3961 LOCATE0,F-13:GOSUB3995:LOCATE22,F-13:GOSUB3996:IFF=28ANDF<>P THENF=29:GOTO3965ELSEF=F+1:IFF>PTHEN3955ELSE3961
3965 GOSUB9:GOSUB3990
3966 LOCATE0,F-27:GOSUB3995:LOCATE22,F-27:GOSUB3996:F=F+1:IFF>PTHEN3955ELSE3966
3990 CLS:BEEP9,4:PRINT"------ > ";C$;:LOCATE0,1:PRINT"Groupe : ";A$(E,0);:RETURN
3995 PRINTCHR$(E+65);:PRINTUSING"££";F;:PRINT": ";B$(E,F);:RETURN
3996 PRINT": ";LEFT$(A$(E,F),8);:RETURN
5000 IFR=0THENG2=0:G3=0:RETURN
5010 CLS:D$="":E$="":BEEP99,1:INPUT"GROUPE DE DEPART ";D$
5015 BEEP99,1:INPUT"GROUPE D`ARRIVEE ";E$:IFLEN(D$)<>1ORLEN(E$)<>1THEN5010
5020 G2=ASC(D$)-65:G3=ASC(E$)-65:IFG2>=0ANDG2=<RANDG3>=G2ANDG3<=RTHENRETURN
5030 GOTO5010
6000 EE=VAL(A$(E,F)):IFEE=0THEN6020ELSEIFEE<MM/60THENEE=.017:RETURN
6005 IFEE<MM/30THENEE=.034ELSEEE=.051
6010 RETURN
6020 EE=.0001:RETURN
8000 SCREEN2,2,2:CLS:BEEP9,5:PRINT"ECHELLE (A)UTO  ou  (M)ANUELLE ?";
8001 A$=INKEY$:IFA$="M"THENCLS:INPUT"ECHELLE";KK:CLS:IFKK<VVTHEN8000ELSERETURN
8002 IFA$="A"THENKK=VV:CLS:RETURNELSE8001
10000 BEEP9,4:CLS:PRINT"Branchez le X-720...":END