message posté le 1 juin 2004 à 14h33
Je suis tombée par hasard sur un livre qui a sucité ma curiosité:
Je me suis amusé a recopier des petits programmes destinés aux MO6,TO8, TO9!!! Que de mauvais souvenirs lol, et oui à la base des jeux préhistoriques, il y avait ces trés passionants programmes, composer de multiples espaces, de point autres symboles,. quel satifaction d'arriver à la fin des deux pages de frappes au boud de
heures et de cliquer sur entrée et ohhhhhhhhhhh de découvrir le message suivant :"error in line 210 .... ptdrrrr. Il existe je crois pour ceux qui seront courageux et qui voudront voir le resulat de ses trois classiques, un émulateur a télécharger!! Après cet experience, vous serez heureux de retrouver votre jeux favoris!!
)
_Course de voitures (ancètre de vrally)
10 REM COURSE DE VOITURES
20 INPUT"DONNEZ UN ENTIER :";F
30 FOR I=1 TO F:Y=RND:NEXT I
40 CLEAR,,1:DEFGR$(0)=93,127,85,20,93,12,7,93,8
50 T=0:CLS
60 X=24:y=11:A=5:B=10:s=0
70 FOR I=0 TO 6
80 LOCATE Y+I,X:COLOR 7,6:PRINT CHR$(127);
90 IF I<2 OR I>4 THEN LOCATE Y+I,X:COLOR 0,6:PRINT CHR$(127);
100 NEXT I
120 LOCATE B?A?0:COLOR 4,6:PRINT GR$(0)
130 FOR I=1 TO 10:A$=INKEY$:T=T+0.1:IF A$='' THEN NEXT I
140 C=B
150 B=B-(A$=CHR$(9))+(A$=CHR$(8))
160 Y=Y-(-2*RND AND Y<25)+(2*RND AND Y>3)
170 IF POINT(8*B+3,8*A+11)=0 THEN 210
180 S=S+1
190 LOCATE C,A:COLOR ,6:PRINT" "
200 GOTO 70
210 PRINT"ACCIDENT
CORE :";S
220 PRINT:PRINT"TEMPS :";INT(T):PLAY"DOREMI"
Casse briques(l'indispensable)
10 REM MUR DE BRIQUES
20 INPUT"DONNEZ UN ENTIER :";F
30 FOR I=1 TO F:Y=RND:NEXT I
40 CLS:SCREEN 0,7:A$=CHR$(127)
50 FOR I=1 TO 18
60 LOCATE 9+I,0:PRINT CHR$(61)
70 LOCATE 10,I:PRINT A$:LOCATE 27,I:PRINT A$
80 NEXT I
90 FIR I=1 TO 7
FOR J=11 TO 26
110 LOCATE J,I:COLOR 0,I:PRINT "#"
120 NEXT I
130 NEXT I
140 H=-1:k=-0.5:J=18:I=17:Y=J
150 LOCATE Y-2,19:COLOR 0.7:PRINT" --- "
160 A$=INKEY$
170 Y=Y - (A$=CHR$(9) AND Y<28) +(A$=CHR$(8) AND y>8)
180 IF T=1 THEN LOCATE J,I:PRINT " "
190 LOCATE 0,20:PRINT"SCORE"S
200 IF I>22 THEN PLAY"DODODO":END
210 C=SCREEN(J,I)
230 IF C=32 THEN LOCATE J,I:PRINT "O":T=1:TOGO 150
240 IF C=35 THEN F=POINT(8*J+1,8*I+1):LOCATE J,I: PRINT"O":T=1:GOTO 300
260 K=-H
270 K=RND-RND
280 K=-K:T=0
290 GOTO 150
300 S=S+9+F
310 K=-(k(2*(RND<0,5)+1)*RND/")
320 H=-H
330 GOto 150
Tirage du loto(l'indétronable)
10 REM JEU DE LOTO
20 INPUT"DONNEZ UN ENTIER :";F
30 FOR I=1 TO F:Y=RND:NEXT I
40 DIM n(7)
50 CLS
60 FOR I=1 TO 7
70 N(I)=INT(RND*49+1)
80 IF I=1 THEN 120
90 FOR J=1 TO I-1
100 IF N(I)=N(J) THEN 70
110 NEXT j
120 NEXT I
130 LOCATE 5,3:COLOR 5,6:ATTRB 1,0
140 PRINT"TIRAGE DE LOTO"
150 PRINT" ---------------"
160 FOR I=1 TO 6
170 LOCATE 6*I-5, 12: COLOR 1,7: ATTRB 1,1
180 PRINT N(I)
190 NEXT I
200 LOCATE 0,20:COLOR 4,6:ATTRB 0,1:PRINT N(7)
210 LOCTE 0,22:COLOR 4,6:ATTRB 0,0:PLAY"DO;RE;MI"
220 PRINT"VOULEZ-VOUS UN AUTRE TIRAGE (O/N)";:A$=INPUT$(1)
230 IF A$="O" THEN 50
Enjoy and play lol [vert]
Je me suis amusé a recopier des petits programmes destinés aux MO6,TO8, TO9!!! Que de mauvais souvenirs lol, et oui à la base des jeux préhistoriques, il y avait ces trés passionants programmes, composer de multiples espaces, de point autres symboles,. quel satifaction d'arriver à la fin des deux pages de frappes au boud de
heures et de cliquer sur entrée et ohhhhhhhhhhh de découvrir le message suivant :"error in line 210 .... ptdrrrr. Il existe je crois pour ceux qui seront courageux et qui voudront voir le resulat de ses trois classiques, un émulateur a télécharger!! Après cet experience, vous serez heureux de retrouver votre jeux favoris!!
)
_Course de voitures (ancètre de vrally)
10 REM COURSE DE VOITURES
20 INPUT"DONNEZ UN ENTIER :";F
30 FOR I=1 TO F:Y=RND:NEXT I
40 CLEAR,,1:DEFGR$(0)=93,127,85,20,93,12,7,93,8
50 T=0:CLS
60 X=24:y=11:A=5:B=10:s=0
70 FOR I=0 TO 6
80 LOCATE Y+I,X:COLOR 7,6:PRINT CHR$(127);
90 IF I<2 OR I>4 THEN LOCATE Y+I,X:COLOR 0,6:PRINT CHR$(127);
100 NEXT I
120 LOCATE B?A?0:COLOR 4,6:PRINT GR$(0)
130 FOR I=1 TO 10:A$=INKEY$:T=T+0.1:IF A$='' THEN NEXT I
140 C=B
150 B=B-(A$=CHR$(9))+(A$=CHR$(8))
160 Y=Y-(-2*RND AND Y<25)+(2*RND AND Y>3)
170 IF POINT(8*B+3,8*A+11)=0 THEN 210
180 S=S+1
190 LOCATE C,A:COLOR ,6:PRINT" "
200 GOTO 70
210 PRINT"ACCIDENT
CORE :";S
220 PRINT:PRINT"TEMPS :";INT(T):PLAY"DOREMI"
Casse briques(l'indispensable)
10 REM MUR DE BRIQUES
20 INPUT"DONNEZ UN ENTIER :";F
30 FOR I=1 TO F:Y=RND:NEXT I
40 CLS:SCREEN 0,7:A$=CHR$(127)
50 FOR I=1 TO 18
60 LOCATE 9+I,0:PRINT CHR$(61)
70 LOCATE 10,I:PRINT A$:LOCATE 27,I:PRINT A$
80 NEXT I
90 FIR I=1 TO 7
FOR J=11 TO 26
110 LOCATE J,I:COLOR 0,I:PRINT "#"
120 NEXT I
130 NEXT I
140 H=-1:k=-0.5:J=18:I=17:Y=J
150 LOCATE Y-2,19:COLOR 0.7:PRINT" --- "
160 A$=INKEY$
170 Y=Y - (A$=CHR$(9) AND Y<28) +(A$=CHR$(8) AND y>8)
180 IF T=1 THEN LOCATE J,I:PRINT " "
190 LOCATE 0,20:PRINT"SCORE"S
200 IF I>22 THEN PLAY"DODODO":END
210 C=SCREEN(J,I)
230 IF C=32 THEN LOCATE J,I:PRINT "O":T=1:TOGO 150
240 IF C=35 THEN F=POINT(8*J+1,8*I+1):LOCATE J,I: PRINT"O":T=1:GOTO 300
260 K=-H
270 K=RND-RND
280 K=-K:T=0
290 GOTO 150
300 S=S+9+F
310 K=-(k(2*(RND<0,5)+1)*RND/")
320 H=-H
330 GOto 150
Tirage du loto(l'indétronable)
10 REM JEU DE LOTO
20 INPUT"DONNEZ UN ENTIER :";F
30 FOR I=1 TO F:Y=RND:NEXT I
40 DIM n(7)
50 CLS
60 FOR I=1 TO 7
70 N(I)=INT(RND*49+1)
80 IF I=1 THEN 120
90 FOR J=1 TO I-1
100 IF N(I)=N(J) THEN 70
110 NEXT j
120 NEXT I
130 LOCATE 5,3:COLOR 5,6:ATTRB 1,0
140 PRINT"TIRAGE DE LOTO"
150 PRINT" ---------------"
160 FOR I=1 TO 6
170 LOCATE 6*I-5, 12: COLOR 1,7: ATTRB 1,1
180 PRINT N(I)
190 NEXT I
200 LOCATE 0,20:COLOR 4,6:ATTRB 0,1:PRINT N(7)
210 LOCTE 0,22:COLOR 4,6:ATTRB 0,0:PLAY"DO;RE;MI"
220 PRINT"VOULEZ-VOUS UN AUTRE TIRAGE (O/N)";:A$=INPUT$(1)
230 IF A$="O" THEN 50
Enjoy and play lol [vert]
