CODINGLISTINGS ★ AMSTRAD EN VACANCES ★

Amstrad en VacancesCoding Listings

500 '***********************************
510 INK 0,0:INK 1,23:INK 2,24:INK 3,2:MODE 1:PLOT 160,355,1:DRAW 480,355:DRAW 480,125:DRAW 160,125:DRAW 112,160:DRAW 112,240:DRAW 160,355:DRAW 160,125:PLOT 0,170:DRAW 112,170:PLOT 480,170:DRAW 600,170:DRAW 640,120:PLOT 140,96:DRAW 550,96
520 DRAW 600,32:DRAW 190,32:DRAW 140,96:DRAW 135,80:DRAW 190,24:DRAW 600,24:DRAW 600,32:PLOT 500,45:DRAW 464,88:DRAW 544,88:DRAW 588,36:DRAW 508,36:DRAW 500,45:DRAW 580,45:PLOT 170,345:DRAW 470,345:DRAW 470,150:DRAW 170,150:DRAW 170,345
530 FOR a=25 TO 300 STEP 25:PLOT 156+a,80:DRAW 186+a,38:NEXT:PLOT 210,40:DRAW 482,40:PLOT 198,52:DRAW 474,52:PLOT 190,64:DRAW 466,64:PLOT 182,76:DRAW 460,76
540 PEN 2:LOCATE 35,6:PRINT 30:LOCATE 36,5:PRINT CHR$(208)+CHR$(208):LOCATE 36,7:PRINT CHR$(146)+CHR$(152):PLOT 555,340,2:DRAW 595,340:DRAW 595,286:DRAW 555,286:DRAW 555,340:WINDOW#1,12,29,5,15:WINDOW#2,12,29,13,15:PAPER#2,2:CLS#2
550 WINDOW#3,12,29,10,12:PAPER#3,3:CLS#3:WINDOW#4,12,29,5,9:PAPER#4,1:CLS#4:SYMBOL 243,16,24,28,30,31,255,126,56:SYMBOL 240,15,34,33,47,63,47,32,32:SYMBOL 241,252,16,32,255,255,255,192,192:SYMBOL 242,49,113,241,249,255,249,17,9
560 SOUND 1,1500,2500,14,0,0,0:SOUND 2,1520,2500,14,0,0,0:Q$=" VIVE LES VACANCES":PEN#3,1:LOCATE#3,10,1:PRINT#3,CHR$(243):LOCATE#3,2,2:PRINT#3,CHR$(243):PEN#3,2:LOCATE#3,16,3:PRINT#3,CHR$(248):LOCATE#3,9,3:PRINT#3,CHR$(250)
570 TAG#4:ORIGIN 0,0,176,460,150,345:FOR X=470 TO 122 STEP -2:Y=300:MOVE X,Y:PRINT#4,CHR$(240)+CHR$(241)+CHR$(242)+Q$;:CALL &BD19:NEXT:FOR Z=1 TO 1500:NEXT:PAPER#1,1:PEN#1,3:CLS#1:PRINT#1:PRINT#1
580 PRINT#1,"-QUAND PARS-TU EN VACANCES?":FOR C=1 TO 1500:NEXT:PRINT#1:PRINT#1,"- MOI, DE SUITE !":FOR z=1 TO 1000:NEXT:CLS#1:LOCATE#1,7,6:PRINT#1,"CLIC ! !":FOR z=1 TO 500:NEXT:INK 0,0:PAPER#1,0:CLS#1
590 PAPER 0:PEN 2:LOCATE 36,6:PRINT "01":LOCATE 36,5:PRINT CHR$(146)+CHR$(152):LOCATE 36,7:PRINT CHR$(154)+CHR$(154):PLOT 555,340:DRAW 595,340:DRAW 595,286:DRAW 555,286:DRAW 555,340:GOTO 590
600 REM MARTIN MICHEL 11 Allee Jacques DUCLOS 11110 COURSAN

★ É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 065 millisecondes et consultée 32 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.