Publicité
ON < expression > GOSUB
ON
GOSUB
10 PAPER 0 : PEN 1 : INK 0, 1
20 CLS: PR INT" MENU ":PRINT
30 PR INT " 1 - Changer l e c a dr e 1 ' : PRINT
40 PR INT"2 - Changer l e sty 1o ": PR I NT
50 P RIN T"3 - Changer de mode":PRINT
60 INPUT "Votre c.hoix"
70 O N x GOSUB 9 0 , 1 1 0 , 1 3 0
80 GOTO 20
90 b = b-1 : IF b<0 THEN b = 26
100 BORDER b : RETURN
110 p = p - l : I F p<2 THEN p = 26
120 INK 1 , p : RETURN
130 m=m-1 : IF m<0 THEN m=2
140 M ODE m:RETURN
r un
2
3
Chapitre 3
P age 51
x
5
90,
1 1 0
RETURN
Mots clés du BASIC
Publicité
