CODINGLISTINGS ★ DIONYSIAN SPIRAL ★

Dionysian SpiralCoding Listings
 ★ Ce texte vous est présenté dans sa version originale ★ 
 ★ This text is presented to you in its original version ★ 
 ★ Este texto se le presenta en su versión original ★ 
 ★ Dieser Text wird in seiner ursprünglichen Fassung Ihnen präsentiert ★ 

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

 

 

★ PUBLISHER: Amstrad Action
★ YEAR: 1985
★ CONFIG: 64K + AMSDOS
★ AUTHOR(S): ???

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