Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

MUSIC

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump 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