Nº117 (2/2000)
 |
|
 |
Download :
|
 
| Le numéro spécial de janvier 2000, avec ses 32 pages, vous a t-il plu ? Celui de février continue dans la même ligne avec encore 30 pages de lecture, de réflexions, de programmes, de nostalgie, d'expérimentation, d'informations etc.
Une fois encore, il ne tient qu'Ã vous que le CEO-MAG continue sur cet élan. Envoyez vos contributions, même les plus modestes !
Merci aux rédacteurs qui ont participé. Mes excuses pour ceux dont les articles sont restés en attente... |
|
 STRATOS PICTURES LOric Stratos tout en images ! (Découvert sur le web)
QUAND LA FOLIE DE LEMULATION NOUS PREND (2) Fabrice Francès nous expose ses secrets concernant lémulation du 8080 sur notre 6502.
ABONNEMENTS, ANCIENS NUMEROS, ANCIENNES DISQUETTES Tarifs et démarches pour commander les anciens numéros (également consultables sur ce site !!!), les anciennes disquettes, ou sabonner. Ne passez pas à côté dune importante base documentaire.
ILS ONT FAIT LE CEO / LE CEO-MAG EN 1999 Etat des lieux sur la participation des membres (et des autres !) au niveau du Club.
UNE TEMPETE DANS UN VERRE DEAU Il est encore des sujets à polémiques dans le monde Oric !
LES TOURS DE HANOI Un grand classique des jeux de réflexion proposé par André. Et si vous tapotiez un petit peu sur votre Oric ?
NOSTALGIE... NOSTALGIE... Des documents susceptibles de déclencher des sentiments nostalgiques dans vos coeurs. Nhésitez pas à envoyer du matériel... Poursuite de la diffusion du dernier catalogue dOric International.
THE ORIC LIBRARY / LA LIBRAIRIE ORIC Poursuite de lexploration de la liste de Mike qui recense une grande quantité douvrages parus pour Oric.
REPONSES (1) Ou comment chacun peut répondre de manière détaillée aux questions les plus fréquemment posées. Aujourdhui, les fichiers K7 au format WAV.
SHOOT AGAIN (25) "Insect" Dominique nous permet ce mois-ci dutiliser la manette de jeu avec INSECT.
LE COURRIER DES LECTEURS Cette rubrique est la vôtre! Ecrivez nous ! Faites part de vos observations, de vos attentes...
EUPHORIC ET FTDOS JASMIN (3) Le CEO compte parmi ses membres un grand spécialiste de ce système dexploitation. Roger Barbier nous explique les commandes concernant les fichiers sous FTDOS.
|
|
|
|
|
|
sommaire
|
| Abonnements, anciens numéros, anciennes disquettes |
|
Page |
| Ils ont fait le CEO-MAG en 1999 / le CEO |
|
Page |
| Quand la Folie de lEmulation nous prend (2) |
|
Page |
| Une Tempête dans un verre deau |
|
Page |
| Nostalgie... Nostalgie... |
|
Page |
| The ORIC Library / La Librairie ORIC |
|
Page |
| Shoot Again (25) "Insect" |
|
Page |
| Euphoric et FTDOS Jasmin (3) |
|
Page |
| Adresses CEO / Sommaire / Editorial |
|
Page |
|
Dans la série "Je fouille mes archives pour en faire profiter les copains", voici aujourd'hui un petit programme BASIC, mis au point il y a bien des années. Ce petit jeu n'a d'autre prétention que de vous distraire et de montrer qu'avec quelques lignes de BASIC on peut déjà bien s'amuser.
C'est le très classique jeu des Tours de Hanoï. Au départ, vous avez à gauche, une "tour" constituée de cinq disques empilés par taille décroissante (TOUR No1). Le but du jeu est de déplacer cette tour à droite (TOUR No3). La règle est simple : on ne peut déplacer les disques que un à un et il est interdit de placer un disque quelconque sur un disque plus petit. Pour déplacer un disque, donnez le numéro de la tour de départ, puis le numéro de la tour d'arrivée. Au fur et à mesure des déplacements, le nombre de coups déjà joués est affiché. Il y a des records à battre !
10 ' ***** TOURS DE HANOI *****
11 ' V0302911820 André Chéramy
20 DIM T(5,3)
21 CLS:PAPER6:INK1:PRINT:PRINT:PRINT:PRINT
22 PRINT"Voulez vous la règle (O/N)?";:GET A$:PRINT A$
24 IF A$="O" OR A$="o" THEN HANOI.HLP:GET A$
25 CLS:PAPER6:INK1
30 FOR I=1 TO 5:T(I,1)=I:NEXT I
60 FOR J=2 TO 3:FOR I=1 TO 5:T(I,J)=0:NEXT I:NEXT J
110 C=0
120 GOSUB 260:GOSUB 500:IF BRAVO=1 THEN GOTO 410
125 PRINT "TOUR DE DEPART";:GET A$:PRINT A$;:D=ASC(A$)
126 IF (D<>49) AND (D<>50) AND (D<>51) AND (D<>47) THEN PRINT: GOTO 125
128 D=VAL(A$):PRINT D:IF D=0 THEN 410
130 PRINT "TOUR D'ARRIVEE";:GETA$:PRINT A$;:A=ASC(A$)
132 IF (A<>49) AND (A<>50) AND (A<>51) AND (A<>47) THEN PRINT: GOTO 130
134 A=VAL(A$):PRINT A:IF A=0 THEN 410
140 C=C+1
150 FOR I=1 TO 5
160 IF T(I,D)<>0 THEN Q=T(I,D):T(I,D)=0:GOTO 180
170 NEXT I
172 I=I-1
175 IF T(I,D)=0 THEN PRINT"C'EST FAUX": GOTO 120
180 FOR K=5 TO 1 STEP-1
190 IF T(K,A)=0 THEN 210
200 NEXT K
210 IF K=5 THEN T(K,A)=Q: GOTO 120
220 IF T(K+1,A)>Q THEN T(K,A)=Q : GOTO 120
230 PRINT"C'EST FAUX"
240 T(I,D)=Q
250 GOTO 120
255 CLS:PRINT:PRINT:PRINT:PRINT
260 REM AFFICHAGE TOURS
264 PRINT CHR$(17)
266 FOR I=1 TO 5
270 FOR J=1 TO 3
280 IF T(I,J)=0 THEN PRINT" ";
290 IF T(I,J)=1 THEN PRINT" XX ";
300 IF T(I,J)=2 THEN PRINT" XXXX ";
310 IF T(I,J)=3 THEN PRINT" XXXXXX ";
320 IF T(I,J)=4 THEN PRINT" XXXXXXXX ";
330 IF T(I,J)=5 THEN PRINT" XXXXXXXXXX";
340 NEXT J
350 PRINT
360 NEXT I
370 PRINT "----------------------------------"
375 PRINT " TOUR No1 TOUR No2 TOUR No3"
380 PRINT" "
400 PRINT "NOMBRE DE COUPS DEJA JOUES:";C
402 PRINT" "
404 PRINT CHR$(17)
405 RETURN
410 END
500 REM GAGNE?
505 BRAVO=0
510 FOR V=1 TO 5
520 IF T(V,3)<>V THEN RETURN
530 NEXT V
540 PRINT CHR$(140);CHR$(128);"BRAVO !!!"
550 PING:BRAVO=1
560 RETURN
600 !HANOI.HLP
650 GET A$
666 RETURN
|
|
|
|
|
BROWSE
NUMEROS
 [128] - [127] - [126] - [125] - [123] - [122] - [121] - [119] - [118] - [117] - [116] 
YEAR
 2013 - 2012 - 2011 - 2010 - 2009 - 2008 - 2007 - 2006 - 2005 - 2004 - 2003 - 2002 - 2001 - 2000 - 1999 - 1998 - 1997 - 1996 - 1995 - 1994 - 1993 - 1992 - 1991 - 1990
|
Built in 0.15 Seconds