• 
  • A la une du site
  • 100 dernièrs ajouts de fichiers ..
• 
  • Demolist
  • Interviews
  • Articles et Dossiers
  • Cheats
  • Gallerie/Musée graphiques
  • Productions CPC+
• 
  • Articles
  • Tests / Gameslist
  • Pokes et Solutions
  • Auteurs
  • Compagnies d'édition
  • Gallerie/Musée graphiques
  • Référencement de livres et magazines AMSTRAD CPC
  • Peoples
• 
  • Articles et Chroniques
  • Infos Techniques
  • Crossdev
  • Sources
• 
  • Dépannage
  • Les CPC
  • Les matériel et périphériques
  • Doc's et schémas ...
  • Les montages
  • Service manual
  • Peoples
• 
  • Référencement d'applications AMSTRAD CPC
  • Référencement de livres et magazines AMSTRAD CPC
  • Peoples
• 
  • Download
  • Tools
  • Crossdev
• 

CPC Revue

CPC Revue n°20

EUROPA de Philippe DEMOULE (CPC n°17) était un joyau, les modifications que voilà en feront une merveille ! Il y manquait un peu d'aléatoire et l'histogramme était un peu touffu. Après ces quelques ajouts, seul le relief fera défaut. Les modifications concernent le second listing sauvegardé sous le nom de EUROPA1. Si vous désirez rendre aléatoire le questionnaire sur les pays, entrez ce qui suit : 152 RANDOMIZE TIME 211 DIM HAS(27) 2442 FOR TIR = 1 TO 26: HAS(TIR) = TIR: NEXT TIR 2443 FOR J = 1 TO 26 2444 B = J + (27-J)*RND(1) 2445 IF HAS(B)=0 THEN 2444 2446 RESTORE 3880: FOR JJ=1 TO HAS(B):READ PAY$,XP,YP,DD$: NEXT JJ 2475 HAS(B) = HAS(J) 2476 NEXT J et modifiez Un petit supplément maintenant. A vous de deviner son utilité. Ajoutez : 4190 IF J = 27 THEN FOR TP = 1 TO 1000: NEXT TP: GOTO 1890 Si vous désirez voir s'afficher séparément l'histogramme des populations, des densités ou des superficies (la fonction globale étant conservée), continuez la frappe en ajoutant : 4421 HH=0: CLEAR INPUT 4422 LOCATE 10,10: PRINT"Que veux-tu comparer ?": LOCATE 13,13: PRINT"Les superficies"; STRING$(24,""."";)"1": LOCATE 13,14: PRINT"Les populations"; STRING$(24,".");"2": LOCATE 13,15:PRINT"Les densites demographiques";STRING$ (12,".");"3" 4423 LOCATE 13,16: PRINT"Les trois ensemble";STRING$(21 ,".");"4" 4424 A$ =INKEY$: IF A$="" OR INSTR("1234",A$) = 0 THEN 4424 ELSE H = VAL(A$) 4425 IF H = 1 THEN M$ = "superficie" 4426 IF H = 2 THEN M$ ="population" 4427 IF H = 3 THEN M$ = "densite d6mographique" 4428 IF H=4 THEN HH = 1: M$ = "superficie - population - densite demographique" et modifiez 4490 LOCATE (80 LEN(M$))/2,1:PRINT M$ 4500 IF H = 1 OR H = 4 THEN LOCATE 70,15: PRINT"COL.1: SUP." 4510 IF H = 2 OR H = 4 THEN LOCATE 70,16: PRINT"COL.2: POP." 4520 IF H = 3 OR H = 4 THEN LOCATE 70,17: PRINT"COL.3: DEN.'' 4620 IF HH = 1 THEN FOR H = 1 TO 3 4740 IF HH = 1 THEN NEXT H Un petit supplément maintenant. A vous de deviner son utilité. Ajoutez : 1945 IF SC = 25 THEN LOCATE 20,4: PRINT"Voici le pays que vous avez oublié:": LOCATE 20,5:PRINT STRING$(34,"-"): GOTO 1970 Merci qui ? Merci Henri CHAUVET de La Châtaigneraie ! CPC

CPCrulez[Content Management System] v8.732-desktop Page créée en 146 millisecondes et consultée 2006 fois L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.