5 TRON
10 PRINT ''Basic (le langage) également surnommé ;''
20 GOSUB 220
30 GOTO 70
40 rem rouillé, je suis rouillé
50 FOR I= 1 TO 40 STEP 10
55 PRINT I
56 NEXT I
57 LET A=I
58 rem ou Val (i), j'ai comme un vide
60 GOTO 89
70PRINT '' vient de souffler ses ;''
80 GOTO 40
85 rem heureusement que j'incrémente par 10... c'est comme le vélo
86 rem certains trucs ne s'oublient pas
89 PRINT A+''bougies''
90 INPUT r$
100 KEY$ = Inkey$
110 IF LEN(KEY$)= 1 THEN
120 PRINT "vous avez pressé la touche"+KEY$
130 ELSE
140 VAL_TOUCHE = ASC(right$(KEY$,1))
150 IF VAL_TOUCHE = 8 THEN
160 PRINT "vous avez appuyé sur Control... ''
170 rem mais à quoi tout cela peut bien servir... ah, le si-sinon-si,
180 rem comme on disait en basicois, quelle belle invention
190 je m'''égare, revenons à nos moutons
200 ENDIF
210 PRINT ''Ce langage, qui fit la fierté des possesseurs de machines ;''
211 GOTO 250
220 B$= nouille
225 C$= spaghetti
230 print B$+C$
240return
250 PRINT '' du genre Oric, ZX, TO7, Apple II''
260 PRINT '' ouvrit la porte à d'''autres idiomes plus évolués tels que''
270 PRINT LEFT$(E$,2)'', '' MID$(E$,2, 5)'','' RIGHT$(E$,3)
280 GOSUB
290 E$ = VBXbaseBBX
300 RETURN
310 TROFF
320 END

Vos commentaires

. Web-profils.com, la place de marché du conseil et de l'ingénierie