CODINGLISTINGS ★ Le Hamac|Amstrad Magazine ★

Ah, Les vacances : Départ en VacancesCoding Listings

Résultats du concours Elite

Le thème vous a plu ? En tout cas, vous vous êtes donné du mal... Nous avons reçu plus de 110 programmes ! Pas tous excellents, il faut bien le dire... Certains étaient même “bugués” : le plus souvent à cause de DATA mélangées à d'autres instructions sur une même ligne. Erreur garantie ! Le plus fréquent : un dessin de plage avec quelques cocotiers et baigneurs, plus un bruit de vagues plus ou moins correctement imité. Nous avons donc privilégié l'originalité et la qualité technique. Au palmarès :

DANO Xavier, Locmariaquer, pour son étrange “départ en vacances” (programme listé).
DELAPORTE Laurent, Le Cannet-Rocheville, pour “le hamac” (programme listé).
PASQUIER Claude, Cluses, pour son “jeu d'aventure” (programme listé).
MARTIN Michel, Coursan, pour son “Amstrad en vacances” (programme listé).

Et...

HE Jean-Luc, Lagny Sur Marne, PEREIRA, Bellegarde, VOEGELIN Vincent, Francon-ville, MADROLLE Olivier, Le Chesnay, DECRON Alain, Bressuire, SEASSAU Marc, Aix, NGUYEN Anh Huy, Toulouse, MAILLARD Edwige, St Pierre de Plesguen, JEROME Francis, Vesoul, INISAN Hervé, Riec-sur-Belon, DERVAUX Diane, Marly.

Amstrad Magazine n°14

150 '**********************************
160 MODE 0:PEN 1:SYMBOL AFTER 129:SYMBOL 130,0,0,0,56,84,126,255,66:SYMBOL 131,16,56,124,254,16,16,16:SYMBOL 132,0,16,60,52,255,254,124:INK 0,13:INK 1,0:BORDER 0:PLOT 0,188,1:DRAW 400,188,1:DRAW 500,0,1:FOR x=2 TO 13:LOCATE 1,x:PRINT CHR$(157):NEXT x
170 FOR x=20 TO 405:TAG:SOUND 5,1000,3,15:MOVE x,205:PRINT " ";CHR$(130);:NEXT x:FOR x=0 TO 200:SOUND 1,450-x*2,2,15:MOVE 410+x,200-x:PRINT " ";CHR$(130);:NEXT x
180 INK 0,11:INK 2,1:INK 3,24:CLG:FOR x=0 TO 650:PLOT x,0:DRAW x,200,2:NEXT x:FOR a=1 TO 360 STEP 5:DEG:PLOT 200,300:DRAW 200+40*COS(a),300+40*SIN(a),3:NEXT a
190 TAG:PLOT 400,400,1:FOR x=0 TO 170:SOUND 1,450-x*2,2,15:MOVE 400,400-x:PRINT" ";:MOVE 400,392-x:PRINT CHR$(131);:MOVE 400,384-x:PRINT CHR$(130);:NEXT
200 FOR x=0 TO 370:TAG:MOVE x,214:PRINT " ";CHR$(132);:SOUND 5,1000,3,15:NEXT x:PLOT 400,222:PRINT" ";:FOR x=370 TO 600:MOVE x,214:PRINT " ";CHR$(130);CHR$(132);:SOUND 5,1000,3,15:NEXT x:TAGOFF
210 MODE 1:INK 0,0:INK 1,26:LOCATE 2,10:PRINT "J'ai quand meme bien fait d'apporter le parasol...dit cheri...":FOR x=1 TO 4000:NEXT x
220 MODE 0:INK 0,24:INK 1,0:INK 2,11:INK 3,6:INK 4,1:FOR x=1 TO 640:PLOT x,200,2:DRAW x,400:NEXT:FOR x=1 TO 360:PLOT 400,97,1:DRAW 400+100*COS(x),97+50*SIN(x),3:NEXT:LOCATE 10,22:PRINT CHR$(204);:FOR x=1 TO 450:PLOT x,200,4:DRAW 0,0:NEXT x
230 MODE 1:INK 0,0:INK 1,26:LOCATE 2,10:PRINT "Il est temps d'aller monter la tente.":FOR x=1 TO 3000:NEXT x:MODE 0:INK 0,12:INK 1,0:INK 2,18:FOR x=1 TO 20 STEP 2:LOCATE x,10:PEN 2:PRINT CHR$(229);:NEXT:PEN 1:LOCATE 14,13:PRINT CHR$(130);" ";CHR$(250);
240 FOR x=1 TO 2000:NEXT:INK 0,0:INK 2,0:ENT 1,100,-4,2:FOR c=1 TO 7:FOR x=15 TO 1 STEP -1:SOUND 2,0,5,x,0,0,1:NEXT x:NEXT c:SYMBOL 130,16,56,124,254,146,146,158,158:LOCATE 14,13:PRINT CHR$(130);" ":INK 0,12:INK 2,18:FOR x=1 TO 2000:NEXT
250 INK 0,0:INK 1,13:INK 2,13:INK 3,26:FOR x=1 TO 3000:NEXT:INK 1,0:INK 2,0:FOR x=1 TO 4000:NEXT:LOCATE 9,13:PEN 3:PRINT"FIN";:PEN 2

★ EDITEUR: Amstrad Magazine
★ ANNÉE: 1986
★ CONFIG: 64K + AMSDOS
★ LANGAGE:
★ LICENCE: LISTING
★ AUTEUR: MICHEL MARTIN

CPCrulez[Content Management System] v8.7-desktop
Page créée en 052 millisecondes et consultée 380 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.