Micro Systèmes n°29 mars 1983
Micro Systèmes n°29 mars 1983
  • Prix facial : 20 F

  • Parution : n°29 de mars 1983

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 206

  • Taille du fichier PDF : 168 Mo

  • Dans ce numéro : Forth... un langage sans programmes.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 140 - 141  |  Aller à la page   OK
Pages suivantes >
140 141
10 REm 15 REM 20 REM 25 REM f3i7 sFm 45 REM 50 REM 55 REM 60 REM 65 REM 70 REM 95 950 954 980 990 1000 M'et HICRO-SYSTEMES t PIERRE CUVELIER REM INITIRLISRTIONS 100 LET RS="USINOR RtIONE POU LEUROPE 1 S.N.C,F. ELF RQUITRH E'4 EL FRRLOTUS RENRULT PEC HINEY STRRFOR 102 LET 8$=-0010002100450032001 100340400220000450054- 120 LET DS=-01.018"3- 130 LET G$=-0000000000000000000 000000000000000000000- 140 SLOW 150 LET C=0 160 LET R2=0 900 GOTO 990 902 FOR T=I TO 100 903 NEXT T 904 RETURN 950 CLS 951 FOR I=1 TO 22 PRINT NEXT I RETURN CLS GOSUS 950 PRINT RT 4 1 ; - 101e PRINT -ammimmummiuMMIemmi BMIIMMUMMIMM 1015 PRINT - fflfflemeemmir 1020 PRINT -Olimmilimmimmimmumm ammemimme mmeimmàmmir -MMIIMMIIMMUMMIMMUMMU -sammommiqualumman 102,à- -MMUMMMMMiliMMUMMMMii• 1027 PRINT -nummummummimmilm inimnaminue  : Lozu -ufflieunimgar Eke ; MMMummumm- ao-"Ï PRINT -ffilMMIMUMMMUMMIMMIIM 100G PRINT "mummimmummimmieummummine- 1040 PRIM ! "MMIMMIMMMMMIMMIIMMB - - - 1 1050 GO5UB 901 1099 CL5 1100 FOR 1=1 TO INT (LEN A$/00,4- 1 et —s• ae.-.am.• - 1105 FAST 11 10 PRIM,- 1115 FKINT " 11:20 PRINT " 130 FOR T=1 TO 10 1105 PRINT 11" ; TAS 01 ; -11- 1140 NEXT T 1145 PRINT 1146'.1r,L13U Fig. 6. - Le listing du programme. -r ç.Ii50 PRINT AT 1,22 ; -UOgeRg" ; I 1170 FOR K=1 TO 1175 PRINT AT 2*K-1-2,2:CHR$ E 5TR$ JRL 5TR3 K+123e ; 1100 PRINT TS0 5 ; 13$t(I-1 1 *02+4* TO t I-1.4024.4*K) ; 1190 PRINT TSB 1Z ; R$NiI-1*80+1 0*tK-1)+1) TO ; 1-1)*00+10*K) ; 1191 PRINT TAO 23 ; "  : " ; OSt(tI-1) *32+4Ÿ  : K-1i.124-4*K) ; 1195 IF LEN R$=(I-1)*60+10*K THE N GOTO 1250 1200 NEXT 1210 PRINT RT i220 00 2. 10 eL5 1w40 NEXT I 1250 PEINT ST 2e_e-, me.g.. ».-immomplememmummir 1255 GO5U0 901 1260 IF INKEY$="P" THEN PRUSE 90 00 1270 IF C-)0 THEN GOTO 1500 1300 REM GuSuB 901 IF Imer.Lys —P — TTfEN PAUSE LLI- A:2-0 UU ; BUL) 950 PRINT AT I 1 -rummummummu 1370 PRINT'4.4.itâtmi »,  : îael@baucerumaimmummmEcioug immimmummmummffla 11QU AMMUfflainneeMMUMMq2Mq -JJA-mammimmimiumumeemem• 14-20 PRINT "MMMMM9MMIMME5MMRRMSS 3MMUMMMMMMW 1425 PRIT "fflimmimmieufflemu.1- CAT cv•, 1420 PRINT "121.1111.1.11111.111fflaggifflalig ammummummr 1429 PRINT - mummemmummr 400 PR IF -2.11MMMEMMMUMMEMZMR MRMEMWMAIMr 14-35- PRImr -Iummummimmimmumme immummume• I4n PR N -aummEmmummumEvemme 1401PRI,T  : 11MINIMMIIMMUMMIMMIMMIR L440 PRI-MT - 1.450 PRINT SI 20 1 ; "MMIMMMIMMUMWM 1460 IF IM ! -:.L•:"e " TH1 riT 11 300 unLm utyru 1.1 71.1 ri= UL1 TU P'10 li 14.'5 IMit.LY$."4" ? I ! LN% -r20 0 1400 IF INKEY$<>"1" OR INnEYS<>" 2" OR INKEYS.:>"3" OR INKLY3<>"4" [HEM 1.00 140 - MICRO-SYSTEMES Mars 1983 LLT
WRINI RIC,,, ; "URRVLI, VUU R VEZ FRIT" 1525 FOR T=I TO 1530 ii O ITIEN LEI UNL PE RTE DE " 1340 C>0 THEN LEI L$=- UN taIRI N DE " -SIN ? AT 9.9:EM:U  : 0 MIEN PRIM ! HI 9.14  : 1370 PAINT A 13U0 NLy.T l'143 H PRI !'-T RT 9,0 ; -,mm=mminummum PRIN - ? PHIN) :..:HLLUR DE E—HCIIUN 21 0 LEN H$.. 2170 PRINT AT 4,11 ; R$iiiI-1)*1c) +1 TO I*10) 2100 INPUT S$ 2165 IF 5$="" THEN LET 5$="0" 2120 PRINT RT 11,22.5$. ; " 2200 LET M=H+VRL 5$*VAL TO I*4 e2-20 NEXT PRU5F 30 ri.-CrUle 9.5G PRINT Rf 7.et"vHLLUK WOR Tt  : EL RU" 2230 2t 0 2270 PRINT AT 14,9 ; H ; " FRANCS" 2900 GOSUB 901 2999 GOTO 1300 3000 REM OPERATIONS 3015 LET R1=0 3020 CLS 3030 GOSUS 950 3040 PRINT RT 36 eRINT T Uutà.U. F - 3tie7 0 Ph -NT `11111111.1.111111MMIMMM 3075 PRINT - zeclo PRINT leIMMIMMUMMMUMMIMIMMR emmummummr 3100 IF INKEY$=— THEN GOTU 310 3110 IF INKEY$="1" THEN GOTO 350 0 3115 IF INKEY$="2" THEN GOTO 400 0 3500 REM ACHAT 3505 LET F$="" 3510 CLS 3520 PRINT „,,TA0 13 ; - 3500 PRINT,,,, "5— RGIT-IL D— UN E NOUVELLE RCTION" 3535 PRINT „-(0./N) ? " 3540 IF INKEY$="" THEN GOTO 3540 3545 IF INKEY$="N" THEN GOTO 386 0 Fig. 6 (suite) Mars 1983 3560 PRINT, „,"NOM DE L— RCTION 3570 3575 3580 3590 3600 3610 3620 3630 0640 3650 s ? 3660 3670 3680 3685 It• 3690 3700 3710 INPUT E$ IF E$="" THEN GOTO 1300 IF LEN E$<10 THEN GOTO 3600 LET E$=-E$(1 TO 10) FOR I=LEN E$+1 TO 10 LET F$=F$+" NEXT I LET E$=ES+F$ PRZUT ES PRINT „„"NOHORE D— RCTION INPUT R PRINT R PRINT „„"COUT UNITAIRE Y" PRINT "COMPRIS LES FRAIS ? INPUT 0 PRINT U 3720 IF INKEY$=— THEN GOTO 3720 3700 IF INKEY$=-N - THEN GOTO 350 3700 LET R$=A$+E$ 3790 LET.7.$=51R$ H 3800 LET F$="" 3810 FOR I=LEN Z$+1 TO 4 3815 LET F3=F$+-0" 3820 NEXT I 3625 LET 8$-83+F$+Z$ 3830 LET 3835 LET Zg=STR$ 5 3040 FOR I=LEN Z$+1 TU 4 3845 LET Fg=F3+"0" 3850 NEXT I 3052 LET 0$=0$-FF$+Z$ 3054 GOTO 1320 3800 PRINT „„"NOM 0E L" "ACTION 0065 INPUT zg 3070 GOSUO 9000 3875 CLS 3880 PRINT TAB 13 ; Z$ 3890 PRINT „fi,-VOUS POSSEDEZ " ; 8$((I-1)*4+1 TO I*4) ; " ROTIONS" 3095 PRINT „"A UN COUT MOYEN UN'TRIPE PONDERE" 3900 PRINT „-DE " ; 0$((I-1)*4+1 TU I*4) ; " FRANCS" 3901 IF R1=1 THEN GOTO 4050 3905 PRINT „„"COMBIEN EN RUEZ- VOUS ACHETEE5 ? " 3910 INPUT 3915 PRINT, R 3920 PRINT „"A QUEL PRIX ? 3925 INPUT 8 3927 PRINT 8 3930 PRINT 3935 IF INKEYS="" THEN GOTO 3935 3940 IF INKEY$<›"N" THEN GOTO 39 55 3945 CLS 3950 GOTO 3880 3955 LET F3=" 3951= LET i`1 =VAL 8S((I-1)*4+1 TO I *4 ? *VAL EIS(I-1)*4+1 TO I*4J+R*8 3957 LET M=Mr(R+VAL 0g(II-1)*4+1 TO I*4)) 3960 LET ZS=STRS LET VS= « " 394 fDR Ze+1 TU 4 3960 LET F$="0"+F$ 3970 NEXT T 3971 LET Z$=F$4-Z$ 3972 LET 0$(ÇI-1)*4+1 TO I*4)-Z$ 3980 LET M=(R+VAL 8$((I-1)*44-1 T O I*4)) 3981 LET F$1" 3962 LET Z$=STR$ M 3984 FOR T=LEN Z3+1 TO 4 MICRO-SYSTEMES - 141



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


Micro Systèmes numéro 29 mars 1983 Page 1Micro Systèmes numéro 29 mars 1983 Page 2-3Micro Systèmes numéro 29 mars 1983 Page 4-5Micro Systèmes numéro 29 mars 1983 Page 6-7Micro Systèmes numéro 29 mars 1983 Page 8-9Micro Systèmes numéro 29 mars 1983 Page 10-11Micro Systèmes numéro 29 mars 1983 Page 12-13Micro Systèmes numéro 29 mars 1983 Page 14-15Micro Systèmes numéro 29 mars 1983 Page 16-17Micro Systèmes numéro 29 mars 1983 Page 18-19Micro Systèmes numéro 29 mars 1983 Page 20-21Micro Systèmes numéro 29 mars 1983 Page 22-23Micro Systèmes numéro 29 mars 1983 Page 24-25Micro Systèmes numéro 29 mars 1983 Page 26-27Micro Systèmes numéro 29 mars 1983 Page 28-29Micro Systèmes numéro 29 mars 1983 Page 30-31Micro Systèmes numéro 29 mars 1983 Page 32-33Micro Systèmes numéro 29 mars 1983 Page 34-35Micro Systèmes numéro 29 mars 1983 Page 36-37Micro Systèmes numéro 29 mars 1983 Page 38-39Micro Systèmes numéro 29 mars 1983 Page 40-41Micro Systèmes numéro 29 mars 1983 Page 42-43Micro Systèmes numéro 29 mars 1983 Page 44-45Micro Systèmes numéro 29 mars 1983 Page 46-47Micro Systèmes numéro 29 mars 1983 Page 48-49Micro Systèmes numéro 29 mars 1983 Page 50-51Micro Systèmes numéro 29 mars 1983 Page 52-53Micro Systèmes numéro 29 mars 1983 Page 54-55Micro Systèmes numéro 29 mars 1983 Page 56-57Micro Systèmes numéro 29 mars 1983 Page 58-59Micro Systèmes numéro 29 mars 1983 Page 60-61Micro Systèmes numéro 29 mars 1983 Page 62-63Micro Systèmes numéro 29 mars 1983 Page 64-65Micro Systèmes numéro 29 mars 1983 Page 66-67Micro Systèmes numéro 29 mars 1983 Page 68-69Micro Systèmes numéro 29 mars 1983 Page 70-71Micro Systèmes numéro 29 mars 1983 Page 72-73Micro Systèmes numéro 29 mars 1983 Page 74-75Micro Systèmes numéro 29 mars 1983 Page 76-77Micro Systèmes numéro 29 mars 1983 Page 78-79Micro Systèmes numéro 29 mars 1983 Page 80-81Micro Systèmes numéro 29 mars 1983 Page 82-83Micro Systèmes numéro 29 mars 1983 Page 84-85Micro Systèmes numéro 29 mars 1983 Page 86-87Micro Systèmes numéro 29 mars 1983 Page 88-89Micro Systèmes numéro 29 mars 1983 Page 90-91Micro Systèmes numéro 29 mars 1983 Page 92-93Micro Systèmes numéro 29 mars 1983 Page 94-95Micro Systèmes numéro 29 mars 1983 Page 96-97Micro Systèmes numéro 29 mars 1983 Page 98-99Micro Systèmes numéro 29 mars 1983 Page 100-101Micro Systèmes numéro 29 mars 1983 Page 102-103Micro Systèmes numéro 29 mars 1983 Page 104-105Micro Systèmes numéro 29 mars 1983 Page 106-107Micro Systèmes numéro 29 mars 1983 Page 108-109Micro Systèmes numéro 29 mars 1983 Page 110-111Micro Systèmes numéro 29 mars 1983 Page 112-113Micro Systèmes numéro 29 mars 1983 Page 114-115Micro Systèmes numéro 29 mars 1983 Page 116-117Micro Systèmes numéro 29 mars 1983 Page 118-119Micro Systèmes numéro 29 mars 1983 Page 120-121Micro Systèmes numéro 29 mars 1983 Page 122-123Micro Systèmes numéro 29 mars 1983 Page 124-125Micro Systèmes numéro 29 mars 1983 Page 126-127Micro Systèmes numéro 29 mars 1983 Page 128-129Micro Systèmes numéro 29 mars 1983 Page 130-131Micro Systèmes numéro 29 mars 1983 Page 132-133Micro Systèmes numéro 29 mars 1983 Page 134-135Micro Systèmes numéro 29 mars 1983 Page 136-137Micro Systèmes numéro 29 mars 1983 Page 138-139Micro Systèmes numéro 29 mars 1983 Page 140-141Micro Systèmes numéro 29 mars 1983 Page 142-143Micro Systèmes numéro 29 mars 1983 Page 144-145Micro Systèmes numéro 29 mars 1983 Page 146-147Micro Systèmes numéro 29 mars 1983 Page 148-149Micro Systèmes numéro 29 mars 1983 Page 150-151Micro Systèmes numéro 29 mars 1983 Page 152-153Micro Systèmes numéro 29 mars 1983 Page 154-155Micro Systèmes numéro 29 mars 1983 Page 156-157Micro Systèmes numéro 29 mars 1983 Page 158-159Micro Systèmes numéro 29 mars 1983 Page 160-161Micro Systèmes numéro 29 mars 1983 Page 162-163Micro Systèmes numéro 29 mars 1983 Page 164-165Micro Systèmes numéro 29 mars 1983 Page 166-167Micro Systèmes numéro 29 mars 1983 Page 168-169Micro Systèmes numéro 29 mars 1983 Page 170-171Micro Systèmes numéro 29 mars 1983 Page 172-173Micro Systèmes numéro 29 mars 1983 Page 174-175Micro Systèmes numéro 29 mars 1983 Page 176-177Micro Systèmes numéro 29 mars 1983 Page 178-179Micro Systèmes numéro 29 mars 1983 Page 180-181Micro Systèmes numéro 29 mars 1983 Page 182-183Micro Systèmes numéro 29 mars 1983 Page 184-185Micro Systèmes numéro 29 mars 1983 Page 186-187Micro Systèmes numéro 29 mars 1983 Page 188-189Micro Systèmes numéro 29 mars 1983 Page 190-191Micro Systèmes numéro 29 mars 1983 Page 192-193Micro Systèmes numéro 29 mars 1983 Page 194-195Micro Systèmes numéro 29 mars 1983 Page 196-197Micro Systèmes numéro 29 mars 1983 Page 198-199Micro Systèmes numéro 29 mars 1983 Page 200-201Micro Systèmes numéro 29 mars 1983 Page 202-203Micro Systèmes numéro 29 mars 1983 Page 204-205Micro Systèmes numéro 29 mars 1983 Page 206