10 INK 0,0:INK 1,4:INK 2,8:INK 3,12:INK 4,16:INK 5,20:INK 6,24 20 MODE 0:col=1:ORIGIN 320,200:DEG 30 FOR ang=1 TO 360 40 x=COS(ang):y=SIN(ang) 50 MOVE 320*x,100*y:DRAW 0,0,col:MOVE 100*y,320*x:DRAW 0,0,col 60 IF col=6 THEN col=1 ELSE col=col+1 70 NEXT ang:FOR q=1 TO 40:GOSUB 110:NEXT:col=1 80 CLS:ORIGIN 0,200:FOR n=0 TO 720:y=SIN(n):MOVE n*640/720,198*y 90 DRAW 320,0,col:IF col=6 THEN col=1 ELSE col=col+1 100 NEXT n:FOR q=1 TO 40:GOSUB 110:NEXT q:MODE 2:LIST 110 CALL &BD19:INK 1,4:INK 2,8:INK 3,12:INK 4,16:INK 5,20:INK 6,24:GOSUB 170 120 CALL &BD19:INK 1,24:INK 2,4:INK 3,8:INK 4,12:INK 5,16:INK 6,20:GOSUB 170 130 CALL &BD19:INK 1,20:INK 2,24:INK 3,4:INK 4,8:INK 5,12:INK 6,16:GOSUB 170 140 CALL &BD19:INK 1,16:INK 2,20:INK 3,24:INK 4,4:INK 5,8:INK 6,12:GOSUB 170 150 CALL &BD19:INK 1,12:INK 2,16:INK 3,20:INK 4,24:INK 5,4:INK 6,8:GOSUB 170 160 CALL &BD19:INK 1,8:INK 2,12:INK 3,16:INK 4,20:INK 5,24:INK 6,4:GOSUB 170 170 FOR z=1 TO 30:NEXT z:RETURN★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
CPCrulez[Content Management System] v8.7-desktop/c Page créée en 564 millisecondes et consultée 1170 foisL'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. |
|
|