This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:P1an0
-
Category:Music: Sound
-
Publisher/Developer:BASIC 10-liner Contest 2018 (NOMAM 2018)
-
Year:2018
Short description
This is a kind of piano simulator, providing about an octave-and-a-half of notes you can play, using the top two rows of the keyboard (numbers for black keys, and QWERTY... for white keys). It uses all four voices of the Atari, and is smart enough to re-play an already-playing note using the same channel. The notes fade out, and you can press the "S" key to toggle sustain (making them fade out more slowly). Source: http://www.newbreedsoftware.com/atari/nomam2018/
Listing 1
0 REM S."D:P1AN0.TBS":RUN 5 GRAPHICS 0:POKE 752,1:POKE 731,1:DPOKE 82,9991:? "":POSITION 7,10:? " 2 3 5 6 7 9 0 >":? " ":DIM X(8) 6 ? "":? " Q W E R T Y U I O P - =":DIM N$(46):N$="-2rfULD9:;(*`<5/y[Q@lH" 7 DPOKE 709,15:? "ustain":POSITION 7,20:? " - Piano BASIC 6-Liner":? "Bill Kendrick 2018":? "h/t Bobby Clark for pitches" 10 IF PEEK(764)<255:GET K:IF K>=45 AND K<=90:V=(V+1) MOD 4:VV=V:P=ASC(N$(K-44)):FOR I=0 TO 3:IF X(I)=P:VV=I:ENDIF:NEXT I 20 X(VV)=P:X(VV+4)=15:ENDIF:ENDIF:FOR I=0 TO 3:J=I+4:SOUND I,X(I),10,X(J):X(J)=X(J)-(5-4*S):IF X(J)<0:X(J)=0:ENDIF:NEXT I 30 IF K=83:S=1-S:K=0:POKE 712,S*8:ENDIF:GOTO 10
References
Listing downloads
Copyright holder