IMD 1.18: 10/01/2016 17:34:15     ! TO&O_?XX3ņƎ$XX:TTʀ?%?4@Pm'?5@J*`4'&*%   '4 j&5 ʌ&&2cn &/+?094O?&?'z+ 'O?O? 2b9? (c) SMT 1983^L#^A&oA ILLEDAT!! TATEDATTMBDAT!! TBEEMPLDAT  TREAEMPLBASTREAMENUBAS  TPACESSET   TELECRANBAS!! TBAS!!  TFLEXLOGOSYS!# RNVIBASTOKERBAC TIKERBAS  TECORDDAT  TINGSET TNBAS TAROTBASTNVADERSET TNVASETTPACESBAS TBCUL)J(JJJCARACDURUT9 j_&25}A'B 1#'Ȁ'j_'ܦ椮!' @ ~@~ Z&94Ä'0J&5.zA& A|?-XR]4&X@ZR LOGOCMD#'?SSTARTUPTXT''SCOPYCMD''  R LOG' ' DATEVR2CMD' ' SDEMOSMTLOG' ETOILELOG  JOLILOG BRUNOLOGBACKUPCMD SNVADBAS TNVBASTNVABAKTNVABAS TNVOBASTEFTBAK TBASICCMD TTEFTTXT  TATCMD  TOMPILECMD  RVIERGE! T'ELETECMD RAYEBAS  TSSAIDATTALARIESDAT   TREAFICHBAS TALMENUBASTODIF1BAS  TDBAS  TSSDAT   TDRESSEDAT   T        15 A%=2:D%=1:C%=40:E%=1 20 PRINTCHR$(12) 30 PRINTCHR$(27);CHR$(HEX("2D"));CHR$(HEX("7B")) 40 PRINTCHR$(12);CHR$(20);CHR$(14); 50 CURSOR 0,A%:PRINTCHR$(27);"p"; 60CURSORT%,A%: PRINTSTRING$(" az ",15) 66B%=RND(0)*(A%)+RND(0)*60 70CURSORT%+1,A%: PRINTSTRI"rss{`t" "r 32uss"\"s7s"A"s}z~}~~Vt20usBn"A"s}~~*}:~Mi`tVt 10ur15u{Ii`tVt8ur15unVt 10u}/~i`tVt 11ur5u{i`tVt 9ur15u}~~it 32u} ~ PIQUE }/t 0~~{~Z}~~n}~i^t_tZtuuu}9~~Rt1r r)ui0~0~tui1{iin1}~}-~ ~^i1~2~ 32{Ztui0{~{}& ~i0}:~ ~i0~2~3}N*~itAtuo1ul8{i3o}b~i  ~ SAVE"1.POKER" }~iVt27u{Vt 12u}2~~}F~~t 32urt4u}Z ~i5}n~i;t0um 32n1}~~Htsuh0~0~n}~tui2{dio1}~~h0~0~n} ~i0{ ~i1~2~ 3<2 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 285 GOSUB 1000 290 GOTO 60 300 SUB BOMBE 310 FOR W%=T%+9 TO 22:CURSOR W%,B%:PRINT"yu":FOR S=1 TO 50 :NEXT S:CURSOR W%,B%:PRINT" " 320 NEXT W% 330 RETURN 400 SUB TNG$(" er ",15) 80 FOR I=1 TO 150:NEXT I 85 CALL TIR 90CURSORT%+1,A%: PRINTSTRING$(" t& ",15) 100CURSORT%+3,A%: PRINTSTRING$(" az ",15) 115CURSORT%+4,A%: PRINTSTRING$(" er ",15) 120FOR I=1 TO 150:NEXT I 130CURSORT%+4,A%: PRINTSTRING$(" t& ",15) 140CURSO1uiVt14un" P "nXtr6u}0t1uiIt1un"X___T"nXt8r8u}.5Tt1ui}t1un "X_______T"nXtlr 10u}B4t1uit1un "+_______'"nXtr8u}V-t1uit1un"X___T"nVt15u}j~ tun8}v~ ~i1~2~}~ ~in1~2~4} ~~t;ui ~0~ign1}~~\}~ain8}~~$}~~?}(~ ~i0~2~24~3~8{i0}~ ~i0~2~4}*5~~Xtuh~b~tug 9n 2}~~tuf2~0~}X~& ~7r7nm16{Tt6ui{EiNn1{~n"]"ntJus^s"\"s}~~m}~~&}"-~~i1~0~ "DSFDSSD"s[t0us{~6}# ~Vt17us}$@~& ~20r5{rn"G"{~ "N0 X.X...IR 410 FOR W%=22 TO T%+9 STEP -1:CURSOR W%,C%:PRINT"''"FORS=1 TO 50:NEXT I:CURSOR W%,B%:PRINT" " 420 NEXT W% 430 RETURN 1000S%=ASC(INCH$(-1)):IF S%=0 THEN 1040 1010 IF S%=9THEN F%=0 1020 IF S%=8 THEN F%=-2 1030 IF S%=29 THEN F%=2 1040 IF C%>5 AND C%<7RT%+6,A%: PRINTSTRING$(" az ",15) 150CURSORT%+7,A%: PRINTSTRING$(" er ",15) 160FOR I=1 TO 150:NEXT I 170CURSORT%+7,A%: PRINTSTRING$(" t& ",15) 175 CALL BOMBE 180S%=ASC(INCH$(-1)):IF S%=0 THEN 220 190 IF S%=119THEN CALL TIR 200 IF S%=8 THEN F%=-2 215 IF  }~~ } ~ trefle }/t 9uiVt14un" X__T"nXtr5u}/At 9uitt 9un"+__'"nXtcr7u}3t 9uit 9un "X______T"nXtr 9u}3t 9uit 9un "+__'+__'"nXtr7u},t 9ui ~0~in1}>)~~{~i5~0~ki@n5{~T}R~~}T$~.it0u{ ~[i1~2~4}V~~dfhtuuo~0~f}W~~}X~Din5}f:~& ~15r3{:s"]"ss"G"s`t" "r20us}kI~~- " #### "r{s"A"s}%(~& ~19r5{Vt20uss"q"s}6~~*}J*~i0{Ri0{ ~i1~2~ 32}^(~~ tlui2~0~`in1{~}r~~}#~~i1~0~i0{Vi5}~~g5~0~i1}~~i5~5 THEN C%=C%+F% 1050 IF C%<=5 THEN C%=6 1060 IF C%>=75 THENC%=74 1070 RETURN  S%=29 THEN F%=2 220 IF C%>5 AND C%<75 THEN C%=C%+F% 230 IF C%<=5 THEN C%=6 240 IF C%>=75 THENC%=74 250 CURSOR 22,C%:PRINT" io " 260 A%=A%+D% 270 IF A%>20 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 280 IF A%         t 9un"X__T"nVt15u} ~ } ~ COEUR }2= t17uiVt14unVt 10un "X__TX__T"nXt r 9u}F5 ]t17ui t17un "+______'"nXt r7u}Z1 t17ui t17un"+__'"nXt r4u}n, t17ui t17un490 IF INSTR(1,A$,B$)=0 THEN CA%(A%)=1:N%=N%+1 510 RETURN 530 FOR A%=1 TO 32:CA%(A%)=0:NEXT A%:RETURN 550 PO%=0 570 FOR F%=0 TO 3 590 T%=(A%(F%)-1)/8:T%=3-T% 610 C%=A%(F%)+8 630 FOR X%=1 TO T% 650 FOR G%=F%+1 TO 4 670 IF A%(G%)=C% THEN PO%=PO%+1 690 NE 10 190 P%=0:FOR A%=1 TO 32 210 IF CA%(A%)<>2 THEN 250 230 CURSOR 7,7+P%*16:A%(P%)=A%:P%=P%+1:PRINT ES$+"]"+CARTE$(A%);ES$;"\"; 250 NEXT A% 270 GOSUB 550 275 PRINTES$;"G" 290 IF X1%=1 THEN CURSOR18,8:PRINT"VOUS NE POUVEZ PLUS BLOQUER DE CARTES .":PRINT"  2 "s}>6~-/" 3 4 5"s}R~" "ss"A"s}f#~ ~i5~2~14{& ~r3}z1~`tn"] "nn"\ "r5u}~~}~}PP4F1ED C|GXC0TF PO BXt r 11unWt r6un " 9 9 "}~ i3{~}Q~ iWt +r7un n " 8 8 "nXt tr 11unWt 9r6un " 8 8 "}~ Yi2{~}Q~ niWt r7un n " 7 7 "nXt r 11unWt r6un " 7 7 "} '"!'nVt15u}~ }~ CARREAUX }0~ t25uiVt14un"______"nXt r7u}R~ Vt25ui t25un t25un t25un t25un" "nVt15u}~ }~ }Q~iWt zr7unn " AS AS "nXt r 11unWtXT G% 710 C%=C%+8 730 NEXT X% 750 NEXT F% 770 FOR F%=0 TO 24 STEP 8:F1%=0 790 FOR X%=0 TO 4 810 IF A%(X%)>F% AND A%(X%)<9+F% THEN F1%=F1%+1 830 NEXT X%:IF F1%=5 THEN PO%=PO%+5:GOTO 852 850 NEXT F% 852 X%=A%(0):FOR F%=1 TO 4 854 IF X%<>A%(F%)-F% THEN 87  ";INCH$(0):PS%=PS%+PO%:CURSOR 22,60:PS%=PS%-1:PRINT" GAIN $:";PS%:GOTO 310 291 CURSOR 18,8:PRINT" QUELLES CARTES VOULEZ VOUS BLOQUER ?":PRINT"INDIQUEZ SON NUMERO N0..." 292 CURSOR 20,5:PRINTES$+"G":INPUT "N0 X.X...",A$:PRINTES$;"A"; 293 CURSOR 19,5 X1 ACARTE3PAmNACAES&~ i1{~}:~}N2~& ~7r7{fn"]"n t1unYn"\"}b3~& ~7r23{on"]"ndt 9unn"\"}v4~& ~7r'39{n"]"nt17unn"\"}4~& ~7r755{n"]"nt25unn"\"}4~& ~ r6un " AS AS "}~i8{~}"Q~ iWt r7un n " R R "nXt br 11unWt 'r6un " R R "}6~ Gi7{~}JQ~ \iWt r7un mn " D D "nXt r 11unWt r6un " D D "}^~ i6{~0 855 NEXT F% 856 PO%=PO%+5 870 CURSOR 15,3:PRINTES$;"]";ES$;"G";STRING$(" ",20); 875 PRINT USING" ####",PP%;PO%;:PRINTSTRING$(" ",32);ES$;"\";ES$;"A"; 890 RETURN 910 PRINT CHR$(20);ES$+"A"; 930 GOSUB 2090 950 B$=STRING$(CHR$(10),15):A$=STRING$(CHR$(8:PRINTCHR$(20);ES$;"q"; 310 GOSUB 2090 330 N%=0:P%=0:FOR A%=1 TO 32 350 IF CA%(A%)=2 THEN P%=P%+1:GOSUB 470 370 NEXT A% 390 IF X1%=1 THEN X1%=0:N%=5 410 IF N%<5 THEN X1%=1 430 IF N%=5 THEN GOSUB 530:GOTO 90 450 GOTO 110 470 B$=RTRIM$(LTRIM$(STR$(P%)))  10 REM SAVE"1.POKER" 20 PS%=10 30 ES$=CHR$(27):PRINTCHR$(12) 50 GOSUB 910 70 DIM CA%(32),A%(4) 90 N%=5 92PRINTES$;"G" 95 CURSOR 22,60:PRINT" GAIN $:";PS%:PRINTES$;"A" 110 A%=RND(0)*32+1 130 IF CA%(A%)>0 THEN 110 150 CA%(A%)=2:N%=N%-1 170 IF N%>0 THEN 17rG71{n"]"n t25un7n"\"}~}~Bt-uiet1un }~ntin8uit 9uny}!~tn16uit17un}!~tn24uit25un}~}*C~& ~4r3{Ns"]"ss"G 1  }rQ~ iWt r7un n " V V "nXt 6r 11unWt r6un " V V "}~ i5{~}Q~ 0iWt Wr7un An " 10 10 "nXt r 11unWt er6un " 10 10 "}~ i4{~}Q~ iWt r7un n " 9 9 "n        ),15)+CHR$(10) 970 C$=STRING$(CHR$(11),5):D$=STRING$(CHR$(9),15) 990 DIM CARTE$(32) 1010 REM PIQUE 1030 CARTE$(1)=CHR$(14)+" P "+RIGHT$(A$,6) 1050 CARTE$(1)=CARTE$(1)+"X___T"+RIGHT$(A$,8) 1070 CARTE$(1)=CARTE$(1)+"X_______T"+RIGHT$(A$,10) 1090 CA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SCORE: 0 ... VERO  "\" 1890 CURSOR 7,23:PRINTES$+"]"+CARTE$(9)+ES$+"\" 1910 CURSOR 7,39:PRINTES$+"]"+CARTE$(17)+ES$+"\" 1930 CURSOR 7,55:PRINTES$+"]"+CARTE$(25)+ES$+"\" 1950 CURSOR 7,71:PRINTES$+"]"+CARTE$(25)+ES$+"\" 1970 END 1990 CARTE$(A%)=CARTE$(1)+E$ 2010 CARTE$(A%+ T$(A$,7)+C$+" AS AS "+RIGHT$(A$,11)+LEFT$(B$,6)+" AS AS " 1550 A%=8:GOSUB 1990 1570 E$=LEFT$(A$,7)+C$+" R R "+RIGHT$(A$,11)+LEFT$(B$,6)+" R R " 1590 A%=7:GOSUB 1990 1610 E$=LEFT$(A$,7)+C$+" D D "+RIGHT$(A$,11)+LEFT$(B$,6)+" D D " 1630 A%=6:GOSUB  RTE$(1)=CARTE$(1)+"+_______'"+RIGHT$(A$,8) 1110 CARTE$(1)=CARTE$(1)+"X___T"+CHR$(15) 1130 REM 1150 REM 1170 REM trefle 1190 CARTE$(9)=CHR$(14)+" X__T"+RIGHT$(A$,5) 1210 CARTE$(9)=CARTE$(9)+"+__'"+RIGHT$(A$,7) 1230 CARTE$(9)=CARTE$(9)+"X______T"+RIG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # ){H1;1;AP`#!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GGs|Gp\@@@@@@@C`~Os|~N@@Ap\OOgqx^Gax@@@xNCp_Cx^Gax^Op@@p|]s~Oq^S|_Cp\GpN{||^Ogosx|NC`@@@@@@@@@@@@ 8)=CARTE$(9)+E$ 2030 CARTE$(A%+16)=CARTE$(17)+E$ 2050 CARTE$(A%+24)=CARTE$(25)+E$ 2070 RETURN 2090 CURSOR 4,3:PRINTES$;"]";ES$;"G 1 2 "; 2110 PRINT" 3 4 5"; 2130 PRINT" ";ES$;"A"; 2150 FOR A%=5 TO 14:CURSOR A%,3 2170 PRINTSTRING$(ES$+"] "+ES$+" 1990 1650 E$=LEFT$(A$,7)+C$+" V V "+RIGHT$(A$,11)+LEFT$(B$,6)+" V V " 1670 A%=5:GOSUB 1990 1690 E$=LEFT$(A$,7)+C$+" 10 10 "+RIGHT$(A$,11)+LEFT$(B$,6)+" 10 10 " 1710 A%=4:GOSUB 1990 1730 E$=LEFT$(A$,7)+C$+" 9 9 "+RIGHT$(A$,11)+LEFT$(B$,6)+" 9 9 "  HT$(A$,9) 1250 CARTE$(9)=CARTE$(9)+"+__'+__'"+RIGHT$(A$,7) 1270 CARTE$(9)=CARTE$(9)+"X__T"+CHR$(15) 1290 REM 1310 REM COEUR 1330 CARTE$(17)=CHR$(14)+CHR$(10)+"X__TX__T"+RIGHT$(A$,9) 1350 CARTE$(17)=CARTE$(17)+"+______'"+RIGHT$(A$,7) 1370 CARTE$(17@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ \ ",5) 2190 NEXT A% 2210 RETURN 1750 A%=3:GOSUB 1990 1770 E$=LEFT$(A$,7)+C$+" 8 8 "+RIGHT$(A$,11)+LEFT$(B$,6)+" 8 8 " 1790 A%=2:GOSUB 1990 1810 E$=LEFT$(A$,7)+C$+" 7 7 "+RIGHT$(A$,11)+LEFT$(B$,6)+" 7 7 " 1830 A%=1:GOSUB 1990 1850 RETURN 1870 CURSOR 7,7:PRINTES$+"]"+CARTE$(1)+ES$+ )=CARTE$(17)+"+__'"+RIGHT$(A$,4) 1390 CARTE$(17)=CARTE$(17)+'"!'+CHR$(15) 1410 REM 1430 REM CARREAUX 1450 CARTE$(25)=CHR$(14)+"______"+RIGHT$(A$,7) 1470 CARTE$(25)=CARTE$(25)+CARTE$(25)+CARTE$(25)+CARTE$(25)+" "+CHR$(15) 1490 REM 1510 REM 1530 E$=LEF        @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O~@`HC@@@@@@C`HB@p@@@@@@@@@@xB@`O|@@@@@@O~@`HC@@@@@@@@xB@`O|@@@@@@@C`HB@p@@@@@@@O~@`HC@@@@@@@@xB@`O|@@@@@@@@@Gq@PDA@PGq@PDA@_~@`HB@`H~@`HB@cx@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 6,A*15:PRINTP% 200 GOTO 140 NT" GAGNE" 507CURSOR 23,40:PRINT" " 508 NEXT W 509 RETURN @@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Cww|_Gq|_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # ){H1;1;AP`#!@@@@@@@@@@@@@@@@||OOwx@@C~O{osx~Ocx`LC`\G`|^N@@@@@@NC`xNC`xNC`@@@@@@PLGCax|G`\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@10 DIM NOM$(10) 15 DIM PS$(3000) 20 DIM PTS$(3000) 30 EF$=CHR$(12) 40 PRINTEF$ 50 INPUT"NOMBRE DE JOUEUR ";NJ% 60 FOR A=1 TO NJ% 70 INPUT "DONNEZ MOI LES NOMS DES JOUEURS";NOM$(A) 80 NEXT A 90 PRINTEF$ 100PRINTCHR$(27);"]":CURSOR 1,36:PRINT"SCORE":PRIN1 PRINTCHR$(20) 2 P%=40 5 PRINTCHR$(12) 10 Z%=RND(0)*80+1 20 CURSOR 1,Z%:PRINT"*" 30FOR B%=2 TO 20 35 A%=ASC(INCH$(-1)) 40 CURSOR B%,Z%:PRINT"0" 42 A%=ASC(INCH$(-1)) 45 CURSOR B%-1,Z%:PRINT" " 55CURSOR 20,P%:PRINT" (__) " 320 A%=ASC(INCH$(-1)) 330 # ){H1;1;AP`#!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pGXFA`XFA`XO|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TCHR$(27);"\" 110 PRINTSTRING$("*",80) 120 FOR A=1 TO NJ%:CURSOR 5,A*15:PRINT NOM$(A); 130 NEXT A 140 CURSOR 15,10:INPUT " QUI A GAGNE";A$ 150 INPUT"DE COMBIEN ";P% 160 FOR A=1 TO NJ% 170 IF A$=NOM$(A) THEN GOTO 190 180 NEXT A 190 P%=P%+P% 195 CURSOR IF A%=12 THEN DI%=0 340 IF A%=8 THEN DI%=-2 350 IF A%=29 THEN DI%=2 370 IF P%<=5 THEN P%=6 380 IF P%>=75 THEN P%=74 385 P%=P%+DI% 400NEXT B% 402 CURSOR 0,1:PRINTZ%,P% 405 IFP%-5P%-5 THEN Q%=10:GOSUB 506 410 GOTO 5 506 FORW=1 TO Q%:CURSOR 23,40:PRI        @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 210 GOTO 60  10 A%=2:D%=1 20 PRINTCHR$(12) 30 PRINTCHR$(27);CHR$(HEX("2D"));CHR$(HEX("7B")) 40 PRINTCHR$(12);CHR$(20);CHR$(14); 50 CURSOR 0,A%:PRINTCHR$(27);"p"; 60CURSORT%,A%: PRINTSTRING$(" az ",10) 70CURSORT%+1,A%: PRINTSTRING$(" er ",10) 80 FOR I=1 TO 150:NEXT  I 90CURSORT%+1,A%: PRINTSTRING$(" t& ",10) 100CURSORT%+3,A%: PRINTSTRING$(" az ",10) 110CURSORT%+4,A%: PRINTSTRING$(" er ",10) 120FOR I=1 TO 150:NEXT I 130CURSORT%+4,A%: PRINTSTRING$(" t& ",10) 132CURSORT%+6,A%: PRINTSTRING$(" az ",10) 134CURSORT%+7,A%@@@@`HC|O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pGpF@pFA`pXO|@@@@@@@@@@@@@@@@@xCA`XFA`XFAo|@Oc``LC`|OCpxLB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Oq|G@p\OGq|_Cp\AoFY~Qgqx_|B@ox@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@10 A%=2:D%=1:C%=40:E%=1 20 PRINTCHR$(12) 30 PRINTCHR$(27);CHR$(HEX("2D"));CHR$(HEX("7B")) 40 PRINTCHR$(12);CHR$(20);CHR$(14); 50 CURSOR 0,A%:PRINTCHR$(27);"p"; 60CURSORT%,A%: PRINTSTRING$(" az ",10) 70CURSORT%+1,A%: PRINTSTRING$(" er ",10) 80 FOR I=1 T I 90CURSORT%+1,A%: PRINTSTRING$(" t& ",10) 100CURSORT%+3,A%: PRINTSTRING$(" az ",10) 110CURSORT%+4,A%: PRINTSTRING$(" er ",10) 120FOR I=1 TO 150:NEXT I 130CURSORT%+4,A%: PRINTSTRING$(" t& ",10) 140CURSORT%+6,A%: PRINTSTRING$(" az ",10) 150CURSORT%+7,A% : PRINTSTRING$(" er ",10) 135FOR I=1 TO 150:NEXT I 137CURSORT%+7,A%: PRINTSTRING$(" t& ",10) 140 A%=A%+D% 145 IF A%>38 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 160 IF A%<2 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O 150:NEXT I 90CURSORT%+1,A%: PRINTSTRING$(" t& ",10) 100CURSORT%+3,A%: PRINTSTRING$(" az ",10) 110CURSORT%+4,A%: PRINTSTRING$(" er ",10) 120FOR I=1 TO 150:NEXT I 130CURSORT%+4,A%: PRINTSTRING$(" t& ",10) 140CURSORT%+6,A%: PRINTSTRING$(" az ",10) 150CU: PRINTSTRING$(" er ",10) 160FOR I=1 TO 150:NEXT I 170CURSORT%+7,A%: PRINTSTRING$(" t& ",10) 175 CURSOR 22,40:PRINT"io" 180 A%=A%+D% 190 IF A%>38 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 200 IF A%<2 THEN D%= RSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 180 GOTO 60 10 A%=2:D%=1 20 PRINTCHR$(12) 30 PRINTCHR$(27);CHR$(HEX("2D"));CHR$(HEX("7B")) 40 PRINTCHR$(12);CHR$(20);CHR$(14); 50 CURSOR 0,A%:PRINTCHR$(27);"p"; 60CURSORT%,A%: PRINTSTRING$(" az ",10) 70CURSORT%+1,A%: PRINTSTRING$(" er ",10) 80 FOR I=1 TO 150:NEXT @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_x~YgybOa}@PG|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@xC@pXLFA`LAo|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PDO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@        RSORT%+7,A%: PRINTSTRING$(" er ",10) 160FOR I=1 TO 150:NEXT I 170CURSORT%+7,A%: PRINTSTRING$(" t& ",10) 172 S%=ASC(INCH$(-1)):IF S%=0 THEN 176 173 IF S%=12 THEN F%=0 174 IF S%=8 THEN F%=-2 175 IF S%=29 THEN F%=2 176 IF C%>5 AND C%<75 THEN C%=C%+F% 177 2 TO T%+9 STEP -1:CURSOR W%,C%:PRINT"''"FORS=1 TO 50:NEXT I:CURSOR W%,B%:PRINT" " 420 NEXT W% 430 RETURN  RT%+6,A%: PRINTSTRING$(" az ",15) 150CURSORT%+7,A%: PRINTSTRING$(" er ",15) 160FOR I=1 TO 150:NEXT I 170CURSORT%+7,A%: PRINTSTRING$(" t& ",15) 175 CALL BOMBE 180S%=ASC(INCH$(-1)):IF S%=0 THEN 220 190 IF S%=119THEN CALL TIR 200 IF S%=8 THEN F%=-2 215 IF STRING$(" ",80):NEXT I%:T%=T%+1 290 GOTO 60 O 150:NEXT I 90CURSORT%+1,A%: PRINTSTRING$(" t& ",15) 100CURSORT%+3,A%: PRINTSTRING$(" az ",10) 110CURSORT%+4,A%: PRINTSTRING$(" er ",10) 120FOR I=1 TO 150:NEXT I 130CURSORT%+4,A%: PRINTSTRING$(" t& ",10) 140CURSORT%+6,A%: PRINTSTRING$(" az ",10) 150CUIF C%<=5 THEN C%=6 178 IF C%>=75 THENC%=74 180 CURSOR 22,C%:PRINT" io " 190 A%=A%+D% 200 IF A%>38 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 210 IF A%<2 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINT15 A%=2:D%=1:C%=40:E%=1 20 PRINTCHR$(12) 30 PRINTCHR$(27);CHR$(HEX("2D"));CHR$(HEX("7B")) 40 PRINTCHR$(12);CHR$(20);CHR$(14); 50 CURSOR 2,A%:PRINTCHR$(27);"p"; 60CURSORT%,A%: PRINTSTRING$(" az ",15) 65 GOSUB 1000 66B%=RND(0)*(A%)+RND(0)*60 70CURSORT%+  S%=29 THEN F%=2 220 IF C%>5 AND C%<75 THEN C%=C%+F% 230 IF C%<=5 THEN C%=6 240 IF C%>=75 THENC%=74 250 CURSOR 22,C%:PRINT" io " 260 A%=A%+D% 270 IF A%>20 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 280 IF A% 15 A%=2:D%=1:C%=40:E%=1 20 PRINTCHR$(12) 30 PRINTCHR$(27);CHR$(HEX("2D"));CHR$(HEX("7B")) 40 PRINTCHR$(12);CHR$(20);CHR$(14); 50 CURSOR 0,A%:PRINTCHR$(27);"p"; 60CURSORT%,A%: PRINTSTRING$(" az ",15) 66B%=RND(0)*(A%)+RND(0)*60 70CURSORT%+1,A%: PRINTSTRIRSORT%+7,A%: PRINTSTRING$(" er ",10) 160FOR I=1 TO 150:NEXT I 170CURSORT%+7,A%: PRINTSTRING$(" t& ",10) 180 S%=ASC(INCH$(-1)):IF S%=0 THEN 220 190 IF S%=12 THEN F%=0 200 IF S%=8 THEN F%=-2 210 IF S%=29 THEN F%=2 220 IF C%>5 AND C%<75 THEN C%=C%+F% 230 STRING$(" ",80):NEXT I%:T%=T%+1 220 GOTO 60 370 IF P%<=5 THEN P%=6 1,A%: PRINTSTRING$(" er ",15) 85 GOSUB 1000 90CURSORT%+1,A%: PRINTSTRING$(" t& ",15) 100CURSORT%+3,A%: PRINTSTRING$(" az ",15) 115CURSORT%+4,A%: PRINTSTRING$(" er ",15) 125 GOSUB 1000 130CURSORT%+4,A%: PRINTSTRING$(" t& ",15) 140CURSORT%+6,A%: PRINTSTR<2 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 290 GOTO 60 300 SUB BOMBE 310 FOR W%=T%+9 TO 22:CURSOR W%,B%:PRINT"yu":FOR S=1 TO 50 :NEXT S:CURSOR W%,B%:PRINT" " 320 NEXT W% 330 RETURN 400 SUB TIR 410 FOR W%=2 NG$(" er ",15) 80 FOR I=1 TO 150:NEXT I 85 CALL TIR 90CURSORT%+1,A%: PRINTSTRING$(" t& ",15) 100CURSORT%+3,A%: PRINTSTRING$(" az ",15) 115CURSORT%+4,A%: PRINTSTRING$(" er ",15) 120FOR I=1 TO 150:NEXT I 130CURSORT%+4,A%: PRINTSTRING$(" t& ",15) 140CURSOIF C%<=5 THEN C%=6 240 IF C%>=75 THENC%=74 250 CURSOR 22,C%:PRINT" io " 260 A%=A%+D% 270 IF A%>20 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 280 IF A%<2 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINT10 A%=2:D%=1:C%=40:E%=1 20 PRINTCHR$(12) 30 PRINTCHR$(27);CHR$(HEX("2D"));CHR$(HEX("7B")) 40 PRINTCHR$(12);CHR$(20);CHR$(14); 50 CURSOR 0,A%:PRINTCHR$(27);"p"; 60CURSORT%,A%: PRINTSTRING$(" az ",15) 70CURSORT%+1,A%: PRINTSTRING$(" er ",15) 80 FOR I=1 T        ING$(" az ",15) 150CURSORT%+7,A%: PRINTSTRING$(" er ",15) 170CURSORT%+7,A%: PRINTSTRING$(" t& ",15) 175 CALL BOMBE 180S%=ASC(INCH$(-1)):IF S%=0 THEN 220 190 IF S%=9THEN S%=0 200 IF S%=8 THEN F%=-1 215 IF S%=29 THEN F%=1 220 IF C%>5 AND C%<75 THEN C%=C% 7D EQU *+1 LSR Z2066 CLR $0E,S ZC143 EQU *+1 COM -$0C,S IF S%=9THEN F%=0 1020 IF S%=8 THEN F%=-2 1030 IF S%=29 THEN F%=2 1040 IF C%>5 AND C%<75 THEN C%=C%+F% 1050 IF C%<=5 THEN C%=6 1060 IF C%>=75 THENC%=74 1070 RETURN +F% 230 IF C%<=5 THEN C%=6 240 IF C%>=75 THENC%=74 250 CURSOR 22,C%:PRINT" io " 260 A%=A%+D% 270 IF A%>20 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%,A%:PRINTSTRING$(" ",80):NEXT I%:T%=T%+1 280 IF A%<2 THEN D%=-D%:FOR I%=0 TO 6 STEP 3:CURSOR T%+I%, 0049 FCB $4E N ??? COMA ASLA BCC ZECC2 LEAX $09,Y BRA ZECA2 ZEC9E TSTA ROLA LSRA ZECA2 EQU *+1 BCC ZECCB ZECA4 EQU *+1 LSR ZEC65 ADCB >ZEC6A ORB >ZEC70 ADDB >ZEC76 LDD >ZEC7D STD >ZEC84 CMPB >ZEC8C SUBB >ZECAA ADDD >ZEC94 ANDB >ZEC9E SBCB >ZECA4 BITB >Z ROL $0F,S JMP -$0D,S BRA ZC1BD FCB $75 u ??? FCB $72 r ??? BRA ZC1BA ZC14E FCB $65 e ??? ZC150 EQU *+1 COM >Z2074 CLR -$0B,S COM $08,S FCB $65 e ??? COM >Z200A TST ZECB2 STB >ZECBD ZEC65 FCB $52 R ??? FCB $55 U ??? FCB $4E N ??? TST ZEBF6 ZD3F9 EQU $D3F9 ZD3FB EQU $D3FB ORG $EBF6 ZEBF6 BSR ZEC2E PSHS X LDX #ZEC3B ZEBFD CMPA ,X BEQ F ORG $C100 ZC100 JMP >ZCD03 FCB $65 e ??? FCB $72 r ??? COM >Z696F JMP $00,Y LEAY $0E,Y LEAU $00,Y LSR -$0B,S BRA ZC143 PULU Y,DP,B,A LEAX -$0D,Y BGT ZC150 PSHS Y TSTA FCB $61 a ??? JMP -$0B,S ASR -$0B,S FCB $65 e ??? FCB $72 r ???RINT"yu":FOR S=1 TO 50 :NEXT S:CURSOR W%,B%:PRINT" " 320 NEXT W% 330 RETURN 400 SUB TIR 410 FOR W%=22 TO T%+9 STEP -1:CURSOR W%,C%:PRINT"''"FORS=1 TO 50:NEXT I:CURSOR W%,B%:PRINT" " 420 NEXT W% 430 RETURN 1000S%=ASC(INCH$(-1)):IF S%=0 THEN 1040 1010          ECE0 EQU $ECE0 ZECEC EQU $ECEC END ZC100  _94@ީ+7 '`#z" '覀*& _15@]9 ^_' Z'~ ~ с,'> ':"&~6''0o &~ .& C4 5&~ Ž'm& '~&! &^ ֽ'  L~ ~~ d~ P +t& u& *~ '٧|}9 Z~4)r'M9\0+'9.' '*& '*\9\96~  3OT+9\'0\H'.%"ݫ։4@5@&9&94 4A3_50}"M'Ei"T4c#o z&&m*?&+ 5' #ܫ큖y&ܻݔ4@7&5@#Į' 'Ӑ |&O9ӻݻ y&~4@7&5@~~&0E#9E'4' '%55y}~jR~ 2)+'$~ OT&?TW%|~'ܻ ' 09 H͞&~ȟݾ1 '1!1!+~$'' &'E't* '~ف("u1!HnHAnE* U&2bE~>]'9SE54v~ [4& &馠}'"{% l&L~41&~25~ O^~ ED#pE %8A99999 4sH~~4~ ~n|59597꟩r & =0 'Oz &Y''(& 2,&C '%' " 0'1'M''&~ ~ 4& 5~ y ' y'_ _& y 07$& %& 07^(&օ'@օ*ܫ턖 &~ E 5M+!'  ă&= 怆 Z& ԅ &$1"+ '$ '%~ ߅& &&000'禀 'Z& 4A |3_50 ]˾H' <ˎ@P~4 ^X PRET  4.O^} ė ' Z'8 '' o? ⅞9"#~$ . ''ʧ &9#0 3ٽӁ'9' 1$~>~O[ [UV~ϺEEOU~϶EEGH~ &'<B&9~ [] O?K~O?K~&9~ ~4W!$f "?%~>$x@B@nABB%#lA#+3'@8Nkm}YX]VY/UTxXa hrXaĆC5EoZ&`qsuHbOwٞ'@&oo00* |&oo $J_J݆%9Es9[EEn@IO9~NH !\.#$*,^-~~~D~D '4@j54 4O?K5Oʗm.+ ͎H|\ҿ . HW  ~ 0^ ֦&,6O& 62P  T Z&~i8 T+ ' \+&~ ~ 4^ &05 30^ '&^0 J 9~ '0L '0 9y&M94@ޭyT7'2 T++%""\+ݫ'^ '}& &9763%M*t_s׉\]uM*>ͽ〶t%'. ގs_w\<' u<}['s?~4'}w&|wq'͎p ~ 4~ ERREUR  A LA LIGNE ^& ^0%9#A% Z# a%z#_ + Hm9Oϗ|}~&.jhfd' &{$1&~~$?~ edfj)hu~ HSTOPrso~ )}'M*!ܫ/E&۟4@ 5@'7꟤ 'Q~O34ٽ59P~ @"m' j+J9''" H' "9&}?9ܫH Y~ |&)_ėy}&}'}}&9&y & oo 柒ܒ#}y&~1ܒO}'Ӓݔݐ*~:ӻ|&#y&oo~|$ݻ y'4@޻6&5@y&}}' o~I Oʗ͎ٗ OĽ〽\0.7꟤ & 'Ӂ?&~Ł+&~2~ &\0 Q M &4}5Hn  ~4?9ٍӁ'92b~>)}'~ '.'~            ' 00m* 000&7 T&m* m*0 5@O95@M9' yP 0 0A05瀜 &ooy' ޭ5Z&ޒ91"1!+~'"M91!1!9~4'\*~ TSċ43?55]&УRG[9GOTOGOSUBRESUMEDIGITSREMLETPRINT r&1!680?3~0?4 ý%f &~*6v48)r&1!H80?646~%" %$   ?&~o~ 2PT'p~ U"?8UT~1C5~})* &&&~~~gE vx)i&1!~%f֌' wEB wx 0+.~%'00 ''(&0+ ~'%0 턞 3C5@f|)*OT@S& @P~1!幽)*(`&(&0ĮT T* 16Ά~(v~(vv'~ '%U' "' ~? ?! ?" ?# H?$~n~ %f '! &UZs#~~ K ؽ)*OT+0ýBҞӀݒ%ݢB~U~ )%f &~ *M&]&~ 7꟤ݚ\ݜ ܫ' 4 Q5 ~}'Ov&螾46Y444Y1}7ĠZ&{?}OY"~4  ONBREAKOFF%C)+~ %t&k'*)& &!ğ~&ooĦr'݁u'A~%q''vOvȎ ()Ƚ&ooĦr'u'~ 'y~v''OvȖv~_4~ ]~ 5&]*)*螂!&%Gry't&̽ '*b& INPUTEXECUTESWAPFORPOKELPRINTNEXTREADRETURNIFDIMONSETENDSTOPDATARESTORECALLOPENCLOSECHAINKILLRENAMEGETPUTFIELDLSETRSETEXECDPOKESUBLABELRECORDOLDNEWASUSINGERRORLINETHENELSETOSTEPPOINTABSATNCOSEXPINTLO '0%$16ΞȖ'6ZXVT96W2P ȅ&'ҍ '~ '~EB*&& ' 'vܒ5'+~9OT')0' &D1!~̽''~@~ϗ)+1'''${" &&1!1! " ؖ' :~ ~ğ('  GĽ*'2v00?902 ~ )2& 1!<0?,~2)+2&1!460?+ 0?* ڽOT4ýOT5029)r'0?1~1!H40?2 սÍ460?) ڽ%&90Í1Í 20?& ~ 0?-~012309?'~ 4@40|&5053@f54 @P5 \&~~ݽ&7꟤ & "&X @~P~ @& ''0 &9ā&9~t}m'@~ 9AW~ @;IM+4B5\+ݜ5M'&Ӻmm&M+45\+ݚ 'G&+'T1 c~ :2P"Ȟ턖!45'0K'r&`~ku&Y'Gr''444 y0 q44y\+)4~%&9t&'m& 'u&~'~ T~ 4_~ 5&]+y)*b&ݮ!44 GRNDSGNSINSQRTANPOSPEEKUSRFREDPEEKPDLPTRSPCTABXPENYPENPIERRERLASCLENVALHEXINSTRCVT$%CVT$FDATE$CHR$LEFT$RIGHT$MID$STR$INCH$CVT%$CVTF$RTRIM$LTRM$LTRIM$RTRM$STRING$NOTANDOR**<=>=<><>=^k/l*m+n-o ~,r; '?"#(l}'9Olחؽ̞׿ؽ)-&4'%f&~ *voþ0'ܽ)+{$R1'Nr'js&~0 &l&lG&~rH&~|%f'-9 &Y'3? 3GGZ &˽〶' ~ 45%9?(~%?%~1!幽寎0?/TU~(v)+O %"0?0<>~ý%f &~*9v7)r' 46 1!%4ý%5ý%60?597~4)r&@'%q'`=m/,,102PT4 .#f b&~D|b4Ȁ:5}4ߧj&5_M+45\ݫ ց&~G445ӂyM+ y 54ݾݎܵ턞&5 *. &'ӂ &&' '\ 000: ΁''}'~'"&&0 ~XH&9 !oo4 y+ʍr&1! y4 )*%~~)+#9&1!%T" XG0_ '~݅`&ή!4 5+r&1! '%&''425'Ooo99`~ m&&'샽 +ᮄ'~00㞀0& ̆a~ %U4ý%U5 s(t)u#v?:{\| }GRTEXTCOLORHGRPLAYSETCOLORSETBLINKPLOTPORTCLEARTRONTROFFCURSORDELETEOVERLAYLOADBLOADLOCALCLRGMOVEDASHSYMBOLARCFILLDRAWMASKWINDOWPENBRONBROFFSAVEEXITSYSTEMFLEXcLISTNEWRUNCONTEDITPLISTBREAK                    # S&  "1!~O񗚗' 4&ݚ'ݜ0 05'Z(~U4# '%C&'1U9~%ņ ĽZ*9}w'<)+%{$1'&(t!& '0 wt~ & '!w ~ B~ '&+'*&"!q%q' ~ -(v+T9** ܽ*N'G*** +U TZ&U*ėU ܟ16Ά O_m'0 T+9S~ *۟GZN' ' & 6̆~*4+}5'd%i#941!044+}'$5ݎ59~)Z+'n& 1!+' O2e9~%Ž) *" 0?T4'%q寽J5ݒ~'cML~ (4&6TܞVޞXZ`5&?0 :G6Ά Q'4(&. =J&. 5J& 6/ &J&06 J&?\ J&?k J&? @ww',Ɩw& ZXV(T턖wħܒ큟9d~ ČG '"''' ','0 0 ' ' 򟤍O֢Z9e20ÞT9e20ȖUT~۽%ȖU ƎH:O֗۷ Gr9ۍ&~('c& 1! 'D*m %9'b&1!'*O*m ''妤d%݁i"'~+V1!45')I I~ %' $7fd'~2)~>m~ h)mh* - . ~ X~ ҽ)+C)*`&嗨!&&幎ܽO)1!u'"wār&TܽO寞l+4T+4 '~CɞT0T0܎ܽ?& &U TU TU TT4v5큟o&55턞ܒo !{%q}w'~ *~ ).'ā9'M%)">4U&Z'*&'@'*Z' %r' 5Z'mg y1&1!~4~4~ 1!%"3 '~4)+{%UEH&1'\EG~f~  )׋y )'@'4! '%&螾46y4@'0!& .+"T#`"+~Z9幽+:u'~&' Ӆ'с%;'~&!"1$J*11OHz"'0oo~)~(&ݒ0Ğ& ݟ & ~,0' |\&~,'0m&'~, |l,k'q*N&'| | Z&(Z&] +r&~%0Ė&'&ݒVXZܒT90Ė&Xww#T16ν8Į(͎,O9&ݒVXZܒT4'w16ΞĮw9H~ 4(&.J @,5)[4dXX)j:5# $ & % " ';~()~(JTU~(vF"R&~Ԁ5*~ (o& 1!'(% n&1!'O(% ݍ&';m& 1!'Ć(% l&1! '(% ܍'k&1! '(% 9~%Ŧ+N4$~&a%<& 1!%'&K~)~%Ło&1!v;&ύ'ˆ~(%n' t')~'%81!1! T"~)'~+:v &&~&t&'%q&~&1u& '997~ 1!4 '" ( %)r&1!~"?~1! &1"9& &&1&1!1!*1191!H:׿ٞ׿#;׽)**'&"E $_ '\ O+r~L~ Oڽ)/'׿ٞ׿׽)*!`' !' &!1$]'Z&1! H~ ֍&$4E Gr5&x$&Z  H: "~~ <~ )&L&&! &O5 +'('&~ 56'~&2 4=~ jaT%#'4GcH&5 xݾ~@}5vF~Sy'+044+50 y&5y5 y&!ݒA '3&-'0 ߎ2'4  )s&B Ĝ &æ~ /&Q||0 ]&Ajz~,]&2'|~,!\'-&&#jz Z& Z' j0m& '&+&&&'s" '-/Ģ9G~ 'v_0m&\,!&#v&'16ν3GGZ'~.4F~  ,_H41!&'` 5)Э6Ά~(v~%2==;1:22=9+94#1!I+H*n~ *c*h**+*3**+ *FbCICV=*m:6Ά~(vs~(u(d$9i"4''50*.5~)I< Ǝ> 4JT(JTm&() ()T~(v*NU􆄞oo~ ) 15ČH:'4v0Ħ+ ~%'1!1!59~(&/ їv&v&'O4v5oZ&ܒ1#9N~ 44幽)m&1!55v Wm'm&V&J55vӮT"(Ӓ '~D^v& &X X X ~&φM_~ %qýJAT &$&E +r)#+r's&1!~#~4 &$2  &5 9?  'ھb'#b0+~%'00&0`9~ `'~# `Hb)*&!!& b%~~ ~ 7 '6̞7 ',&0$č'`9~ 7 ' #&1)2&'1!x&F!wZX4VT4)3& 1!!w ~ :6ν)ZX4VT44&~愮4~OT2x)3&1!O ɎT ½%f& &91~6ΆH~ 1!1!+~'"&oxb x!1#&!]b' 2 & Ox&OhTjVlXnZ.0.Jh*$ "                   0N'Z&9Z~'K.?0GZ'<9"60%20Z&즄9"'0%#GZ'j,M0GZ&򦄁 &T焞 GZ'*- &>-': &0 ' &#&0 -'$&& %ⅎGZ~.'0 9T+[T+1['''S&ST&MV&GX&AZ49 =,/6.4/)'TT[:3&TC[98:,~0['S'N* CS(:; (T()%/ ()''8Ž884/8()$,/8()&964TVXZ5i~ | T+['% J([+ ([+8Ž833,2S++:-133.8ֽ :08CE'e&@07M79"2L4R8ŞR O85TUVWXY&[Z($U M*@8[5L[LMƸ[/M*@ [*% O9 # '4 5 $H'6HH6O0 M*~0~/e~ _ % \ 000%:$979 '09_+'-&S09u7$~8O#TUVWX&Y+Z  76=~4OL| [&~33T*T-6=N}+4.N/M+ M* *_ N.@.6=M'8_6=L&/&&!N'_6=L4ď*JTT['[TDVVWXYZ [&T}' 6Fz&.6=46Fz*5}.)+$.GZL' 49rca_]Mt\TuTsT[9[O0fru~/Tooooo'oM*CS)j1XI*m*9T['%$@7/MTu2TN'u*8[~/T* [' T:T9Toooooooo9T+['%P'*h~ ~2ŽT'K%AP 1&1O9['9섓T&!V&X&Z49*9O.ā91fc'tȀtsu[&:T~/Ts~/~:1f'c'['d$ \DV^_`ab d&\u*$ A d c[TDVVWXYZ d&Tu+0q$ [FVVWXYZTtu~/ICGYbaYW`_WU^]UT\Ts$TUVWX >8,ZZ.<08Ŏ4/8;z;ʎ,/4/'l.+XX;0.8O(*CT1;/4. 9$bȁ @]͂7TUk1r|Kܣ< ~;ęe`B4P:,.8ֽ9:<05Z' 49. 998X:Z4T6V9 Z&) Y&% X&! W& V& U&TL* [ 8R& \:(R$RR0 R40TTTT0GY' .' %]'?0}/GZ '|5Ď 0GY& 0 NL&R' 愧R&6=R&)00 '.& 0怟R '-& 06=L'E;NJ+M*@-6=7ƍ&"& ' *-  5'G+M*P N&m' ]&'%CS ;NDVf2ffff$N M&9*M * && ~2HDV M&9TT9T+ [' FT V O OYIOYIOYI4O O5 OYI4 5 2T[6O. [96=_6;~61 68G3OZ 2Y/{Zd'8tudT+.UVWXYZ'/U [& rd Z Y X W VYI*U['uĀ4T r&9[9r+ ['e~  '~0 1f' c'0_[c[r/d*~8O[ S1fc'3M'0O[cˁr[jCGTUVWXYZd0?Ľ/d**~8g~ 4TdVfXhZj5TUVWX ?TT4.8Ŏ4/8<];ʎ,/<}.4.m'l88,06.[O)(&[9f~ ;_A߈ Å+ڨ1!Cz8<;)\8;)\T(T6O.2PTU (*CS()1(TT9['&%"8 [=m01َ=m/ [<.TT8֎=e0 nk(-xŬbIgOL}.'^9:&9M76O.8OTZ&L/<.~1ٶ'M~72OrO7u7%857#L.& L O 6ROLNL*['Y' TTTM*PN= M+PN7T4T6[#/ N .J$46W/5 N 5TT.2+~4WLT* J+wT-6=['NLN~4T*J+FN..4P_M'*J 4+!' 6=J&T* T-6=*& 3YZ9ZbZXa`XV_^VT]\9O[4r[kd[d4` k'%l5`3_4`l=?4 $l'\5 & 5`[d5r[9O0N9kd\%*iapg`_ne^]ld\1%dlengpi Z Y X W V U T j i h g f e d k"' iaig`_ge^]ed\d dTUVWXYZ                   @=e/<.8Ŏ4/~8O *<*))&=u;ʎ,/6.4/ ==C;ʎ,/6.)' ['TT9Iڢ!hIڢ!h‚Mb3#g%:)PQ*#~YC,5$7[>,"/ITBT9!['+T*T8Ł%K:Ƅ[ M~/~ &9)v&''9m& ~~ ~󟎎A%צJ'J'"I 2׆''&7 $0Z&_;lOjAA[I;׽A%9~t(~ )v'~Bt'xD:Ѝ;4T&*ȆU턞U:ЖUx%x" 5& 1!~B-~ ~~ OT J9&'0 0怟9_9&('3? 3G֣'4@GZZ&5@֣O~+ 2-J=:45- ~+7Ƌ009JANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC%f'H~ (&62PT&U9J~ ( %f G 4o 45@ &~~t!@-~3m*o9@fPr&'!q-@ & ~ 20TTU~120TT~12P>U' .G&X:' ? і# ~~O_'&T~1T+20 2PT&$' 4`5`&T~1[~ UH4'5inF D0457௿KC5(~4)r&(Ď@'*ŽKŽ ~~ n)++' *'4~ n1!%f ' ),&1!%U #~G&H'S0m&?@v_?@:_oZ&ooo-%׆3on~) A40<['[8>4.8ֽ8,/TT6.<[`"[0+ 8[<['[84/6.8ֽ8,.<[`"[08Ŏ4/8>;ʽ9.,/9.,/4/.)XXX>0. +' TT=e.*TT9$y> XE~+{ N),&'C& &➂TȞ/)r94TvܒT5&1! B'N'0' L9''~ 0' 9)*C'֌&ݢ9~ \~ '*ܢT+0B' ''~ 9_C& (&N09G&4oZ&* K&օ&6~2P( %f&'~1~6'$# &P~ ݢӒ稇턞9$ݢ$&Ӣ&Ӣ ܒܢ9Ӓ' ӢӒ&宄ݢ섞ܢ9@BĽAe)+{$1')&1!> HVF#CC%&1UO~+oo~+孞T'4*5'40?T+FIv4' 5ooT큟ݖ5' 4ܖ ~++4TN' 0 'T 5 $+4N' &0 T5 L孽'~+~+'0\T1 E~ }&@-%3&چ;0o"~˽)v&; ̽)v&. ̽'%U #(~ )+ r' {$ 1'~ 1!9׍9+~  '~yH'G&0'9' '~I~_*~ ׆L&o?9~ מ׆o?'&׆ &ڦ B~a{m}zۯd~7&mc8+ }]^$}4 8>+1Iڢ!h€[''D:D/~;9~:܎41w15T)T9?I~.T)T9?I~.e~ \u&9H'?6?I~/VWU=X]T=WW\U=WW$ VT\=V&X+TO9u* TCST9Ts* CU Oo9*ƄvCR *ƀvTN'Z& oZ&v&6Ζv~*&J &`4$TZ&5$O~+v& U'9~ Ov55o'lҞܒ& ' T)i&1!%UDĞ'7T4% T T'%G@ L@~ ~ ׆~hAe)+{$1' )&1!@ О׮B0T OT/9~ TB'&~@gTA;&9O0DZ&~tצ+ A%׍<׆ ho9~t ~ TA;' Aā'&To '~t9401D0DZ&5 'B&9&  I)1!u'r&c Ԟoo+ 4~ &4*T/'oo0 )u& 1!9)t'~ )r' +:4%q5JT+9O_'T$0 Tݢݢ}9:94`' "'1?&1$ 50N' '4'9`'O9 F$ & #~ş& " 45'm&m'45 ڽ& l?9, ~  &~& 'm&m'׽ 44׽455%C%q'01G&U'\ "3H0'oo''m'P@)r&1! ~~~'(O(O(oo9*o CSTsuM*CS\9\u g~ \'(O_ \$\ U TYI (&TUDVd~?ƖT- .U99O9Ľ@-%9~ ~3~3)*'%f ' 94~ 4@&&5' & '9~&9 % #~  &]+                    PX:܀턞'&m'Am' ~^,0~ T ֞VWV?T0Ԟ'aD:Оe=:пy '9ԟT@m'|{yy '9m&Ё& :6Ζv~(vDT ~ ' 4y{4v5oo0y|Z&5@{~+ ֽ&ٖ' "Ɵ6.220&4&84.%20Ľ©†^~6 *'8&9*0F*W &' '߁'ہ}'׌00 ߞ04 4(0F''(& 0F(턞4&9+ ~L%'0090 &~y&& '09000:9,턯09,>&,>9 cteur Disque:  #JanFevMarAvrMaiJunJulAouSepOctNovDecO 'K'F01O_큧% Z&$.&1H% Z&$?NįOR9@~&6lN&lMm+')mK�1'&Z&L1H'&Z&9&9 '9OKL  FCB $72 r ??? FCB $61 a ??? BRA ZC14E RTS LEAX $09,Y BGT ZC163 PSHU Y,DP,B,A LEAU -$0E,Y BGT ZC168 RTS BRA ZC138 LSRA FCB $65 e ??? ROR $09,S ZC138 JMP $09,S BRA ZC1A0 FCB $65 e ??? COM >Z2066 CLR $0E,S ZC143 EQU *+1 COM -$0C,S  T//6}d'd0''& & #  "& & # #sd~ " "sd  QԿ~y98ž~ԟT*~@н@ ٽD Ƚ8צm&9BB'~B%'"E)r& 1!%"~I~ %Cӽ)*K&4vxÖ&<)*4&4vx&'&&&'&'*50椧 *&~O\~    @&99•@~?@'&@ &ܦ$ ێ@;01D(6>8&~0섓24* =5'=@@ =&>&~0@=<(0(>00*~ø~%) B'~'0 <'<d$ݽÐ ؍.~'0$ <Ð&\) &- B'\0O  ' .' !%9#0&0&lK&l9'$ -'_'9O mK' '2&koMoN4'~ mK'9mL&m' C*3l *m' &# $B%ClLO99@?~ " Version 3.1 du 12 Janvier 198423,% $~O_$)&` &U0wCO40_92b0xD0rO9$09$$0090~_099O_~$D &3$N.E>U  NAM DEFT.TXT Z0000 EQU $0000 Z0004 EQU $0004 Z0039 EQU $0039 Z0043 EQU $0043 Z0044 EQU $0044 Z0049 EQU $0049 Z004C EQU $004C Z0052 EQU $0052 Z0053 EQU $0053 Z0064 EQU $0064 Z02C5 EQU $02C5 Z200A EQU $200A Z2066 EQU $2066 Z2074 EQU $2074 Z696F EQU $696 R&JT+&&!U&  "̽׿ʗU~~̽B&O ~ FbĽ幽%qJT44ý+:40ý+:寞(55/0T'd'g'L`TN';04&T,.0`'%N'4',.0( _TUoo)~4@@(0( =490Z&9&'}&9օ &8&<0,&,(OԪ~84,턞,(55Ð0~8'~Â'2ÐMÐ0~8' 0Ð~wå~Â~• @+&9<@& 00* ٦čզAў@oo0 C'<@'0+@@  ~ .BĞ +&9oo00m* ."90#9o9:4'"9}9@?~~&&&0:@-%Ԇ3U'.O'0I'2'5'C_B'SC'PD 3~4& m&c49 '9'+&2b H%92b. 922Yf(@WAD@ZCD03 FCB $65 e ??? FCB $72 r ??? COM >Z696F JMP $00,Y LEAY $0E,Y LEAU $00,Y LSR -$0B,S BRA ZC143 PULU Y,DP,B,A LEAX -$0D,Y BGT ZC150 PSHS Y TSTA FCB $61 a ??? JMP -$0B,S ASR -$0B,S FCB $65 e ??? FCB $72 r ??? S(v_T\ HH SBASIC GRAPHIQUE V2.36 DU 01.02.84 ****** COPYRIGHT SIROS 1982 ****** } ERREUR DE VERSION DU FLEX Hؽ~ʎ~&0Z&? ?K[ۿ2 'H׎@-%~4IIH5O_HZ&~19                "Version 2.0 du 21 Octobre 1982@-%q|m &@ &a&G'Y$BP _O&_O'/ @ '?~}&|?~V o_9D.'0Z&.'0Z&9ƽ'5";" FICHE DE PAYE " 260 CURSOR 2,32:PRINT" ======*====== " 270 CURSOR 4,1:PRINT" ELEMENTS DE PAIE BASE TAUX A PAYER RETENUES ";ES$;"\" 280 FOR I%=5 TO 22 290 CURSOR I%,1:PRINT"| L|"; 300 NEXTI% 310 T$=STRING$("_",78) 320 CURSOR 22,1:PRINTES$;"]" 10 PRINTCHR$(20) 20 CUR$=" " 30 HEURE=28.00 40 MALD=5.60 50 CHOMAGE=1.92 60 VIEILLESSE=5.7 70 REM *******PROGRAMME DE SAISIE DE FICHES DE PAYE ******** 80 REM ******* 90 REM ******* 100 ES$=CHR$(27) 110 EFF$=CHR$(12) 120 PRINTEFF$ 125 CURSOR 3,2:PRINT tourne de 20 degres sur la droite l'orientation de la tortue] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [DR 20] EC " TAPE [et nous avons fait reboucler 20 fois le programme.] EC " REPETE 7 [EC CAR ( 32 )] REPETE 10 [TAPE CAR ( 32 )] TAPE [Pour continuetion de la tortue] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [DR 20] EC " TAPE [et nous avons fait reboucler 20 fois le programme.] EC " REPETE 7 [EC CAR ( 32 )] REPETE 10 [TAPE CAR ( 32 )] TAPE [Pour continuer TAPER un BLANC] DONNE "BL LISCAR FIN PO & &&9z'0000@& ن Effacement de "" (O/N) ? Confirmez-vous ? Je m'en doutais!Extension necessaire!Impossible, fichier en attente d'impression.;T$;ES$;"\"; 330 CURSOR 6,3:PRINT"PRIX DE L'HEURE":CURSOR 6,32:PRINTUSING "##.##",HEURE 340 CURSOR 8,3:PRINT"PRIME N0 1" 350 CURSOR10,3:PRINT"PRIME N0 2" 360 CURSOR12,3:PRINT"NOMBRE D'HEURES" 370 CURSOR14,3:PRINT"ACCOMPTE" 380 CURSOR16,3:PRINT"ASSUR. " MDE FRANCINI VERONIQUE" 126 CURSOR 4,3:PRINT" SS. 2601199352868" 130 CURSOR5,30:PRINTES$;"]";" FICHES DE PAYE ";ES$;"\" 140 CURSOR10,23:PRINTES$;"]";ES$;"C";" SAISIE DES FICHES EMPLOYES ....." 150 CURSOR12,23:PRINTES$;"]";ES$;"C";" SAISIE DES FICHES  r TAPER un BLANC] FIN POUR COMENT3 VT REPETE 30 [TAPE CAR ( 32 )] INVERSE TAPE [Programme DEMOSMT.LOG] NORMAL REPETE 2 [EC CAR ( 32 )] REPETE 20 [TAPE CAR ( 32 )] TAPE [* * * Explications de la page Graphique * * *] REPETE 5 [EC CAR ( 32 )] TAUR COMENT2 VT REPETE 30 [TAPE CAR ( 32 )] INVERSE TAPE [Programme DEMOSMT.LOG] NORMAL REPETE 2 [EC CAR ( 32 )] REPETE 20 [TAPE CAR ( 32 )] TAPE [* * * Explications de la page Graphique * * *] REPETE 5 [EC CAR ( 32 )] TAPE [Apres avoir dessine un] INVERSE TAPE [Programme DEMOSMT.LOG] NORMAL REPETE 2 [EC CAR ( 32 )] REPETE 20 [TAPE CAR ( 32 )] TAPE [* * * Explications de la page Graphique * * *] REPETE 5 [EC CAR ( 32 )] TAPE [Apres avoir dessine un CARRE par la suite d'ordres :] EC " REPE MALADIE":CURSOR 16,42:PRINTUSING"##.##",MALD 390 CURSOR18,3:PRINT"ASSUR. CHOMAGE":CURSOR 18,42:PRINTUSING"##.##",CHOMAGE 400 CURSOR20,3:PRINT"ASSUR. VIEILLESSE":CURSOR 20,42:PRINTUSING"##.##",VIEILLESSE 410 FORI%=5 TO 21:CURSOR I%,26:PRINT"|"; 420 CURSALAIRES .....";ES$;"\";ES$;"G" 160 CURSOR 10,63:PRINT"1" 170 CURSOR 12,63:PRINT"2" 180 A$=INCH$(0) 190 IF A$="1" THEN CALL EMPLOYER 200 IF A$="2" THEN CALL PAYE 210 SUB EMPLOYER 220 PRINTCHR$ (12) 230 SUB PAYE 240 PRINTEFF$ 250 CURSOR 1,32:PRINTES$;"] PE [Apres avoir dessine un TRIANGLE par la suite d'ordres :] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [REPETE 3 [AV 50 DR 180 - 60]] EC " TAPE [nous avons INCREMENTE la couleur par l'ordre :] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [DONNE "CL :CL + 1 FCC CERCLE par la suite d'ordres :] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [REPETE 360 [AV 1 DR 1]] EC " TAPE [nous avons INCREMENTE la couleur par l'ordre :] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [DONNE "CL :CL + 1 FCC :CL] EC " TAPE [puis nous avons TE 15 [TAPE CAR ( 32 )] TAPE [REPETE 4 [AV 50 DR 90]] EC " TAPE [nous avons INCREMENTE la couleur par l'ordre :] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [DONNE "CL :CL + 1 FCC :CL] EC " TAPE [puis nous avons tourne de 20 degres sur la droite l'orienta        SOR I%,38:PRINT"|"; 430 CURSOR I%,48:PRINT"|"; 440 CURSOR I%,62:PRINT"|"; 450 NEXT I% 460 CURSOR 12,28:PRINTES$;"]";CUR$:CURSOR 12,28:INPUT HEU:CALL CALCUL 470 PRINTCHR$(20) 480 CURSOR 8,28:PRINTES$;"]";CUR$:CURSOR 8,28:INPUT PRIME1:MONT=MONT+PRIME1:GONGLE * 2 DONNE "DRP 0] DONNE "ANGLE :ANGLE + 1 BC HI :CL] FCC :CL DR 60 AV :X GA 120 AV :X GA 60 AV :X GA 120 AV :X SI SUP? :ANGLE 30 [DONNE "DRP 1 HI :CL] SI ET SUP? :X 60 EGAL? :DRP 0 [DONNE "X :X - 1 DONNE "DRP 0] [DONNE "X :X + 1] HI :CL FIN TE 10 [TAPE CAR ( 32 )] TAPE [Pour continuer TAPER un B  page Graphique * * *] REPETE 5 [EC CAR ( 32 )] TAPE [Apres avoir dessine un CERCLE PLEIN par la suite d'ordres :] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [REPETE 360 [AV 50 RE 50 DR 1]] EC " TAPE [nous avons INCREMENTE la couleur par l'ordre :] EC " :CL] EC " TAPE [puis nous avons tourne de 20 degres sur la droite l'orientation de la tortue] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [DR 20] EC " TAPE [et nous avons fait reboucler 20 fois le programme.] EC " REPETE 7 [EC CAR ( 32 )] REPETE 10 [TASUB 540 490 PRINTCHR$(20) 500 CURSOR10,28:PRINTES$;"]";CUR$:CURSOR10,28:INPUT PRIME2:MONT=MONT+PRIME2:PRINTES$;"\":GOSUB 540 505 CURSOR 24,25:PRINTES$;"H";"SALAIRE NET IMPOSABLE =";MONT;ES$;"I";INCH$(0) 510 END 520 SUB CALCUL 530PRINTES$;"\": CURSOR 12POUR TETE HEXA PATTES YEUX FIN POUR CORPS HEXA PATTES FIN POUR MILLEPATTES CHENILLE REPETE 5 [CORPS] FIN POUR CHENILLE FOURMI REPETE 2 [CORPS] FIN POUR FOURMI MOUTON CORPS FIN POUR MOUTON TETE CORPS FIN POUR SCENE CT LC FPOS 80 8POUR DEBUT VE CT DONNE "COTE "-10 DONNE "ANG 10 DONNE "CL 1 SPI :COTE :ANG :CL FIN POUR SPI :COTE :ANG :CL FCC :CL CT AV :COTE DR :ANG GA :ANG / 2 SPI :COTE :ANG + 5 :CL + 1 FIN  REPETE 15 [TAPE CAR ( 32 )] TAPE [DONNE "CL :CL + 1 FCC :CL] EC " TAPE [puis nous avons decaler la TORTUE de 20 en Ox et 10 en Oy] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [LC FPOS XCOR + 20 YCOR + 10 BC] EC " TAPE [nous avons DECREMENTE de - 2 le ra AAAAAA ZZZZZ QQQQQQ SSSSS DDDDD  ,53:PRINTUSING"######.##",HEU*HEURE:MONT=HEU*HEURE 540RETRAIT1=(MONT*MALD)/100:CURSOR 16,65:PRINTUSING"####.##",RETRAIT1 550RETRAIT2=(MONT*CHOMAGE)/100:CURSOR 18,65:PRINTUSING"####.##",RETRAIT2 560RETRAIT3=(MONT*VIEILLESSE)/100:CURSOR 20,65:PRINTUSING"0 BC FCC 7 MOUTON LC FPOS "-60 70 BC MOUTON LC FPOS "-100 20 BC FCC 6 FOURMI LC FPOS 40 "-20 BC FCC 4 CHENILLE LC FPOS "-100 "-100 BC FCC 5 MILLEPATTES FIN POUR HEXA REPETE 10 [AV 10 DR 60] DR 120 FIN POUR PATTES RE 10 GA 90 AV 5 RE 5 POUR JOLIDEBUT VE CT LC FIXEPOS 100 0 BC DONNE "DRP 0 DONNE "X 10 DONNE "COULEUR 0 DONNE "ANGLE 5 HI :COULEUR FIN POUR HI :CL DONNE "CL :CL + 1 SI EGAL? :CL 8 [DONNE "CL 1] SI EGAL? :CL 6 [LC AV 10 SI EGAL? :DRP 0 [GA :ANGLE DONNE "DRP 1] [DR :A yon du cercle] EC " TAPE [puis nous avons tourne de 20 degres sur la droite l'orientation de la tortue] EC " REPETE 15 [TAPE CAR ( 32 )] TAPE [DR 20] EC " TAPE [et nous avons fait reboucler 15 fois le programme.] EC " REPETE 5 [EC CAR ( 32 )] REPE PE CAR ( 32 )] TAPE [Pour continuer TAPER un BLANC] DONNE "BL LISCAR FIN POUR COMENT4 VT REPETE 30 [TAPE CAR ( 32 )] INVERSE TAPE [Programme DEMOSMT.LOG] NORMAL REPETE 2 [EC CAR ( 32 )] REPETE 20 [TAPE CAR ( 32 )] TAPE [* * * Explications de la ####.##",RETRAIT3 570 RETURN          disque inconnu.-- Memoire insuffisante.Disque cible dans le lecteur 0 ? Etes-vous sur ? -- Numero d'unite invalide.Commande interdite pendant l'imp?ression.-- Backup avorte.-- Facteur d'entrelacement illegal.57.<;?5 10 PRINTCHR$(12) 15 PRINTCHR$(20) 20 REM MODIFCATION DU FICHIER EMPLOYES 30CURSOR 6,25:PRINT"QUE VOULEZ VOUS MODIFIER :" 40CURSOR 10,5:PRINT" LE NOM .......1" 50CURSOR 12,5:PRINT" LE N0 SS......2" 60CURSOR 14,5:PRINT" L'ADRESSE.....3" 70CURSOR 16,5:PR 'ı9_O9 0 + & !? p     --- Unites disques identiques.-- Parametre invalide.-- Secteur SIR illisible.-- Formats disques differents.-- Nombre de piNstes du disque cible insuffisant.-- Format 10PRINTCHR$(12) 20 INPUT" COMBIEN DE SALARIES AVEZ VOUS DANS VOTRE ENTREPRISE";N% 25PRINT:PRINT:PRINT 30 OPEN NEW "SALARIES"AS1 40 FOR I=1 TO N% 50 INPUT"NOM:...........";NOM$;"N0 S.SOCIALE...";NSS$;"ADRESSE........";ADRESSE$;"VILLE..........";VILLE$ ecifie le facteur d'entrelacement utilise pour la recopie d'un disque dur (par defaut, I=10). }&Y?S@?'}AB PW'Q+' -'<& B5'Z i'v'p&JB'# A =&2%X]'QP ?&f9)XL="z;&5<;@c79j)0L="z;&75=#@"&1PC -@ &}B'1@_oZ&&֎ ~4v32|1\^1줫DD_m'1""^_\큦^L#^A&oA_#A254v3 4 INT" LA VILLE .....4" 80CURSOR 18,5:PRINT" LA DATE ......5" 100 A$=INCH$(0) 110 IF A$="1" THEN GOSUB 1000 120 IF A$="2" THEN 130 IF A$="3" THEN 140 IF A$="4" THEN 150 IF A$="5" THEN 1000 OPEN OLD"SALARIES" AS1 1010 INPUT#1,NOM$ 1020 PRINTNOM$:IF NO 10 PRINTCHR$(12) 15 PRINTCHR$(20) 20 CURSOR 3,28:PRINT"SAISIE DE FICHES DE PAYE" 25PRINT:PRINT:PRINT 30 CURSOR 9,5:PRINT"CREER LES FICHES DES SALARIES...1" 40 CURSOR11,5:PRINT"EDITER LES FICHES DE PAYES......2" 45 CURSOR13,5:PRINT"MODIFIER LE FICHIER S55 INPUT" DATE D'EMBAUCHE"; EMB$ 60 PRINT#1,NOM$,NSS$,ADRESSE$,VILLE$,EMB$ 70 NEXT I 80 CHAIN"1.SALMENU.BAS" =@& f>&=%}=+  &1ȐC >+"=4+9\>$<'˶@0&Ȏ&$>*P#4@ÄO>%>1Ä'&L PZ&Ä>lZ&5@+0VO_TXZ AjH%R$M]'J9' ','10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES DE PAYE ";ES$;"\" 40 OPEN OLD"SALARIES" AS 1 50 CURSOR 6,5:INPUT"NOM DU SALARIE :"; NOM1$ 60FOR I=1 TO 5:INPUTLINE#1,NOM$ 70REM IF NOM1$=NOM$ THEN GOSUB 100 7 M$=NOM1$ THEN INPUT"NOUVEAU NOM";NOM2$:NOM$=NOM2$:PRINT#1,NOM$:GOTO 1050 1040 GOTO 1010 1050 CLOSE 1  ALARIES....3" 50 A$=INCH$(0) 60 IF A$="1" THEN CHAIN"1.GESTSAL.BAS" 70 IF A$="2" THEN CHAIN"1.EDITSAL.BAS" 80 GOTO 50  Version 3.0 du 8 Septembre 1983Syntaxe: BACKUP { +options} ou et sont les numeros des unites source et destination. Options: V annule la verificaĜtion de l'ecriture. I= spDR 90 AV 10 FIN POUR YEUX LC AV 6 GA 90 AV 5 BC AV 2 LC AV 3 BC AV 2 LC RE 12 BC DR 90 RE 6 BC FIN          5 PRINTNOM$ 80 NEXT I 90 CLOSE 1:END 100 PRINTNOM$:NSS$:ADRESSE$:VILLE$:EMB$ 110 RETURN 29. BLD MOLIERE  11111111111  11111111111  ation du volume.-- Backup termine.-- Disque non pret. 1#'!'@? j_&254v3 4 1#'!'@@ j_&25}A'B 1#'Ȁ'ˆj_'ܦ椮!' @ ~@~ Z&94Ä'0J&5.zA& A|?-XR]4&X@ZRs]&Z=LES ANGLES FRANCINI  000000000000 11.8.1961 12.5.1985 #_N 'g2bo\RÄ:愾T}]& 'N Lz\&؎ę}]'Ķ R\>&_LR=" T0V%T9 õõõ 64Q                !31.01.1982 11111111  111111111111 FFFFFFFFFF           4   !$'*-03"%(+.14 #&),/2ę Ķ ӽ~-- Erreur de lecture fatale.-- Erreur d'ecriture fatale.-]- Impossible de restaurer l'identific        FRANCINI 11111111 29.BD MOLIERE LES ANGLES 11.8.1964 GRANGEON 0000000000 29.BLD MOLIERE LES ANGLES 12.2.1985 SABINE 3333333 ROUTE DE L'OISELET SORGUES 12.4.1982 E PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NSS$ 105 CURSOR 6,5:PRINT"ADRESSE : ";ADRESSE$:CURSOR 7,7:PRINTVILLE$ 110 RETURN 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE:PRINTES$;"\";ES31.01.1982 12.02.1980  10000000 200000000 NU.BAS" FRANCINI 11111111 29 BD MOLIERE LES ANGLES 11.11.11 WILLY 222222 26 BD MOLIERE LES ANGLES 12.12.12 $;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINT:PRINTES$;"]":PRINT" 3";"\" 221 SALB=HEURE*PHO 225 PRINTUSING"| SALAIRE BRUT | #####.## |",SALB 230PRINTUSING"| ASSURANCE CHOMAGE | #####.## |",RET1:PRINTUSING"| ASSURANCE MALADIE | #####.## |" 10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 4:OPEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALAR 29. BLD MOLIERE 29. BLD MOLIERE  FRANCINI 10PRINTCHR$(12) 20 INPUT" COMBIEN DE SALARIES AVEZ VOUS DANS VOTRE ENTREPRISE";N% 25PRINT:PRINT:PRINT 30 OPEN NEW "SALARIES"AS1:OPEN NEW "NSS"AS2:OPEN NEW "ADRESSE"AS3:OPEN NEW"VILLE"AS4:OPEN NEW "EMB"AS 5 40 FOR I=1 TO N% 50 INPUT"NOM:...........";NOM,RET2:PRINTUSING"| ASSURANCE VIEILLESSE | #####.## |",RET3 240PRINTUSING"| PREVOYANCE DECESE | #####.## |",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## |",RET5:PRINTUSING"| RETRAITE | #####.## |",RET6 IE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO 2:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOSUB 95 80 NEXT I 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES D LES ANGLES LES ANGLES FRANCINI VERONIQUE $;"N0 S.SOCIALE...";NSS$;"ADRESSE........";ADRESSE$;"VILLE..........";VILLE$ 55 INPUT" DATE D'EMBAUCHE"; EMB$ 60 PRINT#1,NOM$:PRINT#21,NSS$:PRINT#31,ADRESSE$:PRINT#4,VILLE$:PRINT#5,EMB$ 70 NEXT I 75 CLOSE1:CLOSE2:CLOSE3:CLOSE4:CLOSE5 80 CHAIN"1.SALME        10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 4:OPEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALART1,ACH:PRINTUSING"| ASSURANCE MALADIE | #####.## | ##.## ",RET2,AMA:PRINT USING"| ASSURANCE VIEILLESSE | #####.## | ##.## ",RET3,AVI 240PRINTUSING"| PREVOYANCE DECESE | #####.## ",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## ",RET5:PRINT E PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NSS$ 105 CURSOR 6,5:PRINT"ADRESSE : ";ADRESSE$:CURSOR 7,7:PRINTVILLE$ 106 PRINTDATE$ 110 RETURN 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE:" ?";ES$;"\" 1000 A$=INCH$(0) 1010PRINTASC(A$) =(SALB/100)*0.86:RET6=(SALB/100)*1.84 222 FOR I=1 TO 7: PRINT"| | | | | ":NEXT I 224FORI=1 TO 7: PRINTCHR$(11);CHR$(11):NEXT I 225 PRINTUSING"| SALAIRE BRUT | | | #####.## ",SALB 230PRINT USING"| ASSURANCE CHOMAGE | #####.## | ##.## |#IE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO 2:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOSUB 95 80 NEXT I 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES DUSING"| RETRAITE | #####.## ",RET6 244PRINTES$;"@";ES$;"]";:PRINT"| | | | |" ;CHR$(11) 245PRINTES$;"@";ES$;"]";:PRINTUSING"| SALAIRE NET IMP | | | #####.##",SALB-RET1-RET2-RET3-RET4-RET5-RET6:PRINTES$;"\";ES$;"G"; 250PRINTES$;"]"; " ?";ES$ PRINTES$;"\";ES$;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINTES$;"]":PRINT"| LIBELLE | RETENUES | TAUX | A PAYER | " ;ES$;"\" 221 SALB=HEURE*PHO:RET1=(SALB/100)*ACH:RET2=(SALB/100)*AMA:RET3=(SALB/100)*AVI:RET4=(SALB/100)*0.3:RET5=(SALB/1 10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 4:OPEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALAR## ",RET1,ACH:PRINTUSING"| ASSURANCE MALADIE | #####.## | ##.## ",RET2,AMA:PRINT USING"| ASSURANCE VIEILLESSE | #####.## | ##.## ",RET3,AVI 240PRINTUSING"| PREVOYANCE DECESE | #####.## ",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## ",REE PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NSS$ 105 CURSOR 6,5:PRINT"ADRESSE : ";ADRESSE$:CURSOR 7,7:PRINTVILLE$ 106 PRINTDATE$ 110 RETURN 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE:;"\" 300 PRINT:PRINT" VOULEZ VOUS IMPRIMER CETTE FICHE ?":A$=INCH$(0) 310 IF A$="O"OR A$="o" THEN PRINT "IMPOSSIBLE IMPRIMANTE NON CONNECTE.....":FOR I=1 TO 10000:NEXT I:GOTO 320 320 PRINT" VOULEZ VOUS UNE AUTRE FICHE ?":FI$=INCH$(0) 330 IF FI$="O"OR F00)*0.86:RET6=(SALB/100)*1.84 222 FOR I=1 TO 7: PRINT"| | | | | ":NEXT I 224FORI=1 TO 7: PRINTCHR$(11);CHR$(11):NEXT I 225 PRINTUSING"| SALAIRE BRUT | | | #####.## ",SALB 230PRINT USING"| ASSURANCE CHOMAGE | #####.## | ##.## |### ",RE IE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO 2:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOSUB 95 80 NEXT I 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES DT5:PRINTUSING"| RETRAITE | #####.## ",RET6 244PRINTES$;"@";ES$;"]";:PRINT"| | | | |" ;CHR$(11) 245PRINTES$;"@";ES$;"]";:PRINTUSING"| SALAIRE NET IMP | | | #####.##",SALB-RET1-RET2-RET3-RET4-RET5-RET6:PRINTES$;"\";ES$;"G"; 250PRINTES$;"]"; PRINTES$;"\";ES$;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINT :PRINTES$;"]":PRINT"| LIBELLE | RETENUES | TAUX | A PAYER | " ;ES$;"\" 221 SALB=HEURE*PHO:RET1=(SALB/100)*ACH:RET2=(SALB/100)*AMA:RET3=(SALB/100)*AVI:RET4=(SALB/100)*0.3:RET5         I$="o" THEN GOTO 10 340 CHAIN"1.SALMENU.BAS" ALARIES....3" 50 A$=INCH$(0) 60 IF A$="1" THEN CHAIN"1.GESTSAL.BAS" 70 IF A$="2" THEN CHAIN"1.ED.BAS" 80 GOTO 50 100 A$=INCH$(0) 110 IF A$="1" THEN GOSUB 1000 120 IF A$="2" THEN 130 IF A$="3" THEN 140 IF A$="4" THEN 150 IF A$="5" THEN 1000 OPEN OLD 10 PRINTCHR$(12) 15 PRINTCHR$(20) 20 CURSOR 3,28:PRINT"SAISIE DE FICHES DE PAYE" 25PRINT:PRINT:PRINT 30 CURSOR 9,5:PRINT"CREER LES FICHES DES SALARIES...1" 40 CURSOR11,5:PRINT"EDITER LES FICHES DE PAYES......2" 45 CURSOR13,5:PRINT"MODIFIER LE FICHIER S 29. Bld MOLIERE 29. Bld MOLIERE  .BAS" FRANCINI "SALARIES" AS1 1010 INPUT#1,NOM$ 1020 PRINTNOM$:IF NOM$=NOM1$ THEN INPUT"NOUVEAU NOM";NOM2$:NOM$=NOM2$:PRINT#1,NOM$:GOTO 1050 1040 GOTO 1010 1050 CLOSE 1 ALARIES....3" 50 A$=INCH$(0) 60 IF A$="1" THEN CHAIN"1.GESTSAL.BAS" 70 IF A$="2" THEN CHAIN"1.ED.BAS" 80 GOTO 50  LES ANGLES LES ANGLES FRANCINI BOURDON 10PRINTCHR$(12) 20 INPUT" COMBIEN DE SALARIES AVEZ VOUS DANS VOTRE ENTREPRISE";N% 25PRINT:PRINT:PRINT 30 OPEN NEW "SALARIES"AS1:OPEN NEW "NSS"AS2:OPEN NEW "ADRESSE"AS3:OPEN NEW"VILLE"AS4:OPEN NEW "EMB"AS 5 40 FOR I=1 TO N% 50 INPUT"NOM:...........";NOM10 EFF$=CHR$(12) 20 ES$=CHR$(27) 25 PRINTEFF$ 30 CURSOR 1,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 35 PRINT:PRINT 40 INPUT" COMBIEN AVEZ VOUS D'EMPLOYES " ;E% 50 OPEN NEW "NBEEMPL" AS12 60 PRINT#1,E% 70 CLOSE AS12 80DELETE 50,7010 PRINTCHR$(12) 15 PRINTCHR$(20) 20 CURSOR 3,28:PRINT"SAISIE DE FICHES DE PAYE" 25PRINT:PRINT:PRINT 30 CURSOR 9,5:PRINT"CREER LES FICHES DES SALARIES...1" 40 CURSOR11,5:PRINT"EDITER LES FICHES DE PAYES......2" 45 CURSOR13,5:PRINT"MODIFIER LE FICHIER S31.1.1982 12.5.1981 1111111111111 2601199352868 $;"N0 S.SOCIALE...";NSS$;"ADRESSE........";ADRESSE$;"VILLE..........";VILLE$ 55 INPUT" DATE D'EMBAUCHE"; EMB$ 60 PRINT#1,NOM$:PRINT#2,NSS$:PRINT#3,ADRESSE$:PRINT#4,VILLE$:PRINT#5,EMB$ 70 NEXT I 75 CLOSE1:CLOSE2:CLOSE3:CLOSE4:CLOSE5 80 CHAIN"1.SALMENU         90 OPEN OLD"NBEEMP" AS12 100 INPUT #1,E% 110 CURSOR 1,75:PRINT"NOMBRE D'EMPLOYER :";E% 120 CLOSE 12 AAAAAAAAA  AAAAAAAAAAA  10 EFF$=CHR$(12) 20 ES$=CHR$(27) 25 PRINTEFF$ 30 CURSOR 1,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 35 PRINT:PRINT 90 OPEN OLD"NBEEMP" AS12 100 INPUT #12,E% 120 CLOSE 12 125 OPEN NEW "SALARIES" AS1:OPEN NEW "NSS" AS2:OPEN NEW"ADR0 90 OPEN OLD"NBEEMP" AS12 100 INPUT #12,E% 110 CURSOR 1,75:PRINT"NOMBRE D'EMPLOYER :";E% 120 CLOSE 12  10 AAAAA  AAAAAAAAAA  ESSE" AS3:OPEN NEW "VILLE" AS4 130 FOR I=1 TO E% 140 INPUT "NOM ...............:";NOM$:PRINT#1,NOM$ 141 INPUT "N0 S.SOCIALE ......:";NSS$:PRINT#2,NSS$ 143 INPUT "ADRESSE...... .....:";ADRESSE$:PRINT#3,ADRESSE$ 145 INPUT "VILLE .............:";VILLE$:P10 EFF$=CHR$(12) 20 ES$=CHR$(27) 25 PRINTEFF$ 30 CURSOR 1,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 35 PRINT:PRINT 40 INPUT" COMBIEN AVEZ VOUS D'EMPLOYES " ;E% 50 OPEN NEW "NBEEMPL" AS12 60 PRINT#12,E% 70 CLOSE AS12 80 CHAIN"1.GE 10 A AAAAAAAAA RINT#4,VILLE$ 150 CLOSE 1:CLOSE2:CLOSE3:CLOSE 4: 160 CHAIN"1.SALMENU.BAS"  STSAL.BAS" 10 EFF$=CHR$(12) 20 ES$=CHR$(27) 25 PRINTEFF$ 30 CURSOR 1,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 35 PRINT:PRINT 40 INPUT" COMBIEN AVEZ VOUS D'EMPLOYES " ;E% 50 OPEN NEW "NBEEMPL" AS12 60 PRINT#12,E% 70 CLOSE AS12 80DELETE 50,7        A 10 EFF$=CHR$(12) 20 ES$=CHR$(27) 30 CURSOR 5,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 36 CURSOR 10,15:PRINTES$;"]";ES$;"@";" CREER VOS FICHES ....." 37 CURSOR 12,15:PRINTES$;"]";ES$;"@";" MODIFIER VOS FICHES .." 40 PRINTES$;"\"; A B C D E F G H I J  RESSE" AS3:OPEN NEW "VILLE" AS4 130 FOR I=1 TO E% 140 INPUT "NOM ...............:";NOM$:PRINT#1,NOM$ 141 INPUT "N0 S.SOCIALE ......:";NSS$:PRINT#2,NSS$ 143 INPUT "ADRESSE...... .....:";ADRESSE$:PRINT#3,ADRESSE$ 145 INPUT "VILLE .............:";VILLE$:A A Z Z E R R T T Y A ES$;"G" 43 PRINTCHR$(20) 44 A%=10:D%=2 45 F$="<<<<":CURSOR A%,42:PRINTF$ 46 F$="<<<<":CURSOR A%,42:PRINTF$ 50A$=INCH$(0) 60 IF ASC(A$)=11 THEN A%=10:CURSOR 12,42:PRINT" " 70 IF ASC(A$)=10 THEN A%=12:CURSOR 10,42:PRINT" " 75 GOTO 45 80 IF ASC(A$)=13 T A B C D E F G H I J  PRINT#4,VILLE$ 146 PRINT:PRINT 147 NEXT I 150 CLOSE 1:CLOSE2:CLOSE3:CLOSE 4 160 CHAIN"1.SALMENU.BAS" A A Z Z E R R T T Y A A Z Z E R R T T Y HEN GOSUB 100 100 IF A%=12 THEN CHAIN"1.MODIF.BAS"  A B C D E F G H I J  A B C D E F G H I J 10 EFF$=CHR$(12) 20 ES$=CHR$(27) 25 PRINTEFF$ 30 CURSOR 1,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 35 PRINT:PRINT 90 OPEN OLD"NBEEMPL" AS12 100 INPUT #12,E% 120 CLOSE 12 125 OPEN NEW "SALARIES" AS1:OPEN NEW "NSS" AS2:OPEN NEW"ADA A Z Z E R R T T Y         5 PRINTCHR$(12) 10 EFF$=CHR$(12) 20 ES$=CHR$(27) 30 CURSOR 5,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 36 CURSOR 10,15:PRINTES$;"]";ES$;"@";" CREER VOS FICHES ....." 37 CURSOR 12,15:PRINTES$;"]";ES$;"@";" MODIFIER VOS FICHES .." 10 EFF$=CHR$(12) 20 ES$=CHR$(27) 25 PRINTEFF$ 30 CURSOR 1,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 35 PRINT:PRINT 40 INPUT" COMBIEN AVEZ VOUS D'EMPLOYES " ;E% 50 OPEN NEW "NBEEMPL" AS12 60 PRINT#12,E% 70 CLOSE 12 80 CHAIN"1.GEST 40 PRINTES$;"\";ES$;"G" 43 PRINTCHR$(20) 44 A%=10:D%=2 45 F$="<<<<":CURSOR A%,42:PRINTF$ 46 F$="<<<<":CURSOR A%,42:PRINTF$ 50A$=INCH$(0) 60 IF ASC(A$)=11 THEN A%=10:CURSOR 12,42:PRINT" " 70 IF ASC(A$)=10 THEN A%=12:CURSOR 10,42:PRINT" " 73 IF ASC(A$) 40 PRINTES$;"\";ES$;"G" 43 PRINTCHR$(20) 44 A%=10:D%=2 45 F$="<<<<":CURSOR A%,42:PRINTF$ 46 F$="<<<<":CURSOR A%,42:PRINTF$ 50A$=INCH$(0) 60 IF ASC(A$)=11 THEN A%=10:CURSOR 12,42:PRINT" " 70 IF ASC(A$)=10 THEN A%=12:CURSOR 10,42:PRINT" " 73 IF ASC(A$)40 PRINTES$;"\";ES$;"G" 43 PRINTCHR$(20) 44 A%=10:D%=2 45 F$="<<<<":CURSOR A%,42:PRINTF$ 46 F$="<<<<":CURSOR A%,42:PRINTF$ 50A$=INCH$(0) 60 IF ASC(A$)=11 THEN A%=10:CURSOR 12,42:PRINT" " 70 IF ASC(A$)=10 THEN A%=12:CURSOR 10,42:PRINT" " 73 IF ASC(A$)40 PRINTES$;"\";ES$;"G" 43 PRINTCHR$(20) 44 A%=10:D%=2 45 F$="<<<<":CURSOR A%,42:PRINTF$ 46 F$="<<<<":CURSOR A%,42:PRINTF$ 50A$=INCH$(0) 60 IF ASC(A$)=11 THEN A%=10:CURSOR 12,42:PRINT" " 70 IF ASC(A$)=10 THEN A%=12:CURSOR 10,42:PRINT" " 73 IF ASC(A$)SAL.BAS"  =13 THEN GOSUB 100 75 GOTO 45 80 IF ASC(A$)=13 THEN GOSUB 100 100 IF A%=12 THEN CHAIN"1.CREAEMPL.BAS" 110 IF A%=10THEN CHAIN"1.CREAFICH.BAS" =13 THEN GOSUB 100 75 GOTO 45 80 IF ASC(A$)=13 THEN GOSUB 100 100 IF A%=12 THEN CHAIN"1.MODIF.BAS" 110 IF A%=10THEN CHAIN"1.CREAFICH.BAS" =13 THEN GOSUB 100 75 GOTO 45 80 IF ASC(A$)=13 THEN GOSUB 100 100 IF A%=12 THEN CHAIN"1.MODIF.BAS" 110 IF A%=0 THEN CHAIN"1.CREAFICH.BAS" =13 THEN GOSUB 100 75 GOTO 45 80 IF ASC(A$)=13 THEN GOSUB 100 100 IF A%=12 THEN CHAIN"1.MODIF.BAS" 1000 A$=INCH$(0):PRINTASC(A$)   1  1  5 PRINTCHR$(12) 10 EFF$=CHR$(12) 20 ES$=CHR$(27) 30 CURSOR 5,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 36 CURSOR 10,15:PRINTES$;"]";ES$;"@";" CREER VOS FICHES ....." 37 CURSOR 12,15:PRINTES$;"]";ES$;"@";" MODIFIER EMPLOYES...." 5 PRINTCHR$(12) 10 EFF$=CHR$(12) 20 ES$=CHR$(27) 30 CURSOR 5,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 36 CURSOR 10,15:PRINTES$;"]";ES$;"@";" CREER VOS FICHES ....." 37 CURSOR 12,15:PRINTES$;"]";ES$;"@";" MODIFIER VOS FICHES .." 5 PRINTCHR$(12) 10 EFF$=CHR$(12) 20 ES$=CHR$(27) 30 CURSOR 5,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 36 CURSOR 10,15:PRINTES$;"]";ES$;"@";" CREER VOS FICHES ....." 37 CURSOR 12,15:PRINTES$;"]";ES$;"@";" MODIFIER VOS FICHES .."         10 EFF$=CHR$(12) 20 ES$=CHR$(27) 25 PRINTEFF$ 30 CURSOR 1,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 35 PRINT:PRINT 40 INPUT" COMBIEN AVEZ VOUS D'EMPLOYES " ;E% 50 OPEN NEW "NBEEMPL" AS12 60 PRINT#12,E% 70 CLOSE 12 80 CHAIN"1.SALMIE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO E%:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOSUB 95 80 NEXT I 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES  AAAAAAAA   1 ALARIES....3" 50 A$=INCH$(0) 60 IF A$="1" THEN CHAIN"1.CREAMENU.BAS" 70 IF A$="2" THEN CHAIN"1.ED.BAS" 80 GOTO 50 100 A$=INCH$(0) 110 IF A$="1" THEN GOSUB 1000 120 IF A$="2" THEN 130 IF A$="3" THEN 140 IF A$="4" THEN 150 IF A$="5" THEN 1000 OPEN OL ENU.BAS" DE PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NSS$ 105 CURSOR 6,5:PRINT"ADRESSE : ";ADRESSE$:CURSOR 7,7:PRINTVILLE$ 106 PRINTDATE$ 110 RETURN 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE AAAAA  AAAAAAAA  D"SALARIES" AS1 1010 INPUT#1,NOM$ 1020 PRINTNOM$:IF NOM$=NOM1$ THEN INPUT"NOUVEAU NOM";NOM2$:NOM$=NOM2$:PRINT#1,NOM$:GOTO 1050 1040 GOTO 1010 1050 CLOSE 1  1 :PRINTES$;"\";ES$;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINTES$;"]":PRINT"| LIBELLE | RETENUES | TAUX | A PAYER | " ;ES$;"\" 221 SALB=HEURE*PHO:RET1=(SALB/100)*ACH:RET2=(SALB/100)*AMA:RET3=(SALB/100)*AVI:RET4=(SALB/100)*0.3:RET5=(SALB/10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 4:OPEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALAR AAAAAAA   1 10 PRINTCHR$(12) 15 PRINTCHR$(20) 20 CURSOR 3,28:PRINT"SAISIE DE FICHES DE PAYE" 25PRINT:PRINT:PRINT 30 CURSOR 9,5:PRINT"CREER LES FICHES DES SALARIES...1" 40 CURSOR11,5:PRINT"EDITER LES FICHES DE PAYES......2" 45 CURSOR13,5:PRINT"MODIFIER LE FICHIER S        100)*0.86:RET6=(SALB/100)*1.84 222 FOR I=1 TO 7: PRINT"| | | | | ":NEXT I 224FORI=1 TO 7: PRINTCHR$(11);CHR$(11):NEXT I 225 PRINTUSING"| SALAIRE BRUT | | | #####.## ",SALB 230PRINT USING"| ASSURANCE CHOMAGE | #####.## | ##.## |### ",R FI$="o" THEN GOTO 10 340 CHAIN"1.SALMENU.BAS" 720 IF NOM1$<>NOM$ THEN PRINTEFF$;"CET EMPLOYES N'EST PAS DANS MES FICHES !!!! ":FOR I=1 TO 10000:NEXT I:GOTO 10  ET1,ACH:PRINTUSING"| ASSURANCE MALADIE | #####.## | ##.## ",RET2,AMA:PRINT USING"| ASSURANCE VIEILLESSE | #####.## | ##.## ",RET3,AVI 240PRINTUSING"| PREVOYANCE DECESE | #####.## ",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## ",RET5:PRIN DE PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NSS$ 105 CURSOR 6,5:PRINT"ADRESSE : ";ADRESSE$:CURSOR 7,7:PRINTVILLE$ 106 PRINTDATE$ 110 RETURN 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE FI$="o" THEN GOTO 10 340 CHAIN"1.SALMENU.BAS" ET1,ACH:PRINTUSING"| ASSURANCE MALADIE | #####.## | ##.## ",RET2,AMA:PRINT USING"| ASSURANCE VIEILLESSE | #####.## | ##.## ",RET3,AVI 240PRINTUSING"| PREVOYANCE DECESE | #####.## ",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## ",RET5:PRIN10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 4:OPEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALAR TUSING"| RETRAITE | #####.## ",RET6 244PRINTES$;"@";ES$;"]";:PRINT"| | | | |" ;CHR$(11) 245PRINTES$;"@";ES$;"]";:PRINTUSING"| SALAIRE NET IMP | | | #####.##",SALB-RET1-RET2-RET3-RET4-RET5-RET6:PRINTES$;"\";ES$;"G"; 250PRINTES$;"]"; " ?";ES :PRINTES$;"\";ES$;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINTES$;"]":PRINT"| LIBELLE | RETENUES | TAUX | A PAYER | " ;ES$;"\" 221 SALB=HEURE*PHO:RET1=(SALB/100)*ACH:RET2=(SALB/100)*AMA:RET3=(SALB/100)*AVI:RET4=(SALB/100)*0.3:RET5=(SALB/10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 4:OPEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALARTUSING"| RETRAITE | #####.## ",RET6 244PRINTES$;"@";ES$;"]";:PRINT"| | | | |" ;CHR$(11) 245PRINTES$;"@";ES$;"]";:PRINTUSING"| SALAIRE NET IMP | | | #####.##",SALB-RET1-RET2-RET3-RET4-RET5-RET6:PRINTES$;"\";ES$;"G"; 250PRINTES$;"]"; " ?";ESIE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO E%:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOSUB 95 72 IF NOM1$<>NOM$ THEN PRINTEFF$;" CE NOM N'EST PAS DANS MES FICHES":FORI=1 TO 10000:NEXT I:CLOSE 1,2,3,4,5$;"\" 300 PRINT:PRINT" VOULEZ VOUS IMPRIMER CETTE FICHE ?":A$=INCH$(0) 310 IF A$="O"OR A$="o" THEN PRINT "IMPOSSIBLE IMPRIMANTE NON CONNECTE.....":FOR I=1 TO 10000:NEXT I:GOTO 320 320 PRINT" VOULEZ VOUS UNE AUTRE FICHE ?":FI$=INCH$(0) 330 IF FI$="O"OR  100)*0.86:RET6=(SALB/100)*1.84 222 FOR I=1 TO 7: PRINT"| | | | | ":NEXT I 224FORI=1 TO 7: PRINTCHR$(11);CHR$(11):NEXT I 225 PRINTUSING"| SALAIRE BRUT | | | #####.## ",SALB 230PRINT USING"| ASSURANCE CHOMAGE | #####.## | ##.## |### ",RIE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO E%:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOSUB 95 80 NEXT I 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES $;"\" 300 PRINT:PRINT" VOULEZ VOUS IMPRIMER CETTE FICHE ?":A$=INCH$(0) 310 IF A$="O"OR A$="o" THEN PRINT "IMPOSSIBLE IMPRIMANTE NON CONNECTE.....":FOR I=1 TO 10000:NEXT I:GOTO 320 320 PRINT" VOULEZ VOUS UNE AUTRE FICHE ?":FI$=INCH$(0) 330 IF FI$="O"OR         :GOTO 10 80 NEXT I 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES DE PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NSS$ 105 CURSOR 6,5:PRINT"ADRESSE : ";ADRESSE$:CURSORFRANCINI BONNEAUD  11111111 22222222  O 10000:NEXT I:GOTO 10 3,AVI 240PRINTUSING"| PREVOYANCE DECESE | #####.## ",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## ",RET5:PRINTUSING"| RETRAITE | #####.## ",RET6 244PRINTES$;"@";ES$;"]";:PRINT"| | | | |" ;CHR$(11) 245PRINTES$;"@";ES$;"]";:PRINTUSING"| SA 7,7:PRINTVILLE$ 106 PRINTDATE$ 110 RETURN 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE:PRINTES$;"\";ES$;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINTES$;"]":PRINT"| LIBELLE | RETENUES | TAUX | A PAYER | " ;ES11111111 22222222  29. Bld MOLIERE ROUTE DE L'OISELETE  2 LAIRE NET IMP | | | #####.##",SALB-RET1-RET2-RET3-RET4-RET5-RET6:PRINTES$;"\";ES$;"G"; 250PRINTES$;"]"; " ?";ES$;"\" 300 PRINT:PRINT" VOULEZ VOUS IMPRIMER CETTE FICHE ?":A$=INCH$(0) 310 IF A$="O"OR A$="o" THEN PRINT "IMPOSSIBLE IMPRIMANTE NON CONN$;"\" 221 SALB=HEURE*PHO:RET1=(SALB/100)*ACH:RET2=(SALB/100)*AMA:RET3=(SALB/100)*AVI:RET4=(SALB/100)*0.3:RET5=(SALB/100)*0.86:RET6=(SALB/100)*1.84 222 FOR I=1 TO 7: PRINT"| | | | | ":NEXT I 224FORI=1 TO 7: PRINTCHR$(11);CHR$(11):NEXT I 225 PRINT29.BLD MOLIERE ROUTE DE L'OISELET  LES ANGLES SORGUES  FRANCINI BONNEAUD  ECTE.....":FOR I=1 TO 10000:NEXT I:GOTO 320 320 PRINT" VOULEZ VOUS UNE AUTRE FICHE ?":FI$=INCH$(0) 330 IF FI$="O"OR FI$="o" THEN GOTO 10 340 CHAIN"1.SALMENU.BAS" 720 IF NOM1$<>NOM$ THEN PRINTEFF$;"CET EMPLOYES N'EST PAS DANS MES FICHES !!!! ":FOR I=1 TUSING"| SALAIRE BRUT | | | #####.## ",SALB 230PRINT USING"| ASSURANCE CHOMAGE | #####.## | ##.## |### ",RET1,ACH:PRINTUSING"| ASSURANCE MALADIE | #####.## | ##.## ",RET2,AMA:PRINT USING"| ASSURANCE VIEILLESSE | #####.## | ##.## ",RET        LES ANGLES SORGUES CHR$(11) 245PRINTES$;"@";ES$;"]";:PRINTUSING"| SALAIRE NET IMP | | | #####.##",SALB-RET1-RET2-RET3-RET4-RET5-RET6:PRINTES$;"\";ES$;"G"; 250PRINTES$;"]"; " ?";ES$;"\" 300 PRINT:PRINT" VOULEZ VOUS IMPRIMER CETTE FICHE ?":A$=INCH$(0) 310 IF A$="O"OR LIBELLE | RETENUES | TAUX | A PAYER | " ;ES$;"\" 221 SALB=HEURE*PHO:RET1=(SALB/100)*ACH:RET2=(SALB/100)*AMA:RET3=(SALB/100)*AVI:RET4=(SALB/100)*0.3:RET5=(SALB/100)*0.86:RET6=(SALB/100)*1.84 222 FOR I=1 TO 7: PRINT"| | | | | ":NEXT I 224FORI PEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALARIE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO E%:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOSUB 95 72 IF NOM1$<>NOM$ THEN PRINTEFF$;" CE NOM N'EST PAS DANS 29 BLD MOLIERE ROUTE DE L'OISELET ROUTE DE L'OISELET  3  A$="o" THEN PRINT "IMPOSSIBLE IMPRIMANTE NON CONNECTE.....":FOR I=1 TO 10000:NEXT I:GOTO 320 320 PRINT" VOULEZ VOUS UNE AUTRE FICHE ?":FI$=INCH$(0) 330 IF FI$="O"OR FI$="o" THEN GOTO 10 340 CHAIN"1.SALMENU.BAS" 720 IF NOM1$<>NOM$ THEN PRINTEFF$;"CET E =1 TO 7: PRINTCHR$(11);CHR$(11):NEXT I 225 PRINTUSING"| SALAIRE BRUT | | | #####.## ",SALB 230PRINT USING"| ASSURANCE CHOMAGE | #####.## | ##.## |### ",RET1,ACH:PRINTUSING"| ASSURANCE MALADIE | #####.## | ##.## ",RET2,AMA:PRINT USING" MES FICHES":FORI=1 TO 10000:NEXT I:CLOSE 1,2,3,4,5:GOTO 10 80 NEXT I 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES DE PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NSS$ LES ANGLES SORGUES SORGUES FRANCINI BONNEAUD SABINE  MPLOYES N'EST PAS DANS MES FICHES !!!! ":FOR I=1 TO 10000:NEXT I:GOTO 10 | ASSURANCE VIEILLESSE | #####.## | ##.## ",RET3,AVI 240PRINTUSING"| PREVOYANCE DECESE | #####.## ",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## ",RET5:PRINTUSING"| RETRAITE | #####.## ",RET6 244PRINTES$;"@";ES$;"]";:PRINT"| | | | |" ;  105 CURSOR 6,5:PRINT"ADRESSE : ";ADRESSE$:CURSOR 7,7:PRINTVILLE$ 106 PRINTDATE$ 110 RETURN 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE:PRINTES$;"\";ES$;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINTES$;"]":PRINT"| 10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 35 OPEN OLD"NBEMPL" AS12 36INPUT#1,E% 37 CLOSE 12 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 4:O11111111 22222222 000000         10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 35 OPEN OLD"NBEMPL" AS12 36INPUT#12,E% 37 CLOSE 12 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 4:..........:";VILLE$:PRINT#4,VILLE$ 146 PRINT:PRINT 147 NEXT I 150 CLOSE 1:CLOSE2:CLOSE3:CLOSE 4 160 CHAIN"1.SALMENU.BAS"  4  ;CHR$(11) 245PRINTES$;"@";ES$;"]";:PRINTUSING"| SALAIRE NET IMP | | | #####.##",SALB-RET1-RET2-RET3-RET4-RET5-RET6:PRINTES$;"\";ES$;"G"; 250PRINTES$;"]"; " ?";ES$;"\" 300 PRINT:PRINT" VOULEZ VOUS IMPRIMER CETTE FICHE ?":A$=INCH$(0) 310 IF A$="O"OLIBELLE | RETENUES | TAUX | A PAYER | " ;ES$;"\" 221 SALB=HEURE*PHO:RET1=(SALB/100)*ACH:RET2=(SALB/100)*AMA:RET3=(SALB/100)*AVI:RET4=(SALB/100)*0.3:RET5=(SALB/100)*0.86:RET6=(SALB/100)*1.84 222 FOR I=1 TO 7: PRINT"| | | | | ":NEXT I 224FOROPEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALARIE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO E%:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOSUB 95 72 IF NOM1$<>NOM$ THEN PRINTEFF$;" CE NOM N'EST PAS DANS10 EFF$=CHR$(12) 20 ES$=CHR$(27) 25 PRINTEFF$ 30 CURSOR 1,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 35 PRINT:PRINT 90 OPEN OLD"NBEEMPL" AS12 100 INPUT #12,E% 120 CLOSE 12 125 OPEN NEW "SALARIES" AS1:OPEN NEW "NSS" AS2:OPEN NEW"AD 10 EFF$=CHR$(12) 20 ES$=CHR$(27) 25 PRINTEFF$ 30 CURSOR 1,25:PRINT ES$;"]";" CREATION DE FICHE DU PERSONNEL ":PRINTES$;"\" 35 PRINT:PRINT 90 OPEN OLD"NBEEMPL" AS12 100 INPUT #12,E% 120 CLOSE 12 125 OPEN NEW "SALARIES" AS1:OPEN NEW "NSS" AS2:OPEN NEW"AD R A$="o" THEN PRINT "IMPOSSIBLE IMPRIMANTE NON CONNECTE.....":FOR I=1 TO 10000:NEXT I:GOTO 320 320 PRINT" VOULEZ VOUS UNE AUTRE FICHE ?":FI$=INCH$(0) 330 IF FI$="O"OR FI$="o" THEN GOTO 10 340 CHAIN"1.SALMENU.BAS" 720 IF NOM1$<>NOM$ THEN PRINTEFF$;"CET I=1 TO 7: PRINTCHR$(11);CHR$(11):NEXT I 225 PRINTUSING"| SALAIRE BRUT | | | #####.## ",SALB 230PRINT USING"| ASSURANCE CHOMAGE | #####.## | ##.## |### ",RET1,ACH:PRINTUSING"| ASSURANCE MALADIE | #####.## | ##.## ",RET2,AMA:PRINT USING MES FICHES":FORI=1 TO 10000:NEXT I:CLOSE 1,2,3,4,5:GOTO 10 80 NEXT I 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES DE PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NSSRESSE" AS3:OPEN NEW "VILLE" AS4:OPENNEW "EMB" AS 5 130 FOR I=1 TO E% 140 INPUT "NOM ...............:";NOM$:PRINT#1,NOM$ 141 INPUT "N0 S.SOCIALE ......:";NSS$:PRINT#2,NSS$ 143 INPUT "ADRESSE...... .....:";ADRESSE$:PRINT#3,ADRESSE$ 145 INPUT "VILLE ....RESSE" AS3:OPEN NEW "VILLE" AS4:OPENNEW "EMB$" AS 5 130 FOR I=1 TO E% 140 INPUT "NOM ...............:";NOM$:PRINT#1,NOM$ 141 INPUT "N0 S.SOCIALE ......:";NSS$:PRINT#2,NSS$ 143 INPUT "ADRESSE...... .....:";ADRESSE$:PRINT#3,ADRESSE$ 145 INPUT "VILLE ... EMPLOYES N'EST PAS DANS MES FICHES !!!! ":FOR I=1 TO 10000:NEXT I:GOTO 10 "| ASSURANCE VIEILLESSE | #####.## | ##.## ",RET3,AVI 240PRINTUSING"| PREVOYANCE DECESE | #####.## ",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## ",RET5:PRINTUSING"| RETRAITE | #####.## ",RET6 244PRINTES$;"@";ES$;"]";:PRINT"| | | | |" $ 105 CURSOR 6,5:PRINT"ADRESSE : ";ADRESSE$:CURSOR 7,7:PRINTVILLE$ 106 PRINTDATE$ 110 RETURN 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE:PRINTES$;"\";ES$;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINTES$;"]":PRINT"|         .........:";VILLE$:PRINT#4,VILLE$ 146 INPUT "DATE D'EMBAUCHE....:";EMB$:PRINT#5,EMB$ 147 NEXT I 150 CLOSE 1:CLOSE2:CLOSE3:CLOSE 4 160 CHAIN"1.SALMENU.BAS"  ;CHR$(11) 245PRINTES$;"@";ES$;"]";:PRINTUSING"| SALAIRE NET IMP | | | #####.##",SALB-RET1-RET2-RET3-RET4-RET5-RET6:PRINTES$;"\";ES$;"G"; 250PRINTES$;"]"; " ?";ES$;"\" 300 PRINT:PRINT" VOULEZ VOUS IMPRIMER CETTE FICHE ?":A$=INCH$(0) 310 IF A$="O"  LIBELLE | RETENUES | TAUX | A PAYER | " ;ES$;"\" 221 SALB=HEURE*PHO:RET1=(SALB/100)*ACH:RET2=(SALB/100)*AMA:RET3=(SALB/100)*AVI:RET4=(SALB/100)*0.3:RET5=(SALB/100)*0.86:RET6=(SALB/100)*1.84 222 FOR I=1 TO 7: PRINT"| | | | | ":NEXT I 224FO :OPEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALARIE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO E%:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOSUB 95 72 IF NOM1$<>NOM$ THEN PRINTEFF$;" CE NOM N'EST PAS DANLES ANGLES SORGUES LES ANGLES SORGUES FRANCINI SABINE VERONIQUE BONNEAUD  OR A$="o" THEN PRINT "IMPOSSIBLE IMPRIMANTE NON CONNECTE.....":FOR I=1 TO 10000:NEXT I:GOTO 320 320 PRINT" VOULEZ VOUS UNE AUTRE FICHE ?":FI$=INCH$(0) 330 IF FI$="O"OR FI$="o" THEN GOTO 10 340 CHAIN"1.SALMENU.BAS" 720 IF NOM1$<>NOM$ THEN PRINTEFF$;"CET RI=1 TO 7: PRINTCHR$(11);CHR$(11):NEXT I 225 PRINTUSING"| SALAIRE BRUT | | | #####.## ",SALB 230PRINT USING"| ASSURANCE CHOMAGE | #####.## | ##.## |### ",RET1,ACH:PRINTUSING"| ASSURANCE MALADIE | #####.## | ##.## ",RET2,AMA:PRINT USIN S MES FICHES":FORI=1 TO 10000:NEXT I:CLOSE 1,2,3,4,5:GOTO 10 80 NEXT I 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES DE PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NS11.01.1984 21.12.1984 14.02.1982 1.08.1963 11111111 222222 33333 4444444  EMPLOYES N'EST PAS DANS MES FICHES !!!! ":FOR I=1 TO 10000:NEXT I:GOTO 10 G"| ASSURANCE VIEILLESSE | #####.## | ##.## ",RET3,AVI 240PRINTUSING"| PREVOYANCE DECESE | #####.## ",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## ",RET5:PRINTUSING"| RETRAITE | #####.## ",RET6 244PRINTES$;"@";ES$;"]";:PRINT"| | | | |" S$ 105 CURSOR 6,5:PRINT"ADRESSE : ";ADRESSE$:CURSOR 7,7:PRINTVILLE$ 106 PRINTDATE$ 110 RETURN 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE:PRINTES$;"\";ES$;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINTES$;"]":PRINT"|10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 35 OPEN OLD"NBEEMPL" AS12 36INPUT#12,E% 37 CLOSE 12 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 429 BLD MOLIERE ROUTE DE L'OISELET" 29 BLD MOLIERE ROUTE DE L'OISELET         10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 35 OPEN OLD"NBEEMPL" AS12 36INPUT#12,E% 37 CLOSE 12 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 4| A PAYER | " ;ES$;"\" 221 SALB=HEURE*PHO:RET1=(SALB/100)*ACH:RET2=(SALB/100)*AMA:RET3=(SALB/100)*AVI:RET4=(SALB/100)*0.3:RET5=(SALB/100)*0.86:RET6=(SALB/100)*1.84 222 FOR I=1 TO 7: PRINT"| | | | | ":NEXT I 224FORI=1 TO 7: PRINTCHR$(11);CHR$(11 :OPEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALARIE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO E%:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOTO95 71 NEXT I 72 PRINTEFF$;" CE NOM N'EST PAS DANS MES FICHES ]";:PRINTUSING"| SALAIRE NET IMP | | | #####.##",SALB-RET1-RET2-RET3-RET4-RET5-RET6:PRINTES$;"\";ES$;"G"; 250PRINTES$;"]"; " ?";ES$;"\" 300 PRINT:PRINT" VOULEZ VOUS IMPRIMER CETTE FICHE ?":A$=INCH$(0) 310 IF A$="O"OR A$="o" THEN PRINT "IMPOSSIBLE | A PAYER | " ;ES$;"\" 221 SALB=HEURE*PHO:RET1=(SALB/100)*ACH:RET2=(SALB/100)*AMA:RET3=(SALB/100)*AVI:RET4=(SALB/100)*0.3:RET5=(SALB/100)*0.86:RET6=(SALB/100)*1.84 222 FOR I=1 TO 7: PRINT"| | | | | ":NEXT I 224FORI=1 TO 7: PRINTCHR$(11);CHR$(11:OPEN OLD"EMB" AS5 50 CURSOR 6,5:INPUT"NOM DU SALARIE :"; NOM1$ 55 PRINTEFF$ 60FOR I=1 TO E%:INPUT#1,NOM$:INPUT#2,NSS$:INPUT#3,ADRESSE$:INPUT #4,VILLE$:INPUT#5,EMB$ 70 IF NOM1$=NOM$ THEN GOTO95 72 PRINTEFF$;" CE NOM N'EST PAS DANS MES FICHES":FORI=1 T):NEXT I 225 PRINTUSING"| SALAIRE BRUT | | | #####.## ",SALB 230PRINT USING"| ASSURANCE CHOMAGE | #####.## | ##.## |### ",RET1,ACH:PRINTUSING"| ASSURANCE MALADIE | #####.## | ##.## ",RET2,AMA:PRINT USING"| ASSURANCE VIEILLESSE | ##### ":FORI=1 TO 10000:NEXT I:CLOSE 1,2,3,4,5:GOTO 10 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES DE PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NSS$ 105 CURSOR 6,5:PRIN IMPRIMANTE NON CONNECTE.....":FOR I=1 TO 10000:NEXT I:GOTO 320 320 PRINT" VOULEZ VOUS UNE AUTRE FICHE ?":FI$=INCH$(0) 330 IF FI$="O"OR FI$="o" THEN GOTO 350 340 CHAIN"1.SALMENU.BAS" 350 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 10 ):NEXT I 225 PRINTUSING"| SALAIRE BRUT | | | #####.## ",SALB 230PRINT USING"| ASSURANCE CHOMAGE | #####.## | ##.## |### ",RET1,ACH:PRINTUSING"| ASSURANCE MALADIE | #####.## | ##.## ",RET2,AMA:PRINT USING"| ASSURANCE VIEILLESSE | #####O 10000:NEXT I:CLOSE 1,2,3,4,5:GOTO 10 80 NEXT I 90 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 200 95 CURSOR 3,25:PRINTES$;"]";" EDITION DES FICHES DE PAYE ";ES$;"\" 100 CURSOR 5,5:PRINT"M. ";NOM$:CURSOR5,60:PRINT"N0 S.SOCIALE:";NSS$ 105 CURSOR 6,5:PRIN.## | ##.## ",RET3,AVI 240PRINTUSING"| PREVOYANCE DECESE | #####.## ",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## ",RET5:PRINTUSING"| RETRAITE | #####.## ",RET6 244PRINTES$;"@";ES$;"]";:PRINT"| | | | |" ;CHR$(11) 245PRINTES$;"@";ES$;"T"ADRESSE : ";ADRESSE$:CURSOR 7,7:PRINTVILLE$ 106 PRINTDATE$ 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE:PRINTES$;"\";ES$;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINTES$;"]":PRINT"| LIBELLE | RETENUES | TAUX  10 EFF$=CHR$(12) 20ES$=CHR$(27) 25 PRINTEFF$ 30CURSOR1,25: PRINTES$;"@";ES$;"]";" EDITION DE FICHE DE PAYE";ES$;"\" 35 OPEN OLD"NBEEMPL" AS12 36INPUT#12,E% 37 CLOSE 12 40 OPEN OLD"SALARIES" AS 1:OPEN OLD"NSS"AS2:OPEN OLD"ADRESSE"AS3:OPENOLD"VILLE" AS 4.## | ##.## ",RET3,AVI 240PRINTUSING"| PREVOYANCE DECESE | #####.## ",RET4:PRINTUSING"| PREVOYANCE MALADIE | #####.## ",RET5:PRINTUSING"| RETRAITE | #####.## ",RET6 244PRINTES$;"@";ES$;"]";:PRINT"| | | | |" ;CHR$(11) 245PRINTES$;"@";ES$;"T"ADRESSE : ";ADRESSE$:CURSOR 7,7:PRINTVILLE$ 106 PRINTDATE$ 200PRINTES$;"@";ES$;"]":INPUT" ENTREZ LE NOMBRE D'HEURE EFFECTUEES";HEURE:PRINTES$;"\";ES$;"G" 210 PHO=28.00:ACH=1.92:AMA=5.6:AVI=5.7 220PRINTES$;"]":PRINT"| LIBELLE | RETENUES | TAUX          ]";:PRINTUSING"| SALAIRE NET IMP | | | #####.##",SALB-RET1-RET2-RET3-RET4-RET5-RET6:PRINTES$;"\";ES$;"G"; 250PRINTES$;"]"; " ?";ES$;"\" 300 PRINT:PRINT" VOULEZ VOUS IMPRIMER CETTE FICHE ?":A$=INCH$(0) 310 IF A$="O"OR A$="o" THEN PRINT "IMPOSSIBLE DURANCE LES ANGLES AAAAAAAA BBBBB  MICHARD FRANCINI AAAAAAAA BBBBBBB  11.08.98 11.24.78 11111111 2222222   IMPRIMANTE NON CONNECTE.....":FOR I=1 TO 10000:NEXT I:GOTO 320 320 PRINT" VOULEZ VOUS UNE AUTRE FICHE ?":FI$=INCH$(0) 330 IF FI$="O"OR FI$="o" THEN GOTO 350 340 CHAIN"1.SALMENU.BAS" 350 CLOSE 1:CLOSE2:CLOSE3:CLOSE4:CLOSE5:GOTO 10 11.12.1963 21.02.1981 AAAAAAAA BBBB  111111111 22222222 AAAAAAAA BBBBBB  3 29 BLD MOLIERE ROUTE DE L'OISELET   2   1 CAUMONT MOLIERE AAAAAAAA BBBBB   4 LES ANGLES SORGUES FRANCINI SABINE         !          HALEUX REYNALD WILLY  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@11.02.1951  111111  111111 222222 !@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # ){H1;1;AP`#!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ CONFINES !GGGGGGGGGGGGG YYYYYY  2  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PDA@p\OGs}_qp@`HB@pNCp~Os~c`@@C`~O|O|Oc`@@@@@@HC~h@@@@@@@Aq_s|_Cp\C@PDA@Cc~osx|NC@`HB@@@@@@@E_pD@@@@@@Ap|O|O|_Ap@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ VEDENE    !!!!!!!!!!! !!!"! !!!!!   VVVVVVVVV RRR !;: I`Nh+++???Comment?Adresse d'execution?Non trouveErreur disque #Disques non pretsGETMONK'd 999~W~g~ͱ~ ~ ~~~~A~+~΁~~ε~~~6~! F P%>7 THEN P%=7 335 FI%=A%(0,0)+1:A%(0,FI%)=P%:A%(2,FI%)=A%:A%(0,0)=FI% 336 IF TRA%=1 THEN PORT6:PRINT"SP";P%;";";:PORT2 340 PRINT CHR$(20);:A$="":RETURN 350 DAS%=VAL(INCH$(0)):IF DAS%>4 THEN DAS%=4:DASH DAS% 360 FI%=A%(0,0)+1:A%(0,FI%)=P%:A%(2,FI%)=A! %)=Y%:A%(2,FI%)=A%:A%(0,0)=FI% 240 CURSOR 9,32:PRINT USING"### ###",X%;Y%:FX%=X%:FY%=Y% 250 A$="":F%=1:RETURN 260 FI%=A%(0,0)+1:A%(0,FI%)=X%:A%(1,FI%)=Y%:A%(2,FI%)=A%:A%(0,0)=FI% 270 A$=CHR$(A%AND(95)):IF A$="T" THEN 290 280 IF A$="C" THEN 300 285 IF !l" THEN GOSUB 500 80 IF A$="T" OR A$="t" THEN GOSUB 220 90 IF A$="C" OR A$="C" THEN GOSUB 220 100 IF A$="P" OR A$="p" THEN GOSUB 320 105 IF A$="D" OR A$="d" THEN GOSUB 350 106 IF A$="A" OR A$="a" THEN GOSUB 220 110 IF A$="-" THEN V%=V%-1:IF V%<1 THEN V 11.12.02 11.11.11 !Ѣ~~I~φ~~~/~~u~)~N~~(篟14LZ&| }(&&N΁zԁ '@|ͼ 6%̡>' '5&n.V ΁~g #"!&$9D_# &m&m' m&0m&! %:A%(0,0)=FI% 370 A$="":RETURN 500 COLOR 0:CLRG:COLOR 7 505 FF%=A%(0,0) 510 FOR D%=1 TO FF% 520 X%=A%(0,D%) 530 Y%=A%(1,D%) 540 A%=A%(2,D%):A$=CHR$(A%) 545 IF A$="p" OR A$="P" THEN 700 550 GOSUB 220 560 NEXT D% 570 A%(0,0)=FF% 600 RETURN 700 COLOR X%:P! A$="A" THEN 315 290 A$="":F%=0:PLOT FX%,FY% TO X%,Y% 295 IF TRA%=1 THEN PORT6:PRINT"PU;PA";FX%*XX;FY%*YY;";PD";X%*XX;Y%*YY;";PU;";:PORT2 296 RETURN 300 A$="":F%=0:PLOT FX%,FY% TO FX%,Y%:PLOT TO X%,Y%:PLOT TO X%,FY% 310 PLOT TO FX%,FY%:IF TRA%=0 THEN 31!%=1 115 IF A%=20 THEN IF TRA%=0 THEN TRA%=1 ELSE TRA%=0 116 IF A%=20 THEN A%=0 120 IF A%=8 THEN X%=X%-V%:IF X%<0 THEN X%=0 130 IF A%=29 THEN X%=X%+V%:IF X%>511 THEN X%=511 140 IF A%=11 THEN Y%=Y%+V%:IF Y%>255 THEN Y%=255 150 IF A%=10 THEN Y%=Y%-V%:IF Y!10 OPEN NEW "FEM" AS1 15 COLOR7:CLRG:COLOR 0 16 X=100:Y=100 20 A$=INCH$(0) 40 IF A$=CHR$(10) THENY=Y-1 45 IF A$=CHR$(11) THENY=Y+1 50 IF A$=CHR$(8) THENX=X-1 60 IF A$=CHR$(29) THENX=X+1 62 IF A$=" " THEN GOTO 80 70 PRINT#1,Y,X 75 GOTO20 80 CLOSE 1 "9'' ' '2#'⧀ &9R& Ό'0& ff A ΀ɍ2'oA0 N'e &\ 'P &n}!&'Զ' "} '4'Z&5| \ X4'ONZ&59}#&}&'}/'}$' S   9 %=X% 710 IF TRA%=1 THEN PORT 6:PRINT"SP";X%;";";:PORT2 720 GOTO 560 ! 4 311 PORT6:PRINT"PU;PA";FX%*XX,FY%*YY;";PD;PA";FX%*XX,Y%*YY;";PA";X%*XX,Y%*YY; 312 PRINT";PA";X%*XX,FY%*YY;";PA";FX%*XX,FY%*YY;";PU;";:PORT 2 314 RETURN 315 A$="":F%=0:ARC FX%,FY%,7, X%,Y%:RETURN 320 CURSOR 10,12:PRINTCHR$(17); 330 P%=VAL(INCH$(0)):I!%<0 THEN Y%=0 160 US$=" COULEUR ### VITESSE ### X ### Y ### #" 170 CURSOR 10,1:PRINT USING US$,P%;V%;X%;Y%;F%; 180 COLOR C%:PLOT X1%,Y1% 190 X1%=X%:Y1%=Y% 200 C%=POINT(X1%,Y1%) 210 GOTO 40 220 IF F%=1 THEN 260 230 FI%=A%(0,0)+1:A%(0,FI%)=X%:A%(1,FI!1 XX=20:YY=28 10 DIM A%(3,2000):FICHE%=0 20 COLOR 0:CLRG:HGR:PRINTCHR$(12);CHR$(20) 30 X%=0:Y%=0:V%=1:P%=7 40 B$=INCH$(-1):B%=ASC(B$):IF B%=215 THEN STOP 50 IF B%<>0 THEN A$=B$:A%=B% 60 COLOR P%:PLOT X%,Y% 70 IF A$="+" THEN V%=V%+1 75 IF A$="L" OR A$="!   """"""""""" """#" """""   "G& G$&G9$~}!D& ") |)4' )$ε|)54}"&}$' }&& 59JM섎̮ 0zM& =K%|K 4K&}J& }' # |J50 DDDD09#~A0%9#A% Z#a%z#994"993& /2149׃&% ]1!Z&9 % "9׃% ]1!Z&֛$~۽ /A%r$~۽ 9%=؎%8&; ّ}' &)ܼ%*@r'4 5% Z& _"9 4 59 m*ݹ$9%7%" !&l '4"5$ŀ'  9% %&945$9 0@9O9& \' ց\'  99˾ % & 5'7'2@& 45$9 9 ;+= &\;& $9]'' 94&  5%4 ;o;" G+? ~r6809 FLEX DISK OPERATING SYSTEM COPYRIGHT (C) 1980 BY TECHNICAL SYSTEMS CONSULTANTS, INC. WEST LAFAYETTE, IN 47906" J?="&ɽA &T 40~t~5CE |(~͸(E nC:9}&n@~gERRORSSYS~ ʬ99+0 Oƹ& 0&0_+ܽ΁εε@'~g" ''  &'獹5oo ԆK4%.&.%(& ?'l##h?m'am*} '   ?9%C9"?m*8$/.9K+%4K5I% 0Z$-'_&]&9]'o0Z ? &0 ?940 & "=1 0Z&5BI"ڽ؎%& Ͻܼ%ʾ o0Z& 2''/41ݩe%>"9 ol/ % n%֛U$۽~˾ 24C% oo;O"9(%oD%~"9 & ֛%9% #9%1' o~ &ۣ % m'ܔ" 59 &"&4!5%}$  "9 O_ BE '&"'Do?%*%&%" ~~ @֛$~۽9 =:m9&9 m&l&lm' ?%ݾ  %Ҿ @45& oooo 1?O l!&l _@0Z& "  ~6~Y~{5 oZ&~ '0 4 ڿ5 $ o 9}' 4$ o&"''մ %&}&#_5$9  # ZXέ $ m5$9قڿ4rA֛e(֕ڃ oՐݹ &9턮oo9' 99" @'40~׾ &@gC~.94+% %Ă%9u% ]'99 >>> LOGO GOUPIL <<< Version 1983 Date (jj,mm,aa)? @STARTUPTXT"NTXTCMDBASSYSBAKSCRDATBACDIRPRTOUT%"&%4xyZ&5\ ߽$99G*** +99%܁9"҄44XIXIXIѐ5\ ='&3. "=M'Ѝ ==Z& @'&2b& 9 #% e%C$9ق%( %# ق% & % Ć 9 95؎%*'$ $0Z&M% &օ`& U9 9 550z& & = 0Z& 9ν؎%& 99 e 9@֛$@&ŀ'    9%^%Z" B 9_4 4 A5@_"9 "& %0 }&D"/"1450Z&9 1"450Z&~֛ #}&1' "#7 #*ݹ%6#ݩ I4$'9 ' *Y&"  &9&9 O_/0Z&9 $0Z&9 4$&0Z&9 T$y#~ "l":@\&9 &Uʀŀ& #:@9 9;+<'jս; 1%"' & #% ; M'9ڭ% '~ٜ9 "' l":@9$9 @l" ~!~~G~Dž~Ǖ~ ;1}4&|4m'1;4 }')4@5oo"o;}')? ﭟ? }0'? |0909}&'&}' '4 <5 &?1 Ԇ + '"m'j~G0@&z~"&9s~5%|L O_9L'~"Ѣ'n_~4@65%TĎ@@%;9 '&]940 'c-&'Xa@m' &.8 n@ & JGGLo !'΁? o_φ5̏΁ ε@"   ########### ###$# #####   # &R`&R׃& '3  %, '%  ۣ%C9  9\<#L&7'L793%0 :&'9@8:5798 % ܡ::51!@0Z&֛$~۽ %F O_ g<_o# E%E"o"o#K~40 W&S& & '' ', % W&#ԍu1? 'ȝ 1? W&&50 f$/"'3:'/['+]' f[' &f`+ f&1! &5f +,SU Vā\&  & e&# 9b7 "$&54P594 7$"!&'!E& 4F5E""$E## ӦD0'!@&B&5BC %%E턟E5Ў'! 9 & |9FčE' |E9EF4pxbtdpči3BC&E &# ' m E&FEE9E&FEE9E&FEE9E&FEEĄ9E&FEE9E&FEE9E턟E9%EE%E"o"o#9#EE#E턆oo9'EE'EĆDBoBoC9;;#턟#;9;;"% ~&~;?9~?~G~G~G~O~:?9 G$x?'4%'$?59? $?9$?9O$_?tZXX: " ?J*9  #@0Z& 9 ' *~ݖ ڭ%F$o&9 'jݛ%O_m't  $,04LT'5'L 4 @E%>55 er4J %<# pour sortir, pour accepter#!] z ! EwA3/E0%d&99 ?@9 BIENVENUE A LOGO-GOUPIL V2.D (C) ACT Informatique 19 :83 $~A%*n&Ӧ$!'!#~& ~~A%<n&#.&U%EE%E"o"o#0$~.`Č&"%EE%E"o"o#~~A$"~n&!!$"~A% n&.$"&#!~$ "&?#&?~~& & & ? &z̮XTP~4rX怟X'&0焟X~W/0焽 ~X~4~1'9POUR  )'a)"&1"' W&1~$='M) &B4@&65@D&+$ VOUS ALLER FAIRE SORTIR LA TORTUE DE L'ECRAN ..! INTERROMPU ERREUR ACCES DZISQUE . DANS [ ]  PLUS DE PLACE | u?':~ ~7&!䦤!~߽1& $!&"~H]Z\IY'     Ľ7&$%D)턆%EE%EJĤ"o"o#Ư)")H' H~IH&m/! :#G"I"$#EEH'9- ʽ %~  Q A3 <M 7j = 8 32 , 7 % 'p %~  FIN  %I Ď % 7 $#%')-/1579=?;{EI 9 W/ ?@:?@~ ƽ Wοd&8? Ľʰ&G975;E%))%#턟#)&#EE#E턆oo) ~ ޽)&I~-)$"&"& -"~ρ%."~A"ڎ'0&$~A"#7&"&'$0'' B~A#$0~1&u!1&l0'$&~߆!'4.5~#.B#~/&4#'47&L9& & &4#~47~$턟 N& M&ֆ>!\ğQS  ~/"4'95 1!B'MB 7 %)!?~.Q4KQQ9 EST DEFINI &)& }/&G'NE$/W~ % 7 '""g 7 fĽ 7$ 54@55455~7&t~7&c~7&R~7&A~7&0~45$~     q r s t9q rErs_c[Er97&b"d^ȍq$' c % 7n %''^E&FE/E#턆$#'EE'EĆDBoBoCyy'py"B"$EE !"'~~RAMENE CAR 32 .?; PANNE !! VOUS AVEZ LA MAINVOUS N'AVEZ PAS DIT QUE FAIRE DE PAS ASSEZ DE DONNEE$&E&FEE%턟%~$ &II-$G#턟#IG&'I~ŞE&FEE#턆$#~ HH&۶* '&KğI=&nI <Ư"#yƯ"#%EE%E"o"o#yy&IE&FE$   %%%%%%%%%%% %%%&% %%%%%   %& &$ Ī&Y ?~/#/55'D$&&&"B 65 L4#L' 5&4~5& G4~Ħ$& D'ڽ"B6f/5' ̽A% "//~!/40651'Ą' )~G&%)&ֱײ ''~'9 &? 9 &?!9 &&}?*?-~& &9&'9&9& '40C50?/4 '/5& ?.9 'ֻ& 9 & 946_#$ # #׸?!ܣ0$$=$I1% &$          %d  % #!Ľ%~ %~!!%|_} 9~_~݀Z݉_ׄ9!!%~"} =}~!}$O~| ~$S\ ކ ڽր  $~܉Z#“9Z$SC"T\9=|~!%~ ~׈~! %~% $hĤ$~bO_d~^# ffZ#ff0S9 Z^O_`ս|bZd\^`9=줗^=^~=$~ #(,159>BFJOSW[_dhlptx|Ĵ%)~/!/ B~ߍ%'#'.~~2~A' %z9A"#47&)"&I) 4#&)"&)2#.))~&pW"'M~&;"'?~A"'~ȽA#~Ƚ&!/~%*'>!ָ''0(tĥ0*1! 1" &?$? ?-5&f&b X'@HPƀ'TJ –·@·H·PX'9? ?$?#)8|?-?$% '      ׻&)n~)&_Ħզ+H' '\0 ƟҖ?$?5?$΄== '0 0 'A0 p''&('''  0 \ \ 0n9&?% $ׇ~!~!="&r"f ݀~O~ր~!=$Z' 'O_99^^`\Z|b9~ ݀  #܉^`܉h^݉9' h݉܉ӦZ^O_`\܉ZhĽϦ%!=!=$& &   ~Z"Z"ZZ$~=!= DONNE " I~  /~ 3$ & +1%%~4 E%'Y DĽf54 "' 53$ ' 1%%~4 E%'>5 4 "'E5 1%%A"#/~߽A"#'/#.~%%~ ~A""$'7!7 )4Ą)KGKI~T ^&`&Z"$~o %~DEBORDEMENT  ^ ЍZ ɍ b&d'B~  &b"d$ &&+L'ȟюʎΎφ9460X Z&X58?8?)4t ο&1?))))))))1? &+ ++Wm &+ &"&:*9' 1#*r&@ ԭ * ++7+#+*%($?# &?$9( 9&?$9 '&' '~( 9& &4050 +g'a&?, = ܥݽܩ&"& ܣݽܧ"ڞ?+?-&?$&9?- ▭?$ &  &~'9&  '~'9% %"? +0 ~! #~#4Z݉~#=~"7օ@' ~Z$ ~!~Z$~!~7#Ć' ܀Z$ ~!܀Z$~!݀9_bOd Z'Z'ZZ9="턦$#~""f"Of q%"%~ % 7 '""g 7 ۽fĽ 7 %  % 7 55 4 4"$& [ 7] &"! 7 &B'B~&"'"~&~'~&l=~31%$$ & ~% Z"\$^`9o %~ &Z"\$9 &^"`$9 (& 4\`+" Z^" 5Q -bd"$~Z_^b\a`d%k9^[Zb`]\d9  Z4\4^Z`\5`5^9=%   &&&&&&&&&&& &&&'& &&&&&   &,*,c,,W,+**+n+W**++~" '9)'*'})&~,9&4 555m>'Ё<'V'v'9)L1+ۆ+0))~.).)'L1!%0))~.9.)' )&~-S9~-})& .'~--9~-'))'~.#~--9)')&&9IXEFOND!FFD!FIXECC"V GOMMECRAYON"GC"FCC"VMT"dCT"sBC"z LEVECRAYON"LC"FIXEPOS"FPOS"DROITE#DR#FIXECAP#FCAP#GAUCHE#GA#XCORI"YCOR"(CAP"/FOND! COULEURCRAYON" CC" MONTR& 6C PRIMITIVE?!U PROCEDURE?!CCONTENU!gTOUCHE? VIDETEXTEVTCARASCIIHASARDECRISPOURPREMIERDONNFERELIEIMIMPRIMETAPEwREPETE SAUFPREMIERSP SAUFDERNIERSDDERN& 3221&k2'+22&݌2&2'2& č~2Uy~20 W/i~25@1&T$0'L!& "' "&",O&4@2222&0222&922&t1׹2922&w@&ލ W&0)))*))9})&z) ?0)' z)0.[H?9?Z&9 )\' 'M' })'.4P1M151!9})&.|) ._ })')9)4Z \'M' )'1! 594})') )P159)) ~,!)))-=4?'5 *5%})&!|))&-)M'+K &~-S~-9.)! ?)]' ~._.!)) ~)') N)).)))-~+#))~.'_)4 &)). )5)~-'6)61!1?.g))\)'+').1!z),ļ&)9 ? ?9?9?9_'})&:E?"nCHARGE1ZRAMENE1SSAUVED1HSAUVE/ CATALOGUE0LECTEUR3 FIXELECTEUR3CLIGNOTEINVERSENORMALSOULIGNJYE.ROUTINEFR#DEFR#XVFR#YgFR#UxFR#CCCR#DCR#XCR#YCR#UCR#CCSO& 7IERCOMPTEITEMVIDE?8MOTDECLISLISTELLRETOURNERETGILISTEEGAL?MEMBRE?SINOM?jCHOSE~MOT?LISTE?NOMMEMETPMETDNOMBRE?EXECUTEETNONOUPH& 4/~ 22&R~X2&*'' 2'&' 2~2'22K' 2'2O"$~ ~LOG3Ľƶ0_$~7&줁 $ѷ0~F~4 444 ST"OP"=4 4W=4( 4-4_42VR"AI&1",_ |)})& )"8,&)~-' '\N&Z!?9m&4"5/i!!9)\' ? ? 9?9/? v % W/̮X )'|/ W)")$'~'(4 "E%$ &' 5  9/$'̮X &.& &!&.)1?)9+#' 4)'So&_\& ;'0 &))O1)54):&5~.Z 5 b})&]}'X),L"N40' 4 *5 1! 50~. ' !' &s). ~+74椧M&o)5~4';RTIE6ENTREE.CONSOLE.EDITEUR.NULLE .IMPRIMANTE.SERIEKIMTOUT XEFFACEP!EFFACEN!*RECYCLE3ED/EDITE/NODES0).DEPOSE%.EXAMINE<LISCAR0JERREUR0ENERREUR0XK4v4KEKK&8RASEPHLOGO s .EFFACETOUTH QUOTIENTRESTE}PRODUITDPRODDSOMME DIFFERENCEuDIFFuVIDECRAN!NETTOIE!ORIGINE!POINT$3FIXEX#FX#FIXEY#AVANCE#AV#RE$RECULE$FY#HVE!F& 5"4< 4A4d4FFA"UX"4P 4U====4n 4s4x(!0=4 44)!=44a 44+!=4 44-!u=4 44*!D=4 44/!=4 44()"=EFINIMTS IMNS INF?SUP?DETRUIS1&2W/W/?~1HE'0 $~0O"!$~&a'''' 0' w~ A~)"4}'p'޽5"B$D1'"4}' 4i& p p&֞5)4" ~0222&f&/ ? ?.1?.gW5& ?~.H- U4 ? ?.)'1!- ?5 '0)9 Z?z?) L?) L?-9_/A45z)})') )S0.e)% P)0)9))9|).1!!.)% ))09)0)9})&! ')M& ? ?)|)9 ?|)9})'&   ''''''''''' '''' '''''   '<0K1!0zK&K0K0K L6K&þKC5K 1%!1%1%0=KK!KKD$!3E1!1zK'"3E1"1zK'zK&0LK9 NNNO O OON&ݶO3&3O4' &(d9O5'POUR DEBUT VE CT DONNE "CL 1 REPETE 20 [FCC :CL CARRE 60 DONNE "CL :CL + 1 DR 20] COMENT1 VE VT CT DONNE "CL 1 COMENT2 REPETE 20 [FCC :CL ROND DONNE "CL :CL + 1 SI EGAL? :CL 8 [DONNE "CL 1] DR 20] DONNE "BL LISCAR DONNE "A 50 VE CT REPETE 30 [FCVE ' .D. o_~9& 0Z&9 D00Z&9$@&~ˍ ~~m &@ 4 N 5 @&;m*~K'~W;@4455@m'lLOGO '=O7&~O5 NN&~Lr0M%MMM ?  $~@ }'ݽ$ | Zm'>TELEPHONES UTILES : RENSEIGEMENT COMPOSER LE 12 RECLAMATIONS N3 COMPOSER LE 13 POMPIER COMPOSER LE 18 SMT GOUPIL LE 533.61.39 LOGO-GOUPIL est sous copyright ACT Informatique ?ECRIS "LOGO-GOUPIL GOUPIL :B DR 180 - 60] FIN POUR CIBLE VE FFD 4 CT LC FIXEPOS "-50 "-50 BC DONNE "CL 1 DONNE "X 60 REPETE 19 [FCC :CL REPETE 180 [AV :X RE :X DR 2] DONNE "CL :CL + 1 DONNE "X :X - 3 AV 9 DR 90 AV 9 GA 90] FIN POUR COMENT1 VT REPETE 30 [TAPE CAR ( 32 ) 7„:~H%]']9DATE (JJ,MM,AA) ? ".' 4''5_]9 Cop֢ie OK. ---- Copie terminee ---- Vers unite No Fichier inconnu! Fichier deja existant Original a effacer (O/N) ?  Etes-vous sur ? STARTUPTXT'&ަC'׾!$.' Ё9# o0Z&.' -% |'% 0Z* oC&{$&cm'e+m+ D}&,DA=='0=AM'Šġ&0A @ >% C &~~$00o_9? SANS LOGO ?'   ' ,$48,$48,$48,$40 F FCB $3E,$41,$45,$45,$47 G FCB $7F,$08,$08,$08,$7F H FCB $00,$41,$7F,$41,$00 I FCB $02,$01,$01,$01,$7E J FCB $7F,$08,$14,$22,$41 K FCB $7F,$01,$01,$01,$01 L FCB $7F,$20,$18,$20,$7F M FCB $7F,$10,$08,$04,$7F N FCB $3E,$41,$41,' FCB $60,$10,$0F,$10,$60 Y FCB $43,$45,$49,$51,$61 Z FCB $7F,$7F,$41,$41,$41 [ FCB $20,$10,$08,$04,$02 \ FCB $41,$41,$41,$7F,$7F ] FCB $10,$20,$40,$20,$10 ^ FCB $01,$01,$01,$01,$01 _ FCB $02,$04,$08,$10,$20 / FCB $12,$15,$15,$15,$0F a FCB $7F'$09,$00 k FCB $00,$40,$7F,$00,$00 l FCB $1F,$10,$1F,$10,$0F m FCB $1F,$10,$10,$10,$0F n FCB $0E,$11,$11,$11,$0E o FCB $1F,$14,$14,$14,$08 p FCB $08,$14,$14,$14,$1F q FCB $1F,$10,$10,$10,$08 r FCB $09,$15,$15,$15,$12 s FCB $10,$7E,$11,$11,$00 0,$40,$00,$40,$00 ~ FCB $7F,$7F,$7F,$7F,$7F DEL FCB $3E,$41,$5D,$4D,$39 END  ADVISU EQU $E7F8 AXEX EQU ADVISU+3 AXEY EQU ADVISU+1 COUL EQU ADVISU+4 CRTC EQU ADVISU+6 MEMX RMB 2 BUFF RMB 45 ABUFF FDB BUFF EBUFF EQU POSX EQU BUFF POSY EQU BUFF+1 GPOINT FDB BUFF+3 GSIZE EQU BUFF+2 GLENGT FCB 0 GTEMP RMB 2 GSVX RMB 1 GSVY R' FCB $14,$14,$14,$14,$14 = FCB $00,$41,$22,$14,$08 > FCB $20,$40,$4D,$50,$20 ? FCB $12,$55,$35,$15,$0F FCB $1F,$24,$44,$24,$1F A FCB $7F,$49,$49,$49,$36 B FCB $3E,$41,$41,$41,$22 C FCB $7F,$41,$41,$41,$3E D FCB $7F,$49,$49,$49,$41 E FCB $7F' $41,$3E O FCB $7F,$48,$48,$48,$30 P FCB $3E,$41,$45,$42,$3D Q FCB $7F,$48,$4C,$4A,$31 R FCB $32,$49,$49,$49,$26 S FCB $40,$40,$7F,$40,$40 T FCB $7E,$01,$01,$01,$7E U FCB $7C,$02,$01,$02,$7C V FCB $7F,$02,$0C,$02,$7F W FCB $63,$14,$08,$14,$63 X',$09,$09,$09,$06 b FCB $0E,$11,$11,$11,$11 c FCB $06,$09,$09,$09,$7F d FCB $0E,$15,$15,$15,$09 e FCB $08,$3F,$48,$48,$48 f FCB $09,$15,$15,$15,$1E g FCB $7F,$08,$08,$08,$07 h FCB $00,$11,$5F,$01,$00 i FCB $02,$01,$5E,$00,$00 j FCB $7F,$02,$06,'t FCB $1E,$01,$01,$01,$1F u FCB $18,$06,$01,$06,$18 v FCB $1E,$01,$02,$01,$1E w FCB $11,$0A,$04,$0A,$11 x FCB $10,$08,$07,$08,$10 y FCB $11,$13,$15,$19,$11 z FCB $0E,$15,$35,$55,$09 { FCB $1E,$41,$21,$01,$1F | FCB $0E,$55,$35,$15,$09 } FCB $0'/