CODINGLISTINGS ★ DÉPART EN VACANCES ★

Départ en VacancesCoding Listings

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

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

CPCrulez[Content Management System] v8.75-desktop/c
Page créée en 877 millisecondes et consultée 39 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.