CODINGLISTINGS ★ SOUND TO LIGHT|Amstrad Action) ★

Sound to LightCoding Listings
★ Ce texte vous est présenté dans sa version originale ★ 
 ★ This text is presented to you in its original version ★ 
 ★ Este texto se presenta en su versión original ★ 
 ★ Dieser Text wird in seiner Originalfassung präsentiert ★ 

Here is a clever program sent in by Alexander Clark of the Isle of Arran, Scotland. It will give coloured strobe-like effects on the screen in time with any music fed into the computer.

The program will work on all three CPCs. However, as the 464 has an internal tape deck, you can t adjust the volume or hear the music. IIF you happen to own the Doubler from Evesham Micros though, the input to this can be used instead; alterations to the program should be made as detailed in the listing.

The best results aie obtained if the cassene input is plugged into the external speaker socket or headphone socket of a stereo cassette recorder. In fact any source where the output can be fed to the audio-in of the computer and heard at the same time will produce admirable results.

10 ' Sound to light
20 ' by Alexander Clark
30 ' Amstrad Action  March 87
40 r=&F5D0:s=&F5E0:t=&F5F0:z=INP(r)
50 CALL &BC6E:CALL &BB4E:CALL &BBFF
60 MODE 0:RANDOMIZE TIME
70 FOR b=1 TO 13:FOR a=1 TO 10
80 d=b+a:c=d MOD 7:PEN c+1:PRINT CHR$(143);
90 NEXT:FOR a=10 TO 1 STEP -1
100 d=b+a:c=d MOD 7:PEN c+1:PRINT CHR$(143);
110 NEXT:NEXT:FOR b=12 TO 1 STEP -1
120 FOR a=1 TO 10
130 d=b+a:c=d MOD 7:PEN c+1:PRINT CHR$(143);
140 NEXT:FOR a=10 TO 1 STEP -1
150 d=b+a:c=d MOD 7:PEN c+1:PRINT CHR$(143);
160 NEXT:NEXT:BORDER 0
170 FOR a=0 TO 15:INK a,0:NEXT
180 x=((((INP(r)=z)+1)*4)+(((INP(s)=z)+1)*2)+(((INP(t)=z)+1))):IF y=x THEN 180 ELSE INK y,0:INK x,INT(RND*26)+1:y=x:GOTO 180
190 ' If you have a Doubler from Evesham
200 '     Micros alter line 210 to 40
210 r=&10E0:s=&E0E0:t=&F0E0:z=0

AA

★ PUBLISHER: Amstrad Action
★ YEAR: 1987
★ AUTHOR: Alexander Clark

CPCrulez[Content Management System] v8.7-desktop/cache
Page créée en 854 millisecondes et consultée 169 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.