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 |