Publicité
PRINT USING)
10 CLSiPRINT "Je connais mes tables !"
20 P R I N T :PRINT"pressez une touche (1-9)"
30 a*=INKEY$:IF a$ = "" THEN 30
40 n = V A L U $ ) : I F n<l OR n>9 THEN 30
50 FOR x=l TO 12
60 PRINT n ; " X " * , x ; " = " ; n *x
70 NEXT : GOTO 20
run
( #
10 MODE 1 : BORDER 0:LOCATE 8,2
20 P R I N T " u t i 1 isez les touches tlechees (haut/bas)"
30 WINDOW 39,39, 1,25:CURS0R 1,1
40 LÜCATE 1,13
50 IF INKEY (0) 0 - 1
60 IF I N K E Y (2 ) < >-l THEN PRINT CHR*(10);
70 LOCATE #1,3,24
80 P R I N T # 1 , "curseur texte " ;
90 PR INT#1 , " positxon verticale
100 P R I N T # 1 , V P Q S ( # 0 ) : G 0 T 0 50
run
Chapitre 3 P age 87
STR$
THEN PRINT C H R $ ( 11 );
#
Type mismatch
Mots clé s du BASIC
Publicité
