10 REM Dionysian Spiral 20 REM * Highly Effective * 30 RANDOMIZE 40 INK 0,6:BORDER 6,2:MODE 0:CLG 0: PAPER 0:SPEED INK 3,7 50 vars=200:vim=60 60 DIM z(14) 70 FOR k=0 TO 14 80 INK k+1,k 90 NEXT k 100 INK 7,6,2:INK 2,24,0:INK 12,16,5 110 ORIGIN (vars+2*vim),vars 120 FOR alan=103 TO 0 STEP -1 130 sugar=alan*PI/52 140 MOVE COS(sugar)*-vim,SIN(sugar)*-vars 150 DRAW COS(sugar)*318,SIN(sugar)*vim,alan MOD 13+1 160 NEXT alan 170 BORDER 6 180 REM ------------------------- 190 WHILE NOT finished 200 jump=0.3+RND 210 FOR t=1 TO 16+jump STEP jump 220 FOR k=0 TO 14 230 INK k+1,k+t 240 IF INKEY$<>"" THEN 350 250 NEXT k 260 NEXT t 270 FOR t=16 TO 2-jump STEP -jump 280 FOR k=0 TO 14 290 INK k+1,k+t 300 IF INKEY$<>"" THEN 350 310 NEXT k 320 NEXT t 330 IF RND>0.55 THEN h=INT(RND*15):INK 0,h:BORDER h 340 WEND 350 MODE 1
★ 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 591 millisecondes et consultée 1111 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. |
|
|