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 
Stratos Pictures   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 
Les Tours de Hanoï   Page 
Shoot Again (25) "Insect"   Page 
Réponses (1)   Page 
Euphoric et FTDOS Jasmin (3)   Page 
Courrier Oricien   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



Hosted By oric.org server www.oric.org V 2.6 CNIL ID : 872370 Write to Webmaster © 2000-2022 Built in 0.03 Seconds