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 849 millisecondes et consultée 1107 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. |
|
|
