ZXTape! 2gInitiation au basic 2 Infogrames 1984French EducativeNone Original Tape4 Tapes collectioninit10 UUAW: 1000:9 ,0;2;6;1;" ARRETEZ LE MAGNETOPHONE ":p=1000:1100L:1000 b1000:2000:a1=14:a2=16:p1=5:b1=0:e1=1:1050 kp=400:1100L:21004:20,3;0;6;"ENCORE":1100L:21004 (p=600X:1100L:1000:2000:2010:0,3;5;2;"ORDINOGRAMME PROGRAMME": 2Xa1=14:a2=19:1050:a1=20:a2=20:e1=2:1050 26x1=x1+1 >i: b=((17-(a$))/2):11 -i*2,0;6;2;b;a$:4,88X+i*16:128,0:0,-8:-128,0:0,8 :i<571G,88X+i*16:0,8  a$,b$,cp:11 ,0;6;" ":i=62-1:c$(i)=c$(i-1):t$(i)=t$(i-1):i:c$(1)="":t$(1)="":c$(1)=a$:t$(1)=b$ ri=05:a$=c$(i+1):2200:11 -i*2,18;6;2;t$(i+1):i ?cp=1nb=1:y2=23:d=8:x1=18: cp=22030: 2cp=3x1,22;7;2;"o": cp=4172,y2: Dcp=5172,y2:568,d:d=d-8:y2=y2+8: Bcp=7nb=nb+1:x1=x1-1:nb<55030 cp=7 'cp=8x1=22:nb=1: (8cp=9 15,x1;7;" ":x1=x1+1: 23cp=10 15,x1;7;2;"o": <4cp=11 nb=nb+1:nb<85090 Acp=11 Fcp=12 Fi=1419:i,20;7;5;"!@#$%&'()+":i: '.1}L,10 :.1}L,5: ."voici","l'EXECUTION d'un","petit programme" n"Le deroulement du"," PROGRAMME","ci-dessus provoque","ceci :",""," a chaque etape","PRESSEZ UNE TOUCHE" ,"EXECUTER 5 FOIS","1 FOR i=1 TO 5",1 #"EFFACER L'ECRAN","2 CLS",2 ,"PLACER UN ROND","3 PRINT""o"" ",3 *"PLACER UN POINT","4 PLOT X1,Y1",4 ("TRACER UN TRAIT","5 DRAW l,d",5 ""JET SUIVANT","6 NEXT I",7 ,"EXECUTER 8 FOIS","7 FOR i=1 TO 8",8 +"EFFACER UN ROND","8 PRINT "" """,9 +"PLACER UN ROND","9 PRINT ""o""",10 % "JET SUIVANT","10 NEXT I",11 "FIN","11 STOP",12 init11 @6W ::4500 1000:t=1000 a1=0:a2=2:b1=0:p1=6:e1=2:1100L:4000:1050:a2=8:e1=1:1100L:4000:1050 a2=12 :e1=3:1100L:4000:nb=5:8000@:1060$:5030:a2=21:e1=0:1100L:1050:i1=1:j1=25:3000 (1000:a2=5:a1=0:a2=1:1100L:e1=2:a2=3:1100L:4010:1050:a2=7:e1=1:1100L 2 1200:1050:1300:a1=5:a2=6:1100L:a2=8:e1=2:1100L:4020:1050:3,12 ;6;2;"P$( ,6)";7,0;"(6=nbre de caract. alloues/nom)" <1050:a1=5:a2=6:1300:e1=1:1100L:3,15;6;3;"20":4020:8010J:1350F F1050:5090:a1=21:a2=21:1100L:a2=0:1300:4020:1400x:1050:21,0;6;" " Pt=1000:5100:1300:a1=0:a2=3:e1=0:1100L:8,9 ;6;2;"P$":4020:1050:a2=4:e1=2:1100L:8,11 ;6;2;"(10)";21,13 ;6;2;1;"^" Z1360P:nb=8:2000:5110:1050:a2=5:e1=3:1100L:8,15;6;2;"=""TAYLOR""":4020:1050 d`1300:a1=0:a2=4:e1=0:1100L:4020:1050:1440 n1p1=0:5130 :t=1000:21004:a1=0:a2=6:e1=7:1100L:4020:1050:a2=14:e1=6:1100L:4020:1050:a2=16:e1=4:1100L:4020:1050:a2=19:e1=3:1100L:4020:1050 x2i1=20:j1=25:3000 :21004 c21004:7,0;0;2;"VOULEZ-VOUS REVOIR CE CHAPITRE ? (O/N)" i=1502:i k$=:k$=""140 k$="O"k$="o"::10 E10 ,0;0;6;" ENCLENCHEZ LE MAGNETOPHONE" ""  6:6:2:: h=1t:h: $Qi=0nb-1:j=07:a:144+(i*8)+j,a:j:i: L3i=a1a2:c$:i,b1;p1;e1;c$:i:a1=a2+1: Pi=10 20:i,0;0;" ":i b=1258 Gk=2016-1:l=bb+5:k,l;7;" ";:l:k b2=b:m=60-2:k,b2-1;0;2;(146):n=1m:k,b2+n-1;2;" ":n:k,b2+m;0;2;(147):k=k-1:b2=b2+1:m 14,b+5;7;2;(147);13 ,b+5;" ";17,b+1;6;" ";18,b+1;" ";19,b+4;4;" ";20,b+4;" " h(b+1)*8,39':14,0:0,-15:-14,0:0,15 ,13 ,b;0;5;(148)  b: Ki=a29 :i,0;6;" ":i: F{i=1258:c$,z:16,i;7;2;c$;19,i+2;3;z:i=9 z1=z:p$=c$ Ki: Prc$=" ":i=1258:16,i;7;2;c$;19,i+2;3;" ":i: x8010J:c=1:n=12:i=09 :c$,z:i,c;6;2;"N."+z+" "+c$:.1}L,-5:i:c=c+19:n: s7,0;6;3;"AU NUMERO";8,0;"HABITE M.";9 ,17;"P$( )="" """ q=14:1360P:8010J:nb=(*17):2000:7,10 ;6;2;z1;9 ,20;1;z1:.1}L,5:1050:8,9 ;6;2;p$;9 ,25;1;p$:.1}L,5 |1050:7,10 ;6;" ";8,9 ;" ";9 ,20;" ";9 ,25;" ":q 18010J:i=1nb:c$,z:i:1350F: 40:0:5:: i1,j1;5;3;1;"PRESSEZ";i1+1,j1;" ENTER ":.1}L,5:.1}L,5:.1}L,5:.5,2: =""3010 1i1,j1;p1;" ";i1+1,j1;" ": 9.5,2:.1}L,0:.5,-5: 8.5,2:.1}L,0:.5,5: '.1}L,0:.1}L,-5: \1000:9 ,0;6;2;1;" ARRETEZ LE MAGNETOPHONE " &t=1000:1050:1000 xi=02504:i,i/4+480:30-(i*0.208~T),0:0,-(30-i*0.208~T) k$=:k$"" i vi=02504:i,136-i/4:30-(i*0.208~T),0:0,30-i*0.208~T k$=:k$"" i zi=2500-4:i,144-i/1.5@:30-i*0.208~T,0:0,-(30-i*0.208~T) k$=:k$"" i zi=2500-4:i,168-i/1.5@:30-i*0.208~T,0:0,-(30-i*0.208~T) k$=:k$"" i  R" ET SI NOUS VOULIONS"," UTILISER BEAUCOUP"," DE VARIABLES ?" ""," Il faut savoir que, lorsqu'on","dit Ko (Kilo-Octets), on parle","de mille wagonnets (ou de mille","cases ) pouvant contenir chacun","une LETTRE ou un NOMBRE." _""," C'est-a-dire,que votre micro-","ordinateur,possede environ 48000","wagonnets (48 Ko)." ""," Sa capacite a MEMORISER des","DONNEES n'est donc pas illimitee","Ceci nous pose donc un probleme,","si nous voulons creer, par exem-","ple,une LISTE des locatataires","d'une rue.Si dans la rue, il y a" E"20 habitants,il faudra dire a la","machine de RESERVER la place." J" Cette RESERVATION sera obtenue","par l'instruction :",""," DIM" ["","Dans un premier temps, imaginons","que la rue ne comporte que des","petites villas." \"La variable designant les habi-","tants de la rue de PARIS sera :",""," P$" D" Or, il y a 20 habitants dont","voici les premieres maisons :" $"NOUS POUVONS DONC LOGER LES GENS" b"Que va faire le FACTEUR pour sa","DISTRIBUTION :","","Il sait que rue de PARIS","AU NUMERO 10" "HABITE M. TAYLOR" " Et ainsi de suite.Il est alors","possible de rappeler n'importe","quel NOM de la rue, en utilisant","son numero d'adresse, et ceci","instantanement"  " Nous venons de construire un","TABLEAU de DIMENSION 1. Celui-ci","contenait des noms, c'est-a-dire","des DONNEES ALPHANUMERIQUES,mais","il pourrait tout aussi bien con-","tenir des donnees NUMERIQUES (en","changeant la reservation)." ""," Le principe de STOCKAGE des","donnees est simple : il consiste","en la CORRESPONDANCE entre une","colonne de chiffres(INDEX) et la","liste de MOTS ou de NOMBRES qui","seront les valeurs.On definit de","cette maniere :",""," un TABLEAU UNICOLONNE" O" Chaque donnee est rappelee par"," le CHIFFRE-INDEX","lui correspondant" @m0,0,252,252,252,252,0,0,0,0,63?,63?,63?,63?,0,0,1,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,255,3,12 ,513,220,480,208,16,16 JR"MASEUR",1,"FAURE",2,"CHAIX",3,"MICHON",4,"CABOT",5,"COTE",6,"WAYNE",7,"EMDIS",8,"FARCE",9 ,"TAYLOR",10 ,"FRISE",11 ,"DUFIL",12 ,"ARET",13 ,"ORDRE",14,"CHEVAL",15,"GRATIN",16,"MAJOR",17,"INDIAN",18,"AJONES",19,"CARNOT",20 t!FK  $a! xz c'PFRISECARETinit12 +A ::4500 1000:t=1000 a1=0:a2=1:e1=2::p1=7:1100L:4000:1050:a2=7:e1=1:1100L:4000:1050:a2=12 :e1=3:1100L:4000:1050:i1=15:j1=12 :3000 (1000:nb=3:8000@:1060$:5030:t=1000:1200:a1=0:a2=2:e1=1:p1=7:1100L:4010:1050 2 4,8;7;2;"DIM P$( , ,10)":4010:1050:a1=6:a2=6:e1=3:1100L:4010:4,15;7;1;"a":1050:a2=7:1100L:4010:4,17;7;1;"b" 7s8,0;7;2;"Le dernier chiffre est le nombrede caracteres alloue aux donnees":1050 <1050:1300:8010J:1350F:5050:a1=0:a2=1:e1=1:1100L:1,20;7;2;d$;7,13 ;0;"P$( , )" F1050:3,1;7;2;"ALLER AU NUMERO ";3;z1;7,16;2;z1:4020:1050:4,1;7;2;"MONTER A L'ETAGE NO.";3;z2;7,18;2;z2:4010:1050 Pj1300:1370Z:a1=0:a2=0:e1=1:1100L:k=16:1400x:k Z5070:1000:a1=0:a2=4:e1=3:p1=7:1100L:t=1000:1050:a2=9 :e1=1:1100L:a2=10 :e1=2:1100L:1050:1450 d; 16,14;7;3;"---->":1500 n21050:i1=20:j1=13 :3000 xI1000:1200:a1=0:a2=2:e1=2:1100 L k$=:k$=""130 k$"O"k$"o"170 $1000:1200:2000 1000:i=1502:i:10 ,0;7;2;"VOULEZ-VOUS REVOIR CE CHAPITRE ? (O/N)"  i=120:i k$=:k$=""180 k$="o"k$="O"::20 D13 ,0;7;1;" ENCLENCHEZ LE MAGNETOPHONE" ""  7:7:1:: h=1t:h: $Qi=0nb-1:j=07:a:144+(i*8)+j,a:j:i: L8i=a1a2:c$:i,0;p1;e1;c$:i:a1=a2+1: Pi=10 20:i,0;0;" ":i b=1258 9a=2011 -1:a,b;3;" ":a qc=1913 -2:c-1,b;7;" ";c,b+4;4;(144)+(145):c y10 ,b+4;0;4;"";10 ,b+1;5;(146);20,b+1;4;" " b: Pi=09 :i,0;7;" ":i: Pi=39 :i,0;7;" ":i: FMu=(*3):z1=0:i=1u:j=14:d$,z1,z2:j:i: Pb=1258:20,b+3;3;6;z1+1:a=1812 -2:d$,z1,z2:a,b;7;2;d$:a:b: Zbb=1258:c=1913 -2:c-1,b;7;" ":c:b: x`1370Z:8010J:1350F:8010J:i=0u*4+(*16):r$,z3,z4:i 3,0;7;1;"POUR M.";3;r$:7,13 ;0;"P$( , )":4010:1050:4,0;7;1;"ALLER AU NUMERO ";3;z3;7,16;2;z3:4010:1050 5,0;7;1;"MONTER A L'ETAGE ";3;z4;7,18;2;z4:4010:1050:1310: 4:i=05688:24,i:568,0:i:i=2480P8:i,0:0,568:i @i=2844,4:i,i+32 :568,0:i i=84T100d4:i,i-80P:0,568:i:i=2480P8:i,568:20,20:i:i=04808:80P,i:20,20:i:0:  167,80P:0,-73I:74J,0:0,73I:5:i=832 :168,i:71G,0:i:0:14,22;7;0;"MEMOIRE";19,22;5;1;"1,35 Ko": lr(2):1370Z:8010J:1350F:8010J:i=0u*4+(*16):r$,z3,z4:i ھ3,0;7;1;"POUR M.";3;r$;7,12 ;0;"P$=( , )";4,0;7;1;"ALLER AU NUMERO ";5,0;"MONTER A L'ETAGE NO."  f=0  0,2;7;3;"entrez le NUMERO puis l'ETAGE";1,7;1;1;"STOP";0;3;" pour arreter" g$=:g$=""2030 g$=226 :g$<480ůg$>579.1}L,5:2030   f=f+1:f=17,16;3;g$;4,16;g$:r(1)=g$:q=1502:q:2030 *45,20;3;g$;7,18;g$ 4<r(2)=g$:r(1)=z3r(2)=z42150 f >N 9 ,17;7;0;"HELAS NON !!!":4040:1050 H 2,0;"C'ETAIT :":4,16;3;z3;7,16;z3;5,20;z4;7,18;z4:.5,-5:1050:2160p fN9 ,17;7;0;"MERCI FACTEUR!":4050:1050 p$1000:1200:2000 i1,j1;5;3;1;"PRESSEZ";i1+1,j1;" ENTER ":.1}L,5:.1}L,5:.1}L,5:.5,2 =""3010 1i1,j1;p1;" ";i1+1,j1;" ": '.1}L,-5:.1}L,0: .3,-5: .3,0: .1}L,5: 7 i=14:a=(i)-20:.3,a:i: 6i=14:a=(i)-10 :.3,a:i: \1000:9 ,0;2;6;1;" ARRETEZ LE MAGNETOPHONE " t=1000:1050: ;" ET LES TABLEAUX A"," PLUSIEURS DIMENSIONS ?" V"",""," Ils sont ,bien sur,possibles.","Reprenons l'exemple de la rue de","PARIS." ""," Si cette rue ne comporte que","des immeubles et de plus elle","est situee dans un quartier chic","chaque etage sera suppose ne","comporter qu'un seul appartement" h" Cette fois PLUSIEURS personnes","habitent au MEME numero. Il nous","faut un TABLEAU a 2 DIMENSIONS" 5" * une pour l'ADRESSE"," * une pour l'ETAGE" ;" Le facteur doit maintenant pour","correspondre avec M." "Et ainsi de suite..." ά" Ainsi, il est possible de de-","finir des tableaux IMMENSES dans","les limites de la PLACE MEMOIRE","DISPONIBLE(comme un arbre genea-","logique a plusieurs niveaux.)" " Mais attention, les tableaux","sont tres GOURMANDS en MEMOIRE.","Un TABLEAU de 7 ADRESSES avec 7","ETAGES et 5 APPARTEMENTS par pa-","lier represente tout de meme :"," 1,35 Ko." \" VOULEZ-VOUS VOUS EXERCER A"," RECONNAITRE L'INDICAGE DES"," TABLEAUX (O/N) ?" @0,0,63?,63?,63?,63?,0,0,0,0,252,252,252,252,0,0,3,12 ,513,220,480,208,16,16 JA"TRAPU",1,1,"DESIRE",1,2,"POMME",1,3,"DESERT",1,4,"VACANS",2,1,"KELLOG",2,2,"CHARLI",2,3,"OMAR",2,4,"TORDU",3,1,"ILOVE",3,2,"BOGUE",3,3,"ROBERT",3,4,"PEKIN",4,1,"INFO",4,2,"PEU",4,3,"TROP",4,4,"NOTRE",5,1,"GRAMES",5,2,"TARD",5,3,"FAST",5,4,"JABOT",6,1,"OBUS",6,2,"TETARD",6,3,"DOGME",6,4 t x F P!P ZuCEt ainsi de suite...PDDOGMERTARD_init13 XXJZ 4000 ::1000 ma1=1:a2=6:b1=0:p1=3:e1=1:1500:i1=9 :j1=12 :3000 ( p1=1:1010:a1=0:a2=3:e1=5:1500:a1=5:a2=6:e1=7:p1=1:1500:a1=8:a2=8:e1=6:1500:a1=11 :a2=16:e1=2:1500:i1=20:j1=12 :3000 2 1010:a1=0:a2=4:p1=1:e1=2:b1=0:5050:1500:e1=6:a1=5:a2=15:1500:a1=9 :a2=15:b1=13 :e1=7:1500:a1=18:a2=19:b1=0:e1=5:1500 535)Ưk$226.1}L,5:60< Pk$226k=k$ Uk$=226k=6 Z-k=18000@:3100 :502 d: k=28060|:3170b :3100 :502 n-k=38100:3100 :502 x. k=48135:3100 :502 -k=58155:3100 :502 n 0:0::10 ,0;0;7;"VOULEZ-VOUS REVOIR CE CHAPITRE ? (O/N)" I=120:I k$=:k$=""145 k$="O"k$="o"::20 Y0:0::10 ,0;0;7;" ENCLENCHEZ LE MAGNETOPHONE" ""  3:3:1:: 1:1:2:: H=1500:H: $i=a1a2:c$:i,b1;p1;e1;c$:i: 9.5,10 :.3,0:.4L,5: 9.5,8:.3,10 :.4L,2: 8.5,5:.3,8:.4L,0: 4QM=511 :M,0;1;" ":M: >QM=011 :M,0;1;" ":M: Fi1,j1;5;3;1;"PRESSEZ";i1+1,j1;" ENTER " H.1}L,5:.1}L,5:.1}L,5:.5,2 =""3020 1i1,j1;p1;" ";i1+1,j1;" ": 1010:0,0;1;7;"Admettons que nous ayons :":b$,c$:2,4;1;2;b$;3,4;c$:2000:1200: 0vD=13:b$,c$:5,0;1;7;b$;7,4;2;c$:2010:1200 :sb$,c$:9 ,0;1;7;b$;11 ,4;2;c$:2020:1200:21004:D D2110>:b$:1,0;1;7;" Ceci nous permet donc ,comme dans le progamme suivant";4,0;6;b$:1200 NE b$:7,0;5;1;b$:2020:1200: Xb$:1200: 15,0;1;2;"RUN":i=1100d:i:17,0;3;b$:2020:1200:3000 : b1010:4,0;1;6;"A$(a TO b) permet de DECOUPER lachaine A$ a partir du caractere No. a jusqu'au caractere No. b Les valeurs par defaut de a et betant respectivemment le DEBUT et la FIN de la chaine." l3000 : \1010:9 ,0;2;6;1;" ARRETEZ LE MAGNETOPHONE " t=1000:4050: h=1t:h: f" Nous allons detailler les","traitements possibles sur les","","",""," CHAINES DE CARACTERES" {"Toute variable BASIC peut etre"," soumise a des modifications"," (tronquages,suppressions,"," redefinitions...)" 9"La valeur ainsi obtenue peut-","etre stockee dans une" " VARIABLE RESULTAT" "Les donnees(ou valeurs)contenues"," dans les variables restent","inchangees en l'absence de trai-","tement SAUF en cas d'execution","d'une instruction RUN ou CLEAR"," ou elles sont remises a ZERO" " Les variables ALPHANUMERIQUES","sont,en fait, des mots .Il n'est","donc pas question de "" calculs","MATHEMATIQUES"". Ce qui n'empeche","pas de les traiter." {""," Elles peuvent etre :","","","A$=B$+C$","A$(a TO B)","LEN (A$)","A=(B$)","A$=STR$ (A)","A=CODE (A$)","A$=CHR$ (A)" ΁"1. ADDITIONEES","2. DECOUPEES","3. MESUREES","4. CONVERTIES NUMER","4. et VICE-VERSA","5. CONVERTIES ASCII","5. et VICE-VERSA" :"Quelle RUBRIQUE vous interesse ?"," NO.RUBRIQUE" @`"A$=""GATEAU""","B$=""PETIT""","NOUS POUVONS FAIRE :","C$=A$+B$","D'OU :","C$=""GATEAUPETIT""" J="OU MEME :","C$=B$+"" ""+A$","D'OU :","C$=""PETIT GATEAU""" T?"OU ENCORE :","C$=A$+"" ""+B$","D'OU :","C$=""GATEAU PETIT""" ^. "de composer des textes a partirde mots " h "10 A$=""L'informatique "" 20 B$=""c'est "" 30 C$=""enfantin "" 40 D$=""!"" 50 PRINT A$+B$+C$+D$" r$ "L'informatique c'est enfantin !" |"A$=""HELICOPTERE""","","NOUS POUVONS FAIRE :","B$=A$(5)","D'OU","B$=""HELIC""","DE MEME","B$=A$(5)","D'OU","B$=""COPTERE""","OU ENCORE","B$=A$(37)","D'OU","B$=""LICOP""" 2"de COMPOSER des mots a partird'autres MOTS" t"10 A$=""Machine a laver BLEUE"" 20 B$=A$(37) 30 C$=A$(17) 40 PRINT B$+"" ""+C$" "chine BLEUE" "A$=""POTEAU""","B$=""ELECTRIQUE""","Nous pouvons demander","C=LEN(A$)","D'OU","C=6","DE MEME","C=LEN(B$)","D'OU","C=10","OU ENCORE","C=LEN(A$)+LEN(B$)","D'OU","C=16" Z"de tenir compte de la LONGUEUR des mots pour composer une page,alligner des textes..." ?"10 A$=""GUITARE"" 20 PRINT AT 17,31-LEN(A$)" $" GUITARE" {"A$=""39.67"" B$=""21 AOUT 1984""","C=1850","Nous pouvons demander","C=(A$)","D'OU","C=39.67","Mais attention","C=(B$)" ̅"Nous donne","C=0","A l'inverse","C$=(C)","Nous donnera","C$=""1850"""," de RETIRER ou d'INTRODUIRE des nombres parmi les mots" O"10 A=4 20 B$=""J'AI ""+(A)+"" POMMES""30 PRINT B$" "J'AI 4 POMMES" ې"A$=""A"" B$=""MAISON""","D=36","On peut demander","C=(A$)","D'OU","C=65","Par contre","C=(B$)","Nous donnera","C=77 (code ASCII de ""M"")" d"A l'inverse","C$=(D)","D'OU","C$=""$"""," De nous referer a la table des CRACTERES ASCII" i"10 FOR i=65 TO 67 20 A$=(i) 30 PRINT A$ 40 NEXT i" E"A B C" ?init14    !::0:0:7: -23692\,0:j=11 :2000 Ki=02:j=03:i,j;(144+i*4+j):j:i [0,4;1;" ";1,4;7;" ";2,4;2;" " (121,15;6;" INFOGRAMES 1984" 2J5140:c1=4:e1=4:l=45:b$:1000:l <2e1=3:l=78:b$:1000:l F4e1=6:l=11 13 :b$:1000:l "" Ei=b$1-1:l,0;e1;b$(i):.05|L,0:i 7j=0c1:l,j;e1;" "+b$:.05|L,0:j: .5,-1:.25~,-6:.5,-1:1,3:1,-1:.5,3:.25~,-1:.5,3:1,6:1,3 .5,6:.25~,3:.5,6:1,10 :.5,-2:.5,3:1.5@,6  Fi=0j:j=07:c:144+i*8+j,c:j:i: i=0292:l1,i;e1;" "+(144);l1+1,i;a$(1,i+1)+(145):.1}L,-20:l1,i+1;e1;" "+(146);l1+1,i+1;a$(1,i+2)+(147):.05|L,-25:i Bl1,30;e1;" ";l1+1,30;a$(1,31): Ee=1:b=3010 -e:e/100dlb:e=e+.1}L:b: K7,24,32 ,64@,64@,128,128,128 I255,0,24,36$,68D,68D,73I,491 G255,0,0,0,0,128,64@,32 D224,24,4,2,2,3,3,3 Q128,129,129,129,129,129,129,129 G1,254,2,2,15,10 ,10 ,10 K32 ,161,66B,4,244,19,16,127 I3,3,131,131,131,3,3,131 K129,129,129,65A,65A,33!,25,7 I10 ,10 ,10 ,10 ,10 ,10 ,10 ,14 J80P,80P,80P,80P,80P,80P,80P,112p Q131,131,131,130,130,132,152,224 24,24,16,568,568,180,178,177,176,60<,36$,36$,36$,196,135,128 12 ,12 ,8,60<,60<,90Z,154,502,480,480,480,248,136,136,16,28 ("LA DEUXIEME CASSETTE","EST TERMINEE." '"PASSONS MAINTENANT","A LA TROISIEME" (B"INSEREZ LA CASSETTE","NUMERO 3 ET","ENCLENCHEZ LE MAGNETOPHONE"