https://www.cocopedia.com/wiki/index.php?action=history&feed=atom&title=MUSIC 2026-04-22T17:26:11Z Revision history for this page on the wiki MediaWiki 1.45.1 https://www.cocopedia.com/wiki/index.php?title=MUSIC&diff=7449&oldid=prev 2015-09-11T11:11:14Z

<p>Category</p> <table style="background-color: #fff; color: #202122;" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="en"> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 07:11, 11 September 2015</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l33">Line 33:</td> <td colspan="2" class="diff-lineno">Line 33:</td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  435 PRINT@N,&quot;O&quot;;</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  435 PRINT@N,&quot;O&quot;;</div></td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  440 GOTO300</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  440 GOTO300</div></td></tr> <tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr> <tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">[[Category:BASIC]]</ins></div></td></tr> </table>

Polluks https://www.cocopedia.com/wiki/index.php?title=MUSIC&diff=5344&oldid=prev 2013-03-25T03:52:50Z

<p>Created page with &quot; 110 DIM T(12,2) 120 DATA 38,452,58,422,78,392,89,362,108,332,125,302,133,272,147,242 125 DATA 159,212,170,182,176,132,185,122 130 FOR I=1 TO 12 140 READ T(I,1),T(I,2): NE...&quot;</p> <p><b>New page</b></p><div> 110 DIM T(12,2)<br /> 120 DATA 38,452,58,422,78,392,89,362,108,332,125,302,133,272,147,242<br /> 125 DATA 159,212,170,182,176,132,185,122<br /> 130 FOR I=1 TO 12<br /> 140 READ T(I,1),T(I,2): NEXTI<br /> 150 CLS: PRINT@9,&quot;MUSIC PROGRAM&quot;<br /> 160 FOR I=34 TO 290 STEP 64<br /> 170 FOR J=1 TO 25<br /> 180 PRINT@I+J,&quot;-&quot;;<br /> 190 NEXT J,I<br /> 200 PRINT@361,&quot;- -&quot;;<br /> 210 PRINT@421,&quot;- -&quot;;<br /> 220 J=92<br /> 230 FOR I=1 TO 12<br /> 240 J=J+30<br /> 250 PRINT@J,&quot;O&quot;;<br /> 260 NEXT I<br /> 265 J=4<br /> 300 A$=INKEY$<br /> 310 IF A$=&quot;&quot; THEN 300<br /> 320 A=ASC(A$)<br /> 360 IF (A&gt;48) AND (A&lt;58) THEN I=A-48: GOTO410<br /> 370 IF A=45 THEN I=12: GOTO410<br /> 380 IF A=48 THEN I=10: GOTO410<br /> 390 IF A=58 THEN I=11: GOTO410<br /> 392 IF A=70 THEN J=8: REM-FULL NOTE<br /> 394 IF A=72 THEN J=4: REM-HALF NOTE<br /> 396 IF A=81 THEN J2: REM-QTR NOTE<br /> 400 GOTO300<br /> 410 SOUND T(I,1),J<br /> 430 N=T(I,2): PRINT@N,CHR$(191);<br /> 432 FOR Z=1 TO 25: NEXT Z<br /> 435 PRINT@N,&quot;O&quot;;<br /> 440 GOTO300</div>

Luis46coco