ZXTape! 2gInitiation au basic 4 Infogrames 1984French EducativeNone Original Tape4 Tapes collectioninit22 h1/`j1 z::1000:9 ,0;2;6;1;" ARRETEZ LE MAGNETOPHONE ":T=1500:1160 b1000:7,0;6;"Il est temps de vous laisser travailler un peu seul :" 12 ,0;3;"VOUS ALLEZ,A PRESENT,ECRIRE UN PROGRAMME BASIC VOUS-MEME EN SUIVANT LES INDICATIONS QUE JE VOUS DONNERAI.":t=600X:1160:i1=21:j1=8:3000 :1000 (1010:12 ,0;6;"Vous verrez ce que vous tapez dans cette partie.":1160:3000 :1000:1020 27,0;7;"Dans cette zone-ci vous aurez l'ordinogramme correspondant a l'action que vous devez ecrire.":1160:i1=0:3000 <1000:1030:7,0;3;" Enfin, je donnerai des com-mentaires et explications a voserreurs eventuelles." F1160:3000 :1000:2,0;6;"Il s'agit d'un petit PROGRAMME tenant lieu de :":5,8;3;"REPERTOIRE" P7,0;6;"La numerotation des lignes est automatique.Cependant,le claviersera utilise comme un clavier demachine a ecrire : vous devrez donc entrer les ordres BASIC enlettres majuscules." S13 ,0;0;2;"En dernier recours vous pourrez toujours obtenir la reponse avecla touche EDIT (CAPS SHIFT+1)" U416,0;6;"Le but de la lecon est avant tout d'apprendre a connaitre lesMOTS BASIC et a les agencer. POUR PASSER EN MODE MAJUSCULES :":20,0;0;6;1;"si curseur=L PRESSEZ CAPS SHIFT et 2 puis ENTER,SINON ENTER ":a$ Z19,0;7;" VOULEZ-VOUS REVOIR CES DETAILS ? (O/N) ":I=120:I dk$=:k$=""100d nk$="o"k$="O"20 xiz$(28):m$(160):o$(30):p$(28):1000:1010:1020:1030 =t=600X:l1=0:nu=0:p1=1:1500 s1000:9 ,0;6;"VOULEZ-VOUS REVOIR CETTE PARTIE? (O/N)":i=110 :i k$=:k$=""150 k$="o"k$="O"::120x 1000:4,0;3;"Nous allons tout d'abord nous interesser a la partie CREATION qui commence a la ligne 240.":1160 `5240x:l1=0:p1=1:1000:1010:1020:1030:1500 ׷1000:5,0;3;"VOULEZ-VOUS REVOIR CETTE PARTIE? (O/N) Si non,nous passons a la partie consultation." k$=:k$=""217 k$="o"k$="O"170 U5320:l1=0:1000:1010:1020:1030:1500: \1000:9 ,0;6;"VOULEZ-VOUS REVOIR CETTE PARTIE? (O/N)" K$=:K$=""240 K$="O"K$="o"220 1000:0,0;6;"NOUS ALLONS MAINTENANT CHARGER ET EXECUTER CE PROGRAMME. VOUS POURREZ,APRES SON EXECUTIONLE LISTER ET COMPRENDRE COMMENT IL FONCTIONNE." 615,0;" ENCLENCHEZ LE MAGNETOPHONE " ""  0:0:7:: Qi=010 :i,0;5;" ":i: @i=12 21:i,0;6;" ":i: Di=12 21:i,15;7;" ":i:  2 $N1020:f=116,2;6;2;o$(10 );17,2;o$(11 20);18,2;o$(2130):12 ,568:88X,0:0,-40(:-88X,0:0,40(:568,68D:0,-12 :568,16:0,-12 :7: .%f=216,3;6;o$(8):12 ,40(:44,,28:44,,-28:-44,,-28:-44,,28:568,80P:0,-12 :568,12 :0,-12 :99c,40(:4,0:0,-40(:7: 87f=316,2;6;2;o$(10 );17,2;o$(11 20);18,2;o$(2130):12 ,568:88X,0:0,-40(:-88X,0:0,40(:568,68D:0,-12 :568,16:0,-12 =`f=212 ,546:88X,0:12 ,18:88X,0:7: Bf=416,2;6;2;o$(10 );17,2;o$(11 20);18,2;o$(2130):12 ,568:88X,0:0,-40(:-88X,0:0,40(:568,68D:0,-12 :7: LSf=516,2;6;2;o$(10 );17,2;o$(11 20);18,2;o$(2130):12 ,568:88X,0:0,-40(:-88X,0:0,40(:568,68D:0,-12 :100d,36$:6,0:0,32 :7: ~mi=013515:12 +i/15,16;7;3;m$(i+1i+15):i: i=1t:i:  f,o$,m$,p$ p$(1)="*"1890b c1050:1150~:l1=l1+1:1750:0,25;5;3;"PAGE ";p1 unu=nu+10 :l1,0;5;3;nu:n=1:er=0:c1=3:z$="":nu>90Zc1=4 ,i=110 :i:23560\,0 k$=:k$=""1525 %k$=13 c131600@ &k$=12 1800:1520 %k$=71850::1500 k$=226 ,c1>30.05|L,0:1520 .k$>164.05|L,0:1520  z$(n)=k$  l1,c1;5;3;z$(n) n=n+1:c1=c1+1  1520 @%i=1n:z$(i)p$(i)er=i:i=n Ei J$er01700:1520 T 1500 z$(er)=" "p$(er+1)" "er<291030:14,16;7;3;"FINISSEZ LES";15,16;"PHRASES":1730 z$(er)>47/Ưz$(er)<59;1030:14,16;7;3;"ATTENTION AUX";15,16;"PARAMETRES":1730 wz$(er)=" "1030:14,15;7;3;"ATTENTION AUX";15,15;"ESPACES":1730 wz$(er)=" "1030:14,15;7;3;"ATTENTION AUX";15,15;"ESPACES":1730 `1030:14,16;7;3;"ATTENTION A LA";15,16;"SYNTAXE" Qnu>90Zl1,er+3;3;5;z$(er):c1=er+3:1735 8l1,er+2;3;5;z$(er):c1=er+2 8n=er:1160:1030:1150~:er=0: 4l1>10 1010:l1=1:p1=p1+1  Hn>1n=n-1:c1=c1-1:l1,c1;5;" ":z$(n)="":  .05|L,0: :anu<100dl1,3;5;3;" ";l1,3;p$: DHl1,4;5;3;" ";l1,4;p$: b$1020:1030:1150~ gk$=:k$=""1895g j Hi1,j1;0;6;1;"PRESSEZ ENTER":.5,-10 : k$=:k$=""3010 #i1,j1;0;" ": A1,"BORD ROUGE","colorions le BORD en ROUGE.","BORDER 2" ?1,"FOND ROUGE","colorions le FOND en ROUGE","PAPER 2" E1," ENCRE NOIRE","on choisit l'encre NOIRE","INK 0" e1,"AFFICHAGE CLIGNOTANT","Pour le titre, on utilisera les caracteres clignotants","FLASH 1" 1,"ECRIRE : REPERTOIREX=10,Y=12","ecrivons le libelle du TITRE aux coordonnees x=10 Y=14","PRINT AT 10,12;""REPERTOIRE""" N1,"CARACTERESNORMAUX","revenons a l'affichage normal","FLASH 0" Y1,"MUSIQUE","Produisons un BEEP de duree 1/2 seconde hauteur LA","BEEP .5,0" ?1," PAUSE","Temporisation de 500 unites.","PAUSE 500" O1,"BORD BLEU FONCE","colorions le fond en bleu fonce.","BORDER 1" N1,"FOND BLEU FONCE","colorions le fond en bleu fonce.","PAPER 1" =1,"ENCRE ROSE","Choisissons l'encre rose.","INK 3" Q1,"SAUTER UNELIGNE","On saute une ligne en n'af-fichant rien.","PRINT" w1,"AFFICHER 1ere LIGNEMENU","Affichons la premiere ligne du menu qui estVOULEZ-VOUS","PRINT ""VOULEZ-VOUS"""  T1,"SAUTER UNE LIGNE","On saute une ligne en n'af-fichant rien.","PRINT" s1,"AFFICHER CHOIX 1","Affichons la 1ere OPTION du MENU qui est : 1 CONSULTER","PRINT ""1 CONSULTER""" j1,"AFFICHER CHOIX 2","Affichons la 2eme OPTION du MENU qui est : 2 CREER","PRINT ""2 CREER""" (m1," AFFICHER CHOIX 3","Affichons la 3eme OPTION du MENU qui est : 3 ARRETER","PRINT ""3 ARRETER""" 2|1,"ENTRER LA REPONSE","Entrons la re-ponse de l'uti-lisateur. en affichant : RUBRIQUE","INPUT ""RUBRIQUE"";C$" 1," EFFACER L'ECRAN","Effacons l'ecran","CLS" t1,"DEPART DE BOUCLE","Entamons une boucle FOR...NEXT,comptant Ide 1 a T par pas de 1.","FOR I=1 TO 10" 1," AFFICHER NOM ET NUMERO","Affichons le NOM et NUMERO en tabulation (separes par une virgule) dans N$et M$ indexes sur I.","PRINT N$(I),M$(I)" U1," SAUTER UNE LIGNE","On saute une ligne en n'af-fichant rien.","PRINT" k1,"FIN DE LA BOUCLE","Refermons la boucle en demandant la valeur suivantede I.","NEXT I" 1," PRENDRE UNE TOUCHE","On affiche OK et on prend unevariable C$:on attend la pres-sion d'une touche","INPUT ""OK"";C$" "N5," RETOUR A LA LIGNE 10","Branchement a la ligne 10.","GOTO 10" ,70,"","POUR CONTINUER PRESSEZ UNE TOUCHE","*" tXyXA ͣPRESSEZ UNE TOUCHE POUR CONTINUER. ! * fnKNOinit23 Si9 ,0;2;6;1;" ARRETEZ LE MAGNETOPHONE ":i=11000:i 9T=0:M$(10 ,15):N$(10 ,15) 2  2  0 # ( 1 2!10 ,12 ;"REPERTOIRE" < 0 F.5,0 P 500 Z 1 d 1 n 3 s x "VOULEZ-VOUS"  "1 CONSULTER" "2 CREER" "3 ARRETER" "RUBRIQUE ";C$ C$="1"370r C$="2"240 C$"3"180  r0,0;"Si vous ne voulez pas lister le programme tapez LOAD """" et ENCLENCHEZ LE MAGNETOPHONE"  6 6  1   T=T+1 ""QUEL NOM ?" ,N$(T) 6N$(T) @ J"QUEL NUMERO ?" TM$(T) ^M$(T) h 90Z r 1 | 1  3  I=110  N$(I);M$(I) I  "OK";C$  90Z init24 $cq::t=1000:1000:9 ,0;2;1;" ARRETEZ LE MAGNETOPHONE ":1100L R1000:4,5;"SAUVEGARDE DE FICHIERS SUR CASSETTES" z8,0;2;"Les programmes que vous allez maintenant ecrire vous-meme, seront conserves en memoire." (12 ,0;2;"Mais cette memoire est volatile,vous devez donc les sauvegarder sur cassettes afin de les reuti-liser apres avoir deconnecte votre ZX Spectrum." 2Jt=600X:1100L:i1=20:j1=8:1050:1000 <0,0;1;"Les 3 mots BASIC fondamentaux pour la sauvegarde sur cassettessont :":4,0;2;"SAVE ""nom-fichier"" LOAD ""nom-fichier"" VERIFY ""nom-fichier""" F1100L:8,0;1;"Correspondant respectivement a :";10 ,0;2;"- Sauver un programme de nom ""nom-fichier"" sur cassette. - Charger un fichier cassette de nom ""nom-fichier"" dans la memoire" P15,0;2;"- Verifier que le programme sur cassette de nom ""nom-fichier"" est identique au programme en memoire" Z1100L:1050:1000:0,0;"De la meme maniere,nous pouvons sauvegarder des TABLEAUX.":3,0;2;"SAVE ""nom"" DATA nom-tableau()" d5,0;"Ce qui veut dire :":7,0;2;"Sauvegarder le TABLEAU ""nom-tableau"" sous le nom ""nom"".Ce tableau peut etre NUMERIQUE ou ALPHANUMERIQUE." n1100L:1050:1000:0,0;"Vous pouvez utiliser par exemplecette fonction dans le programmeprecedant (REPERTOIRE).Il vous suffit de taper apres avoir dim-mensionne les tableaux,la ligne suivante :" x8,0;2;"LOAD ""nom"" DATA N$()":10 ,0;"et avant la fin du programme la ligne suivante :":13 ,0;2;"SAVE ""nom"" DATA N$()" {15,0;2;" IMPORTANT : N'OUBLIEZ PAS DE PRENDRE UNE CASSETTE VIERGE POUR LES TABLEAUX" $1100L:1050:1000 0,0;"Enfin,on peut sauver des ecrans graphiques par l'instruction :":3,0;2;"SAVE ""nom-ecran"" SCREEN$" 5,0;"Par cette instruction le micro- ordinateur sauvegardera un FICHIER ECRAN qui pourra etre charge en memoire par :":10 ,0;2;"LOAD ""nom-ecran"" SCREEN$" ^12 ,0;"Le chargement effectue,votre ecran favori sera a nouveau affiche." $1100L:1050:1000 0,0;"Cette fois vous pouvez utiliser cette fonction avec la lecon de graphisme.":4,0;2;"Il vous suffit de realiser un dessin avec le programme,lorsquevous etes satisfait,vous pressezBREAK.Le programme est arrete : Tapez alors SAVE ... SCREEN$ Vous aurez ainsi sauvegarde un dessin... SUR UNE CASSETTE VIERGE EVIDEMMENT" $1100L:1050:1000 O9 ,0;2;"VOULEZ-VOUS REVOIR CETTE PARTIE? (O/N)" i=1502:i k$=:k$=""220 k$="O"k$="o":20 F1000:9 ,0;2;" ENCLENCHEZ LE MAGNETOPHONE" ""  6:6:1:: }i1,j1;5;3;1;"PRESSEZ ENTER ":.1}L,5:.1}L,5:.1}L,5:.5,2: $k$=:k$=""1060$ .$i1,j1;6;" ": Lh=1t:h: init25 ^`!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;" " j=3:2000 (121,15;6;" INFOGRAMES 1984" 2_a$(1,32 ):e1=3:l=49 2:a$(1):l1=l:2010:l