aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Musical-scale/Atari-BASIC/musical-scale.basic Normal file
View file

@ -0,0 +1,9 @@
10 Q=31960.4:REM NTSC
20 IF PEEK(53268)=1 THEN Q=31668.7:REM PAL
30 FOR I=1 TO 8
40 READ F
50 P=INT(Q/F-0.5)
60 SOUND 1,P,10,15
70 FOR T=0 TO 800:NEXT T
80 NEXT I
90 DATA 262,294,330,349,392,440,494,523