| MediaWiki:Sitenotice |
|---|
| 2026-03-12: Cocopedia.com is now using a new caching system that should make things faster. Please let me know if you encounter any new issues.
2026-03-15: MediaWiki has been reinstalled and the old database and files restored. It was pretty clogged up from being upgraded so many times since 2004. I am also testing out Cloudflare to see if it can prevent the 'bot assaults that took the site down last year. 2026-03-16: Special thanks to Don Barber for hosting a backup mirror of CoCopedia: https://cocopedia.dgb3.net |
MUSIC
From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigationJump to search
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): NEXTI 150 CLS: PRINT@9,"MUSIC PROGRAM" 160 FOR I=34 TO 290 STEP 64 170 FOR J=1 TO 25 180 PRINT@I+J,"-"; 190 NEXT J,I 200 PRINT@361,"- -"; 210 PRINT@421,"- -"; 220 J=92 230 FOR I=1 TO 12 240 J=J+30 250 PRINT@J,"O"; 260 NEXT I 265 J=4 300 A$=INKEY$ 310 IF A$="" THEN 300 320 A=ASC(A$) 360 IF (A>48) AND (A<58) THEN I=A-48: GOTO410 370 IF A=45 THEN I=12: GOTO410 380 IF A=48 THEN I=10: GOTO410 390 IF A=58 THEN I=11: GOTO410 392 IF A=70 THEN J=8: REM-FULL NOTE 394 IF A=72 THEN J=4: REM-HALF NOTE 396 IF A=81 THEN J2: REM-QTR NOTE 400 GOTO300 410 SOUND T(I,1),J 430 N=T(I,2): PRINT@N,CHR$(191); 432 FOR Z=1 TO 25: NEXT Z 435 PRINT@N,"O"; 440 GOTO300
