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)

BACH

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
100 DATA 89,1,125,1,147,1,176,1,147,1,125,1
110 DATA 89,1,125,1,147,1,89,1,147,1,125,1
120 DATA 89,1,125,1,147,1,176,1,147,1,125,1
130 DATA 89,1,125,1,147,1,89,1,147,1,125,1
140 DATA 89,2,108,2,125,2,147,2,133,2,133,2,159,2,147,2,147,2,176,2,170,2,176,2
150 DATA 147,2,125,2,89,2,108,2,125,2,133,2,147,2,159,2,147,2
160 DATA 133,2,125,2,108,2,125,2,133,2,32,2,78,2,106,2,133,2,125,2
170 DATA 108,2,125,2,69,2
180 DATA 106,2,125,2,147,2,133,2,133,2,159,2,147,2,147,2,176,2,170,2,76,2
190 DATA 147,2,125,2,89,2,106,2,125,2,58,2,133,2,125,2,106,2
200 DATA 89,2,58,2,32,2,69,2,76,2,89,2
210 DATA 89,1,125,1,147,1,176,1,147,1,125,1
220 DATA 89,1,125,1,167,1,69,1,147,1,125,1
230 DATA 89,1,125,1,147,1,176,1,147,1,125,1
240 DATA 69,1,125,1,147,1,89,1,147,1,125,1
250 DATA -1,-1
260 CLS
270 READ A,B
275 PRINT A,B
280 IF A<0 AND B<0 THEN 310
290 SOUND A,B
300 GOTO 270
310 RESTORE: GOTO 260